xhads/source/attribute.ads

with core;

package attribute is

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

	type codex is (
		attack,                 defense,                power,                  knowledge
	);

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

	subtype base_limit is natural range 0 .. 12;

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

	type trait_array  is array (codex) of information;
	type sprite_array is array (codex) of core.sprite;
	type value_array  is array (codex) of base_limit;

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

	sprite : sprite_array;

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

	trait : constant trait_array := (
		("Attack                  ", 0),
		("Defense                 ", 0),
		("Power                   ", 0),
		("Knowledge               ", 0)
	);

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

	procedure configure;

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

	function name (index : in integer) return core.short_string;
	function base (index : in integer) return base_limit;
	function icon (index : in integer) return core.sprite;

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

end attribute;