#######################################################
#                                                     #
#             Delay Join TCL v1.0 CLubber             #
#       Bu TCL ile Bağlanan Kullanıcıları Süreli      #
#            Kanallara Aktarabilirsiniz..             #
#                                                     #
#######################################################
# Kanallarımız.
set kanallar "#Sohbet,#Muhabbet,#Oyun,#Radyo"
# Kullanıcı Bağlantısında Saniye Cinsinden Bekleme Süresi.
set time "10"
#Editlemeler Bu Kadar Lütfen Bundan Sonrasını Ellemeyin.
bind raw * notice connection
proc connection {from keyword text} {
  global botnick kanallar time
  if {[string match -nocase "*Client connecting on port*" $text]} {
    set nick [lindex $text 9]
    putquick "notice $nick :Merhaba $nick"
    putquick "notice $nick :Bağlantınız kuruldu, $time saniye sonunda kanallara aktarılacaksınız."
    putquick "notice $nick :Hoş sohbetler dileriz."
    utimer $time[list putquick "sajoin $nick $kanallar"]
  }
}
 
putlog "Delay Join TCL v1.0 - Eggdrop CLubber"