###############################
#                             #
# Kanal Moduna Göre Cikis.TCL #
#        coded by Raw         #
#                             #
###############################


##########
# Kanalda olduğunda botun çıkacağı modu giriniz
##########

set mod "s"

##########
# Muaf kanallar çoğaltılabilir
##########

set muafkanallar {
 "#kanal1"
 "#kanal2"
 "#kanal3"
}

##########
# Ayar bölümü bitti. Bilmiyorsan karıştırma uf olur sonra ;d
##########

bind raw - "322" kanal_kontrol
set kontrolzamani 55

if {![string match "*sunucu_kanallari*" [utimers]]} {
    utimer $kontrolzamani kanal_listesi
}

proc sunucu_kanallari {} {
    global kontrolzamani
    putserv "LIST"
    utimer $kontrolzamani kanal_listesi
    return 1
}

proc kanal_kontrol {from keyword arg} {
    global botnick muafkanallar mod
    set kntrlEDLNkanal [lindex $arg 1]
    set kanalMODU "[string range [lindex [split [lindex $arg 3] "]"] 0] 3 end]"
    if {[lsearch -exact $muafkanallar [string tolower $kntrlEDLNkanal]] != -1} {return 0}
    if {[string match -nocase "*$mod*" $kanalMODU]} {
        putquick "privmsg $kntrlEDLNkanal Kanal artık özelleştiğine göre, keyifli sohbetler dilerim."
        channel remove $kntrlEDLNkanal
        putquick "sapart $botnick $kntrlEDLNkanal"
    }
    return 0
}

####################################################################################
# iLham kaynağım, dostum, arkadaşım, hocam Namesis'e teşekkürü bir borç bilirim ;d #
# kanks her zaman söylüyorum çok tehlikeli adamsın ;d ajkdjflşjfşlsd ;d            #
####################################################################################

###
putlog "kanal moduna gore cikis.tcl BASARIYLA YUKLENDi - coded by Raw"
###