alias stats { 
  var %x $chan(0),%o 0,%h 0,%v 0,%p 0,%t 0 
  while (%x) { 
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) { 
      inc $+(%,$iif($me isop $chan(%x),o,h)) 1 
      inc %p $nick($chan(%x),0) 
    } 
    elseif ($me isvoice $chan(%x)) { inc %v 1 } 
    inc %t $nick($chan(%x),0) 
    dec %x 1 
  } 
  msg $active 14I am currently on  $chan(0) channels. Of those, I am 7opped 14on^  $+(%o,$chr(44)) $+  7halfopped 14on^  $+(%h,$chr(44)) $+  and 7voiced 14 on^  $+ $+(%v,.) $+ 7I have power over^  $+(%p,/,%t) Guys.
}