proc sohbet:basla { n u h c a } { 
	global db wait gecikme_zamani 
	set file [open $db r] 
	set listfile [split [subst -nocommands [read $file]] "\n"] 
	foreach i $listfile { 
		set wait [expr $wait + $gecikme_zamani] 
		utimer $wait [list putserv "privmsg $c $i"] 
	} 
	sohbet:basla $n $u $h $c $a
	close $file 
}