Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Anti-Flood TCL
#1
Bonjour, ce script est sensé kicker tout ceux qui floodent. Le soucis est que le robot kicke ceux qui floodent comme prévus, mais aussi, parfois ceux qui ne floodent pas (ça arrive régulièrement).
Je me demande où est le problème...

Voici mon script :

Code:
               proc checkflood { nick uhost hand chan text } {
                global Bot
                if {[onchan $nick $Bot(headchan)]} {return}
                if {![ismonitor $chan]} {return}
                if {![info exists ::Flood($nick)]} { set ::Flood($nick) 0; utimer 10 [unset ::Flood($nick)] }
                incr ::Flood($nick)
                putlog "$nick -> $::Flood($nick)"
                if {$::Flood($nick) == 10} {
                putlog "Kick de $nick pour $::Flood($nick) phrases"
                 set Mod(Reason) {
                 "Arrête de flinguer tes touches !"
                 "Doucement sur le bouton !"
                 "Respire entre tes phrases !"
                 "Laisse ton clavier reprendre son souffle !"
                 }
                 set desc [lindex $Mod(Reason) [rand [llength $Mod(Reason)]]]
                 putnow "KICK $chan $nick $desc"
                 unset ::Flood($nick)
                }
               }


Messages In This Thread
Anti-Flood TCL - by tow - 08/12/2012, 21:02
RE: Anti-Flood TCL - by CrazyCat - 09/12/2012, 11:00

Possibly Related Threads…
Thread Author Replies Views Last Post
  anti flood notice lesny 10 6,023 29/10/2011, 21:43
Last Post: lesny
  Un script anti-flood pour mon eggdrop Virgile 19 14,287 08/08/2008, 15:45
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)