30/05/2011, 20:16
bah écoute j'vient de retesté encore le code:
Code :
|20:13:05|News:oui
|20:13:06| ·KICK· News|PG098FQuebec@1425230401454.tv|a été éjecté par bOt (Bad Words)
tcl
# Badword Kick by KuNgFo0
set badwords {
"oui"
"non"
}
# Kick MSG
set badword_msg "Bad Words"
# Channels
set badword_chans "#concept"
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 -nocase $badword $arg]} {
putserv "KICK $chan $nick :$badword_msg"
return
}
}
}
}