Unnamed

alias quiet {
  var %z = 1,%x,%n
  while ($nick(#,%z,a,ov)) { 
    if ($v1 != $1) { 
      %n = %n $v1
      inc %x
      if ($modespl // %x) { 
        mode # $str(v,$modespl) %n | %n = 
      } 
    }
    inc %z
  }
  mode # $str(v,$numtok(%n,32)) $$(%n)
  mode # +m
}


alias noquiet {
  var %z = 1,%x,%n
  while ($nick(#,%z,v,o)) { 
    if ($v1 != $1) { 
      %n = %n $v1
      inc %x
      if ($modespl // %x) { 
        mode # - $+ $str(v,$modespl) %n | %n = 
      } 
    }
    inc %z
  }
  mode # - $+ $str(v,$numtok(%n,32)) $$(%n)
  mode # -m
}
alias massban {
  unset %user.tot
  unset %nick.deop
  set %num.nick 0
  set %user.tot $nick(#,0)
  :start
  inc %num.nick
  if (%num.nick > %user.tot) { 
    halt 
  }
  if ($nick(#,%num.nick) == $me) { 
    goto start 
  }
  else { 
    ban # $nick(#,%num.nick) 2
    kick # $nick(#,%num.nick)
    goto start 
  }
}