on $*:TEXT:/^[@!]user(s)?$/Si:#: { 
  set %return $iif($left($1,1) == @,msg $nick,notice $nick)
  var %i 1
  while (%i <= $nick($chan,0)) { 
    if ($nick($chan,%i) isop $chan) {
      %return $chr(91) $+ # $+ $chr(93) Op: $nick($chan,%i)
    }
    if ($nick($chan,%i) ishop $chan) { 
      %return $chr(91) $+ # $+ $chr(93) Halfop: $nick($chan,%i) 
    } 
    if ($nick($chan,%i) isvoice $chan) { 
      %return $chr(91) $+ # $+ $chr(93) Voice: $nick($chan,%i) 
    }
    if ($nick($chan,%i) isreg $chan) { 
      %return $chr(91) $+ # $+ $chr(93) Regular: $nick($chan,%i) 
    }
    inc %i 
  } 
}