+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Pouvez-vous me transformez ces simples code mIRC en tcl ? (/showthread.php?tid=879)
Pouvez-vous me transformez ces simples code mIRC en tcl ? - NesCrex - 15/02/2011
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
RE: Pouvez-vous me transformez ces simples code mIRC en tcl ? - CrazyCat - 15/02/2011
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
RE: Pouvez-vous me transformez ces simples code mIRC en tcl ? - CrazyCat - 16/02/2011
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]]]"RE: Pouvez-vous me transformez ces simples code mIRC en tcl ? - djkenny - 16/02/2011
salut,
tcl
bind pubm - "*salut*" rep:yoptcl
if [string equal -nocase $chan $::salon] {
putserv "PRIVMSG $::salon :[lindex [rand [llength $::phrases]]]"
}
non?
RE: Pouvez-vous me transformez ces simples code mIRC en tcl ? - BeussAy - 16/02/2011
Code :
on *:TEXT:*salut*:#:{donc non.
RE: Pouvez-vous me transformez ces simples code mIRC en tcl ? - djkenny - 16/02/2011
donc la variable salon n as rien a faire la dedan