Miscellany

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 $iif($chan,$chan,$active) 14I am in a total of [4 $+ $chan(0) $+ ]14 channels. I'm 4op14 in [4 $+ $iif(%b,%b,0) $+ ]14 channels, 7halfop14 in [4 $+ $iif(%c,%c,0) $+ ]14 channels, 2voice14 in [4 $+ $iif(%d,%d,0) $+ ]14 channels, and 10regular14 in [4 $+ $iif(%e,%e,0) $+ ]14 channels. I have power over [4 $+ %power $+ / $+ %chan $+ ] (4 $+ $int($calc(%power * 100 / %chan)) $+ % $+ )14 users.
 unset %b
 unset %c
 unset %d
 unset %e
 unset %power
 unset %chan
}