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

erd200 · 11 Ekim 2009, 16:31

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

arkadaşlar bu konuda yardımcı olabilir misiniz.

BuCaLI · 31 Ekim 2009, 10:18

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

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

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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

 
 
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
&THORN;irine 30
mubtela 20
PaSaLi 10
bLaCk^eAgLe 10

BuCaLI · 31 Ekim 2009, 11:07

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: Kodu kopyalamak için üzerine çift tıklayın!

 
##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

Güzel Oldu Emegine Sağlk Teşekkürler.

erd200 · 03 Kasım 2009, 12:08

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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

 
 
##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
}

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.