Модуль:PlayerAchievements

[просмотр] [просмотр кода] [история] [обновить]

 Документация

---

debug

---

Пожалуйста, добавляйте категории на страницу документации.

---

-- ==========================================
-- Модуль:PlayerAchievements
-- Автоматический генератор достижений и рекордов игроков ЧТМ
-- ==========================================

local PlayerAchievements = {}

local Config = require('Module:Config')
local CoreEngine = require('Module:StatEngine/Pure')
local ModuleDataTeams = require('Module:Data/Teams')
local TournamentAwards = require('Module:StatEngine/TournamentAwards')
local ModuleMegarating = require('Module:Megarating')

-- ==========================================
-- ГЛОБАЛЬНЫЙ КЭШ (Выполняется ровно 1 раз при загрузке страницы!)
-- ==========================================
local is_initialized = false
local GlobalStreaks = {} -- Добавляем это для хранения всех серий
local GrandStats
local CustomStats = {}
local Leaders = {}
local TeamLeaders = {}
local StadiumLeaders = {}
local ShoeTeams = {}
local AssistTeams = {}
local MegaratingRanks = {}

-- Блок машины рекордов
local Players = {}
local GlobalRecords = { AllTime = {}, PerTournament = {} }

local word_map = {
    [1] = "Первый", [2] = "Второй", [3] = "Третий", [4] = "Четвёртый",
    [5] = "Пятый", [6] = "Шестой", [7] = "Седьмой", [8] = "Восьмой",
    [9] = "Девятый", [10] = "Десятый", [11] = "Одиннадцатый", [12] = "Двенадцатый"
}

local tie_breaker_order = {1, 9, 8, 24, 18, 10, 2, 3, 19, 11, 12, 13, 7, 4, 23, 16, 22, 17, 6, 5, 15, 14, 21, 20}

local function has_player(aw_data, player)
    if type(aw_data) == "table" then
        for _, p in ipairs(aw_data) do if p == player then return true end end
    elseif type(aw_data) == "string" then
        return aw_data == player
    end
    return false
end

-- ==========================================
-- ФАБРИКИ ЯЧЕЕК РЕКОРДОВ
-- ==========================================
local function get_p(name)
    if not Players[name] then
        Players[name] = {
            name = name,
            champs = 0, champ_captain = 0,
            champ_streak = 0, cur_champ_streak = 0, last_champ_year = nil,
            champ_team_streak = 0, cur_champ_team_streak = 0, last_champ_team = nil,
            superchamps = 0, golden_goals = 0, final_goals = 0, final_assists = 0, final_ga = 0,
            max_final_goals = 0, finals_played = 0, mvp_final = 0,
            goals = 0, team_goals = {}, max_goals_team = 0, max_goals_team_code = "",
            max_goals_match = 0,
            mega_tricks = 0, team_mega_tricks = {}, max_mega_tricks_team = 0, max_mega_tricks_team_code = "",
            hat_tricks = 0, pokers = 0, pentas = 0, hexas = 0,
            pens_scored = 0, pens_in_game_scored = 0,
            max_assists_match = 0, pm = 0, md_prizes = 0, md_places = 0,
            assists = 0, heel_goals = 0,
            golden_spheres = 0, total_spheres = 0, golden_shoes = 0, total_shoes = 0,
            mvp = 0, team_mvp = {}, max_team_mvp = 0, max_team_mvp_code = "",
            mvp_goalie = 0, mr_points = 0, pens_saved = 0,
            matches = 0, field_matches = 0, goalie_matches = 0, goalie_goals = 0, head_goals = 0, clearances = 0,
            max_streaks = {}, cur_streaks = {}, last_played_hist = nil, cur_team = nil,
            max_team_matches_code = "", max_goalie_clean_code = "",
            wins = { goals = 0, mega_tricks = 0, pm = 0, mvp = 0, mvp_goalie = 0, head_goals = 0, clearances = 0, gaa = 0 },
            tournaments = {}
        }
    end
    return Players[name]
end

local function get_t(p, year)
    if not p.tournaments[year] then
        p.tournaments[year] = {
            year = year,
            goals = 0, team_goals = {}, max_goals_team = 0, max_goals_team_code = "",
            mega_tricks = 0, pm = 0, matches = 0, pts_pct = 0, md_prizes = 0, md_places = 0,
            heel_goals = 0, mvp = 0, team_mvp = {}, max_team_mvp = 0, max_team_mvp_code = "",
            playoff_wins = 0, head_goals = 0, clearances = 0, gaa = 0,
            playoff_goals = 0, winning_goals = 0, avg_goals = 0,
            team_assists = {}, max_team_assists = 0, max_team_assists_code = "",
            mvp_goalie = 0, mr_points = 0, assists = 0, avg_assists = 0,
            ga = 0, team_ga = {}, max_team_ga = 0, max_team_ga_code = "",
            pts_earned = 0, pts_max = 0, weighted_ga = 0, goalie_matches = 0, field_matches = 0,
            max_mega_tricks_team = 0, max_mega_tricks_team_code = ""
        }
    end
    return p.tournaments[year]
end

