alors voila le script de test marche completement grace a ton aide ToM
je te le montre comme ca tu verras aussi ce que j'ai trouvé comme methode pour remplacer les termes que je voulais remplacer par des variables :)
merci en tous cas
set test {
"mouah mouah @@nick@@"
"pouet @@arg@@"
}
bind pub - !test pub_test
proc pub_test {nick host hand chan arg} {
global test
putlog "depart du test"
set reply [lindex $test [rand [llength $test]]]
putlog "variable \$reply choisi par le \lindex: $reply "
if {[string first "@@nick@@" $reply] != -1 } { regsub -all "@@nick@@" $reply $nick reply }
if {[string first "@@arg@@" $reply] != -1 } { regsub -all "@@arg@@" $reply $arg reply }
putlog "variable \$reply aprés remplacement des variables: $reply "
puthelp "privmsg $chan : $reply"
return 0
}