Var misin yok musun scripti..

[comment varmisin yokmusun]
Yapmanız gerekenleri alanı ayarlayın. f_Start_event komutuyla kutuları yaratın. 
Daha sonra kutuları açıcak oyuncularla kutuları linkleyin. Yarışıcak oyuncunun uidsini var.yarismaci olarak kaydedin.
Yarısmacı .kutusec komutu ile kutusunu seçer. Yetkili istediğine göre teklif de bulunabilir.

Sistem eksikleri
-Bazen 2 kutu aynı numaraya sahip olabilir Bknz (Satır 146)

Fazla vaktim olmadığı için böyle birşey çıktı. Çok daha güzel olabilirdi. 1 saat'de bu kdr yapabildim. 
Eksikler olabilir bildirirseniz ilgilenirim.

[defname varmisimyokmusun]
toplamodul 10
para_1 10.000
para_2 20.000
para_3 30.000
para_4 40.000
para_5 50.000
para_6 100.000
para_7 150.000
para_8 250.000
para_9 500.000 
para_10 1.000.000

box4offer_1 5
box4offer_2 3
box4offer_3 2

tursayisi 3

[function kutusec]
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 0482
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>
timer 1
tag0.timer 10
tag0.prize <more2>
else
src.sysmessage @,,1 Yarışmacı bu kutuyu seçmeden açamazsınız !
endif
return 1

ON=@timer
if (<tag0.timer>)
say @,,1 <dtag0.timer>
tag0.timer --
timer 1
else
serv.b <dtag0.prize>
tag0.choosen 1
var0.acilacakkutu
color 0482
trysrc <uid.<var0.yarismaci>> src.dialog d_cikanpara
endif
return 1

[dialog d_cikanpara]
200, 100
PAGE 0
resizepic 78 80 5120 250 150
resizepic 88 90 3000 230 130
dtext 110 104 32 Var mısın yok musun ?

/////////////////////////////////////////////////////////////
var0.box4offer --
var0.box_opened ++
/////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////
if (<var0.box4offer> < 0)
var0.tur ++
if (<var0.tur> > <def.tursayisi>)
sysmessage @,,1 Turnuva bitmiş ve tüm kutular açılmış.
var0.tur 1
var0.box_opened 0
var0.box4offer 5
return 1
endif
var0.box4offer <def.box4offer_<dvar0.tur>>
endif
//////////////////////////////////////////////////////////////

dtext 110 125 1152 Şuana kadar <dvar0.box_opened> kutu açtınız.<name>
dtext 110 150 1152 Teklife kalan kutu sayısı <dvar0.box4offer>
dtext 110 175 63 <dctag0.sonkutu> açtınız.

[dialog d_choose_box]
200, 100
PAGE 0
resizepic 78 80 5120 350 250
resizepic 88 90 3000 330 230
dtext 110 104 32 Var mısın 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>>
ref1.link.stone 0
ref1.link.sysmessage @,,1 Önünüzdeki kutuyu açınız.
ref1.say @,,1 Seçildim !
var0.acilacakkutu <ref1.uid>


[function f_start_event]
for 1 <def.toplamodul>
serv.newitem i_kutu,1,<uid>
new.more1 <def.para_<dlocal._for>>
new.more2 <f_get_number>
var.box_<dlocal._for> <new.uid>
endfor

[function f_get_number]
return <R1,<def.toplamodul>>

[function f_get_dlgcolor]
ref1=<var0.box_<args>>
if (<ref1.tag0.choosen>)
return 63
else
return 1152
endif