join avec putfast

[Artix]

Ton truc est vraiment anti-euh, bien :
paske ton script modifie la commande "join" inclue dans TCL, et c'est un vrai "must" (sans ça, tu peux pas faire de listes, donc une très très grande partie de tes scripts ne fonctionneront pas !)
D'après ton truc, voila une version un peu plus cohérente je pense :

tclcopier

set autoSAJoinList { AnimPlus.zet-land.org ChanAdmin.zet-land.org CoChefZone.zet-land.org OpZone.zet-land.org AdminZone.zet-land.org ChanOp.zet-land.org }
bind join - * autoSAJoinProc 
 
proc autoSAJoinProc {nick uhost hand chan} {
if {[lsearch -glob $::autoSAJoinList [lindex [split $uhost @] 1]]} {
putfast "SAJOIN $nick #Staff,#Staff+,#Aide-Staff" }
return }