IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:

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

}