///////////////

// Hp-Nexiel //

//   HayaL   //

///////////////



[defname varmisimyokmusun]

toplamodul 20

para_1 1000

para_2 2000

para_3 10.000

para_4 30.000

para_5 50.000

para_6 100.000

para_7 150.000

para_8 200.000

para_9 300.000 

para_10 500.000

para_11 750.000

para_12 1.000.000

para_13 5.000.000

para_14 7.000.000

para_15 10.000.000

para_16 15.000.000

para_17 20.000.000

para_18 20.000.000

para_19 20.000.000 

para_20 20.000.000



box4offer_1 7

box4offer_2 5

box4offer_3 4

box4offer_4 2

box4offer_5 2



tursayisi 5



[function vteklif]

trysrc <uid> dialogclose d_vteklif

trysrc <uid> dialog d_vteklif



[dialog d_vteklif]

0,7

nomove

if (<var0.box4offer> < 0)

var0.tur ++

if (<var0.tur> > <def.tursayisi>)

sysmessage @,,1 Turnuva bitmis ve tüm kutular açilmis.

var0.tur 1

var0.box_opened 0

var0.box4offer 7

return 1

endif

var0.box4offer <def.box4offer_<dvar0.tur>>

endif

resizepic 0 0 3500 215 115

dhtmlgump 50 15 200 40 0 0 <def.bfont_red>Varmisin yokmusun?

dhtmlgump 25 45 200 40 0 0 <def.bfont_red>Toplam acilan kutu : <def.bfont_dgreen><dvar0.box_opened>

