####################################################################################
# amaç : sunucuya girenleri istenilen bir kanala sokmak:
# istenilen süre geçtikten sonrada diğer kanal/lara yollamak
# tabi bu arada bekletildikleri kanaldan da çıkacaklar....
####################################################################################

# girişte kullanıcıların çekileceği kanal:
set control(chan) "#Karantina"

# bekletildikten sonra,hangi kanal/lara gönderilecekler:
set control(globchans) "#Sohbet,#Radyo,#Oyun,#Kelime,#Yarisma,#OXM,#Moos"

# bekletilme süreleri(saniye olarak):
set control(sure) "6"

# kontrol kanalına çekilen kullanıcı/lara göndermek istediğiniz mesaj:
set control(msj) "2Hos geldiniz 4$nick 2Guvenlik taramasindan  geciyorsunuz Global kanallara aktarilacaksiniz sabriniz icin tesekkur  ederiz."

# kontrol kanalına çekilen kullanıcı/lara ne kadar süre sonra mesaj atılacak(saniye)
set control(msjzmn) "2"

# mesaj iletim yöntemi ne olacak(özele mesaj mı -> privmsg/notice mi):
set control(ilet) "notice"

# kullanıcı sunucuya girişinde yakalanacak notice mesajı nedir:
set control(notc) "*client connecting*"

# sajoin için sizin oralarda ne kullanılır:
set control(sjoin) "sajoin"

# peki sapart için ne kullanırsınız:
set control(spart) "sapart"

#########################ayarlar bitti##############################################

bind raw - notice well:come

proc well:come {from key arg} {
    global control
    # global komutuyla prosedür içinde "global namespace variable"  olmaktan çıkıp,"local variable" olarak kullanılabilir :: kullanmaya  gerek kalmaz!
    if {[string match -nocase "*!*@*" $from] || ![string match -nocase $control(notc) $arg]} { return 0 }
    #set nick [lindex [split $arg] 9]
    # : işaretinden böl ( [split $arg :] ), 1. parçasının,ilk kelimesini al! ( lindex .... 1 0 )
    set nick [lindex [split $arg :] 1 0]
    if {[isbotnick $nick]} { return }
       putquick "$control(sjoin) $nick $control(chan)"
       utimer $control(msjzmn) [list putquick "$control(ilet) $nick :$control(msj)"]
    foreach c $control(globchans) {
        utimer $control(sure) [list putserv "$control(spart) $nick $control(chan)"]
        utimer $control(sure) [list putserv "$control(sjoin) $nick $c"]
    }
    return 0
}

 putlog "yuklendi..."