xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added skill descriptions and die procedure...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-13 17:06:13 -04:00
parent e0a77d73c1
commit 8c4a6d0954
4 changed files with 33 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
source/core.adb
View File

@ -31,6 +31,7 @@ package body core is
dash; dash;
echo (comment, "Immediately terminating the program, no memory management clean-up."); echo (comment, "Immediately terminating the program, no memory management clean-up.");
dash; dash;
die;
end if; end if;
end echo; end echo;

2
source/core.ads
View File

@ -85,6 +85,8 @@ package core is
-- C -- C
procedure die with import => true, convention => c;
function random_integer (minimum, maximum : in integer) return integer with import => true, convention => c; function random_integer (minimum, maximum : in integer) return integer with import => true, convention => c;
procedure engine_configure with import => true, convention => c; procedure engine_configure with import => true, convention => c;

73
source/skill.ads
View File

@ -4,31 +4,6 @@ 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 ( type codex is (
archery, offense, armourer, resistance, tactics, first_aid, archery, offense, armourer, resistance, tactics, first_aid,
logistics, path_finding, navigation, scouting, leadership, scholar, logistics, path_finding, navigation, scouting, leadership, scholar,
@ -58,30 +33,30 @@ package skill is
count : constant natural := codex'pos (codex'last) + 1; count : constant natural := codex'pos (codex'last) + 1;
trait : constant trait_array := ( trait : constant trait_array := (
("Archery ", 0, "Archery: Improves the effectiveness of ranged attacks. "), ("Archery ", 0, "Improves the effectiveness of ranged attacks. "),
("Offense ", 0, "Offense: Enhances the damage dealt in combat. "), ("Offense ", 0, "Enhances the damage dealt in combat. "),
("Armourer ", 0, "Armourer: Better at maintaining and repairing equipment. "), ("Armourer ", 0, "Better at maintaining and repairing equipment. "),
("Resistance ", 0, "Resistance: Provides protection against various types of magic. "), ("Resistance ", 0, "Provides protection against various types of magic. "),
("Tactics ", 0, "Tactics: Enhances tactical decisions in battles. "), ("Tactics ", 0, "Enhances tactical decisions in battles. "),
("First Aid ", 0, "First Aid: Ability to heal wounded units on the battlefield. "), ("First Aid ", 0, "Ability to heal wounded units on the battlefield. "),
("Logistics ", 0, "Logistics: Increases movement speed on the map. "), ("Logistics ", 0, "Increases movement speed on the map. "),
("Path Finding ", 0, "Path Finding: Improves travel speed and reduces chances of ambush. "), ("Path Finding ", 0, "Improves travel speed and reduces chances of ambush. "),
("Navigation ", 0, "Navigation: Better at traveling by sea, improving sea voyages. "), ("Navigation ", 0, "Better at traveling by sea, improving sea voyages. "),
("Scouting ", 0, "Scouting: Increases visibility range on the map. "), ("Scouting ", 0, "Increases visibility range on the map. "),
("Leadership ", 0, "Leadership: Allows for the command of larger armies. "), ("Leadership ", 0, "Allows for the command of larger armies. "),
("Scholar ", 0, "Scholar: Improves learning from various sources of knowledge. "), ("Scholar ", 0, "Improves learning from various sources of knowledge. "),
("Fire Magic ", 0, "Fire Magic: Focuses on spells related to fire elements. "), ("Fire Magic ", 0, "Focuses on spells related to fire elements. "),
("Water Magic ", 0, "Water Magic: Mastery over spells involving water elements. "), ("Water Magic ", 0, "Mastery over spells involving water elements. "),
("Air Magic ", 0, "Air Magic: Command over spells related to air and wind. "), ("Air Magic ", 0, "Command over spells related to air and wind. "),
("Earth Magic ", 0, "Earth Magic: Manipulation of spells involving earth and nature. "), ("Earth Magic ", 0, "Manipulation of spells involving earth and nature. "),
("Mysticism ", 0, "Mysticism: Enhances magical energy and resource management. "), ("Mysticism ", 0, "Enhances magical energy and resource management. "),
("Necromancy ", 0, "Necromancy: Ability to raise and control undead units. "), ("Necromancy ", 0, "Ability to raise and control undead units. "),
("Sorcery ", 0, "Sorcery: Mastery over a wide range of magical spells. "), ("Sorcery ", 0, "Mastery over a wide range of magical spells. "),
("Wisdom ", 0, "Wisdom: Increases overall knowledge and understanding. "), ("Wisdom ", 0, "Increases overall knowledge and understanding. "),
("Intelligence ", 0, "Intelligence: Enhances magical prowess and spellcasting ability. "), ("Intelligence ", 0, "Enhances magical prowess and spellcasting ability. "),
("Learning ", 0, "Learning: Speeds up the rate of acquiring new skills. "), ("Learning ", 0, "Speeds up the rate of acquiring new skills. "),
("Diplomacy ", 0, "Diplomacy: Improves relationships with other factions. "), ("Diplomacy ", 0, "Improves relationships with other factions. "),
("Estates ", 0, "Estates: Manages and grows your domain, relations and wealth. ") ("Estates ", 0, "Manages and grows your domain, relations and wealth. ")
); );
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------

6
source/system.c
View File

@ -50,6 +50,8 @@ enum {
static void out (void * data, int size); static void out (void * data, int size);
extern void die (void);
extern void echo (char * data); extern void echo (char * data);
extern void fatal_failure (int condition, char * message); extern void fatal_failure (int condition, char * message);
@ -141,6 +143,10 @@ void out (void * data, int size) {
(void) write (STDOUT_FILENO, data, (unsigned long int) size); (void) write (STDOUT_FILENO, data, (unsigned long int) size);
} }
void die (void) {
exit (-1);
}
void echo (char * data) { void echo (char * data) {
if (data == null) { if (data == null) {
return; return;