xhads/source/construction.ads

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core, effect, resource, faction;

package construction is

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

	type enumeration is (
		house,                  cottage,                shack,                  homestead,              hut,                    den
	);

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

	type definition is record
		name   : core.unstring;
		kind   : faction.enumeration;
		price  : resource.price;
		frames : integer;
		evoke  : effect.information;
	end record;

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

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

	description : array (enumeration) of definition;
	sprite      : array (enumeration) of core.sprite;

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

	procedure configure;

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

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

end construction;