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
}