xhads/source/attribute.ads

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

with core;

package attribute is

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

	type enumeration is (
		offense,                defense,                wisdom,                 stamina,                speed,                  reach
	);

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

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

	type points is array (enumeration) of natural;

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

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

	trait : constant array (enumeration) of information := (
		("Offense                 ", 0, "Offense attribute determines your damage modifier when attacking.       "),
		("Defense                 ", 0, "D-FENS attribute determines how much damage your reflect and receive.   "),
		("Wisdom                  ", 0, "Wisdom attribute determines how much mana your chad has.                "),
		("Stamina                 ", 0, "Stamina attribute determines how fast you recover from being wounded.   "),
		("Speed                   ", 0, "Speed attribute determines how far you can walk per turn.               "),
		("Reach                   ", 0, "Reach attribute determines your range modifier when shooting or casting.")
	);

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

	procedure configure;

	procedure draw_points (data : in points  := (others => 0);
	                       x    : in integer := 0;
	                       y    : in integer := 0;
	                       list : in boolean := false);

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

end attribute;