[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]