Ç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

 

Çevrimdışı

Mutlaka durdurmakta istersin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________

Our brain is Our Weapon

 

Çevrimdışı

teşekkür ederim aCoustiC peki botun okuyacağı txt dosyası bittiği zaman başa saracakmı kendiliğinden