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,:) Benim puanmımı boşver, sen sohbetine bak. | 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 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 # 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg # 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}

on *:text:*:#: {
  if $regex($1,/^([!.]hed[iİı]ye)/Si) {
    var %hediyelist kalem silgi at ayı
    var %kalem 10
    var %at 15
    var %ayı 20
    if $2 == bilgi {  msg $chan Hediye kullanımı. " !hediye gönder nick Hediye " | msg $chan Hediye listesi: kalem, silgi, at, ayı | return }
    if $regex($2,/^(g[öÖo]nder)$/Si) {
      var %puans $gettok($read(puan.txt,$nick $+ *),2,32)
      if $3 !ison $chan { msg $chan " $3 " nicki kanalda bulunmuyor. | return }
      if !$read(puan.txt,w,$nick $+ *) { msg $chan " $nick " henüz puanınız bulunmamaktadır.  | return }
      var %s $gettok($read(puan.txt,w,$nick $+ *),2,32)
      if (%s < 10) { msg $chan " $nick " Hediye göndermek için puanınız çok düşük. | return }
      if $4 == at  { 
        if ($gettok($read(puan.txt,,w,$nick $+ *),2,32) < %at) { msg $chan " $nick " at göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4at gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %at) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
      if $4 == kalem  { 
        if ($gettok($read(puan.txt,w,$nick $+ *),2,32) < %kalem) { msg $chan " $nick " kalem göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4kalem gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %kalem) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
      if $4 == ayı  { 
        if ($gettok($read(puan.txt,w,$nick $+ *),2,32) < %ayı) { msg $chan " $nick " ayı göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4ayı gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %ayı) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
    }
  }
}

[18:28] <alsana> !hediye bilgi
[18:28] <SuLh> Hediye kullanımı. " !hediye gönder nick Hediye "
[18:28] <SuLh> Hediye listesi: kalem, silgi, at, ayı
[18:28] <alsana> !hediye gönder Asdas kalem
[18:28] <SuLh> " Asdas " nicki kanalda bulunmuyor.
[18:30] <alsana> !hediye gönder SuLh at
[18:30] <SuLh> " alsana " , " SuLh " nickine at gönderdi.

on *:text:*:#:{
  if $regex($1,/^[.!]hed[ıi]ye$/Si) {
    if (!$2) { msg $chan $nick 5NICK 1belirtmediniz kullanımı örn; 5< !hediye nick > | return }
    if ($2 !ison #) { msg $chan 1 $qt($nick) $+(<,$2,>) 1 $chan  1kanalında bulunmamaktadır. | return }
    if $hget(hediye,$nick) { .notice $nick 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. }
    else {
      msg $chan 4 $2: 2 $nick 1 Size Hediye olarak, 5 $read(hediye.txt) 1Gönderdi 
      .hinc -msu60 hediye $nick
    }
  }
}