30/05/2011, 22:54
Bonsoir,
un truc dans se code que je ne trouve pas après plusieurs kick il banni
Comment viré le code qui banni ? svp merci :)
J'ai supprimer cette ligne && (![matchattr $hand b]) mais sa na rien changer je suis vraiment nul en tcl lol
Ps : en attendent de trouvé mieux ou de savoir coder le tcl je ferrais avec se code sa dépanne bien :)
Cordialement Stéphane
un truc dans se code que je ne trouve pas après plusieurs kick il banni
Comment viré le code qui banni ? svp merci :)
J'ai supprimer cette ligne && (![matchattr $hand b]) mais sa na rien changer je suis vraiment nul en tcl lol
Code :
# Badword Kick by KuNgFo0
set badwords {
"*oui*"
"*non*"
"*o u i*"
"*n o n*"
}
# Kick MSG
set badword_msg "8,1Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete:"
# Channels
set badword_chans "#nioui-ninon"
bind pubm - * pubm_badword
putlog "Badword loaded"
proc pubm_badword {nick uhost hand chan arg} {
global badwords badword_msg badword_chans botnick
set arg [stripcodes uacgbr $arg]
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 -nocase $badword $arg]} {
putserv "KICK $chan $nick :$badword_msg"
return
}
}
}
}
Ps : en attendent de trouvé mieux ou de savoir coder le tcl je ferrais avec se code sa dépanne bien :)
Cordialement Stéphane