alias power {
  var %@ 0, %% 0, %+ 0, %Reg 0, %a 1, %b 1
  while ($scon(%b)) {
    while ($chan(%a)) {
      if ($me isop $chan(%a)) inc %@
      elseif ($me ishop $chan(%a)) inc %%
      elseif ($me isvoice $chan(%a)) inc %+
      else inc %Reg
      inc %a
    }
    inc %b
  }
  msg $active 3I am in9 $chan(0) 3channels,4 Op (@) in %@ $+ ,8 Halfop (%) in %% $+ ,12 Voiced in %+ $+ ,11 and regular in %Reg $+ 3. %chans
}