/ScriptServ

$`nicklist.pre:{ }
%`pn.info.m
.&whois:{ .quote whois $snicks }
.whois++:{ .quote whois $1 $1 }
.&dns:{ _nikloop dns 

 }
.&identd:{ _nickloop ident 

 }
%`pn.info.s
.&whois:{ .quote whois $snicks }
.whois++:{ .quote whois $1 $1 }
.&dns:{ dns $snick(#,1) }
.&identd:{ ident $snick(#,1) }
.-
.&log:{ logs $1 }
.&ucentral:{ uwho $snick(#,1) }
.&abook:{ abook $snick(#,1) }
.&finger:{ finger $snick(#,1) }
.-
.$iif($_portscan.addonver,port&scan):{ portscan $_gethost($snick(#,1)) }
.$iif($_portscan.addonver,&ports?...):{ portscan $_gethost($snick(#,1)) ? }
;
%`pn.users.u
.&dialog:{ user $_nick2hand($snick(#,1)) }
.&info:{ uwhois $_nick2hand($snick(#,1)) }
.chattr (global):{ _menutmpchattr $_nick2hand($snick(#,1)) }
.chattr ( $+ $chan $+  ):{ _menutmpchattr $_nick2hand($snick(#,1)) # }
.&addhost:{ +host $_nick2hand($snick(#,1)) $_addyparam($_getaddress($1,5),$null,1,Add host [/+host],ismask,$null,$chan,Add host to [ $_nick2hand($snick(#,1)) ] )  }
.%`pn.remhost:{ -host $_nick2hand($snick(#,1)) $_select($null,1,Remove host [/-host],normal,$null,32,$_ruini($_nick2hand($snick(#,1)),hosts),Remove host from user<CRLF> [ $_nick2hand($snick(#,1)) ] ) }
.change &password:{ chpass $_nick2hand($snick(#,1)) $_parameterpass($null,0,Change User Password [/chpass],1,$_userpass($_nick2hand($snick(#,1))),Password for [ $_nick2hand($snick(#,1)) ] <CRLF>[blank for none]) }
.remove &user:{ -user $_nick2hand($snick(#,1)) }
.-
.nick $+ $chr(58) $snick(#,1) :{ return }
.handle $+ $chr(58) $_nick2hand($snick(#,1)) :{ return }
;
%`pn.users.n
.$iif($_not($_isuser($snick(#,1))),add &user)
..&no flags $+ $chr(9) $+ -:{ _menuadduser $$1 + }
..-
..$iif($_sanitycheck($_getsetup(script,default-flags)) != $null,&default [ $_nospaces($chr(9),+,$_sanitycheck($_getsetup(script,default-flags))) ] ):{ _menuadduser $$1 $_getsetup(script,default-flags) }
..&friend $+ $chr(9) $+ +f:{ _menuadduser $$1 fhpx }
..&voice $+ $chr(9) $+ +v:{ _menuadduser $$1 vhpx }
..&op $+ $chr(9) $+ +o:{ _menuadduser $$1 ohpx }
..&aop $+ $chr(9) $+ +ao:{ _menuadduser $$1 aohpx }
..&partline $+ $chr(9) $+ +p:{ _menuadduser $$1 hpx }
..&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) $snick(#,1) :{ return }
;
%`pn.ignore.m
.$iif($snick(#,0) == 1,&dialog):{ _ignore.dialog $1 }
.&permanent
..&quick:{ _ignore.addperm -pcntik $snicks }
..&comment...:{ _ignore.addperm -pcntik $snicks $_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 $snicks }
..&comment...:{ _ignore.addtemp -pcntik $snicks $_rparam(normal,$null,ignorereason,$null,Ignore comment:) }
.-
.&unignore:{ _ignore.rem $snicks }
;
%`pn.notify.s:{ notifyd $1 }
%`pn.notify.m
.&add:{ _mnotify - $1- }
.&rem:{ _mnotify -r $1- }
-
%`pn.ircop.i
.&kill...:{ kill $snicks }
.%`pn.ircop.s
..%`pn.addy.0:{ kline $_snicks2mask(0) }
..%`pn.addy.1:{ kline $_snicks2mask(1) }
..%`pn.addy.2:{ kline $_snicks2mask(2) }
..%`pn.addy.3:{ kline $_snicks2mask(3) }
..%`pn.addy.4:{ kline $_snicks2mask(4) }
..%`pn.addy.5:{ kline $_snicks2mask(5) }
..%`pn.addy.6:{ kline $_snicks2mask(6) }
..%`pn.addy.7:{ kline $_snicks2mask(7) }
..%`pn.addy.8:{ kline $_snicks2mask(8) }
..%`pn.addy.9:{ kline $_snicks2mask(9) }
..by &nick...:{ kline $snicks }
.%`pn.ircop.m
..%`pn.addy2.0:{ kline $_snicks2mask(0) }
..%`pn.addy2.1:{ kline $_snicks2mask(1) }
..%`pn.addy2.2:{ kline $_snicks2mask(2) }
..%`pn.addy2.3:{ kline $_snicks2mask(3) }
..%`pn.addy2.4:{ kline $_snicks2mask(4) }
..%`pn.addy2.5:{ kline $_snicks2mask(5) }
..%`pn.addy2.6:{ kline $_snicks2mask(6) }
..%`pn.addy2.7:{ kline $_snicks2mask(7) }
..%`pn.addy2.8:{ kline $_snicks2mask(8) }
..%`pn.addy2.9:{ kline $_snicks2mask(9) }
..-
..by &nick...:{ kline $snicks }
;
%`pn.kick.s:{ kick $snicks }
%`pn.opvoice.s
.$iif($snicks !isop #,&op	+o):{ op $$1- }
.$iif($snicks isop #,&deop	-o):{ deop $$1- }
.$iif($snicks !isvo #,&voice	+v):{ voice $$1- }
.$iif($snicks isvo #,&devoice	-v):{ devoice $$1- }
.$iif(($snicks isop #) && ($snicks isvo #),&deop/devoice	-ov):{ deov $$1- }
.-
%`pn.wclones.s
..&op	+o:{ op $_address($snicks,%_maskclon) }
..deop	-o:{ deop $_address($snicks,%_maskclon) }
..&voice	+v:{ voice $_address($snicks,%_maskclon) }
..devoice	-v:{ devoice $_address($snicks,%_maskclon) }
..&deop/devoice	-ov:{ deov $_address($snicks,%_maskclon) }
..-
..clones $+ $chr(58) %`pn.clonicks:{ return }
;
%`pn.opvoice.m
.&op	+o:{ op $$1- }
.deop	-o:{ deop $$1- }
.&voice	+v:{ voice $$1- }
.devoice	-v:{ devoice $$1- }
.&deop/devoice	-ov:{ deov $$1- }
.-
.%`pn.wclones.m
..&op	+o:{ op $_snicks2mask(%_maskclon) }
..deop	-o:{ deop $_snicks2mask(%_maskclon) }
..&voice	+v:{ voice $_snicks2mask(%_maskclon) }
..devoice	-v:{ devoice $_snicks2mask(%_maskclon) }
..&deop/devoice	-ov:{ deov $_snicks2mask(%_maskclon) }
%`pn.kickban.s
.&kick
..&quick:{ kick $snicks }
..&reason...:{ kick $snicks $_rparam(normal,$null,kickreason,#,Kick reason:) }
.&dialog:{ kbd $chan $$1 }
.-
.&ban:{ ban $snicks }
.ban t&ypes
..%`pn.addy.0:{ ban $snicks 0 }
..%`pn.addy.1:{ ban $snicks 1 }
..%`pn.addy.2:{ ban $snicks 2 }
..%`pn.addy.3:{ ban $snicks 3 }
..%`pn.addy.4:{ ban $snicks 4 }
..%`pn.addy.5:{ ban $snicks 5 }
..%`pn.addy.6:{ ban $snicks 6 }
..%`pn.addy.7:{ ban $snicks 7 }
..%`pn.addy.8:{ ban $snicks 8 }
..%`pn.addy.9:{ ban $snicks 9 }
.&temp ban...:{ ban -u $+ $_param(isint,$null,Enter number of seconds to ban:) $snicks }
.-
.kick/ban
..&quick:{ kb $snicks }
..&reason...:{ kb $snicks $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
..&temp...:{
  kb -u $+ $_param(isint,$null,Enter number of seconds to kick/ban:) $snicks
}
.ban/kick
..&quick:{ bk $snicks }
..&reason...:{ bk $snicks $_rparam(normal,$null,kickreason,#,Ban/Kick reason:) }
..&temp...:{ bk -u $+ $_param(isint,$null,Enter number of seconds to ban/kick:) $snicks }
.-
%`pn.wclones.s
..&kick
...&quick:{ kick $_address($snicks,%_maskclon) }
...&reason...:{ kick $_address($snicks,%_maskclon) $_rparam(normal,$null,kickreason,#,Kick reason:) }
..kick/ban
...&quick:{ kb $_address($snicks,%_maskclon) }
...&reason...:{ kb $_address($snicks,%_maskclon) $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
..ban/kick
...&quick:{ bk $_address($snicks,%_maskclon) }
...&reason...:{ bk $_address($snicks,%_maskclon) $_rparam(normal,$null,kickreason,#,Ban/Kick reason:) }
..-
..clones $+ $chr(58) %`pn.clonicks:{ return }
;
%`pn.kickban.m
.&kick
..&quick:{ kick $snicks }
..&reason...:{ kick $snicks $_rparam(normal,$null,kickreason,#,Kick reason:) }
.-
.&ban:{ ban $snicks }
.ban t&ypes
..%`pn.addy2.0:{ ban $snicks 0 }
..%`pn.addy2.1:{ ban $snicks 1 }
..%`pn.addy2.2:{ ban $snicks 2 }
..%`pn.addy2.3:{ ban $snicks 3 }
..%`pn.addy2.4:{ ban $snicks 4 }
..%`pn.addy2.5:{ ban $snicks 5 }
..%`pn.addy2.6:{ ban $snicks 6 }
..%`pn.addy2.7:{ ban $snicks 7 }
..%`pn.addy2.8:{ ban $snicks 8 }
..%`pn.addy2.9:{ ban $snicks 9 }
.&temp ban...:{ ban -u $+ $_param(isint,$null,Enter number of seconds to ban:) $snicks }
.-
.kick/ban
..&quick:{ kb $snicks }
..&reason...:{ kb $snicks $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
..&temp...:{ kb -u $+ $_param(isint,$null,Enter number of seconds to kick/ban:) $snicks }
.ban/kick
..&quick:{ bk $snicks }
..&reason...:{ bk $snicks $_rparam(normal,$null,kickreason,#,Ban/Kick reason:) }
..&temp...:{ bk -u $+ $_param(isint,$null,Enter number of seconds to ban/kick:) $snicks }
.-
.%`pn.wclones.m
..&kick
...&quick:{ kick $_snicks2mask(%_maskclon) }
...&reason...:{ kick $_snicks2mask(%_maskclon) $_rparam(normal,$null,kickreason,#,Kick reason:) }
..kick/ban
...&quick:{ kb $_snicks2mask(%_maskclon) }
...&reason...:{ kb $_snicks2mask(%_maskclon) $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
;
%`pn.allchans.s
.&op/voice
..&op	+o:{ cop $snicks }
..deop	-o:{ cdeop $snicks }
..&voice	+v:{ cvoice $snicks }
..devoice	-v:{ cdevoice $snicks }
..&deop/devoice	-ov:{ cdeov $snicks }
.-
.&kick
..&quick:{ ckick $snicks }
..&reason...:{ ckick $snicks $_rparam(normal,$null,kickreason,#,Kick reason:) }
.&dialog:{ kbd #* $$1 }
.-
.&ban:{ cban $snicks }
.ban t&ypes
..%`pn.addy.0:{ cban $snicks 0 }
..%`pn.addy.1:{ cban $snicks 1 }
..%`pn.addy.2:{ cban $snicks 2 }
..%`pn.addy.3:{ cban $snicks 3 }
..%`pn.addy.4:{ cban $snicks 4 }
..%`pn.addy.5:{ cban $snicks 5 }
..%`pn.addy.6:{ cban $snicks 6 }
..%`pn.addy.7:{ cban $snicks 7 }
..%`pn.addy.8:{ cban $snicks 8 }
..%`pn.addy.9:{ cban $snicks 9 }
.&temp ban...:{ cban -u $+ $_param(isint,$null,Enter number of seconds to ban:) $snicks }
.-
.kick/ban
..&quick:{ ckb $snicks }
..&reason...:{ ckb $snicks $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
..&temp...:{ ckb -u $+ $_param(isint,$null,Enter number of seconds to kick/ban:) $snicks }
.ban/kick
..&quick:{ cbk $snicks }
..&reason...:{ cbk $snicks $_rparam(normal,$null,kickreason,#,Ban/Kick reason:) }
..&temp...:{ cbk -u $+ $_param(isint,$null,Enter number of seconds to ban/kick:) $snicks }
;
%`pn.allchans.m
.&op/voice
..&op	+o:{ cop $snicks }
..deop	-o:{ cdeop $snicks }
..&voice	+v:{ cvoice $snicks }
..devoice	-v:{ cdevoice $snicks }
..&deop/devoice	-ov:{ cdeov $snicks }
.-
.&kick
..&quick:{ ckick $snicks }
..&reason...:{ ckick $snicks $_rparam(normal,$null,kickreason,#,Kick reason:) }
.-
.&ban:{ cban $snicks }
.ban t&ypes
..%`pn.addy2.0:{ cban $snicks 0 }
..%`pn.addy2.1:{ cban $snicks 1 }
..%`pn.addy2.2:{ cban $snicks 2 }
..%`pn.addy2.3:{ cban $snicks 3 }
..%`pn.addy2.4:{ cban $snicks 4 }
..%`pn.addy2.5:{ cban $snicks 5 }
..%`pn.addy2.6:{ cban $snicks 6 }
..%`pn.addy2.7:{ cban $snicks 7 }
..%`pn.addy2.8:{ cban $snicks 8 }
..%`pn.addy2.9:{ cban $snicks 9 }
.&temp ban...:{ cban -u $+ $_param(isint,$null,Enter number of seconds to ban:) $snicks }
.-
.kick/ban
..&quick:{ ckb $snicks }
..&reason...:{ ckb $snicks $_rparam(normal,$null,kickreason,#,Kick/Ban reason:) }
..&temp...:{ ckb -u $+ $_param(isint,$null,Enter number of seconds to kick/ban:) $snicks }
.ban/kick
..&quick:{ cbk $snicks }
..&reason...:{ cbk $snicks $_rparam(normal,$null,kickreason,#,Ban/Kick reason:) }
..&temp...:{ cbk -u $+ $_param(isint,$null,Enter number of seconds to ban/kick:) $snicks }
-
;
%`pn.dcc
.&send...:{
  if ($snick(#,0) == 1) { dcc send $snicks }
  else {
    var %c = #,%f = $$dir="File to send to the [ $snick(#,0) ] selected nicks:"
    if ($isfile(%f)) && (%c == #) { _nikloop dcc send 

 %f }
  }
}
.&chat:{ dcc chat $* }
;
%`pn.ctcp
.&ping:{ ctcp $snicks ping }
.p&age...:{ ctcp $snicks page $_param(normal,$null,Page message:) }
.&version:{ ctcp $snicks version  }
.&clientInfo:{ ctcp $snicks clientinfo }
.&finger:{ ctcp $snicks finger }
.&time:{ ctcp $snicks time }
.&userinfo:{ ctcp $snicks userinfo }
.&xdcc
..&list:{ ctcp $snicks xdcc list }
..&get...:{ ctcp $snicks xdcc get $_param(1,$null,Packet:) }
..-
..&help:{ ctcp $snicks xdcc help }
.-
.c&tcp ?...:{ ctcp $snicks $_param(normal,$null,< CTCP > [ Parameters ]) }
;
%`pn.commands
.&query:{ _nikloop query 

 }
.&invite...:{ _nikloop invite 

 $_param(ischan,$null,Channel to invite to:) }
.&message...:{ _massmsgnotice -qs _qprivmsg $snicks }
.&notice...:{ _massmsgnotice -qs _qnotice $snicks }
$`menutmp.post:{ }