Модуль:Песочница/Pok

Для документации этого модуля может быть создана страница Модуль:Песочница/Pok/doc

local p = {}

-----------------------------
-- Функция для «очистки» JSON
-----------------------------
local function cleanJSON(json)
    -- Удаляем запятую перед закрывающей квадратной скобкой (конец массива)
    json = json:gsub(",%s*%]", "]")
    -- Удаляем запятую перед закрывающей фигурной скобкой (конец объекта)
    json = json:gsub(",%s*%}", "}")
    return json
end

---------------------------------------------
-- Функция для загрузки и парсинга JSON-файла
---------------------------------------------
local function loadJSONData(pageName)
    local title = mw.title.new(pageName)
    if not title then 
        return {} 
    end
    local jsonData = title:getContent() or ""
    jsonData = cleanJSON(jsonData)
    local success, data = pcall(mw.text.jsonDecode, jsonData)
    if success and type(data) == "table" then 
        return data 
    else
        return {}
    end
end

-----------------------------------------------------------
-- Загрузка данных: заменяем mw.loadData на loadJSONData()
-----------------------------------------------------------
local latheData    = loadJSONData("User:IanComradeBot/prototypes/lathe.json")
local recipeData   = loadJSONData("User:IanComradeBot/prototypes/lathe/recipes.json")
local researchData = loadJSONData("User:IanComradeBot/prototypes/research.json")
local materialData = loadJSONData("User:IanComradeBot/prototypes/materials.json")
local chemData     = loadJSONData("User:IanComradeBot/chem prototypes.json")

-----------------------------------------------------------
-- Функция для форматирования времени
-----------------------------------------------------------
local function format_seconds_to_short_string(input_seconds)
    local minutes = math.floor(input_seconds / 60)
    local seconds = input_seconds % 60

    local minutes_part = minutes > 0 and (minutes .. " мин.") or nil
    local seconds_part = seconds > 0 and (seconds .. " сек.") or nil

    if minutes_part and seconds_part then
        return minutes_part .. " " .. seconds_part
    elseif seconds_part then
        return seconds_part
    elseif minutes_part then
        return minutes_part
    else
        return '0 сек.'
    end
end

-----------------------------------------------------------
-- Функция для сортировки рецептов
-----------------------------------------------------------
local function sortRecipesByPriority(recipes)
    table.sort(recipes, function(a, b)
        local priority = { Static = 1, EMAG = 3 }
        local aPriority = priority[a.discipline] or 2
        local bPriority = priority[b.discipline] or 2

        if a.isEmag ~= b.isEmag then
            return not a.isEmag
        end

        if aPriority == bPriority then
            if a.tier == b.tier then
                return a.discipline < b.discipline
            end
            return a.tier < b.tier
        end

        return aPriority < bPriority
    end)
end

