30/06/2009, 13:23
Pour ma part, je n'aime pas les bind join - *
Je ferais plutôt:
Et à la fin du tcl:
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.
Je ferais plutôt:
tcl
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:
tcl
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.