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