alias status {
var %a = 0
while (%a < $chan(0)) {
inc %a
if ($me isop $chan(%a)) {
inc %b
inc %power $nick($chan(%a),0)
inc %chan $nick($chan(%a),0)
}
if ($me ishop $chan(%a)) {
inc %c
inc %power $nick($chan(%a),0)
inc %chan $nick($chan(%a),0)
}
if ($me isvoice $chan(%a)) {
inc %d
inc %chan $nick($chan(%a),0)
}
if ($me isreg $chan(%a)) {
inc %e
inc %chan $nick($chan(%a),0)
}
}
msg $active I am in a total of $+([,%a,]) channels. I'm op in $+([,%b,]) channels, halfop in $+([,%c,]) channels, voice in $+([,%d,]) channels, and regular in $+([,%e,]) channels. I have power over $+([,%power,/,%chan,]) users.
unset %a
unset %b
unset %c
unset %d
unset %e
unset %power
unset %chan
}