Script que pone el modo +W cuando se recibe un notice del servidor por entrada masiva de usuarios

preventflood.tcl

set pf_warn "This channel has been closed"
set pf_host "chathispano.com"
set pf_chan "#canal"

bind notc -|- * pf_parseNotice

proc pf_parseNotice {n uh h t d} {
  global pf_warn pf_host pf_chan

  set w [string first $pf_warn $t]
  set s [string first $pf_host $uh]

  if {$w != -1 && $s != -1 && $d == $pf_chan} {
    putlog "Posible ataque en $d, cambiando modos..."
    putquick "MODE $d :+W"
    putserv "PRIVMSG #canal_ops :\[PreventFlood\] Posible inicio de ataque, colocado modo +W"
  }
}


putlog "Script de prevención de flood activado"