[defname kumar]

winamount 5000 //kazanırsa ne kadar alsın.

looseamount 1000 //kaybederse ne kadar kaybetsin

retry 4 // tekrar atmak için ne kadar beklesin



[plevel 1]

kumar



[events e_kumaroynuyor]

on=@login

src.events -e_kumaroynuyor



on=@death

src.events -e_kumaroynuyor





[function kumar]

if !(<isevent.e_safe>)

sysmessage @07a1,,1 Sadece Hazırlanma alanında kumar oynayabilirsiniz.

timerf clear

return 1

endif

if (<isevent.e_kumaroynuyor>)

timerf clear

sysmessage @07a1,,1 Kumar oynamaktan vazgeçtiniz.

events -e_kumaroynuyor

else

events +e_kumaroynuyor

timerf 5,f_kumar

sysmessage @07a1,,1 Kumar oynamaya başladınız, kumarı bitirmek için tekrar .kumar yazmalısınız.

endif



[function f_kumar]

if !(<isevent.e_safe>)

sysmessage @07a1,,1 Sadece Hazırlanma alanında kumar oynayabilirsiniz.

timerf clear

return 1

endif

if <gold> > 1000

local.oran <r1,5>

if <dlocal.oran> == 1

local.kayip <r1,1000>

sysmessage @020,,1 Kaybettiğiniz miktar: <dlocal.kayip>

timerf 4, f_kumar

else

gold -=<dlocal.kayip>

local.kazanc <r1,9000>

gold +=<dlocal.kazanc>

sysmessage @07a1,,1 Kazandığınız miktar: <dlocal.kazanc>

timerf 3, f_kumar

endif

else

sysmessage @020,,1 Kumar oynamanız için : 1000 gp gerekli

endif





[eof]

Değerlendirmeler

0

Total votes: 0