/ScriptServ

[qpopup]
n0=matrix $ver:say 14,1:[10,1mX14,1]:10,1:11,1:15,1:11,1:10,1:14,1:(10,1matrix $ver 14,1by azrael):10,1:11,1:15,1:11,1:10,1:14,1:[10,1mX14,1]: 15,1- http://thepoison.org/matrix
n1=-
n2=whois:whois $1
n3=-
n4=ignore
n5=.ignore:ignore $1 4 | closemsg $1
n6=.unignore:ignore -r $1 4
n7=-
n8=ctcp
n9=.ping:.ctcp $1 ping
n10=.finger:.ctcp $1 finger
n11=.version:.ctcp $1 version
n12=.time:.ctcp $1 time
n13=.page:.ctcp $1 page $?="page message: (optional)"
n14=.userinfo:.ctcp $1 userinfo
n15=.clientinfo:.ctcp $1 clientinfo
n16=dcc
n17=.send:dcc send $1
n18=.chat:dcc chat $1
n19=-
n20=close:closemsg $1

[bpopup]
n0=matrix
n1=away system
n2=.$iif($away,set back,set away):if ($away) setback | else dialog -m away away
[mpopup]
n0=$iif($server == $null,connect,disconnect):if ($server == $null) server irc.msn.com | else quit
n1=-
n2=$iif($server != $null,server)
n3=.lusers:lusers
n4=-
n5=shutdown:if ($?!="do you really want to shutdown matrix?") exit
[cpopup]
n0=matrix $ver:say 14,1:[10,1mX14,1]:10,1:11,1:15,1:11,1:10,1:14,1:(10,1matrix $ver 14,1by s4ndm4n13 who Di]v[pLeS loves very much13 ):10,1:11,1:15,1:11,1:10,1:14,1:[10,1mX14,1]: 15,1- http://thepoison.org/matrix
n1=-
n2=chanstats
n3=.public:chanstats #
n4=.private:chanstats -q #
n5=ctcp
n6=.ping:.ctcp # ping
n7=.finger:.ctcp # finger
n8=.version:.ctcp # version
n9=.time:.ctcp # time
n10=.page:.ctcp # page $?="page message: (optional)"
n11=.userinfo:.ctcp # userinfo
n12=.clientinfo:.ctcp # clientinfo
n13=-
n14=$iif($me isop #,keys)
n15=.channel:mode # +k $$?*="channel key:"
n16=.-
n17=.host:%hkey. [ $+ [ # ] ] = $$?*="host key:" | prop # hostkey $!
n18=.owner:%okey. [ $+ [ # ] ] = $$?*="owner key:" | prop # ownerkey $!
n19=$iif($me isop #,access list):access #
n20=protections
n21=.topic lock
n22=..$iif(%tl. [ $+ [ # ] ] != $null,on <,on):if ($chan(#).topic == $null) { mxecho # 4error - no topic set | halt } | if (%tl. [ $+ [ # ] ] == $null) { %tl. [ $+ [ # ] ] = $chan(#).topic | mxecho # topic lock for11 # 15is now 10on }
n23=..$iif(%tl. [ $+ [ # ] ] != $null,off,off <):if (%tl. [ $+ [ # ] ] != $null) { unset %tl. [ $+ [ # ] ] | mxecho # topic lock for11 # 15is now 10off }
n24=.mode lock
n25=..$iif(%ml. [ $+ [ # ] ] != $null,on <,on):if ($chan(#).mode == $null) %ml.if (%tl. [ $+ [ # ] ] == $null) { %tl. [ $+ [ # ] ] = $chan(#).topic | mxecho # topic lock for11 # 15is now 10on }
n26=..$iif(%ml. [ $+ [ # ] ] != $null,off,off <):if (%tl. [ $+ [ # ] ] != $null) { unset %tl. [ $+ [ # ] ] | mxecho # topic lock for11 # 15is now 10off }
n27=scans
n28=.sysops
n29=..channel:.enable #sysops2 | who #
n30=..server:.enable #sysops | who *!*@cpmsnchat?0?
n31=.address:.enable #address | who $replace($?="enter address or ip:",.,?)
n32=-
n33=cycle:cycle # $?="key: (optional)"
n34=takeover:take
n35=-
n36=away system
n37=.$iif($away,set back,set away):if ($away) setback | else dialog -m away away
n38=-
n39=talker setup:dialog -m talker talker
n40=-
n41=recent
n42=.servers
n43=..$gettok(%recent.s,1,32):server $gettok(%recent.s,1,32)
n44=..$gettok(%recent.s,2,32):server $gettok(%recent.s,2,32)
n45=..$gettok(%recent.s,3,32):server $gettok(%recent.s,3,32)
n46=..$gettok(%recent.s,4,32):server $gettok(%recent.s,4,32)
n47=..$gettok(%recent.s,5,32):server $gettok(%recent.s,5,32)
n48=..$gettok(%recent.s,6,32):server $gettok(%recent.s,6,32)
n49=..-
n50=..$iif(%recent.s == $null,empty,clear list):unset %recent.s
n51=.channels
n52=..$gettok(%recent.c,1,32):join $gettok(%recent.c,1,32)
n53=..$gettok(%recent.c,2,32):join $gettok(%recent.c,2,32)
n54=..$gettok(%recent.c,3,32):join $gettok(%recent.c,3,32)
n55=..$gettok(%recent.c,4,32):join $gettok(%recent.c,4,32)
n56=..$gettok(%recent.c,5,32):join $gettok(%recent.c,5,32)
n57=..$gettok(%recent.c,6,32):join $gettok(%recent.c,6,32)
n58=..-
n59=..$iif(%recent.c == $null,empty,clear list):unset %recent.c
n60=.nicks
n61=..$gettok(%recent.n,1,32):nick $gettok(%recent.n,1,32)
n62=..$gettok(%recent.n,2,32):nick $gettok(%recent.n,2,32)
n63=..$gettok(%recent.n,3,32):nick $gettok(%recent.n,3,32)
n64=..$gettok(%recent.n,4,32):nick $gettok(%recent.n,4,32)
n65=..$gettok(%recent.n,5,32):nick $gettok(%recent.n,5,32)
n66=..$gettok(%recent.n,6,32):nick $gettok(%recent.n,6,32)
n67=..-
n68=..$iif(%recent.n == $null,empty,clear list):unset %recent.n
n69=favorite
n70=.servers
n71=..$iif($numtok(%favorite.s,32) < 6,add server)
n72=...current:%favorite.s = %favorite.s %unf.server
n73=...other:%favorite.s = %favorite.s $$?="server: (format - irc.msn.com:6667)"
n74=..-
n75=..$gettok(%favorite.s,1,32):server $gettok(%favorite.s,1,32)
n76=..$gettok(%favorite.s,2,32):server $gettok(%favorite.s,2,32)
n77=..$gettok(%favorite.s,3,32):server $gettok(%favorite.s,3,32)
n78=..$gettok(%favorite.s,4,32):server $gettok(%favorite.s,4,32)
n79=..$gettok(%favorite.s,5,32):server $gettok(%favorite.s,5,32)
n80=..$gettok(%favorite.s,6,32):server $gettok(%favorite.s,6,32)
n81=..-
n82=..$iif(%favorite.s == $null,empty,clear list):unset %favorite.s
n83=.channels
n84=..$iif($numtok(%favorite.c,32) < 6,add channel)
n85=...current:%favorite.c = %favorite.c #
n86=...other:%favorite.c = %favorite.c $$?="channel:"
n87=..-
n88=..$gettok(%favorite.c,1,32):join $gettok(%favorite.c,1,32)
n89=..$gettok(%favorite.c,2,32):join $gettok(%favorite.c,2,32)
n90=..$gettok(%favorite.c,3,32):join $gettok(%favorite.c,3,32)
n91=..$gettok(%favorite.c,4,32):join $gettok(%favorite.c,4,32)
n92=..$gettok(%favorite.c,5,32):join $gettok(%favorite.c,5,32)
n93=..$gettok(%favorite.c,6,32):join $gettok(%favorite.c,6,32)
n94=..-
n95=..$iif(%favorite.c == $null,empty,clear list):unset %favorite.c
n96=.nicks
n97=..$iif($numtok(%favorite.n,32) < 6,add nick)
n98=...current:%favorite.n = %favorite.n $me
n99=...other:%favorite.n = %favorite.n $$?="nick:"
n100=..-
n101=..$gettok(%favorite.n,1,32):nick $gettok(%favorite.n,1,32)
n102=..$gettok(%favorite.n,2,32):nick $gettok(%favorite.n,2,32)
n103=..$gettok(%favorite.n,3,32):nick $gettok(%favorite.n,3,32)
n104=..$gettok(%favorite.n,4,32):nick $gettok(%favorite.n,4,32)
n105=..$gettok(%favorite.n,5,32):nick $gettok(%favorite.n,5,32)
n106=..$gettok(%favorite.n,6,32):nick $gettok(%favorite.n,6,32)
n107=..-
n108=..$iif(%favorite.n == $null,empty,clear list):unset %favorite.n
n109=.topics
n110=..$iif($numtok(%favorite.t,32) < 6,add topic)
n111=...current:%favorite.t = %favorite.t $chan(#).topic
n112=...other:%favorite.t = %favorite.t $$?="topic:"
n113=..-
n114=..$gettok(%favorite.t,1,32):topic # $gettok(%favorite.t,1,32)
n115=..$gettok(%favorite.t,2,32):topic # $gettok(%favorite.t,2,32)
n116=..$gettok(%favorite.t,3,32):topic # $gettok(%favorite.t,3,32)
n117=..$gettok(%favorite.t,4,32):topic # $gettok(%favorite.t,4,32)
n118=..$gettok(%favorite.t,5,32):topic # $gettok(%favorite.t,5,32)
n119=..$gettok(%favorite.t,6,32):topic # $gettok(%favorite.t,6,32)
n120=..-
n121=..$iif(%favorite.t == $null,empty,clear list):unset %favorite.t
n122=-
n123=autojoin
n124=.$iif($numtok(%autojoin,32) < 6,add channel)
n125=..current:%autojoin = %autojoin #
n126=..other:%autojoin = %autojoin $$?="channel:"
n127=.-
n128=.$gettok(%autojoin,1,32):join $gettok(%autojoin,1,32)
n129=.$gettok(%autojoin,2,32):join $gettok(%autojoin,2,32)
n130=.$gettok(%autojoin,3,32):join $gettok(%autojoin,3,32)
n131=.$gettok(%autojoin,4,32):join $gettok(%autojoin,4,32)
n132=.$gettok(%autojoin,5,32):join $gettok(%autojoin,5,32)
n133=.$gettok(%autojoin,6,32):join $gettok(%autojoin,6,32)
n134=.-
n135=.$iif(%autojoin == $null,empty,clear List):unset %autojoin
n136=+q ^5D:.raw mode # +q '^5d
n137=+o ^5D:.raw mode # +o '^5d

[lpopup]
n0=whois:whois $*
n1=query:query $1
n2=msg:msg $* $?="message:"
n3=notice:notice $1 $?="notice:"
n4=-
n5=$iif($me isop #,control)
n6=.$iif($snick(0,#) == 1,voice,mass voice):if ($snick(0,#) == 1) .raw mode # +v $1 | else mmode + v
n7=.$iif($snick(0,#) == 1,devoice,mass devoice):if ($snick(0,#) == 1) .raw mode # -v $1 | else mmode - v
n8=.-
n9=.$iif($snick(0,#) == 1,op,mass op):if ($snick(0,#) == 1) .raw mode # +o $1 | else mmode + o
n10=.$iif($snick(0,#) == 1,deop,mass deop):if ($snick(0,#) == 1) .raw mode # -o $1 | else mmode - o
n11=.-
n12=.$iif($snick(0,#) == 1,owner,mass owner):if ($snick(0,#) == 1) .raw mode # +q $1 | else mmode + q
n13=.$iif($snick(0,#) == 1,deowner,mass deowner):if ($snick(0,#) == 1) .raw mode # -q $1 | else mmode - q
n14=.-
n15=.$iif($snick(0,#) == 1,kick,mass kick):if ($snick(0,#) == 1) .raw kick # $1 | else mkick
n16=.$iif($snick(0,#) == 1,kick (why),mass kick (why)):if ($snick(0,#) == 1) .raw kick # $1 : $+ $?="reason for kick:" | else mkick $?="reason for mass kick:"
n17=.-
n18=.$iif($snick(0,#) == 1,ban):ban $* 4
n19=.$iif($snick(0,#) == 1,ban/kick):m # +b $address($1,4) | kick # $1
n20=.$iif($snick(0,#) == 1,ban/kick (why)):%reason = $?="reason for kick:" | m # +b $address($1,4) | kick # $1 %reason | unset %reason
n21=$iif($me isop #,access)
n22=.add
n23=..deny:access # add deny $address($1,4)
n24=..voice:access # add voice $address($1,4)
n25=..host:access # add host $address($1,4)
n26=..owner:access # add owner $address($1,4)
n27=.remove
n28=..deny:access # delete deny $address($1,4)
n29=..voice:access # delete voice $address($1,4)
n30=..host:access # delete host $address($1,4)
n31=..owner:access # delete owner $address($1,4)
n32=ignore
n33=.ignore:ignore $* 4
n34=.unignore:ignore -r $* 4
n35=-
n36=ctcp
n37=.ping:.ctcp $* ping
n38=.finger:.ctcp $* finger
n39=.version:.ctcp $* version
n40=.time:.ctcp $* time
n41=.page:.ctcp $* page $?="page message: (optional)"
n42=.userinfo:.ctcp $* userinfo
n43=.clientinfo:.ctcp $* clientinfo
n44=dcc
n45=.send:dcc send $1
n46=.chat:dcc chat $1
n47=-
n48=users
n49=.autoops
n50=..$iif(75 !isin $level($address($snick(1,#),4)),add [ $snick(1,#) ] ,remove [ $snick(1,#) ] ):if (75 !isin $level($address($1,4))) autoops $1 | else autoops -r $1
n51=.nonops
n52=..$iif(67 !isin $level($address($snick(1,#),4)),add [ $snick(1,#) ] ,remove [ $snick(1,#) ] ):if (67 !isin $level($address($1,4))) nonops $1 | else nonops -r $1
n53=.-
n54=.protected
n55=..$iif(90 !isin $level($address($snick(1,#),4)),add [ $snick(1,#) ] ,remove [ $snick(1,#) ] ):if (90 !isin $level($address($1,4))) protected $1 | else protected -r $1
n56=.blacklist
n57=..$iif(66 !isin $level($address($snick(1,#),4)),add [ $snick(1,#) ] ,remove [ $snick(1,#) ] ):if (66 !isin $level($address($1,4))) blacklist $1 | else blacklist -r $1
n58=.-
n59=.super users
n60=..$iif(99 !isin $level($address($snick(1,#),4)),add [ $snick(1,#) ] ,remove [ $snick(1,#) ] ):if (99 !isin $level($address($1,4))) superusers $1 | else superusers -r $1
n61=-
n62=hexnick:hex $1
n63=$iif(x isin $address($snick(1,#),2),unmask ip):um $gettok($address($1,2),2,64) $1
n64=ignore:msg # 4,0 $$1  YoU HaVe BeEn PlAcEd On IgNoRe! I CaNnOt hEaR yOu nO MoRe!