Someone

alias chans {
  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) 1[2STATUS1]14 I am on 13 $+ $chan(0) 14channels. Of those, I am (4@14)Op on 13 $+ $iif(%b,%b,0) $+  $+  14, (7%14)Halfop on 13 $+ $iif(%c,%c,0) $+  14 (2+14)Voice on 13 $+ $iif(%d,%d,0)  14and (2_14)Regular on 13 $+ $iif(%e,%e,0) $+ . 14I have power over $+ 13 $+ 1 (13 $+ %power $+ 14/13 $+ %chan $+ 14) 14(13 $+ $int($calc(%power * 100 / %chan)) $+ % $+ 14) 14users.
  unset %b %c %d %e %power %chan
}