Unnamed

alias status { 
  var %a = 0 
  var %b = 0
  var %c = 0
  var %d = 0
  var %e = 0
  var %power = 0
  var %chan = 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 14I am in a total of4 $+([,%a,]) 14channels. I'm 4Op 14in4 $+([,%b,]) 14channels, 4Halfop14 in4 $+([,%c,]) 14channels, 4Voice 14in4 $+([,%d,]) 14channels, and 4Regular 14in4 $+([,%e,]) 14channels. I have power over4 $+([,%power,/,%chan,]) 14users. 
}