Pouvez-vous me transformez ces simples code mIRC en tcl ?
#1
Bonjour Smile
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 Very Happy
Répondre Avertir
#2
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
Répondre
#3
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]]]"


Répondre
#4
salut,

TCL
bind pubm - "*salut*" rep:yop


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


non?
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#5
Code :
on *:TEXT:*salut*:#:{


donc non.
Répondre Avertir
#6
donc la variable salon n as rien a faire la dedan Smile
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté