on $*:TEXT:/^[.!@]count/Si:#:{
  var %nicks = 0, %ops = 0, %hops = 0, %voices = 0, %regs = 0
  while ($nick($chan,%nicks)) {
    if ($v1 isop $chan) inc %ops 
    if ($v1 ishop $chan) inc %hops
    if ($v1 isvoice $chan) inc %voices
    if ($v1 isreg $chan) inc %regs
    inc %nicks
  }
  $iif($left($1,1) == @,msg #,notice $nick) There are %regs Regulars, %voices 2+Voices, %hops 7%HalfOps, %ops 4@Ops in $chan ~ $nick($chan,0) total users in the channel.
}