#--------------- USERİ KANALA ALMA ----------------
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "sajoin $nick $chan"
killutimer "kanalaal $nick $chan"
}

proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 1 "kanalaal $kisi #Radyo"
utimer 1 "kanalaal $kisi #Oyun"
}
}