[start]
network=1
servis.nick=NickServ,ChanServ,InfoServ,MemoServ,GameServ,OperServ
servis.site=sorcery.net
clonemask=2
ialupd=1
idenon=3
k2b.string=*This nick belongs to another user*
k2b.command=/msg nickserv id <pass>
[popups]
#spopup on
menu status {
$_network
.ChanServ
..ListOP:{ var %info $inp(Which Channel?~ListOP~$chr(35),1) | var %mode $inp(-n/-l nick/level~ListOP) } cs ListOP %info %mode
..AddOP:{ var %info $inp(Which Channel?~AddOP~$chr(35),1) | var %nick $inp(Add What Nick ?~AddOP,1) | var %level $inp(Add Level:3.5.8.10.13.15?~AddOP) } cs ADDOP %info %nick %level
..DelOP:{ var %info $inp(Which Channel?~DelOP~$chr(35),1) | var %nick $inp(Add What Nick ?~DelOP,1) } cs DELOP %info %nick
..DROP:{ if ($?!="Are you sure you want to drop Channel ?" = $true ) { var %info $inp( Which Channel?~DROP~$chr(35),1) | var %pwd $inp(Channel Password~DROP~?*,1) } } cs DROP %info %pwd
..-
..Channel Info :{ var %info $inp(Which Channel?~Channel Info~$chr(35),1) } cs INFO %info
..Channel Set
...Restrict:cs RESTRICT $inp(Which Channel?~RESTRICT~$chr(35),1) $inp(Level/Off~RESTRICT,1)
...OpGuard:cs SET $inp(Which Channel?~OPGUARD~$chr(35),1) OPGUARD $inp(On/Off~Set OPGUARD,1)
...Desc:cs SET $inp(Which Channel?~DESC~$chr(35),1) DESC $inp(New Description~Set DESC)
...-
...KeepTopic:cs SET $inp(Which Channel?~Keep Topic~$chr(35),1) KEEPTOPIC $inp(On/Off~Set KeepTopic,1) 
...TopicLock:cs TOPICLOCK $inp(Which Channel?~TopicLock~$chr(35),1) $inp(Lock Level/Off~Topic Lock,1)
...ModeLock:cs MLOCK $inp(Which Channel?~MLOCK~$chr(35),1) $inp(ex: =+nt-milksp)
...-
...Founder:cs SET $inp(Which Channel?~Set Founder~$chr(35),1) FOUNDER $inp(Channel Password~Set Founder~?*,1)
...ProtOP:cs SET $inp(Which Channel?~Set PROTOP~$chr(35),1) PROTOP $inp(On/Off~Set PROTOP,1)
...QuitT:cs SET $inp(Which Channel?~Set QUIET~$chr(35),1) QUIET $inp(On/Off~Set QUIET,1)
...-
...Password:cs SET $inp(Which Channel?~Set PASSWD~$chr(35),1) PASSWD $inp(New Password~Set PASSWD~?*,1) 
...AutoGreet:cs SET $inp(Which Channel?~Set AUTOGREET~$chr(35),1) AUTOGREET $inp(New Description/Off~Set AUTOGREET,1) 
...Ident:cs SET $inp(Which Channel?~Set IDENT~$chr(35),1) IDENT $inp(On/Off~Set IDENT,1)
...URL:cs SET $inp(Which Channel?~Set URL~$chr(35),1) URL $inp(New URL~Set URL,1) 
..Identify Channel:var %chan $inp(what channel?~Identify Channel~$chr(35),1) | var %pass $inp(enter password~Identify Channel~?*,1) | var %pass2 $inp(reenter password~Identify Channel~?*,1) | if (%pass == %pass2) cs Identify %chan %pass | else sr passwords don't confirm
..Register Channel:var %chan $inp(what channel?~Register Channel~$chr(35),1) | var %pass $inp(enter password~Register Channel~?*,1) | var %pass2 $inp(reenter password~Register Channel~?*,1) | if (%pass == %pass2) cs register %chan %pass $inp(description of %chan $+ ?~Register Channel~,1) | else sr passwords don't confirm
..-
..Unban:cs UNBAN $inp(Which Channel?~UNBAN,1) $inp(All/Me~UNBAN,1)
..InviteUrself:cs INVITE $inp(Invite Urself to Which Channel~INVITE~$chr(35),1)
..Access:cs ACCESS $inp(Which Channel?~ACCESS~$chr(35),1) $inp(Nick~ACCESS)
..-
..OP:cs OP $inp(Which Channel?~OP~$chr(35),1) $inp(Nick~OP,1)
..DeOP:cs DEOP $inp(Which Channel?~DEOP,1) $inp(Nick~DEOP,1)
..MDeOP:cs MDEOP $inp(Which Channel?~MDEOP~$chr(35),1)
..-
..ListAK:cs LISTAK $inp(Which Channel?~LISTAK~$chr(35),1)
..AddAK:cs ADDAK $inp(Which Channel?~ADDAK~$chr(35),1) $inp(nick!user@host~ADDAK,1) $inp(Reason~ADDAK)
..DelAK:cs DELAK $inp(Which Channel?~DELAK~$chr(35),1) $inp(nick!user@host/ListAK Number~DELAK,1)
..WipeAK:cs WIPEAK $inp(Which Channel?~ADDAK~$chr(35),1)
..MKick:cs MKICK $inp(Which Channel?~MKICK~$chr(35),1)
..-
..CleanChannel:cs CLEAN $inp(Which Channel?~CLEAN~$chr(35),1)
..-
..ExtraChanOP
...Add:cs ChanOP $inp(Which Channel?~ADD~$chr(35),1) ADD $inp(Nick~ADD,1) $inp(Access:3.5.8.10.13.15~ADD)
...Del:cs ChanOP $inp(Which Channel?~DEL~$chr(35),1) DEL $inp(Nick,DEL,1)
...List:cs ChanOP $inp(Which Channel?~LIST~$chr(35),1) LIST
..ExtraAKick
...AddAK:cs AKICK $inp(Which Channel?~AKICK~$chr(35),1) ADD $inp(nick!user@host~AKICK,1) $inp(Reason~AKICK)
...DelAK:cs AKICK $inp(Which Channel?~AKICK~$chr(35),1) DEL $inp(nick!user@host~AKICK,1)
...WipeAK:cs AKICK $inp(Which Channel?~AKICK~$chr(35),1) WIPE 
...ListAK:cs AKICK $inp(Which Channel?~AKICK~$chr(35),1) LIST
..ChanServHelp:cs help
.-
.NickServ
..Auto-Login:sr -t Warning  ADD your register nick here. Don`t Change Other Thing pls :) | nets 4
..-
..Identify:ns Identify $inp(Password~Identify Nick~?*,1)
..NickInfo:ns INFO $inp(Nick~INFO)
..-
..Ghost:ns Ghost $inp(nick~Ghost,1) $inp(Password~Ghost~?*,1)
..Release:ns release $inp(nick~Release,1) $inp(Password~Release~?*,1)
..-
..Access
...AccessList:ns ACCESS $inp(Nick~ACCESS)
...AddAccess:ns ACCESS ADD $inp(nick/user@host~ADDAccess,1) 
...DelAccess:ns ACCESS DEL $inp(nick/user@host|AccessList Number~DELAccess,1)
...List	[ $me ]:ns ACCESS list
..Setting	[ $me ]
...Address:ns SET ADDRESS $inp(Email~ADDRESS,1)
...Email:ns SET EMAIL $inp(On/Off~EMAIL,1)
...Kill:ns SET KILL $inp(On/Off~KILL,1)
...PASSWD:ns SET PASSWD $inp(New Password~PASSWD,1)
...-
...URL:ns SET URL $inp(URL ex:http://www.sorcery.net~URL)
...NoAddOP:ns SET NOADDOP $inp(On/Off~NOADDOP,1)
...Terse:ns SET TERSE $inp(On/Off~TERSE,1)
...IPHide:ns SET IPHIDE $inp(On/Off~IPHIDE,1)
...Vacation:ns vacation
..-
..Register	[ $me ]:ns REGISTER $inp(Your Password~RegisterNick~?*,1) $inp(Your Email/None~RegisterNick)
..DROP	[ $me ]:{ if ($?!="Are you sure you want to drop $+ $me $+ ?" = $true ) { var %pwd $inp(NickPassword~DROP,1) } } ns IDENTIFY %pwd | ns DROP 
..-
..NickServHelp:ns Help
.-
.MemoServ
..MemoList:ms List
..ReadMomo:ms Read $inp(Number ?~ReadMemo,1)
..SendMemo:ms Send $inp(to Nick/#channel?~SendMemo~$chr(35),1) $inp(Your Memo~SendMemo,1)
..DelMemo:ms Delete $inp(Delete Num/All/Read ?~DeleteMemo,1)
.-
.InfoServ
..InfoList:.msg InfoServ List
..ReadInfo:.msg InfoServ READ $inp(Num ?~ReadInfo,1)
..$s.opserv(operserv)
...InfoPost:.msg InfoServ Post $inp(importance~Post Info,1) $inp(Header~Post Info,1) $inp(Connent~Post Info,1)
...Help:.msg infoserv help post
.-
.GameServHelp:gs Help
.-
.$s.opserv(operserv)
..OperServHelp:os Help
.-
.Contact
..#Script:.j Script
..#eXtreme:.j eXtreme
..-
..#Sorcery:.j Sorcery
..#Help:.j Help
}
menu channel {
$_network
.ChannelInfo:cs INFO # }
.channelTopic:.topic $inp(New Topic:~Topic,1)
.channelAccess
..Access:cs ACCESS # $inp(Nick~ACCESS)
..ListOP
...nick:{ var %mode $inp(which nick~ListOP) } cs ListOP # -n %mode
...level:{ var %mode $inp(how many level~ListOP) } cs ListOP # -l %mode
..AddOP:{ var %nick $inp(Add What Nick ?~AddOP,1) | var %level $inp(Add Level:3.5.8.10.13.15?~AddOP) } cs ADDOP # %nick %level
..DelOP:{ var %nick $inp(Add What Nick ?~DelOP,1) } cs DELOP # %nick
.-
.AutoKick
..ListAK:cs LISTAK #
..AddAK:cs ADDAK # $inp(nick!user@host~ADDAK,1) $inp(Reason~ADDAK)
..DelAK:cs DELAK # $inp(nick!user@host/ListAK Number~DELAK,1)
..WipeAK:if ($?!="Are you sure you want to drop $+ # $+ ?" = $true ) cs WIPEAK #
.Mass Command
..MDeOP:if ($?!="Are you sure you want to Masskick $+ # $+ ?" = $true ) cs MDEOP #
..MKick:if ($?!="Are you sure you want to Masskick $+ # $+ ?" = $true ) cs MKICK #
.Ban:var %ban $inp(Ban nick~BAN,1) | .ban # $address(%ban,2) $inp(Ban Reason~BAN)
.Unban
..me/all:cs UNBAN # $inp(All/Me~UNBAN,1)
..nick/host:.unban # $inp(nick/host)
.-
.ChanSetting
..Restrict:cs RESTRICT # $inp(Level/Off~RESTRICT,1)
..OpGuard:cs SET # OPGUARD $inp(On/Off~Set OPGUARD,1)
..Desc:cs SET # DESC $inp(New Description~Set DESC)
..-
..KeepTopic:cs SET # KEEPTOPIC $inp(On/Off~Set KeepTopic,1) 
..TopicLock:cs TOPICLOCK # $inp(Lock Level/Off~Topic Lock,1)
..ModeLock:cs MLOCK # $inp(ex: =+nt-milksp)
..-
..Founder:cs SET # FOUNDER $inp(Channel Password~Set Founder~?*,1)
..ProtOP:cs SET # PROTOP $inp(On/Off~Set PROTOP,1)
..Quiet:cs SET # QUIET $inp(On/Off~Set QUIET,1)
..-
..PassWD:cs SET # PASSWD $inp(New Password~Set PASSWD~?*,1) 
..AutoGreet:cs SET # AUTOGREET $inp(New Description/Off~Set AUTOGREET,1) 
..Ident:cs SET # IDENT $inp(On/Off~Set IDENT,1)
..URL:cs SET # URL $inp(New URL~Set URL,1)
.CleanChannel:if ($?!="Are you sure you want to Clean $+ # $+ ?" = $true ) cs CLEAN #
.IdentChannel:var %pass $inp(enter password~Identify Channel~?*,1) | var %pass2 $inp(reenter password~Identify Channel~?*,1) | if (%pass == %pass2) cs Identify # %pass | else sr passwords don't confirm
.-
.RegisterChannel:var %pass $inp(enter password~Register Channel~?*,1) | var %pass2 $inp(reenter password~Register Channel~?*,1) | if (%pass == %pass2) cs register # %pass $inp(description of # ?~Register Channel~,1) | else sr passwords don't confirm
.DROPChannel:{ if ($?!="Are you sure you want to DROP $+ # $+ ?" = $true ) { var %pwd $inp(Channel Password~DROP~?*,1) | var %pwd2 $inp(Reenter Channel Password~DROP~?*,1) | if (%pass == %pass2) cs DROP # %pwd | else sr passwords don't confirm } }
.-
.NickServ
..NickInfo:ns INFO $inp(Nick~INFO)
..Identify[ $me ]:ns Identify $inp(Password~Identify Nick~?*,1)
..-
..Ghost:ns Ghost $inp(nick~Ghost,1) $inp(Password~Ghost~?*,1)
..Release:ns release $inp(nick~Release,1) $inp(Password~Release~?*,1)
..-
..Access
...AccessList:ns ACCESS $inp(Nick~ACCESS)
...AddAccess:ns ACCESS ADD $inp(nick/user@host~ADDAccess,1) 
...DelAccess:ns ACCESS DEL $inp(nick/user@host|AccessList Number~DELAccess,1)
...List[ $me ]:ns ACCESS list
..Setting [ $me ]
...Address:ns SET ADDRESS $inp(Email~ADDRESS,1)
...Email:ns SET EMAIL $inp(On/Off~EMAIL,1)
...Kill:ns SET KILL $inp(On/Off~KILL,1)
...PASSWD:ns SET PASSWD $inp(New Password~PASSWD,1)
...-
...URL:ns SET URL $inp(URL ex:http://www.sorcery.net~URL)
...NoAddOP:ns SET NOADDOP $inp(On/Off~NOADDOP,1)
...Terse:ns SET TERSE $inp(On/Off~TERSE,1)
...IPHide:ns SET IPHIDE $inp(On/Off~IPHIDE,1)
...Vacation:ns vacation
..-
..Register[ $me ]:var %mail $inp(your email address/None?~Register Nick,1) | var %nickpass $inp(enter password~Register Nick~?*,1) | var %nickpass2 $inp(reenter password~Register Nick~?*,1) | if (%nickpass == %nickpass2) ns register %nickpass %mail | else sr passwords don't confirm
..DropNick[ $me ]:{ if ($?!="Are you sure you want to drop $+ $me $+ ?" = $true ) { var %nickpass $inp(enter password~Register Nick~?*,1) | var %nickpass2 $inp(reenter password~Register Nick~?*,1) | if (%nickpass == %nickpass2) ns DROP | else sr passwords don't confirm } }
.-
.MemoServ
..MemoList:ms List
..ReadMomo:ms Read $inp(Number ?~ReadMemo,1)
..SendMemo:ms Send $inp(to Nick/#channel?~SendMemo~$chr(35),1) $inp(Your Memo~SendMemo,1)
..DelMemo:ms Delete $inp(Delete Num/All/Read ?~DeleteMemo,1)
}
menu nicklist {
$network
.$iif($snick(#,1) isvoice #, snicks -voice, snicks +voice):var %tr = $chr(44) | var %tr2 = $chr(32) | set %newstuff $replace($snicks,%tr,%tr2) { if ($snick(#,1) isvoice $active) { .devoice # %newstuff } | else { .voice # %newstuff } | unset %newstuff }
.$iif($snick(#,1) isop #, snicks -op, snicks +op):var %i = $numtok($snicks,44) | while (%i >= 1 ) { if ($snick(#,%i) isop $chan) { cs DEOP # $snick(#,%i) } | else { cs OP # $snick(#,%i) } | dec %i }
.$iif($_icancontrol,$iif($snick(#,1) isop #, deop/voice)):changemode # o+v $snicks $snicks
.-
.$iif($snick(#,2),masskick,kick):var %reason $inp(Reason~Kick) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { .kick # $snick(#,%i) %reason | dec %i } 
.$iif($snick(#,2),massban,ban):var %reason $inp(Reason~Ban) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { .ban # $snick(#,%i) %reason | dec %i } 
.$iif($snick(#,2),masskickban,kickban)
..$iif($snick(#,2),*!ident@host, $address($snick(#,1),0)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),0) %reason } { .ban # $address($snick(#,%i),0) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*ident@host, $address($snick(#,1),1)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),1) %reason } { .ban # $address($snick(#,%i),1) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*@host, $address($snick(#,1),2)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),2) %reason } { .ban # $address($snick(#,%i),2) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*ident@*.host, $address($snick(#,1),3)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),3) %reason } { .ban # $address($snick(#,%i),3) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*@*.host, $address($snick(#,1),4)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),4) %reason } { .ban # $address($snick(#,%i),4) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..-
..$iif($snick(#,2),*!ident@???.host, $address($snick(#,1),10)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),10) %reason } { .ban # $address($snick(#,%i),10) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*ident@???.host, $address($snick(#,1),11)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),11) %reason } { .ban # $address($snick(#,%i),11) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),*!*@???.host, $address($snick(#,1),12)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),12) %reason } { .ban # $address($snick(#,%i),12)%reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..-
..$iif($snick(#,2),nick!ident@???.host, $address($snick(#,1),5)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),5) %reason } { .ban # $address($snick(#,%i),5) %switch %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),nick!*ident@host, $address($snick(#,1),6)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),6) %reason } { .ban # $address($snick(#,%i),6) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),nick!*@host, $address($snick(#,1),7)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),7) %reason } { .ban # $address($snick(#,%i),7) %reason } { .kick # $snick(#,%i) %reason | dec %i } } } 
..$iff($snick(#,2),nick!*ident@*.host, $address($snick(#,1),8)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),8) %reason } { .ban # $address($snick(#,%i),8) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),nick!*@*.host, $address($snick(#,1),9)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),9) %reason } { .ban # $address($snick(#,%i),9) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..-
..$iif($snick(#,2),nick!ident@???.host, $address($snick(#,1),15)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),15) %reason } { .ban # $address($snick(#,%i),15) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),nick!*ident@???.host, $address($snick(#,1),16)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),16) %reason } { .ban # $address($snick(#,%i),16) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
..$iif($snick(#,2),nick!*@???.host, $address($snick(#,1),17)):{ if ($?!="ADDAK & BanUser?" = $true ) { var %reason $inp(Reason~Banhost) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDAK # $address($snick(#,%i),17) %reason } { .ban # $address($snick(#,%i),17) %reason } { .kick # $snick(#,%i) %reason | dec %i } } }
.-
.$iif($snick(#,2),multifastkick,fastkick):var %i = $numtok($snicks,44) | while (%i >= 1 ) { .kick # $snick(#,%i) $read(sys\kicks.txt) | dec %i }
.$iif($snick(#,2),multifastkickban,fastkickban):var %i = $numtok($snicks,44) | while (%i >= 1 ) { .ban # $snick(#,%i) $read(sys\kicks.txt) | dec %i }
.$iif($snick(#,2),multifastbanhost,fastbanhost):var %i = $numtok($snicks,44) | while (%i >= 1 ) { .ban # $address($snick(#,%i),2) $read(sys\kicks.txt) | dec %i }
.Unban
..$iif($snick(#,2),multi Unban, Unban $address($snick(#,1),2)):var %i = $numtok($snicks,44) | while (%i >= 1 ) { .unban $snick(#,%i) } { .unban $address($snick(#,%i),2) } { .unban $address($snick(#,%i),3) }
..unban host:.unban # $inp(Host~UNBAN,1)
.-
.ChanServ
..$iif($snick(#,2),Access	[snick],Access	[ $snick(#,1) ]):var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ACCESS # $snick(#,%i) | dec %i }
..$iif($snick(#,2),ListOP	[snick],ListOP	[ $snick(#,1) ]):var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ListOP # -n $snick(#,%i) | dec %i }
..$iif($snick(#,2),AddOP	[snick],AddOP	[ $snick(#,1) ]):var %level $inp(Add Level:3.5.8.10.13.15?~AddOP) | var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs ADDOP # $snick(#,%i) | dec %i } 
..$iif($snick(#,2),DelOP	[snick],DelOP	[ $snick(#,1) ]):{ if ($?!="are you sure want DELuser?" = $true ) { var %i = $numtok($snicks,44) | while (%i >= 1 ) { cs DELOP # $snick(#,%i) | dec %i } } }
.NickServ
..$iif($snick(#,2),NickInfo	[snick],Info	[ $snick(#,1) ]):var %i = $numtok($snicks,44) | while (%i >= 1 ) { ns INFO $snick(#,%i) | dec %i }
..-
..Access
...$iif($snick(#,2),List[snick],List	[ $snick(#,1) ]):{ var %i = $numtok($snicks,44) | while (%i >= 1 ) { ns ACCESS $snick(#,%i) | dec %i } }
...$iif($snick(#,2),Add	[snick],Add	[ $snick(#,1) ]):{ if ($?!="ADD Access $address($snick(#,%i),9) ?" = $true ) { var %i = $numtok($snicks,44) | while (%i >= 1 ) { ns ACCESS ADD $address($snick(#,%i),9) |dec %i } } }
...$iif($snick(#,2),Del	[snick],Del	[ $snick(#,1) ]):{ if ($?!="ADD Access $address($snick(#,%i),9) ?" = $true ) { var %i = $numtok($snicks,44) | while (%i >= 1 ) { ns ACCESS DEL $address($snick(#,%i),9) |dec %i } } }
...List	[ $me ]:ns ACCESS list
..-
..Identify	[ $me ]:ns Identify $inp(Password~Identify Nick~?*,1)
..Register	[ $me ]:var %mail $inp(your email address/None?~Register Nick,1) | var %nickpass $inp(enter password~Register Nick~?*,1) | var %nickpass2 $inp(reenter password~Register Nick~?*,1) | if (%nickpass == %nickpass2) ns register %nickpass %mail | else sr passwords don't confirm
..DropNick	[ $me ]:{ if ($?!="Are you sure you want to drop $+ $me $+ ?" = $true ) { var %nickpass $inp(enter password~Register Nick~?*,1) | var %nickpass2 $inp(reenter password~Register Nick~?*,1) | if (%nickpass == %nickpass2) ns DROP | else sr passwords don't confirm } }
}
menu query {
$_network
.ChanServ
..kick	[ $$1 ]:.kick $inp(Which channel?~KICK~$chr(35),1) $$1
..ban	[ $$1 ]:.ban $inp(Which channel?~BAN~$chr(35),1) $$1
..unban	[ $$1 ]:.unban $inp(Which channel?~UNBAN~$chr(35),1) $$1
..AddAK	[ $$1 ]:cs ADDAK $inp(Which channel?~ADDAK~$chr(35),1) $address($$1,2) $inp(Reason~ADDAK)
..DelAK	[ $$1 ]:cs DELAK $inp(Which channel?~DELAK~$chr(35),1) $address($$1,2) 
.NickServ
..NickInfo	[ $$1 ]:ns INFO $1
..-
..Identify	[ $me ]:ns Identify $inp(Password~Identify Nick~?*,1)
..Access
...AccessList	[ $$1 ]:ns ACCESS $$1
...AddAccess	[ $$1 ]:if ($?!="ADD $address($$1,9) ?" = $true ) ns ACCESS ADD $address($$1,9)
...DelAccess	[ $$1 ]:if ($?!="DEL $address($$1,9) ?" = $true ) ns ACCESS DEL $address($$1,9)
}
#spopup end
.