|
|
@@ -2,26 +2,26 @@ |
|
|
|
-- |
|
|
|
-- GNU General Public Licence (version 3 or later) |
|
|
|
|
|
|
|
with core; |
|
|
|
|
|
|
|
package effect is |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
type operation_index is ( |
|
|
|
idle, |
|
|
|
add, |
|
|
|
subtract, |
|
|
|
multiply, |
|
|
|
divide, |
|
|
|
increment, |
|
|
|
decrement |
|
|
|
player_add, |
|
|
|
player_subtract, |
|
|
|
player_multiply, |
|
|
|
player_divide, |
|
|
|
player_increment, |
|
|
|
player_decrement |
|
|
|
); |
|
|
|
|
|
|
|
type operator_index is ( |
|
|
|
attribute, |
|
|
|
skill, |
|
|
|
resource |
|
|
|
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 |
|
|
|
); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
@@ -38,14 +38,7 @@ package effect is |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
--~count : constant natural := enumeration'pos (enumeration'last) + 1; |
|
|
|
|
|
|
|
--~trait : constant array (enumeration) of information := ( |
|
|
|
--~((others => null), (others => (others => 0))), |
|
|
|
--~((others => null), (others => (others => 0))), |
|
|
|
--~((others => null), (others => (others => 0))), |
|
|
|
--~((others => null), (others => (others => 0))) |
|
|
|
--~); |
|
|
|
procedure apply (data : in value); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|