on *:text:*:#turkiye: {
  if !$hget(kns,$nick) { hadd -m kns $nick 1 | hsave -i kns kns.db }
  else { if $hmatch(kns,$nick) { hinc -m kns $v1 1 | hsave -i kns kns.db } }
  if $hget(kns,$nick) == 1000 { msg # $+($nick,:) 0,1Tebrikler 1000 puan olduğunuz için; +voice kazandınız. | mode # +v $nick | hadd -m vnick $nick 1 | hsave -i vnick vnick.db }
  if $1 == !puan {
    if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | halt }
    if !$hmatch(kns,$2) { msg # $+($nick,:) $qt($2) Listetede bulunamadı. }
    else { msg # $+($nick,:) 13 $2 Rumuzunun Konusma Puani; $hget(kns,$2) }
  }
}
on *:start: { if $isfile(vnick.db) { hmake vnick 100 | hload -i vnick vnick.db } | if $isfile(kns.db) { hmake kns 100 | hload -i kns kns.db } }

on *:text:*:#Kanal:{
  if $1 == !puan {
    if ($2  == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    elseif ($2 == $me) { msg $chan  Beni boşver,kendi puanına bak  | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanı 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) +100) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 1000 {  mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #Kanal (Top 10) Puan listesi:
  while %top10 <= %hit { msg #Kanal $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}