xhads/source/material.ads

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

with core;

package material is

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

	type enumeration is (
		sulphur,                mercury,                mint,                   cinnamon
	);

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

	type information is record
		name : core.short_string;
		cost : natural;
	end record;

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

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

	trait : constant array (enumeration) of information := (
		sulphur  => ("Sulphur                 ",  7),
		mercury  => ("Mercury                 ", 13),
		mint     => ("Mint                    ",  3),
		cinnamon => ("Cinnamon                ",  5)
	);

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

	procedure configure;

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

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

end material;