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 definition is record
		base :        core.point;
		name : access string;
		text : access 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;

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

	icon : array (enumeration) of core.sprite;

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

end resource;