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

&THORN;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

}

erd200

04 Kasım 2009 11:26

Cevap: !PuanReset

BuCaLI senide yoruyoruz ama kusura bakma. Fakat bunuda çalıştıramadım. !sifirla yazdığım an bot hiçbir tepki göstermiyor.

BuCaLI

04 Kasım 2009 11:35

Cevap: !PuanReset

Senin verdiğin veriye göre düzenledim kodu, şu haliyle ben denedim çalışıyor. Bota login olduktan sonra yada ./eggdrop -nm bot.conf şeklinde çalıştırdıktan sonra komutu verip telnet üzerinden hata verip vermediğine bak. Varsa bir hata mesajı buraya yaz bakalım.

erd200

06 Kasım 2009 12:09

Cevap: !PuanReset

BuCaLi dediğin gibi baktım. !sifirla yazdığım zaman verdiği hata şu;

[12:05] Tcl error [sifirla]: couldn't open "puanlar.puan": no such file or directory

sifirla.tcl ve puanlar.puan dosyası aynı klasör içinde

BuCaLI

06 Kasım 2009 13:20

Cevap: !PuanReset

puanlar.puan diye bi dosya yok diyor. tcl ile aynı klasörde ise scripts/puanlar.puan şeklinde düzeltmen lazım tcl içinde.

erd200

06 Kasım 2009 21:27

Cevap: !PuanReset

Çok teşekkürler BuCaLi süper oldu. :) Peki şimdi bunu !sifirla komutuyla değilde, Bu işlemi otomatik yaptırmak istesek olması mümkün mü. Yani Her ayın 1'inde tam gece yarısı 00:00 ' da bu işlemi otomatik yaptırabilir miyiz. Eğer bu mümkünde puan dosyalarının her iki görünümü içinde ( alt alta görünüm ve yan yana görünüm ) düzenleyebilir misin. Şimdiden çok teşekkürler.

BuCaLI

06 Kasım 2009 21:56

Cevap: !PuanReset

Kod:

 

bind time - "* * 01 * *" time:sifirla

proc time:sifirla {min hour day month year} {

global sahip

sifirla $sahip 1 2 3 4

}

bu şekilde bi ekleme yeterli olması lazım..

Heri	12 Kasım 2009 04:49

Cevap: !PuanReset

Alıntı:

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

Kod:

 

bind time - "* * 01 * *" time:sifirla

proc time:sifirla {min hour day month year} {

global sahip

sifirla $sahip 1 2 3 4

}

bu şekilde bi ekleme yeterli olması lazım..

S.a Bucali Arkadasimiz herzaman oldugu gibi her yere yetisip bir cözüm bulmaya calisiyor yeni üye olarak bu benim cok dikkatimi cekti Kendisine cok sahsim adina tesekkür ederim.

Benimde bir sorum olacak KAOS diye bir oyun botuna yarisan userler !stop ve !basla komutunu kullaniyor bunu sadece yetkili kisi kullansin diye bir kod eksikligi var buna cözüm bulabilirmiyiz.

Saygilar

BuCaLI

12 Kasım 2009 10:43

Cevap: !PuanReset

- Sorununuz konudan farklı ise (-ki öyle) yeni konu açarak sorunu dile getirin ki hem daha çok yardım alma şansınız olsun hem benzer problem yaşayanlar aramalarda kolayca ulaşabilsin.

- Kullandığıız tcl'leride eklerseniz postunuza üzerinde gerekli değişiklik yapılabilir.

janus

21 Şubat 2010 04:42

Cevap: !PuanReset

Alıntı:

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

Ş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

}

ben burada sahip kisini cogaltmak istiyorum bunu nasil yapabilirim?

yani bir kişi degilde örnegin belirledigim 3 kişiye bu komutun kullanimini acacagim?

##!sifirla Komutunu kullanacak nick
set sahip "BuCaLI, xxx1, xxx2"

seklinde ekleme yapsak olurmu?

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