Recherche code tcl ou un dèja fait
#3
Bonjour alias_angelius,
Merci Wink pour le tuto Smile
j'avais déja vue cette source je n'est pas su le faire fonctionné lol je pense surtout que je ne suis pas arrivé a l'installer correctement ou a le manipulé,
Voila pourquoi je demande un code simple car j'ai aussi trouvé parlescript.tcl
seule souci c'est que je ne trouve pas comment lui mettre plusieurs mots ou phrase et comme le faire aller cherché dans des fichier txt.

Pour le code ci-dessous tu dit un mot il répond à la phrase que tu lui a dit mais si tu multiplie la variable bah la y a des erreurs AFfff

Code :
# Le mot auquel le bot va réagir:
set pstrigger "Bonjour $me"
set pstrigger "bonne nuit $me"

# Ce que le bot va répondre
# (vous pouvez y mettre de la couleur)
set psanswer "coucou $nick"
set psanswer "Merci $nick à toi aussi repose toi bien"

Voici le code complet au cas ou Smile

Code :
##########################################
############## Explications ##############
##########################################

# Parle-Script par Pontiac6000
#
# Ce script sert à faire parler votre bot automatiquement
# grâce à un mot (trigger).
#
# Il est configurable, voir la section CONFIGURATION.
#
# Voici à quoi il peut servir:
# Quand un user dit : !aide
# Le bot va répondre : Désolé, mais le canal d'aide est #services
#
# Comme je le dis, ceci est un exemple. Les triggers sont
# changeables et les réponses aussi. Vous aurez aussi la
# possibilité de décider si le bot va répondre en Notice,
# Privé ou sur le chan.
#
# Ce bot peut servir aussi à la publicité, comme faire de
# la pub sur Undernet.
# Ex: Quand quelqu'un dit @find blablabla sur un chan,
# le bot réagit à @find
# et il peut répondre: "Allo, je me nomme Isabelle, etc."
# de la manière que vous aller préciser ci-dessous.
#
# Faites-en bon usage!

##############################################
############### Configuration ################
##############################################

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

putlog "Parle-Script par Pontiac6000 chargé."

###################################################
################## Fin du script ##################
###################################################


alias_angelius a écrit :Bonjour,
sur le forum recherche "megahal" c'est un I.A qui répond à son pseudo et au phrases lorsqu'on parle.
Bien sur il à un apprentissage pour apprendre tout cela mais essaye le peut-être que ceci te conviendra Smile

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
Répondre Avertir


Messages dans ce sujet
RE: Recherche code tcl ou un dèja fait - par snip74 - 03/06/2011, 13:19

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté