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