##############
# BASLA ! :) #
##############

# Ozele iletilecek mesajlari belirtin. 

set xox(mesaj) {
"Mesaj 1"
"Mesaj 2"
"Mesaj 3"
"Mesaj 4"
"Mesaj 5"
}

##############
#  CISS ! :) #
##############

bind raw * notice giris:kontrol
proc giris:kontrol {from keyword text} { 
global botnick
	if {[string match -nocase "*client connecting*" $text]} { 
		set rumuz "[lindex $text 9]"
		bind notc - * kayit:kontrol
		putquick "PRIVMSG NickServ :INFO $rumuz"
	} 
}

proc kayit:kontrol {nick uhost hand text dest} {
global botnick xox
	if {$nick == "NickServ"} {
		if {[string match -nocase "*kay?tl?*deg?l*" $text]} {
			set rastgelemesaj "[lindex $xox(mesaj) [rand [llength $xox(mesaj)]]]"
			set noticerumuz "[lindex [stripcodes bcru $text] 0]"
			utimer 10[list putquick "PRIVMSG $noticerumuz :$rastgelemesaj"]
			unbind notc - * kayit:kontrol
		} else {
			unbind notc - * kayit:kontrol
		}
	}
}

##############
# BITTI ! :) #
##############