set gecikme_zamani "0"
set wait "0"
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 putquick "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 putquick "privmsg $ch :$i"] 
} 
close $file 
}