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

Added skill descriptions and die procedure...

master
Ognjen Milan Robovic 2 months ago
parent
e0a77d73c1
commit
8c4a6d0954
4 changed files with 33 additions and 49 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -0
      source/core.adb
  2. +2
    -0
      source/core.ads
  3. +24
    -49
      source/skill.ads
  4. +6
    -0
      source/system.c

+ 1
- 0
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
- 0
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;


+ 24
- 49
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. "),
("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. ")
("Archery ", 0, "Improves the effectiveness of ranged attacks. "),
("Offense ", 0, "Enhances the damage dealt in combat. "),
("Armourer ", 0, "Better at maintaining and repairing equipment. "),
("Resistance ", 0, "Provides protection against various types of magic. "),
("Tactics ", 0, "Enhances tactical decisions in battles. "),
("First Aid ", 0, "Ability to heal wounded units on the battlefield. "),
("Logistics ", 0, "Increases movement speed on the map. "),
("Path Finding ", 0, "Improves travel speed and reduces chances of ambush. "),
("Navigation ", 0, "Better at traveling by sea, improving sea voyages. "),
("Scouting ", 0, "Increases visibility range on the map. "),
("Leadership ", 0, "Allows for the command of larger armies. "),
("Scholar ", 0, "Improves learning from various sources of knowledge. "),
("Fire Magic ", 0, "Focuses on spells related to fire elements. "),
("Water Magic ", 0, "Mastery over spells involving water elements. "),
("Air Magic ", 0, "Command over spells related to air and wind. "),
("Earth Magic ", 0, "Manipulation of spells involving earth and nature. "),
("Mysticism ", 0, "Enhances magical energy and resource management. "),
("Necromancy ", 0, "Ability to raise and control undead units. "),
("Sorcery ", 0, "Mastery over a wide range of magical spells. "),
("Wisdom ", 0, "Increases overall knowledge and understanding. "),
("Intelligence ", 0, "Enhances magical prowess and spellcasting ability. "),
("Learning ", 0, "Speeds up the rate of acquiring new skills. "),
("Diplomacy ", 0, "Improves relationships with other factions. "),
("Estates ", 0, "Manages and grows your domain, relations and wealth. ")
); );


------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------


+ 6
- 0
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;


Write Preview
Loading…
Cancel
Save