xhads/source/resource.ads

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;

	type sprite_array is array (codex) of core.sprite;

                                             ------------------------------------------------------------------------------------------

	icon : sprite_array;

	count : constant natural := codex'pos (codex'last) + 1;

	trait : constant trait_array := (
		("Gold                    ",  1),
		("Wood                    ",  3),
		("Mercury                 ", 11),
		("Ore                     ",  7),
		("Sulfur                  ", 13),
		("Crystal                 ", 17),
		("Gem                     ", 19)
	);

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (index : in codex; x, y : in integer);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end resource;