Unnamed

alias plx {
  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))) {
      if ($me isop $chan(%x)) { inc %o }
      if ($me ishop $chan(%x)) { inc %h }
      inc %p $nick($chan(%x),0)
    }
    elseif ($me isvoice $chan(%x)) { inc %v }
    elseif ($me isreg $chan(%x)) { inc %r }
    inc %t $nick($chan(%x),0)
    dec %x
  }
  say 14I am currently on 04 $+ $chan(0) 14 $+ $iif($chan(0) iswm 1,channel,channels) $+ . I am an op on 04 $+ %o $+ 14, halfop on 04 $+ %h $+ 14, voiced on 04 $+ %v $+ 14, and a regular user on 04 $+ %r $+ 14. I have power over 04 $+ $+(%p,14/,04,%t) $+ 14 (04 $+ $round($calc((%p / %t) * 100),0) $+ % $+ 14) noobs.
}