Module:PillSeasonSchedule
From MicrasWiki
Documentation for this module may be created at Module:PillSeasonSchedule/doc
-- Module:PillSeasonSchedule
local p = {}
local date = require('Module:BassaridianCalendar')
------------------------------------------------------------------------
-- 0) CONFIG / CALENDAR
------------------------------------------------------------------------
local START, END = 62, 183 -- season window within the PSSC year
local DAYS_IN_YEAR = 183
local DEFAULT_SEASON = 52
local function getMonthDay(d)
if d <= 61 then
return "Atosiel", d
elseif d <= 122 then
return "Thalassiel", d - 61
else
return "Opsitheiel", d - 122
end
end
local function md2day(m,d) return (m-1)*61 + d end
local function absDay(y,d) return y*DAYS_IN_YEAR + d end
local function invertDayMap(dm)
local inv = {}
for day, md in pairs(dm or {}) do inv[md] = day end
return inv
end
------------------------------------------------------------------------
-- 1) TEAMS
------------------------------------------------------------------------
local teams = {
{ code="Allegro Symphonara", fullName="Allegro Symphonara", logo="[[File:AllegrosymphonaraB.png|20px]]", championships=4 },
{ code="Ashguard Pyralis", fullName="Ashguard Pyralis", logo="[[File:AshguardpyralisB.png|20px]]", championships=1 },
{ code="Aurelia Auric", fullName="Aurelia Auric", logo="[[File:AureliaAuricB.png|20px]]", championships=2 },
{ code="Brightpath Aureum", fullName="Brightpath Aureum", logo="[[File:BrightpathaureumB.png|20px]]", championships=2 },
{ code="Celestial Sancta Lunaris", fullName="Celestial Sancta Lunaris", logo="[[File:CelestialsanctaB.png|20px]]", championships=1 },
{ code="Delphica Windborne", fullName="Delphica Windborne", logo="[[File:DelphicawindborneB.png|20px]]", championships=1 },
{ code="Emberstone Vaeringheim", fullName="Emberstone Vaeringheim", logo="[[File:EmberstonevaeringheimB.png|20px]]", championships=3 },
{ code="Flameborne Erythros", fullName="Flameborne Erythros", logo="[[File:FlameborneerythrosB.png|20px]]", championships=1 },
{ code="Forgeward Nexa", fullName="Forgeward Nexa", logo="[[File:ForgewardnexaB.png|20px]]", championships=0 },
{ code="Hearthkeeper Koinon", fullName="Hearthkeeper Koinon", logo="[[File:HearthkeeperkoinonB.png|20px]]", championships=0 },
{ code="Ironbough Sylvapolis", fullName="Ironbough Sylvapolis", logo="[[File:IronboughSylvapolisB.png|20px]]", championships=1 },
{ code="Redcliff Citadel", fullName="Redcliff Citadel", logo="[[File:RedcliffCitadel.png|20px]]", championships=1 },
{ code="Riftwarden Acheron", fullName="Riftwarden Acheron", logo="[[File:RiftwardenAcheronB.png|20px]]", championships=3 },
{ code="Saluria Skylight", fullName="Saluria Skylight", logo="[[File:SaluriaSkylightB.png|20px]]", championships=0 },
{ code="Sandveil Somniumpolis", fullName="Sandveil Somniumpolis", logo="[[File:SandVeilSomniumB.png|20px]]", championships=1 },
{ code="Serena Tidesong", fullName="Serena Tidesong", logo="[[File:Serena TidesongB.png|20px]]", championships=2 },
{ code="Steppe Luminaria", fullName="Steppe Luminaria", logo="[[File:Steppe LuminariaB.png|20px]]", championships=4 },
{ code="Strider Myrene", fullName="Strider Myrene", logo="[[File:StriderMyreneB.png|20px]]", championships=1 },
{ code="Vaeringheim Pillar", fullName="Vaeringheim Pillar", logo="[[File:VaeringheimPillarB.png|20px]]", championships=5 },
{ code="Imperial Delphica", fullName="Imperial Delphica", logo="[[File:ImperialDelphicaB.png|20px]]", championships=1 },
{ code="Ascendant Aetherium", fullName="Ascendant Aetherium", logo="[[File:AscendantAetheriumB.png|20px]]", championships=2 },
{ code="Sufriya Stormwake", fullName="Sufriya Stormwake", logo="[[File:SufriyaStormwake.png|20px]]", championships=1 },
{ code="Pillarion Club Suncliff", fullName="Pillarion Club Suncliff", logo="[[File:PCSuncliff.png|20px]]", championships=0 },
{ code="Jogi Regiment", fullName="Jogi Regiment", logo="[[File:JogiRegiment.png|20px]]", championships=0 },
{ code="Vine Fleet Mylecia", fullName="Vine Fleet Mylecia", logo="[[File:VineFleetMylecia.png|20px]]", championships=0 },
{ code="Port of Blore Heath", fullName="Port of Blore Heath", logo="[[File:PortBloreHeath.png|20px]]", championships=0 },
{ code="Free State Abeis", fullName="Free State Abeis", logo="[[File:FreeStateAbeis.png|20px]]", championships=0 },
{ code="Jezeraah City", fullName="Jezeraah City", logo="[[File:JezeraahCity.png|20px]]", championships=0 },
{ code="Ourid Pegasi", fullName="Ourid Pegasi", logo="[[File:OuridPegasiLogo.png|20px]]", championships=0 },
{ code="Pillarion Club Caspazani", fullName="Pillarion Club Caspazani", logo="[[File:PCCaspazani.png|20px]]", championships=0 },
{ code="Amberwatch Slevik", fullName="Amberwatch Slevik", logo="[[File:AmberwatchSlevik.png|20px]]", championships=0 },
{ code="Fanghorn Rein", fullName="Fanghorn Rein", logo="[[File:FanghornRein.png|20px]]", championships=0 },
}
local TEAM_BY_CODE = {}
for _,t in ipairs(teams) do TEAM_BY_CODE[t.code] = t end
local function _asTeam(x)
if type(x) == "table" then return x end
return TEAM_BY_CODE[x] or { code=tostring(x), fullName=tostring(x), logo="" }
end
local function _teamWithLogo(x, bold)
local t = _asTeam(x)
local name = t.fullName or t.code or tostring(x)
if bold then name = "'''" .. name .. "'''" end
local logo = t.logo or ""
return (logo ~= "" and logo ~= "—") and (logo .. " " .. name) or name
end
------------------------------------------------------------------------
-- 2) DIVISIONS (4 x 8)
------------------------------------------------------------------------
local DIVISIONS = {
["Morovian Division"] = {
"Emberstone Vaeringheim","Vaeringheim Pillar","Imperial Delphica","Delphica Windborne",
"Allegro Symphonara","Steppe Luminaria","Jezeraah City","Saluria Skylight"
},
["Southern Strait Division"] = {
"Sufriya Stormwake","Vine Fleet Mylecia","Port of Blore Heath","Jogi Regiment",
"Free State Abeis","Sandveil Somniumpolis","Brightpath Aureum","Flameborne Erythros"
},
["Western Highlands Division"] = {
"Ashguard Pyralis","Aurelia Auric","Celestial Sancta Lunaris","Forgeward Nexa",
"Hearthkeeper Koinon","Ironbough Sylvapolis","Riftwarden Acheron","Serena Tidesong"
},
["Normarkian Division"] = {
"Redcliff Citadel","Strider Myrene","Ascendant Aetherium","Pillarion Club Suncliff",
"Ourid Pegasi","Pillarion Club Caspazani","Amberwatch Slevik","Fanghorn Rein"
}
}
local DIV_OF = {}
for div, list in pairs(DIVISIONS) do
for _, code in ipairs(list) do DIV_OF[code] = div end
end
local DIV_ORDER = {
"Morovian Division",
"Southern Strait Division",
"Western Highlands Division",
"Normarkian Division"
}
------------------------------------------------------------------------
-- 3) SCHEDULE LOCK + BALANCED FUTURE (preserves history)
------------------------------------------------------------------------
-- LOCKED schedule: exact original logic
local function homeFirst(codeA, codeB)
local sA, sB = 0, 0
for i=1,#codeA do sA = (sA + string.byte(codeA,i)) % 9973 end
for i=1,#codeB do sB = (sB + string.byte(codeB,i)) % 9973 end
return sA > sB
end
local function buildPairings()
local intra, inter = {}, {}
for _, list in pairs(DIVISIONS) do
for i=1,#list-1 do
for j=i+1,#list do
local A, B = TEAM_BY_CODE[list[i]], TEAM_BY_CODE[list[j]]
table.insert(intra, {home=A, away=B})
table.insert(intra, {home=B, away=A})
end
end
end
local allCodes = {}
for _,t in ipairs(teams) do table.insert(allCodes, t.code) end
table.sort(allCodes)
for ai=1,#allCodes-1 do
for bi=ai+1,#allCodes do
local ca, cb = allCodes[ai], allCodes[bi]
if DIV_OF[ca] ~= DIV_OF[cb] then
local a, b = TEAM_BY_CODE[ca], TEAM_BY_CODE[cb]
local hFirst = homeFirst(ca, cb)
table.insert(inter, {home = hFirst and a or b, away = hFirst and b or a})
end
end
end
table.sort(intra, function(a,b)
if DIV_OF[a.home.code] ~= DIV_OF[b.home.code] then
return DIV_OF[a.home.code] < DIV_OF[b.home.code]
end
return a.home.code .. a.away.code < b.home.code .. b.away.code
end)
table.sort(inter, function(a,b)
local ka = DIV_OF[a.home.code] .. "|" .. DIV_OF[a.away.code]
local kb = DIV_OF[b.home.code] .. "|" .. DIV_OF[b.away.code]
if ka ~= kb then return ka < kb end
return a.home.code .. a.away.code < b.home.code .. b.away.code
end)
return intra, inter
end
local function packRounds(matches)
local rounds, used = {}, {}
local function canPlace(r, m)
return not (used[r] and (used[r][m.home.code] or used[r][m.away.code]))
end
for _, m in ipairs(matches) do
local placed = false
for r=1,#rounds do
if canPlace(r, m) then
rounds[r][#rounds[r]+1] = { m.home, m.away }
used[r] = used[r] or {}
used[r][m.home.code] = true
used[r][m.away.code] = true
placed = true
break
end
end
if not placed then
rounds[#rounds+1] = { { m.home, m.away } }
used[#rounds] = {}
used[#rounds][m.home.code] = true
used[#rounds][m.away.code] = true
end
end
return rounds
end
local SCHED_LOCKED = (function()
local intra, inter = buildPairings()
local function chunk(arr, size)
local out = {}
for i=1,#arr,size do
local b = {}
for j=i, math.min(i+size-1, #arr) do b[#b+1] = arr[j] end
out[#out+1] = b
end
return out
end
local intraBlocks = chunk(intra, 64)
local interBlocks = chunk(inter, 128)
local merged, ia, ib = {}, 1, 1
while ia <= #intraBlocks or ib <= #interBlocks do
if ia <= #intraBlocks then
for _,m in ipairs(intraBlocks[ia]) do merged[#merged+1] = m end
ia = ia + 1
end
if ib <= #interBlocks then
for _,m in ipairs(interBlocks[ib]) do merged[#merged+1] = m end
ib = ib + 1
end
end
return packRounds(merged)
end)()
local function mapDaysLocked()
local totalDays = END - START + 1
local totalRnds = #SCHED_LOCKED
local iv = math.floor(totalDays / totalRnds)
local ex = totalDays % totalRnds
local m, d = {}, START
for i=1,totalRnds do
m[d] = i
d = d + iv + (ex > 0 and 1 or 0)
if ex > 0 then ex = ex - 1 end
end
return m
end
local DM_LOCKED = mapDaysLocked()
local function lastPlayedLocked()
local curr = date.getCurrentDate()
local today = tonumber(curr:match("^(%d+),")) or 0
local lastDay, lastMd = nil, 0
for d=START, math.min(today, END) do
local md = DM_LOCKED[d]
if md and md > lastMd then lastMd = md; lastDay = d end
end
return lastDay, lastMd
end
-- BALANCED schedule: 38 rounds, 16 matches/round
local TOTAL_ROUNDS = 38
local function _copy(arr)
local t = {}
for i=1,#arr do t[i] = arr[i] end
return t
end
local function roundRobin8(teamCodes)
local n = #teamCodes
if n ~= 8 then error("roundRobin8 expects exactly 8 teams") end
local arr = _copy(teamCodes)
local rounds = {}
for r=1,7 do
local matches = {}
for i=1,4 do
local a = TEAM_BY_CODE[arr[i]]
local b = TEAM_BY_CODE[arr[n+1-i]]
local home, away
if (r+i) % 2 == 0 then home, away = a, b else home, away = b, a end
matches[#matches+1] = { home, away }
end
rounds[#rounds+1] = matches
local last = arr[n]
for i=n,3,-1 do arr[i] = arr[i-1] end
arr[2] = last
end
return rounds
end
local function swapHA(rounds)
local out = {}
for r=1,#rounds do
out[r] = {}
for i=1,#rounds[r] do
local m = rounds[r][i]
out[r][i] = { m[2], m[1] }
end
end
return out
end
local function interPairRounds(divA_codes, divB_codes, blockIndex)
local rounds = {}
for t=0,7 do
local matches = {}
for i=1,8 do
local a = TEAM_BY_CODE[divA_codes[i]]
local b = TEAM_BY_CODE[divB_codes[((i+t-1) % 8) + 1]]
local home, away
if ((blockIndex + t) % 2 == 0) then home, away = a, b else home, away = b, a end
matches[#matches+1] = { home, away }
end
rounds[#rounds+1] = matches
end
return rounds
end
local SCHED_BALANCED = (function()
local rounds = {}
-- 14 intra rounds
local intraByDiv = {}
for _, divName in ipairs(DIV_ORDER) do
local rr7 = roundRobin8(DIVISIONS[divName])
local rr14 = {}
for i=1,7 do rr14[i] = rr7[i] end
local rr7s = swapHA(rr7)
for i=1,7 do rr14[7+i] = rr7s[i] end
intraByDiv[divName] = rr14
end
for r=1,14 do
local full = {}
for _, divName in ipairs(DIV_ORDER) do
for _, m in ipairs(intraByDiv[divName][r]) do full[#full+1] = m end
end
rounds[#rounds+1] = full
end
-- 24 inter rounds = 3 blocks × 8 rounds
local A = DIVISIONS[DIV_ORDER[1]]
local B = DIVISIONS[DIV_ORDER[2]]
local C = DIVISIONS[DIV_ORDER[3]]
local D = DIVISIONS[DIV_ORDER[4]]
local blocks = {
{ {A,B}, {C,D} },
{ {A,C}, {B,D} },
{ {A,D}, {B,C} },
}
for blockIndex, pairset in ipairs(blocks) do
local p1 = interPairRounds(pairset[1][1], pairset[1][2], blockIndex)
local p2 = interPairRounds(pairset[2][1], pairset[2][2], blockIndex)
for t=1,8 do
local full = {}
for _,m in ipairs(p1[t]) do full[#full+1] = m end
for _,m in ipairs(p2[t]) do full[#full+1] = m end
rounds[#rounds+1] = full
end
end
return rounds
end)()
local function mapDays()
local pivotDay, pivotMd = lastPlayedLocked()
if not pivotDay or pivotMd == 0 then
local totalDays = END - START + 1
local iv = math.floor(totalDays / TOTAL_ROUNDS)
local ex = totalDays % TOTAL_ROUNDS
local m, d = {}, START
for i=1,TOTAL_ROUNDS do
m[d] = i
d = d + iv + (ex > 0 and 1 or 0)
if ex > 0 then ex = ex - 1 end
end
return m
end
local dm = {}
for d,md in pairs(DM_LOCKED) do
if d <= pivotDay then dm[d] = md end
end
local futureStartDay = pivotDay + 1
local remainingDays = math.max(0, END - futureStartDay + 1)
local remainingRnds = math.max(0, TOTAL_ROUNDS - pivotMd)
if remainingDays == 0 or remainingRnds == 0 then return dm end
local iv = math.floor(remainingDays / remainingRnds)
local ex = remainingDays % remainingRnds
local day = futureStartDay
for i=1,remainingRnds do
local mdx = pivotMd + i
if mdx > TOTAL_ROUNDS then break end
dm[day] = mdx
day = day + iv + (ex > 0 and 1 or 0)
if ex > 0 then ex = ex - 1 end
if day > END then break end
end
return dm
end
local function schedForRound(roundIdx)
local _, pivotMd = lastPlayedLocked()
if roundIdx <= pivotMd then return SCHED_LOCKED end
return SCHED_BALANCED
end
local function getRoundMatches(roundIdx)
local sched = schedForRound(roundIdx)
return sched[roundIdx] or {}
end
local function _currentPlayedMatchday()
local curr = date.getCurrentDate()
local today = tonumber(curr:match("^(%d+),")) or 0
local dm = mapDays()
local lastMd = 0
for d=START, math.min(today, END) do
if dm[d] and dm[d] > lastMd then lastMd = dm[d] end
end
return lastMd
end
------------------------------------------------------------------------
-- 4) MATCH SIMULATION
------------------------------------------------------------------------
local function simScoreFor(h, a, seed)
math.randomseed(seed)
local p = math.random()
local hg, ag
if p < 0.1 then
hg = math.random(0, 12); ag = hg
else
local wh, wa = (h.championships or 0) + 1, (a.championships or 0) + 1
local rem = (p - 0.1) / 0.9
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
return hg, ag
end
local function simulateDayResults(day)
local dm = mapDays()
local idx = dm[day]
if not idx then return {} end
local matches = getRoundMatches(idx)
local out = {}
for k, m in ipairs(matches) do
local h, a = m[1], m[2]
local salt = day*1000 + k + string.byte(h.code,1) + string.byte(a.code,1)
local hg, ag = simScoreFor(h, a, salt)
out[#out+1] = { home=h, away=a, hg=hg, ag=ag }
end
return out
end
------------------------------------------------------------------------
-- 5) TODAY / NEXT MATCHDAY
------------------------------------------------------------------------
local function renderRound(curDay, year)
local dm = mapDays()
local target = curDay
local upcoming= false
if not dm[target] then
for d = curDay + 1, END do
if dm[d] then target = d; upcoming = true; break end
end
end
if not dm[target] then
return "'''No more matches this season.'''"
end
local prefix = upcoming and "'''Next matchday:''' " or ""
local mon, dom = getMonthDay(target)
local label = dom .. " " .. mon .. " " .. year .. " PSSC"
local rows = {}
local idx = dm[target]
local matches = getRoundMatches(idx)
if not upcoming then
for k, m in ipairs(matches) do
local h, a = m[1], m[2]
local salt = target*1000 + k + string.byte(h.code,1) + string.byte(a.code,1)
local hg, ag = simScoreFor(h, a, salt)
local hc = (hg > ag and "green") or (hg < ag and "red") or "yellow"
local ac = (ag > hg and "green") or (ag < hg and "red") or "yellow"
local hs = string.format("<span style='color:%s;'>'''%d'''</span>", hc, hg)
local as = string.format("<span style='color:%s;'>'''%d'''</span>", ac, ag)
rows[#rows+1] = string.format("%s %s %s vs %s %s %s", h.logo, hs, h.fullName, a.logo, as, a.fullName)
end
else
for _, m in ipairs(matches) do
local h, a = m[1], m[2]
rows[#rows+1] = string.format("%s %s vs %s %s", h.logo, h.fullName, a.logo, a.fullName)
end
end
return string.format("|-\n| %s%d || %s || %s", prefix, target, label, table.concat(rows, "<br>"))
end
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
return table.concat({
'{| class="wikitable sortable"',
'! Day !! Date !! Matches',
renderRound(day, year),
'|}'
}, "\n")
end
------------------------------------------------------------------------
-- 6) STANDINGS
------------------------------------------------------------------------
function p.renderStandings(frame)
local curr = date.getCurrentDate()
local today = tonumber(curr:match("^(%d+),")) or 0
local last = math.min(today, END)
local recs = {}
for _, t in ipairs(teams) do
recs[t.code] = { team=t, W=0, D=0, L=0, Pts=0, PF=0, PA=0, PD=0 }
end
local dm = mapDays()
for d = START, last do
local idx = dm[d]
if idx then
local matches = getRoundMatches(idx)
for k, m in ipairs(matches) do
local h, a = m[1], m[2]
local salt = d*1000 + k + string.byte(h.code,1) + string.byte(a.code,1)
local hg, ag = simScoreFor(h, a, salt)
local H, A = recs[h.code], recs[a.code]
H.PF, H.PA = H.PF + hg, H.PA + ag
A.PF, A.PA = A.PF + ag, A.PA + hg
if hg > ag then
H.W, H.Pts = H.W + 1, H.Pts + 3
A.L = A.L + 1
elseif hg < ag then
A.W, A.Pts = A.W + 1, A.Pts + 3
H.L = H.L + 1
else
H.D, H.Pts = H.D + 1, H.Pts + 1
A.D, A.Pts = A.D + 1, A.Pts + 1
end
end
end
end
local buckets = {}
for div,_ in pairs(DIVISIONS) do buckets[div] = {} end
for code, r in pairs(recs) do
r.PD = r.PF - r.PA
local div = DIV_OF[code] or "—"
buckets[div] = buckets[div] or {}
table.insert(buckets[div], r)
end
local function cmp(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
for div, list in pairs(buckets) do table.sort(list, cmp) end
local out = {}
for _, div in ipairs(DIV_ORDER) do
local list = buckets[div] or {}
out[#out+1] = "== " .. div .. " Standings =="
out[#out+1] = '{| class="wikitable sortable"'
out[#out+1] = "! Pos !! Team !! W !! D !! L !! Pts !! PF !! PA !! PD"
for i, rec in ipairs(list) do
local style = ""
if i <= 2 then style = ' style="background-color:#ccffcc;"'
elseif i <= 4 then style = ' style="background-color:#cce5ff;"'
elseif i <= 6 then style = ' style="background-color:#F1EB9C;"'
else style = ' style="background-color:#ffcccc;"'
end
out[#out+1] = "|-" .. style
out[#out+1] =
"| " .. i ..
" || " .. rec.team.logo .. " " .. rec.team.fullName ..
" || " .. rec.W ..
" || " .. rec.D ..
" || " .. rec.L ..
" || " .. rec.Pts ..
" || " .. rec.PF ..
" || " .. rec.PA ..
" || " .. rec.PD
end
out[#out+1] = "|}"
out[#out+1] = ""
end
return table.concat(out, "\n")
end
------------------------------------------------------------------------
-- 7) PREVIOUS RESULTS (last 5 matchdays)
------------------------------------------------------------------------
function p.renderPreviousResults(frame)
local curr = date.getCurrentDate()
local today = tonumber(curr:match("^(%d+),")) or 0
local year = tonumber(curr:match(", (%d+) PSSC")) or 0
local dm = mapDays()
local played = {}
for d = today - 1, START, -1 do
if dm[d] then played[#played+1] = d end
if #played == 5 then break end
end
local out = { '{| class="wikitable sortable"', '! Date !! Home !! Score !! Away' }
for _, d in ipairs(played) do
local mon, dom = getMonthDay(d)
local dateLabel = dom .. " " .. mon .. " " .. year .. " PSSC"
local idx = dm[d]
local matches = getRoundMatches(idx)
for k, m in ipairs(matches) do
local h, a = m[1], m[2]
local salt = d*1000 + k + string.byte(h.code,1) + string.byte(a.code,1)
local hg, ag = simScoreFor(h, a, salt)
out[#out+1] = "|-"
out[#out+1] = "| " .. dateLabel .. " || " .. h.logo .. " " .. h.fullName .. " || '''" .. hg .. "-" .. ag .. "''' || " .. a.logo .. " " .. a.fullName
end
end
out[#out+1] = "|}"
return table.concat(out, "\n")
end
------------------------------------------------------------------------
-- 8) PLAYOFFS (unchanged in spirit; uses standings-to-date)
------------------------------------------------------------------------
local PO_YEAR = 52
local PO_FIRST = md2day(1,4)
local PO_IV = 3
local function tb_cmp(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 function computeRecordsUpTo(dayEnd)
local recs = {}
for _, t in ipairs(teams) do
recs[t.code] = { team=t, W=0, D=0, L=0, Pts=0, PF=0, PA=0, PD=0, Div=DIV_OF[t.code] }
end
local dm = mapDays()
for d = START, math.min(dayEnd, END) do
local idx = dm[d]
if idx then
local matches = getRoundMatches(idx)
for k, m in ipairs(matches) do
local h, a = m[1], m[2]
local salt = d*1000 + k + string.byte(h.code,1) + string.byte(a.code,1)
local hg, ag = simScoreFor(h, a, salt)
local H, A = recs[h.code], recs[a.code]
H.PF, H.PA = H.PF + hg, H.PA + ag
A.PF, A.PA = A.PF + ag, A.PA + hg
if hg > ag then
H.W, H.Pts = H.W + 1, H.Pts + 3
A.L = A.L + 1
elseif hg < ag then
A.W, A.Pts = A.W + 1, A.Pts + 3
H.L = H.L + 1
else
H.D, H.Pts = H.D + 1, H.Pts + 1
A.D, A.Pts = A.D + 1, A.Pts + 1
end
end
end
end
for _, r in pairs(recs) do r.PD = r.PF - r.PA end
return recs
end
local function getSeeds12()
local curr = date.getCurrentDate()
local today = tonumber(curr:match("^(%d+),")) or END
local recs = computeRecordsUpTo(today)
local buckets = {}
for div,_ in pairs(DIVISIONS) do buckets[div] = {} end
for _, r in pairs(recs) do
buckets[r.Div] = buckets[r.Div] or {}
table.insert(buckets[r.Div], r)
end
for div, list in pairs(buckets) do table.sort(list, tb_cmp) end
local winners, runners = {}, {}
for _, div in ipairs(DIV_ORDER) do
local list = buckets[div] or {}
if list[1] then table.insert(winners, list[1]) end
if list[2] then table.insert(runners, list[2]) end
end
table.sort(winners, tb_cmp)
table.sort(runners, tb_cmp)
local chosen = {}
for _,r in ipairs(winners) do chosen[r.team.code] = true end
for _,r in ipairs(runners) do chosen[r.team.code] = true end
local allList = {}
for _, r in pairs(recs) do table.insert(allList, r) end
table.sort(allList, tb_cmp)
local wild = {}
for _,r in ipairs(allList) do
if not chosen[r.team.code] then
table.insert(wild, r)
if #wild == 4 then break end
end
end
local seeds = {}
for i=1,#winners do seeds[#seeds+1] = winners[i].team end
for i=1,#runners do seeds[#seeds+1] = runners[i].team end
for i=1,#wild do seeds[#seeds+1] = wild[i].team end
return seeds
end
local function playScore(A,B,salt)
math.randomseed(salt)
local p = math.random()
if p < 0.10 then local g=math.random(0,12); return g,g end
local wa,wb = (A.championships or 0)+1,(B.championships or 0)+1
local home = (p-0.10)/0.90 < wa/(wa+wb)
local hi = math.random(1,12)
local lo = math.random(0, math.min(hi-1,12))
return home and hi or lo, home and lo or hi
end
local function mkRow(tag, absDate, H, A, salt, absNow)
local hs, win = '—','—'
if absNow >= absDate and H.fullName~='TBD' and A.fullName~='TBD' then
local g1,g2 = playScore(H,A,salt)
hs = string.format("'''%d-%d'''", g1, g2)
win = (g1>g2 and H or A).logo .. ' ' .. (g1>g2 and H or A).fullName
end
return string.format("|-\n| %s || %s %s || %s || %s %s || %s", tag, H.logo,H.fullName, hs, A.logo,A.fullName, win)
end
function p.renderPlayoffSchedule(frame)
local seeds = getSeeds12()
local out = { '{| class="wikitable sortable"', '! Round !! Date !! Match-up' }
local function dateCell(day)
local mon,dom = getMonthDay(day)
return dom .. ' ' .. mon .. ' ' .. PO_YEAR .. ' PSSC'
end
local function add(tag, day, H, A)
out[#out+1] = '|-'
out[#out+1] = string.format('| %s || %s || %s %s vs %s %s', tag, dateCell(day), H.logo,H.fullName, A.logo,A.fullName)
end
add('Play-in-1', PO_FIRST, seeds[9], seeds[12])
add('Play-in-2', PO_FIRST, seeds[10], seeds[11])
out[#out+1] = '|}'
return table.concat(out, '\n')
end
function p.renderPlayoffResults(frame)
local seeds = getSeeds12()
local now = date.getCurrentDate()
local dNow = tonumber(now:match('^(%d+),')) or 0
local yNow = tonumber(now:match(', (%d+) PSSC')) or 0
local absNow= absDay(yNow,dNow)
local rows = { '{| class="wikitable sortable"', '! Round !! Home !! Score !! Away !! Winner' }
local absPI = absDay(PO_YEAR, PO_FIRST)
local PI = { { seeds[9], seeds[12] }, { seeds[10], seeds[11] } }
local W_PI = {}
for i,pair in ipairs(PI) do
local H,A = pair[1], pair[2]
if absNow >= absPI then
local g1,g2 = playScore(H,A,absPI*100+i)
W_PI[i] = (g1>g2) and H or A
end
rows[#rows+1] = mkRow('PI-'..i, absPI, H, A, absPI*100+i, absNow)
end
rows[#rows+1] = '|}'
return table.concat(rows, '\n')
end
------------------------------------------------------------------------
-- 9) MATCH STATS (Final = 3*Goals + PossessionPts)
------------------------------------------------------------------------
local function computeMatchStats(h, a, hg, ag, seed)
local function splitScore(total, salt)
local maxG = math.floor(total / 3)
if maxG == 0 then return 0, total end
math.randomseed(salt)
local g = maxG
if maxG >= 1 and math.random() < 0.40 then g = maxG - 1 end
local p = total - 3*g
return g, p
end
local h_goals, h_poss = splitScore(hg, seed + 101)
local a_goals, a_poss = splitScore(ag, seed + 102)
local function rrange(s, lo, hi) math.randomseed(s); return math.random(lo, hi) end
local h_sh_on = (h_goals > 0) and rrange(seed+201, h_goals, h_goals+2) or rrange(seed+201, 0, 2)
local a_sh_on = (a_goals > 0) and rrange(seed+202, a_goals, a_goals+2) or rrange(seed+202, 0, 2)
local h_sh_off = rrange(seed+203, 0, 3)
local a_sh_off = rrange(seed+204, 0, 3)
local h_fouls = rrange(seed+205, 0, 3)
local a_fouls = rrange(seed+206, 0, 3)
local h_fks = a_fouls
local a_fks = h_fouls
local h_throws = rrange(seed+207, 0, 3)
local a_throws = rrange(seed+208, 0, 3)
local h_oob = rrange(seed+209, 0, 2)
local a_oob = rrange(seed+210, 0, 2)
local h_gk = rrange(seed+211, 0, 2)
local a_gk = rrange(seed+212, 0, 2)
local base = 50
local swing = rrange(seed+213, 3, 6)
local h_poss_pct, a_poss_pct
if hg > ag then
h_poss_pct, a_poss_pct = base + swing, base - swing
elseif hg < ag then
h_poss_pct, a_poss_pct = base - swing, base + swing
else
local tilt = rrange(seed+214, -3, 3)
h_poss_pct, a_poss_pct = base + tilt, base - tilt
end
return {
[h.code] = {
final = hg, goals = h_goals, poss_points = h_poss,
shots_on = h_sh_on, shots_off = h_sh_off,
fouls = h_fouls, fks = h_fks, throws = h_throws,
gk = h_gk, oob = h_oob, poss_pct = h_poss_pct
},
[a.code] = {
final = ag, goals = a_goals, poss_points = a_poss,
shots_on = a_sh_on, shots_off = a_sh_off,
fouls = a_fouls, fks = a_fks, throws = a_throws,
gk = a_gk, oob = a_oob, poss_pct = a_poss_pct
}
}
end
function p.renderMatchStatsForDay(frame)
local curr = date.getCurrentDate()
local dayNow = tonumber(curr:match('^(%d+),')) or 0
local year = tonumber(curr:match(', (%d+) PSSC')) or 0
local dm = mapDays()
local target = dm[dayNow] and dayNow or nil
if not target then
for d = dayNow + 1, END do
if dm[d] then target = d; break end
end
end
if not target then return "'''No scheduled matches in window.'''" end
local idx = dm[target]
local isToday = (target == dayNow)
local mon, dom = getMonthDay(target)
local label = dom .. " " .. mon .. " " .. year .. " PSSC"
local function hiPairNum(hVal, aVal, suffix)
hVal = tonumber(hVal) or 0
aVal = tonumber(aVal) or 0
suffix = suffix or ""
local function cell(v, hi)
local txt = tostring(v) .. suffix
return hi and ('<span style="background-color:#ccffcc;">'..txt..'</span>') or txt
end
return cell(hVal, hVal>aVal), cell(aVal, aVal>hVal)
end
local out = {
'{| class="wikitable sortable"',
'|+ Match Statistics — ' .. label .. (isToday and '' or ' (fixtures; stats available day-of)'),
'! Match !! Team !! Final !! Goals (Pillar) !! Possession Pts !! Shots on !! Shots off !! Fouls !! Free Kicks !! Throw-Ins !! Goal Kicks !! OOB !! Poss %'
}
local matches = getRoundMatches(idx)
if isToday then
local results = simulateDayResults(target)
for k, r in ipairs(results) do
local seed = target*1000 + k + string.byte(r.home.code,1) + string.byte(r.away.code,1)
local S = computeMatchStats(r.home, r.away, r.hg, r.ag, seed)
local H, A = S[r.home.code], S[r.away.code]
local matchLabel = r.home.logo .. ' ' .. r.home.fullName .. ' vs ' .. r.away.logo .. ' ' .. r.away.fullName
local hF, aF = hiPairNum(H.final, A.final)
local hG, aG = hiPairNum(H.goals, A.goals)
local hP, aP = hiPairNum(H.poss_points, A.poss_points)
local hSON, aSON = hiPairNum(H.shots_on, A.shots_on)
local hSOF, aSOF = hiPairNum(H.shots_off, A.shots_off)
local hFO, aFO = hiPairNum(H.fouls, A.fouls)
local hFK, aFK = hiPairNum(H.fks, A.fks)
local hTH, aTH = hiPairNum(H.throws, A.throws)
local hGK, aGK = hiPairNum(H.gk, A.gk)
local hOOB, aOOB = hiPairNum(H.oob, A.oob)
local hPOS, aPOS = hiPairNum(H.poss_pct, A.poss_pct, '%')
out[#out+1] = '|-'
out[#out+1] =
'| rowspan="2" | ' .. matchLabel ..
' || ' .. r.home.logo .. ' ' .. r.home.fullName ..
' || ' .. hF .. ' || ' .. hG .. ' || ' .. hP .. ' || ' .. hSON .. ' || ' .. hSOF ..
' || ' .. hFO .. ' || ' .. hFK .. ' || ' .. hTH .. ' || ' .. hGK .. ' || ' .. hOOB .. ' || ' .. hPOS
out[#out+1] = '|-'
out[#out+1] =
'| ' .. r.away.logo .. ' ' .. r.away.fullName ..
' || ' .. aF .. ' || ' .. aG .. ' || ' .. aP .. ' || ' .. aSON .. ' || ' .. aSOF ..
' || ' .. aFO .. ' || ' .. aFK .. ' || ' .. aTH .. ' || ' .. aGK .. ' || ' .. aOOB .. ' || ' .. aPOS
end
else
for _, m in ipairs(matches) do
local matchLabel = m[1].logo .. ' ' .. m[1].fullName .. ' vs ' .. m[2].logo .. ' ' .. m[2].fullName
out[#out+1] = '|-'
out[#out+1] =
'| rowspan="2" | ' .. matchLabel ..
' || ' .. m[1].logo .. ' ' .. m[1].fullName ..
' || — || — || — || — || — || — || — || — || — || — || —'
out[#out+1] = '|-'
out[#out+1] =
'| ' .. m[2].logo .. ' ' .. m[2].fullName ..
' || — || — || — || — || — || — || — || — || — || — || —'
end
end
out[#out+1] = '|}'
return table.concat(out, '\n')
end
------------------------------------------------------------------------
-- 10) ROSTERS + DAILY TRANSFER MARKET (MD20–MD30)
------------------------------------------------------------------------
local ROSTER_SIZE = 12
local TRANSFER_MD_START = 20
local TRANSFER_MD_END = 30
local POSITIONS = {
"Striker","Striker",
"Playmaker","Playmaker","Playmaker",
"Defender","Defender","Defender",
"Keeper",
"Utility","Utility","Utility"
}
-- deterministic PRNG (does NOT touch math.randomseed)
local function _seedFromString(s)
local h = 0
for i=1,#s do h = (h*31 + string.byte(s,i)) % 2147483647 end
return (h == 0) and 1 or h
end
local function _rngNext(st)
st = (1103515245 * st + 12345) % 2147483647
return st, st / 2147483647
end
local function _pick(st, arr)
if not arr or #arr == 0 then return st, nil end
local r; st, r = _rngNext(st)
local idx = math.floor(r * #arr) + 1
return st, arr[idx]
end
local function _normKey(s)
if not s or s == "" then return nil end
s = mw.ustring.lower(s)
s = mw.ustring.gsub(s, "%s+", "_")
s = mw.ustring.gsub(s, "[^%w_]", "")
return s
end
local NAME_STYLES = {
bassarid = {
firstA = {"Ka","Tha","Py","De","Ar","Lo","Ni","Sa","Eo","Ae","Ky","My","Ga","Do","Sy","Va"},
firstB = {"li","the","ra","me","ri","phi","no","lo","re","so","te","xa","ro","na","di","mos"},
firstC = {"thros","rios","nax","dros","lion","menos","kar","thes","sos","lios","zian","phoros","kris","dor","thes","ron"},
lastA = {"Amin","Delph","Kalli","Vareng","Caspaz","Myren","Aurel","Koin","Therm","Skyr","Erythr","Loth","Chrys","Silen","Nexa","Morov"},
lastB = {"a","i","o","e","u","y","ae","io","ou","ea"},
lastC = {"dis","kos","tron","ides","aris","eas","ion","oros","anos","inos","elis","akis","eth","on","eus","yr"}
},
haifan = {
firstA = {"Se","Or","Ke","Ha","Yu","Az","Le","Mi","De","Sa","Fa","Ri","Ta","Na","Su","Ba"},
firstB = {"lim","han","mal","kan","suf","iz","yla","na","rya","fi","ru","hir","mir","zir","yif","sar"},
firstC = {"","oğlu","an","ir","em","et","in","a","e","u",""},
lastA = {"Yıldır","Dem","Kay","Arsl","Çel","Ayd","Gün","Korkm","Sarı","Taş","Karad","Özt","Ak","Boz","Şah"},
lastB = {"im","ir","a","i","u","ü","o","ö",""},
lastC = {"maz","er","kan","soy","taş","kaya","han","gül","lı","ci","oğlu",""}
},
normark = {
firstA = {"Ei","Ha","Le","Bj","Si","As","In","To","Ka","Sk","Ry","Ul","Va","Sa","Jo","Th"},
firstB = {"rik","kon","if","orn","grid","trid","ga","rsten","ri","ald","var","lva","ren","mund","nar","or"},
firstC = {"","r","d","n","k","s",""},
lastA = {"Fjell","Ravn","Skog","Sund","Vinter","Knut","Thors","Haldor","Eirik","Bjorn","Isen","Storm","Sol","Hav","Ulv"},
lastB = {"sen","son","sson","vik","lund","by","heim","holt","dal","gard","berg","mark"},
lastC = {"","","",""}
},
imperial = {
firstA = {"Mar","Jul","Cas","Oct","Luc","Tib","Sab","Aurel","Flav","Dec","Val","Cor","Dom","Sev","Faust","Cris"},
firstB = {"cus","ia","sian","avia","ian","er","ina","ius","ia","imus","eri","vin","itian","eran","inus","pus"},
firstC = {"","us","a","","us","a","us","a","us","a"},
lastA = {"Valer","Marcell","Aquil","Sever","Corvin","Drus","Faustin","Liv","Domit","Crisp","Aurel","Cass","Octav","Lucan","Tiber","Flav"},
lastB = {"ius","us","a","an","inus","ian","ensis","orum","atus","aris"},
lastC = {"","","",""}
}
}
local NAME_STYLE_KEYS = {"bassarid","haifan","normark","imperial"}
local function _cap(s)
if not s or s == "" then return s end
return mw.ustring.upper(mw.ustring.sub(s,1,1)) .. mw.ustring.sub(s,2)
end
local function _maybeDiacritics(st, s)
local r; st, r = _rngNext(st)
if r < 0.08 then s = mw.ustring.gsub(s, "a", "ä", 1)
elseif r < 0.16 then s = mw.ustring.gsub(s, "i", "ï", 1)
elseif r < 0.24 then s = mw.ustring.gsub(s, "o", "ö", 1)
elseif r < 0.32 then s = mw.ustring.gsub(s, "u", "ü", 1)
end
return st, s
end
local function _buildNameFrom(style, st, isLast)
local t = NAME_STYLES[style] or NAME_STYLES.bassarid
local a,b,c
if not isLast then
st, a = _pick(st, t.firstA); st, b = _pick(st, t.firstB); st, c = _pick(st, t.firstC)
else
st, a = _pick(st, t.lastA); st, b = _pick(st, t.lastB); st, c = _pick(st, t.lastC)
end
local name = _cap((a or "") .. (b or "") .. (c or ""))
local r; st, r = _rngNext(st)
if r < 0.05 and #name >= 6 then
local cut = math.floor(#name/2)
name = mw.ustring.sub(name,1,cut) .. "-" .. mw.ustring.sub(name,cut+1)
elseif r < 0.08 and #name >= 6 then
local cut = math.floor(#name/2)
name = mw.ustring.sub(name,1,cut) .. "’" .. mw.ustring.sub(name,cut+1)
end
st, name = _maybeDiacritics(st, name)
return st, name
end
local function _chooseStyleForTeam(teamCode, season)
local st = _seedFromString(tostring(season).."|"..tostring(teamCode).."|STYLE")
local key; st, key = _pick(st, NAME_STYLE_KEYS)
return key or "bassarid"
end
local function _genBaseRoster(teamCode, season)
local key = _normKey(teamCode) or teamCode
local st = _seedFromString(tostring(season) .. "|" .. key .. "|ROSTER")
local style = _chooseStyleForTeam(teamCode, season)
local roster, used = {}, {}
for i=1, ROSTER_SIZE do
local id = key .. "-" .. string.format("%02d", i)
local full
for _=1, 10 do
local first, last
st, first = _buildNameFrom(style, st, false)
st, last = _buildNameFrom(style, st, true)
full = first .. " " .. last
if not used[full] then used[full] = true; break end
end
roster[i] = { id=id, name=full or ("Player "..id), pos=POSITIONS[i] or "Utility", no=i }
end
roster[1].notes = "Captain"
return roster
end
local function _buildBaseRosters(season)
local rosters = {}
for _,t in ipairs(teams) do rosters[t.code] = _genBaseRoster(t.code, season) end
return rosters
end
local function _indexById(roster)
local m = {}
for i,p in ipairs(roster or {}) do m[p.id] = i end
return m
end
local function _copyRosters(rosters)
local out = {}
for code, r in pairs(rosters or {}) do
out[code] = {}
for i,p in ipairs(r or {}) do
out[code][i] = { id=p.id, name=p.name, pos=p.pos, no=p.no, notes=p.notes }
end
end
return out
end
local function _buildPlayerNameLookup(baseRosters)
local m = {}
for _, roster in pairs(baseRosters or {}) do
for _, pl in ipairs(roster or {}) do
if pl and pl.id then m[pl.id] = pl.name or pl.id end
end
end
return m
end
local function _findSwapCandidate(st, roster, wantPos)
local candidates = {}
for _,p in ipairs(roster or {}) do
if p.pos == wantPos then candidates[#candidates+1] = p end
end
if #candidates == 0 then candidates = roster or {} end
return _pick(st, candidates)
end
local function _dayForMatchday(md)
local inv = invertDayMap(mapDays())
return inv[md]
end
local function _transferWindowDays()
local startDay = _dayForMatchday(TRANSFER_MD_START)
local endDay = _dayForMatchday(TRANSFER_MD_END)
if not startDay or not endDay then return nil, nil end
if startDay > endDay then startDay, endDay = endDay, startDay end
return startDay, endDay
end
-- DAILY transfer generation: every day between MD20-day and MD30-day
local function _genTransferDeals(season)
local startDay, endDay = _transferWindowDays()
if not startDay or not endDay then return {} end
local base = _buildBaseRosters(season)
local work = _copyRosters(base)
local teamCodes = {}
for _,t in ipairs(teams) do teamCodes[#teamCodes+1] = t.code end
local deals = {}
local st = _seedFromString(tostring(season) .. "|TRANSFERWINDOW|DAY|" .. tostring(startDay) .. "-" .. tostring(endDay))
for day = startDay, endDay do
-- 1–2 transfers per day (so the window has daily movement)
local r; st, r = _rngNext(st)
local dealCount = (r < 0.65) and 1 or 2
for _=1, dealCount do
local A,B
st, A = _pick(st, teamCodes)
repeat st, B = _pick(st, teamCodes) until B ~= A
local RA, RB = work[A], work[B]
if RA and RB and #RA > 0 and #RB > 0 then
local pA; st, pA = _pick(st, RA)
if pA and pA.pos == "Keeper" then
local rr; st, rr = _rngNext(st)
if rr < 0.80 then st, pA = _pick(st, RA) end
end
local pB; st, pB = _findSwapCandidate(st, RB, (pA and pA.pos) or "Utility")
if pA and pB then
deals[#deals+1] = { day=day, A=A, B=B, A_id=pA.id, B_id=pB.id, pos=pA.pos }
local ia = _indexById(RA)[pA.id]
local ib = _indexById(RB)[pB.id]
if ia and ib then
local tmp = RA[ia]
RA[ia] = RB[ib]
RB[ib] = tmp
end
end
end
end
end
return deals
end
local function _applyTransfersUpToDay(baseRosters, deals, upToDay)
local rosters = _copyRosters(baseRosters)
for _,d in ipairs(deals or {}) do
if d.day and d.day <= upToDay then
local RA, RB = rosters[d.A], rosters[d.B]
if RA and RB then
local ia = _indexById(RA)[d.A_id]
local ib = _indexById(RB)[d.B_id]
if ia and ib then
local tmp = RA[ia]
RA[ia] = RB[ib]
RB[ib] = tmp
end
end
end
end
return rosters
end
function p.renderRoster(frame)
local args = frame.args or {}
local team = args.team or args[1]
if not team or not TEAM_BY_CODE[team] then
return "'''Unknown team. Pass team=Exact Team Name.'''"
end
local season = tonumber(args.season or args[2] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or "") or _currentPlayedMatchday()
local upToDay = _dayForMatchday(md) or END
local base = _buildBaseRosters(season)
local deals = _genTransferDeals(season)
local rosters = _applyTransfersUpToDay(base, deals, upToDay)
local r = rosters[team] or {}
local out = {
'{| class="wikitable sortable" style="width:100%; font-size:90%;"',
'! # !! Player !! Position !! ID !! Notes'
}
for _,pl in ipairs(r) do
out[#out+1] = '|-'
out[#out+1] = string.format('| %d || %s || %s || <code>%s</code> || %s',
pl.no or 0, pl.name or '—', pl.pos or '—', pl.id or '—', pl.notes or '—'
)
end
out[#out+1] = '|}'
return (TEAM_BY_CODE[team].logo or "") .. " '''" .. team .. "''' (Roster as of Matchday " .. tostring(md) .. ")\n" .. table.concat(out, "\n")
end
function p.renderAllRosters(frame)
local args = frame.args or {}
local season = tonumber(args.season or args[1] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or "") or _currentPlayedMatchday()
local out = {}
for _,t in ipairs(teams) do
local title = (t.logo or "") .. " <b>" .. t.code .. "</b>"
out[#out+1] =
'<div class="mw-collapsible mw-collapsed" data-expandtext="Show roster" data-collapsetext="Hide roster" style="margin:0.6em 0;">' ..
'<div>' .. title .. '</div>' ..
'<div class="mw-collapsible-content">' ..
p.renderRoster({ args = { team = t.code, season = season, md = md } }) ..
'</div>' ..
'</div>'
end
return table.concat(out, "\n")
end
-- OPTIONAL IMPROVEMENT: Transfer log shows Day + Date (and names)
function p.renderTransferLog(frame)
local args = frame.args or {}
local season = tonumber(args.season or args[1] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or "") or _currentPlayedMatchday()
local upToDay = _dayForMatchday(md) or END
local base = _buildBaseRosters(season)
local nameOf = _buildPlayerNameLookup(base)
local deals = _genTransferDeals(season)
local out = {
'{| class="wikitable sortable" style="width:100%; font-size:90%;"',
'! Day !! Date !! From !! To !! Swap (pos)'
}
for _, d in ipairs(deals) do
if d.day and d.day <= upToDay then
local mon, dom = getMonthDay(d.day)
local dateLabel = tostring(dom) .. " " .. mon .. " " .. tostring(season) .. " PSSC"
local aName = nameOf[d.A_id] or d.A_id
local bName = nameOf[d.B_id] or d.B_id
out[#out+1] = '|-'
out[#out+1] = string.format('| %d || %s || %s || %s || %s ⇄ %s (%s)',
d.day, dateLabel, _teamWithLogo(d.A), _teamWithLogo(d.B), aName, bName, d.pos or '—'
)
end
end
out[#out+1] = '|}'
return "'''Daily transfer window (Matchdays " .. TRANSFER_MD_START .. "–" .. TRANSFER_MD_END ..
") — season " .. season .. " (through day " .. tostring(upToDay) .. ")'''\n" .. table.concat(out, "\n")
end
------------------------------------------------------------------------
-- 11) MATCH REPORTS (MOTW) — uses daily-transfer rosters as of matchday day
------------------------------------------------------------------------
local function _fmtTime(seconds)
local m = math.floor(seconds / 60)
local s = seconds % 60
return string.format("%02d:%02d", m, s)
end
local function _abbr(teamName)
local letters = {}
for w in mw.ustring.gmatch(teamName or "", "%S+") do
letters[#letters+1] = mw.ustring.upper(mw.ustring.sub(w, 1, 1))
end
local a = table.concat(letters, "")
if #a >= 2 then return mw.ustring.sub(a, 1, 2) end
return (a ~= "" and a) or "XX"
end
local function _rivalryTag(homeCode, awayCode)
local dh, da = DIV_OF[homeCode], DIV_OF[awayCode]
if dh and da and dh == da then
return " (Divisional derby — " .. dh .. ")"
end
return ""
end
local function _appendToBoldTitle(title, suffix)
if not suffix or suffix == "" then return title end
if not title then return suffix end
if mw.ustring.match(title, "'''%s*$") then
return mw.ustring.gsub(title, "'''%s*$", suffix .. "'''", 1)
end
return title .. suffix
end
local function _randTime3(st, startSec, endSec)
local r; st, r = _rngNext(st)
local span = math.max(1, endSec - startSec - 2)
local sec = startSec + 1 + math.floor(r * span)
return st, sec
end
local function _genTimes3(st, n, firstStart, firstEnd, secondStart, secondEnd)
local times = {}
if n <= 0 then return st, times end
local split = math.ceil(n / 2)
for i=1, n do
if i <= split then
st, times[i] = _randTime3(st, firstStart, firstEnd)
else
st, times[i] = _randTime3(st, secondStart, secondEnd)
end
end
table.sort(times)
return st, times
end
local function _timesList3(times, maxn)
if not times or #times == 0 then return "" end
maxn = maxn or 3
local out = {}
for i = 1, math.min(maxn, #times) do out[#out+1] = _fmtTime(times[i]) end
if #times > maxn then out[#out+1] = "…" end
return " (" .. table.concat(out, ", ") .. ")"
end
local function _pickPlayer(st, roster, posA, posB, posC)
local candidates = {}
for _,p in ipairs(roster or {}) do
if p.pos == posA or p.pos == posB or p.pos == posC then
candidates[#candidates+1] = p
end
end
if #candidates == 0 then candidates = roster or {} end
local pl; st, pl = _pick(st, candidates)
return st, pl
end
local function _pickMatchIndexForDay(season, md, pickMode)
pickMode = pickMode or "best"
local fixtures = getRoundMatches(md)
if not fixtures or #fixtures == 0 then return nil, "No fixtures found for this matchday." end
local inv = invertDayMap(mapDays())
local day = inv[md] or (START + md)
local bestI, bestScore = 1, -1e18
for i, m in ipairs(fixtures) do
local home, away = m[1], m[2]
local salt = day * 1000 + i + string.byte(home.code,1) + string.byte(away.code,1)
local hs, as = simScoreFor(home, away, salt)
local S = computeMatchStats(home, away, hs, as, salt)
local H = S[home.code] or {}
local A = S[away.code] or {}
local diff = math.abs(hs - as)
local total = hs + as
local chaos = (tonumber(H.fouls) or 0) + (tonumber(A.fouls) or 0)
+ (tonumber(H.shots_on) or 0) + (tonumber(A.shots_on) or 0)
+ (tonumber(H.shots_off) or 0) + (tonumber(A.shots_off) or 0)
local q
if pickMode == "close" then
q = (50 - diff * 10) + total + chaos * 0.25
elseif pickMode == "high" then
q = total * 12 - diff * 2 + chaos * 0.20
elseif pickMode == "chaos" then
q = chaos * 10 + total * 2 - diff
else
q = (20 - diff * 6) + total * 8 + chaos * 0.35
end
if q > bestScore then bestScore, bestI = q, i end
end
return bestI
end
local function _renderMatchReport(season, md, matchIndex, titleOverride)
local fixtures = getRoundMatches(md)
if not fixtures or not fixtures[matchIndex] then
return "'''No such match (md=" .. tostring(md) .. ", match=" .. tostring(matchIndex) .. ").'''"
end
local inv = invertDayMap(mapDays())
local day = inv[md] or (START + md)
local home, away = fixtures[matchIndex][1], fixtures[matchIndex][2]
local derby = _rivalryTag(home.code, away.code)
local salt = day * 1000 + matchIndex + string.byte(home.code,1) + string.byte(away.code,1)
local hs, as = simScoreFor(home, away, salt)
local S = computeMatchStats(home, away, hs, as, salt)
local H = S[home.code] or {}
local A = S[away.code] or {}
-- daily transfers applied up through this matchday's calendar day
local base = _buildBaseRosters(season)
local deals = _genTransferDeals(season)
local rosters = _applyTransfersUpToDay(base, deals, day)
local homeRoster = rosters[home.code] or {}
local awayRoster = rosters[away.code] or {}
local st = _seedFromString(tostring(season).."|REPORT|MD"..md.."|M"..matchIndex.."|"..home.code.."|"..away.code)
local FIRST_START, FIRST_END = 0, 35*60
local SECOND_START, SECOND_END = 35*60, 70*60
local homeTag, awayTag = _abbr(home.code), _abbr(away.code)
local homePP, awayPP, homeG, awayG
st, homePP = _genTimes3(st, tonumber(H.poss_points) or 0, FIRST_START, FIRST_END, SECOND_START, SECOND_END)
st, awayPP = _genTimes3(st, tonumber(A.poss_points) or 0, FIRST_START, FIRST_END, SECOND_START, SECOND_END)
st, homeG = _genTimes3(st, tonumber(H.goals) or 0, FIRST_START, FIRST_END, SECOND_START, SECOND_END)
st, awayG = _genTimes3(st, tonumber(A.goals) or 0, FIRST_START, FIRST_END, SECOND_START, SECOND_END)
local scoreEvents = {}
local function queueScore(sec, which, kind) scoreEvents[#scoreEvents+1] = { t=sec, which=which, kind=kind } end
for _,sec in ipairs(homePP) do queueScore(sec, "H", "PP") end
for _,sec in ipairs(awayPP) do queueScore(sec, "A", "PP") end
for _,sec in ipairs(homeG) do queueScore(sec, "H", "G") end
for _,sec in ipairs(awayG) do queueScore(sec, "A", "G") end
table.sort(scoreEvents, function(a,b) return a.t < b.t end)
local events = {}
local function addEvent(sec, text) events[#events+1] = { t=sec, text=text } end
local hRun, aRun = 0, 0
local hHalf, aHalf = 0, 0
for _,e in ipairs(scoreEvents) do
local add = (e.kind == "G") and 3 or 1
if e.which == "H" then hRun = hRun + add else aRun = aRun + add end
if e.t < 35*60 then hHalf, aHalf = hRun, aRun end
local tag = (e.which=="H") and homeTag or awayTag
local roster = (e.which=="H") and homeRoster or awayRoster
local scoreLine = string.format("%s %d–%d %s", _teamWithLogo(home), hRun, aRun, _teamWithLogo(away))
if e.kind == "G" then
local pz; st, pz = _pickPlayer(st, roster, "Striker", "Utility", "Playmaker")
addEvent(e.t, string.format("%s – Goal (Pillar Strike) (%s): %s converts a direct pillar strike. (%s)",
_fmtTime(e.t), tag, (pz and pz.name or "a forward"), scoreLine))
else
local pp; st, pp = _pickPlayer(st, roster, "Playmaker", "Utility", "Striker")
addEvent(e.t, string.format("%s – Possession Play (%s): %s completes a 10-second controlled hold in the scoring zone. (%s)",
_fmtTime(e.t), tag, (pp and pp.name or "a midfielder"), scoreLine))
end
end
table.sort(events, function(a,b) return a.t < b.t end)
local firstHalf, secondHalf = {}, {}
for _,e in ipairs(events) do
if e.t < 35*60 then firstHalf[#firstHalf+1] = e.text else secondHalf[#secondHalf+1] = e.text end
end
local diff = math.abs(hs - as)
local mood = (diff <= 1) and "a tight, tactical contest" or "a high-variance clash"
local summary = string.format(
"Matchday %d featured %s defined by controlled zone entries and disciplined restarts. %s edged %s %d–%d, with decisive moments coming from timed possession holds and selective pillar pressure rather than sustained long-range attempts.",
md, mood, _teamWithLogo(home), _teamWithLogo(away), hs, as
)
local baseTitle = titleOverride or string.format("'''Match of the Week — %d PSSC (Matchday %d)'''", season, md)
local title = _appendToBoldTitle(baseTitle, derby)
local out = {}
out[#out+1] = title
out[#out+1] = ""
out[#out+1] = "=== Match Summary ==="
out[#out+1] = summary
out[#out+1] = ""
out[#out+1] = "=== Key Events by Time ==="
out[#out+1] = ""
out[#out+1] = "==== First Half (0:00–35:00) ===="
if #firstHalf == 0 then out[#out+1] = "—" else for _,ln in ipairs(firstHalf) do out[#out+1] = "* " .. ln end end
out[#out+1] = ""
out[#out+1] = string.format("35:00 – Halftime: %s %d–%d %s.", _teamWithLogo(home), hHalf, aHalf, _teamWithLogo(away))
out[#out+1] = ""
out[#out+1] = "==== Second Half (35:00–70:00) ===="
if #secondHalf == 0 then out[#out+1] = "—" else for _,ln in ipairs(secondHalf) do out[#out+1] = "* " .. ln end end
out[#out+1] = ""
out[#out+1] = string.format("70:00 – Final Whistle: %s %d–%d %s.", _teamWithLogo(home), hs, as, _teamWithLogo(away))
out[#out+1] = ""
out[#out+1] = "=== Match Stats ==="
out[#out+1] = '{| class="wikitable" style="width:100%; font-size:90%;"'
out[#out+1] = string.format('! Statistic !! %s !! %s', _teamWithLogo(home), _teamWithLogo(away))
out[#out+1] = '|-'; out[#out+1] = string.format('| Final Score || %d || %d', hs, as)
out[#out+1] = '|-'
out[#out+1] = string.format('| Goals (Pillar Strikes) || %d%s || %d%s',
tonumber(H.goals) or 0, _timesList3(homeG, 3),
tonumber(A.goals) or 0, _timesList3(awayG, 3)
)
out[#out+1] = '|-'
out[#out+1] = string.format('| Possession Points || %d%s || %d%s',
tonumber(H.poss_points) or 0, _timesList3(homePP, 4),
tonumber(A.poss_points) or 0, _timesList3(awayPP, 4)
)
out[#out+1] = '|}'
return table.concat(out, "\n")
end
function p.renderMatchOfWeek(frame)
local args = frame.args or {}
local season = tonumber(args.season or args[1] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or "") or _currentPlayedMatchday()
local pick = args.pick or "best"
if md < 1 then return "'''No matchday has been played yet.'''"
end
local fixtures = getRoundMatches(md)
if not fixtures or #fixtures == 0 then return "'''No fixtures found for matchday " .. tostring(md) .. ".'''" end
local idx, err = _pickMatchIndexForDay(season, md, pick)
if not idx then return "'''" .. (err or "Unable to select match.") .. "'''" end
return _renderMatchReport(season, md, idx)
end
function p.renderChaosOfWeek(frame)
local args = frame.args or {}
args.pick = args.pick or "chaos"
args.md = nil
return p.renderMatchOfWeek({ args = args })
end
function p.renderMatchReport(frame)
local args = frame.args or {}
local season = tonumber(args.season or args[1] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or args[2] or "") or _currentPlayedMatchday()
local matchIndex = tonumber(args.match or args[3] or "1") or 1
local titleOverride = string.format("'''Match Report — %d PSSC (Matchday %d, Match %d)'''", season, md, matchIndex)
return _renderMatchReport(season, md, matchIndex, titleOverride)
end
------------------------------------------------------------------------
-- 12) MATCHDAY CAPSULE (MOTW + results + daily transfer log)
------------------------------------------------------------------------
function p.renderMatchdayCapsule(frame)
local args = frame.args or {}
local season = tonumber(args.season or args[1] or DEFAULT_SEASON) or DEFAULT_SEASON
local md = tonumber(args.md or args.matchday or "") or _currentPlayedMatchday()
local pick = args.pick or "chaos"
if md < 1 then return "'''No matchday has been played yet.'''"
end
local inv = invertDayMap(mapDays())
local day = inv[md]
if not day then return "'''Unable to resolve PSSC day for matchday " .. tostring(md) .. ".'''" end
local results = simulateDayResults(day)
local out = {}
out[#out+1] = "== Matchday " .. tostring(md) .. " Capsule =="
out[#out+1] = ""
out[#out+1] = p.renderMatchOfWeek({ args = { season = season, md = md, pick = pick } })
out[#out+1] = ""
out[#out+1] = "=== Full Results ==="
for _, r in ipairs(results or {}) do
out[#out+1] = string.format("* %s '''%d''' %s vs %s '''%d''' %s",
(r.home and r.home.logo) or "",
tonumber(r.hg) or 0,
(r.home and (r.home.fullName or r.home.code)) or "Home",
(r.away and r.away.logo) or "",
tonumber(r.ag) or 0,
(r.away and (r.away.fullName or r.away.code)) or "Away"
)
end
out[#out+1] = ""
out[#out+1] = "=== Transfer Market (Daily) ==="
out[#out+1] = p.renderTransferLog({ args = { season = season, md = md } })
return table.concat(out, "\n")
end
------------------------------------------------------------------------
-- EXPORT
------------------------------------------------------------------------
return p
