xhads/source/resource.ads

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

with core;

package resource is

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

	type enumeration is (
		gold,                   wood,                   stone,                  metal,                  leather,                gem
	);

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

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

	type points is array (enumeration) of core.point;
	type price  is array (enumeration) of natural;

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

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

	trait : constant array (enumeration) of information := (
		gold    => ("Gold                    ", (24, 480), "Gold is precious yellowish shiny metal, valued since ancient times.     "),
		wood    => ("Wood                    ", (12, 240), "Wood is just bundle of lignin and cellulose, nothing more.              "),
		stone   => ("Stone                   ", (12, 240), "Stone is essential building block for most constructions in this world. "),
		metal   => ("Metal                   ", (12, 240), "Metal as a resource is mixture of commonly found metalic elements.      "),
		leather => ("Leather                 ", (12, 240), "Leather is general purpose resource, used for armours and decorations.  "),
		gem     => ("Gem                     ", (12, 240), "Gem as a resource is same as metal, just mixture of various gems.       ")
	);

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

	procedure configure;

	procedure draw_points (data : in points; x, y : in integer);

	procedure save_points (here : in core.io.file_type; data : in  points);
	procedure load_points (here : in core.io.file_type; data : out points);

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

end resource;