30/05/2011, 18:54
Bonjour,
J'ai trouvé un code tcl qui fonctionne tres bien mais pas toute a fait comme je veut j'ai beau cherché comment créer des regexp et le mettre en place mais je trouve pas donc pas facile pour un débutent
Le script fonctionne bien mais par exemple si une personne dit ouistiti sa le kick :/
j'ai créer un code en mirc le gros souci c'est qu'il faut resté connecter
Donc avez vous un code léger et mieux que sa svp merci ?
Cordialement Stéphane
J'ai trouvé un code tcl qui fonctionne tres bien mais pas toute a fait comme je veut j'ai beau cherché comment créer des regexp et le mettre en place mais je trouve pas donc pas facile pour un débutent
Le script fonctionne bien mais par exemple si une personne dit ouistiti sa le kick :/
j'ai créer un code en mirc le gros souci c'est qu'il faut resté connecter
Donc avez vous un code léger et mieux que sa svp merci ?
Code :
# Badword Kick by KuNgFo0
set badwords {
"oui"
"non"
"o u i"
"n o n"
}
# Kick MSG
set badword_msg "Bad Words"
# Channels
set badword_chans "#test #test1"
bind pubm - * pubm_badword
putlog "Badword loaded"
proc pubm_badword {nick uhost hand chan arg} {
global badwords badword_msg badword_chans botnick
if {(([lsearch -exact [string tolower $badword_chans] [string tolower $chan]] != -1) || ($badword_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
foreach badword [string tolower $badwords] {
if {[string match *$badword* [string tolower $arg]]} {
putserv "KICK $chan $nick :$badword_msg"
return
}
}
}
}
Cordialement Stéphane