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