Moduł:H2H
Dokumentacja dla tego modułu może zostać utworzona pod nazwą Moduł:H2H/opis
local p = {}
-- =========================================================
-- Module:H2H
--
-- Historia bezpośrednich spotkań dwóch drużyn.
--
-- Drużyny są rozpoznawane po:
-- Mecze.nazwa_statystyki1
-- Mecze.nazwa_statystyki2
--
-- Dzięki temu zmiana sponsora / nazwy drużyny nie rozbija H2H.
--
-- Funkcje:
-- 1. bilans spotkań
-- 2. suma punktów
-- 3. wszystkie mecze
-- 4. najlepsi strzelcy
-- 5. trenerzy
-- 6. rekordy meczowe
-- 7. rekordy indywidualne
-- 8. serie zwycięstw / porażek
-- 9. kwartowe porównanie wyników
--
-- =========================================================
function p.main(frame)
-- =====================================================
-- PARAMETRY
-- =====================================================
local team1 =
mw.text.trim(frame.args.team1 or "")
local team2 =
mw.text.trim(frame.args.team2 or "")
if team1 == "" or team2 == "" then
return "'''Błąd:''' należy podać obie drużyny."
end
-- =====================================================
-- BEZPIECZEŃSTWO SQL
-- =====================================================
local function sql(value)
return mw.ustring.gsub(
value,
"'",
"''"
)
end
local t1 = sql(team1)
local t2 = sql(team2)
-- =====================================================
-- WARUNEK H2H DLA TABELI Mecze
--
-- WAŻNE:
-- tutaj używamy nazwa_statystyki.
-- Dzięki temu zmiana nazwy sponsorskiej nie rozbija H2H.
-- =====================================================
local whereMecze =
"(" ..
"M.nazwa_statystyki1='" .. t1 ..
"' AND M.nazwa_statystyki2='" .. t2 ..
"')" ..
" OR " ..
"(" ..
"M.nazwa_statystyki1='" .. t2 ..
"' AND M.nazwa_statystyki2='" .. t1 ..
"')"
-- =====================================================
-- FUNKCJE POMOCNICZE
-- =====================================================
local function number(value)
if value == nil or value == "" then
return 0
end
value = tostring(value)
value =
mw.ustring.gsub(
value,
"%s+",
""
)
return tonumber(value) or 0
end
local function parseScore(value)
if not value then
return nil
end
local a, b =
tostring(value):match(
"(%d+)%s*:%s*(%d+)"
)
if a and b then
return tonumber(a), tonumber(b)
end
return nil, nil
end
local function matchScore(row)
local g1 =
tonumber(row.gole1 or "")
local g2 =
tonumber(row.gole2 or "")
if g1 and g2 then
return g1, g2
end
return parseScore(row.wynik)
end
local function location(row)
local d1 =
row.nazwa_statystyki1 or ""
local d2 =
row.nazwa_statystyki2 or ""
if d1 == team1 then
return "dom"
end
if d2 == team1 then
return "wyjazd"
end
return nil
end
local function teamScore(row)
local g1, g2 =
matchScore(row)
if not g1 or not g2 then
return nil, nil
end
if location(row) == "dom" then
return g1, g2
end
return g2, g1
end
local function result(row)
local zdobyte, stracone =
teamScore(row)
if not zdobyte or not stracone then
return nil
end
if zdobyte > stracone then
return "W"
end
if zdobyte < stracone then
return "P"
end
return "R"
end
local function matchName(row)
local d1 =
row.druzyna1 or ""
local d2 =
row.druzyna2 or ""
local page =
row.strona_meczu or ""
local text =
d1 ..
" – " ..
d2
if page ~= "" then
return
"[[" ..
page ..
"|" ..
text ..
"]]"
end
return text
end
local function formatPlusMinus(value)
value =
number(value)
if value > 0 then
return "+" .. tostring(value)
end
return tostring(value)
end
-- =====================================================
-- POBRANIE MECZÓW
-- =====================================================
local fieldsMecze =
table.concat({
"M.id=mecz",
"M.data=data",
"M.sezon=sezon",
"M.druzyna1=druzyna1",
"M.druzyna2=druzyna2",
"M.nazwa_statystyki1=ns1",
"M.nazwa_statystyki2=ns2",
"M.gole1=gole1",
"M.gole2=gole2",
"M.wynik=wynik",
"M.kwart1=kwarta1",
"M.kwart2=kwarta2",
"M.kwart3=kwarta3",
"M.kwart4=kwarta4",
"M.dogrywka1=dogrywka1",
"M.dogrywka2=dogrywka2",
"M.hala=hala",
"M.widzowie=widzowie",
"M.sedziowie=sedziowie",
"M.strona_meczu=strona_meczu"
}, ",")
local mecze =
mw.ext.cargo.query(
"Mecze=M",
fieldsMecze,
{
where = whereMecze,
orderBy = "M.data ASC",
limit = 20000
}
)
if not mecze or #mecze == 0 then
return
"'''Brak wyników.'''"
end
-- =====================================================
-- BILANS
-- =====================================================
local liczbaMeczow = 0
local wygrane1 = 0
local wygrane2 = 0
local remisy = 0
local punkty1 = 0
local punkty2 = 0
for _, row in ipairs(mecze) do
local g1, g2 =
matchScore(row)
if g1 and g2 then
liczbaMeczow =
liczbaMeczow + 1
local d1 =
row.nazwa_statystyki1 or ""
local d2 =
row.nazwa_statystyki2 or ""
if d1 == team1 then
punkty1 =
punkty1 + g1
punkty2 =
punkty2 + g2
if g1 > g2 then
wygrane1 =
wygrane1 + 1
elseif g2 > g1 then
wygrane2 =
wygrane2 + 1
else
remisy =
remisy + 1
end
elseif d1 == team2 then
punkty1 =
punkty1 + g2
punkty2 =
punkty2 + g1
if g2 > g1 then
wygrane1 =
wygrane1 + 1
elseif g1 > g2 then
wygrane2 =
wygrane2 + 1
else
remisy =
remisy + 1
end
end
end
end
-- =====================================================
-- WYNIK PODSUMOWANIA
-- =====================================================
local output = {}
table.insert(
output,
"== Bilans bezpośrednich spotkań =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%; text-align:center;"'
)
table.insert(
output,
"! Drużyna !! Mecze !! Wygrane !! Remisy !! Porażki !! Punkty"
)
table.insert(
output,
"|-"
)
table.insert(
output,
"| '''" ..
team1 ..
"''' || " ..
liczbaMeczow ..
" || " ..
wygrane1 ..
" || " ..
remisy ..
" || " ..
wygrane2 ..
" || " ..
punkty1
)
table.insert(
output,
"|-"
)
table.insert(
output,
"| '''" ..
team2 ..
"''' || " ..
liczbaMeczow ..
" || " ..
wygrane2 ..
" || " ..
remisy ..
" || " ..
wygrane1 ..
" || " ..
punkty2
)
table.insert(
output,
"|}"
)
-- =====================================================
-- HISTORIA SPOTKAŃ
-- =====================================================
table.insert(
output,
""
)
table.insert(
output,
"== Historia spotkań =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable sortable" style="width:100%;"'
)
table.insert(
output,
"! Lp. !! Data !! Sezon !! Gospodarz !! Wynik !! Gość !! Hala"
)
local lp = 0
for i = #mecze, 1, -1 do
local row =
mecze[i]
local g1, g2 =
matchScore(row)
if g1 and g2 then
lp =
lp + 1
table.insert(
output,
"|-"
)
table.insert(
output,
"| " ..
lp ..
" || " ..
(row.data or "") ..
" || " ..
(row.sezon or "") ..
" || " ..
(row.druzyna1 or "") ..
" || '''" ..
g1 ..
":" ..
g2 ..
"''' || " ..
(row.druzyna2 or "") ..
" || " ..
(row.hala or "")
)
end
end
table.insert(
output,
"|}"
)
-- =====================================================
-- NAJLEPSI STRZELCY
-- =====================================================
local fieldsStrzelcy =
table.concat({
"U.zawodnik=zawodnik",
"U.druzyna=druzyna",
"SUM(U.gol)=punkty"
}, ",")
local strzelcy1 =
mw.ext.cargo.query(
"UdzialZawodnika=U,Mecze=M",
fieldsStrzelcy,
{
join =
"U.mecz=M.id",
where =
"(" ..
whereMecze ..
")" ..
" AND " ..
"(" ..
"(M.nazwa_statystyki1='" ..
t1 ..
"' AND U.druzyna=M.druzyna1)" ..
" OR " ..
"(M.nazwa_statystyki2='" ..
t1 ..
"' AND U.druzyna=M.druzyna2)" ..
")",
groupBy =
"U.zawodnik,U.druzyna",
orderBy =
"punkty DESC",
limit = 1000
}
)
local strzelcy2 =
mw.ext.cargo.query(
"UdzialZawodnika=U,Mecze=M",
fieldsStrzelcy,
{
join =
"U.mecz=M.id",
where =
"(" ..
whereMecze ..
")" ..
" AND " ..
"(" ..
"(M.nazwa_statystyki1='" ..
t2 ..
"' AND U.druzyna=M.druzyna1)" ..
" OR " ..
"(M.nazwa_statystyki2='" ..
t2 ..
"' AND U.druzyna=M.druzyna2)" ..
")",
groupBy =
"U.zawodnik,U.druzyna",
orderBy =
"punkty DESC",
limit = 1000
}
)
table.insert(
output,
""
)
table.insert(
output,
"== Najlepsi strzelcy rywalizacji =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%;"'
)
table.insert(
output,
"! " ..
team1 ..
" !! Punkty !! " ..
team2 ..
" !! Punkty"
)
local maxStrzelcy =
math.max(
strzelcy1 and #strzelcy1 or 0,
strzelcy2 and #strzelcy2 or 0
)
for i = 1, maxStrzelcy do
local s1 =
strzelcy1 and strzelcy1[i]
local s2 =
strzelcy2 and strzelcy2[i]
table.insert(
output,
"|-"
)
table.insert(
output,
"| " ..
(
s1
and
"[[" ..
s1.zawodnik ..
"]]"
or
""
) ..
" || " ..
(
s1
and
tostring(
number(s1.punkty)
)
or
""
) ..
" || " ..
(
s2
and
"[[" ..
s2.zawodnik ..
"]]"
or
""
) ..
" || " ..
(
s2
and
tostring(
number(s2.punkty)
)
or
""
)
)
end
table.insert(
output,
"|}"
)
-- =====================================================
-- TRENERZY
-- =====================================================
local fieldsTrenerzy =
table.concat({
"S.osoba=osoba",
"S.druzyna=druzyna",
"S.rola=rola"
}, ",")
local trenerzy =
mw.ext.cargo.query(
"SztabMeczu=S,Mecze=M",
fieldsTrenerzy,
{
join =
"S.mecz=M.id",
where =
"(" ..
whereMecze ..
")" ..
" AND " ..
"S.rola IN ('Trener','II trener')",
groupBy =
"S.osoba,S.druzyna,S.rola",
orderBy =
"S.osoba ASC",
limit = 5000
}
)
table.insert(
output,
""
)
table.insert(
output,
"== Trenerzy w historii rywalizacji =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable sortable" style="width:100%;"'
)
table.insert(
output,
"! Trener !! Drużyna !! Rola"
)
if trenerzy then
for _, row in ipairs(trenerzy) do
table.insert(
output,
"|-"
)
table.insert(
output,
"| [[" ..
(row.osoba or "") ..
"]] || " ..
(row.druzyna or "") ..
" || " ..
(row.rola or "")
)
end
end
table.insert(
output,
"|}"
)
-- =====================================================
-- REKORDY MECZOWE
-- =====================================================
local rekordMecz =
{
zwyciestwo =
{
dom = {},
wyjazd = {}
},
porazka =
{
dom = {},
wyjazd = {}
}
}
local function addMatchRecord(
list,
item,
value,
field
)
if #list == 0 then
item[field] =
value
table.insert(
list,
item
)
return
end
local current =
list[1][field]
if value > current then
item[field] =
value
list[1] =
item
elseif value == current then
item[field] =
value
table.insert(
list,
item
)
end
end
for _, row in ipairs(mecze) do
local zdobyte, stracone =
teamScore(row)
local miejsce =
location(row)
if zdobyte and stracone and miejsce then
local roznica =
zdobyte - stracone
local item =
{
tekst =
matchName(row),
wynik =
tostring(
row.gole1 or zdobyte
) ..
":" ..
tostring(
row.gole2 or stracone
),
roznica =
roznica
}
if roznica > 0 then
addMatchRecord(
rekordMecz.zwyciestwo[miejsce],
item,
roznica,
"wartosc"
)
elseif roznica < 0 then
addMatchRecord(
rekordMecz.porazka[miejsce],
item,
math.abs(roznica),
"wartosc"
)
end
end
end
local function formatMatchRecord(list)
if not list or #list == 0 then
return "—"
end
local out = {}
for _, item in ipairs(list) do
table.insert(
out,
item.tekst ..
" (" ..
item.wynik ..
", +" ..
tostring(
item.wartosc
) ..
")"
)
end
return table.concat(
out,
"<br>"
)
end
table.insert(
output,
""
)
table.insert(
output,
"== Rekordy meczowe =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%;"'
)
table.insert(
output,
"! Rekord !! 🏠 Dom !! ✈️ Wyjazd"
)
table.insert(
output,
"|-"
)
table.insert(
output,
"! 🏆 Najwyższe zwycięstwo || " ..
formatMatchRecord(
rekordMecz.zwyciestwo.dom
) ..
" || " ..
formatMatchRecord(
rekordMecz.zwyciestwo.wyjazd
)
)
table.insert(
output,
"|-"
)
table.insert(
output,
"! ❌ Najwyższa porażka || " ..
formatMatchRecord(
rekordMecz.porazka.dom
) ..
" || " ..
formatMatchRecord(
rekordMecz.porazka.wyjazd
)
)
table.insert(
output,
"|}"
)
-- =====================================================
-- REKORDY INDYWIDUALNE
-- =====================================================
local fieldsZaw =
table.concat({
"U.zawodnik=zawodnik",
"U.druzyna=druzyna_zawodnika",
"U.gol=gol",
"U.minuty=minuty",
"U.minuty_format=minuty_format",
"U.asysta=asysta",
"U.zbiorka=zbiorka",
"U.eval=eval",
"U.plusminus=plusminus",
"M.id=mecz",
"M.data=data",
"M.druzyna1=druzyna1",
"M.druzyna2=druzyna2",
"M.gole1=gole1",
"M.gole2=gole2",
"M.wynik=wynik",
"M.nazwa_statystyki1=ns1",
"M.nazwa_statystyki2=ns2",
"M.strona_meczu=strona_meczu"
}, ",")
local zawodnicy =
mw.ext.cargo.query(
"UdzialZawodnika=U,Mecze=M",
fieldsZaw,
{
join =
"U.mecz=M.id",
where =
"(" ..
whereMecze ..
")" ..
" AND U.minuty > 0",
orderBy =
"M.data ASC",
limit = 20000
}
)
local rekordy =
{
punkty =
{
dom = {},
wyjazd = {}
},
minuty =
{
dom = {},
wyjazd = {}
},
asysty =
{
dom = {},
wyjazd = {}
},
zbiorki =
{
dom = {},
wyjazd = {}
},
eval =
{
dom = {},
wyjazd = {}
},
plusminus =
{
dom = {},
wyjazd = {}
}
}
local function addPlayerRecord(
tabela,
miejsce,
wartosc,
item
)
local list =
tabela[miejsce]
if #list == 0 then
item.wartosc =
wartosc
table.insert(
list,
item
)
return
end
local current =
list[1].wartosc
if wartosc > current then
item.wartosc =
wartosc
tabela[miejsce] =
{
item
}
elseif wartosc == current then
item.wartosc =
wartosc
table.insert(
list,
item
)
end
end
if zawodnicy then
for _, row in ipairs(zawodnicy) do
local miejsce =
location(row)
if miejsce then
local item =
{
zawodnik =
row.zawodnik or "",
mecz =
row.mecz or "",
tekst =
matchName(row),
wynik =
row.wynik or "",
punkty =
number(row.gol),
minuty =
number(row.minuty),
minuty_format =
row.minuty_format or "",
asysty =
number(row.asysta),
zbiorki =
number(row.zbiorka),
eval =
number(row.eval),
plusminus =
number(row.plusminus)
}
addPlayerRecord(
rekordy.punkty,
miejsce,
item.punkty,
item
)
addPlayerRecord(
rekordy.minuty,
miejsce,
item.minuty,
item
)
addPlayerRecord(
rekordy.asysty,
miejsce,
item.asysty,
item
)
addPlayerRecord(
rekordy.zbiorki,
miejsce,
item.zbiorki,
item
)
addPlayerRecord(
rekordy.eval,
miejsce,
item.eval,
item
)
addPlayerRecord(
rekordy.plusminus,
miejsce,
item.plusminus,
item
)
end
end
end
local function formatPlayerRecord(
list,
typ
)
if not list or #list == 0 then
return "—"
end
local out = {}
for _, item in ipairs(list) do
local value = ""
if typ == "punkty" then
value =
tostring(item.punkty) ..
" pkt"
elseif typ == "minuty" then
value =
item.minuty_format
if value == "" then
value =
tostring(item.minuty)
end
value =
value ..
" min"
elseif typ == "asysty" then
value =
tostring(item.asysty) ..
" as."
elseif typ == "zbiorki" then
value =
tostring(item.zbiorki) ..
" zb."
elseif typ == "eval" then
value =
tostring(item.eval) ..
" EVAL"
elseif typ == "plusminus" then
value =
formatPlusMinus(
item.plusminus
) ..
" +/-"
end
table.insert(
out,
"[[" ..
item.zawodnik ..
"]] — " ..
value ..
"<br>" ..
item.tekst ..
" (" ..
item.wynik ..
")"
)
end
return table.concat(
out,
"<br>"
)
end
table.insert(
output,
""
)
table.insert(
output,
"== Rekordy indywidualne =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%;"'
)
table.insert(
output,
"! Rekord !! 🏠 Dom !! ✈️ Wyjazd"
)
local rekordyLista =
{
{
nazwa =
"🏀 Najwięcej punktów",
tabela =
rekordy.punkty,
typ =
"punkty"
},
{
nazwa =
"⏱️ Najwięcej minut",
tabela =
rekordy.minuty,
typ =
"minuty"
},
{
nazwa =
"🎯 Najwięcej asyst",
tabela =
rekordy.asysty,
typ =
"asysty"
},
{
nazwa =
"🏀 Najwięcej zbiórek",
tabela =
rekordy.zbiorki,
typ =
"zbiorki"
},
{
nazwa =
"⭐ Najwyższy EVAL",
tabela =
rekordy.eval,
typ =
"eval"
},
{
nazwa =
"➕ Najwyższy +/-",
tabela =
rekordy.plusminus,
typ =
"plusminus"
}
}
for _, rekord in ipairs(rekordyLista) do
table.insert(
output,
"|-"
)
table.insert(
output,
"! " ..
rekord.nazwa ..
" || " ..
formatPlayerRecord(
rekord.tabela.dom,
rekord.typ
) ..
" || " ..
formatPlayerRecord(
rekord.tabela.wyjazd,
rekord.typ
)
)
end
table.insert(
output,
"|}"
)
-- =====================================================
-- SERIE
-- =====================================================
local serie =
{
wszystkie =
{
W = 0,
P = 0,
maxW = 0,
maxP = 0
},
dom =
{
W = 0,
P = 0,
maxW = 0,
maxP = 0
},
wyjazd =
{
W = 0,
P = 0,
maxW = 0,
maxP = 0
}
}
local function updateSerie(
obj,
wynik
)
if wynik == "W" then
obj.W =
obj.W + 1
obj.P =
0
if obj.W > obj.maxW then
obj.maxW =
obj.W
end
elseif wynik == "P" then
obj.P =
obj.P + 1
obj.W =
0
if obj.P > obj.maxP then
obj.maxP =
obj.P
end
else
obj.W =
0
obj.P =
0
end
end
for _, row in ipairs(mecze) do
local wynik =
result(row)
local miejsce =
location(row)
if wynik then
updateSerie(
serie.wszystkie,
wynik
)
if miejsce == "dom" then
updateSerie(
serie.dom,
wynik
)
elseif miejsce == "wyjazd" then
updateSerie(
serie.wyjazd,
wynik
)
end
end
end
table.insert(
output,
""
)
table.insert(
output,
"== Serie zwycięstw i porażek =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%; text-align:center;"'
)
table.insert(
output,
"! Seria !! Wszystkie mecze !! 🏠 Dom !! ✈️ Wyjazd"
)
table.insert(
output,
"|-"
)
table.insert(
output,
"! 🔥 Najdłuższa seria zwycięstw || " ..
serie.wszystkie.maxW ..
" || " ..
serie.dom.maxW ..
" || " ..
serie.wyjazd.maxW
)
table.insert(
output,
"|-"
)
table.insert(
output,
"! 📉 Najdłuższa seria porażek || " ..
serie.wszystkie.maxP ..
" || " ..
serie.dom.maxP ..
" || " ..
serie.wyjazd.maxP
)
table.insert(
output,
"|}"
)
-- =====================================================
-- KWARTY A KOŃCOWY WYNIK
--
-- Nie korzystamy z dogrywka3.
-- Dzięki temu mecz z trzema dogrywkami nie powoduje
-- błędu "No field named dogrywka3".
--
-- Analizujemy wyłącznie kwarty 1-4.
-- =====================================================
local kwartowe =
{
[1] =
{
wygrana = 0,
porazka = 0,
remis = 0,
wszystkie = 0
},
[2] =
{
wygrana = 0,
porazka = 0,
remis = 0,
wszystkie = 0
},
[3] =
{
wygrana = 0,
porazka = 0,
remis = 0,
wszystkie = 0
},
[4] =
{
wygrana = 0,
porazka = 0,
remis = 0,
wszystkie = 0
}
}
local function quarterScore(value)
if not value or value == "" then
return nil, nil
end
return parseScore(value)
end
for _, row in ipairs(mecze) do
local final =
result(row)
if final == "W" or final == "P" then
for q = 1, 4 do
local value =
row["kwarta" .. q]
local a, b =
quarterScore(value)
if a and b then
local teamPoints
local opponentPoints
if location(row) == "dom" then
teamPoints = a
opponentPoints = b
elseif location(row) == "wyjazd" then
teamPoints = b
opponentPoints = a
end
if teamPoints and opponentPoints then
kwartowe[q].wszystkie =
kwartowe[q].wszystkie + 1
if final == "W" then
if teamPoints > opponentPoints then
kwartowe[q].wygrana =
kwartowe[q].wygrana + 1
elseif teamPoints < opponentPoints then
kwartowe[q].porazka =
kwartowe[q].porazka + 1
else
kwartowe[q].remis =
kwartowe[q].remis + 1
end
elseif final == "P" then
if teamPoints < opponentPoints then
kwartowe[q].wygrana =
kwartowe[q].wygrana + 1
elseif teamPoints > opponentPoints then
kwartowe[q].porazka =
kwartowe[q].porazka + 1
else
kwartowe[q].remis =
kwartowe[q].remis + 1
end
end
end
end
end
end
end
table.insert(
output,
""
)
table.insert(
output,
"== Wynik kwarty a końcowy wynik meczu =="
)
table.insert(
output,
""
)
table.insert(
output,
'{| class="wikitable" style="width:100%; text-align:center;"'
)
table.insert(
output,
"! Kwarta !! Mecz zakończony wygraną !! Mecz zakończony porażką !! Remis w kwarcie !! Wszystkie analizowane mecze"
)
for q = 1, 4 do
local data =
kwartowe[q]
table.insert(
output,
"|-"
)
table.insert(
output,
"! " ..
q ..
". kwarta || " ..
data.wygrana ..
" || " ..
data.porazka ..
" || " ..
data.remis ..
" || " ..
data.wszystkie
)
end
table.insert(
output,
"|}"
)
-- =====================================================
-- KONIEC
-- =====================================================
return table.concat(
output,
"\n"
)
end
return p