set kanallarim "#Oyun,#Yarisma,#Radyo,#Sohbet"
bind raw * notice snotice:connectproc snotice:connect {from keyword text} {
global kanallarim zaman_araligi    
if {[string match -nocase "*Client connecting on port*" $text]} {   
set nick [lindex $text 9]    
utimer 7[list putquick :Os raw svsjoin $nick $kanallarim"]    
}
}