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

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

- - radyo tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/38574-radyo-tcl.html)

arkadaşlar bana şöle bir tcl lazım Security güvenlik botu belirli sürelerlde kanallara radyo linki atcak mesela
<@Security> C* Radyomuzu DinLemek için => [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] TıkLamanız YeterLi... C*

elinde böle bir tcl olan varmı? Olan arkadşalar paylaşırsa sevinirim.Teşekkürler

Cevap: radyo tcl

securityin confuna radyo.tcl eklemen gerekir.
source scripts/radyo.tcl diye.

Cevap: radyo tcl

İyide bana sadece dediğim linki arada sohbet kanalına atcak tcl lazım
bu şekilde iş görürmü?

Cevap: radyo tcl

arşiv bölümünde radyo.tcl mevcut daha güzel işine yarar.. bence gir bi bak araştır emeksiz yemek olmaz ..

Cevap: radyo tcl

ayarlarsan atar otamatik..

Cevap: radyo tcl

Arkadaşlar dediğinizi anladım ama o zaman şu arada çıkan şu kadar dinli lard açıkcak bi yerde gördüm Security sadece

[23:33] <04@Security> 0,4C* Radyomuzu DinLemek için =>9 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 TıkLamanız YeterLi... C*

diyor arada bi bana sadece bu linki vercek tcl lazım umarım anlatabilmişimdir.Teşekkür ederim

Cevap: radyo tcl

dedigimi yaparsan gerisi kendiliginden gelir..

Yanıt: radyo tcl

Kod:

#Konusma icin zaman sureci (Dk cinsinden)
 

set zaman_araligi "15"
 
 
 
 
 

#Uygulamanin calismasi icin
 

#botun oper login ve nick login paslari
 
 
 

#oper login
 

set o_login "eggdrop"
 

set o_pass "OperPASS"
 
 
 

#Nick identify sifresi
 

set b_ipass "NickPASS"
 
 
 
 
 

#bind
 

bind evnt - init-server baglanti:ayari
 
 
 

#mesajlar
 

set global_msg {
 

  "^C15,1 RaDYoMuZu DiNLeMeK iÇiN ^C0,3 « http://xxxxxxxx/listen.pls  »^C3,1LiNKiNi TıKLaYıNıZ. "
 

}
 
 
 

if {![string match "*konusma_zamani*" [timers]]} {
 

 timer $zaman_araligi konusma_zamani
 

}
 
 
 
 
 

proc konusma_zamani {} {

global global_msg zaman_araligi
 

   set global_rmsg [lindex $global_msg [rand [llength $global_msg]]]
 

   putserv "OS GLOBAL $global_rmsg"
 

   timer $zaman_araligi konusma_zamani
 

   return 1
 

 }
 

proc baglanti:ayari {type} {
 

  putserv "NICKSERV IDENTIFY $b_ipass
 

  putserv "OPER $o_login $o_pass"
 

  putserv "WALLOPS :Global mesaj sistemi aktif!"
 

}

putlog "Global mesaj atma sistemi yuklendi"
 

putlog "Bot OPER ve Global kullanma izni olmadigi surece"
 

putlog "Calismayacaktir!"
 

putlog "mail: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

acoustic'e ait bir kod .... herhangi bir confun source scripts kısmına eklersin .. Global atar belirlediğin bir zamanda ..