18/12/2011, 01:45
J'ai un petit bug sur le code djKenny
quand j'ecris oupsssss ca kick aussi , en fait ca kick pour enormement de phrases.
De quoi cela viens t'il ?
tcl
namespace eval speak {
# variable contenant les mots à reconnaitre
# on pourras utiliser des wildchar * ?
variable bonjour {oui non}
setudef flag OuiNon
}
bind pubm - * speak::bonjour
proc speak::bonjour {nick host hand chan text} {
# on déclare les variable bonjour
variable bonjour
if {[channel get $chan OuiNon]} {
# on debug le texte et on met tout en minuscules
set text [stripcodes abcru $text]
set text [string tolower $text]
# on test si on trouve le texte dans la variable bonjour
foreach mot $text {
if {[lsearch -exact $bonjour $mot] != -1} {
putserv "KICK $chan $nick :Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete:"
# on ferme les \} qu on a ouvert plus haut
}
}
if {[regexp -nocase {expression} $text]!=""} {
putserv "KICK $chan $nick :Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete:"
}
}
}
quand j'ecris oupsssss ca kick aussi , en fait ca kick pour enormement de phrases.
Code :
[00:23:40] <@popcorn> C koi ce delire
[00:23:40] [Kick] popcorn kické de #accueil par tyrex : Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete:
Code :
[00:36:36] <@loulou> oupssssssss
[00:36:37] [Kick] loulou kické de #accueil par tyrex : Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete:
De quoi cela viens t'il ?