Code:
[FUNCTION ore]
if ( <isdead> )
src.sysmessage You're dead.
return 1
endif
// set up color code tiers
var.exist_color = 0480
var.red_all = 100
var.red_num = 50
status_ore
[FUNCTION status_ore]
status_ore_color ore_copper
status_ore_color ore_pure_copper
status_ore_color ore_old_copper
status_ore_color ore_tin
status_ore_color ore_iron
status_ore_color ore_ferrum
status_ore_color ore_silver
status_ore_color ore_gold
status_ore_color ore_titanium
status_ore_color ore_agapite
status_ore_color ore_shadow
status_ore_color ore_verite
status_ore_color ore_valorite
status_ore_color ore_terathane
status_ore_color ore_mytheril
status_ore_color ore_skargard
status_ore_color ore_blackrock
status_ore_color coal
status_ore_color resource_sandstone
status_ore_color resource_stone
status_ore_color resource_gypsum
status_ore_color resource_clay
DIALOG d_ore
[FUNCTION status_ore_color]
var.cnt = <eval <rescount i_<args>>>
if ( <VAR.CNT> >= <var.red_all> )
TRY VAR.<args> = 025
TRY VAR.<args>_t = 025
elif ( <VAR.CNT> >= <var.red_num> )
TRY VAR.<args> = 025
TRY VAR.<args>_t = 0
elif ( <VAR.CNT> <= 0 )
TRY VAR.<args> = 0
TRY VAR.<args>_t = 0
else
TRY VAR.<args> = <var.exist_color>
TRY VAR.<args>_t = 0
endif
return 1
[DIALOG d_ore]
0,0
NOMOVE
//079e
//07a1 07a0
// Background
gumppic -10 0 <eval 0980>
gumppic -10 90 <eval 0980>
gumppic -10 180 <eval 0980>
gumppic -10 270 <eval 0980>
gumppic -10 360 <eval 0980>
tilepic 11 5 <eval 019b8>
tilepic 5 339 <eval 01bf0>
button 100 422 <eval 081a> <eval 081b> 1 0 0
text 7 1 <eval <var.ore_copper>> 1
text 45 1 <eval <var.ore_copper_t>> 2
text 7 18 <eval <var.ore_pure_copper>> 3
text 45 18 <eval <var.ore_pure_copper_t>> 4
text 7 36 <eval <var.ore_old_copper>> 5
text 45 36 <eval <var.ore_old_copper_t>> 6
text 7 53 <eval <var.ore_tin>> 7
text 45 53 <eval <var.ore_tin_t>> 8
text 7 72 <eval <var.ore_iron>> 9
text 45 72 <eval <var.ore_iron_t>> 10
text 7 91 <eval <var.ore_ferrum>> 11
text 45 91 <eval <var.ore_ferrum_t>> 12
text 7 108 <eval <var.ore_silver>> 13
text 45 108 <eval <var.ore_silver_t>> 14
text 7 126 <eval <var.ore_gold>> 15
text 45 126 <eval <var.ore_gold_t>> 16
text 7 144 <eval <var.ore_titanium>> 17
text 45 144 <eval <var.ore_titanium_t>> 18
text 7 161 <eval <var.ore_agapite>> 19
text 45 161 <eval <var.ore_agapite_t>> 20
text 7 181 <eval <var.ore_shadow>> 21
text 45 181 <eval <var.ore_shadow_t>> 22
text 7 198 <eval <var.ore_verite>> 23
text 45 198 <eval <var.ore_verite_t>> 24
text 7 217 <eval <var.ore_valorite>> 25
text 45 217 <eval <var.ore_valorite_t>> 26
text 7 234 <eval <var.ore_terathane>> 27
text 45 234 <eval <var.ore_terathane_t>> 28
text 7 251 <eval <var.ore_mytheril>> 29
text 45 251 <eval <var.ore_mytheril_t>> 30
text 7 271 <eval <var.ore_skargard>> 31
text 45 271 <eval <var.ore_skargard_t>> 32
text 7 288 <eval <var.ore_blackrock>> 33
text 45 288 <eval <var.ore_blackrock_t>> 34
text 7 306 <eval <var.coal>> 36
text 45 306 <eval <var.coal_t>> 37
text 7 341 <eval <var.resource_sandstone>> 38
text 45 341 <eval <var.resource_sandstone_t>> 39
text 7 361 <eval <var.resource_stone>> 40
text 45 361 <eval <var.resource_stone_t>> 41
text 7 379 <eval <var.resource_gypsum>> 42
text 45 379 <eval <var.resource_gypsum_t>> 43
text 7 397 <eval <var.resource_clay>> 44
text 45 397 <eval <var.resource_clay_t>> 45
[DIALOG d_ore TEXT]
<var.blankline>
<eval <rescount i_ore_copper>>
Copper
<eval <rescount i_ore_pure_copper>>
Pure copper
<eval <rescount i_ore_old_copper>>
Old copper
<eval <rescount i_ore_tin>>
Tin
<eval <rescount i_ore_iron>>
Iron
<eval <rescount i_ore_ferrum>>
Ferrum
<eval <rescount i_ore_silver>>
Silver
<eval <rescount i_ore_gold>>
Gold
<eval <rescount i_ore_titanium>>
Titanium
<eval <rescount i_ore_agapite>>
Agapite
<eval <rescount i_ore_shadow>>
Shadow
<eval <rescount i_ore_verite>>
Verite
<eval <rescount i_ore_valorite>>
Valorite
<eval <rescount i_ore_terathane>>
Terathane
<eval <rescount i_ore_mytheril>>
Mytheril
<eval <rescount i_ore_skargard>>
Skargard
<eval <rescount i_ore_blackrock>>
Blackrock
G
<eval <rescount i_coal>>
Coal
<eval <rescount i_resource_sandstone>>
Sandstone
<eval <rescount i_resource_stone>>
Stone
<eval <rescount i_resource_gypsum>>
Gypsum
<eval <rescount i_resource_clay>>
Clay