18/03/2011, 17:29
Rebonjour,
le code de Crazycat marche t'il sur ce code que ma donner DJkenny ?
le code de Crazycat marche t'il sur ce code que ma donner DJkenny ?
Code :
namespace eval speak {
# variable contenant les mots à reconnaitre
# on pourras utiliser des wildchar * ?
variable bonjour {!test1 !test2}
# variable contenant les réponses
# on utilise %n pour pouvoir réécrire le pseudo plus tard
variable reponse {"Ceci est le test 1" "Ceci est le test 2"}
}
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
}
}