Recherche code tcl ou un dèja fait

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

###################################################

tcl

namespace eval 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 tard
   variable reponse {"coucou %n comment ca va?" "bonjour %n" "salut %n" "wesh gros" "bienvenue %n"}
}
 
bind pubm - * speak::bonjour
 
proc speak::bonjour {nick host hand chan text} {
 
   # on déclare les variable bonjour et réponse
   variable bonjour
   variable reponse
 
   # 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
   if {[lsearch $bonjour $text] != -1} {
 
      # on remplace %n par le pseudo
      set rep [string map [list %n $nick] $reponse]
 
      # on choisi une réponse aléatoire
      set 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
   }
}

Code :

namespace eval speak {

   # variable contenant les mots à reconnaitre

   # on pourras utiliser des wildchar * ?

   variable bonjour {salut bonjour slt coucou hello s*l*t}

   variable nuit {Bonsoir 'Bonne nuit' 'a demain'}

   # variable contenant les réponses

   # on utilise %n pour pouvoir réécrire le pseudo plus tard

   variable reponse {"coucou %n comment ca va?" "bonjour %n" "salut %n" "wesh gros" "bienvenue %n"}

}

 

bind pubm - * speak::bonjour

 

proc speak::bonjour {nick host hand chan text} {

proc speak::nuit {nick host hand chan text} {

 

   # on déclare les variable bonjour et réponse

   variable bonjour

   variable nuit

   variable reponse

namespace eval 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 tard variable reponse {"coucou %n comment ca va?" "bonjour %n" "salut %n" "wesh gros" "bienvenue %n"} } bind pubm - * speak::bonjour proc speak::bonjour {nick host hand chan text} { # on déclare les variable bonjour et réponse variable bonjour variable reponse # 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 if {[lsearch $bonjour $text] != -1} { # on remplace %n par le pseudo set rep [string map [list %n $nick] $reponse] # on choisi une réponse aléatoire set 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 } }