local function initialize_data()
    if is_initialized then return end
    
    local loaded_databases = {}
    for _, year in ipairs(Config.years) do
        local success, year_db = pcall(require, 'Module:Data/' .. year)
        if success then loaded_databases[year] = year_db end
    end

    -- === 1. ЕДИНСТВЕННЫЙ ПОЛНЫЙ ПРОХОД КОМБАЙНОМ! ===
    -- Комбайн сам учтёт все исключения, эпохи и корректировки
    GrandStats = CoreEngine.Harvester.run_all_time(loaded_databases, {
        need_players = true, need_teams = true, need_combos = true, keep_years = true
    })
    
    local flat_matches = {}
    CustomStats = { club100 = {}, stadiums = {}, finals = {} }
    local global_goals = {}

    for _, year in ipairs(Config.years) do
        local year_db = loaded_databases[year]
        if year_db then
            CustomStats.finals[year] = {}
            for id, m in pairs(year_db) do
                table.insert(flat_matches, { year = year, id = id, m = m, num = m.num_hist or 0 })
            end
        end
    end
    table.sort(flat_matches, function(a, b)
        if a.year ~= b.year then return a.year < b.year end
        return tostring(a.id) < tostring(b.id)
    end)

    -- Запуск машины серий
    local StreaksEngine = require('Module:StatEngine/StreaksCore').new()

    -- === 2. СВЕРХБЫСТРЫЙ ЛОКАЛЬНЫЙ ЦИКЛ ===
    -- Считаем ТОЛЬКО то, чего нет в GrandStats (стадионы, голы за 1 матч, серии чемпионств)
    for _, item in ipairs(flat_matches) do
        local year = item.year
        local match = item.m
        local is_playoff = Config.playoff_stages[match.stage] == true
        local is_final = (match.stage == "Финал")

        -- Кормим машину серий
        StreaksEngine:process_match(year, match, match.num_hist)

        local match_g = {}
        local match_a = {}
        
        if match.goals then
            for _, g in ipairs(match.goals) do
                if g.scorer then
                    local p = get_p(g.scorer)
                    local t = get_t(p, year)
                    
                    -- Клуб 100 и Стадионы
                    global_goals[g.scorer] = (global_goals[g.scorer] or 0) + 1
                    if global_goals[g.scorer] == 100 then table.insert(CustomStats.club100, {name = g.scorer, year = year}) end
                    if match.stadium then
                        CustomStats.stadiums[match.stadium] = CustomStats.stadiums[match.stadium] or {}
                        CustomStats.stadiums[match.stadium][g.scorer] = (CustomStats.stadiums[match.stadium][g.scorer] or 0) + 1
                    end

                    -- Рекорд голов за один матч
                    match_g[g.scorer] = (match_g[g.scorer] or 0) + 1
                    if match_g[g.scorer] > p.max_goals_match then p.max_goals_match = match_g[g.scorer] end
                    if is_final and match_g[g.scorer] > p.max_final_goals then p.max_final_goals = match_g[g.scorer] end
                    
                    -- Голы в плей-офф
                    if is_playoff then t.playoff_goals = t.playoff_goals + 1 end
                end
                
                if g.assist then
                    local p = get_p(g.assist)
                    match_a[g.assist] = (match_a[g.assist] or 0) + 1
                    if match_a[g.assist] > p.max_assists_match then p.max_assists_match = match_a[g.assist] end
                end
            end
        end

        -- Специфическая логика Финалов (Достижения + Рекорды)
        if is_final then
            local f = CustomStats.finals[year]
            f.goals_count = match_g
            f.assists_count = match_a

            local function parse_aw(aw_data)
                if type(aw_data) == "table" then return aw_data end
                if type(aw_data) == "string" then return {aw_data} end
                return {}
            end
            
            f.superchampions = parse_aw(match.superchampions)
            f.golden_sphere = parse_aw(match.golden_sphere); f.silver_sphere = parse_aw(match.silver_sphere)
            f.bronze_sphere = parse_aw(match.bronze_sphere); f.wooden_sphere = parse_aw(match.wooden_sphere)
            f.golden_shoe = parse_aw(match.golden_shoe); f.silver_shoe = parse_aw(match.silver_shoe)
            f.bronze_shoe = parse_aw(match.bronze_shoe); f.wooden_shoe = parse_aw(match.wooden_shoe)
            f.golden_assistant = parse_aw(match.golden_assistant); f.silver_assistant = parse_aw(match.silver_assistant)
            f.bronze_assistant = parse_aw(match.bronze_assistant); f.wooden_assistant = parse_aw(match.wooden_assistant)
            f.elnur_award = parse_aw(match.elnur_award); f.best_goal = parse_aw(match.best_goal)
            f.mvp = match.mvp and match.mvp.player or nil
            
            f.has_shootout = (match.shootout_score1 ~= nil); f.shootout_winner = nil
            if match.shootout and f.has_shootout then
                local w_team = match.shootout_score1 > match.shootout_score2 and 1 or 2
                local w_score = 0; local max_score = math.max(match.shootout_score1, match.shootout_score2)
                for _, shot in ipairs(match.shootout) do
                    if shot.team == w_team and shot.result == "гол" then
                        w_score = w_score + 1; if w_score == max_score then f.shootout_winner = shot.taker; break end
                    end
                end
            end

            for _, p_name in ipairs(f.superchampions or {}) do get_p(p_name).superchamps = get_p(p_name).superchamps + 1 end
            for _, p_name in ipairs(f.golden_sphere or {}) do get_p(p_name).golden_spheres = get_p(p_name).golden_spheres + 1; get_p(p_name).total_spheres = get_p(p_name).total_spheres + 1 end
            for _, p_name in ipairs(f.silver_sphere or {}) do get_p(p_name).total_spheres = get_p(p_name).total_spheres + 1 end
            for _, p_name in ipairs(f.bronze_sphere or {}) do get_p(p_name).total_spheres = get_p(p_name).total_spheres + 1 end
            for _, p_name in ipairs(f.wooden_sphere or {}) do get_p(p_name).total_spheres = get_p(p_name).total_spheres + 1 end
            for _, p_name in ipairs(f.golden_shoe or {}) do get_p(p_name).golden_shoes = get_p(p_name).golden_shoes + 1; get_p(p_name).total_shoes = get_p(p_name).total_shoes + 1 end
            for _, p_name in ipairs(f.silver_shoe or {}) do get_p(p_name).total_shoes = get_p(p_name).total_shoes + 1 end
            for _, p_name in ipairs(f.bronze_shoe or {}) do get_p(p_name).total_shoes = get_p(p_name).total_shoes + 1 end
            for _, p_name in ipairs(f.wooden_shoe or {}) do get_p(p_name).total_shoes = get_p(p_name).total_shoes + 1 end

            if f.mvp then get_p(f.mvp).mvp_final = get_p(f.mvp).mvp_final + 1 end
            if f.shootout_winner then get_p(f.shootout_winner).golden_goals = get_p(f.shootout_winner).golden_goals + 1 end

            -- Расчет чемпионских серий
            local m_res = CoreEngine.Harvester.evaluate_match(match)
            local win_team = (m_res and m_res[1].pts > m_res[2].pts) and 1 or ((m_res and m_res[2].pts > m_res[1].pts) and 2 or 0)
            local p_teams = CoreEngine.Harvester.get_all_teams(match)
            local cap1 = match.squad1 and match.squad1.captain; local cap2 = match.squad2 and match.squad2.captain
            
            for p_name, t_id in pairs(p_teams) do
                local p = get_p(p_name)
                p.finals_played = p.finals_played + 1
                
                if t_id == win_team then
                    p.champs = p.champs + 1
                    if (t_id == 1 and cap1 == p_name) or (t_id == 2 and cap2 == p_name) then p.champ_captain = p.champ_captain + 1 end

                    local prev_idx = 0
                    for i, y in ipairs(Config.years) do if y == year then prev_idx = i - 1 break end end
                    local prev_year = Config.years[prev_idx]
                    local cur_t_code = (t_id == 1) and match.team1 or match.team2

                    if p.last_champ_year == prev_year then
                        p.cur_champ_streak = p.cur_champ_streak + 1
                        if p.last_champ_team == cur_t_code then p.cur_champ_team_streak = p.cur_champ_team_streak + 1
                        else p.cur_champ_team_streak = 1 end
                    else
                        p.cur_champ_streak = 1; p.cur_champ_team_streak = 1
                    end
                    p.last_champ_year = year; p.last_champ_team = cur_t_code
                    if p.cur_champ_streak > p.champ_streak then p.champ_streak = p.cur_champ_streak end
                    if p.cur_champ_team_streak > p.champ_team_streak then p.champ_team_streak = p.cur_champ_team_streak end
                end
            end
        end
    end

    -- === 3. ИЗВЛЕКАЕМ ДАННЫЕ ИЗ МАШИНЫ СЕРИЙ ===
    StreaksEngine:finish()
    GlobalStreaks = StreaksEngine:get_results()
    for name, ep in pairs(GlobalStreaks.players) do
        local p = get_p(name)
        p.max_streaks.team_scored = ep.team_scored or 0
        p.max_streaks.matches_played = ep.seq or 0
        p.max_streaks.goals = ep.goals or 0
        p.max_streaks.double = ep.double or 0
        p.max_streaks.hat_trick = ep.hat_trick or 0
        p.max_streaks.poker = ep.poker or 0
        p.max_streaks.both_ga = ep.both_ga or 0
        p.max_streaks.ga = ep.ga or 0
        p.max_streaks.missed_matches = ep.missed_matches or 0
        p.max_streaks.unbeaten = ep.unbeaten or 0
        p.max_streaks.win = ep.win or 0
    end
    for name, et in pairs(GlobalStreaks.team_streaks) do
        local p = get_p(name)
        p.max_streaks.team_matches = et.len or 0; p.max_team_matches_code = et.team or ""
    end
    for name, egk in pairs(GlobalStreaks.goalie_clean) do
        local p = get_p(name)
        p.max_streaks.goalie_clean = egk.len or 0; p.max_goalie_clean_code = egk.team or ""
    end

    -- === 4. МАССИВНЫЙ ПЕРЕНОС ДАННЫХ ИЗ GRANDSTATS В ИГРОКОВ ===
    -- Эта операция выполняется за 0.001 секунды, никаких расчётов, только маппинг!
    for p_name, gs_p in pairs(GrandStats.Players) do
        local p = get_p(p_name)
        p.goals = gs_p.goals.total; p.assists = gs_p.assists.total
        p.matches = gs_p.matches_total; p.field_matches = gs_p.matches_field; p.goalie_matches = gs_p.matches_goalie
        p.pm = gs_p.plus_minus; p.clearances = gs_p.clearances
        p.head_goals = gs_p.goals.head; p.heel_goals = gs_p.goals.heel; p.goalie_goals = gs_p.goals.goalie
        p.pens_scored = gs_p.penalties.in_game.g + gs_p.penalties.shootout.g
        p.pens_in_game_scored = gs_p.penalties.in_game.g; p.pens_saved = gs_p.penalties.saved_as_goalie
        p.mvp = gs_p.mvp.is_mvp; p.mvp_goalie = gs_p.mvp.is_goalie_mvp
        p.mega_tricks = gs_p.goals.hat_trick + gs_p.goals.poker + gs_p.goals.penta + gs_p.goals.hexa
        p.hat_tricks = gs_p.goals.hat_trick; p.pokers = gs_p.goals.poker; p.pentas = gs_p.goals.penta; p.hexas = gs_p.goals.hexa
        p.final_goals = gs_p.megarating.final_goals; p.final_assists = gs_p.megarating.final_assists
        p.final_ga = p.final_goals + p.final_assists
        p.golden_goals = p.golden_goals + gs_p.megarating.final_gold_goals
    end

    for year, year_stats in pairs(GrandStats.Years) do
        for p_name, gs_t in pairs(year_stats.Players) do
            local p = get_p(p_name); local t = get_t(p, year)
            t.goals = gs_t.goals.total; t.assists = gs_t.assists.total; t.ga = t.goals + t.assists
            t.matches = gs_t.matches_total; t.field_matches = gs_t.matches_field; t.goalie_matches = gs_t.matches_goalie
            t.pm = gs_t.plus_minus; t.clearances = gs_t.clearances
            t.head_goals = gs_t.goals.head; t.heel_goals = gs_t.goals.heel
            t.mvp = gs_t.mvp.is_mvp; t.mvp_goalie = gs_t.mvp.is_goalie_mvp
            t.mega_tricks = gs_t.goals.hat_trick + gs_t.goals.poker + gs_t.goals.penta + gs_t.goals.hexa
            t.winning_goals = gs_t.advanced.winning_goals
            t.playoff_wins = gs_t.megarating.playoff_wins.r16 + gs_t.megarating.playoff_wins.qf + gs_t.megarating.playoff_wins.sf + (gs_t.megarating.is_champion and 1 or 0)
        end
    end

    -- === 5. ПЕРЕНОС РЕКОРДОВ ПО СБОРНЫМ ИЗ GRANDSTATS ===
    -- Забываем про ручной подсчёт `p.team_goals[t_code]`, берём готовое из Комбайна!
    for combo, c_data in pairs(GrandStats.PlayerTeam) do
        local p = get_p(c_data.name); local t_code = c_data.team
        
        -- Исторические рекорды за 1 сборную
        if c_data.goals.total > p.max_goals_team then p.max_goals_team = c_data.goals.total; p.max_goals_team_code = t_code end
        local mt = c_data.goals.hat_trick + c_data.goals.poker + c_data.goals.penta + c_data.goals.hexa
        if mt > p.max_mega_tricks_team then p.max_mega_tricks_team = mt; p.max_mega_tricks_team_code = t_code end
        if c_data.mvp.is_mvp > p.max_team_mvp then p.max_team_mvp = c_data.mvp.is_mvp; p.max_team_mvp_code = t_code end

        -- Рекорды турнира за 1 сборную
        if c_data.years then
            for year, yc in pairs(c_data.years) do
                local t = get_t(p, year)
                if yc.goals.total > t.max_goals_team then t.max_goals_team = yc.goals.total; t.max_goals_team_code = t_code end
                local y_mt = yc.goals.hat_trick + yc.goals.poker + yc.goals.penta + yc.goals.hexa
                if y_mt > t.max_mega_tricks_team then t.max_mega_tricks_team = y_mt; t.max_mega_tricks_team_code = t_code end
                if yc.mvp.is_mvp > t.max_team_mvp then t.max_team_mvp = yc.mvp.is_mvp; t.max_team_mvp_code = t_code end
                if yc.assists.total > t.max_team_assists then t.max_team_assists = yc.assists.total; t.max_team_assists_code = t_code end
                local y_ga = yc.goals.total + yc.assists.total
                if y_ga > t.max_team_ga then t.max_team_ga = y_ga; t.max_team_ga_code = t_code end
                
                t.team_goals[t_code] = yc.goals.total; t.team_assists[t_code] = yc.assists.total
            end
        end
    end

    -- === 6. БАШМАКИ, ИГРОВЫЕ ДНИ И МЕГАРЕЙТИНГ ===
    for year, year_db in pairs(loaded_databases) do
        local shoes = TournamentAwards.getTournamentAwards(year, year_db, "goals")
        ShoeTeams[year] = {}; for _, p in ipairs(shoes) do if p.rank <= 4 and not ShoeTeams[year][p.player] then ShoeTeams[year][p.player] = p.team_code end end
        local assists = TournamentAwards.getTournamentAwards(year, year_db, "assists")
        AssistTeams[year] = {}; for _, p in ipairs(assists) do if p.rank <= 4 and not AssistTeams[year][p.player] then AssistTeams[year][p.player] = p.team_code end end

        if year >= 2022 then
            local mds = {}
            for _, m in pairs(year_db) do if m.matchday then mds[m.matchday] = true end end
            for md, _ in pairs(mds) do
                local prizes = TournamentAwards.evaluateMatchdayPrizes(year_db, md)
                for _, cat in ipairs({"mvp", "scorer", "assistant", "productive", "effective", "useful", "goalie_good", "goalie_bad"}) do
                    if prizes[cat] then
                        for _, p in ipairs(prizes[cat]) do
                            local pl = get_p(p.name); local t = get_t(pl, year)
                            if p.prize then pl.md_prizes = pl.md_prizes + 1; t.md_prizes = t.md_prizes + 1 end
                            if p.prize_place then pl.md_places = pl.md_places + 1; t.md_places = t.md_places + 1 end
                        end
                    end
                end
            end
        end

        if GrandStats.Years[year] then
            local spheres = ModuleMegarating.get_spheres_from_db(year_db)
            local final_list = ModuleMegarating.evaluate_raw_stats(year, year_db, GrandStats.Years[year].Players)
            if #final_list > 0 then
                table.sort(final_list, function(a, b) return ModuleMegarating.compare_players_public(a, b, year, spheres) end)
                MegaratingRanks[year] = {}
                local current_rank = 1
                for i, p in ipairs(final_list) do
                    local is_tie = false
                    if i > 1 then
                        local prev = final_list[i-1]
                        if prev.total_points == p.total_points and (spheres[prev.name] or 0) == (spheres[p.name] or 0) then
                            is_tie = true
                            for _, metric_id in ipairs(tie_breaker_order) do
                                local valid = true
                                if metric_id >= 10 and metric_id <= 17 and year < Config.eras.plus_minus then valid = false end
                                if metric_id >= 18 and metric_id <= 23 and year < Config.eras.assists then valid = false end
                                if valid and (prev.breakdown[metric_id] or 0) ~= (p.breakdown[metric_id] or 0) then is_tie = false; break end
                            end
                        end
                    end
                    if not is_tie then current_rank = i end
                    MegaratingRanks[year][p.name] = current_rank
                    local pl = get_p(p.name); local t = get_t(pl, year)
                    pl.mr_points = pl.mr_points + p.total_points; t.mr_points = p.total_points
                end
            end
        end
    end

    -- === 7. ФИНАЛИЗАЦИЯ И РАСЧЁТ ЛИДЕРОВ ===
    local function evaluate_leader(year, metric_func)
        local max_val = -9999; local leaders = {}
        for p, p_stats in pairs(GrandStats.Years[year].Players) do
            local val = metric_func(p_stats)
            if val and val > 0 then
                if val > max_val then max_val = val; leaders = {p}
                elseif val == max_val then table.insert(leaders, p) end
            end
        end
        return leaders
    end

    local function evaluate_min_leader(year, metric_func, min_req)
        local min_val = 9999; local leaders = {}
        for p, p_stats in pairs(GrandStats.Years[year].Players) do
            if min_req(p_stats) then
                local val = metric_func(p_stats)
                if val then
                    if val < min_val then min_val = val; leaders = {p}
                    elseif val == min_val then table.insert(leaders, p) end
                end
            end
        end
        return leaders
    end

    for _, year in ipairs(Config.years) do
        if GrandStats.Years[year] then
            Leaders.goals = Leaders.goals or {}; Leaders.goals[year] = evaluate_leader(year, function(s) return s.goals.total end)
            Leaders.assists = Leaders.assists or {}; Leaders.assists[year] = evaluate_leader(year, function(s) return s.assists.total end)
            Leaders.matches = Leaders.matches or {}; Leaders.matches[year] = evaluate_leader(year, function(s) return s.matches_total end)
            Leaders.mvp = Leaders.mvp or {}; Leaders.mvp[year] = evaluate_leader(year, function(s) return s.mvp.is_mvp end)
            Leaders.mvp_goalie = Leaders.mvp_goalie or {}; Leaders.mvp_goalie[year] = evaluate_leader(year, function(s) return s.mvp.is_goalie_mvp end)
            Leaders.mega_tricks = Leaders.mega_tricks or {}; Leaders.mega_tricks[year] = evaluate_leader(year, function(s) return (s.goals.hat_trick + s.goals.poker + s.goals.penta + s.goals.hexa) end)
            Leaders.head_goals = Leaders.head_goals or {}; Leaders.head_goals[year] = evaluate_leader(year, function(s) return s.goals.head end)
            Leaders.pens_saved = Leaders.pens_saved or {}; Leaders.pens_saved[year] = evaluate_leader(year, function(s) return s.penalties.saved_as_goalie end)
            Leaders.clearances = Leaders.clearances or {}; Leaders.clearances[year] = evaluate_leader(year, function(s) return s.clearances end)
            Leaders.playoff_wins = Leaders.playoff_wins or {}; Leaders.playoff_wins[year] = evaluate_leader(year, function(s) return s.megarating.playoff_wins.r16 + s.megarating.playoff_wins.qf + s.megarating.playoff_wins.sf + (s.megarating.is_champion and 1 or 0) end)
            Leaders.plus_minus = Leaders.plus_minus or {}; Leaders.plus_minus[year] = evaluate_leader(year, function(s) return s.plus_minus end)
            Leaders.pens_scored = Leaders.pens_scored or {}; Leaders.pens_scored[year] = evaluate_leader(year, function(s) return s.penalties.in_game.g + s.penalties.shootout.g end)
            Leaders.avg_goals = Leaders.avg_goals or {}; Leaders.avg_goals[year] = evaluate_leader(year, function(s) return s.avg.goals_den > 0 and s.avg.goals_num / s.avg.goals_den or 0 end)
            Leaders.gaa = Leaders.gaa or {}; Leaders.gaa[year] = evaluate_min_leader(year, function(s) return s.weighted_ga / s.matches_goalie end, function(s) return s.matches_goalie and s.matches_goalie >= 3 end)
        end
    end

    for combo, c_data in pairs(GrandStats.PlayerTeam) do
        local p = c_data.name; local t = c_data.team; local goals = c_data.goals.total
        if goals > 0 then
            TeamLeaders[t] = TeamLeaders[t] or {players = {}, goals = 0}
            if goals > TeamLeaders[t].goals then TeamLeaders[t].goals = goals; TeamLeaders[t].players = {p}
            elseif goals == TeamLeaders[t].goals then table.insert(TeamLeaders[t].players, p) end
        end
    end

    for st, p_list in pairs(CustomStats.stadiums) do
        local max = 0; local best = {}
        for p, goals in pairs(p_list) do
            if goals > max then max = goals; best = {p}
            elseif goals == max then table.insert(best, p) end
        end
        if max > 0 then StadiumLeaders[st] = {players = best, goals = max} end
    end

    for _, p in pairs(Players) do
        for year, list in pairs(Leaders.goals or {}) do if Config.utils.has_value(list, p.name) then p.wins.goals = p.wins.goals + 1 end end
        for year, list in pairs(Leaders.mega_tricks or {}) do if Config.utils.has_value(list, p.name) then p.wins.mega_tricks = p.wins.mega_tricks + 1 end end
        for year, list in pairs(Leaders.plus_minus or {}) do if Config.utils.has_value(list, p.name) then p.wins.pm = p.wins.pm + 1 end end
        for year, list in pairs(Leaders.mvp or {}) do if Config.utils.has_value(list, p.name) then p.wins.mvp = p.wins.mvp + 1 end end
        for year, list in pairs(Leaders.mvp_goalie or {}) do if Config.utils.has_value(list, p.name) then p.wins.mvp_goalie = p.wins.mvp_goalie + 1 end end
        for year, list in pairs(Leaders.head_goals or {}) do if Config.utils.has_value(list, p.name) then p.wins.head_goals = p.wins.head_goals + 1 end end
        for year, list in pairs(Leaders.clearances or {}) do if Config.utils.has_value(list, p.name) then p.wins.clearances = p.wins.clearances + 1 end end
        for year, list in pairs(Leaders.gaa or {}) do if Config.utils.has_value(list, p.name) then p.wins.gaa = p.wins.gaa + 1 end end

        for year, t in pairs(p.tournaments) do
            local gs_t = GrandStats.Years[year].Players[p.name] -- Берем точную стату турнира
            -- ПРОЦЕНТ ОЧКОВ: используем точные данные Мегарейтинга из Комбайна!
            t.pts_pct = (gs_t and gs_t.megarating.mr_matches > 0) and (gs_t.megarating.mr_points / (gs_t.megarating.mr_matches * 3) * 100) or 0
            t.avg_goals = t.field_matches > 0 and (t.goals / t.field_matches) or 0
            t.avg_assists = t.field_matches > 0 and (t.assists / t.field_matches) or 0
            t.gaa = (gs_t and t.goalie_matches > 0) and (gs_t.weighted_ga / t.goalie_matches) or 0
        end
        
        local gs_p = GrandStats.Players[p.name]
        p.avg_goals = p.field_matches >= 20 and (p.goals / p.field_matches) or 0
        p.avg_assists = p.field_matches >= 20 and (p.assists / p.field_matches) or 0
        -- Идеально точный П/О за всю историю:
        p.pts_pct = (gs_p and p.matches >= 20 and gs_p.megarating.mr_matches > 0) and (gs_p.megarating.mr_points / (gs_p.megarating.mr_matches * 3) * 100) or 0
        p.gaa = (gs_p and p.goalie_matches >= 20) and (gs_p.weighted_ga / p.goalie_matches) or 9999
    end

    local metrics_all = {
        {"champs", false}, {"champ_captain", false}, {"champ_streak", false}, {"champ_team_streak", false},
        {"superchamps", false}, {"golden_goals", false}, {"final_goals", false}, {"final_assists", false},
        {"final_ga", false}, {"max_final_goals", false}, {"finals_played", false}, {"goals", false},
        {"max_goals_team", false}, {"max_goals_match", false}, {"mega_tricks", false}, {"max_mega_tricks_team", false},
        {"hat_tricks", false}, {"pokers", false}, {"pentas", false}, {"hexas", false},
        {"pens_scored", false}, {"pens_in_game_scored", false}, {"max_assists_match", false}, {"pm", false},
        {"pts_pct", false}, {"md_prizes", false}, {"md_places", false}, {"assists", false}, {"avg_assists", false},
        {"heel_goals", false}, {"golden_spheres", false}, {"total_spheres", false}, {"golden_shoes", false},
        {"total_shoes", false}, {"avg_goals", false}, {"gaa", true}, {"mvp", false}, {"max_team_mvp", false},
        {"mvp_goalie", false}, {"mr_points", false}, {"pens_saved", false}, {"matches", false},
        {"field_matches", false}, {"goalie_matches", false}, {"head_goals", false}, {"clearances", false}
    }
    
    local function get_val(p, key)
        if string.sub(key, 1, 12) == "max_streaks_" then return p.max_streaks[string.sub(key, 13)] or 0 end
        if string.sub(key, 1, 5) == "wins_" then return p.wins[string.sub(key, 6)] or 0 end
        return p[key]
    end

    for _, row in ipairs(metrics_all) do
        local key = row[1]; local is_min = row[2]; local best = is_min and 9999 or -9999
        for _, p in pairs(Players) do
            local v = get_val(p, key)
            if v and v ~= 0 and (not is_min or v < 9999) then
                if (is_min and v < best) or (not is_min and v > best) then best = v end
            end
        end
        GlobalRecords.AllTime[key] = best
    end
    
    local streak_wins_keys = {"max_streaks_team_scored", "max_streaks_matches_played", "max_streaks_goals", "max_streaks_double", "max_streaks_hat_trick", "max_streaks_poker", "max_streaks_both_ga", "max_streaks_ga", "max_streaks_missed_matches", "max_streaks_goalie_clean", "max_streaks_team_matches", "max_streaks_unbeaten", "max_streaks_win", "wins_goals", "wins_mega_tricks", "wins_pm", "wins_mvp", "wins_mvp_goalie", "wins_head_goals", "wins_clearances", "wins_gaa"}
    for _, key in ipairs(streak_wins_keys) do
        local best = -9999
        for _, p in pairs(Players) do
            local v = get_val(p, key)
            if v and v ~= 0 and v > best then best = v end
        end
        GlobalRecords.AllTime[key] = best
    end

    local metrics_tourney = {
        {"goals", false}, {"max_goals_team", false}, {"mega_tricks", false}, {"pm", false}, {"matches", false},
        {"pts_pct", false}, {"md_prizes", false}, {"md_places", false}, {"heel_goals", false}, {"mvp", false},
        {"max_team_mvp", false}, {"playoff_wins", false}, {"head_goals", false}, {"clearances", false},
        {"gaa", true}, {"playoff_goals", false}, {"winning_goals", false}, {"avg_goals", false},
        {"max_team_assists", false}, {"mvp_goalie", false}, {"mr_points", false}, {"assists", false},
        {"avg_assists", false}, {"ga", false}, {"max_team_ga", false}
    }
    
    for _, row in ipairs(metrics_tourney) do
        local key = row[1]; local is_min = row[2]; local best = is_min and 9999 or -9999
        for _, p in pairs(Players) do
            for _, t in pairs(p.tournaments) do
                local v = t[key]
                if v and v ~= 0 and (not is_min or v < 9999) then
                    if key == "gaa" and t.goalie_matches < 5 then v = nil end
                    if (key == "pts_pct" or key == "avg_goals" or key == "avg_assists") and t.field_matches < 10 then v = nil end
                    if v and ((is_min and v < best) or (not is_min and v > best)) then best = v end
                end
            end
        end
        GlobalRecords.PerTournament[key] = best
    end

    is_initialized = true
