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

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

- - Global.tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/20058-globaltcl.html)

Arkadaşlar Elinde Bu Belirlediğim 4-5 Tane msj belirli aralıklar gönderebilcek bir TCL bot bilen paylaşabilecek olan varmı olursa Çok iyi olur SaygıLar..

Yanıt: Global.tcl

PHP- Kodu:

   #Konusma icin zaman sureci (Dk cinsinden)  
set zaman_araligi "10"  
 
  
#Uygulamanin calismasi icin  
#botun oper login ve nick login paslari  
 
#oper login  
set o_login "aCoustiC"  
 
#Oper Login sifresi  
set o_pass "opersifresi"  
 
#Nick identify sifresi  
set b_ipass "123456789"  
 
 
#bind 
bind evnt - init-server baglanti:ayari  
 
#mesajlar  
set global_msg {  
  "Kaybedecek birşeyi olmayan insandan korkulur..!"  
  "Sen Sen olmayı Bilki Sana Seni Sormasınlar ...!"  
}  
 
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: acoustic@realcoder.com"

Yanıt: Global.tcl

peki bunu botun sourcesiden eklesek mesela oyun botunun yada herhangi bir botun altinda çaliştirsak olurmu ?

Yanıt: Global.tcl

tcl yi attıktan sonra ..source scripts kısmına eklersen çalışır ... Sonuçta eggdroplar tcl lerin işlevlerini yaparlar .. Onun dışında işlevleri yoktur ..

(bu arada ben de ekleyeyim .. Gerçekten gerekli bir tcl ..Teşekkürler) :)

Yanıt: Global.tcl

Alıntı:

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

buradaki
putserv "OS GLOBAL $global_rmsg"
yerine
putserv "notice $*.net $global_rmsg"
yazdım notice atması için ama notice atmıyor bi yardım edecek olan varmı arkadaşlar

Yanıt: Global.tcl

Kod:

putserv "notice $*.Sohbetlere.Com $global_rmsg"

Benim sunucumda bu şekilde düzenli ve çalışıyor kendi sitene göre uygun şekilde düzenle.. Eminim Çalışacaktır.

Yanıt: Global.tcl

ozentisiz:

putserv "OS GLOBAL $global_rmsg"

kismini

putserv "NOTICE $*.net :$global_rmsg"

seklinde duzenlersen calisacaktir.

Cevap: Global.tcl

#mesajlar
set global_msg {
"7m3IRC 7S3cripT12 İndirmek İçin 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
TIKLA"
"7Z3iyaretçi 7D3efterine12 Yazmak İçin 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
TIKLA"
"7R3adyo 7D3inlemek12 İçin 4http://iRc.Domain.Net:8080/listen.pls 1<<12 TIKLA 7(Winamp)"
"7R3adyo 7D3inlemek12 İçin 4http://domain.net/radyo.php 1<<12 TIKLA 7(Media Player)"
}

Böle yaptım sadece en sonuncuyu atiyo

Buna nasıl 4-5 ayrı global mesajı yapıcaz.