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 }