xhads/source/effect.ads

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

package effect is

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

	type enumeration is (
		idle,
		modify_attribute,
		modify_skill,
		modify_resource,
		append_material,
		append_equipment,
		append_monster
	);

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

	type information is record
		kind      : enumeration := enumeration'first;
		modifier  : integer     := 0;
		amount    : integer     := 0;
		permanent : boolean     := false;
		duration  : natural     := 0;
	end record;

	none : constant information := (others => <>);

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

end effect;