-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core;

package lore is

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

	month_count : constant natural := 13;
	week_count  : constant natural := 52;
	day_count   : constant natural :=  7;

	month_name : constant array (1 .. month_count) of access string := (
		new string'("I       <> Month of Genesis"),
		new string'("II      <> Month of Life"),
		new string'("III     <> Month of Xorana"),
		new string'("IV      <> Month of Heneal"),
		new string'("V       <> Month of Evelor"),
		new string'("VI      <> Month of Orohan"),
		new string'("VII     <> Month of Aezora"),
		new string'("VIII    <> Month of Mitena"),
		new string'("IX      <> Month of Sheila"),
		new string'("X       <> Month of Iliona"),
		new string'("XI      <> Month of Uldrae"),
		new string'("XII     <> Month of Kanako"),
		new string'("XIII    <> Month of Death")
	);

	week_name : constant array (1 .. week_count) of access string := (
		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 .. day_count) of access string := (
		new string'("I       <> Day of Sun"),
		new string'("II      <> Day of Mother-Moon"),
		new string'("III     <> Day of Daughter-Moon"),
		new string'("IV      <> Day of All-Earth"),
		new string'("V       <> Day of All-Water"),
		new string'("VI      <> Day of All-Sky"),
		new string'("VII     <> Day of Deities")
	);

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

end lore;