Pouvez-vous me transformez ces simples code mIRC en tcl ?

[NesCrex]

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 :D

[CrazyCat]

Oui.

tcl

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

[CrazyCat]

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:

tcl

putserv "PRIVMSG $::salon :[lindex [rand [llength $::phrases]]]"

[djkenny]

salut,

tcl

bind pubm - "*salut*" rep:yop

tcl

if [string equal -nocase $chan $::salon] {
    putserv "PRIVMSG $::salon :[lindex [rand [llength $::phrases]]]"
}

non?

[BeussAy]

Code:

on *:TEXT:*salut*:#:{

donc non.

[djkenny]

donc la variable salon n as rien a faire la dedan :)