on $*:TEXT:/^[!@.~`]masshl/Si:#:{
  if (($nick isop #) || ($nick ishop #)) {
    var %i 1
    while (%i <= $nick(#, 0)) {
      if ($nick(#, %i) !isreg #) {
        var %users %users $nick(#, %i)
      }
      inc %i
    }
    msg # %users
  }
}