on *:start: {
  .server irc.sohbetyolu.net
}

on *:CONNECT: {
  .oper NİCK ŞİFRE
  .ns ghost SYNet-Puan 22520
  .nick SYNet-Puan
  .msg NickServ IDENTIFY 22520
  .os su SY
  .join #sohbet
  .join #OPS
  .close -m
  .setident YMC
  .sethost Socket.SohbetYolu.Net
  .setname 5(10YouMyCure 14Socket 1Bot's5)
  .close -m
  .close -m
}

on *:text:*:#Sohbet:{
  if $1 == !puan {
    if ($2 == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }
    if $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | .msg #sohbet  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D   | 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 == 200 { mode $chan +v $nick | msg $chan 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız.  | .os raw swhois $nick :RAMAZAN }
  }
   :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #sohbet 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg #sohbet 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}