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