xhads/source/skill.ads

54 lines
2.9 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 skill is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type enumeration is (
archery, diplomacy, estates, exploration, leadership, logistics,
medicine, mercantile, mysticism, necromancy, sorcery, tactics
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
type information is record
name : core.short_string;
base : natural;
text : core.long_string;
2024-02-15 21:03:09 -05:00
end record;
type points is array (enumeration) of natural;
2024-02-16 09:59:19 -05:00
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------
count : constant natural := enumeration'pos (enumeration'last) + 1;
trait : constant array (enumeration) of information := (
2024-04-30 19:42:17 -04:00
("Archery ", 0, "Archery skill determines effectiveness and range or your ranged units. "),
("Diplomacy ", 0, "- "),
("Estates ", 0, "- "),
("Exploration ", 0, "- "),
("Leadership ", 0, "- "),
("Logistics ", 0, "- "),
("Medicine ", 0, "- "),
("Mercantile ", 0, "- "),
("Mysticism ", 0, "- "),
("Necromancy ", 0, "- "),
("Sorcery ", 0, "- "),
("Tactics ", 0, "- ")
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure configure;
2024-03-10 16:41:31 -04:00
procedure menu (x, y : in integer; center : in boolean);
2024-02-19 21:29:11 -05:00
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end skill;