[start]
network=The-IRC
servis.nick=Nickserv,X,Memoserv,UWorld
servis.site=The-IRC.Org
clonemask=2
ialupd=1
idenon=3
k2b.string=*nick is owned by someone else*
k2b.command=nickserv identify <pass>
[popups]
#spopup on
menu status {
$_network
.X
..unban
...Self:msg x unban $inp(Channel to unban self from?)
...All:msg x unban $inp(Channel To unban all?) *
..invite self:msg x invite $$?="Channel to invite self to?"
..founder login:msg x identify $$?="Channel to perform founder login on?" $inp(Enter password~Founder login~?*,1)
..-
..chan info:msg x info $$?="Channel to get X info for?"
..-
..Deop:msg x deop $inp(Enter Channel Name) $inp(Enter Nick To Deop)
..-
.nickserv
..auto-login:nets 4
..-
..info:ns info $$?="nick"
..identify:perflog
..-
..ghost kill:var %n = $$?="Nickname (ghost) to kill?" | if ($_reg.pass(%n)) var %p = $ifmatch | else var %p = $inp(Enter password~Ghost~?*,1) | ns ghost %n %p
..Recover:ns recover $inp(Enter Nick To Recover) $inp(Enter Password)
..Release:ns release $inp(Enter Nick To Release) $inp(Enter Password)
..-
..registration
...register $me $+ ...:ns REGISTER $$?="Password for $me $+ ?" $?="Email?"
...drop (unregister) $me:if ($?!="Are you sure you want to drop " $+ $me $+ "?") ns DROP $$?="Enter extrapass"
..Access  
....Add:ns access add $inp(Enter HostMask)
....Del:ns access del $inp(Del Hostmask)
...List:ns access list 
...Wipe:ns access wipe
..Drop:ns drop $inp(Enter Nick To Drop)
...-
...Set
...password:ns set password $inp(Enter OLD password) $inp(Enter New Password) 
...url
....set...:ns set url $$?="New URL to store in NickServ for $me $+ ?"
....clear:ns set url
...email
....set...:ns set email $$?="New email to store in NickServ for $me $+ ?"
....clear:ns set email
...ShowEmail
....On:ns set showemail on 
....Off:ns set showemail off
...Kill/Enforce
....On:ns set kill on 
....Off:ns set kill off
...NoMemo
....On:ns set nomemo on 
....Off:ns set nomemo off 
...NoOp
....On:ns set noop on
....off:ns set noop off
.memoserv
..list memos:ms list
..read memo:ms read $$?="what memo?"
..delete memo
...all:ms del all
...custom:ms del $$?="what memo?"
..-
..send memo:.ms send $?="Send to..?" $?="Memo to send via MemoServ to $! $+ ?"
..Forward
...On:ms forward $inp(Enter Nick To Forward To)
...Off:ms forward -
}
menu channel {
$_network
.$iif(o isin $usermode,X)
..akill
...akill add:msg x akill add $$?="enter mask to add" $$?="enter reason"
...akill del:msg x akill del $$?="enter mask to delete"
...-
...akill list:msg x akill list $$?="enter masks to list"
...akill view:msg x akill view $$?="enter mask"
..-
..global msg:os global $$?="enter message"
..stats:stats $$?="what stats?"
.-
.register channel:echo Please visit Http://www.the-irc.org to register channels
.info on channel:msg x info #
.-
.founder
..identify channel:cs identify # $inp(Enter password~Founder login~?*,1)
..channel modes:cs set # mlock $inp(Enter channel modes (+-stimpnkl))
..change password:cs set # password $inp(Enter new channel password)
..-
..set
...Founder:cs set # founder $inp(Enter new founder)
...Successor:cs set # Successor $inp(Enter NickName)
...WebPasswd:cs set # Webpasswd $inp(Enter Your Web Password)
...-
...desc:cs set # desc $inp(desc?)
...url:cs set # url $inp(Enter New Url)
...-
...private
....on:cs set # private on
....off:cs set # private off
...keep topic
....on:cs set # keeptopic on
....off:cs set # keeptopic off
...-
...topic lock
....on:cs set # topiclock on
....off:cs set # topiclock off
...Opguard
....on:cs set # opguard on
....off:cs set # opguard off
...-
...Restrict
....on:cs set # Restrict on
....off:cs set # Restric off 
...Verbose
....on:cs set # versbose on 
....off:cs set # Verbose off 
...Ident
....on:cs set # Ident on 
....off:cs set # ident off
..Wipe
...Aop:cs Aop # Wipe 
...Sop:cs sop # wipe
...Akick:cs akick # Wipe 
..-
..MemoLevel:cs set # Memo $inp(Aop Sop Founder?)
..drop channel:cs drop #
.-
.AOP
..add:cs aop # add $inp(Enter Nick)
..delete:cs aop # del $inp(Enter nick)
..list:cs aop # list
.SOP
..Add:cs sop # add $inp(Enter Nick)
..Del:cs Sop # Del $inp(Enter Nick)
..List:cs sop # List 
.Akick
..Add:cs akick # add $inp(Nick/Hostmask?)
..Del:cs akick # del $inp(Nick/hostmask?)
..List Akick:cs akick # list
.-
.Help:msg x help
}
menu nicklist {
$_network
..$s.opserv(operserv)
..op:msg x op # $$1
..deop:msg x deop # $$1
..-
..akill
...akill add:msg x akill add $$?="enter mask to add" $?="enter reason for akill"
...akill del:msg x akill del $$?="enter mask to delete from akill"
...-
...akill view:msg x akill view $$?="enter desired mask"
..akill list:msg x akill list $$?="enter mask(s) to list"
.-
.$iif(%§.s^c,$iif($snick(#,1) isop #,deop (X) ,op (X))):chopdeop # $snicks
.-
.why:msg x info #the-irc
.-
.AOP
..add:msg X Access # ADD $$1 5
..del:msg X Access # DEL $$1 
.SOP
..add:msg X Access # DEL $$1 3
..del:msg X Access # DEL $$1
.-
.akick
..add:msg X akick # add $1
..delete:msg X akick # del $1
..-
..list:msg X akick # list
}
#spopup end
.