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 "SAJOIN $nick #sohbet" ]
utimer 1[list putserv "SAJOIN $nick #oyun" ]
utimer 1[list putserv "SAJOIN $nick #radyo" ]
}
}
olarak denermisin ?