[itemdef i_stone_kumar]
ID=i_grave_stone
name=Kumar Makinasi

On=@Create
Color 07a1
type=0
Attr=attr_move_never
timer -1

On=@click
message @0481 <name>
return 1

ON=@dclick
if (<distance> > 3)
src.sysmessage @49 Yeterince yakin degilsiniz...
return 1
else
src.dialog d_kumarmenu
return 1

[dialog d_kumarmenu]
150,200
nomove
resizepic 0 0 3500 350 325
resizepic 20 20 9300 310 285
//dtext yatay dikey renk yazı
dtext 60 20 1985 Tredium PvP Kumar Sistemi
dtext 50 45 1152 * 10, 25 ya da 50k degerlerinde
dtext 50 60 1152 oynayabilirsiniz.
dtext 50 85 1152 * Kazanma ihtimali ucretin yaninda.
dtext 50 110 1152 * Eger kazanirsaniz, yatirdiginiz silver-
dtext 50 125 1152 coinin 2 katini geri alirsiniz.
dtext 50 150 1152 * Oynayabilmek icin kullanacaginiz
dtext 50 165 1152 silver coin bankanizda olmalidir.

dtext 90 198 2009 10000
dtext 90 218 2009 25000
dtext 90 238 2009 50000

dtext 170 198 2009 | 1/3 ihtimal
dtext 170 218 2009 | 1/4 ihtimal
dtext 170 238 2009 | 1/5 ihtimal

dtext 40 275 1152 Bankanizda <src.bankbalance> silver coin var.

button 65 200 55 56 1 0 1
button 65 220 55 56 2 0 2
button 65 240 55 56 3 0 3

[DIALOG d_kumarmenu button]
on=0
return 1

on=1
if (<src.bankbalance> >= 10000)
dorand 3
src.kumar_kaybet_10
src.kumar_kazan_20
src.kumar_kaybet_10
enddo
else
src.sysmessage @1153,,1 Bankanizin en ust kisminda 10k bulunmuyor.
endif
return 1

on=2
if (<src.bankbalance> >= 25000)
dorand 4
src.kumar_kaybet_25
src.kumar_kaybet_25
src.kumar_kazan_50
src.kumar_kaybet_25
enddo
else
src.sysmessage @1153,,1 Bankanizin en ust kisminda 25k bulunmuyor.
endif
return 1

on=3
if (<src.bankbalance> >= 50000)
dorand 5
src.kumar_kaybet_50
src.kumar_kaybet_50
src.kumar_kaybet_50
src.kumar_kazan_100
src.kumar_kaybet_50
enddo
else
src.sysmessage @1153,,1 Bankanizin en ust kisminda 50k bulunmuyor.
endif
return 1

[function kumar_kaybet_10]
FINDLAYER(29).FINDID(i_bilet).CONSUME [10000]
src.sysmessage @1153,,1 10,000 silver coin kaybettiniz.
dialog d_kumarmenu
return 1

[function kumar_kazan_20]
src.newitem i_bilet,20000
src.act.bounce
src.sysmessage @1153,,1 20,000 silver coin kazandiniz.
dialog d_kumarmenu
return 1


[function kumar_kaybet_25]
FINDLAYER(29).FINDID(i_bilet).CONSUME [25000]
src.sysmessage @1153,,1 25,000 silver coin kaybettiniz.
dialog d_kumarmenu
return 1


[function kumar_kazan_50]
src.newitem i_bilet,50000
src.act.bounce
src.sysmessage @1153,,1 50,000 silver coin kazandiniz.
dialog d_kumarmenu
return 1

[function kumar_kaybet_50]
FINDLAYER(29).FINDID(i_bilet).CONSUME [50000]
src.sysmessage @1153,,1 50,0000 silver coin kaybettiniz.
dialog d_kumarmenu
return 1

[function kumar_kazan_100]
src.newitem i_bilet,50000
src.act.bounce
src.newitem i_bilet,50000
src.act.bounce
src.sysmessage @1153,,1 100,000 silver coin kazandiniz.
dialog d_kumarmenu
return 1

[eof]