# 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"

# Kullanici kanallara alindiktan sonra gosterilecek mesaji yaziniz.
set isinla(mesaj) "*** Keyifli sohbetler dileriz."

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

bind raw * notice kullanici:cek
proc kullanici:cek {from keyword text} {
global botnick isinla
    set nick [lindex $text 9]
    if {[string match -nocase "*client connecting*" $text]} {
    putquick "SAJOIN $nick $isinla(kanal)"
    }
}

bind pub - $isinla(komut) kullanici:isinla
proc kullanici:isinla {nick uhand host 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 "SAPART $kisi $isinla(kanal)"
    puthelp "SAJOIN $kisi $isinla(cekkanal)"
    puthelp "PRIVMSG $kisi :$isinla(mesaj)"
    }
    } else {
    putquick "NOTICE $nick :Bu komut sadece $isinla(kanal) kanalinda calisir."
 }
}