# Kullanicilarin sunucuya giriste isinlanacaklari kanali yaziniz.
set isinla(kanal) "#isinla"

# Isinla komut on ekini yaziniz.
set isinla(komut) ".isinla"

# Kullanicilarin .isinla komutunu uyguladiklarinda girecekleri kanallari yaziniz.
set isinla(cekkanal) "#Oyun,#Radyo,#Sohbet"

##################
# ELLEME CISS :d #
##################

bind join - * user:join
proc user:join {nick uhost hand chan} {
global botnick isinla
    if {[string match -nocase $isinla(kanal) $chan]} {
    putquick "NOTICE $nick :*** Sunucumuza hosgeldiniz $nick."
    putquick "NOTICE $nick :*** Sohbet odalarina girebilmek icin $isinla(kanal) kanalina: $isinla(komut) $nick yaziniz."
    }
}

bind pub - $isinla(komut) kullanici:isinla
proc kullanici:isinla {nick uhost hand chan text} {
global botnick isinla
    if {[string match -nocase $isinla(kanal) $chan]} {
    set kisi "[lindex $text 0]"
    if {$kisi == ""} {
    putquick "NOTICE $nick :Nick belirtmediniz. Lutfen nick belirtiniz."
    } else {
    putquick "PRIVMSG $isinla(kanal) :Isinlama islemi basladi $nick, lutfen bekleyiniz. Isinlama islemi gerceklestiriliyor, beklediginiz icin tesekkur ederiz..."
    putquick "SAPART $kisi $isinla(kanal)"
    utimer 3 [list putquick "SAJOIN $kisi $isinla(cekkanal)"]
    utimer 5 [list putquick "PRIVMSG $kisi :Isinlama islemi gerceklesmistir. Keyifli sohbetler dileriz..."]
    }
    } else {
   putquick "NOTICE $nick :Bu komut sadece $isinla(kanal) kanalinda calisir."
 }
}