end

-- ==========================================
-- УТИЛИТЫ ФОРМАТИРОВАНИЯ СТРОК
-- ==========================================
local function format_achievement(prefix_singular, prefix_plural, items, sum_counts)
    if #items == 0 then return "" end
    table.sort(items, function(a, b) return a.year < b.year end)
    local texts = {}; local total = 0
    for _, item in ipairs(items) do
        local t = tostring(item.year)
        if item.addon and item.addon ~= "" then t = t .. " " .. item.addon end
        table.insert(texts, t); total = total + (item.count or 1)
    end
    local display_prefix = (#items > 1 or (sum_counts and total > 1)) and prefix_plural or prefix_singular
    local count_str = ""
    if sum_counts and total > 1 then count_str = " (" .. total .. ")"
    elseif not sum_counts and #items > 1 then count_str = " (" .. #items .. ")" end
    return "* " .. display_prefix .. count_str .. ": " .. table.concat(texts, ", ") .. "."
end

local function format_list_with_and(list)
    if #list == 1 then return list[1] end
    if #list == 2 then return list[1] .. " и " .. list[2] end
    local last = table.remove(list)
    return table.concat(list, ", ") .. " и " .. last
end

local function get_hardcoded_historical(player)
    if player == "Алишер" then return "Единственный игрок, забивший гол своим первым касанием мяча в рамках ЧТМ." end
    if player == "Андрей О." then return "Самая продолжительная серия матчей, в которых игроку удавалось как забить гол, так и отдать голевую передачу — 5." end
    if player == "Бирюк" then return "Автор единственного в истории ЧТМ гола, забитого прямым ударом с углового." end
    if player == "Дима Кес." then return "Наибольшее число вратарских голевых передач за один матч — 2." end
    if player == "Диман" then return "Наибольшее число вратарских голевых передач за один матч — 2.\n* Самая продолжительная сухая серия за одну команду — 57 минут ([[Индия]])." end
    if player == "Ильич" then return "Самая длительная [[Возвращения|пауза между матчами]] — 11 лет 8 месяцев 2 дня." end
    if player == "Макс" then return "Наибольшее число [[Вратарские голы|вратарских голов]] — 6." end
    return nil
end

-- ==========================================
-- СБОРКА ТЕКСТА ДОСТИЖЕНИЙ
-- ==========================================
local function build_achievements_text(player)
    -- Оставлено без изменений (здесь идёт ваш старый код для выдачи достижений игрока)
    if not GrandStats.Players[player] then return "" end

    local main = {}; local add = {}
    local latest_year = Config.years[#Config.years]
    local is_latest_finished = Config.is_latest_finished

    local function check_and_add(list, singular, plural, condition_func, sum_counts)
        local items = {}
        for _, year in ipairs(Config.years) do
            local res = condition_func(year)
            if res then table.insert(items, res) end
        end
        local str = format_achievement(singular, plural, items, sum_counts)
        if str ~= "" then table.insert(list, str) end
    end

    local function check_mr(y, target_rank)
        local is_finished = (y ~= latest_year) or is_latest_finished
        if is_finished and MegaratingRanks[y] and MegaratingRanks[y][player] == target_rank then return {year = y} end
    end

    check_and_add(main, "[[Список игроков-чемпионов третьего мира|Чемпион третьего мира]]", "[[Список игроков-чемпионов третьего мира|Чемпион третьего мира]]", function(y)
        if Config.champions_players[y] and Config.utils.has_value(Config.champions_players[y], player) then return {year = y} end
    end)
    check_and_add(main, "[[Суперчемпион]]", "[[Суперчемпион]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].superchampions, player) then return {year = y} end
    end)
    check_and_add(main, "Обладатель [[Золотой Шар|Золотого Шара]]", "Обладатель [[Золотой Шар|Золотого Шара]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].golden_sphere, player) then return {year = y} end
    end)
    check_and_add(main, "Обладатель [[Золотой Башмак|Золотого Башмака]]", "Обладатель [[Золотой Башмак|Золотого Башмака]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].golden_shoe, player) then
            local t = ShoeTeams[y] and ShoeTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(main, "[[Лучший ассистент]]", "[[Лучший ассистент]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].golden_assistant, player) then
            local t = AssistTeams[y] and AssistTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(main, "[[Приз имени Эльнура|Лучший вратарь турнира]]", "[[Приз имени Эльнура|Лучший вратарь турнира]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].elnur_award, player) then return {year = y} end
    end)

    local club_index, club_year = 0, 0
    for i, p_info in ipairs(CustomStats.club100) do
        if p_info.name == player then club_index = i; club_year = p_info.year; break end
    end
    if club_index > 0 then
        local w = word_map[club_index] or tostring(club_index) .. "-й"
        local suffix = (club_index > 4) and " по счёту участник" or " участник"
        table.insert(main, "* " .. w .. suffix .. " [[Клуб 100|Клуба 100]]: " .. club_year .. ".")
    end

    check_and_add(add, "Лидер [[мегарейтинг]]а", "Лидер [[мегарейтинг]]а", function(y) return check_mr(y, 1) end)
    check_and_add(add, "Второе место в [[мегарейтинг]]е", "Второе место в [[мегарейтинг]]е", function(y) return check_mr(y, 2) end)
    check_and_add(add, "Третье место в [[мегарейтинг]]е", "Третье место в [[мегарейтинг]]е", function(y) return check_mr(y, 3) end)
    check_and_add(add, "Четвёртое место в [[мегарейтинг]]е", "Четвёртое место в [[мегарейтинг]]е", function(y) return check_mr(y, 4) end)

    check_and_add(add, "Обладатель [[Золотой Шар|Серебряного Шара]]", "Обладатель [[Золотой Шар|Серебряного Шара]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].silver_sphere, player) then return {year = y} end
    end)
    check_and_add(add, "Обладатель [[Золотой Шар|Бронзового Шара]]", "Обладатель [[Золотой Шар|Бронзового Шара]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].bronze_sphere, player) then return {year = y} end
    end)
    check_and_add(add, "Обладатель [[Золотой Шар|Деревянного Шара]]", "Обладатель [[Золотой Шар|Деревянного Шара]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].wooden_sphere, player) then return {year = y} end
    end)

    check_and_add(add, "Обладатель [[Золотой Башмак|Серебряного Башмака]]", "Обладатель [[Золотой Башмак|Серебряного Башмака]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].silver_shoe, player) then
            local t = ShoeTeams[y] and ShoeTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(add, "Обладатель [[Золотой Башмак|Бронзового Башмака]]", "Обладатель [[Золотой Башмак|Бронзового Башмака]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].bronze_shoe, player) then
            local t = ShoeTeams[y] and ShoeTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(add, "Обладатель [[Золотой Башмак|Деревянного Башмака]]", "Обладатель [[Золотой Башмак|Деревянного Башмака]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].wooden_shoe, player) then
            local t = ShoeTeams[y] and ShoeTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)

    check_and_add(add, "Второе место в списке [[Лучший ассистент|лучших ассистентов]]", "Второе место в списке [[Лучший ассистент|лучших ассистентов]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].silver_assistant, player) then
            local t = AssistTeams[y] and AssistTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(add, "Третье место в списке [[Лучший ассистент|лучших ассистентов]]", "Третье место в списке [[Лучший ассистент|лучших ассистентов]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].bronze_assistant, player) then
            local t = AssistTeams[y] and AssistTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)
    check_and_add(add, "Четвёртое место в списке [[Лучший ассистент|лучших ассистентов]]", "Четвёртое место в списке [[Лучший ассистент|лучших ассистентов]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].wooden_assistant, player) then
            local t = AssistTeams[y] and AssistTeams[y][player] or "Неизвестно"
            return {year = y, addon = "([[" .. ModuleDataTeams.getName(t) .. "]])"}
        end
    end)

    check_and_add(add, "Автор золотого гола ЧТМ", "Автор золотых голов ЧТМ", function(y)
        local ys = GrandStats.Years[y] and GrandStats.Years[y].Players[player]
        local is_gold, is_shootout = false, false
        if ys and ys.megarating and ys.megarating.final_gold_goals > 0 then is_gold = true end
        if CustomStats.finals[y] and CustomStats.finals[y].shootout_winner == player then is_gold = true; is_shootout = true end
        if is_gold then return {year = y, addon = is_shootout and "(в серии пенальти)" or "", count = 1} end
    end, false)
    
    check_and_add(add, "Автор гола в финале ЧТМ", "Автор голов в финалах ЧТМ", function(y)
        local f = CustomStats.finals[y]
        if f and f.goals_count and f.goals_count[player] then
            local c = f.goals_count[player]
            return {year = y, addon = (c > 1) and ("(" .. c .. ")") or "", count = c}
        end
    end, true)

    check_and_add(add, "Автор голевой передачи в финале ЧТМ", "Автор голевых передач в финалах ЧТМ", function(y)
        local f = CustomStats.finals[y]
        if f and f.assists_count and f.assists_count[player] then
            local c = f.assists_count[player]
            return {year = y, addon = (c > 1) and ("(" .. c .. ")") or "", count = c}
        end
    end, true)

    check_and_add(add, "Лучший игрок финала ЧТМ", "Лучший игрок финалов ЧТМ", function(y)
        if CustomStats.finals[y] and CustomStats.finals[y].mvp == player then return {year = y} end
    end)
    
    check_and_add(add, "Автор [[Лучший гол турнира|лучшего гола турнира]]", "Автор [[Лучший гол турнира|лучшего гола турнира]]", function(y)
        if CustomStats.finals[y] and has_player(CustomStats.finals[y].best_goal, player) then return {year = y} end
    end)

    local function check_leader(list_arr, title_sing, title_plur, cat)
        check_and_add(list_arr, title_sing, title_plur, function(y)
            if Leaders[cat] and Leaders[cat][y] and Config.utils.has_value(Leaders[cat][y], player) then return {year = y} end
        end)
    end

    check_leader(add, "Лидер по общему числу [[Голы|голов]]", "Лидер по общему числу [[Голы|голов]]", "goals")
    check_leader(add, "Лидер по общему числу [[Голевые передачи|голевых передач]]", "Лидер по общему числу [[Голевые передачи|голевых передач]]", "assists")
    check_leader(add, "Лидер по количеству признаний [[Игрок матча|игроком матча]]", "Лидер по количеству признаний [[Игрок матча|игроком матча]]", "mvp")
    check_leader(add, "Лидер по количеству признаний [[Игрок матча как вратарь|игроком матча в качестве вратаря]]", "Лидер по количеству признаний [[Игрок матча как вратарь|игроком матча в качестве вратаря]]", "mvp_goalie")
    check_leader(add, "[[Самый полезный игрок]]", "[[Самый полезный игрок]]", "plus_minus")
    check_leader(add, "Лидер по числу [[Победы в плей-офф|побед в плей-офф]]", "Лидер по числу [[Победы в плей-офф|побед в плей-офф]]", "playoff_wins")
    check_leader(add, "Лидер по [[Средняя результативность|средней результативности]]", "Лидер по [[Средняя результативность|средней результативности]]", "avg_goals")
    check_leader(add, "Лидер по общему числу [[Матчи|сыгранных матчей]]", "Лидер по общему числу [[Матчи|сыгранных матчей]]", "matches")
    check_leader(add, "[[Лучший пенальтист]]", "[[Лучший пенальтист]]", "pens_scored")
    check_leader(add, "Лидер по общему числу [[Мега-трики|мега-триков]]", "Лидер по общему числу [[Мега-трики|мега-триков]]", "mega_tricks")
    check_leader(add, "Лидер по [[Голы головой|голам головой]]", "Лидер по [[Голы головой|голам головой]]", "head_goals")
    check_leader(add, "Лидер по [[Выносы из пустых|выносам из пустых]]", "Лидер по [[Выносы из пустых|выносам из пустых]]", "clearances")
    check_leader(add, "Лидер по числу [[Отбитые пенальти|отбитых пенальти]]", "Лидер по числу [[Отбитые пенальти|отбитых пенальти]]", "pens_saved")
    check_leader(add, "Лидер по [[Коэффициент пропущенных голов|коэффициенту пропущенных голов]]", "Лидер по [[Коэффициент пропущенных голов|коэффициенту пропущенных голов]]", "gaa")

    local player_teams_best = {}
    for t, info in pairs(TeamLeaders) do
        if Config.utils.has_value(info.players, player) then table.insert(player_teams_best, {team = t, goals = info.goals}) end
    end
    if #player_teams_best > 0 then
        table.sort(player_teams_best, function(a, b) return a.goals > b.goals end)
        if #player_teams_best == 1 then
            local t_name = ModuleDataTeams.getName(player_teams_best[1].team, 'gen')
            local g_word = (player_teams_best[1].goals % 10 == 1 and player_teams_best[1].goals % 100 ~= 11) and "гол" or (player_teams_best[1].goals % 10 >= 2 and player_teams_best[1].goals % 10 <= 4 and (player_teams_best[1].goals % 100 < 10 or player_teams_best[1].goals % 100 >= 20)) and "гола" or "голов"
            table.insert(add, "* [[Список голов ЧТМ по сборным|Лучший бомбардир]] в истории сборной [[" .. ModuleDataTeams.getName(player_teams_best[1].team) .. "|" .. t_name .. "]] (" .. player_teams_best[1].goals .. " " .. g_word .. ").")
        else
            local t_strs = {}
            for _, info in ipairs(player_teams_best) do table.insert(t_strs, "[[" .. ModuleDataTeams.getName(info.team) .. "]] (" .. info.goals .. ")") end
            local w_map = { [2]="двух", [3]="трёх", [4]="четырёх", [5]="пяти", [6]="шести", [7]="семи", [8]="восьми", [9]="девяти", [10]="десяти", [11]="одиннадцати" }
            local word = w_map[#player_teams_best] or tostring(#player_teams_best)
            table.insert(add, "* [[Список голов ЧТМ по сборным|Лучший бомбардир]] в истории " .. word .. " сборных: " .. table.concat(t_strs, ", ") .. ".")
        end
    end

    local player_stadiums_best = {}
    for st, info in pairs(StadiumLeaders) do
        if Config.utils.has_value(info.players, player) then table.insert(player_stadiums_best, {stadium = st, goals = info.goals}) end
    end
    if #player_stadiums_best > 0 then
        table.sort(player_stadiums_best, function(a, b) return a.goals > b.goals end)
        local s_strs = {}
        for _, info in ipairs(player_stadiums_best) do
            local g_word = (info.goals % 10 == 1 and info.goals % 100 ~= 11) and "гол" or (info.goals % 10 >= 2 and info.goals % 10 <= 4 and (info.goals % 100 < 10 or info.goals % 100 >= 20)) and "гола" or "голов"
            table.insert(s_strs, "«[[" .. info.stadium .. "]]» (" .. info.goals .. " " .. g_word .. ")")
        end
        if #player_stadiums_best == 1 then table.insert(add, "* Лучший бомбардир в истории стадиона " .. s_strs[1] .. ".")
        else table.insert(add, "* Лучший бомбардир в истории стадионов " .. format_list_with_and(s_strs) .. ".") end
    end

    local output = {}
    if #main > 0 then
        table.insert(output, "; Основные<nowiki>:</nowiki>")
        for _, item in ipairs(main) do table.insert(output, item) end
    end
    
    if #add > 0 then
        if #main > 0 then table.insert(output, "") end
        table.insert(output, "; Дополнительные<nowiki>:</nowiki>")
        for _, item in ipairs(add) do table.insert(output, item) end
    end

    return table.concat(output, "\n")
end

-- ==========================================
-- СБОРКА ТЕКСТА РЕКОРДОВ (для страницы ИГРОКА)
-- ==========================================
local function build_records_text(player)
    -- Оставлено без изменений
    local p = Players[player]
    if not p then return "" end

    local function get_val(pp, key)
        if string.sub(key, 1, 12) == "max_streaks_" then return pp.max_streaks[string.sub(key, 13)] or 0 end
        if string.sub(key, 1, 5) == "wins_" then return pp.wins[string.sub(key, 6)] or 0 end
        return pp[key]
    end

    local metrics_all = {
        {"champs", "Наибольшее число [[Список игроков-чемпионов третьего мира|чемпионских титулов]]", false},
        {"champ_captain", "Наибольшее число чемпионских титулов в качестве капитана", false},
        {"champ_streak", "Наибольшее число чемпионских титулов, выигранных подряд", false},
        {"champ_team_streak", "Наибольшее число чемпионских титулов, выигранных подряд в составе одной команды", false},
        {"superchamps", "Наибольшее число [[Суперчемпион|суперчемпионств]]", false},
        {"golden_goals", "Наибольшее число золотых голов", false},
        {"final_goals", "Наибольшее число голов в финалах", false},
        {"final_assists", "Наибольшее число голевых передач в финалах", false},
        {"final_ga", "Наибольшее число очков по системе «гол+пас» в финалах", false},
        {"max_final_goals", "Наибольшее число голов в одном финале", false},
        {"finals_played", "Наибольшее число сыгранных финалов", false},
        {"goals", "Наибольшее число забитых [[Голы|голов]]", false},
        {"max_goals_team", "Наибольшее число голов, забитых за одну сборную", true},
        {"max_goals_match", "Наибольшее число голов, забитых за один матч", false},
        {"mega_tricks", "Наибольшее число [[Мега-трики ЧТМ|мега-триков]]", false},
        {"max_mega_tricks_team", "Наибольшее число мега-триков за одну сборную", true},
        {"hat_tricks", "Наибольшее число классических мега-триков", false},
        {"pokers", "Наибольшее число покеров", false},
        {"pentas", "Наибольшее число пента-триков", false},
        {"hexas", "Наибольшее число гекса-триков", false},
        {"pens_scored", "Наибольшее число забитых пенальти", false},
        {"pens_in_game_scored", "Наибольшее число забитых пенальти в игровое время", false},
        {"max_assists_match", "Наибольшее число голевых передач за один матч", false},
        {"pm", "Наивысший [[показатель полезности]]", false, true},
        {"pts_pct", "Наивысший [[процент набранных очков]]", false, false, true},
        {"md_prizes", "Наибольшее число [[Призы игровых дней|призов игровых дней]]", false},
        {"md_places", "Наибольшее число [[Призы игровых дней|призовых мест игровых дней]]", false},
        {"assists", "Наибольшее число [[Голевые передачи|голевых передач]]", false},
        {"avg_assists", "Наивысший показатель голевых передач в среднем за один матч", false, false, true},
        {"heel_goals", "Наибольшее число [[Голы пяточкой|голов пяточкой]]", false},
        {"golden_spheres", "Наибольшее количество [[Золотой Шар|Золотых Шаров]]", false},
        {"total_spheres", "Наибольшее количество Шаров", false},
        {"golden_shoes", "Наибольшее количество [[Золотой Башмак|Золотых Башмаков]]", false},
        {"total_shoes", "Наибольшее количество Башмаков", false},
        {"wins_goals", "Наибольшее количество побед в зачёте забитых голов", false},
        {"wins_mega_tricks", "Наибольшее количество побед в зачёте мега-триков", false},
        {"wins_pm", "Наибольшее количество побед в зачёте показателя полезности", false},
        {"wins_mvp", "Наибольшее количество побед в зачёте признаний игроком матча", false},
        {"wins_mvp_goalie", "Наибольшее количество побед в зачёте признаний игроком матча в качестве вратаря", false},
        {"wins_head_goals", "Наибольшее количество побед в зачёте голов головой", false},
        {"wins_clearances", "Наибольшее количество побед в зачёте выносов из пустых", false},
        {"wins_gaa", "Наибольшее количество побед в зачёте коэффициента пропущенных голов", false},
        {"max_streaks_team_scored", "Самая продолжительная серия матчей, в каждом из которых команда игрока забивала минимум один гол", false},
        {"max_streaks_matches_played", "Самая продолжительная серия матчей, сыгранных подряд", false},
        {"max_streaks_goals", "Самая продолжительная серия матчей с забитыми голами", false},
        {"max_streaks_double", "Самая продолжительная серия матчей, в каждом из которых был оформлен минимум дубль", false},
        {"max_streaks_hat_trick", "Самая продолжительная серия матчей, в каждом из которых был оформлен минимум хет-трик", false},
        {"max_streaks_poker", "Самая продолжительная серия матчей, в каждом из которых был оформлен минимум покер", false},
        {"max_streaks_ga", "Самая продолжительная серия матчей, в которых игроку удавалось набрать хотя бы одно очко по системе «гол+пас»", false},
        {"max_streaks_missed_matches", "Наибольшее число [[Возвращения|матчей, пропущенных подряд]]", false},
        {"avg_goals", "Наивысшая [[средняя результативность]]", false, false, true},
        {"gaa", "Лучший [[коэффициент пропущенных голов]]", false, false, true, true},
        {"mvp", "Наибольшее число признаний [[Игрок матча|игроком матча]]", false},
        {"max_team_mvp", "Наибольшее число признаний игроком матча за одну сборную", true},
        {"mvp_goalie", "Наибольшее число признаний [[Игрок матча как вратарь|игроком матча в качестве вратаря]]", false},
        {"mr_points", "Наибольшее число очков [[мегарейтинг]]а", false, false, true},
        {"pens_saved", "Наибольшее число отбитых пенальти", false},
        {"matches", "Наибольшее число [[Матчи|сыгранных матчей]]", false},
        {"field_matches", "Наибольшее число матчей в поле", false},
        {"goalie_matches", "Наибольшее число матчей в воротах", false},
        {"head_goals", "Наибольшее число [[Голы головой|голов головой]]", false},
        {"clearances", "Наибольшее число [[Выносы из пустых|выносов из пустых]]", false},
        {"max_streaks_goalie_clean", "Наибольшее число матчей подряд за одну команду в качестве вратаря без пропущенных голов", true},
        {"max_streaks_team_matches", "Самая продолжительная серия матчей за одну команду", true},
        {"max_streaks_unbeaten", "Самая продолжительная беспроигрышная серия", false},
        {"max_streaks_win", "Самая продолжительная победная серия", false}
    }

    local hist = {}
    for _, row in ipairs(metrics_all) do
        local key = row[1]; local desc = row[2]; local need_team = row[3]
        local is_pm = row[4]; local is_float = row[5]; local is_min = row[6]

        local p_val = get_val(p, key)
        local global_val = GlobalRecords.AllTime[key]

        if p_val and global_val and p_val == global_val and ((not is_min and p_val > 0) or (is_min and p_val < 9999)) then
            local val_str = tostring(p_val)
            if is_float then val_str = string.format("%.2f", p_val):gsub("%.00$", ""):gsub("%.(%d)0$", ".%1"):gsub("%.", ",")
            elseif is_pm then val_str = (p_val > 0 and "«+" .. p_val .. "»") or "«" .. p_val .. "»" end
            
            if need_team then
                local t_code = p[key .. "_code"] or ""
                val_str = val_str .. " ([[" .. ModuleDataTeams.getName(t_code) .. "]])"
            end
            if key == "final_ga" then val_str = val_str .. " (" .. p.final_goals .. "+" .. p.final_assists .. ")" end

            table.insert(hist, "* " .. desc .. " — " .. val_str .. ".")
        end
    end

    local hc = get_hardcoded_historical(player)
    if hc then
        for line in hc:gmatch("[^\r\n]+") do table.insert(hist, "* " .. line:gsub("^%*?%s*", "")) end
    end

    local metrics_tourney = {
        {"goals", "Наибольшее число [[Голы|голов]]", false},
        {"max_goals_team", "Наибольшее число голов за одну команду", true},
        {"mega_tricks", "Наибольшее число [[Мега-трики|мега-триков]]", false},
        {"pm", "Наивысший [[показатель полезности]]", false, true},
        {"matches", "Наибольшее число [[Матчи|сыгранных матчей]]", false},
        {"pts_pct", "Наивысший [[процент набранных очков]]", false, false, true},
        {"md_prizes", "Наибольшее число [[Призы игровых дней|призов игровых дней]]", false},
        {"md_places", "Наибольшее число [[Призы игровых дней|призовых мест игровых дней]]", false},
        {"heel_goals", "Наибольшее число [[Голы пяточкой|голов пяточкой]]", false},
        {"mvp", "Наибольшее число признаний [[Игрок матча|игроком матча]]", false},
        {"max_team_mvp", "Наибольшее число признаний игроком матча за одну сборную", true},
        {"playoff_wins", "Наибольшее число [[Победы в плей-офф|побед в плей-офф]]", false},
        {"head_goals", "Наибольшее число [[Голы головой|голов головой]]", false},
        {"clearances", "Наибольшее число [[Выносы из пустых|выносов из пустых]]", false},
        {"gaa", "Лучший [[коэффициент пропущенных голов]]", false, false, true, true},
        {"playoff_goals", "Наибольшее число [[Голы в плей-офф|голов в плей-офф]]", false},
        {"winning_goals", "Наибольшее число [[Победные голы|победных голов]]", false},
        {"avg_goals", "Наивысшая [[средняя результативность]]", false, false, true},
        {"max_team_assists", "Наибольшее число [[Голевые передачи|голевых передач]] за одну команду", true},
        {"mvp_goalie", "Наибольшее число признаний игроком матча в качестве вратаря", false},
        {"mr_points", "Наибольшее число очков [[мегарейтинг]]а", false, false, true},
        {"assists", "Наибольшее число [[Голевые передачи|голевых передач]]", false},
        {"avg_assists", "Наивысший показатель голевых передач в среднем за один матч", false, false, true},
        {"ga", "Наибольшее число очков по системе «гол+пас»", false},
        {"max_team_ga", "Наибольшее число очков по системе «гол+пас» за одну команду", true}
    }

    local tourney = {}
    for _, row in ipairs(metrics_tourney) do
        local key = row[1]; local desc = row[2]; local need_team = row[3]
        local is_pm = row[4]; local is_float = row[5]; local is_min = row[6]

        local global_val = GlobalRecords.PerTournament[key]
        local hits = {}
        for _, t in pairs(p.tournaments) do
            local v = t[key]
            if key == "gaa" and t.goalie_matches < 5 then v = nil end
            if (key == "pts_pct" or key == "avg_goals" or key == "avg_assists") and t.field_matches < 10 then v = nil end

            if v and v == global_val and ((not is_min and v > 0) or (is_min and v < 9999)) then
                local str = tostring(t.year)
                if need_team then str = str .. ", [[" .. ModuleDataTeams.getName(t[key .. "_code"] or "") .. "]]" end
                table.insert(hits, str)
            end
        end

        if #hits > 0 then
            table.sort(hits)
            local val_str = tostring(global_val)
            if is_float then val_str = string.format("%.2f", global_val):gsub("%.00$", ""):gsub("%.(%d)0$", ".%1"):gsub("%.", ",")
            elseif is_pm then val_str = (global_val > 0 and "«+" .. global_val .. "»") or "«" .. global_val .. "»" end

            if key == "ga" then
                local first_t = p.tournaments[tonumber(string.match(hits[1], "%d+"))]
                val_str = val_str .. " (" .. first_t.goals .. "+" .. first_t.assists .. ")"
            elseif key == "max_team_ga" then
                local first_t = p.tournaments[tonumber(string.match(hits[1], "%d+"))]
                local tc = first_t.max_team_ga_code
                val_str = val_str .. " (" .. (first_t.team_goals[tc] or 0) .. "+" .. (first_t.team_assists[tc] or 0) .. ")"
            end

            table.insert(tourney, "* " .. desc .. " — " .. val_str .. " (" .. table.concat(hits, "; ") .. ").")
        end
    end

    local output = {}
    if #hist > 0 then
        table.insert(output, "; Исторические<nowiki>:</nowiki>")
        for _, h in ipairs(hist) do table.insert(output, h) end
    end
    if #tourney > 0 then
        if #hist > 0 then table.insert(output, "") end
        table.insert(output, "; За один турнир<nowiki>:</nowiki>")
        for _, t in ipairs(tourney) do table.insert(output, t) end
    end

    return table.concat(output, "\n")
end

-- ==========================================
-- ОСНОВНЫЕ ИСПОЛНИТЕЛЬНЫЕ ФУНКЦИИ
-- ==========================================
function PlayerAchievements.main(frame)
    local player = frame.args[1] or frame.args["игрок"] or ""
    player = mw.text.trim(player)
    if player == "" then return "" end

    initialize_data()
    
    local output = {}
    local ach_text = build_achievements_text(player)
    if ach_text and ach_text ~= "" then
        table.insert(output, "== Достижения ==")
        table.insert(output, ach_text)
    end

    local rec_text = build_records_text(player)
    if rec_text and rec_text ~= "" then
        if #output > 0 then table.insert(output, "") end
        table.insert(output, "== Рекорды ==")
        table.insert(output, "<small>'''Примечание'''. Все рекорды указаны на момент завершения [[ЧТМ-" .. Config.years[#Config.years] .. "]].</small>")
        table.insert(output, rec_text)
    end

    return table.concat(output, "\n")
end

-- ==========================================
-- НОВАЯ ФУНКЦИЯ ДЛЯ ГЕНЕРАЦИИ ПОЛНОЙ СТРАНИЦЫ
-- ==========================================
function PlayerAchievements.debug_records_page(frame)
    initialize_data()

    local all_players = {}
    for _, p in pairs(Players) do
        table.insert(all_players, p)
    end

    local all_tournaments = {}
    for _, p in pairs(Players) do
        for _, t in pairs(p.tournaments) do
            t.name = p.name
            table.insert(all_tournaments, t)
        end
    end

    local out = {}
    local function add_h2(text) table.insert(out, "== " .. text .. " ==") end
    local function add_h3(text) table.insert(out, "=== " .. text .. " ===") end
    local function add_h4(text) table.insert(out, "==== " .. text .. " ====") end
    local function add_sep() table.insert(out, "----") end

    -- Вспомогательная функция для сборки ТОП-4 (с учётом равенств)
    local function render_top_4(list, val_func, fmt_func, is_min)
        local valid_items = {}
        for _, item in ipairs(list) do
            local val = val_func(item)
            if val and val ~= 0 and ((not is_min and val > 0) or (is_min and val < 9999)) then
                table.insert(valid_items, {item = item, val = val})
            end
        end
        table.sort(valid_items, function(a, b)
            if is_min then return a.val < b.val end
            return a.val > b.val
        end)

        if #valid_items == 0 then return "* ''Нет данных''\n" end

        local result = {}
        local current_rank = 1
        local current_val = valid_items[1].val
        local tie_count = 0

        for i, v_item in ipairs(valid_items) do
            if v_item.val ~= current_val then
                current_rank = current_rank + tie_count
                current_val = v_item.val
                tie_count = 1
            else
                if i > 1 then tie_count = tie_count + 1 end
            end

            if current_rank > 4 then break end

            local is_first = (current_val == valid_items[1].val)
            table.insert(result, fmt_func(v_item.item, is_first, v_item.val))
        end
        return table.concat(result, "\n")
    end

    -- Форматтеры
    local function format_val(val, is_float, is_pm)
        if is_float then
            return string.format("%.2f", val):gsub("%.00$", ""):gsub("%.(%d)0$", ".%1"):gsub("%.", ",")
        elseif is_pm then
            return (val > 0 and "«+" .. val .. "»") or "«" .. val .. "»"
        end
        return tostring(val)
    end

    local function fmt_at(p, is_first, val, is_float, is_pm)
        local v = format_val(val, is_float, is_pm)
        if is_first then return "* '''<u>[[" .. p.name .. "]]</u> (" .. v .. ")'''"
        else return "* [[" .. p.name .. "]] (" .. v .. ")" end
    end

    local function fmt_at_t(p, is_first, val, team_code)
        local v = val .. ", [[" .. ModuleDataTeams.getName(team_code) .. "]]"
        if is_first then return "* '''<u>[[" .. p.name .. "]]</u> (" .. v .. ")'''"
        else return "* [[" .. p.name .. "]] (" .. v .. ")" end
    end

    local function fmt_tour(t, is_first, val, is_float, is_pm)
        local v = format_val(val, is_float, is_pm)
        local y = string.sub(tostring(t.year), 3, 4)
        if is_first then return "* '''<u>[[" .. t.name .. "]]</u><sup>[['" .. y .. "]]</sup> (" .. v .. ")'''"
        else return "* [[" .. t.name .. "]]<sup>[['" .. y .. "]]</sup> (" .. v .. ")" end
    end
    
    local function fmt_tour_t(t, is_first, val, team_code)
        local v = val .. ", [[" .. ModuleDataTeams.getName(team_code) .. "]]"
        local y = string.sub(tostring(t.year), 3, 4)
        if is_first then return "* '''<u>[[" .. t.name .. "]]</u><sup>[['" .. y .. "]]</sup> (" .. v .. ")'''"
        else return "* [[" .. t.name .. "]]<sup>[['" .. y .. "]]</sup> (" .. v .. ")" end
    end

    local function add_block(title, list, val_func, fmt_wrapper, is_min)
        table.insert(out, "; " .. title)
        table.insert(out, render_top_4(list, val_func, fmt_wrapper, is_min))
    end

    -- =======================================
    -- СБОРКА СТРАНИЦЫ
    -- =======================================

    add_h2("Исторические рекорды")
    
    add_h3("Финалы")
    add_block("[[Список игроков-чемпионов третьего мира|Чемпионские титулы]]", all_players, function(p) return p.champs end, fmt_at)
    add_block("Чемпионские титулы в качестве капитана", all_players, function(p) return p.champ_captain end, fmt_at)
    add_block("[[Суперчемпионство|Суперчемпионства]]", all_players, function(p) return p.superchamps end, fmt_at)
    add_block("Чемпионские титулы, выигранные подряд", all_players, function(p) return p.champ_streak end, fmt_at)
    add_block("Чемпионские титулы, выигранные подряд в составе одной команды", all_players, function(p) return p.champ_team_streak end, fmt_at)
    add_sep()
    add_block("Золотые голы", all_players, function(p) return p.golden_goals end, fmt_at)
    add_sep()
    add_block("Голы в финалах", all_players, function(p) return p.final_goals end, fmt_at)
    add_sep()
    add_block("Голы в одном финале", all_players, function(p) return p.max_final_goals end, fmt_at)
    add_sep()
    add_block("Голевые передачи в финалах", all_players, function(p) return p.final_assists end, fmt_at)
    add_sep()
    add_block("Гол + пас в финалах", all_players, function(p) return p.final_ga end, function(p, is_first, val)
        local v = val .. " (" .. p.final_goals .. "+" .. p.final_assists .. ")"
        if is_first then return "* '''<u>[[" .. p.name .. "]]</u> — " .. v .. "'''"
        else return "* [[" .. p.name .. "]] — " .. v end
    end)
    add_sep()
    add_block("Сыгранные финалы", all_players, function(p) return p.finals_played end, fmt_at)
    add_sep()
    add_block("Признание лучшим игроком финала", all_players, function(p) return p.mvp_final end, fmt_at)

    add_h3("Статистические показатели")
    add_h4("За всю историю")
    add_block("[[Голы|Забитые голы]]", all_players, function(p) return p.goals end, fmt_at)
    add_block("[[Список бомбардиров ЧТМ по сборным|Забитые голы за одну сборную]]", all_players, function(p) return p.max_goals_team end, function(p, f, v) return fmt_at_t(p, f, v, p.max_goals_team_code) end)
    add_sep()
    add_block("Признание [[Список лучших игроков всех матчей ЧТМ|игроком матча]]", all_players, function(p) return p.mvp end, fmt_at)
    add_block("Признание [[Список лучших игроков матчей ЧТМ по сборным (таблица)|игроком матча за одну сборную]]", all_players, function(p) return p.max_team_mvp end, function(p, f, v) return fmt_at_t(p, f, v, p.max_team_mvp_code) end)
    add_block("Признание [[Игрок матча как вратарь|игроком матча в качестве вратаря]]", all_players, function(p) return p.mvp_goalie end, fmt_at)
    add_sep()
    add_block("Наивысшая индивидуальная результативность за матч", all_players, function(p) return p.max_goals_match end, fmt_at)
    add_block("[[Мега-трики ЧТМ|<abbr title=\"Количество раз, когда игрок забивал три и более голов в одном матче\">Мега-трики</abbr>]]", all_players, function(p) return p.mega_tricks end, fmt_at)
    add_block("[[Список мега-триков ЧТМ#Два и более мега-трика за одну сборную|Мега-трики за одну сборную]]", all_players, function(p) return p.max_mega_tricks_team end, function(p, f, v) return fmt_at_t(p, f, v, p.max_mega_tricks_team_code) end)
    add_block("[[Список мега-триков ЧТМ#Классические мега-трики|<abbr title=\"Количество раз, когда игрок забивал три и более голов подряд\">Классические мега-трики</abbr>]]", all_players, function(p) return p.hat_tricks end, fmt_at)
    add_block("<abbr title=\"Количество раз, когда игрок забивал четыре и более голов в одном матче\">Покеры</abbr>", all_players, function(p) return p.pokers end, fmt_at)
    add_block("<abbr title=\"Количество раз, когда игрок забивал пять и более голов в одном матче\">Пента-трики</abbr>", all_players, function(p) return p.pentas end, fmt_at)
    add_block("<abbr title=\"Количество раз, когда игрок забивал шесть и более голов в одном матче\">Гекса-трики</abbr>", all_players, function(p) return p.hexas end, fmt_at)
    add_sep()
    add_block("Очки [[мегарейтинг]]а", all_players, function(p) return p.mr_points end, function(p, f, v) return fmt_at(p, f, v, true, false) end)
    add_sep()
    add_block("Забитые [[пенальти]]", all_players, function(p) return p.pens_scored end, fmt_at)
    add_block("Забитые [[Пенальти#Только в игровое время|пенальти в игровое время]]", all_players, function(p) return p.pens_in_game_scored end, fmt_at)
    add_block("[[Пенальти#Отбитые пенальти|Отбитые пенальти]]", all_players, function(p) return p.pens_saved end, fmt_at)
    add_sep()
    add_block("[[Возвращения|Паузы между матчами (в матчах)]]", all_players, function(p) return p.max_streaks.missed_matches end, fmt_at)
    add_sep()
    add_block("[[Вратарские голы]]", all_players, function(p) return p.goalie_goals end, fmt_at)

    add_h4("Начиная с [[ЧТМ-2022]]")
    add_block("[[Показатель полезности]]", all_players, function(p) return p.pm end, function(p, f, v) return fmt_at(p, f, v, false, true) end)
    add_sep()
    add_block("[[Матчи|Сыгранные матчи]]", all_players, function(p) return p.matches end, fmt_at)
    add_block("Матчи в поле", all_players, function(p) return p.field_matches end, fmt_at)
    add_block("Матчи в воротах", all_players, function(p) return p.goalie_matches end, fmt_at)
    add_sep()
    add_block("[[Средняя результативность]] ''(не менее 20 матчей в поле)''", all_players, function(p) return p.avg_goals end, function(p, f, v) return fmt_at(p, f, v, true, false) end)
    add_sep()
    add_block("[[Процент набранных очков]] ''(не менее 20 матчей)''", all_players, function(p) return p.pts_pct end, function(p, f, v) return fmt_at(p, f, v, true, false) end)
    add_sep()
    add_block("[[Призы игровых дней]]", all_players, function(p) return p.md_prizes end, fmt_at)
    add_block("[[Призы игровых дней#Призовые места игровых дней|Призовые места игровых дней]]", all_players, function(p) return p.md_places end, fmt_at)
    add_sep()
    add_block("[[Голы головой]]", all_players, function(p) return p.head_goals end, fmt_at)
    add_sep()
    add_block("[[Выносы из пустых]]", all_players, function(p) return p.clearances end, fmt_at)
    add_sep()
    add_block("[[Коэффициент пропущенных голов]] ''(не менее 20 матчей в воротах)''", all_players, function(p) return p.gaa end, function(p, f, v) return fmt_at(p, f, v, true, false) end, true)

    add_h4("Начиная с [[ЧТМ-2026]]")
    add_block("[[Передачи|Голевые передачи]]", all_players, function(p) return p.assists end, fmt_at)
    add_block("Наибольшее число голевых передач за матч", all_players, function(p) return p.max_assists_match end, fmt_at)
    add_block("Голевые передачи (в среднем за матч, ''не менее 20 матчей в поле'')", all_players, function(p) return p.avg_assists end, function(p, f, v) return fmt_at(p, f, v, true, false) end)
    add_sep()
    add_block("[[Голы пяточкой]]", all_players, function(p) return p.heel_goals end, fmt_at)

    add_h3("Индивидуальные призы")
    add_h4("За всю историю")
    add_block("[[Золотой Шар|Золотые Шары]]", all_players, function(p) return p.golden_spheres end, fmt_at)
    add_block("Всего Шаров", all_players, function(p) return p.total_spheres end, fmt_at)
    add_sep()
    add_block("[[Золотой Башмак|Золотые Башмаки]]", all_players, function(p) return p.golden_shoes end, fmt_at)
    add_block("Всего Башмаков", all_players, function(p) return p.total_shoes end, fmt_at)
    add_sep()
    add_block("Победы в зачёте забитых голов", all_players, function(p) return p.wins.goals end, fmt_at)
    add_sep()
    add_block("Победы в зачёте мега-триков", all_players, function(p) return p.wins.mega_tricks end, fmt_at)
    add_sep()
    add_block("Победы в зачёте MVP", all_players, function(p) return p.wins.mvp end, fmt_at)
    add_block("Победы в зачёте MVP в качестве вратаря", all_players, function(p) return p.wins.mvp_goalie end, fmt_at)

    add_h4("Начиная с [[ЧТМ-2022]]")
    add_block("Победы в зачёте показателя полезности", all_players, function(p) return p.wins.pm end, fmt_at)
    add_sep()
    add_block("Победы в зачёте голов головой", all_players, function(p) return p.wins.head_goals end, fmt_at)
    add_sep()
    add_block("Победы в зачёте выносов из пустых", all_players, function(p) return p.wins.clearances end, fmt_at)
    add_sep()
    add_block("Победы в зачёте коэффициента пропущенных голов", all_players, function(p) return p.wins.gaa end, fmt_at)

    add_h2("Рекорды за один турнир")
    add_h3("За всю историю")
    add_block("Забитые голы", all_tournaments, function(t) return t.goals end, fmt_tour)
    add_block("Забитые [[голы в плей-офф]]", all_tournaments, function(t) return t.playoff_goals end, fmt_tour)
    add_block("Забитые голы за одну команду", all_tournaments, function(t) return t.max_goals_team end, function(t, f, v) return fmt_tour_t(t, f, v, t.max_goals_team_code) end)
    add_block("[[Победные голы]]", all_tournaments, function(t) return t.winning_goals end, fmt_tour)
    add_sep()
    add_block("Признание игроком матча", all_tournaments, function(t) return t.mvp end, fmt_tour)
    add_block("Признание игроком матча за одну сборную", all_tournaments, function(t) return t.max_team_mvp end, function(t, f, v) return fmt_tour_t(t, f, v, t.max_team_mvp_code) end)
    add_block("Признание игроком матча в качестве вратаря", all_tournaments, function(t) return t.mvp_goalie end, fmt_tour)
    add_sep()
    add_block("Мега-трики", all_tournaments, function(t) return t.mega_tricks end, fmt_tour)
    add_sep()
    add_block("Очки [[мегарейтинг]]а", all_tournaments, function(t) return t.mr_points end, function(t, f, v) return fmt_tour(t, f, v, true, false) end)

    add_h3("Начиная с [[ЧТМ-2022]]")
    add_block("Показатель полезности", all_tournaments, function(t) return t.pm end, function(t, f, v) return fmt_tour(t, f, v, false, true) end)
    add_sep()
    add_block("Сыгранные матчи", all_tournaments, function(t) return t.matches end, fmt_tour)
    add_sep()
    add_block("Средняя результативность ''(не менее 10 матчей в поле)''", all_tournaments, function(t) return t.avg_goals end, function(t, f, v) return fmt_tour(t, f, v, true, false) end)
    add_sep()
    add_block("Процент набранных очков ''(не менее 10 матчей в поле)''", all_tournaments, function(t) return t.pts_pct end, function(t, f, v) return fmt_tour(t, f, v, true, false) end)
    add_sep()
    add_block("[[Победы в плей-офф]]", all_tournaments, function(t) return t.playoff_wins end, fmt_tour)
    add_sep()
    add_block("[[Призы игровых дней]]", all_tournaments, function(t) return t.md_prizes end, fmt_tour)
    add_block("[[Призы игровых дней#Призовые места игровых дней|Призовые места игровых дней]]", all_tournaments, function(t) return t.md_places end, fmt_tour)
    add_sep()
    add_block("Голы головой", all_tournaments, function(t) return t.head_goals end, fmt_tour)
    add_sep()
    add_block("Выносы из пустых", all_tournaments, function(t) return t.clearances end, fmt_tour)
    add_sep()
    add_block("Голы пяточкой", all_tournaments, function(t) return t.heel_goals end, fmt_tour)
    add_sep()
    add_block("[[Коэффициент пропущенных голов]] ''(не менее 5 матчей в воротах)''", all_tournaments, function(t) return t.gaa end, function(t, f, v) return fmt_tour(t, f, v, true, false) end, true)

    add_h3("Начиная с [[ЧТМ-2026]]")
    add_block("Голевые передачи", all_tournaments, function(t) return t.assists end, fmt_tour)
    add_block("Голевые передачи за одну команду", all_tournaments, function(t) return t.max_team_assists end, function(t, f, v) return fmt_tour_t(t, f, v, t.max_team_assists_code) end)
    add_block("Голевые передачи (в среднем за матч)", all_tournaments, function(t) return t.avg_assists end, function(t, f, v) return fmt_tour(t, f, v, true, false) end)
    add_sep()
    add_block("Гол + пас", all_tournaments, function(t) return t.ga end, function(t, f, v) 
        local val = v .. " (" .. t.goals .. "+" .. t.assists .. ")"
        if f then return "* '''<u>[[" .. t.name .. "]]</u><sup>[['" .. string.sub(tostring(t.year), 3, 4) .. "]]</sup> (" .. val .. ")'''"
        else return "* [[" .. t.name .. "]]<sup>[['" .. string.sub(tostring(t.year), 3, 4) .. "]]</sup> (" .. val .. ")" end
    end)
    add_block("Гол + пас за одну команду", all_tournaments, function(t) return t.max_team_ga end, function(t, f, v) 
        local tc = t.max_team_ga_code
        local g = t.team_goals[tc] or 0
        local a = t.team_assists[tc] or 0
        local val = v .. " (" .. g .. "+" .. a .. "), [[" .. ModuleDataTeams.getName(tc) .. "]]"
        if f then return "* '''<u>[[" .. t.name .. "]]</u><sup>[['" .. string.sub(tostring(t.year), 3, 4) .. "]]</sup> (" .. val .. ")'''"
        else return "* [[" .. t.name .. "]]<sup>[['" .. string.sub(tostring(t.year), 3, 4) .. "]]</sup> (" .. val .. ")" end
    end)

        add_h2("Рекордные серии матчей")
    
        local function render_streaks_top_4(title, streak_list)
        if not streak_list or #streak_list == 0 then return end
        
        -- Сортировка: длина (убывание), свежесть (меньший год выше), имя
        table.sort(streak_list, function(a, b)
            if a.len ~= b.len then return a.len > b.len end
            if a.end_year ~= b.end_year then return a.end_year < b.end_year end
            return a.player < b.player
        end)
        
        table.insert(out, "; " .. title)
        
        local valid_items = {}
        for _, s in ipairs(streak_list) do
            if s.len > 0 then table.insert(valid_items, s) end
        end
        if #valid_items == 0 then table.insert(out, "* ''Нет данных''\n"); return end
        
        local result = {}
        local current_rank = 1
        local current_val = valid_items[1].len
        local tie_count = 1
        
        for i, s in ipairs(valid_items) do
            if i > 1 then
                if s.len ~= current_val then
                    current_rank = current_rank + tie_count
                    current_val = s.len
                    tie_count = 1
                else
                    tie_count = tie_count + 1
                end
            end
            
            if current_rank > 4 then break end
            
            local is_first = (current_val == valid_items[1].len)
            local active_str = s.is_active and ", серия продолжается" or ""
            local year_str = (s.start_year == s.end_year) and tostring(s.start_year) or (s.start_year .. "—" .. s.end_year)
            
            local team_str = ""
            if s.team then
                team_str = " (" .. ModuleDataTeams.getName(s.team) .. ")"
            end
            
            local text = string.format("[[%s]]%s — %d (%s%s)", s.player, team_str, s.len, year_str, active_str)
            
            if is_first then
                table.insert(result, "* '''<u>" .. text .. "</u>'''")
            else
                table.insert(result, "* " .. text)
            end
        end
        table.insert(out, table.concat(result, "\n"))
    end

    render_streaks_top_4("Матчи, сыгранные подряд", GlobalStreaks.all_completed["seq"])
    render_streaks_top_4("Серия матчей за одну команду", GlobalStreaks.all_team_completed)
    render_streaks_top_4("Победная серия", GlobalStreaks.all_completed["win"])
    render_streaks_top_4("Беспроигрышная серия", GlobalStreaks.all_completed["unbeaten"])
    render_streaks_top_4("Серия забитых голов", GlobalStreaks.all_completed["goals"])
    render_streaks_top_4("Серия дублей", GlobalStreaks.all_completed["double"])
    render_streaks_top_4("Серия хет-триков", GlobalStreaks.all_completed["hat_trick"])
    render_streaks_top_4("Серия покеров", GlobalStreaks.all_completed["poker"])
    render_streaks_top_4("Серия матчей, в которых команда игрока забивала голы", GlobalStreaks.all_completed["team_scored"])
    render_streaks_top_4("Серия матчей без пропуска (вратарь)", GlobalStreaks.all_goalie_completed)
    render_streaks_top_4("Серия матчей с хотя бы 1 очком гол+пас", GlobalStreaks.all_completed["ga"])
    render_streaks_top_4("Серия матчей с хотя бы 1 голом и 1 пасом", GlobalStreaks.all_completed["both_ga"])

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

return PlayerAchievements