Moduł:HistoriaSpotkanDruzyny

Dokumentacja dla tego modułu może zostać utworzona pod nazwą Moduł:HistoriaSpotkanDruzyny/opis

local p = {}

local function trim(v)
    if v == nil then
        return ""
    end

    return mw.text.trim(tostring(v))
end


local function esc(v)
    return mw.ustring.gsub(
        trim(v),
        "'",
        "''"
    )
end


local function num(v)
    if v == nil or trim(v) == "" then
        return 0
    end

    local text = mw.ustring.gsub(
        trim(v),
        ",",
        "."
    )

    return tonumber(text) or 0
end


local function qsum(v)

    local text = trim(v)

    local a, b = mw.ustring.match(
        text,
        "^(%d+)%s*:%s*(%d+)$"
    )

    if not a then
        return 0
    end

    return tonumber(a) + tonumber(b)
end


local function location(row, team)

    if trim(row.druzyna1) == team then
        return "dom"
    end

    if trim(row.druzyna2) == team then
        return "wyjazd"
    end

    return nil
end


-- =========================================================
-- PRZECIWNIK
--
-- Nazwa przeciwnika jest pobierana z:
-- nazwa_statystyki1 / nazwa_statystyki2
--
-- drużyna1 / drużyna2 służą tylko do ustalenia
-- czy nasza drużyna grała u siebie czy na wyjeździe.
-- =========================================================

local function opponent(row, team)

    local loc = location(
        row,
        team
    )

    if loc == "dom" then
        return trim(row.nazwa_statystyki2)
    end

    if loc == "wyjazd" then
        return trim(row.nazwa_statystyki1)
    end

    return ""
end


local function overtime(
    row,
    g1,
    g2
)

    local q1 = trim(row.kwarta1)
    local q2 = trim(row.kwarta2)
    local q3 = trim(row.kwarta3)
    local q4 = trim(row.kwarta4)

    if q1 == ""
        or q2 == ""
        or q3 == ""
        or q4 == "" then

        return 0
    end

    local regular_total =
        qsum(q1)
        + qsum(q2)
        + qsum(q3)
        + qsum(q4)

    local final_total =
        g1 + g2

    if regular_total < final_total then
        return 1
    end

    return 0
end


local function pct(
    wins,
    games
)

    if games == 0 then
        return "0,0%"
    end

    local value =
        wins / games * 100

    local text =
        string.format(
            "%.1f",
            value
        )

    text =
        mw.ustring.gsub(
            text,
            "%.",
            ","
        )

    return text .. "%"
end


local function matchLink(row)

    local title =
        trim(row.strona_meczu)

    local date =
        trim(row.data)

    if title == "" then
        return date
    end

    if date == "" then
        return "[[" .. title .. "]]"
    end

    return (
        "[["
        .. title
        .. "|"
        .. date
        .. "]]"
    )
end


local function recordText(record)

    if record == nil then
        return "—"
    end

    local place

    if record.location == "dom" then
        place = "dom"
    else
        place = "wyjazd"
    end

    return (
        matchLink(record.row)
        .. " – "
        .. record.opponent
        .. " "
        .. tostring(record.forScore)
        .. ":"
        .. tostring(record.againstScore)
        .. " ("
        .. place
        .. ", +"
        .. tostring(record.diff)
        .. ")"
    )
end


local function betterRecord(
    oldRecord,
    newRecord
)

    if oldRecord == nil then
        return true
    end

    if newRecord.diff > oldRecord.diff then
        return true
    end

    if newRecord.diff < oldRecord.diff then
        return false
    end

    return trim(newRecord.row.data)
        < trim(oldRecord.row.data)
end


