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,
		modify_material
	);

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

	type value is record
		kind      : enumeration;
		modifier  : integer;
		amount    : integer;
		permanent : boolean;
		duration  : natural;
	end record;

	none : constant value := (idle, 0, 0, false, 0);

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

	procedure apply (data : in value);

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

end effect;