xhads/source/magic.ads

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

with core, effect;

package magic is

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

	type school is (
		air,                    dark,                   earth,                  fire,                   light,                  water
	);

	type enumeration is (
		-- Air
		arrow_storm,
		-- Dark
		torment,
		-- Earth
		stone_armour,
		-- Fire
		fireball,
		-- Light
		heal,
		-- Water
		ice_armour
	);

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

	subtype level_limit is natural range 0 .. 6;

	type information is record
		name  : core.short_string;
		kind  : school;
		level : level_limit;
		evoke : effect.enumeration;
		text  : core.long_string;
	end record;

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

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

	trait : constant array (enumeration) of information := (
		("Arrow Storm             ", air,   1, effect.none, "Arrow Storm increases the range of your ranged units.                   "),
		("Torment                 ", dark,  1, effect.none, "Torment causes targeted friend or foe to feel pain and shit.            "),
		("Stone Armour            ", earth, 1, effect.none, "Stone Armour increases defense of selected unit.                        "),
		("Fireball                ", fire,  1, effect.none, "Fireball conjures a literal ball of fire that flies go brr.             "),
		("Heal                    ", light, 1, effect.none, "Heal does what it says it will do, keeps the promise.                   "),
		("Ice Armour              ", water, 1, effect.none, "Ice Armour increases defense and stamina of selected unit.              ")
	);

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

	procedure configure;

	procedure icon (index : in enumeration; x, y : in integer);
	procedure view (index : in enumeration; x, y : in integer);

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

end magic;