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)
                }
               }
#2
J'imagine que ta procédure est appelée par un bind pub.
Il faudrait voir ce que donnent les putlog du script pour les utilisateurs qui ne devraient pas être kickés, mais à mon avis il y a peut-être un souci avec la ligne:

tcl
if {![info exists ::Flood($nick)]} { set ::Flood($nick) 0; utimer 10 [unset ::Flood($nick)] }


Petit nota: Pourquoi définir Mod(Reason) dans la procédure ? Il faut en faire une variable globale plutôt, ça ne sert à rien de redéfinir son contenu chaque fois que quelqu'un doit être kické.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


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

Forum Jump:


Users browsing this thread: 1 Guest(s)