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 }
      }
    }
  }
}