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,               apple,                  peach,
		pear,                   banana,                 orange,                 plum,                   cherry,                 lemon,
		potato,                 wheat,                  carrot,                 cucumber,               onion,                  garlic,
		eggplant,               tomato,                 meat,                   fish_meat,              skull,                  animal_skull,
		bone,                   rib_cage,               animal_skin,            animal_fur
	);

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

	type definition is record
		name : access string;
		cost :        natural;
	end record;

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

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

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

	default : constant points := (others => (1, 12));

	description : constant array (enumeration) of definition := (
		sulphur      => (new string' ("Sulphur"),     11),
		mercury      => (new string' ("Mercury"),     13),
		mint         => (new string' ("Mint"),         3),
		cinnamon     => (new string' ("Cinnamon"),     5),
		apple        => (new string' ("Apple"),        2),
		peach        => (new string' ("Peach"),        2),
		pear         => (new string' ("Pear"),         2),
		banana       => (new string' ("Banana"),       3),
		orange       => (new string' ("Orange"),       3),
		plum         => (new string' ("Plum"),         3),
		cherry       => (new string' ("Cherry"),       3),
		lemon        => (new string' ("Lemon"),        2),
		potato       => (new string' ("Potato"),       1),
		wheat        => (new string' ("Wheat"),        1),
		carrot       => (new string' ("Carrot"),       2),
		cucumber     => (new string' ("Cucumber"),     3),
		onion        => (new string' ("Onion"),        2),
		garlic       => (new string' ("Garlic"),       2),
		eggplant     => (new string' ("Eggplant"),     3),
		tomato       => (new string' ("Tomato"),       2),
		meat         => (new string' ("Meat"),         3),
		fish_meat    => (new string' ("Fish Meat"),    2),
		skull        => (new string' ("Skull"),        1),
		animal_skull => (new string' ("Animal Skull"), 1),
		bone         => (new string' ("Bone"),         1),
		rib_cage     => (new string' ("Rib Cage"),     1),
		animal_skin  => (new string' ("Animal Skin"),  5),
		animal_fur   => (new string' ("Animal Fur"),   7)
	);

	icon : array (enumeration) of core.sprite;

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

end material;