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
#9
Bonjour alias_angelius,
Cool merci pour cette source je vais la testé :p
Juste un truc que je pense qu'il va y avoir des erreur si je mais plusieur variable non ?
je connais pas le tcl mais en se moment je regarde pas mal de tuto :) malgré que j'ai du mal a comprendre le tcl et plus dur que le mirc lol

exemple :

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
alias_angelius Wrote:Salut,

Donc j'ai testé ton code et oui en effet il ne fonctionne pas.

Alors par curiosité j'ai cherché sur le forum et le code que tu à mis dans le post et sur un autre post et un membre du forum "djkenny" avait donné un exemple de code tcl sous forme de namespace donc autant utilise ceci car il et expliquer et tout.

Donc je vais te c/c le code que djkenny avait fait :


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

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 - 06/06/2011, 16:45

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)