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

package effect is

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

	type operation_index is (
		idle,
		player_add,
		player_subtract,
		player_multiply,
		player_divide,
		player_increment,
		player_decrement
	);

	type operator_index is (
		attribute_offense,      attribute_defense,      attribute_wisdom,       attribute_stamina,      attribute_speed,        attribute_reach,
		skill_alchemy,          skill_archery,          skill_architecture,     skill_athletics,        skill_diplomacy,        skill_estates,
		skill_exploration,      skill_leadership,       skill_logistics,        skill_medicine,         skill_mercantile,       skill_mysticism,
		skill_necromancy,       skill_resistance,       skill_skirmish,         skill_sorcery,          skill_tactics,          skill_thaumaturgy,
		resource_gold,          resource_wood,          resource_stone,         resource_metal,         resource_leather,       resource_gem
	);

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

	type value is record
		operation : operation_index;
		operator  : operator_index;
		modifier  : integer;
		permanent : boolean;
		duration  : natural;
	end record;

	none : value;

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

	procedure apply (data : in value);

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

end effect;