Communauté sur les Eggdrops - Community about Eggdrops
Soucis tcl - bind join - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: 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"