[comment Kumar]

Bu script "Basic" tarafından 30 Mayıs 2009 tarihinde kodlanmıştır. 

Herşey sıfırdan yazılmıştır. Sistemi bir serverda gördüm hatırlamıyorum adını.

Kullanılır diye düşünüp yazdım. Onlarada fikirleri için teşekkürler.



[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

Değerlendirmeler

0

Total votes: 0