alias power {
  var %x 1 
  while ($chan(%x)) {
    if ($me isop $chan) { inc %op }
    if ($me ishop $chan) { inc %hop }
    if (%me isvoice $chan) { inc %voice }
    else { inc %reg }
    inc %x
  }
  msg $active 14[03Power14]: I am op in03 %op $+ / $+ $chan(0) 14channels. I am halfop in03 %hop $+ / $+ $chan(0) 14channels. I am voice in03 %voice $+ / $+ $chan(0) 14channels, and I am regular in03 %reg $+ / $+ $chan(0) 14channels.
  unset %op %hop %voice %reg
}