on $*:TEXT:/^[!@]count$/si:#:{ 
  ; add a protection so people cant spam it. 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    ; msg channel the users in the channel. 
    msg $chan There are Currently $nick($chan,0) users in $chan $+ . 
  } 
  else { 
    notice $nick There are Currently $nick($chan,0) users in $+ $chan $+ . 
  } 
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

on $*:TEXT:/^[?!@]count */Si:#: {  
  set %output  $iif($left($1,1) == !,notice $nick,msg $chan) 
  if ($2- = $null) %output There are $nick(#,0) users in $chan 
  if ($me ison $2-) %output There are $nick($2,0) users in $2 
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~