-----------------------------------------------------------
-- Основная функция модуля
-----------------------------------------------------------
function p.main(frame)
    -- Подключение CSS
    local cssLink = frame:extensionTag('templatestyles', '', {
        src = 'Шаблон:Prototypes/Машина/Станок/styles.css'
    })

    local latheId = frame.args[1] or ""
    if latheId == "" then
        return '<div style="color:red;">Не указан ID станка.</div>'
    end

    local lathe = nil
    for _, data in ipairs(latheData) do
        if data.id == latheId then
            lathe = data
            break
        end
    end

    if not lathe then
        return '<div style="color:red;">Станок с ID "' .. latheId .. '" не найден.</div>'
    end

    local materialMapping = {}
    for _, material in ipairs(materialData) do
        if material.id then
            materialMapping[material.id] = material.stackEntity or material.id or material.name
        end
    end

    local chemMapping = {}
    for id, chem in pairs(chemData) do
        chemMapping[id] = chem.name
    end

    local out = cssLink
    local recipes = {}

    local function getRecipeDetails(recipeId)
        for _, recipe in ipairs(recipeData) do
            if recipe.id == recipeId then
                return recipe
            end
        end
        return nil
    end

    local function findInResearch(recipeId)
        for _, research in ipairs(researchData) do
            if research.technology and research.technology.recipeUnlocks then
                for _, unlock in ipairs(research.technology.recipeUnlocks) do
                    if unlock == recipeId then
                        return {
                            name = research.technology.name,
                            tier = research.technology.tier,
                            discipline = research.technology.discipline
                        }
                    end
                end
            end
        end
        return nil
    end

    -- Обработка staticRecipes
    if lathe.Lathe and lathe.Lathe.staticRecipes then
        for _, recipeId in ipairs(lathe.Lathe.staticRecipes) do
            local recipe = getRecipeDetails(recipeId)
            if recipe and recipe.result then
                table.insert(recipes, {
                    result = recipe.result,
                    completetime = recipe.completetime,
                    materials = recipe.materials,
                    discipline = "Static",
                    tier = 0
                })
            elseif recipe and recipe.resultReagents then
                for reagent, amount in pairs(recipe.resultReagents) do
                    local reagentName = chemMapping[reagent] or reagent
                    table.insert(recipes, {
                        result = reagentName .. "|amount=" .. amount .. "ед.|mode-chem=1",
                        completetime = recipe.completetime,
                        materials = recipe.materials,
                        discipline = "Static",
                        tier = 0
                    })
                    break 
                end
            else
                out = out .. '<div style="color:red;">Ошибка: Рецепт с ID "' .. recipeId .. '" не найден или поля result/resultReagents отсутствуют.</div>'
            end
        end
    end

    -- Обработка dynamicRecipes
    if lathe.Lathe and lathe.Lathe.dynamicRecipes then
        for _, recipeId in ipairs(lathe.Lathe.dynamicRecipes) do
            local recipe = getRecipeDetails(recipeId)
            if recipe then
                local researchInfo = findInResearch(recipeId)
                if researchInfo then
                    table.insert(recipes, {
                        result = recipe.result,
                        completetime = recipe.completetime,
                        materials = recipe.materials,
                        discipline = researchInfo.discipline,
                        tier = researchInfo.tier,
                        researchName = researchInfo.name
                    })
                end
            end
        end
    end

    -- Обработка emagStaticRecipes
    if lathe.EmagLatheRecipes and lathe.EmagLatheRecipes.emagStaticRecipes then
        for _, recipeId in ipairs(lathe.EmagLatheRecipes.emagStaticRecipes) do
            local recipe = getRecipeDetails(recipeId)
            if recipe then
                table.insert(recipes, {
                    result = recipe.result,
                    completetime = recipe.completetime,
                    materials = recipe.materials,
                    discipline = "Static",
                    tier = 0,
                    isEmag = true
                })
            end
        end
    end

    -- Обработка emagDynamicRecipes 
    if lathe.EmagLatheRecipes and lathe.EmagLatheRecipes.emagDynamicRecipes then
        for _, recipeId in ipairs(lathe.EmagLatheRecipes.emagDynamicRecipes) do
            local recipe = getRecipeDetails(recipeId)
            if recipe then
                local researchInfo = findInResearch(recipeId)
                if researchInfo then
                    table.insert(recipes, {
                        result = recipe.result,
                        completetime = recipe.completetime,
                        materials = recipe.materials,
                        discipline = researchInfo.discipline,
                        tier = researchInfo.tier,
                        researchName = researchInfo.name,
                        isEmag = true
                    })
                end
            end
        end
    end

    sortRecipesByPriority(recipes)

    -- Таблица для перевода названий дисциплин
    local disciplineMapping = {
        Arsenal = "Арсенал",
        Industrial = "Промышленность",
        Experimental = "Экспериментальное",
        CivilianServices = "Обслуживание персонала"
    }

    -- Таблица для цветов по уровням
    local tierColors = {
        [1] = "#54d554",
        [2] = "#ed9000",
        [3] = "#d72a2a"
    }

    local materialUseMultiplier = (lathe.Lathe and lathe.Lathe.materialUseMultiplier) or 1
    local timeMultiplier = (lathe.Lathe and lathe.Lathe.timeMultiplier) or 1

    for _, recipe in ipairs(recipes) do
        local scaledTime = format_seconds_to_short_string(recipe.completetime * timeMultiplier)
        out = out .. '{{Шаблон:Prototypes/Машина/Станок|product=' .. recipe.result
        out = out .. '|complete-time=' .. scaledTime
        out = out .. '|materials='

        if type(recipe.materials) == "table" and next(recipe.materials) then
            for material, amount in pairs(recipe.materials) do
                local stackEntity = materialMapping[material] or material
                local scaledAmount = (amount * materialUseMultiplier) / 100
                out = out .. '<b>[[File:' .. stackEntity .. '.png|32x32px|link=]] ' .. scaledAmount .. ' {{#invoke:Entity Lookup|getname|' .. stackEntity .. '}}</b>'
            end
        else
            out = out .. 'Нет данных о материалах'
        end

        -- Информация об исследовании
        if recipe.discipline ~= "Static" then
            local tierColor = tierColors[recipe.tier] or "#FFFFFF"
            local disciplineName = disciplineMapping[recipe.discipline] or "Неизвестная дисциплина"

            out = out .. '|info=<div style="font-weight:600;"><span style="margin:8px;">[[File:' .. recipe.discipline .. '.png|16x16px|link=]]</span> [[Руководство по исследованию и разработке|' .. disciplineName
            out = out .. ']], уровень: <span style="color: ' .. tierColor .. '">' .. recipe.tier .. '</span> </div>'
        end

        -- Пометка при взломе EMAG
        if recipe.isEmag then
            out = out .. '|mode-emag=1'
        end

        -- Пометка для исследуемой технологии
        if recipe.discipline ~= "Static" then
            out = out .. '|mode-research=1'
        end

        out = out .. '}}'
    end

    return mw.getCurrentFrame():preprocess(out)
end

return p