Module:PillSeasonSchedule

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

-- Module:PillSeasonSchedule
local p = {}
local date = require('Module:BassaridianCalendar')

-- 1) TEAM DEFINITIONS
local teams = {
    { code="Allegro Symphonara",      fullName="Allegro Symphonara",      championships=4 },
    { code="Ashguard Pyralis",        fullName="Ashguard Pyralis",        championships=1 },
    { code="Aurelia Auric",           fullName="Aurelia Auric",           championships=2 },
    { code="Brightpath Aureum",       fullName="Brightpath Aureum",       championships=2 },
    { code="Celestial Sancta Lunaris",fullName="Celestial Sancta Lunaris", championships=1 },
    { code="Delphica Windborne",      fullName="Delphica Windborne",      championships=1 },
    { code="Emberstone Vaeringheim",  fullName="Emberstone Vaeringheim",  championships=3 },
    { code="Flameborne Erythros",     fullName="Flameborne Erythros",     championships=1 },
    { code="Forgeward Nexa",          fullName="Forgeward Nexa",          championships=0 },
    { code="Hearthkeeper Koinon",     fullName="Hearthkeeper Koinon",     championships=0 },
    { code="Ironbough Sylvapolis",    fullName="Ironbough Sylvapolis",    championships=1 },
    { code="Redcliff Citadel",        fullName="Redcliff Citadel",        championships=1 },
    { code="Riftwarden Acheron",      fullName="Riftwarden Acheron",      championships=3 },
    { code="Saluria Skylight",        fullName="Saluria Skylight",        championships=0 },
    { code="Sandveil Somniumpolis",   fullName="Sandveil Somniumpolis",   championships=1 },
    { code="Serena Tidesong",         fullName="Serena Tidesong",         championships=2 },
    { code="Steppe Luminaria",        fullName="Steppe Luminaria",        championships=3 },
    { code="Strider Myrene",          fullName="Strider Myrene",          championships=1 },
    { code="Vaeringheim Pillar",      fullName="Vaeringheim Pillar",      championships=5 },
    { code="Imperial Delphica",       fullName="Imperial Delphica",       championships=1 },
    { code="Ascendant Aetherium",     fullName="Ascendant Aetherium",     championships=2 },
    { code="Sufriya Stormwake",       fullName="Sufriya Stormwake",       championships=1 },
    { code="Pillarion Club Suncliff", fullName="Pillarion Club Suncliff", championships=0 },
    { code="Jogi Regiment",           fullName="Jogi Regiment",           championships=0 },
    { code="Vine Fleet Mylecia",      fullName="Vine Fleet Mylecia",      championships=0 },
    { code="Port of Blore Heath",     fullName="Port of Blore Heath",     championships=0 },
    { code="Free State Abeis",        fullName="Free State Abeis",        championships=0 },
    { code="Jezeraah City",           fullName="Jezeraah City",           championships=0 }
}

-- 2) SCHEDULE GENERATOR
local function generateSchedule()
    local n = #teams
    assert(n % 2 == 0)
    local pool = {}
    for i = 1, n do pool[i] = teams[i] end
    local fixed = table.remove(pool, 1)
    local rounds = {}
    for r = 1, n - 1 do
        local pairings = {}
        if r % 2 == 1 then
            table.insert(pairings, {fixed, pool[1]})
        else
            table.insert(pairings, {pool[1], fixed})
        end
        for i = 2, n/2 do
            local t1, t2 = pool[i], pool[#pool - (i - 2)]
            if i % 2 == 0 then
                table.insert(pairings, {t1, t2})
            else
                table.insert(pairings, {t2, t1})
            end
        end
        rounds[r] = pairings
        table.insert(pool, 1, table.remove(pool))
    end
    for r = 1, n - 1 do
        local rev = {}
        for _, m in ipairs(rounds[r]) do
            table.insert(rev, {m[2], m[1]})
        end
        rounds[n - 1 + r] = rev
    end
    return rounds
end

-- 3) MAP ROUNDS TO DAYS
local START, END = 62, 183
local function mapDays()
    local totalDays = END - START + 1
    local totalRounds = (#teams - 1) * 2
    local interval = math.floor(totalDays / totalRounds)
    local extra = totalDays % totalRounds
    local m = {}
    local day = START
    for i = 1, totalRounds do
        m[day] = i
        day = day + interval + (extra > 0 and 1 or 0)
        if extra > 0 then extra = extra - 1 end
    end
    return m
end

-- 4) SIMULATE RESULTS
local function simulateDayResults(day)
    local schedule = generateSchedule()
    local dm = mapDays()
    local ridx = dm[day]
    if not ridx then return {} end
    math.randomseed(day)
    local results = {}
    for _, match in ipairs(schedule[ridx]) do
        local home, away = match[1], match[2]
        local drawProb = 0.1
        local r = math.random()
        local hg, ag
        if r < drawProb then
            hg = math.random(0, 12)
            ag = hg
        else
            local wh = home.championships + 1
            local wa = away.championships + 1
            local rem = (r - drawProb) / (1 - drawProb)
            local homeWin = rem < (wh / (wh + wa))
            local winG = math.random(1, 12)
            local loseG = math.random(0, math.min(winG - 1, 12))
            if homeWin then
                hg, ag = winG, loseG
            else
                hg, ag = loseG, winG
            end
        end
        table.insert(results, {home = home, away = away, hg = hg, ag = ag})
    end
    return results
