Unnamed

alias stats {
  var %x = $chan(0),%o 0,%h 0,%v 0,%r 0,%p 0,%t 0
  while (%x) {
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) {
      inc $+(%,$iif($me isop $chan(%x),o,h))
      inc %p $iif($me isop $chan(%x),$nick($chan(%x),0),$nick($chan(%x),0,v,r))
    }
    elseif ($me isvoice $chan(%x)) { inc %v }
    elseif ($me isreg $chan(%x)) { inc %r }
    inc %t $nick($chan(%x),0)
    dec %x
  }
  msg $active 8(06 $me is currently on 12[04 $+ $chan(0) $+ 12]06 $iif($chan(0) iswm 1,channel,channels) $+ . I am an op on 12[04 $+ %o $+ 12]06, halfop on 12[04 $+ %h $+ 12]06, voiced on 12[04 $+ %v $+ 12]06, and a regular user on 12[04 $+ %r $+ 12]06. I have power over 12[04 $+ $+(%p,/,%t) $+ 12]06 users. 8)
}