xhads/source/effect.ads

38 lines
1.3 KiB
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
2024-02-15 21:03:09 -05:00
with core;
package effect is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type enumeration is (
2024-02-15 21:03:09 -05:00
none, one
);
------------------------------------------------------------------------------------------
type information is record
2024-02-15 21:03:09 -05:00
name : core.short_string;
make : boolean;
end record;
------------------------------------------------------------------------------------------
count : constant natural := enumeration'pos (enumeration'last) + 1;
trait : constant array (enumeration) of information := (
2024-02-15 21:03:09 -05:00
("- ", true),
("- ", true)
);
------------------------------------------------------------------------------------------
procedure draw (value : in enumeration; x, y : in integer);
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end effect;