Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Recherche code tcl ou un dèja fait
#3
Bonjour alias_angelius,
Merci ;) pour le tuto :)
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 :)


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 Wrote: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 :)

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


Messages In This Thread
RE: Recherche code tcl ou un dèja fait - by snip74 - 03/06/2011, 13:19

Possibly Related Threads…
Thread Author Replies Views Last Post
  Commenter des lignes de code TCL fait tout bug.. aliasangelius 2 3,902 05/09/2012, 11:54
Last Post: aliasangelius
  eggdrop le bot ne fait rien mamouth 35 19,324 23/05/2011, 08:51
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)