IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Okutma Tcl Değişiklik Yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/45708-okutma-tcl-degisiklik-yardim.html)

Okutma Tcl Değişiklik Yardım

## 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

Cevap: Okutma Tcl Değişiklik Yardım

Kod:

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"] 

        } 

        sohbet:basla $n $u $h $c $a

        close $file 

}

Mutlaka durdurmakta istersin :)

Cevap: Okutma Tcl Değişiklik Yardım

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