28 lines
1.1 KiB
Ada
28 lines
1.1 KiB
Ada
-- 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;
|