Communauté sur les Eggdrops - Community about Eggdrops
Pouvez-vous me transformez ces simples code mIRC en tcl ? - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: 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 :D


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


tcl
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 :)