En Üstte; Sabit Olarak Var Zaten TCL Arşivi Diye. Bakmayı Denesen Bulurdun Ama Hazır Daha Tatlı Oluyor Sanırım... Buyur
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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" ]
}
}
Fjoin Yazan Yerleri Sajoin Yapman Yeterli Olacaktır Sanırım...