on *:text:!ucount:#: {
  set %i 1
  :next
  set %nick $nick(#,%i)
  if %nick == $null goto done
  if (%nick($chan,r,0)) { inc %regulared [ $+ [ $chan ] ] 1 }
  if (%nick($chan,v,0)) { inc %voiced [ $+ [ $chan ] ] 1 }
  if (%nick($chan,h,0)) { inc %halfoped [ $+ [ $chan ] ] 1 }
  if (%nick($chan,o,0)) { inc %oped [ $+ [ $chan ] ] 1 }
  inc %totalusers [ $+ [ $chan ] ]
  inc %i
  goto next
  :done
  msg $chan There are %totalusers users on $chan | %oped [ $+ [ $chan ] ] are (@)Op | %halfoped [ $+ [ $chan ] ] are (%)Halfop | %voiced [ $+ [ $chan ] ] are (+)Voiced | %regulared [ $+ [ $chan ] ] are Regular. 
  unset %regulared [ $+ [ $chan ] ] 
  unset %voiced [ $+ [ $chan ] ] 
  unset %halfoped [ $+ [ $chan ] ]
  unset %oped [ $+ [ $chan ] ]
}