[function status_reg_color]
var.cnt <eval <rescount i_reag_<args>>>
if (<var.cnt> < 11)
try var.<args> 025
try var.<args>_t 025
else
try var.<args> = 025
try var.<args>_t = 0
endif

[function regs]
status_reg_color spider_silk
status_reg_color sulfur_ash
status_reg_color nightshade
status_reg_color mandrake_root
status_reg_color ginseng
status_reg_color garlic
status_reg_color blood_moss
status_reg_color black_pearl
dialogclose d_regs
dialog d_regs

[DIALOG d_regs]
0,0
nomove
PAGE 0
resizepic 0 0 2620 270 550
resizepic 10 10 3000 250 530

text 70 500 <eval 038> 0
text 70 25 <eval <var.spider_silk>> 1
text 70 85 <eval <var.sulfur_ash>> 2
text 70 135 <eval <var.nightshade>> 3
text 75 185 <eval <var.blood_moss>> 4
text 75 235 <eval <var.ginseng>> 5
text 75 285 <eval <var.garlic>> 6
text 75 335 <eval <var.mandrake_root>> 7
text 75 385 <eval <var.black_pearl>> 8

gumppic 72 50 2443
gumppic 72 103 2443
gumppic 72 153 2443
gumppic 72 203 2443
gumppic 72 253 2443
gumppic 72 303 2443
gumppic 72 353 2443
gumppic 72 403 2443

text 90 53 <eval <var.spider_silk_t>> 9
text 90 103 <eval <var.sulfur_ash_t>> 10
text 90 153 <eval <var.nightshade_t>>  11
text 90 203 <eval <var.blood_moss_t>> 12
text 90 253 <eval <var.ginseng_t>> 13
text 90 303 <eval <var.garlic_t>> 14
text 90 353 <eval <var.mandrake_root_t>> 15
text 90 403 <eval <var.black_pearl_t>> 16


tilepic 20 25 <serv.itemdef.i_reag_spider_silk.id>
tilepic 20 85 <serv.itemdef.i_reag_sulfur_ash.id>
tilepic 20 135 <serv.itemdef.i_reag_nightshade.id>
tilepic 20 185 <serv.itemdef.i_reag_blood_moss.id>
tilepic 20 235 <serv.itemdef.i_reag_ginseng.id>
tilepic 20 285 <serv.itemdef.i_reag_garlic.id>
tilepic 20 335 <serv.itemdef.i_reag_mandrake_root.id>
tilepic 20 385 <serv.itemdef.i_reag_black_pearl.id>

[DIALOG d_regs TEXT]
<serv.name>
Spider's Silk
Sulfuruous Ash
Nightshade
Blood Moss
Gingseng
Garlic
Mandrake Root
Black Pearl
<eval <rescount i_reag_spider_silk>>
<eval <rescount i_reag_sulfur_ash>>
<eval <rescount i_reag_nightshade>>
<eval <rescount i_reag_blood_moss>>
<eval <rescount i_reag_ginseng>>
<eval <rescount i_reag_garlic>>
<eval <rescount i_reag_mandrake_root>>
<eval <rescount i_reag_black_pearl>>

[DIALOG d_regs BUTTON]
ON=0
src.sysmessage @07a1 Reg menu kapandi.

dtext 150 50  <qval (<drescount i_reag_nightshade> > 10) ? 0481 : 020> <drescount i_reag_nightshade>