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

Added month, week and day names...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-01 15:10:31 -04:00
parent 4340ab7d2d
commit 8018d22794
1 changed files with 80 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
source/world.ads
View File

@ -127,6 +127,86 @@ package world is
plum_tree => ("Plum Tree ", true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600)) plum_tree => ("Plum Tree ", true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600))
); );
month_name : constant array (1 .. 12) of core.unstring := (
core.unbound ("I <> Month of Red-Haired Goddess"),
core.unbound ("II <> Month of Xorana"),
core.unbound ("III <> Month of Heneal"),
core.unbound ("IV <> Month of Evelor"),
core.unbound ("V <> Month of Orohan"),
core.unbound ("VI <> Month of Aezora"),
core.unbound ("VII <> Month of Mitena"),
core.unbound ("VIII <> Month of Guarea"),
core.unbound ("IX <> Month of Kerena"),
core.unbound ("X <> Month of Uldrae"),
core.unbound ("XI <> Month of Kanako"),
core.unbound ("XII <> Month of Time-Rebirth")
);
week_name : constant array (1 .. 52) of core.unstring := (
core.unbound ("I <> Week of Miners"),
core.unbound ("II <> Week of Flora"),
core.unbound ("III <> Week of Alchemists"),
core.unbound ("IV <> Week of Shape"),
core.unbound ("V <> Week of Sword"),
core.unbound ("VI <> Week of Necromancers"),
core.unbound ("VII <> Week of Fauna"),
core.unbound ("VIII <> Week of --"),
core.unbound ("IX <> Week of Guards"),
core.unbound ("X <> Week of Blacksmiths"),
core.unbound ("XI <> Week of Archers"),
core.unbound ("XII <> Week of --"),
core.unbound ("XIII <> Week of Sound"),
core.unbound ("XIV <> Week of Water"),
core.unbound ("XV <> Week of Bankers"),
core.unbound ("XVI <> Week of --"),
core.unbound ("XVII <> Week of --"),
core.unbound ("XVIII <> Week of Thaumaturgs"),
core.unbound ("XIX <> Week of Stonecutters"),
core.unbound ("XX <> Week of --"),
core.unbound ("XXI <> Week of --"),
core.unbound ("XXII <> Week of Logic"),
core.unbound ("XXIII <> Week of Mystics"),
core.unbound ("XXIV <> Week of Diplomats"),
core.unbound ("XXV <> Week of Boots"),
core.unbound ("XXVI <> Week of Shield"),
core.unbound ("XXVII <> Week of Advisors"),
core.unbound ("XXVIII <> Week of Architects"),
core.unbound ("XXIX <> Week of Flame"),
core.unbound ("XXX <> Week of Value"),
core.unbound ("XXXI <> Week of Healers"),
core.unbound ("XXXII <> Week of Spear"),
core.unbound ("XXXIII <> Week of --"),
core.unbound ("XXXIV <> Week of Leaders"),
core.unbound ("XXXV <> Week of Skirmishers"),
core.unbound ("XXXVI <> Week of Lubmerjacks"),
core.unbound ("XXXVII <> Week of Pathfinders"),
core.unbound ("XXXVIII <> Week of --"),
core.unbound ("XXXIX <> Week of --"),
core.unbound ("XL <> Week of Helmet"),
core.unbound ("XLI <> Week of Leatherers"),
core.unbound ("XLII <> Week of --"),
core.unbound ("XLIII <> Week of --"),
core.unbound ("XLIV <> Week of Sorcerers"),
core.unbound ("XLV <> Week of Gloves"),
core.unbound ("XLVI <> Week of Earth"),
core.unbound ("XLVII <> Week of Explorers"),
core.unbound ("XLVIII <> Week of --"),
core.unbound ("XLIX <> Week of Strategists"),
core.unbound ("L <> Week of Gemologists"),
core.unbound ("LI <> Week of Merchants"),
core.unbound ("LII <> Week of World")
);
day_name : constant array (1 .. 7) of core.unstring := (
core.unbound ("I <> Day of Sun"),
core.unbound ("II <> Day of Mother-Moon"),
core.unbound ("III <> Day of Daughter-Moon"),
core.unbound ("IV <> Day of All-Earth"),
core.unbound ("V <> Day of All-Water"),
core.unbound ("VI <> Day of All-Sky"),
core.unbound ("VII <> Day of Deities")
);
map : definition; map : definition;
draw_tiles_timer : natural := 0; draw_tiles_timer : natural := 0;