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
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
ou part irc /server -m irc.tchat-fusion.org