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 definition is record
		base :        core.point := (0, 0);
		name : access string     := new string'("--");
		text : access string     := new string'("--");
	end record;

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

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

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

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

	description : constant array (enumeration) of definition := (
		offense => ((1, 12), new string'("Offense"), new string'("Offense attribute determines your damage modifier when attacking.")),
		defense => ((1, 12), new string'("Defense"), new string'("D-FENS attribute determines how much damage your reflect and receive.")),
		wisdom  => ((1, 12), new string'("Wisdom"),  new string'("Wisdom attribute determines how much mana your chad has.")),
		stamina => ((1, 12), new string'("Stamina"), new string'("Stamina attribute determines how fast you recover from being wounded.")),
		speed   => ((1, 12), new string'("Speed"),   new string'("Speed attribute determines how far you can walk per turn.")),
		reach   => ((1, 12), new string'("Reach"),   new string'("Reach attribute determines your range modifier when shooting or casting."))
	);

	icon : array (enumeration) of core.sprite;

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

end attribute;