with core;

package resource is

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

	type codex is (
		gold,                   wood,                   mercury,                ore,                    sulfur,                 crystal,
		gem
	);

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

	subtype base_limit is natural range 0 .. 144000;

	type information is
	record
		name : core.short_string;
		base : base_limit;
		text : core.long_string;
	end record;

	type points is array (codex) of base_limit;

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

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

	trait : constant array (codex) of information := (
		("Gold                    ", 0, "Basic currency in the world, even tho silver is better.                 "),
		("Wood                    ", 0, "Essential building material for most houses and stables.                "),
		("Mercury                 ", 0, "Usage is practiced by alchemists and necromancers mostly.               "),
		("Ore                     ", 0, "One of the building blocks of society, always useful goods.             "),
		("Sulfur                  ", 0, "Fell out of use in VII era, but it still has some use-cases.            "),
		("Crystal                 ", 0, "Important material for anything related to magic.                       "),
		("Gem                     ", 0, "Used a lot by alchemists and magicians for some reason.                 ")
	);

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

	procedure configure;

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

	procedure menu (x, y : in integer; center : in boolean);

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

end resource;