[Joop]

Merhaba Hayırlı Geceler...

Aradım Ama Bulamadım Paylaşıldımı bilmiyorum..
Yıllar Önce Kullanıyordum eggdrop ve web tabanlı bir yazılımdı
Webden Yapılan Radyo istedği webistek.tcl yardımı ile DJ kanalına Gösterebiliyorduk bulamadım malesef bilen kullanan arkadaşlar yardımcı olabilirmi ?

[YellowLine]

selam,
aşağıdaki linklere bakabilirsin,

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

 










    

        

         
        
        

        
        
            

                __________________

             [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
            
        
        

        


        

    

[Joop]

YellowLine Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

selam, aşağıdaki linklere bakabilirsin, Kod:   Kodu kopyalamak için üzerine çift tıklayın! https:// Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. https:// Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. https:// Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

AleykumSelam Hocam, Bahsettiğim Bot Eggdrop TCL yalnız, mirc remote olarak değil O Sebeple Bu Bölüme Açdım

[aquabluee]

TCL olarak bu var bende

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

set db "/home/kullanıcıadı/public_html/istek/veri.txt"
set gecikme_zamani "0"
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
}

[Joop]

aquabluee Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

TCL olarak bu var bende Kod:   Kodu kopyalamak için üzerine çift tıklayın! set db "/home/kullanıcıadı/public_html/istek/veri.txt" set gecikme_zamani "0" 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 }

Bunun Hocam Webe Atılacak Dosyalarıda vardı. Eggdrop bot ordan okuyup dj rakanalına yazıyordu Radyo botuna okutturuyorduk tcl yi

[aquabluee]

buyur [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Joop]

aquabluee Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

buyur [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Çok Saol Ustad. Aradığım Tam Olarakda Buydu.
Türkçe Karakter sorunu veriyor. UTF_8 Olarak değiştim kayıtları ama yine veriyor ona bakıyorum şimdi.
Çok saol tekrardan

[aquabluee]

yapamazsan yardım ederim yazarsın pmden