on *:TEXT:!test:#:{
var %i = 1
while (%i <= $nick($chan,0)) {
$iif($nick($chan,%i) isop $chan, inc %op,$iif($nick($chan,%i) ishop $chan,inc %hop,$iif($nick($chan,%i) isvoice $chan,inc %voice)
inc %i
}
msg $chan there are %op ops, %hop halfops, %voice voices
unset %op
unset %hop
unset %voice
}