# puan dosyası bot ana dizinindeyse puan dosyası "dosya.txt" gibi girin.
set puandosya "scripts/puandeneme.db"

# her ayın 1. günü geceyarısı.
# dosya silinir 2 saniye sonra yenisi oluşturulur.
# yeni dosya ya izinleri verilir.
bind cron - "0 0 1 * *" docron   ;# proc adı docron *

proc docron {minute hour day month weekday} {  ;# proc adı docron *
     set bir "rm -rf $::puandosya"
     catch { eval exec $bir } status  ;# dosyayı siler
     putlog "silindi $status"
     utimer 2 yapdosya   ;# proc adı yapdosya  *
     }
     
proc yapdosya {} {    ;# proc adı yapdosya  *
   set iki "touch $::puandosya"
   catch { eval exec $iki } status   ;# yenisi oluşturulur.
   putlog "yenisi olusturuldu $status"
   utimer 2 dosyaizin   ;# proc adı dosyaizin  *
   }

proc dosyaizin {} {    ;# proc adı dosyaizin  *
  set uc  "chmod u+x $::puandosya"
  catch { eval exec $uc } output    ;# dosya izinleri verilir.
  putlog "izinler verildi $output"
  return 0
  }
  
 putlog "ok..."