/ScriptServ

[mpopup]
n0=Server
n1=.Lusers:/lusers
n2=.Motd:/motd
n3=.Time:/time
n4=Names
n5=.names ?:/names #$$?="Enter a channel name:"
n6=Join
n7=.join ?:/join #$$?="Enter a channel to join:"
n8=AwaySystem
n9=.Away: { sa }
n10=.Back: { sb }
n11=.List Channels:/list
[qpopup]
n0=Unmask { window @unmask | startunmask $1 }
n1=Whois:/whois $$1
n2=-
n3=Ignore:/ignore $$1 1 | /closemsg $$1
n4=-
n5=CTCP
n6=.Ping:/ctcp $$1 ping
n7=.Version:/ctcp $$1 version
n8=.Time:/ctcp $$1 time
n9=DCC
n10=.Send:/dcc send $$1

[bpopup]
n0=No-Li|v|it
n1=ICQ# { set %icq $$?="ICQ Number?" }
n2=Send CTCP
n3=.Ping:/ctcp $$?="Enter nickname:" ping
n4=.Time:/ctcp $$?="Enter nickname:" time
n5=.Version:/ctcp $$?="Enter nickname:" version
n6=.Finger:/ctcp $$?="Enter nickname:" finger
n7=Quit IRC:/quit

