en recherchant un peut sur le site,je suis tomber sur le code de Dj_KennY qui fait un peut ce que tu recherche.j'ai ajouter un foreach.
pour l'activer tape en pl .chanset #salon +OuiNon
essaye de tester comme sa voir. perso j'ai tester est sa fonctionne ...
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
}
}
}
}
pour l'activer tape en pl .chanset #salon +OuiNon
essaye de tester comme sa voir. perso j'ai tester est sa fonctionne ...
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]