Модуль:FetchData3

Документацію для цього модуля можна створити у Модуль:FetchData3/документація

local p = {}

--- Функція для виведення помилки
local function error_output(context, error_details)
    local safe_details = error_details or "N/A" 
    return string.format("<span style='color:red; font-weight:bold;'>[FD3 Error: %s. Details: %s]</span>", 
        context or "Unknown Context", safe_details)
end

--- Отримує заголовки та рядок гравця з таблиці
local function get_player_row(page_title, player_name)
    local title = mw.title.new(page_title)
    if not title or not title.exists then 
        return nil, error_output("Page Missing", page_title)
    end
    
    local content = title:getContent()
    if not content then 
        return nil, error_output("Content Read Fail", page_title) 
    end
    
    -- Знаходимо таблицю
    local table_start = mw.ustring.find(content, "{|")
    local table_end = mw.ustring.find(content, "|}", table_start)
    
    if not table_start or not table_end then
        return nil, error_output("Table Missing", page_title)
    end
    
    local table_content = mw.ustring.sub(content, table_start, table_end + 1)
    
    -- Отримуємо заголовки (перший рядок після {|)
    local headers = {}
    local first_row = mw.ustring.match(table_content, "{|[^\n]*\n!(.-)[\n]")
    
    if first_row then
        -- Розбиваємо заголовки по ||
        for header in mw.ustring.gmatch(first_row, "([^|]+)") do
            local trimmed = mw.text.trim(header)
            if trimmed ~= "" then
                table.insert(headers, trimmed)
            end
        end
    end
    
    if #headers == 0 then
        return nil, error_output("No Headers Found", page_title)
    end
    
    -- Шукаємо рядок з гравцем
    local escaped = mw.ustring.gsub(player_name, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1")
    local player_pattern = "%[%[" .. escaped .. "%]%]"
    
    -- Збираємо всі рядки
    local rows = {}
    for row in mw.ustring.gmatch(table_content, "|-\n(.-)\n|-") do
        table.insert(rows, row)
    end
    
    local last_row = mw.ustring.match(table_content, "|-\n(.-)%s*|}")
    if last_row then
        table.insert(rows, last_row)
    end
    
    -- Обробляємо кожен рядок
    for _, row in ipairs(rows) do
        if mw.ustring.find(row, player_pattern) then
            local cells = {}
            row = mw.ustring.gsub(row, "^%s*|%s*", "")
            
            for cell in mw.ustring.gmatch(row, "([^|]+)") do
                local trimmed = mw.text.trim(cell)
                if trimmed ~= "" then
                    table.insert(cells, trimmed)
                end
            end
            
            return {headers = headers, cells = cells}
        end
    end
    
    return nil, error_output("Player Not Found", player_name)
end

--- Генерує іконку медалі
local function get_medal_icon(value)
    -- Перевіряємо, чи значення не порожнє
    if not value or value == "" or value == " " then
        return nil
    end
    
    -- Видаляємо пробіли
    value = mw.text.trim(value)
    
    if value == "" then
        return nil
    elseif value == "1" then
        return "[[Файл:Gold.png|1-е Місце]]"
    elseif value == "2" then
        return "[[Файл:Silver.png|2-е Місце]]"
    elseif value == "3" then
        return "[[Файл:Bronze.png|3-е Місце]]"
    elseif value == "4" then
        return "[[Файл:Finalist.png|Фіналіст]]"
    elseif value == "S" or mw.ustring.match(value, "^S%d") then
        return "[[Файл:Star.png|Найкращий]]"
    else
        return nil
    end
end

--- Конвертує число в римські цифри
local function to_roman(num)
    local romans = {
        {1000, "M"}, {900, "CM"}, {500, "D"}, {400, "CD"},
        {100, "C"}, {90, "XC"}, {50, "L"}, {40, "XL"},
        {10, "X"}, {9, "IX"}, {5, "V"}, {4, "IV"}, {1, "I"}
    }
    local result = ""
    for _, pair in ipairs(romans) do
        local value, letter = pair[1], pair[2]
        while num >= value do
            result = result .. letter
            num = num - value
        end
    end
    return result
end

--- Генерує посилання на турнір
local function get_tournament_link(header_name)
    -- Визначаємо, чи це сезон
    local season_num = mw.ustring.match(header_name, "([А-Яа-яЁёІіЇїЄєҐґ']+) сезон %(фінал%)")
    if not season_num then
        season_num = mw.ustring.match(header_name, "([А-Яа-яЁёІіЇїЄєҐґ']+) сезон %(рейтинг%)")
    end
    
    if season_num then
        -- Конвертуємо назву сезону в число
        local season_map = {
            ["Перший"] = 1, ["Другий"] = 2, ["Третій"] = 3,
            ["Четвертий"] = 4, ["П'ятий"] = 5, ["Шостий"] = 6,
            ["Сьомий"] = 7, ["Восьмий"] = 8, ["Дев'ятий"] = 9
        }
        
        local season_number = season_map[season_num]
        if season_number then
            local roman = to_roman(season_number)
            
            -- Визначаємо тип (Фінал або Рейтинг)
            local type_text = ""
            if mw.ustring.find(header_name, "фінал") then
                type_text = "Фінал."
            elseif mw.ustring.find(header_name, "рейтинг") then
                type_text = "Рейтинг."
            end
            
            -- Видаляємо (фінал) та (рейтинг) з посилання
            local clean_name = mw.ustring.gsub(header_name, "%s*%(фінал%)%s*", "")
            clean_name = mw.ustring.gsub(clean_name, "%s*%(рейтинг%)%s*", "")
            clean_name = mw.text.trim(clean_name)
            
            return string.format("[[%s|%s сезон. %s]]", clean_name, roman, type_text)
        end
    end
    
    -- Для інших турнірів просто повертаємо назву
    return string.format("[[%s]]", header_name)
end

-- DEBUG функція для перевірки
function p.debug_prizes(frame)
    local name = frame.args.player
    local prize_data = get_player_row("Призовий_фонд", name)
    
    if not prize_data then
        return "Гравця не знайдено в таблиці Призовий_фонд"
    end
    
    local result = {"Заголовки та значення:"}
    for i = 1, #prize_data.headers do
        table.insert(result, string.format("%d. '%s' = '%s'", i, prize_data.headers[i], prize_data.cells[i] or "nil"))
    end
    
    return table.concat(result, "\n")
end

----------------------------------------------------------------------
-- ГОЛОВНА ФУНКЦІЯ ДЛЯ ОТРИМАННЯ ТИТУЛІВ У ВИГЛЯДІ ТАБЛИЦІ
----------------------------------------------------------------------
function p.titles(frame)
    local name = frame.args.player
    
    if not name or name == "" then
        return error_output("No Player Name", "")
    end
    
    -- Отримуємо дані з таблиці "Титули"
    local titles_data, err1 = get_player_row("Титули", name)
    if not titles_data then
        return err1 or "''Відсутні''"
    end
    
    -- Отримуємо дані з таблиці "Призовий_фонд"
    local prize_data, err2 = get_player_row("Призовий_фонд", name)
    
    -- Мапа дат турнірів (потрібно буде заповнити)
    local tournament_dates = {
        ["Перший сезон"] = "30.05.2023",
        ["Другий сезон"] = "15.08.2023",
        ["Третій сезон"] = "30.10.2023",
        ["Четвертий сезон"] = "15.01.2024",
        ["П'ятий сезон"] = "30.03.2024",
        ["Шостий сезон"] = "15.06.2024",
        ["Сьомий сезон"] = "30.08.2024",
        ["Восьмий сезон"] = "15.11.2024",
        ["Дев'ятий сезон"] = "28.02.2025",
        ["Mafia Closed Cup I"] = "15.07.2024",
        ["Mafia Closed Cup I Online"] = "01.08.2024",
        ["Фінал Року"] = "31.12.2024"
    }
    
    local results = {}
    
    -- Пропускаємо першу колонку (ім'я гравця)
    for i = 2, #titles_data.cells do
        local cell_value = titles_data.cells[i]
        local header = titles_data.headers[i]
        
        if cell_value and cell_value ~= "" and cell_value ~= "-" and header then
            local medal = get_medal_icon(cell_value)
            
            if medal then
                -- Отримуємо назву турніру без (фінал)/(рейтинг)
                local clean_header = mw.ustring.gsub(header, "%s*%(фінал%)%s*", "")
                clean_header = mw.ustring.gsub(clean_header, "%s*%(рейтинг%)%s*", "")
                clean_header = mw.text.trim(clean_header)
                
                -- Отримуємо призові з таблиці "Призовий_фонд"
                local prize_amount = "0 ₴"
                if prize_data then
                    for j = 3, #prize_data.headers do
                        local prize_header = mw.text.trim(prize_data.headers[j])
                        if prize_header == clean_header then
                            local prize_value = prize_data.cells[j]
                            if prize_value and prize_value ~= "" and prize_value ~= "-" then
                                prize_amount = prize_value .. " ₴"
                            end
                            break
                        end
                    end
                end
                
                -- Отримуємо дату турніру
                local date = tournament_dates[clean_header] or "01.01.2023"
                
                -- Форматуємо посилання на турнір
                local tournament_link = get_tournament_link(header)
                
                -- Текст місця
                local place_text = ""
                if cell_value == "1" then
                    place_text = "1-е місце"
                elseif cell_value == "2" then
                    place_text = "2-е місце"
                elseif cell_value == "3" then
                    place_text = "3-є місце"
                elseif cell_value == "4" then
                    place_text = "Фіналіст"
                elseif cell_value == "S" or mw.ustring.match(cell_value, "^S%d") then
                    place_text = "Найкращий"
                end
                
                table.insert(results, {
                    date = date,
                    place = place_text,
                    medal = medal,
                    tournament = tournament_link,
                    prize = prize_amount
                })
            end
        end
    end
    
    if #results == 0 then
        return "''Відсутні''"
    end
    
    -- Генеруємо таблицю
    local table_html = {
        '{| class="wikitable sortable" style="width: calc(100% - 470px);"',
        '! Дата !! Місце !! Турнір !! Призові',
        '|-'
    }
    
    for _, result in ipairs(results) do
        table.insert(table_html, string.format(
            '| style="text-align:left;" | %s || style="text-align:left;" | %s || style="text-align:left; padding-left:10px;" | %s %s || style="text-align:right;" | %s',
            result.date,
            result.place,
            result.medal,
            result.tournament,
            result.prize
        ))
        table.insert(table_html, '|-')
    end
    
    table.insert(table_html, '|}')
    
    return table.concat(table_html, '\n')
end

return p