hi
/help $nick
$nick(#,N/nick,aohvr,aohvr)
a = all nicks, o = ops, h = halfops, v = voiced, r = regular
$nick(#chan,0,o) return the total number of ops on #chan
$nick(#chan,1,o) return the first op on #chan
$nick(#chan,0,a,o) return the total number of nicks not including ops on #chan
so your code can be
menu channel {
Channel Stat:msg # $count
}
alias -l per return $round($calc( $1 / $nick(#,0) * 100),0) $+ %
alias count {
var %all $nick(#,0),%op $nick(#,0,o),%v $nick(#,0,v),%reg $nick(#,0,r)
return 4[ $+ total user in $remove($chan,$chr(35)) %all $+ 4] 12( $+ %op op = $per(%op) $+ 12) 12( $+ %v voice = $per(%v) $+ 12) 12( $+ %reg regular = $per(%reg) $+ 12)
}