///// Şeytanınız bol olsun..

//// W tarafından yazılmıştır..



[itemdef i_stone_kumar]

ID=i_grave_stone



ON=@Create

name=@0481 Kumar Makinasi

ATTR=08010

COLOR=007a1

return 1



ON=@DClick

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 40 20 1985 <serv.name> Kumar Sistemi

dtext 50 45 1152 * 50 , 100 ya da 250k degerlerinde

dtext 50 60 1152 oynayabilirsiniz.

dtext 50 85 1152 * Kazanma ihtimali ucretin yaninda.

dtext 50 110 1152 * Eger kazanirsaniz, yatirdiginiz pa-

dtext 50 125 1152 ranin 2 katini geri alirsiniz.

dtext 50 150 1152 * Oynayabilmek icin kullanacaginiz

dtext 50 165 1152 para bankanizda olmalidir.



dtext 90 198 2009 50,000

dtext 90 218 2009 100,000

dtext 90 238 2009 250,000



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> gp 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> >= 50000)

dorand 3

src.kumar_kaybet_50

src.kumar_kazan_100

src.kumar_kaybet_50

enddo

else

src.sysmessage @1153,,1 Bankanizin en ust kisminda 50,000gp bulunmuyor.

endif

return 1



on=2

if (<src.bankbalance> >= 100000)

dorand 4

src.kumar_kaybet_100

src.kumar_kaybet_100

src.kumar_kaybet_100

src.kumar_kazan_200

enddo

else

src.sysmessage @1153,,1 Bankanizin en ust kisminda 100,000gp bulunmuyor.

endif

return 1



on=3

if (<src.bankbalance> >= 250000)

dorand 5

src.kumar_kaybet_250

src.kumar_kaybet_250

src.kumar_kaybet_250

src.kumar_kaybet_250

src.kumar_kazan_500

enddo

else

src.sysmessage @1153,,1 Bankanizin en ust kisminda 250,000gp bulunmuyor.

endif

return 1



[function kumar_kaybet_50]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

src.sysmessage @1153,,1 50,000 gp kaybettiniz.

dialog d_kumarmenu

return 1



[function kumar_kazan_100]

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.sysmessage @1153,,1 100,000 gp kazandiniz.

dialog d_kumarmenu

return 1





[function kumar_kaybet_100]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

src.sysmessage @1153,,1 100,000 gp kaybettiniz.

dialog d_kumarmenu

return 1





[function kumar_kazan_200]

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.sysmessage @1153,,1 200,000 gp kazandiniz.

dialog d_kumarmenu

return 1



[function kumar_kaybet_250]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

FINDLAYER(29).FINDID(i_gold).CONSUME [50000]

src.sysmessage @1153,,1 250,000 gp kaybettiniz.

dialog d_kumarmenu

return 1



[function kumar_kazan_500]

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.newitem i_gold,50000

src.act.bounce

src.sysmessage @1153,,1 500,000 gp kazandiniz.

dialog d_kumarmenu

return 1



[eof]

Değerlendirmeler

0

Total votes: 0