on **:text:**:#:{
 if $1 == !puan {
 if ($2 == LiSt) { top10 | goto t0p10 }
 eLSeif !$read(puan.txt,w,$+(**,$2,**)) { mSg $Chan $2 puan LiSteSinde yok }
 if $2 == $me { mSg # $+($niCk,:) ßenim puanımı ßoŞver, hem zaten pek konuŞmayı Sevmem ßiLirSin :p | goto t0p10 }
 eLSeif ($2 == $nICk && $read(puan.txt,w,$+(**,$2,**))) { mSg $Chan $read(puan.txt,$readn) puanın var | goto t0p10 }
 }
 if !$read(puan.txt,w,$+(**,$niCk,**)) { write puan.txt $niCk 100 | haLt }
 eLSe {
 var %dify $readn
 var %yeah = $CaLC($token($read(puan.txt,%dify),2,32) +1)
 write $+(-L,%dify) puan.txt $nICk %yeah
 if %yeah == 1000 { mode $Chan +v $niCk | mSg $Chan teßrikLer $niCk 1.0 puanın oLdu. kanaLın **çeneßazı** oLmaya adaySınız, devam devam :d }
 }