Code jeu ni oui ni non

[djkenny]

tclcopier

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:"
}

[loulou7593]

pour ce code là que snip74 voulais tester

tclcopier

# Badword Kick by KuNgFo0
 
set badwords {
"*oui*"
"*non*"
}
# Kick MSG
set badword_msg "Bad Word"
 
# Channels
set badword_chans "#conceptionl"
 
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 $arg]} {
                                putserv "KICK $chan $nick :$badword_msg"
                                return
                        }
                }
        }
}

Si on met ce code il sera toujours actif, des que quelqu'un ecrira oui ou non il sera kicker. Y aurait t'il un moyen de mettre une commande qui puisse activer le jeu et l'arreter ???

[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

[loulou7593]

Oui mais en PL.

quoique si je fait un

tclcopier

bind pub - !ouinon ouinon
proc ouinon {nick host hand chan arg} {
   global botnick 
     channel set $chan +OuiNon
	 putserv "PRIVMSG $::chanback :Oui non activé par $nick."
}

ca devrait fonctionner

[loulou7593]

Bon j'ai ma réponse, j'ai testé, ca fonctionne.

Merci de ta réponse DnS

[loulou7593]

Re all,
Tiens je viens de m'apercevoir qu'il y avait un truc qui va pas :/
avec la variable :
{oui 'o u i' non 'n o n' nan 'n a n' oué 'o u é' oue 'o u e' ouais 'o u a i s' ouai 'o u a i' yes 'y e s' ouep 'o u e p'}

quand une personne tape a f par exemple sa le kick voila l'exemple :
[13:11] <Franck> toute a fais
[13:11] * Franck was kicked by Nioui-Ninon (Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete

après avoir fait des testes voila se que sa donne :

[13:35] <snip74> af
[13:35] <snip74> a f
[13:35] * You were kicked by Nioui-Ninon (Attention tu viens d'être kické pour avoir dit le mot interdit oui ou Non :bete

Cordialement Stéphane

En effet quand tu tapes juste a f ca te kick mais quand tu tapes u i ca te kick aussi.

Je pense ca viens des mots dans la variable qui sont avec des espaces comme O U I ou O U A I S.

Mais je sais pas de quoi ca viens :/

[loulou7593]

J'ai un petit bug sur le code djKenny

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
   }
}
   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 ?

[djkenny]

ça viens de la

tclcopier

if {[regexp -nocase {expression} $text]!=""} {

en fait il faut remplacer le mot "expression" par l expression régulière capable de détecter oui ou non