Moduł:H2H
Dokumentacja dla tego modułu może zostać utworzona pod nazwą Moduł:H2H/opis
local p = {}
-- =========================================================
-- MODUŁ:H2H
--
-- Historia bezpośrednich spotkań dwóch drużyn.
--
-- team1 = drużyna analizowana
-- team2 = przeciwnik
--
-- Wykorzystuje:
-- nazwa_statystyki1
-- nazwa_statystyki2
--
-- Dzięki temu zmiana nazwy sponsorskiej drużyny
-- nie rozbija historii H2H.
--
-- ZAWIERA:
-- 1. Bilans ogółem / dom / wyjazd
-- 2. Trenerów team1 w rywalizacji
-- 3. Najlepszych strzelców obu drużyn
-- 4. Rekordy indywidualne team1
-- 5. Serie zwycięstw / porażek
-- 6. Analizę kwart
-- 7. Wszystkie mecze
-- 8. Dogrywkę 1, 2 i 3
-- =========================================================
function p.main(frame)
local team1 = mw.text.trim(frame.args.team1 or "")
local team2 = mw.text.trim(frame.args.team2 or "")
if team1 == "" then
return "'''Błąd:''' nie podano team1."
end
if team2 == "" then
return "'''Błąd:''' nie podano team2."
end
-- =====================================================
-- BEZPIECZEŃSTWO SQL
-- =====================================================
local function sql(value)
value = tostring(value or "")
return mw.ustring.gsub(
value,
"'",
"''"
)
end
local team1SQL = sql(team1)
local team2SQL = sql(team2)
-- =====================================================
-- FUNKCJE POMOCNICZE
-- =====================================================
local function liczba(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 procent(wygrane, mecze)
if not mecze or mecze == 0 then
return "0,0%"
end
local wynik =
(wygrane / mecze) * 100
return string.format(
"%.1f%%",
wynik
):gsub(
"%.",
","
)
end
-- =====================================================
-- WARUNEK H2H DLA TABELI MECZE
--
-- TU NIE MA ALIASU M
-- =====================================================
local whereMecze =
"(" ..
"(Mecze.nazwa_statystyki1='" ..
team1SQL ..
"' AND " ..
"Mecze.nazwa_statystyki2='" ..
team2SQL ..
"')" ..
" OR " ..
"(Mecze.nazwa_statystyki1='" ..
team2SQL ..
"' AND " ..
"Mecze.nazwa_statystyki2='" ..
team1SQL ..
"')" ..
")"
-- =====================================================
-- WARUNEK H2H DLA TABELI MECZE Z ALIASEM M
--
-- UWAGA:
-- tutaj używamy WYŁĄCZNIE M.nazwa_statystyki1
-- i M.nazwa_statystyki2
-- =====================================================
local whereM =
"(" ..
"(M.nazwa_statystyki1='" ..
team1SQL ..
"' AND " ..
"M.nazwa_statystyki2='" ..
team2SQL ..
"')" ..
" OR " ..
"(M.nazwa_statystyki1='" ..
team2SQL ..
"' AND " ..
"M.nazwa_statystyki2='" ..
team1SQL ..
"')" ..
")"
-- =====================================================
-- WYNIK DRUŻYNY
-- =====================================================
local function wynikDruzyny(row)
local g1 = liczba(row.gole1)
local g2 = liczba(row.gole2)
if row.ns1 == team1 then
return g1, g2
elseif row.ns2 == team1 then
return g2, g1
end
return nil, nil
end
-- =====================================================
-- DOM / WYJAZD
-- =====================================================
local function miejsce(row)
if row.ns1 == team1 then
return "dom"
end
if row.ns2 == team1 then
return "wyjazd"
end
return nil
end
-- =====================================================
-- NAZWA MECZU
-- =====================================================
local function nazwaMeczu(row)
local d1 =
row.druzyna1 or ""
local d2 =
row.druzyna2 or ""
local strona =
row.strona_meczu or ""
local tekst =
d1 ..
" – " ..
d2
if strona ~= "" then
return "[[" ..
strona ..
"|" ..
tekst ..
"]]"
end
return tekst
end
-- =====================================================
-- PARSOWANIE KWARTY / DOGRYWKI
-- =====================================================
local function parseWynikCzesciowy(value)
if not value or value == "" then
return nil, nil
end
local tekst =
tostring(value)
local a, b =
tekst:match(
"(%d+)%s*:%s*(%d+)"
)
if not a or not b then
return nil, nil
end
return
tonumber(a),
tonumber(b)
end
-- =====================================================
-- POBRANIE MECZÓW
-- =====================================================
local fieldsMecze =
table.concat({
"Mecze.id=mecz",
"Mecze.data=data",
"Mecze.sezon=sezon",
"Mecze.druzyna1=druzyna1",
"Mecze.druzyna2=druzyna2",
"Mecze.nazwa_statystyki1=ns1",
"Mecze.nazwa_statystyki2=ns2",
"Mecze.gole1=gole1",
"Mecze.gole2=gole2",
"Mecze.wynik=wynik",
"Mecze.wynik_do_przerwy=wynik_do_przerwy",
"Mecze.kwarta1=kwarta1",
"Mecze.kwarta2=kwarta2",
"Mecze.kwarta3=kwarta3",
"Mecze.kwarta4=kwarta4",
"Mecze.dogrywka1=dogrywka1",
"Mecze.dogrywka2=dogrywka2",
"Mecze.dogrywka3=dogrywka3",
"Mecze.hala=hala",
"Mecze.widzowie=widzowie",
"Mecze.sedziowie=sedziowie",
"Mecze.strona_meczu=strona_meczu"
}, ",")
local mecze =
mw.ext.cargo.query(
"Mecze",
fieldsMecze,
{
where = whereMecze,
orderBy =
"Mecze.data ASC",
limit = 5000
}
)
if not mecze or #mecze == 0 then
return
"'''Brak meczów pomiędzy ''" ..
team1 ..
"'' a ''" ..
team2 ..
"''.'''"
end
-- =====================================================
-- BILANS
-- =====================================================
local bilans = {
wszystkie = {
mecze = 0,
wygrane = 0,
przegrane = 0,
remisy = 0,
punktyZdobyte = 0,
punktyStracone = 0
},
dom = {
mecze = 0,
wygrane = 0,
przegrane = 0,
remisy = 0,
punktyZdobyte = 0,
punktyStracone = 0
},
wyjazd = {
mecze = 0,
wygrane = 0,
przegrane = 0,
remisy = 0,
punktyZdobyte = 0,
punktyStracone = 0
}
}
-- =====================================================
-- SERIE
-- =====================================================
local serie = {
wszystkie = {
W = 0,
P = 0
},
dom = {
W = 0,
P = 0
},
wyjazd = {
W = 0,
P = 0
}
}
local aktualnaSeria = {
wszystkie = {
W = 0,
P = 0
},
dom = {
W = 0,
P = 0
},
wyjazd = {
W = 0,
P = 0
}
}
-- =====================================================
-- REKORDY MECZOWE
-- =====================================================
local rekordyMeczowe = {
zwyciestwo = {
dom = {},
wyjazd = {}
},
porazka = {
dom = {},
wyjazd = {}
}
}
local function dodajRekordMeczowy(
lista,
wartosc,
item
)
if #lista == 0 then
item.wartosc =
wartosc
table.insert(
lista,
item
)
return
end
local obecna =
lista[1].wartosc
if wartosc > obecna then
item.wartosc =
wartosc
lista[1] =
item
elseif wartosc == obecna then
item.wartosc =
wartosc
table.insert(
lista,
item
)
end
end
-- =====================================================
-- PRZETWARZANIE MECZÓW
-- =====================================================
for _, row in ipairs(mecze) do
local zdobyte, stracone =
wynikDruzyny(row)
local miejsceMeczu =
miejsce(row)
if zdo