end

-- 5) RENDER ROUND
local function renderRound(day, year)
    local dm = mapDays()
    if not dm[day] then return "'''No matches scheduled today'''" end
    local month, dom = date.getDateFromDay(day)
    local label = dom .. " " .. month .. " " .. year .. " PSSC"
    local rows = {}
    for _, res in ipairs(simulateDayResults(day)) do
        local h, a, hg, ag = res.home, res.away, res.hg, res.ag
        local hcol = (hg > ag and "green") or (hg < ag and "red") or "yellow"
        local acol = (ag > hg and "green") or (ag < hg and "red") or "yellow"
        local homeSpan = string.format("<span style='color:%s;'>'''%d'''</span>", hcol, hg)
        local awaySpan = string.format("<span style='color:%s;'>'''%d'''</span>", acol, ag)
        rows[#rows+1] = string.format(
            "%s %s %s vs %s %s %s",
            h.logo, homeSpan, h.fullName,
            a.logo, awaySpan, a.fullName
        )
    end
    local content = table.concat(rows, "<br>")
    return string.format("|-%s| %d || %s || %s", "\n", day, label, content)
end

-- 6) TODAY'S MATCHDAY
function p.renderSchedule(frame)
    local curr = date.getCurrentDate()
    local day = tonumber(curr:match('^(%d+),')) or 0
    local year = tonumber(curr:match('.*, (%d+) PSSC')) or 0
    if not mapDays()[day] then return "'''No matches scheduled today'''" end
    return table.concat({
        '{| class="wikitable sortable"',
        '! Day !! Date !! Matches',
        renderRound(day, year),
        '|}'
    }, "\n")
end

-- 7) CURRENT STANDINGS WITHOUT LOGOS
function p.renderStandings(frame)
    local curr = date.getCurrentDate()
    local today = tonumber(curr:match('^(%d+),')) or 0
    local last = math.min(today, END)
    local records = {}
    for _, t in ipairs(teams) do
        records[t.code] = {team = t, W = 0, D = 0, L = 0, Pts = 0, PF = 0, PA = 0}
    end
    for d = START, last do
        for _, res in ipairs(simulateDayResults(d)) do
            local hR, aR = records[res.home.code], records[res.away.code]
            hR.PF, hR.PA = hR.PF + res.hg, hR.PA + res.ag
            aR.PF, aR.PA = aR.PF + res.ag, aR.PA + res.hg
            if res.hg > res.ag then
                hR.W, hR.Pts = hR.W + 1, hR.Pts + 3
                aR.L = aR.L + 1
            elseif res.hg < res.ag then
                aR.W, aR.Pts = aR.W + 1, aR.Pts + 3
                hR.L = hR.L + 1
            else
                hR.D, hR.Pts = hR.D + 1, hR.Pts + 1
                aR.D, aR.Pts = aR.D + 1, aR.Pts + 1
            end
        end
    end
    local list = {}
    for _, rec in pairs(records) do
        rec.PD = rec.PF - rec.PA
        table.insert(list, rec)
    end
    table.sort(list, function(a, b)
        if a.Pts ~= b.Pts then return a.Pts > b.Pts end
        if a.PD  ~= b.PD  then return a.PD > b.PD end
        if a.W   ~= b.W   then return a.W > b.W end
        return a.team.fullName < b.team.fullName
    end)
    local out = {'{| class="wikitable sortable"', '! Pos !! Team !! W !! D !! L !! Pts !! PF !! PA !! PD'}
    for i, rec in ipairs(list) do
        table.insert(out, string.format(
            '|-\n| %d || %s || %d || %d || %d || %d || %d || %d || %d',
            i, rec.team.fullName,
            rec.W, rec.D, rec.L, rec.Pts,
            rec.PF, rec.PA, rec.PD
        ))
    end
    table.insert(out, '|}')
    return table.concat(out, '\n')
end

return p