function p.main(frame)

    local team =
        trim(frame.args.druzyna)

    if team == "" then

        local title =
            mw.title.getCurrentTitle()

        if title ~= nil then
            team =
                trim(title.prefixedText)
        end
    end


    if team == "" then
        return "''Nie podano drużyny.''"
    end


    local fields = table.concat(
        {
            "Mecze.id=mecz",
            "Mecze.data=data",
            "Mecze.sezon=sezon",

            "Mecze.druzyna1=druzyna1",
            "Mecze.druzyna2=druzyna2",

            -- KLUCZOWE POLA DLA PRZECIWNIKA
            "Mecze.nazwa_statystyki1=nazwa_statystyki1",
            "Mecze.nazwa_statystyki2=nazwa_statystyki2",

            "Mecze.gole1=gole1",
            "Mecze.gole2=gole2",
            "Mecze.wynik=wynik",
            "Mecze.strona_meczu=strona_meczu",
            "Mecze.kwarta1=kwarta1",
            "Mecze.kwarta2=kwarta2",
            "Mecze.kwarta3=kwarta3",
            "Mecze.kwarta4=kwarta4"
        },
        ","
    )


    local teamSQL =
        esc(team)


    local rows =
        mw.ext.cargo.query(
            "Mecze",
            fields,
            {
                where =
                    "(Mecze.druzyna1='"
                    .. teamSQL
                    .. "' OR Mecze.druzyna2='"
                    .. teamSQL
                    .. "')",

                orderBy =
                    "Mecze.data ASC",

                limit = 10000
            }
        )


    if not rows
        or #rows == 0 then

        return (
            "''Brak wprowadzonych spotkań dla drużyny: "
            .. team
            .. ".''"
        )
    end


    local groups = {}


    local records = {

        win = {
            dom = nil,
            wyjazd = nil
        },

        loss = {
            dom = nil,
            wyjazd = nil
        }
    }


    for _, row in ipairs(rows) do

        -- =================================================
        -- POMIJANIE PAUZY
        --
        -- Pauza nie jest meczem i nie może wpływać
        -- na żadne statystyki.
        -- =================================================

        local wynikText =
            mw.ustring.lower(
                trim(row.wynik)
            )

        local isPauza =
            mw.ustring.find(
                wynikText,
                "pauza",
                1,
                true
            ) ~= nil


        if not isPauza then

            local g1 =
                num(row.gole1)

            local g2 =
                num(row.gole2)


            local loc =
                location(
                    row,
                    team
                )


            -- Przeciwnik z nazwa_statystyki1/2
            local opp =
                opponent(
                    row,
                    team
                )


            if loc and opp ~= "" then

                local item =
                    groups[opp]


                if not item then

                    item = {

                        nazwa = opp,

                        mecze = 0,

                        wygrane = 0,

                        porazki = 0,

                        dogrywki = 0,

                        forScore = 0,

                        againstScore = 0
                    }


                    groups[opp] =
                        item
                end


                local gf
                local ga


                if loc == "dom" then

                    gf = g1
                    ga = g2

                else

                    gf = g2
                    ga = g1

                end


                item.mecze =
                    item.mecze + 1


                item.forScore =
                    item.forScore + gf


                item.againstScore =
                    item.againstScore + ga


                item.dogrywki =
                    item.dogrywki
                    + overtime(
                        row,
                        g1,
                        g2
                    )


                local kind = nil


                if gf > ga then

                    item.wygrane =
                        item.wygrane + 1

                    kind = "win"


                elseif gf < ga then

                    item.porazki =
                        item.porazki + 1

                    kind = "loss"

                end


                if kind ~= nil then

                    local old =
                        records[kind][loc]


                    local current = {

                        row = row,

                        opponent = opp,

                        location = loc,

                        forScore = gf,

                        againstScore = ga,

                        diff = math.abs(
                            gf - ga
                        )
                    }


                    if betterRecord(
                        old,
                        current
                    ) then

                        records[kind][loc] =
                            current

                    end
                end
            end
        end
    end


    local list = {}


    for _, item in pairs(groups) do

        table.insert(
            list,
            item
        )
    end


    table.sort(
        list,
        function(a, b)

            if a.mecze ~= b.mecze then

                return a.mecze >
                    b.mecze
            end

            return mw.ustring.lower(
                a.nazwa
            )
            <
            mw.ustring.lower(
                b.nazwa
            )
        end
    )


    local out = {}


    table.insert(
        out,
        "== Historia spotkań =="
    )


    table.insert(
        out,
        ""
    )


    table.insert(
        out,
        "Historia spotkań drużyny "
        .. team
        .. " ze wszystkimi przeciwnikami wprowadzonymi do bazy."
    )


    table.insert(
        out,
        ""
    )


    table.insert(
        out,
        '{| class="wikitable sortable" style="width:100%; text-align:center;"'
    )


    table.insert(
        out,
        "! Przeciwnik !! Mecze ogółem !! Wygrane !! Porażki !! Dogrywki !! % wygranych !! Kosze rzucone !! Kosze stracone"
    )


    for _, item in ipairs(list) do

        table.insert(
            out,
            "|-"
        )


        table.insert(
            out,
            '| style="text-align:left;" | '
            .. item.nazwa
        )


        table.insert(
            out,
            "| "
            .. tostring(item.mecze)
            .. " || "
            .. tostring(item.wygrane)
            .. " || "
            .. tostring(item.porazki)
            .. " || "
            .. tostring(item.dogrywki)
            .. " || "
            .. pct(
                item.wygrane,
                item.mecze
            )
            .. " || "
            .. tostring(item.forScore)
            .. " || "
            .. tostring(item.againstScore)
        )
    end


    table.insert(
        out,
        "|}"
    )


    table.insert(
        out,
        ""
    )


    table.insert(
        out,
        "== Największa wygrana i największa porażka =="
    )


    table.insert(
        out,
        ""
    )


    table.insert(
        out,
        '{| class="wikitable" style="width:100%; text-align:center;"'
    )


    table.insert(
        out,
        "! Rekord !! 🏠 Dom !! ✈️ Wyjazd"
    )


    table.insert(
        out,
        "|-"
    )


    table.insert(
        out,
        "! 🏆 Największa wygrana"
    )


    table.insert(
        out,
        "| "
        .. recordText(
            records.win.dom
        )
        .. " || "
        .. recordText(
            records.win.wyjazd
        )
    )


    table.insert(
        out,
        "|-"
    )


    table.insert(
        out,
        "! 📉 Największa porażka"
    )


    table.insert(
        out,
        "| "
        .. recordText(
            records.loss.dom
        )
        .. " || "
        .. recordText(
            records.loss.wyjazd
        )
    )


    table.insert(
        out,
        "|}"
    )


    table.insert(
        out,
        ""
    )


    table.insert(
        out,
        "''Dogrywka = końcowy wynik jest większy niż suma czterech zapisanych kwart. Liczba dogrywek nie jest zgadywana.''"
    )


    return table.concat(
        out,
        "\n"
    )

end


return p