Code jeu ni oui ni non

[fedora]

essaye comme sa

tclcopier

# 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
      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 [string tolower $arg]]} {
                                putserv "KICK $chan $nick :$badword_msg"
                                return
                        }
                }
        }
}