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

with core, effect;

package item is

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

	type slot is (
		main_hand,              off_hand,               head,                   chest,                  neck,                   full_body,
		finger,                 feet,                   hands,                  bag
	);

	type codex is (
		a, b
	);

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

	subtype level_limit is natural range 0 .. 3;

	type information is
	record
		name  : core.short_string;
		kind  : slot;
		level : level_limit;
		evoke : effect.codex;
	end record;

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

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

	trait : constant array (codex) of information := (
		("A                       ", head,      0, effect.none),
		("B                       ", full_body, 0, effect.none)
	);

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

	procedure configure;

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

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

end item;