/ScriptServ

$_favpop:{ }
$iif((($mid(%`popups.5,1,1) != 0) && $server) || ($mouse.key & 2),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((($mid(%`popups.5,2,1) != 0) && $server) || ($mouse.key & 2),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(($mid(%`popups.5,3,1) != 0) || ($mouse.key & 2),Favorites)
.$iif((((%_fpopa1) || (%_fpopb1)) && ($server)) || ($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:join $gettok($replace(%_fpopa1,&&,&),2,32)
.%_fpopa2:join $gettok($replace(%_fpopa2,&&,&),2,32)
.%_fpopa3:join $gettok($replace(%_fpopa3,&&,&),2,32)
.%_fpopa4:join $gettok($replace(%_fpopa4,&&,&),2,32)
.%_fpopa5:join $gettok($replace(%_fpopa5,&&,&),2,32)
.-
.%_fpopb1:join $gettok($replace(%_fpopb1,&&,&),2,32)
.%_fpopb2:join $gettok($replace(%_fpopb2,&&,&),2,32)
.%_fpopb3:join $gettok($replace(%_fpopb3,&&,&),2,32)
.%_fpopb4:join $gettok($replace(%_fpopb4,&&,&),2,32)
.%_fpopb5:join $gettok($replace(%_fpopb5,&&,&),2,32)
.-
.$iif(((%_fpopa1) || (%_fpopb1)) || ($mouse.key & 2),Clear favorites...):fav c
.Add channel...:fav +
.$iif(((%_fpopa1) || (%_fpopb1)) || ($mouse.key & 2),Remove channel...):fav -
.-
.Edit...:fav
-
$iif(($mid(%`popups.5,4,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(($mid(%`popups.5,5,1) != 0) || ($mouse.key & 2),Usermode...):umode
-
$iif((($mid(%`popups.5,6,1) != 0) && $server) || ($mouse.key & 2),Quit...):quit $_rentry(quit,0,$_s2p($_finalmsg($replace($_msg(quit),&online&,$duration($online)))),Disconnecting- Quit message?This will be shown on any channels you are on.)
$iif((($mid(%`popups.5,7,1) != 0) && $server) || ($mouse.key & 2),Server)
.Port scan:ports
.Server links:links
.$iif((z isin %!feat) || ($mouse.key & 2),Map of servers):map
.List servers
..1 hop away:nearserv 1
..-
..Up to 2 hops away:nearserv 1 2
..Up to 3 hops away:nearserv 1 3
..-
..Custom...:nearserv ?
.-
.List IRCops:who 0 o
.User counts:lusers
.-
.MOTD:motd
.Time:.raw time
.Version:.raw version
$iif((($mid(%`popups.5,8,1) != 0) && $server) || ($mouse.key & 2),Stats)
.Global bans	g:stats g
.Local bans	k:stats k
.Commands	m:stats m
.Operators	o:stats o
.Uptime	u:stats u
.-
.$_rec(stats,1):stats %=stats.1
.$_rec(stats,2):stats %=stats.2
.$_rec(stats,3):stats %=stats.3
.-
.%=stats.clr:_recclr stats
.Other...:stats
-
$iif(($mid(%`popups.5,9,1) != 0) || ($mouse.key & 2),Connect)
.$_rec(srv,1):server $remove(%=srv.1,$chr(44))
.$_rec(srv,2):server $remove(%=srv.2,$chr(44))
.$_rec(srv,3):server $remove(%=srv.3,$chr(44))
.$_rec(srv,4):server $remove(%=srv.4,$chr(44))
.$_rec(srv,5):server $remove(%=srv.5,$chr(44))
.$_rec(srv,6):server $remove(%=srv.6,$chr(44))
.$_rec(srv,7):server $remove(%=srv.7,$chr(44))
.$_rec(srv,8):server $remove(%=srv.8,$chr(44))
.$_rec(srv,9):server $remove(%=srv.9,$chr(44))
.-
.%=srv.clr:_recclr srv | if ($server) _recent $server, $port
.$iif($server,Reconnect...,Other...):server