Çevrimdışı

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ı.