xhads/source/effect.adb

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

with core, attribute, skill, resource, deity, material, magic, equipment, unit, construction, chad, world;

package body effect is

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

	procedure apply (data : in value) is
	begin
		case data.operation is
			when player_add =>
				case data.operator is
					when attribute_offense => core.increment (world.map.chads (1).attributes (attribute.offense));
					when attribute_wisdom  => core.increment (world.map.chads (1).attributes (attribute.wisdom));
					when attribute_speed   => core.increment (world.map.chads (1).attributes (attribute.speed));
					when others => null;
				end case;
			when others => null;
		end case;
	end apply;

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

end effect;