xhads/source/resource.ads

52 lines
1.7 KiB
Ada
Raw Normal View History

2024-02-15 21:03:09 -05:00
with core;
package resource is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type codex is (
gold, wood, mercury, ore, sulfur, crystal,
gem
);
------------------------------------------------------------------------------------------
subtype base_limit is natural range 0 .. 144;
type information is
record
name : core.short_string;
base : base_limit;
end record;
type trait_array is array (codex) of information;
type value is array (codex) of natural;
2024-02-16 09:59:19 -05:00
type sprite_array is array (codex) of core.sprite;
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------
2024-02-16 09:59:19 -05:00
icon : sprite_array;
count : constant natural := codex'pos (codex'last) + 1;
2024-02-15 21:03:09 -05:00
trait : constant trait_array := (
("Gold ", 1),
("Wood ", 3),
("Mercury ", 11),
("Ore ", 7),
("Sulfur ", 13),
("Crystal ", 17),
("Gem ", 19)
);
------------------------------------------------------------------------------------------
procedure configure;
2024-02-15 21:03:09 -05:00
procedure draw (index : in codex; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end resource;