alias status {
  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) $+ . $me is 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. $me has power over 12[04 $+ $+(%p,/,%t) $+ 12]06 ( $+ $round($calc(%p / %t * 100),2) $+ $chr(37) $+ ) users. 8)
}