[lpopup]
n0=NickComplete { set %ncomplete $?="message" | say 14[ $+ $$1 $+ 14]7:14[ $+ %ncomplete $+ 14] | unset %ncomplete }
n1=Unmask { window @unmask | startunmask $1 }
n2=-
n3=Ignore
n4=.Ignore:/ignore $$1 1
n5=.Unignore:/ignore -r $$1 1
n6=Whois:/whois $$1
n7=Query:/query $$1
n8=-
n9=OpControl
n10=.Own:/raw -q mode # +qqqqqqqqqq $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n11=.DeOwn:/raw -q mode # -qqqqqqqqqq $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n12=.Op:/raw -q mode # +oooooooooo $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n13=.Deop:/raw -q mode # -oooooooooo $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n14=.Voice:/raw -q mode # +vvvvvvvvvv $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n15=.DeVoice:/raw -q mode # -vvvvvvvvvv $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
n16=.-
n17=.CloneDeop { set %clonedeop $1 | set %clone $address($1,4) | access # clear | raw -q mode # -qqq $ial(%clone,1).nick $ial(%clone,2).nick $ial(%clone,3).nick | randkey }
n18=Kick/Ban
n19=.Kick:/kick # $$1 $read randomk.txt
n20=.Kick (why):/kick # $$1 $$?="Reason"
n21=.Ban:/ban $$1 2
n22=.Ban, Kick:/kick # $$1 | /ban $$1 2
n23=.MassKick:/raw -q kick # $snicks 14[ $+ SelectNickKick $+ 14]
n24=.MassBan:/ban $$* 2
n25=.-
n26=.CloneKick/Ban { set %clonekick $1 | set %clonek $address($1,4) | ban # %clonek | kick # $ial(%clonek,1).nick $+ , $+ $ial(%clonek,2).nick $+ , $+ $ial(%clonek,3).nick 14[CloneKick/Ban14] }
n27=.-
n28=.TimerBan
n29=..1min { ban -u60 $$1 2 | kick # $$1 14[ 1minBAN 14] }
n30=..5min { ban -u300 $$1 2 | kick # $$1 14[ 5minBAN 14] }
n31=..10min { ban -u600 $$1 2 | kick # $$1 14[ 10minBAN 14] }
n32=Floods
n33=.+q { raw -q mode # +qqqqqqqqqqqqqqqqqqqq $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n34=.-q { raw -q mode # -qqqqqqqqqqqqqqqqqqqq $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n35=.+o { raw -q mode # +oooooooooooooooooooo $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n36=.-o { raw -q mode # -oooooooooooooooooooo $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n37=.+v { raw -q mode # +vvvvvvvvvvvvvvvvvvvv $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n38=.-v { raw -q mode # -vvvvvvvvvvvvvvvvvvvv $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n39=.-q+q { raw -q mode # -q+q-q+q-q+q-q+q-q+q-q+q-q+q-q+q-q+q-q+q $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n40=.+q-q { raw -q mode # +q-q+q-q+q-q+q-q+q-q+q-q+q-q+q-q+q-q+q-q $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n41=.-o+o { raw -q mode # -o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n42=.+o-o { raw -q mode # +o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n43=.-v+v { raw -q mode # -v+v-v+v-v+v-v+v-v+v-v+v-v+v-v+v-v+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n44=.+v-v { raw -q mode # +v-v+v-v+v-v+v-v+v-v+v-v+v-v+v-v+v-v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 }
n45=-
n46=UserLists
n47=.AutoQ
n48=..+AutoQ { .guser 2 $$1 4  | notice $1 You Have Been Placed On The 14[No-Li|v|it14] Auto-Owner List }
n49=..-AutoQ { .ruser 2 $$1 4 }
n50=.AutoOp
n51=..+AutoOp { .guser 3 $$1 4 | notice $1 You Have Been Placed On The 14[No-Li|v|it14] Auto-Op List }
n52=..-AutoOp { .ruser 3 $$1 4 }
n53=.ShitList
n54=..+ShitList { .guser 4 $$1 4 | set %shit.nick $1 | set %shit $address(%shit.nick,4) | ban # %shit | kick # $ial(%shit,1).nick $+ , $+ $ial(%shit,2).nick $+ , $+ $ial(%shit,3).nick) }
n55=..-ShitList { .ruser 4 $$1 4 }
n56=.ShutUp
n57=..+ShutUp { .guser 5 $$1 4 }
n58=..-ShutUp { .ruser 5 $$1 4 }
n59=CTCP/DCC
n60=.Ping:/ctcp $$1 ping
n61=.Finger:/ctcp $$1 finger
n62=.Version:/ctcp $$1 version
n63=.Time:/ctcp $$1 time
n64=.Send:/dcc send $$1
n65=.Chat:/dcc chat $$1

[cpopup]
n0=Advertise { ver }
n1=MyStats { say 14[stats14]7: $+ My computer has been up for $duration($calc($ticks / 1000)) | say 14[stats14]7: $+ I've been on mIRC without disconnecting for $duration(%online) }
n2=MassModes
n3=.q
n4=..+q
n5=...all { mass+qall }
n6=...own { mass+qown }
n7=...op { mass+qop }
n8=...reg { mass+qreg }
n9=..-q
n10=...all { mass-qall }
n11=...own { mass-qown }
n12=...op { mass-qop }
n13=...reg { mass-qreg }
n14=.o
n15=..+o
n16=...all { mass+oall }
n17=...own { mass+oown }
n18=...op { mass+oop }
n19=...reg { mass+oreg }
n20=..-o
n21=...all { mass-oall }
n22=...own { mass-oown }
n23=...op { mass-oop }
n24=...reg { mass-oreg }
n25=.v
n26=..+v
n27=...all { mass+vall }
n28=...own { mass+vown }
n29=...op { mass+vop }
n30=...reg { mass+vreg }
n31=..-v
n32=...all { mass-vall }
n33=...own { mass-vown }
n34=...op { mass-vop }
n35=...reg { mass-vreg }
n36=.kick
n37=..all { masskickall }
n38=..op { masskickop }
n39=..reg { masskickreg }
n40=Takes
n41=.Solo
n42=..Reg { takereg }
n43=..Null { takenull }
n44=..Host { takehost }
n45=..Kick { takekick }
n46=.Bot
n47=..Reg { bottakereg }
n48=..Host { bottakehost }
n49=Sockets
n50=.Splits
n51=...Die { split1c | split2c }
n52=...QMe { sockwrite -nt * mode # +q $me }
n53=...SplitChans { SET %split.chans $?="Channels" }
n54=.Prots
n55=..DoubleJoin
n56=...Connect { leetbots }
n57=...Die { sockclose joiner* }
n58=...-
n59=...Join # { sockwrite -nt joiner* join # %owner [ $+ [ # ] ] }
n60=...Part # { sockwrite -nt joiner* part # }
n61=..InRoom
n62=...Prot1
n63=....Connect:/prot1o
n64=....Die:/prot1c
n65=....-
n66=....Join #:sockwrite -nt prot1 join # %owner [ $+ [ # ] ]
n67=....Part #:sockwrite -nt prot1 part #
n68=....Cycle #:sockwrite -nt prot1 part # | sockwrite -nt prot1 join # %owner [ $+ [ # ] ] 
n69=....-
n70=....Owner(Me) #:sockwrite -nt prot1 mode # +q $me
n71=....Owner(Who) #:sockwrite -nt prot1 mode # +q $?="Owner Who?"
n72=....-
n73=....Op(Me) #:sockwrite -nt prot1 mode # +o $me
n74=....Op(Who) #:sockwrite -nt prot1 mode # +o $?="Op Who?"
n75=....-
n76=....Voice(Me) #:sockwrite -nt prot1 mode # +v $me
n77=....Voice(Who) #:sockwrite -nt prot1 mode # +v $?="Voice Who?"
n78=....-
n79=....Kick(Who) #:sockwrite -nt prot1 kick # $?="Kick Who?"  0D7oor
n80=....-
n81=....Nick:set %n.prot1 $?="Nick" | sockwrite -nt prot1 nick %n.prot1
n82=...Prot2
n83=....Connect:/prot2o
n84=....Die:/prot2c
n85=....-
n86=....Join #:sockwrite -nt prot2 join # %owner [ $+ [ # ] ]
n87=....Part #:sockwrite -nt prot2 part #
n88=....Cycle #:sockwrite -nt prot2 part # | sockwrite -nt prot2 join # %owner [ $+ [ # ] ] 
n89=....-
n90=....Owner(Me) #:sockwrite -nt prot2 mode # +q $me
n91=....Owner(Who) #:sockwrite -nt prot2 mode # +q $?="Owner Who?"
n92=....-
n93=....Op(Me) #:sockwrite -nt prot2 mode # +o $me
n94=....Op(Who) #:sockwrite -nt prot2 mode # +o $?="Op Who?"
n95=....-
n96=....Voice(Me) #:sockwrite -nt prot2 mode # +v $me
n97=....Voice(Who) #:sockwrite -nt prot2 mode # +v $?="Voice Who?"
n98=....-
n99=....Kick(Who) #:sockwrite -nt prot2 kick # $?="Kick Who?"  0D7oor
n100=....-
n101=....Nick:set %n.prot2 $?="Nick" | sockwrite -nt prot2 nick %n.prot2
n102=...Both
n103=....Connect:/prot1o | prot2o
n104=....Die: { prot1c | prot2c }
n105=....-
n106=....Join: { sockwrite -nt * join # %owner [ $+ [ # ] ] }
n107=....Part: { sockwrite -nt * part # }
n108=.Gate
n109=..Gate
n110=...Connect:/wgo
n111=...Die:/wgc
n112=...-
n113=...Join #:sockwrite -nt wg* join # %owner [ $+ [ # ] ]
n114=...Part #:sockwrite -nt wg* part #
n115=...Cycle #:sockwrite -nt wg* part # | sockwrite -nt wg* join # %owner [ $+ [ # ] ]
n116=...-
n117=...Owner(Me) #:sockwrite -nt wg* mode # +q $me
n118=...Owner(Who) #:sockwrite -nt wg* mode # +q $?="Owner Who?"
n119=...-
n120=...Op(Me) #:sockwrite -nt wg* mode # +o $me
n121=...Op(Who) #:sockwrite -nt wg* mode # +o $?="Op Who?"
n122=...-
n123=...Voice(Me) #:sockwrite -nt wg* mode # +v $me
n124=...Voice(Who) #:sockwrite -nt wg* mode # +v $?="Voice Who?"
n125=...-
n126=...Kick(Who) #:sockwrite -nt wg* kick # $?="Kick Who?"  0D7oor
n127=AwaySystem
n128=.Away: { sa }
n129=.Back: { sb }
n130=.-
n131=.ICQ# { set %icq $?="Icq #?" }
n132=;Got This From Billy_Batson
n133=MP3
n134=.Setup:set %mp3dir $dir="Set Winamp Path" | set %mp3 $sdir="Set Main mp3s Dir Path"
n135=.-
n136=.Play Mp3:{
n137=  set %song $dir="Select An Mp3" %mp3
n138=  if (%song == $null) { halt } 
n139=  run " $+ %mp3dir $+ " " $+ %song $+ "
n140=ame 14[0No-Li|v|itAmp14]7:14[0Playing- $remove($nopath(%song),.mp3) 14]7:14[0Size- $round($calc($file(%song) / 1000000),2)) $+ mb 14] } }
n141=-
n142=Keys
n143=.OwnKey:/prop # ownerkey $?="Ownerkey?"
n144=.HostKey:/prop # hostkey $?="Hostkey?"
n145=.CycW/OKey:/raw -q part # | raw -q join # %owner [ $+ [ # ] ]
n146=.CycW/HKey:/raw -q part # | raw -q join # %host [ $+ [ # ] ]
n147=.Cyc(Key?):/set %key $?="Key?" | raw -q part # | raw -q join # %key
n148=Access
n149=.View:/access # list
n150=.Clear
n151=..ClearAll:/access # clear
n152=..ClearOwn:/access # clear owner
n153=..ClearHost:/access # clear host
n154=..ClearVoice:/access # clear voice
n155=.Add
n156=..AddHost:/set %hostip $?="Ip" | access # add host %hostip
n157=..AddOwner:/set %ownerip $?="Ip" | access # add owner %ownerip
n158=..AddVoice:/set %voiceip $?="Ip" | access # add voice %voiceip
n159=Prots
n160=.Bot1
n161=..On:/set %prot1-q on
n162=..Off:/set %prot1-q off
n163=.Bot2
n164=..On:/set %prot2-q on
n165=..Off:/set %prot2-q off
n166=.DoubleJoin
n167=..On:/set %deownerfloodprot on
n168=..Off:/set %deownerfloodprot off
n169=.My
n170=..On:/set %prot on
n171=..Off:/set %prot off