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

Added Aezora and deity data...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-15 06:30:40 -04:00
parent bb6e8d7dea
commit a974a96f72
4 changed files with 36 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
source/deity.adb
View File

@ -12,6 +12,17 @@ package body deity is
------------------------------------------------------------------------------------------
procedure configure is
begin
core.echo (core.comment, "Configuring deity components...");
--
for index in enumeration loop
sprite (index) := core.import_sprite ("./sprite/deity/" & core.uppercase (enumeration'image (index)) & ".png", 4, 1);
end loop;
end configure;
------------------------------------------------------------------------------------------
procedure draw (value : in enumeration; x, y : in integer) is
begin
null;

24
source/deity.ads
View File

@ -2,20 +2,26 @@
--
-- GNU General Public Licence (version 3 or later)
with core;
with core, attribute, skill, resource, faction;
package deity is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type enumeration is (
AEZORA, MITENA, GUAREA, KERENA, ULDRAE, KANAKO,
HENEAL, EVELOR, OROHAN, XORANA
);
------------------------------------------------------------------------------------------
type information is record
name : core.short_string;
base : integer;
name : core.short_string;
favor : integer;
loved_faction : faction.enumeration;
bonus_attribute : attribute.enumeration;
bonus_skill : skill.enumeration;
bonus_resource : resource.enumeration;
end record;
------------------------------------------------------------------------------------------
@ -23,10 +29,22 @@ package deity is
count : constant natural := enumeration'pos (enumeration'last) + 1;
trait : constant array (enumeration) of information := (
AEZORA => ("Aezora ", 0, faction.fairy, attribute.offense, skill.archery, resource.gold),
MITENA => ("Mitena ", 0, faction.dwarf, attribute.offense, skill.archery, resource.gold),
GUAREA => ("Guarea ", 0, faction.gnoll, attribute.offense, skill.archery, resource.gold),
KERENA => ("Kerena ", 0, faction.kobold, attribute.offense, skill.archery, resource.gold),
ULDRAE => ("Uldrae ", 0, faction.goblin, attribute.offense, skill.archery, resource.gold),
KANAKO => ("Kanako ", 0, faction.imp, attribute.offense, skill.archery, resource.gold), -- Amaryllis - Alice Sailor
HENEAL => ("Heneal ", 0, faction.human, attribute.offense, skill.archery, resource.gold),
EVELOR => ("Evelor ", 0, faction.elf, attribute.offense, skill.archery, resource.gold),
OROHAN => ("Orohan ", 0, faction.orc, attribute.offense, skill.archery, resource.gold),
XORANA => ("Xorana ", 0, faction.neutral, attribute.offense, skill.archery, resource.gold)
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (value : in enumeration; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

5
source/faction.ads
View File

@ -10,7 +10,7 @@ package faction is
type enumeration is (
fairy, dwarf, gnoll, kobold, goblin, imp,
neutral
human, elf, orc, neutral
);
------------------------------------------------------------------------------------------
@ -33,6 +33,9 @@ package faction is
("Kobold Kingdom ", attribute.offense, skill.tactics, resource.metal),
("Goblin Kingdom ", attribute.reach, skill.exploration, resource.wood),
("Imp Kingdom ", attribute.wisdom, skill.sorcery, resource.gem),
("Fallen Human Empire ", attribute.wisdom, skill.estates, resource.gold),
("Fallen Elf Empire ", attribute.wisdom, skill.estates, resource.gold),
("Fallen Orc Empire ", attribute.wisdom, skill.estates, resource.gold),
("Neutral ", attribute.offense, skill.archery, resource.gold)
);

BIN
sprite/deity/AEZORA.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB