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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   !PuanReset (https://www.ircforumlari.net/eggdrop-neostats-bnc/272523-puanreset.html)

erd200 11 Ekim 2009 16:31

!PuanReset
 
Merhaba arkadaşlar ben şöyle birşey düşünmüştüm.

Oyun kanallarımızda her ay puanları sıfırlıyoruz. Ödül olarak top10 listesindeki ilk 3 kişiyi geçen ayın ilkleri yazarak kanalın topic ine kayıt ediyoruz. Puanlarıda ftp den script klasöründeki puan listesini silerek yapıyorum. Bu yüzden benim istediğim kanallarda görevlendiğimiz herhangi bir nickin veya nicklerin ilgili tcl dosyasında belirtip tanıtarak o nickin ay sonu olduğunda kanal içinde !puanreset yazdığında oyun botuna geçen ayın top listesindeki ilk 3 ü topic listesine yazdırarak puanları sıfırlamasını istiyorum bu mümkün mü ? Şimdiden teşekkürler.

erd200 30 Ekim 2009 21:53

Cevap: !PuanReset
 
arkadaşlar bu konuda yardımcı olabilir misiniz.

BuCaLI 31 Ekim 2009 10:18

Cevap: !PuanReset
 
Hangi oyun botunu kullanıyorsun ? Puanların saklandığı dosyadan bi kaç örnek verirsen buraya ona göre hatasız yapmak daha iyi olur.

kup{a}pazl 31 Ekim 2009 10:21

Cevap: !PuanReset
 
Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 850732)
Hangi oyun botunu kullanıyorsun ? Puanların saklandığı dosyadan bi kaç örnek verirsen buraya ona göre hatasız yapmak daha iyi olur.


MeseLa; OXM , Soru-Cevap Ve Kelime BucaLı. Bende Merak ettim Doğrusu. Güzel fikir Arkadasın istediği Kanalın Founder'inin kontrol edebileceği şekilde ayarlanabilirse daha imkanı güzel olur.

BuCaLI 31 Ekim 2009 10:23

Cevap: !PuanReset
 
Yanlız şu an hiçbiri yok elimde kullanmıyorum yani. Siz hazır kullanıyoken puanların saklandığı dosyada nickler ve puanlar varken bi kısmını yazarsanız buraya nasıl sıralanmış olduğunu görür ona göre bişey yaparım.

kup{a}pazl 31 Ekim 2009 10:31

Cevap: !PuanReset
 
OXM Bot : eggdrop***/scripts/oxm/puandosyası. (Tam Emin değilim Senin Ayarladıgı Sekildedir Büyük İhtimalle)


Soru-Cevap : eggdrop***/scripts/trivian.scores.


Kelime : eggdrop***/scripts/kelime.scores.

MeseLa : Kaos.scores yine Scripts klasorunde. Geneli Zaten Alt Alta ve Bu sekilde oluyor. bir Tek hatırladıgım Soru-CEvap Botunda Tek Satır halinde oluyor. ve .txt uzantısında sanırım.

Kod:


 
Maltepeli 60590
sal_va_dor 42920
Mavi6 38080
PoLeMiCK 29690
Nod 22040
SeReN 6870
Beyazinci 6640
aLa_SuLtAn 5620
iSKeNDeR 4530
appo 4020
PeRim 1570
NaZZLi 1240
SEAN_PAULL 910
yoq 840
prenses 780
Byn`BeLa 260
NEROON 240
MadLy 240
StiL 160
yoqlarda 140
NiLay 110
SeVCaN 100
[__OzY__] 100
SmIRC324579 80
kup{a}pazl 50
Þirine 30
mubtela 20
PaSaLi 10
bLaCk^eAgLe 10


BuCaLI 31 Ekim 2009 11:07

Cevap: !PuanReset
 
Puan dosyasının yeri, oyun kanalı ve kullanacak nick kısımlarını kendinize göre editleyip kanalda !sifirla komutunu kullanınca ilk 3 ü Topic'e yazıp puanları sıfırlayacaktır.

NOT: Kullanmadan önce puan dosyanızın yedeğini alın..

Kod:


##Puanların kayıtlı olduğu dosyanın yeri
set puanliste "scripts/puan.txt"
 
##Topic atılacak oyun kanalı
set oyunkanal "#oyun"
 
##!sifirla Komutunu kullanacak nick
set sahip "BuCaLI"

bind pub - !sifirla sifirla
proc sifirla { n u h c a } {
global puanliste oyunkanal sahip
if { $n != $sahip } { return 0 }
set kazananlar "\00304Gecen Ayin İlk 3'ü:"
set f [open $puanliste r]
 for { set s 0 } { $s < 3 } { incr s } {
 gets $f toplam
  if {[lindex $toplam 1] > 0} {
  append kazananlar "\00301 [expr $s +1] -\00302 [lindex $toplam 0] [lindex $toplam 1] "
  } {
  append kazananlar ""
  }
 }
putserv "cs set $oyunkanal topiclock off"
putserv "topic $oyunkanal . . $kazananlar"
putserv "cs set $oyunkanal topiclock on"
close $f
set f [open $puanliste w]
close $f
}


kup{a}pazl 31 Ekim 2009 11:22

Cevap: !PuanReset
 
Güzel Oldu Emegine Sağlk Teşekkürler.

erd200 03 Kasım 2009 12:08

Cevap: !PuanReset
 
Benim puan listesi görünümü şu şekilde,

1,795.391651577,Erd200,erd200 86,799.215962747,demDUK,demduk 6,801.122021381,sensen,sensen


Dosyada yaptığım düzenleme:

##Puanların kayıtlı olduğu dosyanın yeri
set puanliste "puandosyası.puan"

##Topic atılacak oyun kanalı
set oyunkanal "#test"

##!sifirla Komutunu kullanacak nick
set sahip "Erd200"
bind pub - !sifirla sifirla
proc sifirla { n u h c a } {
global puanliste oyunkanal sahip
if { $n != $sahip } { return 0 }
set kazananlar "\00304Gecen Ayin İlk 3'ü:"
set f [open $puanliste r]
for { set s 0 } { $s < 3 } { incr s } {
gets $f toplam
if {[lindex $toplam 1] > 0} {
append kazananlar "\00301 [expr $s +1] -\00302 [lindex $toplam 0] [lindex $toplam 1] "
} {
append kazananlar ""
}
}
putserv "cs set $oyunkanal topiclock off"
putserv "topic $oyunkanal . . $kazananlar"
putserv "cs set $oyunkanal topiclock on"
close $f
set f [open $puanliste w]
close $f
}


Bende çalışmadı. !sifirla komutunu verdiğim zaman hiç bir değişiklik olmadı.

BuCaLI 03 Kasım 2009 14:03

Cevap: !PuanReset
 
Alıntı:

erd200 Nickli Üyeden Alıntı (Mesaj 854586)
Benim puan listesi görünümü şu şekilde,
1,795.391651577,Erd200,erd200 86,799.215962747,demDUK,demduk 6,801.122021381,sensen,sensen

Şu şekilde bir dene sende;

Kod:


 
##Puanların kayıtlı olduğu dosyanın yeri
set puanliste "puandosyası.puan"
 
##Topic atılacak oyun kanalı
set oyunkanal "#oyun"
 
##!sifirla Komutunu kullanacak nick
set sahip "BuCaLI"
 
bind pub - !sifirla sifirla
proc sifirla { n u h c a } {
global puanliste oyunkanal sahip
if { $n != $sahip } { return 0 }
set kazananlar "\00304Gecen Ayin İlk 3'ü:"
set f [open $puanliste r]
gets $f toplam
 for { set s 0 } { $s < 3 } { incr s } {
 set i [lindex $toplam $s]
 regexp -- {(.+?)\,(.+?)\.(.+?)\,(.+?)\,(.+?)} $i - puan 2 3 nick 5
 append kazananlar "\00301 [expr $s +1] -\00302 $nick $puan "
 }
putserv "cs set $oyunkanal topiclock off"
putserv "topic $oyunkanal . . $kazananlar"
putserv "cs set $oyunkanal topiclock on"
close $f
set f [open $puanliste w]
close $f
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:44.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk