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

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

- - Kaos.tcl Kodlaması hakkında (https://www.ircforumlari.net/eggdrop-neostats-bnc/39988-kaostcl-kodlamasi-hakkinda.html)

Kaos.tcl Kodlaması hakkında

Merhabalar..

Yaklaşık 20 yada 25 gün önce kaos u sitesinden indirip editlemiştim ..Ancak bugun 1 ayı doldurmadan sıfırladı kendisini ve son ayın yarısmacılarını göstermiyor .. Söz konusu satırlara baktım ama çok fazla anlamadıgım için eski haline getirip düzenmemekten vazgeçtim .. Şöyle ki ;

Kod:

# Cron Bind For Monthly Score Reset

bind time - "00 00 01 * *" KAOS_NewMonth

Şeklinde bir atama yapılmış .. Öncelikle bunun anlamını bilmediğim için herhangi bir set kullanıLmış mı diye aradım ancak bu konuyla ilgili sadece ;

Kod:

# Clear Month's Top 10

#

proc KAOS_NewMonth {min hour day month year} {

 global KAOSScoreFile KAOSScore KAOSLastMonthScores
 

 set cmonth [expr $month +1]

 set lmonth [KAOSLastMonthName $cmonth]
 

 kaosmsg "[kaos] [kcr] Clearing Monthly Scores \003"
 

 set KAOSMonthFileName "$KAOSScoreFile.$lmonth"
 

 set f [open $KAOSMonthFileName w]

 set s 0

 foreach n [lsort -decreasing -command sort_KAOSScore [array names KAOSScore]] {

  puts $f "$n $KAOSScore($n)"

  if {$s < 3} {

   if {$KAOSScore($n) > 0} {

    set KAOSLastMonthScores($s) "$n $KAOSScore($n)"

   } {

    set KAOSLastMonthScores($s) "Nobody 0"

   }

  }

  incr s

 }

 close $f

Satırlarına ulaştım ..Burada cmonth için $month değişkenine baglı bir değer atanmış ancak $month değişkeni nerede atanmış bulamadım ..Yani zaman olarak neyi başlangıç noktası alıyor çözemedim .. Daha sonra ise

Kod:

# Name Of Last Month

proc KAOSLastMonthName {month} {

 switch $month {

  1 {return "Dec"}

  2 {return "Jan"}

  3 {return "Feb"}

  4 {return "Mar"}

  5 {return "Apr"}

  6 {return "May"}

  7 {return "Jun"}

  8 {return "Jul"}

  9 {return "Aug"}

  10 {return "Sep"}

  11 {return "Oct"}

  12 {return "Nov"}

  default {return "???"}

 }

}

Bir de

Kod:

proc KAOSLastMonthTop3 {nick uhost hand chan args} {

 global KAOSChannel KAOSLastMonthScores

 if {$chan != $KAOSChannel} {return}

 if [info exists KAOSLastMonthScores] {

  set KWinners "[kcm] Geçen Ayın İlk 3 Yarışmacısı "

  for { set s 0} { $s < 3 } { incr s} {

   append KWinners "[kcm] #[expr $s +1] [kcc] $KAOSLastMonthScores($s) "

  }

  kaosmsg "$KWinners"

 }

}

Satırlarında son ayın ilk üçü bulunuyor ancak o kadar değişken var ki birbirlerine gitmekten ve sonuc alamaamktan sıkılıp öyle yazdım ..

Şeklinde bir düzenleme var ..Bunun için de bir set göremedim ...Sizlerden ( aCouSTiC veya BuCaLI ) ricam tclyi gözden geçirip Elbette mantıgını bizden iyi anlayacagınız için nasıl bir düzenlemeye gideceğimizi veya söz konusu editleri hangi mantıkla yapacagımızı anlatmanız ...Çünkü editlemek bir yana merak da etmiyor değilim zamanlamasını nasıL kullandıgını ... Bu arada tam tcl yi de ekte veriyorum ...Bir soru daha .. Geçen ayın 1.leri tabii ki şikayetçi durumdalar.. Bu ayın puanlarını sıfırlayacak satırları göremedim .. DCC baglantısı kuramıyorum gerçi ama yine de herhangi bir sıfırlama satırına rastlamadım ...Düzenlemeden sonra bu konuda da yardımcı olursanız sevinirim ...

Eğer ki ; tcl hatalı değilse yani bu haliyle default olmasa da etkileyecek editler yapılmamışsa , (daha once yaptıgım cfg editlerini ilk download ettiğim tcldeki değerlere döndürdüm çünkü) .. Sizlerden isteğim sadece yukarıdaki sorularıma cevaptır.. Bir de aylık puanı sıfırlamasına ve söz konusu konuyla alakalı

Kod:

set KAOSMonthFileName "$KAOSScoreFile.$lmonth"

şeklinde bir değer tayin edilmesine karşın ne eggdrop dizininde ne de scripts dizininde bu şekilde "kaos.scores.ekim" şeklinde bir dosya oluşturmamış ..Yine tcl de yaptıgım değiişimlerden ise yani bu konuda bir edit gerekmiyorsa bilgilendirirseniz sevinirim ..

Yaklaşık 3.5 saatlik bir kafa yormanın ardından sorularım çok gelmemiştir umarım ki ; sizler durumumu en iyi anlayanlarsınızdır tecrübelerinizden :)

Cevap: Kaos.tcl Kodlaması hakkında

O Konuda Herhangi Bir Edit Gerekmediği Düşüncesindeyim. Nihayetinde Bot İlk Aydan Sonra Puanları Sıfırlamıyor.
Kaldı ki İlla İlk Üçü Belirtsin ve Diğerleri Sıfırlansın İstiyorsan cfg Dosyası İçerisindeki Mâlum Kısımlara Top10'daki İlk Üçü Yazar Gerisini Sıfırlarsın.
Ve Periyodik Olarak Bu Şekilde Devam Etme Şansına Sahipsin.
Nâçizane Fikrimdir.
Saygılar...

Yanıt: Kaos.tcl Kodlaması hakkında

Ya aslında bu konuda düzenlemesi mevcut botun .. değişkenleri ve cfg üzerine eklemeleri yazılmış .. Ama eğer ki çalışmıyorsa ( ki sen daha eski bir kullanıcısın doğrudur ) bir anlamı yok bunları eklemesinin diye düşünüyorum .. Dün akşam o değişkende buna atladım durdum ... ancak tabii ki bir append'in kullanımı dahil çok fazla bilmediğim için herhangi bir düzenlemeye gidemedim ...

Cevap: Kaos.tcl Kodlaması hakkında

İnan Bana Düzenlemeye Gitmene Gerek Yok... :)
Herkes Mutlu Bu Şekilde. :)
Saygılar...

Yanıt: Kaos.tcl Kodlaması hakkında

Sanırım iLgisiz kalacak bu konu .. Esasında belki çoğumuz bişeyler yazabiliyoruzdur ama bir tcl deki hataları buLmak biraz daha fazlasını gerektiriyor tabii ki ... ÜStadlardan bakan olur dedim ama sanırım görmediler ..

txf nin cevabına binaen sorayım o halde .. Madem manuel olarak eklenecek bu satırlar ; sıfırlama esnasında ulasabileceğim bir log olmayabiliyor ...eggdrop un logları da malum Snotice vb seyleri tutuyor .. Üyeliğimden bugüne kadar görmedim başlık ya da içerik olarak o yüzden yazayım ...

Kaos.tcl nin çok tuttuğu bir gerçek .. ve maalesef sıfırlandıktan sonra en son 1. , 2. ve 3. nün puanlarına erişmek ( mIRC logları hariç mumkun olmuyor) .. Bu eggdropta calıstırmak üzere log.tcl seklinde bir tcl hazırlansa ki ; elbette soru sordugu için boyutu yüksek olacaktır .. Ve sadece top10 keLimesi gecen satırı loglasa ..( if döngüsü veya her nasıL oluyorsa ) .. 4 soruda bir top10 u gösteriyor sanırım ... hem çok yer kaplamaz hem de ulaşmak açısından oldukça kolay olur ... Eminim kaos.tcl kadar önemli bir katkı olur kendi çalışma prensibine ve çok kişinin işine yarar ...

tcl istemek hiç hoşuma gitmiyor ama kullanan herkesin işine yarayacagını düşünüyorum ...

aCoUSTiC ve BuCaLI ve bu işi yapabilecek her kim varsa olur ya da olmaz şeklinde dahi cevap yazarsanız sevinirim ...

Cevap: Kaos.tcl Kodlaması hakkında

bahsettiğin yerlerde hiç bir sorun yok bot her ayın birinde skorları sıfırlar, cfg içine ilk üçü yazar ve geçen ayın scorlarını başka bir dosyada saklar. denendi ;)

ha sen skorlarımı hiç sıfırlamasın diyorsan ;

bind time - "00 00 01 * *" KAOS_NewMonth

satırının başına # koy ve öyle çalıştır.