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
}