Module:BassaridianCalendar

Documentation for this module may be created at Module:BassaridianCalendar/doc

local p = {}

function p.getCurrentDate()
    -- Get the current Gregorian date and time in CDT (adjusting for UTC offset)
    local utcTime = os.time(os.date("!*t"))
    local cdtTime = utcTime - (6 * 3600) -- CDT is UTC-6
    local yearDay = tonumber(os.date("%j", cdtTime)) -- Day of the year (1-365/366)
    local isLeapYear = (tonumber(os.date("%Y", cdtTime)) % 4 == 0 and (tonumber(os.date("%Y", cdtTime)) % 100 ~= 0 or tonumber(os.date("%Y", cdtTime)) % 400 == 0))
    local totalDays = isLeapYear and 366 or 365 -- Total days in the Gregorian year

    -- Bassaridian calendar constants
    local yearStart = 237 -- August 25th is Day 237 in the Gregorian calendar
    local calendarDays = 183 -- Total days in the Bassaridian year
    local monthLength = 61 -- Each Bassaridian month has 61 days

    -- Adjust for Bassaridian calendar
    local adjustedDay = yearDay - yearStart
    if adjustedDay < 0 then
        adjustedDay = adjustedDay + totalDays -- Adjust for wraparound to the previous year
    end
    local bassaridianDay = (adjustedDay % calendarDays) + 1

    -- Determine month, day within the month, and zodiac sign
    local bassaridianMonth, zodiacSign
    if bassaridianDay <= 61 then -- Month 1: Atosiel
        bassaridianMonth = "Atosiel"
        if bassaridianDay <= 12 then
            zodiacSign = "Atosien"
        elseif bassaridianDay <= 24 then
            zodiacSign = "Eosena"
        elseif bassaridianDay <= 36 then
            zodiacSign = "Micrasha"
        elseif bassaridianDay <= 48 then
            zodiacSign = "Pyreska"
        else
            zodiacSign = "Indomin"
        end
    elseif bassaridianDay <= 121 then -- Month 2: Thalassiel
        bassaridianMonth = "Thalassiel"
        local dayInMonth = bassaridianDay - 61
        if dayInMonth <= 12 then
            zodiacSign = "Chrysen"
        elseif dayInMonth <= 24 then
            zodiacSign = "Thalassian"
        elseif dayInMonth <= 36 then
            zodiacSign = "Nephelia"
        elseif dayInMonth <= 48 then
            zodiacSign = "Glinaeus"
        else
            zodiacSign = "Noctien"
        end
    else -- Month 3: Opsitheiel
        bassaridianMonth = "Opsitheiel"
        local dayInMonth = bassaridianDay - 121
        if dayInMonth <= 12 then
            zodiacSign = "Opsithia"
        elseif dayInMonth <= 24 then
            zodiacSign = "Stygian"
        elseif dayInMonth <= 36 then
            zodiacSign = "Faunian"
        elseif dayInMonth <= 48 then
            zodiacSign = "Silenian"
        else
            zodiacSign = "Catosien"
        end
    end

    -- Event lookup table
    local events = {
        ["6,Atosiel"] = "Bayram al-Nur (Festival of Light) in [[List of cities in Bassaridia Vaeringheim#Vaeringheim|Vaeringheim]]",
        ["18,Atosiel"] = "Chag Or Hadash (Festival of New Light) in [[List of cities in Bassaridia Vaeringheim#Luminaria|Luminaria]]",
        ["30,Atosiel"] = "Symposion Eirinis (Symposium of Harmony) in [[List of cities in Bassaridia Vaeringheim#Serena|Serena]]",
        ["43,Atosiel"] = "Alev Günü (Day of Flame) in [[List of cities in Bassaridia Vaeringheim#Pyralis|Pyralis]]",
        ["55,Atosiel"] = "Tikkun Tzel (Repair of Shadows) in [[List of cities in Bassaridia Vaeringheim#Symphonara|Symphonara]]",
        ["67,Thalassiel"] = "Panegyris Chrysou (Golden Gathering) in [[List of cities in Bassaridia Vaeringheim#Aurelia|Aurelia]]",
        ["80,Thalassiel"] = "Mehtap Dalgası (Moonlit Tide) in [[List of cities in Bassaridia Vaeringheim#Vaeringheim|Vaeringheim]]",
        ["92,Thalassiel"] = "Oneiro Foteino (Dream of Illumination) in [[List of cities in Bassaridia Vaeringheim#Somniumpolis|Somniumpolis]]",
        ["105,Thalassiel"] = "Erev Galgal (Eve of Cycles) in [[List of cities in Bassaridia Vaeringheim#Nexa|Nexa]]",
        ["115,Thalassiel"] = "Leilat al-Kamar (Night of the Moon) in [[List of cities in Bassaridia Vaeringheim#Lunalis Sancta|Lunalis Sancta]]",
        ["128,Opsitheiel"] = "Chag Tvuah (Festival of Harvest) in [[List of cities in Bassaridia Vaeringheim#Sylvapolis|Sylvapolis]]",
        ["140,Opsitheiel"] = "Anagenesis Eirmos (Procession of Rebirth) in [[List of cities in Bassaridia Vaeringheim#Acheron|Acheron]]",
        ["150,Opsitheiel"] = "Panagia Therizis (Holy Day of the Reaper) in [[List of cities in Bassaridia Vaeringheim#Sylvapolis|Sylvapolis]]",
        ["165,Opsitheiel"] = "Karnavali Thysias (Carnival of Celebration) in [[List of cities in Bassaridia Vaeringheim#Erythros|Erythros]]",
        ["175,Opsitheiel"] = "Sefar Yashar (Straight Path Celebration) in [[List of cities in Bassaridia Vaeringheim#Catonis Atrium|Catonis Atrium]]",
    }

    -- Find the event for the current date
    local eventKey = bassaridianDay .. "," .. bassaridianMonth
    local event = events[eventKey] or "No significant events today."

    -- Return the formatted date
    return bassaridianDay .. ", " .. bassaridianMonth .. " (" .. zodiacSign .. "), 50 PSSC – " .. event
end

return p