if (<dvar0.soncikan> == 1000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>1 k

elif (<dvar0.soncikan> == 2000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>2 k

elif (<dvar0.soncikan> == 10000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>10 k

elif (<dvar0.soncikan> == 30000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>30 k

elif (<dvar0.soncikan> == 50000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>50 k

elif (<dvar0.soncikan> == 100000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>100 k

elif (<dvar0.soncikan> == 150000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>150 k

elif (<dvar0.soncikan> == 300000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>300 k

elif (<dvar0.soncikan> == 500000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>500 k

elif (<dvar0.soncikan> == 750000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>750 k

elif (<dvar0.soncikan> == 1000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>1 m

elif (<dvar0.soncikan> == 5000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>5 m

elif (<dvar0.soncikan> == 7000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>7 m

elif (<dvar0.soncikan> == 10000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>10 m

elif (<dvar0.soncikan> == 15000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>15 m

elif (<dvar0.soncikan> == 20000000)

dhtmlgump 25 65 200 40 0 0 <def.bfont_red>Çikan para : <def.bfont_dgreen>20 m

endif

dhtmlgump 25 85 200 40 0 0 <def.bfont_red>Teklife kalan kutu sayisi : <def.bfont_dgreen><dvar0.box4offer>



[DIALOG d_vteklif1]

100,200

nomove

resizepic 0 0 3500 290 150

dhtmlgump 47 25 350 20 0 0 <def.bfont_red>Varmisin yokmusun teklif

resizepic 20 54 3000 250 25

dtextentry 22 58 195 35 1153 1

dhtmlgump 50 90 50 20 0 0 <def.bfont_red>Tamam

dhtmlgump 200 90 50 20 0 0 <def.bfont_red>Kapat

button 30 90 55 55 1 0 1

button 180 90 55 55 1 0 2



[DIALOG d_vteklif1 button]

on 1

if (strlen(<argtxt[1]>) < 5)

src.sysmessage @38,,1 5 haneden küçük olamaz.

return 1

endif

var0.vteklif2 <argtxt[1]>

trysrc <uid.<var0.yarismaci>> src.dialog d_vteklif2

serv.allclients sysmessage @58,,1 DUYURU : <src.name>,<dvar0.vteklif2> gold teklifte bulundu.



[DIALOG d_vteklif2]

100,200

nomove

resizepic 0 0 3500 290 150

dhtmlgump 47 25 350 20 0 0 <def.bfont_red>Varmisin yokmusun teklif

resizepic 20 54 3000 250 25

dhtmlgump 25 58 350 20 0 0 <def.bfont_dgreen><dvar0.vteklif2> <def.bfont_red>gold

dhtmlgump 50 90 100 20 0 0 <def.bfont_red>Kabul ediyorum

dhtmlgump 170 90 100 20 0 0 <def.bfont_red>Kabul etmiyorum

button 30 90 55 55 1 0 1

button 150 90 55 55 1 0 2



[dialog d_vteklif2 button]

on=1

serv.allclients sysmessage @58,,1 DUYURU : <dvar0.vteklif2> altin'lik teklifi kabul etti !

src.gold +=<dvar0.vteklif2>

for x 1 20

try uid.<var0.box_<dlocal.x>>.remove

endfor

var0.tur 1

var0.box_opened 0

var0.box4offer 7

on=2

serv.allclients sysmessage @58,,1 DUYURU : <src.name>,<dvar0.vteklif2> altin'lik teklifi kabul etmedi !



[function kutusecekbakak]

//if (<var0.yarismaci>==<src.uid>)

sdialog d_choose_Box

//endif



[itemdef i_kutu]

id i_box_wood

name Kutu

weight 100

type t_normal



ON=@create

color 080a

attr attr_Static



ON=@click

//if (<src.isgm>)

//src.sysmessage @1153,,1 <dmore1> Altin.

//endif

message @077a,,1 [ <dmore2> ]

message @1153,,1 <serv.servname> Kutu

return 1



ON=@dclick

if <uid>==<var0.acilacakkutu>

src.say @1153 <dmore2> sayili kutuyu sizin icin aciyorum <uid.<var0.yarismaci>.name>

timer 1

tag0.timer 10

tag0.prize <more2>

else

src.sysmessage @,,1 Yarismaci bu kutuyu seçmeden açamazsiniz !

endif

return 1



ON=@timer

if (<tag0.timer>)

say @1153 <dtag0.timer>

tag0.timer --

timer 1

else

var0.box4offer --

var0.box_opened ++

tag0.choosen 1

var0.acilacakkutu

color 0798

var0.sonacilan <dmore2>

var0.soncikan <dmore1>

serv.allclients vteklif

trysrc <uid.<var0.yarismaci>> src.dialog d_cikanpara

endif

return 1



[function asd]

sysmessage @07a1,,1 <dvar0.box4offer>



[dialog d_cikanpara]

200, 100

PAGE 0

resizepic 78 80 3600 250 150

resizepic 88 90 3000 230 130

dtext 110 104 32 Var Misin Yok Musun ?



/////////////////////////////////////////////////////////////

//var0.box4offer --

//var0.box_opened ++

/////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////

//if (<var0.box4offer> < 0)

//var0.tur ++

//if (<var0.tur> > <def.tursayisi>)

//sysmessage @,,1 Turnuva bitmis ve tüm kutular açilmis.

//var0.tur 1

//var0.box_opened 0

//var0.box4offer 5

//return 1

//endif

//var0.box4offer <def.box4offer_<dvar0.tur>>

//endif

//////////////////////////////////////////////////////////////



dtext 110 125 1152 Suana Kadar <dvar0.box_opened> Kutu Actiniz.<name>

dtext 110 150 1152 Teklife Kalan Kutu Sayisi <dvar0.box4offer>.

dtext 110 175 63 <dvar0.soncikan> Actiniz.



[dialog d_choose_box]

200, 100

PAGE 0

resizepic 78 80 3600 450 380

resizepic 88 90 3000 430 360

dtext 110 104 32 Var Misin Yok Musun ?



dorigin 100 100



Page 1



for 1 <def.toplamodul>

if (<dlocal._for> < 6)

local.xy +=20

button +10 +<eval <local.xy> +24> 2511 2510 <qval (<uid.<var0.box_<dlocal._For>>.tag0.choosen>)?0:1> 0 <dlocal._for>

dtext +30 +<eval <local.xy> +24> <f_get_dlgcolor <dlocal._for>> <uid.<var0.box_<dlocal._for>>.dmore2> Nolu <uid.<var0.box_<dlocal._for>>.name> <qval (<uid.<var0.box_<dlocal._For>>.tag0.choosen>)?[<uid.<var0.box_<dlocal._for>>.dmore1>]>

else

local.yy +=20

button +200 +<eval <local.yy> +24> 2511 2510 <qval (<uid.<var0.box_<dlocal._For>>.tag0.choosen>)?0:1> 0 <dlocal._for>

dtext +220 +<eval <local.yy> +24> <f_get_dlgcolor <dlocal._for>> <uid.<var0.box_<dlocal._for>>.dmore2> Nolu <uid.<var0.box_<dlocal._for>>.name> <qval (<uid.<var0.box_<dlocal._For>>.tag0.choosen>)?[<uid.<var0.box_<dlocal._for>>.dmore1>]>

endif

endfor



[dialog d_choose_box button]

ON=1,99

var0.yarismaci <src.uid>

ref1=<var0.box_<dargn>>

for x 1 20

if (<uid.<var0.box_<dlocal.x>>.color> == 07a1)

src.sysmessage @38,,1 1 kutu açilmayi bekliyor.

return 1

endif

endfor

ref1.link.stone 0

ref1.color 07a1

ref1.link.sysmessage @,,1 Onunuzdeki Kutuyu Actiniz.

ref1.say @,,1 Seçildim !

var0.acilacakkutu <ref1.uid>



[function f_start_event]

var0.tur 1

var0.box_opened 0

var0.box4offer 7

for 1 <ddef.toplamodul>

serv.newitem i_kutu,1,<uid>

new.more1 <ddef.para_<dlocal._for>>

new.more2 <dlocal._for>

var.box_<dlocal._for> <new.uid>

endfor



[function f_get_number]

return <R1,<ddef.toplamodul>>



[function f_get_dlgcolor]

ref1=<var0.box_<args>>

if (<ref1.tag0.choosen>)

return 63

else

return 1152

endif



[plevel 1]

kutusec

yarismaciyim

yarismabitti





[function kutusec]

If <eval <src.tag0.yarismaciyim>>==1

sdialog d_choose_Box

else

src.sysmessage @60,,1 Siz Yarismaci Degilsiniz.

endif

endif





[function yarismaciyim]

src.tag0.yarismaciyim 1

return 1



[function yarismabitti]

src.tag0.yarismaciyim 0

return 1



[EOF]