#######################################################
#                                                     #
#             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"

set cekmethod "SAJOIN"
bind raw * notice snotice:connect
proc snotice:connect {from keyword text} {
global cekmethod zaman_araligi
if {[string match -nocase "*client connecting*" $text]} {
set nick [lindex $text 9]
utimer 10[list puthelp "$cekmethod $nick #Oyun,#Kelime,#Yarisma,#OXM,#Radyo,#AlemTR,#GeyikTR"] 
}
}
# Ident ve realname'de degistirelecek olan reklam icerikli kelimeler.
set delayj(reid) {
"*mynet*"
"*zurna*"
"*kelebek*"
"*ayna*"
"*klavye*"
"*canavar*"
"*admin*"
"*oper*"
"*ircop*"
"*serv"
"*service*"
"*servis*"
"*http*"
"*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sunucunuzun ident'ini belirtiniz.
set delayj(ident) "GeyikTR"
# Sunucunuzun realname'sini belirtiniz.
set delayj(realn) "GeyikTR Sohbet Kullanıcısı"
# Giris'te gosterilecek olan mesaj'i belirtiniz.
set delayj(cnmsg) "*** Guvenlik taramalarindan geciyorsunuz. 7 saniye icinde kanallara aktarilacaksiniz, lutfen sabirli olunuz."
# Giris'te ki uyari mesaj'i nasil iletilsin ?
# "PRIVMSG" veya "NOTICE"
set delayj(cmetd) "NOTICE"
# Ident ve Realname'de reklam tespit edildiginde uyari olarak gosterilecek mesajlari belirtiniz.
set delayj(idmsg) "*** \002IDENT\002'inizde reklam icerikli kelime(ler) tespit edildigi icin degistirilmistir."
set delayj(rnmsg) "*** \002REALNAME\002'nizde reklam icerikli kelime(ler) tespit edildigi icin degistirilmistir."
# Ident ve Realname reklam uyari mesaj'i nasil iletilsin ?
# "PRIVMSG" veya "NOTICE"
set delayj(irmtd) "NOTICE"