|
- -- 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;
|