/ScriptServ

P&&P
$iif(($mid(%`popups.1,1,1) != 0) || ($mouse.key & 2),Configure)
.Options...:config
.Away...:awaycfg
.CTCP replies...:ctcpedit
.-
.Theme
..Colors and symbols...:display
..Line seperator...:line
..Nicklist colors...:ncedit
..Text scheme...:text edit
..-
..Messages...:msgs
..Event sounds...:sounds
..Font fixer...:fontfix
..-
..Load theme...:theme load
.Theme central...:theme
.Text options...:textopt
.-
.Popups...:popups
.Serverlist (status)
..Add...:serverlist + $_entry(-1,%!net,Network to add to serverlist?)
..Remove
...$_slistpop:{ }
...$gettok(%.serversl,1,32):_slistpop | serverlist - $gettok(%.serversl,1,32)
...$gettok(%.serversl,2,32):_slistpop | serverlist - $gettok(%.serversl,2,32)
...$gettok(%.serversl,3,32):_slistpop | serverlist - $gettok(%.serversl,3,32)
...$gettok(%.serversl,4,32):_slistpop | serverlist - $gettok(%.serversl,4,32)
...$gettok(%.serversl,5,32):_slistpop | serverlist - $gettok(%.serversl,5,32)
...-
...$iif($numtok(%.serversl,32) > 5,Other...):serverlist - $_entry(-1,%!net,Network to remove from serverlist?)
...$iif($numtok(%.serversl,32) > 1,All):serverlist - $_cfgx(serverlist,groups)
..-
..Refresh:serverlist
..-
..$_dynpop(%.serverslo) Enable:serverlist on
..$_dynpopn(%.serverslo) Disable:serverlist off
.-
.Profiles...:profile
.-
.Report a bug...:bug
.Leave feedback...:feedback
.-
.About P&&P:about
-
$iif(((%`whois.win == @Whois) && ($active != @Whois) && ($mid(%`popups.1,2,1) != 0)) || ($mouse.key & 2),Whois tome):tome
$iif(((%`whois.win != @Whois) && ($mid(%`popups.1,2,1) != 0)) || ($mouse.key & 2),LastWhois)
.$_poprec(whois,1)
..User info
...Whois:whois $_grabrec(whois,1)
...Extended whois:ew $_grabrec(whois,1)
...User central...:uwho $_grabrec(whois,1)
...Address book...:abook $_grabrec(whois,1)
...-
...DNS:dns $gettok($_refsufn(whois,1),2,127)
...Hostmask:host $gettok($_refsufn(whois,1),4,127)
...-
...Server ping:sping $gettok($_refsufn(whois,1),3,127)
..DCC
...Chat:dcc chat $_grabrec(whois,1)
...Chat to IP:dcc chat $gettok($_refsufn(whois,1),2,127)
...-
...Send:dcc send $_grabrec(whois,1)
...Send to IP:dcc send $gettok($_refsufn(whois,1),2,127)
...-
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,1),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,1),4,127)),=auth,44) == $false),1,0)) Authorize for DCCs:auth -t $gettok($_refsufn(whois,1),4,127)
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,1),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,1),4,127)),=auth,44)),1,0)) Temp authorize:auth -t $gettok($_refsufn(whois,1),4,127) 15
..Ping:ping $_grabrec(whois,1)
..Query:query $_grabrec(whois,1)
..-
..$_dynpop($iif($level($gettok($_refsufn(whois,1),4,127)) > 1,1,0)) Userlist...:user $gettok($_refsufn(whois,1),4,127)
..$_dynpop($iif($_grabrec(whois,1) isnotify,1,0)) Notify...:notif $gettok($_refsufn(whois,1),4,127)
..-
..Copy:clipboard $_grabrec(whois,1) is $gettok($_refsufn(whois,1),1,127) $+ @ $+ $gettok($_refsufn(whois,1),2,127) $_p2s($gettok($_refsufn(whois,1),5-,127))
.$_poprec(whois,2)
..User info
...Whois:whois $_grabrec(whois,2)
...Extended whois:ew $_grabrec(whois,2)
...User central...:uwho $_grabrec(whois,2)
...Address book...:abook $_grabrec(whois,2)
...-
...DNS:dns $gettok($_refsufn(whois,2),2,127)
...Hostmask:host $gettok($_refsufn(whois,2),4,127)
...-
...Server ping:sping $gettok($_refsufn(whois,2),3,127)
..DCC
...Chat:dcc chat $_grabrec(whois,2)
...Chat to IP:dcc chat $gettok($_refsufn(whois,2),2,127)
...-
...Send:dcc send $_grabrec(whois,2)
...Send to IP:dcc send $gettok($_refsufn(whois,2),2,127)
...-
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,2),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,2),4,127)),=auth,44) == $false),1,0)) Authorize for DCCs:auth -t $gettok($_refsufn(whois,2),4,127)
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,2),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,2),4,127)),=auth,44)),1,0)) Temp authorize:auth -t $gettok($_refsufn(whois,2),4,127) 15
..Ping:ping $_grabrec(whois,2)
..Query:query $_grabrec(whois,2)
..-
..$_dynpop($iif($level($gettok($_refsufn(whois,2),4,127)) > 1,1,0)) Userlist...:user $gettok($_refsufn(whois,2),4,127)
..$_dynpop($iif($_grabrec(whois,2) isnotify,1,0)) Notify...:notif $gettok($_refsufn(whois,2),4,127)
..-
..Copy:clipboard $_grabrec(whois,2) is $gettok($_refsufn(whois,2),1,127) $+ @ $+ $gettok($_refsufn(whois,2),2,127) $_p2s($gettok($_refsufn(whois,2),5-,127))
.$_poprec(whois,3)
..User info
...Whois:whois $_grabrec(whois,3)
...Extended whois:ew $_grabrec(whois,3)
...User central...:uwho $_grabrec(whois,3)
...Address book...:abook $_grabrec(whois,3)
...-
...DNS:dns $gettok($_refsufn(whois,3),2,127)
...Hostmask:host $gettok($_refsufn(whois,3),4,127)
...-
...Server ping:sping $gettok($_refsufn(whois,3),3,127)
..DCC
...Chat:dcc chat $_grabrec(whois,3)
...Chat to IP:dcc chat $gettok($_refsufn(whois,3),2,127)
...-
...Send:dcc send $_grabrec(whois,3)
...Send to IP:dcc send $gettok($_refsufn(whois,3),2,127)
...-
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,3),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,3),4,127)),=auth,44) == $false),1,0)) Authorize for DCCs:auth -t $gettok($_refsufn(whois,3),4,127)
...$_dynpop($iif(($istok($level($gettok($_refsufn(whois,3),4,127)),=dcc,44)) && ($istok($level($gettok($_refsufn(whois,3),4,127)),=auth,44)),1,0)) Temp authorize:auth -t $gettok($_refsufn(whois,3),4,127) 15
..Ping:ping $_grabrec(whois,3)
..Query:query $_grabrec(whois,3)
..-
..$_dynpop($iif($level($gettok($_refsufn(whois,3),4,127)) > 1,1,0)) Userlist...:user $gettok($_refsufn(whois,3),4,127)
..$_dynpop($iif($_grabrec(whois,3) isnotify,1,0)) Notify...:notif $gettok($_refsufn(whois,3),4,127)
..-
..Copy:clipboard $_grabrec(whois,3) is $gettok($_refsufn(whois,3),1,127) $+ @ $+ $gettok($_refsufn(whois,3),2,127) $_p2s($gettok($_refsufn(whois,3),5-,127))
.-
.$_poprec(wch,1,$numtok(%>whois,32)):j $_grabrec(wch,1)
.$_poprec(wch,2,$numtok(%>whois,32)):j $_grabrec(wch,2)
.$_poprec(wch,3,$numtok(%>whois,32)):j $_grabrec(wch,3)
.$_poprec(wch,4,$numtok(%>whois,32)):j $_grabrec(wch,4)
.$_poprec(wch,5,$numtok(%>whois,32)):j $_grabrec(wch,5)
.-
.Whois tome:tome
.Configure:config wh
-
$iif(($mid(%`popups.1,3,1) != 0) || ($mouse.key & 2),Lists)
.Blacklist:blackedit
.Userlist:useredit
.Authlist:authedit
$iif(($mid(%`popups.1,4,1) != 0) || ($mouse.key & 2),Away)
.$_dynpop($iif(q isin $gettok(%!away,3,32),0,$iif(%!away,1,0))) Away...:away
.$_dynpopn(%!away) Back:back
.-
.$_dynpop($iif(q isin $gettok(%!away,3,32),1,0)) Quiet away...:qa
.$_dynpopf Quiet back:qb
.-
.$_dynpop(%!pager) Pager
..$_dynpop($iif(%!pager == 1,1,0)) On:pager on
..$_dynpop($iif(%!pager == quiet,1,0)) Quiet:pager quiet
..$_dynpop($iif(%!pager == 0,1,0)) Off:pager off
..-
..$_dynpopf View...:pager v
..$_dynpopf Flush:pager f
.$_dynpop(%!logging) Logging
..$_dynpop($iif(%!away,%!logging,$_cfgi(away.log))) On $iif(%!away == $null,(when away)):awaylog on
..$_dynpopn($iif(%!away,%!logging,$_cfgi(away.log))) Off $iif(%!away == $null,(when away)):awaylog off
..-
..$_dynpopf View...:awaylog
..$_dynpopf Flush:awaylog f
.-
.$_dynpopf Configure...:awaycfg
$iif(($mid(%`popups.1,5,1) != 0) || ($mouse.key & 2),Nickname)
.$_rec(nick,1):nick %=nick.1
.$_rec(nick,2):nick %=nick.2
.$_rec(nick,3):nick %=nick.3
.$_rec(nick,4):nick %=nick.4
.$_rec(nick,5):nick %=nick.5
.$_rec(nick,6):nick %=nick.6
.$_rec(nick,7):nick %=nick.7
.$_rec(nick,8):nick %=nick.8
.$_rec(nick,9):nick %=nick.9
.-
.%=nick.clr:_recclr nick | _recent nick 9 $me
.Other...:nick $_entry(-1,$me,New nickname?)
.-
.$iif(%-oldrnick == $null,Random nick):rn
.$iif(%-oldrnick,Undo random nick):urn
-
$iif(($mouse.key & 2) || ($server && ($mid(%`popups.1,6,1) != 0)),List channels)
.With 5 or more users:list >5
.With 10 or more users:list >10
.With 20 or more users:list >20
.With X or more users...:{
var %num = $_entry(-2,$iif($_dlgi(list) isnum,$_dlgi(list),10),List channels with at least how many users?)
list > $+ %num
_dlgw list %num
}
.-
.All (smaller networks):list
$iif(($mouse.key & 2) || ($server && ($mid(%`popups.1,7,1) != 0)),Channels)
.$_rec(chan,1):join %=chan.1
.$_rec(chan,2):join %=chan.2
.$_rec(chan,3):join %=chan.3
.$_rec(chan,4):join %=chan.4
.$_rec(chan,5):join %=chan.5
.-
.$_rec(chan,6):join %=chan.6
.$_rec(chan,7):join %=chan.7
.$_rec(chan,8):join %=chan.8
.$_rec(chan,9):join %=chan.9
.$_rec(chan,10):join %=chan.10
.-
.$_rec(chan,11):join %=chan.11
.$_rec(chan,12):join %=chan.12
.$_rec(chan,13):join %=chan.13
.$_rec(chan,14):join %=chan.14
.$_rec(chan,15):join %=chan.15
.-
.%=chan.clr:_recclr chan
.$iif(%=chan.1 || ($mouse.key & 2),$iif($_cfgi(fill.chan),Lock this list,Unlock list (currently locked))):{
if ($_cfgi(fill.chan)) { disps Channels menu is now locked and will not 'fill' automatically. | _cfgw fill.chan 0 }
else { disps Channels menu is unlocked and will fill with channels that you join. | _cfgw fill.chan 1 }
}
.Join other...:join $_s2c($_entry(0,$null,Channel(s) to join?(You may specify multiple channels.)))
.-
.Edit...:fav
$iif(($mouse.key & 2) || ($server && ($mid(%`popups.1,8,1) != 0)),Favorites)
.$iif(((%_fpopa1) || (%_fpopb1)) || ($mouse.key & 2), [ $_dynpopf ] Join now):fav j
.$_dynpop($_cfgi(fav.auto)) Join on connect:{
if ($_cfgi(fav.auto)) { disps You will $:b(not) join favorites on connect. | _cfgw fav.auto 0 }
else { disps You will join your favorites on connect. | _cfgw fav.auto 1 }
}
.-
.%_fpopa1:j $gettok($replace(%_fpopa1,&&,&),2,32)
.%_fpopa2:j $gettok($replace(%_fpopa2,&&,&),2,32)
.%_fpopa3:j $gettok($replace(%_fpopa3,&&,&),2,32)
.%_fpopa4:j $gettok($replace(%_fpopa4,&&,&),2,32)
.%_fpopa5:j $gettok($replace(%_fpopa5,&&,&),2,32)
.-
.%_fpopb1:j $gettok($replace(%_fpopb1,&&,&),2,32)
.%_fpopb2:j $gettok($replace(%_fpopb2,&&,&),2,32)
.%_fpopb3:j $gettok($replace(%_fpopb3,&&,&),2,32)
.%_fpopb4:j $gettok($replace(%_fpopb4,&&,&),2,32)
.%_fpopb5:j $gettok($replace(%_fpopb5,&&,&),2,32)
.-
.$iif(((%_fpopa1) || (%_fpopb1)) || ($mouse.key & 2),Clear favorites...):fav c
.Add $replace(#,&,&&) $+ ...:fav +
.Remove $replace(#,&,&&):fav - #
.-
.Edit...:fav
-
$iif(%!hidden || ($mouse.key & 2),Unhide all):unhide