98 lines
5.9 KiB
Ada
98 lines
5.9 KiB
Ada
with core;
|
|
|
|
package skill is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--~Archery: Improves the effectiveness of ranged attacks.
|
|
--~Offense: Enhances the damage dealt in combat.
|
|
--~Armourer: Better at maintaining and repairing equipment.
|
|
--~Resistance: Provides protection against various types of magic.
|
|
--~Tactics: Enhances tactical decisions in battles.
|
|
--~First Aid: Ability to heal wounded units on the battlefield.
|
|
--~Logistics: Increases movement speed on the map.
|
|
--~Path Finding: Improves travel speed and reduces chances of ambush.
|
|
--~Navigation: Better at traveling by sea, improving sea voyages.
|
|
--~Scouting: Increases visibility range on the map.
|
|
--~Leadership: Allows for the command of larger armies.
|
|
--~Scholar: Improves learning from various sources of knowledge.
|
|
--~Fire Magic: Focuses on spells related to fire elements.
|
|
--~Water Magic: Mastery over spells involving water elements.
|
|
--~Air Magic: Command over spells related to air and wind.
|
|
--~Earth Magic: Manipulation of spells involving earth and nature.
|
|
--~Mysticism: Enhances magical energy and resource management.
|
|
--~Necromancy: Ability to raise and control undead units.
|
|
--~Sorcery: Mastery over a wide range of magical spells.
|
|
--~Wisdom: Increases overall knowledge and understanding.
|
|
--~Intelligence: Enhances magical prowess and spellcasting ability.
|
|
--~Learning: Speeds up the rate of acquiring new skills.
|
|
--~Diplomacy: Improves relationships with other factions.
|
|
--~Estates: Manages and grows your domain, relations and wealth.
|
|
|
|
type codex is (
|
|
archery, offense, armourer, resistance, tactics, first_aid,
|
|
logistics, path_finding, navigation, scouting, leadership, scholar,
|
|
fire_magic, water_magic, air_magic, earth_magic, mysticism, necromancy,
|
|
sorcery, wisdom, intelligence, learning, diplomacy, estates
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
subtype base_limit is natural range 0 .. 36;
|
|
|
|
type information is
|
|
record
|
|
name : core.short_string;
|
|
base : base_limit;
|
|
text : core.long_string;
|
|
end record;
|
|
|
|
type trait_array is array (codex) of information;
|
|
type sprite_array is array (codex) of core.sprite;
|
|
type value_array is array (codex) of base_limit;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
sprite : sprite_array;
|
|
|
|
count : constant natural := codex'pos (codex'last) + 1;
|
|
|
|
trait : constant trait_array := (
|
|
("Archery ", 0, "Archery: Improves the effectiveness of ranged attacks. "),
|
|
("Offense ", 0, "Offense: Enhances the damage dealt in combat. "),
|
|
("Armourer ", 0, "Armourer: Better at maintaining and repairing equipment. "),
|
|
("Resistance ", 0, "Resistance: Provides protection against various types of magic. "),
|
|
("Tactics ", 0, "Tactics: Enhances tactical decisions in battles. "),
|
|
("First Aid ", 0, "First Aid: Ability to heal wounded units on the battlefield. "),
|
|
("Logistics ", 0, "Logistics: Increases movement speed on the map. "),
|
|
("Path Finding ", 0, "Path Finding: Improves travel speed and reduces chances of ambush. "),
|
|
("Navigation ", 0, "Navigation: Better at traveling by sea, improving sea voyages. "),
|
|
("Scouting ", 0, "Scouting: Increases visibility range on the map. "),
|
|
("Leadership ", 0, "Leadership: Allows for the command of larger armies. "),
|
|
("Scholar ", 0, "Scholar: Improves learning from various sources of knowledge. "),
|
|
("Fire Magic ", 0, "Fire Magic: Focuses on spells related to fire elements. "),
|
|
("Water Magic ", 0, "Water Magic: Mastery over spells involving water elements. "),
|
|
("Air Magic ", 0, "Air Magic: Command over spells related to air and wind. "),
|
|
("Earth Magic ", 0, "Earth Magic: Manipulation of spells involving earth and nature. "),
|
|
("Mysticism ", 0, "Mysticism: Enhances magical energy and resource management. "),
|
|
("Necromancy ", 0, "Necromancy: Ability to raise and control undead units. "),
|
|
("Sorcery ", 0, "Sorcery: Mastery over a wide range of magical spells. "),
|
|
("Wisdom ", 0, "Wisdom: Increases overall knowledge and understanding. "),
|
|
("Intelligence ", 0, "Intelligence: Enhances magical prowess and spellcasting ability. "),
|
|
("Learning ", 0, "Learning: Speeds up the rate of acquiring new skills. "),
|
|
("Diplomacy ", 0, "Diplomacy: Improves relationships with other factions. "),
|
|
("Estates ", 0, "Estates: Manages and grows your domain, relations and wealth. ")
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure;
|
|
|
|
procedure draw (index : in codex; x, y : in integer);
|
|
|
|
procedure menu (x, y : in integer; center : in boolean);
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end skill;
|