/ScriptServ

$`query.pre:{ }
%`pn.info.s
.&whois:{ .quote whois $1 }
.whois++:{ .quote whois $1 $1 }
.&dns:{ dns $1 }
.&identd:{ ident $1 }
.-
.&log:{ logs $1 }
.&ucentral...:{ uwho $1 }
.&abook...:{ abook $1 }
.&finger:{ finger $1 }
.-
.$iif($_portscan.addonver,port&scan):{ portscan $_gethost($1) }
.$iif($_portscan.addonver,&ports?...):{ portscan $_gethost($1) ? }
;
%`pn.users.u
.&dialog:{ user $_nick2hand($_activequery) }
.&info:{ uwhois $_nick2hand($_activequery) }
.&chattr (global):{ _menutmpchattr $_nick2hand($_activequery) }
.&addhost:{ +host $_nick2hand($_activequery) $_addyparam($_getaddress($1,5),$null,1,Add host [/+host],ismask,$null,$chan,Add host to [ $_nick2hand($_activequery) ] )  }
.%`pn.remhost:{ -host $_nick2hand($_activequery) $_select($null,1,Remove host [/-host],normal,$null,32,$_ruini($_nick2hand($_activequery),hosts),Remove host from user<CRLF> [ $_nick2hand($_activequery) ] ) }
.change &password:{ chpass $_nick2hand($_activequery) $_parameterpass($null,0,Change User Password [/chpass],1,$_userpass($_nick2hand($_activequery)),Password for [ $_nick2hand($_activequery) ] <CRLF>[blank for none]) }
.remove &user:{ -user $_nick2hand($_activequery) }
.-
.nick $+ $chr(58) $_activequery :{ return }
.handle $+ $chr(58) $_nick2hand($_activequery) :{ return }
;
%`pn.users.n
.$iif($_not($_isuser($_activequery)),add &user)
..&no flags $+ $chr(9) $+ -:{ _menuadduser $$1 + }
..-
..$iif($_sanitycheck($_getsetup(script,default-flags)) != $null,&default [ $_nospaces($chr(9),+,$_sanitycheck($_getsetup(script,default-flags))) ] ):{ adduser $$1 }
..&friend $+ $chr(9) $+ +f:{ _menuadduser $$1 f }
..&voice $+ $chr(9) $+ +v:{ _menuadduser $$1 v }
..&op $+ $chr(9) $+ +o:{ _menuadduser $$1 o }
..&aop $+ $chr(9) $+ +ao:{ _menuadduser $$1 ao }
..&partline $+ $chr(9) $+ +p:{ _menuadduser $$1 p }
..&kick $+ $chr(9) $+ +k:{ _menuadduser $$1 k }
..&deop $+ $chr(9) $+ +d:{ _menuadduser $$1 d }
..-
..&bot $+ $chr(9) $+ +b:{ +bot $$1 $null $_getaddress($$1,%_maskuser) }
..&egg $+ $chr(9) $+ +bB (egg):{ addegg $$1 }
.add user &as
..&no flags $+ $chr(9) $+ -:{ _menuadduser2 $$1 + }
..-
..$iif($_sanitycheck($_getsetup(script,default-flags)) != $null,&default [ $_nospaces($chr(9),+,$_sanitycheck($_getsetup(script,default-flags))) ] ):{ _menuadduser2 $$1 $_getsetup(script,default-flags) }
..&friend $+ $chr(9) $+ +f:{ _menuadduser2 $$1 fhpx }
..&voice $+ $chr(9) $+ +v:{ _menuadduser2 $$1 vhpx }
..&op $+ $chr(9) $+ +o:{ _menuadduser2 $$1 ohpx }
..&aop $+ $chr(9) $+ +ao:{ _menuadduser2 $$1 aohpx }
..&partline $+ $chr(9) $+ +p:{ _menuadduser2 $$1 hpx }
..&kick $+ $chr(9) $+ +k:{ _menuadduser2 $$1 k }
..&deop $+ $chr(9) $+ +d:{ _menuadduser2 $$1 d }
.&addhost:{ _addhost2nick $$1 $_addyparam($_getaddress($1,5),$null,1,Add host [/+host],ismask,$null,$chan,Host to add:)  }
.-
.nick $+ $chr(58) $_activequery :{ return }
;
%`pn.ignore.m
.&dialog:{ _ignore.dialog $1 }
.&permanent
..&quick:{ _ignore.addperm -pcntik $1 }
..&comment...:{ _ignore.addperm -pcntik $1 $_rparam(normal,$null,ignorereason,$null,Ignore comment:) }
.&temp [[ $+ $_duration($calc($iif($_isint($round($_getsetup(script,ignore-time),0)),$round($_getsetup(script,ignore-time),0),15) * 60)) $+ ]]
..&quick:{ _ignore.addtemp -pcntik $1 }
..&comment...:{ _ignore.addtemp -pcntik $1 $_rparam(normal,$null,ignorereason,$null,Ignore comment:) }
.-
.&unignore:{ _ignore.rem $1 }
;
%`pn.notify.s:{ notifyd $1 }
-
%`pn.ircop.i
.&kill...:{ kill $1 }
.%`pn.ircop.s
..%`pn.addy.0:{ kline $_snicks2mask($1,0) }
..%`pn.addy.1:{ kline $_snicks2mask($1,1) }
..%`pn.addy.2:{ kline $_snicks2mask($1,2) }
..%`pn.addy.3:{ kline $_snicks2mask($1,3) }
..%`pn.addy.4:{ kline $_snicks2mask($1,4) }
..%`pn.addy.5:{ kline $_snicks2mask($1,5) }
..%`pn.addy.6:{ kline $_snicks2mask($1,6) }
..%`pn.addy.7:{ kline $_snicks2mask($1,7) }
..%`pn.addy.8:{ kline $_snicks2mask($1,8) }
..%`pn.addy.9:{ kline $_snicks2mask($1,9) }
..-
..by &nick...:{ kline $1 }
;
%`pn.allchans.s
.&op/voice
..&op	+o:{ cop $1 }
..deop	-o:{ cdeop $$1 }
..&voice	+v:{ cvoice $$1 }
..devoice	-v:{ cdevoice $$1 }
..&deop/devoice	-ov:{ cdeov $$1 }
.-
.&kick
..&quick:{ ckick $1 }
..&reason...:{ ckick $1 $_rparam(normal,$null,kickreason,$null,Kick reason:) }
.&dialog:{ kbd #* $$1 }
.-
.&ban:{ cban $1 }
.ban t&ypes
..%`pn.addy.0:{ cban $1 0 }
..%`pn.addy.1:{ cban $1 1 }
..%`pn.addy.2:{ cban $1 2 }
..%`pn.addy.3:{ cban $1 3 }
..%`pn.addy.4:{ cban $1 4 }
..%`pn.addy.5:{ cban $1 5 }
..%`pn.addy.6:{ cban $1 6 }
..%`pn.addy.7:{ cban $1 7 }
..%`pn.addy.8:{ cban $1 8 }
..%`pn.addy.9:{ cban $1 9 }
.&temp ban...:{ cban -u $+ $_param(isint,$null,Enter number of seconds to ban:) $1 }
.-
.kick/ban
..&quick:{ ckb $1 }
..&reason...:{ ckb $1 $_rparam(normal,$null,kickreason,$null,Kick/Ban reason:) }
..&temp...:{ ckb -u $+ $_param(isint,$null,Enter number of seconds to kick/ban:) $1 }
.ban/kick
..&quick:{ cbk $1 }
..&reason...:{ cbk $1 $_rparam(normal,$null,kickreason,$null,Ban/Kick reason:) }
..&temp...:{ cbk -u $+ $_param(isint,$null,Enter number of seconds to ban/kick:) $1 }
-
$iif(=* iswm $active,dcc &ping):{ dccping $1 }
%`pn.dcc
.&send...:{ dcc send $1 }
.&chat:{ dcc chat $1 }
.$iif(=* iswm $active,dcc &ping):{ dccping $1 }
;
%`pn.ctcp
.&ping:{ ctcp $1 ping }
.p&age...:{ ctcp $1 page $_param(normal,$null,Message:) }
.&version:{ ctcp $1 version }
.&clientinfo:{ ctcp $1 clientinfo }
.&finger:{ ctcp $1 finger }
.&time:{ ctcp $1 time }
.&userinfo:{ ctcp $1 userinfo }
.&xdcc
..&list:{ ctcp $1 xdcc list }
..&get...:{ ctcp $1 xdcc get $_param(1,$null,Packet:) }
..-
..&help:{ ctcp $1 xdcc help }
.-
.c&tcp ?...:{ ctcp $1 $_param(normal,$null,< CTCP > [ Parameters ]) }
;
%`pn.commands
.$iif($active != $query($active),&query):{ query $1 }
.&invite...:{ invite $1 $_param(ischan,$null,Channel to invite to:) }
.&notice...:{ notice $1 }
$`menutmp.post:{ }