Bonjour
Pouvez-vous me transformez ces simples code mIRC en tcl ?
on *:TEXT:*oui*:#:{
/msg $chan non
}
et
on *:TEXT:*salut*:#:{
/msg $chan yop $nick
}
Merci
Oui.
tclcopier
bind pubm - "oui" rep:non
proc rep:non { nick uhost handle chan text} {
putserv "PRIVMSG $chan :non"
}
bind pubm - "salut" rep:yop
proc rep:yop { nick uhost handle chan text} {
putserv "PRIVMSG $chan :yop $nick"
}
Tu aurais pu le faire en lisant
cette page
De un, ce n'est pas ce qu'il a demandé, de deux ça ne fonctionnera pas: $::phrase n'existe pas, et si c'est une faute de frappe, $::phrases est une liste.
Si encore tu avais mis:
tclcopier
putserv "PRIVMSG $::salon :[lindex [rand [llength $::phrases]]]"
donc la variable salon n as rien a faire la dedan