###############   K O M U T L A R  B Ö L Ü M Ü   #############
##                                                          ##
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##
##      kendinize özel yapabilir yada asla değiştirmeden    ##
##             mevcut hali ile kullanabilirsiniz            ##
##                                                          ##
##############################################################

set basvuru(kanal) "#Basvuru"

set basvuru(oper) "#Opers"

set basvuru(komut) "!basvuru"

set basvuru(dizin) "scripts/basvuru.txt"

bind pub - $basvuru(komut) basvuru:ekle
proc basvuru:ekle {nick uhost handle chan text} {
  global botnick basvuru
  set status [lindex $text 0]
  set kanal [lindex $text 1]
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} {
    putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." 
    set message "› $kanal kanalı başvurusu ($nick)"
    set liste [open $basvuru(dizin) "a"] 
    puts $liste $message
    close $liste 
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return}
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." 
    set liste [open $basvuru(dizin) "w"] 
    close $liste
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" 
    putquick "PRIVMSG $basvuru(oper) \002" 
    set file [open $basvuru(dizin) r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    foreach basvurular $listfile { 
      putquick "privmsg $basvuru(oper) $basvurular"
    } 
    close $file
    putquick "PRIVMSG $basvuru(oper) \002"
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."
  } 
}

putlog "Kanal Basvuru TCL - Written By CLubber"