21/02/2017, 14:01
Bonjour à tous ,
Voila j'ai trouvé un tcl antibadwords plutot simple à comprendre pour moi dont voici la source : Anti Bad Words
J'ai modifier le code pour intégrer une fonction pour que certaine personne ne soit pas kick par le bot. Voici le code modifié :
Il fonctionne très bien mais je voudrais rajouter une fonction qui ban l'user au troisième kick mais voila je ne sais absolument pas comment mi prendre.
Serait t'il possible d'être aiguillé dans la bonne direction de façon a ce que je puisse arrivé à mes fins.
Merci d'avance pour votre aide future.
Bien à vous.
Bye.
Voila j'ai trouvé un tcl antibadwords plutot simple à comprendre pour moi dont voici la source : Anti Bad Words
J'ai modifier le code pour intégrer une fonction pour que certaine personne ne soit pas kick par le bot. Voici le code modifié :
tcl
set vhostexempt {
*Root@domain.tld
*@TechAdmin.domain.tld
*@autant.de.vhost.que.vous.voulez
}
set badwords {
les
badwords
ici
de
cette
façon
}
bind pubm -|- * bad:words
proc bad:words {nick host hand channel text} {
global badwords vhostexempt
set bad ""
foreach element $badwords {
foreach element1 $text {
if {$element1 == $element} {
set bad "$element"
break
}
}
}
if {$bad != ""} {
set vichost [getchanhost $nick $channel]
set protec 0
foreach vhost $vhostexempt {
if { [string match -nocase $vhost $vichost] } {
set protec 1
}
}
if { $protec == 1 } {
return 0
} else {
putkick $channel $nick "\00312Merci de surveiller votre language !!"
}
}
}
Il fonctionne très bien mais je voudrais rajouter une fonction qui ban l'user au troisième kick mais voila je ne sais absolument pas comment mi prendre.
Serait t'il possible d'être aiguillé dans la bonne direction de façon a ce que je puisse arrivé à mes fins.
Merci d'avance pour votre aide future.
Bien à vous.
Bye.