menu channel,nicklist,query {
Power : power
}
alias power {
var %a = 1, %b = $scon(0)
var %networks = network $+ $iif(%b > 1,s), %chan = channel
while %a <= %b {
.scon %a
var %c = 1, %d = $chan(0)
inc %chans %d
if %d > 1 || %chan == channels {
%chan = channels
}
%chan = $remove(%chan,$chr(32))
while %c <= %d {
inc %noobs $nick($chan(%c),0,r)
inc %Op $iif($me isop $chan(%c),1,0)
inc %hop $iif($me ishop $chan(%c),1,0)
inc %Voice $iif($me isvoice $chan(%c),1,0)
inc %c
}
inc %a
}
scon -r
msg $active 15C14onnected 15H14ere 15V14ia:3  $+ $server $+ . I have %op Ops, %hop Half-Ops and %voice Voices over %chans %chan on < $scon(0) > %networks $+ . I pwn < %noobs > n00bs
unset %Op
unset %hop
unset %voice
unset %chans
unset %noobs
}