###########################################################
# Sunucuya bağlandığında identine göre kanallara alıyoruz #
#       Kullanıcıya bilgilendirme mesajı atıyoruz.        #
###########################################################
bind raw * notice connection
proc connection {from keyword arg} {
  global botnick 
  if {[string match -nocase "*Client connecting on port*" $arg]} {
    set nick [lindex $arg 9]
    set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
    set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
    if {[string match -nocase "*MeLek*" $ident]} {
      putquick "SAJOIN $nick #MeLekler"
      putquick "NOTICE $nick MeLek olduğunuz tespit edilmiştir, sizi #MeLekLer kanalına alıyoruz."
    }
    if {[string match -nocase "*Seytan*" $ident]} {
      putquick "SAJOIN $nick #Şeytanlar"
      putquick "NOTICE $nick Şeytan olduğunuz tespit edilmiştir, sizi #Şeytanlar kanalına alıyoruz."
    }
  }
}
##########################################################
#      Eğer erkekler meleklerin odasına girerse          #
#  Buradaki eklenti ile kolayca part ettirebilirsiniz.   #
##########################################################
bind join - * devil_join
proc devil_join {nick uhost hand chan} {
  if {[string match -nocase "*Seytan@*" $uhost]} {
    if {[string match -nocase "#MeLekLer" $chan]} {
      putquick "SAPART $nick #MeLekLer"
      putquick "NOTICE $nick Şeytanlar'ın MeLekler'in kanalına girmesi yasaktır."
    }
  }
}
bind join - * angel_join
proc angel_join {nick uhost hand chan} {
  if {[string match -nocase "*MeLek@*" $uhost]} {
    if {[string match -nocase "#Şeytanlar" $chan]} {
      putquick "SAPART $nick #Şeytanlar"
      putquick "NOTICE $nick MeLekler'in Şeytanlar'ın kanalına girmesi yasaktır."
    }
  }
}
putlog "Ident'e Özel Join TCL v1.0 - Written By CLubber"