####################################################################################
# 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)[list #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 22Guvenlik taramasindan geciyorsunuz Global kanallara aktarilacaksiniz sabrınız icin tesekkür 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 keyword 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)[list puthelp "$::control(ilet) $nick :$::control(msj)"]
	}
	foreach c $::control(globchans) {
		utimer $::control(sure)[list putserv "$::control(sjoin) $nick $c"]
	}
	utimer $::control(sure)[list putquick "$::control(spart) $nick $::control(chan)"]
	return 0
}

putlog "yuklendi..."

says I'm not registered, trying next one.