xhads/source/construction.ads

48 lines
1.8 KiB
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
with core, effect, resource, faction;
2024-02-15 21:03:09 -05:00
package construction is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type enumeration is (
a, b, c, d, e, f
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
type information is
record
name : core.short_string;
kind : faction.enumeration;
2024-04-23 16:19:29 -04:00
price : resource.points;
2024-02-15 21:03:09 -05:00
frames : integer;
evoke : effect.enumeration;
2024-02-15 21:03:09 -05:00
end record;
------------------------------------------------------------------------------------------
count : constant natural := enumeration'pos (enumeration'last) + 1;
trait : constant array (enumeration) of information := (
("A ", faction.dwarf, (others => 0), 1, effect.none),
("B ", faction.fairy, (others => 0), 1, effect.none),
("C ", faction.gnoll, (others => 0), 1, effect.none),
("D ", faction.goblin, (others => 0), 1, effect.none),
("E ", faction.imp, (others => 0), 1, effect.none),
("F ", faction.kobold, (others => 0), 1, effect.none)
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (index : in enumeration; x, y : in integer);
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end construction;