bind raw - NOTICE baglanti 
proc baglanti {from keyword text} { 
if {[string match -nocase "*client connecting*" $text]} { 
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "fjoin $nick #sohbet" ]
utimer 1[list putserv "fjoin $nick #oyun" ]
utimer 1[list putserv "fjoin $nick #radyo" ]
} 
}