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

Documenting some changes...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-08 02:23:21 -04:00
parent 8d7a0b1799
commit 6d775711a5
3 changed files with 53 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
design/lore.txt
View File

@ -15,7 +15,7 @@ them, it was goddess Xorana, who refused to create a race and World entity. Othe
many years later in history. After humans, elves and orcs died out, other 5 nations made an aliance and destroyed imp nation, or so they thought at the very least.
Deity | Race | Lore | Magic | Metal | Material | Biome
Xorana | / | World | / | / | / | /
Xorana | / | Farce | / | / | / | /
Heneal | Human | Logic | / | / | / | /
Evelor | Elf | Shape | / | / | / | /
Orohan | Orc | Sound | / | / | / | /

3
source/core.ads
View File

@ -47,9 +47,6 @@ package core is
type colour is record r, g, b, a : colour_range; end record;
subtype short_string is string (1 .. 24);
subtype long_string is string (1 .. 72);
type pointer is access procedure;
type address is new ray.pointer;

104
source/world.ads
View File

@ -144,58 +144,58 @@ package world is
);
week_name : constant array (1 .. 52) of access string := (
new string'("I <> Week of Miners"),
new string'("II <> Week of Flora"),
new string'("III <> Week of Alchemists"),
new string'("IV <> Week of Shape"),
new string'("V <> Week of Sword"),
new string'("VI <> Week of Necromancers"),
new string'("VII <> Week of Fauna"),
new string'("VIII <> Week of --"),
new string'("IX <> Week of Guards"),
new string'("X <> Week of Blacksmiths"),
new string'("XI <> Week of Archers"),
new string'("XII <> Week of --"),
new string'("XIII <> Week of Sound"),
new string'("XIV <> Week of Water"),
new string'("XV <> Week of Bankers"),
new string'("XVI <> Week of --"),
new string'("XVII <> Week of --"),
new string'("XVIII <> Week of Thaumaturgs"),
new string'("XIX <> Week of Stonecutters"),
new string'("XX <> Week of --"),
new string'("XXI <> Week of --"),
new string'("XXII <> Week of Logic"),
new string'("XXIII <> Week of Mystics"),
new string'("XXIV <> Week of Diplomats"),
new string'("XXV <> Week of Boots"),
new string'("XXVI <> Week of Shield"),
new string'("XXVII <> Week of Advisors"),
new string'("XXVIII <> Week of Architects"),
new string'("XXIX <> Week of Flame"),
new string'("XXX <> Week of Value"),
new string'("XXXI <> Week of Healers"),
new string'("XXXII <> Week of Spear"),
new string'("XXXIII <> Week of --"),
new string'("XXXIV <> Week of Leaders"),
new string'("XXXV <> Week of Skirmishers"),
new string'("XXXVI <> Week of Lubmerjacks"),
new string'("XXXVII <> Week of Pathfinders"),
new string'("XXXVIII <> Week of --"),
new string'("XXXIX <> Week of --"),
new string'("XL <> Week of Helmet"),
new string'("XLI <> Week of Leatherers"),
new string'("XLII <> Week of --"),
new string'("XLIII <> Week of --"),
new string'("XLIV <> Week of Sorcerers"),
new string'("XLV <> Week of Gloves"),
new string'("XLVI <> Week of Earth"),
new string'("XLVII <> Week of Explorers"),
new string'("XLVIII <> Week of --"),
new string'("XLIX <> Week of Strategists"),
new string'("L <> Week of Gemologists"),
new string'("LI <> Week of Merchants"),
new string'("LII <> Week of World")
new string'("I <> Week of Miners"), -- R 0 Gold
new string'("II <> Week of Flora"), -- D 0 Aezora
new string'("III <> Week of Alchemists"), -- S 0 Alchemy
new string'("IV <> Week of Shape"), -- D 7 Evelor
new string'("V <> Week of Sword"), -- A 0 Offense
new string'("VI <> Week of Necromancers"), -- S 12 Necromancy
new string'("VII <> Week of Fauna"), -- D 2 Sheila
new string'("VIII <> Week of Windmill"), -- S 20 Aerokinesis
new string'("IX <> Week of Guards"), -- S 13 Resistance
new string'("X <> Week of Blacksmiths"), -- R 3 Metal
new string'("XI <> Week of Archers"), -- S 1 Archery
new string'("XII <> Week of Bumblebee"), -- - --
new string'("XIII <> Week of Sound"), -- D 8 Orohan
new string'("XIV <> Week of Water"), -- D 3 Iliona
new string'("XV <> Week of Bankers"), -- S 5 Estates
new string'("XVI <> Week of Wall"), -- S 21 Khousokinesis
new string'("XVII <> Week of Axolotl"), -- - --
new string'("XVIII <> Week of Thaumaturgs"), -- S 17 Thaumaturgy
new string'("XIX <> Week of Stonecutters"), -- R 2 Stone
new string'("XX <> Week of Mole"), -- - --
new string'("XXI <> Week of Shrine"), -- S 22 Phosokinesis
new string'("XXII <> Week of Logic"), -- D 6 Heneal
new string'("XXIII <> Week of Mystics"), -- S 11 Mysticism
new string'("XXIV <> Week of Diplomats"), -- S 4 Diplomacy
new string'("XXV <> Week of Boots"), -- A 4 Speed
new string'("XXVI <> Week of Shield"), -- A 1 Defense
new string'("XXVII <> Week of Advisors"), -- S 8 Logistics
new string'("XXVIII <> Week of Architects"), -- S 2 Architecture
new string'("XXIX <> Week of Flame"), -- D 5 Kanako
new string'("XXX <> Week of Spider"), -- - --
new string'("XXXI <> Week of Value"), -- D 4 Uldrae
new string'("XXXII <> Week of Healers"), -- S 9 Medicine
new string'("XXXIII <> Week of Spear"), -- A 5 Reach
new string'("XXXIV <> Week of Gallows"), -- S 23 Eremnokinesis
new string'("XXXV <> Week of Leaders"), -- S 7 Leaderhsip
new string'("XXXVI <> Week of Skirmishers"), -- S 14 Skirmish
new string'("XXXVII <> Week of Lubmerjacks"), -- R 1 Wood
new string'("XXXVIII <> Week of Pathfinders"), -- S 3 Athletics
new string'("XXXIX <> Week of Frog"), -- - --
new string'("XL <> Week of Stakes"), -- S 18 Pyrokinesis
new string'("XLI <> Week of Helmet"), -- A 2 Wisdom
new string'("XLII <> Week of Leatherers"), -- R 4 Leather
new string'("XLIII <> Week of Rat"), -- - --
new string'("XLIV <> Week of Sorcerers"), -- S 15 Sorcery
new string'("XLV <> Week of Gloves"), -- A 3 Stamina
new string'("XLVI <> Week of Earth"), -- D 1 Mitena
new string'("XLVII <> Week of Explorers"), -- S 6 Exploration
new string'("XLVIII <> Week of Bridge"), -- S 19 Hydrokinesis
new string'("XLIX <> Week of Strategists"), -- S 16 Tactics
new string'("L <> Week of Gemologists"), -- R 5 Gem
new string'("LI <> Week of Merchants"), -- S 10 Mercantile
new string'("LII <> Week of Farce") -- D 9 Xorana (Osamu Dazai - The God of Farce)
);
day_name : constant array (1 .. 7) of access string := (