+- 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 : SAMODE (/showthread.php?tid=185)
Pages :
1
2
RE: SAMODE - CrazyCat - 03/04/2008
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.
RE: SAMODE - Babytigrou16 - 03/04/2008
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
RE: SAMODE - NuNuX - 03/04/2008
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.
RE: SAMODE - DaV34 - 03/04/2008
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
RE: SAMODE - Babytigrou16 - 09/04/2008
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
RE: SAMODE - Babytigrou16 - 28/08/2009
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 !
RE: SAMODE - CrazyCat - 28/08/2009
Je déconseille tout de même l'emploi du putfast (alltools.tcl ?)
RE: SAMODE - BdS - 28/08/2009
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 ?
RE: SAMODE - CrazyCat - 28/08/2009
BdS a écrit :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.
RE: SAMODE - BdS - 28/08/2009
Vu comme ça, ok.
Merci
RE: SAMODE - Babytigrou16 - 28/08/2009
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 !