Çevrimdışı

## Okutulacak dosya
set db "scripts/sohbet.txt"

## Dokunma.!
set wait "1"

## Başladıktan sonra kanala kaç saniye arayla yazacak?
set gecikme_zamani "15"

## Burdan sonrasına dokunma

bind pub - !sohbet sohbet:basla

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"]
}
close $file
}

putlog "Dosya yüklendi.. Coded By BuCaLI"


arkadaşımız sağolsun böle bir tcl yi verdi
bize ama bir sorum olcak bu tcl yi şöye değiştirebilecek arkadaşlar
varmı
bot otomatikj olarak sohbet.txt yi okutmaya başlayacak
ve bütün sayfayı okuttuktan sonra komuta gerek kalmadan
tekrar en baştan okumaya başlayacak umarım anlatabilmişimdir
tşk ederim kolay gelsin