set kanallar "#Test,#Yarisma,#Oxm,#Oyun,#Kelime,#Radyo,#Avrupa,#Sohbet"
# Kullanıcı Bağlantısında Saniye Cinsinden Bekleme Süresi.
set time "5"
#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 6]
    #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"