+- 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 : Soucis tcl - bind join (/showthread.php?tid=632)
Soucis tcl - bind join - Meribre - 21/03/2010
Bonjour à tous
Apres longue reflexions j'ai pas été trés doué lool
Je voudrais que des que quelqu'un se connecte à mon irc mon eggdrop entre dans son privé lui faire une annonce
Si quelqu'un pourrait m'aider ca me ferait plaisir,
Merci bcp
RE: Soucis tcl - heretoc - 21/03/2010
tcl
bind join - "*" join:
proc join: { nick uhost hand chan } {
if {$chan == "#ton_channel"} {
putserv "PRIVMSG $nick :Ajoute ton message"
return 0
}
}
RE: Soucis tcl - Meribre - 21/03/2010
Merci à toi Heretoc pour ton aide
RE: Soucis tcl - CrazyCat - 22/03/2010
Il y a quand même moyen de faire mieux. Tout d'abord, on peut forcer dans le bind join le canal pour ne pas avoir à le vérifier ensuite.
Et il faut aussi éviter que l'eggdrop se parle seul, selon les tcls chargés ça peut être dangereux:
tcl
bind join - "#canal *" join:msg
proc join:msg { nick uhost hand chan } {
if {$nick == $::botnick } { return 0 }
putserv "PRIVMSG $nick :Ajoute ton message"
return 0
}
RE: Soucis tcl - bind join - heretoc - 23/03/2010
En meme temps il y a XX solutions, suffit juste de ce documenter sur les binds et essayer de faire ton propre code pour qu'ont te corrige.
Crazycat et moi on ta mis des exemples mais tu peut faire encore beaucoup mieu
Exemple: faire en sorte qu'il garde l'utilisateur en mémoire Xminutes pour pas dire de nouveau le message si l'utilisateur "bug"