Code jeu ni oui ni non

[DnS]

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.

tclcopier

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 ...

dans les précédant poste y avais le code qui fonctionne avec ce que tu voulais.

Cordialement DnS