Someone

alias pcheck { 
  unset %t.* 
  var %x 1 
  while (%x <= $comchan($me,0)) { 
    if ($left($nick($chan(%x),$me).pnick,1) == @) { 
      inc %t.o 
      inc %t.p $nick($chan(%x),0) 
      inc %t.t $nick($chan(%x),0) 
      var %ops = %ops $chan(%x) 
    } 
    if ($left($nick($chan(%x),$me).pnick,1) == %) { 
      inc %t.h 
      inc %t.p $calc($nick($chan(%x),0) - $nick($chan(%x),0,o)) 
      inc %t.t $nick($chan(%x),0) 
      var %hops = %hops $chan(%x) 
    } 
    if ($left($nick($chan(%x),$me).pnick,1) == +) { 
      inc %t.v 
      inc %t.t $nick($chan(%x),0) 
      var %vs = %vs $chan(%x) 
    } 
    if ($left($nick($chan(%x),$me).pnick,1) == $left($me,1)) { 
      inc %t.r 
      inc %t.t $nick($chan(%x),0) 
      var %rs = %rs $chan(%x) 
    } 
    inc %x 
  } 
  return $+($c1,[,$c2,Power,$c1,]) $c1(Chans:) $c2($comchan($me,0)) $c1(Ops:) $c2($iif(%t.o,%t.o,0)) $+($c1,[,$c2,$replace(%ops,$chr(32),$c1($chr(44)) $c2($chr(32))),$c1,]) $c1(Halfops:) $c2($iif(%t.h,%t.h,0)) $+($c1,[,$c2,$replace(%hops,$chr(32),$c1($chr(44)) $c2($chr(32))),$c1,]) $c1(Voices:) $c2($iif(%t.v,%t.v,0)) $+($c1,[,$c2,$replace(%vs,$chr(32),$c1($chr(44)) $c2($chr(32))),$c1,]) $c1(Regulars:) $c2($iif(%t.r,%t.r,0)) $+($c1,[,$c2,$replace(%rs,$chr(32),$c1($chr(44)) $c2($chr(32))),$c1,]) $c1(Power:) $c2($iif(%t.p,%t.p,0)) $c1(Total:) $c2($iif(%t.t,%t.t,0)) $+($c1,$chr(40),$c2,$round($calc((%t.p / %t.t) * 100),2),%,$c1,$chr(41),$chr(3)) 
} 
alias -l c1 { return $+($chr(3),10,$1-) } 
alias -l c2 { return $+($chr(3),07,$1-) }