|
- -- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
- --
- -- GNU General Public Licence (version 3 or later)
-
- package effect is
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- type enumeration is (
- idle,
- modify_attribute,
- modify_skill,
- modify_resource,
- modify_material
- );
-
- ------------------------------------------------------------------------------------------
-
- type information is record
- kind : enumeration;
- modifier : integer;
- amount : integer;
- permanent : boolean;
- duration : natural;
- end record;
-
- none : constant information := (idle, 0, 0, false, 0);
-
- ------------------------------------------------------------------------------------------
-
- procedure apply (data : in information);
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- end effect;
|