Mine

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