Forums Scripts & Popups Auto-Devoice someone when they join

; usage /devoice_host #chan nick!user@host
; nick!user@host may contain wildchars.
alias devoice_host {
  var %x = 1
  var %v = $+(-,$str(v,$chanmodes))
  var %str = $null

  while ($ialchan($2,$1,%x).nick) {
    %str = %str $v1
    if (%x % $chanmodes == 0) {
      mode $1 %v %str
      %str = $null
    }
    inc %x
  }

  mode $1 %v %str
}