28/02/2011, 12:13 (Modification du message : 01/03/2011, 09:08 par NesCrex.)
Hep
Voici un script et a partir de celui la je voudrai le faire réagir sur plusieurs; par que sur le mot "f**k"
Merci :)
Code :
# Le channel sur le quel le script va réagir:
set pschan "#Chat"
# Le bot réagit t'il sur tout les chan ou juste sur
# celui mentionné ci-dessus? 1=Oui 2=Tous
set psinchan "1"
# Le mot auquel le bot va réagir:
set pstrigger "fuck"
# Ce que le bot va répondre
# (vous pouvez y mettre de la couleur)
set psanswer "Non mais tu parle d'un langage toi!"
# La façon que le bot va répondre:
# ( notice privmsg ou chan )
set psmaniere "chan"
###############################################
################### Script ####################
###############################################
### À ne pas modifier, c'est à vos risques! ###
###############################################
bind pub - $pstrigger call_talk
proc pretalk { target channel } {
global pschan psinchan pstrigger
if { $psinchan == "1" && $pschan == $channel } {
talk $target $channel
}
if { $psinchan == "2" } {
talk $target $channel
}
if { $psinchan == "1" && $pschan != $channel } {
putlog "J'ai détecté un $pstrigger dans $channel mais je ne suis pas
configuré pour y envoyer un message." }
}
proc talk { nick chan } {
global pschan pstrigger psanswer psmaniere
if { $psmaniere == "notice" } { putserv "notice $nick :$psanswer" }
if { $psmaniere == "privmsg" } { putserv "privmsg $nick :$psanswer"}
if { $psmaniere == "chan" } { putserv "privmsg $chan :$nick : $psanswer" }
if { $psmaniere != "notice" && $psmaniere != "privmsg" && $psmaniere
!= "chan" } { putlog "Erreur: Aucune bonne manière d'envoi n'est configuré."
} else { putlog "Parle script: Envoyé à $nick" }
}
proc call_talk { nick uhost hand chan arg } { pretalk $nick $chan }
Vous cherchez un peu à réinventer la roue.
En gros, ce que tu veux, c'est plusieurs mots qui fassent réagir l'eggdrop, et qu'à chaque mot il y ait une réponse particulière ?
C'est exactement ce que fait Jokes.tcl, il suffit donc de l'adapter. Sinon, je suis à peu près certain qu'il existe des tcls du genre "badwords".
04/03/2011, 12:35 (Modification du message : 04/03/2011, 12:45 par djkenny.)
salut,
voila un petit code que j avais fait pour apprendre à coder à quelqu'un
tcl
namespaceeval speak {
# variable contenant les mots à reconnaitre # on pourras utiliser des wildchar * ?variable bonjour {salut bonjour slt coucou hello s*l*t} # variable contenant les réponses # on utilise %n pour pouvoir réécrire le pseudo plus tardvariable reponse {"coucou %n comment ca va?""bonjour %n""salut %n""wesh gros""bienvenue %n"}}
bind pubm - * speak::bonjourproc speak::bonjour{nick host hand chan text}{
# on déclare les variable bonjour et réponsevariable bonjour
variable reponse
# on debug le texte et on met tout en minusculesset text [stripcodes abcru $text]set text [string tolower $text]
# on test si on trouve le texte dans la variable bonjourif{[lsearch$bonjour$text]!= -1}{
# on remplace %n par le pseudoset rep [string map [list%n $nick]$reponse]
# on choisi une réponse aléatoireset index [rand [llength$rep]]set rep [lindex$rep$index]
# on envoi la réponse choisie
putserv "PRIVMSG $chan :$rep"
# on ferme les \} qu on a ouvert plus haut}}
C'est en reconnaissant ses erreurs que l'on progresse
set mots {
"fuck"
"merde"
"encul"
}
bind pubm * msg:pub
proc msg:pub {nick uhost handle chan}{
set text [lindex $arg 0]
if {[string match *$mots* $text]=""} {
putserv "NOTICE $nick :Ce mot à été blacklisté."
} else { return 0 }
}
djdu32 a écrit :Un petit up, tu peux utiliser une liste..
Code :
set mots {
"fuck"
"merde"
"encul"
}
bind pubm * msg:pub
proc msg:pub {nick uhost handle chan}{
set text [lindex $arg 0]
if {[string match *$mots* $text]=""} {
putserv "NOTICE $nick :Ce mot à été blacklisté."
} else { return 0 }
}
7 erreurs sur 12 linges :x c'est pas mal
C'est en reconnaissant ses erreurs que l'on progresse
