Fun.tcl

[Artix]

tclcopier

if {(([lsearch -exact [string tolower $::fun(chans)] [string tolower $channel]] != -1) || ($::fun(chans) == "*")) && ($nick != $botnick)} {

Ourgh ! Depuis Tcl 8.4 (ou 8.5 ?) il existe une option -nocase pour lsearch, et c'est bigrement pratique

Sinon, je pense qu'il est plus simple d'utiliser les variables depuis le namespace global ($::fun et $::botnick) plutot que de faire un global
Donc, a mon tour de proposer ma version:

tclcopier

set fun(chans) {#chan1 #chan2}
bind join - * join:fun 
proc join:fun {nick uhost handle chan} {
if {(([lsearch -exact -nocase $::fun(chans) $chan != -1) || ($::fun(chans) eq *)) &&  ($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)." 
}}

Ca reste globalement le meme que celui de fedora (euh.. ><')