displays how much power you have
alias power {
set %power.chan.counter 0
set %power.powerover 0
set %power.opchans 0
set %power.totalnetworks $scon(0)
set %power.totalnetworks.count 0
set %power.total.channels 0
set %power.max.chans 0
:connectionloop
inc %power.totalnetworks.count
if ( %power.totalnetworks.count > %power.totalnetworks ) { goto end }
scon %power.totalnetworks.count
set %power.total.channels %power.total.channels + $chan(0)
set %power.max.chans $chan(0)
set %power.chan.counter 0
:loop
if ( %power.chan.counter > %power.max.chans ) { goto connectionloop }
set %power.chan.counter $calc( %power.chan.counter + 1 )
if ( $me isop $chan(%power.chan.counter) ) {
set %power.powerover %power.powerover + $nick($chan(%power.chan.counter),0)
inc %power.opchans
}
goto loop
:end
scon -r
if ( %power.total.channels = 1 ) var %power.chanword channel
if ( %power.total.channels > 1 ) var %power.chanword channels
if ( %power.totalnetworks = 1 ) var %power.netword network
if ( %power.totalnetworks > 1 ) var %power.netword different networks
msg $active 4 I am OP'd in 14 %power.opchans $+ / $+ %power.total.channels 15 $+ %power.chanword 4 on < 14 %power.totalnetworks 4 >15 %power.netword $+ . 4 I own < 14 %power.powerover 4 >15 lucky bastards
unset %power.*
}