[comment Kumar]
30 Mayıs 2009 tarihinde kodlanmıştır.

[defname kumar]
winamount 5000 //kazanırsa ne kadar alsın.
looseamount 5000 //kaybederse ne kadar kaybetsin
retry 5 // tekrar atmak için ne kadar beklesin

[function kumar]
if (<tag.rolled> > 0)
sysmessage @08a U must wait <ddef.retry> seconds to reroll.
return 1
endif

if (<gold> < <ddef.looseamount>)
sysmessage @08a U haven't got <ddef.looseamount> gold piece in your character.
return 1
endif

dorand 6
local.roll1u 1
local.roll1u 2
local.roll1u 3
local.roll1u 4
local.roll1u 5
local.roll1u 6
enddo

dorand 6
local.roll2u 1
local.roll2u 2
local.roll2u 3
local.roll2u 4
local.roll2u 5
local.roll2u 6
enddo

dorand 6
local.roll1c 1
local.roll1c 2
local.roll1c 3
local.roll1c 4
local.roll1c 5
local.roll1c 6
enddo

dorand 6
local.roll2c 1
local.roll2c 2
local.roll2c 3
local.roll2c 4
local.roll2c 5
local.roll2c 6
enddo

sysmessage @07a1 U rolled <dlocal.roll1u>,<dlocal.roll2u>
sysmessage @08a Computer rolled <dlocal.roll1c>,<dlocal.roll2c>

if (<<dlocal.roll1u>+<dlocal.roll2u>> > <<dlocal.roll1c>+<dlocal.roll2c>>)
sysmessage @07a1 U win, <ddef.winamount> gold piece
gold +=<ddef.winamount>
tag.rolled 1
timerf <ddef.retry>,tag.rolled 0
elseif (<<dlocal.roll1u>+<dlocal.roll2u>> < <<dlocal.roll1c>+<dlocal.roll2c>>)
sysmessage @07a1 U loose, <ddef.looseamount> gold piece
gold -=<ddef.looseamount>
tag.rolled 1
timerf <ddef.retry>,tag.rolled 0
elseif (<<dlocal.roll1u>+<dlocal.roll2u>> == <<dlocal.roll1c>+<dlocal.roll2c>>
sysmessage @465,1,1 U and Computer Tied!
endif