SAMODE

[CrazyCat]

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.

tclcopier

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.

[Babytigrou16]

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

[NuNuX]

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.

[DaV34]

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

[Babytigrou16]

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

[Babytigrou16]

Pour information CrazyCat j'ai trouvé l'erreur :) Alors vola pour ceux que sa intéresse :)

tclcopier

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 !

[CrazyCat]

Je déconseille tout de même l'emploi du putfast (alltools.tcl ?)

[BdS]

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 ?

[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 ?

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.

[BdS]

Vu comme ça, ok.
Merci

[Babytigrou16]

ok mais Remplacer putfast par putquick et sa devrait donner sa

tclcopier

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 !