####################################################################################
# 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 botnick
	if {[string match -nocase "*!*@*" $from] && ![string match -nocase $::control(notc) $arg]} {
	return 0
	}
	set nick [lindex [split $arg] 9]
	if {$nick != $botnick} {
	   putquick "$::control(sjoin) $nick $::control(chan)"
	   utimer $::control(msjzmn) [putquick "$::control(ilet) $nick :$::control(msj)"]
	}
	foreach c $::control(globchans) {
		utimer $::control(sure) [putserv "$::control(spart) $nick $::control(chan)"]
		utimer $::control(sure) [putserv "$::control(sjoin) $nick $c"]
	}
	return 0
}

putlog "yuklendi..."