set db "/home/kullanici/public_html/djistek/veri.txt"
set gecikme_zamani "1"
set wait "1"
bind time - "* * * * *" time:optara
proc time:optara {min hour day month year} {
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]
set ch "#Dj"
utimer $wait[list putserv "privmsg $ch :$i"]
}
 
set filem [open $db w]
set listfilem [split [subst -nocommands [read $filem]] "\n"]
foreach i $listfilem {
set wait [expr $wait + $gecikme_zamani]
set ch "#Dj"
utimer $wait[list putserv "privmsg $ch :$i"]
}
close $file
}