Fun.tcl

[CrazyCat]

Pour ma part, je n'aime pas les bind join - *

Je ferais plutôt:

tclcopier

set fun(chans) {#chan1 #chan2}
 
proc join:fun {nick uhost handle chan} {
   if {$nick ne $::botnick} {
      putserv "NOTICE $nick :\00312Bienvenue\00304 $nick, \00312je suis Fun le robot d'animation. Pour connaitre mes commandes tape !cmd (uniquement en couleur noir)."
   }
}
 
proc fun:loadbind {} {
   foreach chan $::fun(chan) {
      if {[botonchan $chan] eq 1} {
         bind join - "$chan *" join:fun
      }
   }
}

Et à la fin du tcl:

tclcopier

fun:loadbind

Ca permet de limiter les appels à la procédure join:fun aux seuls canaux autorisés. Je ne me souviens plus si join est stackable, donc ça peut être utile de mettre cette limite.