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

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

- - Global TCL ( Süre Aralıkları iLe ) (https://www.ircforumlari.net/eggdrop-neostats-bnc/290635-global-tcl-sure-araliklari-ile.html)

Global TCL ( Süre Aralıkları iLe )

Arkadaşlar Merhaba ;
Sunucumuz da genel bilgilendirmeleri yapmak için bir global tcl yazsak ve örnek olarak global.txt dosyamızdan sıra ile belirli zaman aralıklarında komut uygulasa ve en sonuncusunda tekrar başa dönerek devam etse nasıl bir kod yazmalıyız . İyi Forumlar ..

Cevap: Global TCL ( Süre Aralıkları iLe )

Alıntı:

Raw Nickli Üyeden Alıntı (Mesaj 861352)

Merhaba, acoustic Arkadaş'ın bir tcl'si vardı arşivimde bunu kullana bilirsiniz.

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

#Oper Login sifresi 
set o_pass "operşifresi" 

#Nick identify sifresi 
set b_ipass "123456" 


#bind 
bind evnt - init-server baglanti:ayari 

#mesajlar 
set global_msg { 
"0,20 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">} 

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"

Cevap: Global TCL ( Süre Aralıkları iLe )

Alıntı:

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

teş ederim ama yukarıda ki kodda da gördüğün üzere karışık atıyor .. sıralı olmalı ve dosyadan okumalı sürekli ..

Cevap: Global TCL ( Süre Aralıkları iLe )

Ali su anda baska projem var kisa sure icinde biticek bittiginde istedigin code'yi yazalim kardesim. :)
Gelismis bi code yazariz, ornek vereyim mesela #Opers kanalinda;
!global ekle <MESAJ>
!global sil <NUMARA>
!global <LISTELE>
Gibi komutlar uyguladigimizda global.txt dosyasindan veri ekleme/silme/listeleme ozelligide yapabiliriz. :D
Guzel fikir. :)

Cevap: Global TCL ( Süre Aralıkları iLe )

Sevgili Ali-G donguyu yapamadim, ama boyle birsey cikardim ortaya. :)
En azindan istedigin sekilde yapiyor. Sirali motor gibi. :D
12 satir olarak belirledim, her bir satir'i 5'er dakika arayla kullanicak. Daha sonra basa donerek tekrar ayni sekilde devam edecek.
Global.txt'de mesajlar alt alta yazilmali, satirlarin arasinda bosluk olmamali. Global mesajlari global.txt'ye manual olarak yazmalisin.

Kod:

 

MESAJ 1

MESAJ 2

MESAJ 3

vs.

Seklinde 12 satirlik global mesajlarini alt alta ekle.

Kod:

 

# Global mesajlarin dizin yolunu belirtiniz.

set glblmsg "scripts/global.txt"
 

# Bot sunucuya girdiginde kac saniye sonra global mesaj sistemi aktif olsun ? (Saniye cinsinden)

# 60 = 1 dk. | 300 = 5 dk. | 900 = 15 dk.

utimer 60 globaltextmsg
 

proc globaltextmsg {} {

global botnick globaltextmsg glblmsg

  set globalmsg [open $glblmsg r]

  set msg(1) [gets $globalmsg]

  set msg(2) [gets $globalmsg]

  set msg(3) [gets $globalmsg]

  set msg(4) [gets $globalmsg]

  set msg(5) [gets $globalmsg]

  set msg(6) [gets $globalmsg]

  set msg(7) [gets $globalmsg]

  set msg(8) [gets $globalmsg]

  set msg(9) [gets $globalmsg]

  set msg(10) [gets $globalmsg]

  set msg(11) [gets $globalmsg]

  set msg(12) [gets $globalmsg]

    close $globalmsg

      putquick "os global $msg(1)"

      timer 5 [list putquick "os global $msg(2)"]

      timer 10 [list putquick "os global $msg(3)"]

      timer 15 [list putquick "os global $msg(4)"]

      timer 20 [list putquick "os global $msg(5)"]

      timer 25 [list putquick "os global $msg(6)"]

      timer 30 [list putquick "os global $msg(7)"]

      timer 35 [list putquick "os global $msg(8)"]

      timer 40 [list putquick "os global $msg(9)"]

      timer 45 [list putquick "os global $msg(10)"]

      timer 50 [list putquick "os global $msg(11)"]

      timer 55 [list putquick "os global $msg(12)"]

  timer 60 globaltextmsg

}

Cevap: Global TCL ( Süre Aralıkları iLe )

Belli bi satırla sınırlamaya gerek yok. Bu şekilde istediğiniz kadar globali scripts/global.txt dosyası içine atın. Globallerin kaç dakika arayla atılması gerektiği bilgilerini de kendinize göre düzenledikten sonra botu çalıştırın. Bot globaleri dosyadaki sırasına göre bitirdikten sonra tekrar başa dönecektir.

Kodu denemedim, deneyip sorun olup olmadığını belirtirseniz iyi olur..

Kod:

 

 

##globallerin bulunduğu dosyanın yeri

set globaller "scripts/global.txt"

 

##globaller kaç dakika arayla atılacak

set zaman "10"

 

####

utimer 5 globalat
 

proc globalat { } {

global globaller zaman

set msgzaman "0"

set dosya [open $globaller r]

set liste [split [subst -nocommands [read $dosya]] "\n"]

   foreach i $liste {

   set msgzaman [expr $msgzaman + $zaman]

   timer $msgzaman [list putserv "os global $i"]

   }

close $dosya

timer $msgzaman [list globalat]

}

Cevap: Global TCL ( Süre Aralıkları iLe )

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 863538)

Kod:

 

 

##globallerin bulunduğu dosyanın yeri

set globaller "scripts/global.txt"

 

##globaller kaç dakika arayla atılacak

set zaman "10"

 

####

globalat

proc globalat { } {

global globaller zaman

set msgzaman "0"

set dosya [open $globaller r]

set liste [split [subst -nocommands [read $dosya]] "\n"]

   foreach i $liste {

   set msgzaman [expr $msgzaman + $zaman]

   timer $msgzaman[list putserv "os global $i"]

   }

close $dosya

set msgzaman [expr $msgzaman + $zaman]

timer $msgzaman[list globalat]

}

timer $msgzaman[list putserv "os global $i"]
timer $msgzaman[list globalat]

Toprak su timer zaman'dan sonra ki bosluklari hep unutuyorsun. :)

Kod:

 

##globallerin bulunduğu dosyanın yeri

set globaller "scripts/global.txt"

 

##globaller kaç dakika arayla atılacak

set zaman "10"

 

####

globalat

proc globalat { } {

global globaller zaman

set msgzaman "0"

set dosya [open $globaller r]

set liste [split [subst -nocommands [read $dosya]] "\n"]

   foreach i $liste {

   set msgzaman [expr $msgzaman + $zaman]

   timer $msgzaman [list putserv "os global $i"]

   }

close $dosya

set msgzaman [expr $msgzaman + $zaman]

timer $msgzaman [list globalat]

}

Cevap: Global TCL ( Süre Aralıkları iLe )

unutmuyorum benim kullandığım tarayıcıdan dolayı sanırsam o boşluklar siliniyor hep ;)

Cevap: Global TCL ( Süre Aralıkları iLe )

Firefox tavsiye ederim toprak. :D