From 8018d22794794ec5be1577eeb37439335d7bb05b Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Sat, 1 Jun 2024 15:10:31 -0400
Subject: [PATCH] Added month, week and day names...

---
 source/world.ads | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)

diff --git a/source/world.ads b/source/world.ads
index 04eb797..35600b1 100644
--- a/source/world.ads
+++ b/source/world.ads
@@ -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))
 	);
 
+	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;
 
 	draw_tiles_timer         : natural := 0;