Unnamed

alias check {
  var %c 1,%ohvr 0,%vr 0,%f 0,%e 0,%t 0,%l 0
  while $chan(%c) {
    if $me isop $v1 { var %w ohvr }
    elseif $me ishop $v2 { var %w vr }
    elseif $me isvo $v2 { var %w f }
    else var %w e
    inc % [  $+ [ %w ] ]
    inc %t $nick($v2,0,%w)
    inc %l $nick($chan(%c),0)
    inc %p 
    inc %c
  }
  $iif($isid,return,msg $iif(#,#,$nick)) 6[»14 In6 $chan(0) 14chans6 «] $&
    4[»4 @14Op in4 %ohvr «] $&
    7[» 7%14HalfOp in7 %vr «] $&
    2[»2 +14Voice in2 %f «] $&
    10[»10 R14egular in10 %e «] $&
    3[»14 Power Over:3 %t $+ / $+ %l ( $+ $round($calc((%t / %l)* 100),3) $+ $chr(37) $+ ) 14People 3«]
}