Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


SAMODE
#16
Le tcl fonctionne parfaitement, il n'y avait qu'une petite erreur dans le puthelp.
Et j'ai supprimé le flag "-|o" parce que tu ne t'es p-e pas défini comme @ sur le canal où tu utilise l'eggdrop.


tcl
set caller ""
bind pub - !version version:call
proc version:call {nick uhost hand chan args} {
   set ::caller $nick
   set victim [lindex $args 0]
   if {$victim == "" } { return 0 }
   if { $::botnick == $victim } { return 0 }
   puthelp "PRIVMSG $victim :\001VERSION\001"
}
 
bind ctcr - VERSION version:read
proc version:read {nick uhost handle dest key text} {
   if { ![info exists ::caller] || ($::caller == "") } { return 0 }
   if {$dest == ""} {set dest $::botnick}
   puthelp "PRIVMSG $::caller :$nick use $text"
}


Ce script pourrait être amélioré pour vérifier que la personne est bien connectée avant de lancer le VERSION.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#17
NuNux je te signale que moi sa me donne +iu lollll alors je peux rien y faire ..... et si non j'aimerais juste savoir comment faire pour que quand je tape !idle il me donne l'idle de l'user exemple :)

-12:49:18- ‹~Nemesis› IDLE: Babytigrou16 >>> 00 hrs 00 mins 10 secs

Ceci est en mIRC mias j'essayer en eggdrop et sa me donne rien :s
#18
Ta essayer au moins de faire çe code !idle ? Si oui, donne nous ton code et on va t'aider car bon on va pas te coder tout çe que tu veux quand meme.
#19
Babytigrou16,

C'est normal que sur l'eggdrop cette commande ne fonctionne pas car ... se n'est pas une commande "qu'inclue" par défaut l'eggdrop.

C'est pourquoi tu dois coder ta propre commande (en tcl) mais sache que tu peux compter sur nous pour te guider, pour t'aider si tu as des erreurs ou autre, mais comptes pas sur nous a chaque fois pour te coder ce que tu veux, c'est quand même pas a nous a faire ça.

Le but du forum, c'est de s'entraide, pas de coder des scripts pour des gens ..


Cordialement, DaV34
#20
eee DaV34 es-ce normal que mon eggdrop prent 5 seconde a tout rejoin les salon :s j'aimerais qu'il les rejoindres touts en meme temps :s comme un Sajoin de tout les salon
#21
Pour information CrazyCat j'ai trouvé l'erreur :) Alors vola pour ceux que sa intéresse :)


tcl
set caller ""
bind pub - !version version:call
proc version:call {nick uhost hand chan args} {
   set ::caller $nick
   set victim [lindex $args 0]
   if ![string compare -nocase $chan "#Admin"] {
   if {$victim == "" } { return 0 }
   if { $::botnick == $victim } { return 0 }
   putfast "PRIVMSG $victim :\001VERSION\001"
}
}
 
bind ctcr - VERSION version:read
proc version:read {nick uhost handle dest key text} {
   if { ![info exists ::caller] || ($::caller == "") } { return 0 }
   if {$dest == ""} {set dest $::botnick}
   putfast "PRIVMSG #Admin \00306$nick \00312Utilise \00304$text"
   set ::caller ""
}


Bonne journée !
Le meuilleur du Web www.zet-land.org
#22
Je déconseille tout de même l'emploi du putfast (alltools.tcl ?)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#23
Idem CrazyCat.
La variable $::caller te sert a quoi maintenant ? Es tu sur qu'il n'y a pas au minimum une erreur dans ton code ?
#24
BdS Wrote:La variable $::caller te sert a quoi maintenant ? Es tu sur qu'il n'y a pas au minimum une erreur dans ton code ?
Ah si elle sert, c'est une "mémoire" de celui qui a demandé la version. Dans le cas présent, si un client retourne une version sans que ça n'ait été demandé par quelqu'un (imaginons un autre script qui fasse des envois de ctcp version), on bypass.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#25
Vu comme ça, ok.
Merci
#26
ok mais Remplacer putfast par putquick et sa devrait donner sa


tcl
set caller ""
bind pub - !version version:call
proc version:call {nick uhost hand chan args} {
   set ::caller $nick
   set victim [lindex $args 0]
   if ![string compare -nocase $chan "#Admin"] {
   if {$victim == "" } { return 0 }
   if { $::botnick == $victim } { return 0 }
   putquick "PRIVMSG $victim :\001VERSION\001"
}
}
 
bind ctcr - VERSION version:read
proc version:read {nick uhost handle dest key text} {
   if { ![info exists ::caller] || ($::caller == "") } { return 0 }
   if {$dest == ""} {set dest $::botnick}
   putquick "PRIVMSG #Admin \00306$nick \00312Utilise \00304$text"
   set ::caller ""
}


Et la votre TCL devrait fonctionné. Bonne journée !
Le meuilleur du Web www.zet-land.org


Forum Jump:


Users browsing this thread: 1 Guest(s)