Soucis tcl - bind join

[CrazyCat]

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
}