Space Station 14 Вики

Модуль:Песочница/Pok: различия между версиями

Интерактивная навигация по истории
← Предыдущая правка
мНет описания правки
Нет описания правки
 
(не показаны 253 промежуточные версии этого же участника)
Строка 1: Строка 1:
local p = {}
local p = {}
local getArgs = require('Module:Arguments').getArgs
local JsonPaths = require('Module:JsonPaths')


-----------------------------------------------------------
local dpOk, dpModule = pcall(require, "Module:GetField")
-- Загрузка данных
local dp = dpOk and dpModule or nil
-----------------------------------------------------------
local latheData    = mw.loadData("Модуль:IanComradeBot/prototypes/lathe.json/data")
local recipeData  = mw.loadData("Модуль:IanComradeBot/prototypes/lathe/recipes.json/data")
local researchData = mw.loadData("Модуль:IanComradeBot/prototypes/research.json/data")
local materialData = mw.loadData("Модуль:IanComradeBot/prototypes/materials.json/data")
local chemData    = mw.loadData("Модуль:IanComradeBot/chem prototypes.json/data")


-----------------------------------------------------------
local switchModeRegistry = {}
-- Функция для форматирования времени
local switchModeOrder = {}
-----------------------------------------------------------
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 function trim(s)
     local seconds_part = seconds > 0 and (seconds .. " сек.") or nil
     if not s then return s end
    return (s:gsub("^%s*(.-)%s*$", "%1"))
end
 
local function each_csv_value(str, fn)
    if not str or str == "" then
        return
    end
    for item in string.gmatch(str, "[^,]+") do
        local value = trim(item)
        if value ~= "" then
            fn(value)
        end
    end
end
 
local function load_module_data(page)
    local moduleName = JsonPaths.get(page)
    local ok, data = pcall(mw.loadData, moduleName)
    if not ok then
        return nil
    end
    return data
end
 
local function load_template_content(path)
    local title = mw.title.new("Template:" .. path)
    if not title then
        return nil
    end
    local ok, content = pcall(title.getContent, title)
    if not ok then
        return nil
    end
    return content
end
 
local function lcfirst(s)
    if not s or s == "" then return s end
    return string.lower(s:sub(1, 1)) .. (s:sub(2) or "")
end
 
local function load_entity_data(entityId)
    if not entityId or entityId == "" then
        return nil
    end
 
     local page = "prototype/Entity/" .. entityId .. ".json"
    local moduleName = JsonPaths.get(page)
    local ok, data = pcall(mw.loadData, moduleName)
    if not ok or type(data) ~= "table" then
        return nil
    end
    return data
end
 
local function normalize_component_name(name)
    if type(name) ~= "string" then
        return nil
    end
 
    name = trim(name)
    if name == "" then
        return nil
    end
 
    if name:sub(1, 5) == "type:" then
        return name:sub(6)
    end
    if name:sub(1, 6) == "!type:" then
        return name:sub(7)
    end
 
    return name
end
 
local function collect_entity_components(entity)
    local out = {}
    local seen = {}


     if minutes_part and seconds_part then
     if type(entity) ~= "table" then
         return minutes_part .. " " .. seconds_part
         return out
     elseif seconds_part then
    end
         return seconds_part
 
    elseif minutes_part then
    local comps = entity.components
         return minutes_part
    if type(comps) ~= "table" then
        return out
    end
 
     if #comps > 0 then
         for _, v in ipairs(comps) do
            local name = normalize_component_name(v)
            if name and not seen[name] then
                seen[name] = true
                out[#out + 1] = name
            end
         end
     else
     else
         return '0 сек.'
         for k in pairs(comps) do
            local name = normalize_component_name(k)
            if name and not seen[name] then
                seen[name] = true
                out[#out + 1] = name
            end
        end
     end
     end
    table.sort(out)
    return out
end
end


-----------------------------------------------------------
local function load_entity_components_from_dp(entityId)
-- Функция для сортировки рецептов
     if not dp then
-----------------------------------------------------------
        return nil
local function sortRecipesByPriority(recipes)
    end
     table.sort(recipes, function(a, b)
 
         local priority = { Static = 1, EMAG = 3 }
    local getter = dp.getEntityComponents or dp.collectEntityComponents or dp.getComp
        local aPriority = priority[a.discipline] or 2
    if type(getter) ~= "function" then
         local bPriority = priority[b.discipline] or 2
         return nil
    end
 
    local ok, result = pcall(getter, { args = { entityId } })
    if not ok or result == nil or result == "" then
         return nil
    end
 
    if type(result) == "table" then
        return result
    end


         if a.isEmag ~= b.isEmag then
    if type(result) == "string" then
             return not a.isEmag
        local okJson, decoded = pcall(mw.text.jsonDecode, result)
         if okJson and type(decoded) == "table" then
             return decoded
         end
         end
    end
    return nil
end
local function load_entity_components(entityId)
    local viaDp = load_entity_components_from_dp(entityId)
    if type(viaDp) == "table" and next(viaDp) ~= nil then
        local out = {}
        local seen = {}
        if #viaDp > 0 then
            for _, v in ipairs(viaDp) do
                local name = normalize_component_name(v)
                if name and not seen[name] then
                    seen[name] = true
                    out[#out + 1] = name
                end
            end
        else
            for k in pairs(viaDp) do
                local name = normalize_component_name(k)
                if name and not seen[name] then
                    seen[name] = true
                    out[#out + 1] = name
                end
            end
        end
        table.sort(out)
        return out
    end
    local entity = load_entity_data(entityId)
    return collect_entity_components(entity)
end
p.loadEntityData = load_entity_data
p.collectEntityComponents = collect_entity_components
p.loadEntityComponents = load_entity_components
p.entityHasComponent = function(entityOrId, compName)
    if not compName or compName == "" then
        return false
    end


        if aPriority == bPriority then
    if type(entityOrId) == "string" then
             if a.tier == b.tier then
        local entity = load_entity_data(entityOrId)
                 return a.discipline < b.discipline
        if not entity then
            return false
        end
        local comps = collect_entity_components(entity)
        for _, v in ipairs(comps) do
             if v == compName then
                 return true
             end
             end
            return a.tier < b.tier
         end
         end
        return false
    end
    local comps = collect_entity_components(entityOrId)
    for _, v in ipairs(comps) do
        if v == compName then
            return true
        end
    end
    return false
end
local function makeTplCall(tplPath, sw, key, id, extra)
    local tplStr = "{{" .. tplPath .. "|" .. sw .. "|" .. key
    tplStr = tplStr .. "|id=" .. tostring(id)
    if extra and extra ~= "" then tplStr = tplStr .. "|" .. extra end
    tplStr = tplStr .. "}}"
    return tplStr
end
local function add_template_param(params, seen, raw)
    local param = trim(raw or "")
    if param == "" or param == "id" or param:match("^%d+$") then
        return
    end
    if not seen[param] then
        seen[param] = true
        params[#params + 1] = param
    end
end
local function collect_template_params(content)
    local params = {}
    local seen = {}
    if not content or content == "" then
        return params
    end
    for param in content:gmatch("{{{%s*([^|}]+)%s*|") do
        add_template_param(params, seen, param)
    end
    for param in content:gmatch("{{{%s*([^|}]+)%s*}}") do
        add_template_param(params, seen, param)
    end
    return params
end
local function get_template_params(tplPath, content)
    return collect_template_params(content)
end


         return aPriority < bPriority
local function sort_entries_by_priority(entries)
    table.sort(entries, function(a, b)
         if a.priority == b.priority then return a.idx < b.idx end
        return a.priority > b.priority
     end)
     end)
end
end


-----------------------------------------------------------
local function make_source(kind, name, pathName, tplPath)
-- Основная функция модуля
    return { kind = kind, name = name, pathName = pathName, tplPath = tplPath }
-----------------------------------------------------------
end
function p.main(frame)
 
     local latheId = frame.args[1] or ""
local function register_switch_mode(name, cfg)
     if latheId == "" then
    switchModeRegistry[name] = cfg or {}
         return '<div style="color:red;">Не указан ID станка.</div>'
    switchModeOrder[#switchModeOrder + 1] = name
end
 
local function new_switch_state()
    local state = { keyOrder = {}, keyToTemplates = {}, keySources = {} }
    for _, sw in ipairs(switchModeOrder) do
        state.keyOrder[sw] = {}
        state.keyToTemplates[sw] = {}
        state.keySources[sw] = {}
    end
    return state
end
 
local function ensure_switch_key(state, sw, key)
     local byKey = state.keyToTemplates[sw]
     if not byKey[key] then
         byKey[key] = {}
        state.keyOrder[sw][#state.keyOrder[sw] + 1] = key
     end
     end
    return byKey[key]
end
local function add_switch_entry(state, sw, key, entry)
    local bucket = ensure_switch_key(state, sw, key)
    entry.idx = #bucket + 1
    bucket[#bucket + 1] = entry
end


     local lathe = nil
local function collect_tpl_calls(entries)
     for _, data in ipairs(latheData) do
     local tplCalls = {}
         if data.id == latheId then
     local sources = {}
             lathe = data
    if #entries > 0 then
             break
        sort_entries_by_priority(entries)
        for _, e in ipairs(entries) do
            tplCalls[#tplCalls + 1] = e.tpl
            sources[#sources + 1] = e.source
         end
    end
    return tplCalls, sources
end
 
local function makeSourceLink(s)
    local className =
        (s.name:sub(1, 1):upper() .. s.name:sub(2)) ..
        (s.kind and (s.kind:sub(1, 1):upper() .. s.kind:sub(2)) or "")
 
    local tplLabel = "Template:" .. s.tplPath
    return "[[" .. tplLabel .. "|" .. className .. "]]"
end
 
local function renderTitleBlock(key, tplCalls, sources, includeHeader, frame, showSource)
    local parts = {}
    if tplCalls and #tplCalls > 0 then
        for i, tpl in ipairs(tplCalls) do
            local add = true
            if frame then
                local expanded = frame:preprocess(tpl)
                add = expanded and trim(expanded) ~= ""
            end
            if add then
                local src = sources and sources[i]
                local line = '<div>' .. tpl .. '</div>'
                if showSource and src then
                    line = line .. '<div class="ts-Сущность-field">' .. makeSourceLink(src) .. '</div>'
                end
                parts[#parts + 1] = '<div class="ts-Сущность">' .. line .. '</div>'
            end
        end
        if #parts == 0 then
             return ""
        end
        if includeHeader then
             table.insert(parts, 1, "<h2>" .. mw.text.encode(key) .. "</h2>")
         end
         end
     end
     end
    return table.concat(parts, "\n")
end
local function split_title_key(key)
    local main, sub = (key or ""):match("^([^_]+)_(.+)$")
    if main and sub then
        return main, sub
    end
    return key, nil
end
local function renderGroupedTitleBlocks(frame, keyOrder, keyToTemplates, noHeaders, showSource)
    local groups = {}
    local groupOrder = {}
    for _, key in ipairs(keyOrder or {}) do
        local mainTitle, subTitle = split_title_key(key)
        if mainTitle and mainTitle ~= "" then
            local group = groups[mainTitle]
            if not group then
                group = { blocks = {} }
                groups[mainTitle] = group
                groupOrder[#groupOrder + 1] = mainTitle
            end


    if not lathe then
            group.blocks[#group.blocks + 1] = {
         return '<div style="color:red;">Станок с ID "' .. latheId .. '" не найден.</div>'
                subTitle = subTitle,
                entries = keyToTemplates[key] or {}
            }
         end
     end
     end


     local materialMapping = {}
     local out = {}
     for _, material in ipairs(materialData) do
     for _, mainTitle in ipairs(groupOrder) do
         if material.id then
        local group = groups[mainTitle]
             materialMapping[material.id] = material.stackEntity or material.id or material.name
        local parts = {}
 
         if not noHeaders then
             parts[#parts + 1] = "<h2>" .. mw.text.encode(mainTitle) .. "</h2>"
         end
         end
        for _, block in ipairs(group.blocks or {}) do
            local tplCalls, sources = collect_tpl_calls(block.entries or {})
            local blockText = renderTitleBlock(block.subTitle or mainTitle, tplCalls, sources, false, frame, showSource)
            if blockText ~= "" then
                if block.subTitle and not noHeaders then
                    parts[#parts + 1] = "<h3>" .. mw.text.encode(block.subTitle) .. "</h3>"
                end
                parts[#parts + 1] = blockText
            end
        end
        if #parts > 0 then
            out[#out + 1] = table.concat(parts, "\n")
        end
    end
    return table.concat(out, "\n")
end
local function normalizeFilterKey(s)
    s = trim(s or "")
    s = s:gsub("%s*_%s*", "_")
    return s
end
local function matches_card_list(list, callKey, compositeKey)
    if not list then
        return false
     end
     end
    callKey = normalizeFilterKey(callKey)
    compositeKey = normalizeFilterKey(compositeKey)
    return list[callKey] or list[compositeKey] or false
end


     local chemMapping = {}
local function buildCardCall(merged, entityId)
     for id, chem in pairs(chemData) do
     local parts = {}
         chemMapping[id] = chem.name
 
     if entityId and entityId ~= "" then
         parts[#parts + 1] = "id=" .. mw.text.encode(entityId)
     end
     end


     local out = ''
     if merged.tags and #merged.tags > 0 then
     local recipes = {}
        table.sort(merged.tags)
        parts[#parts + 1] = "тип=" .. table.concat(merged.tags, ", ")
     end


     local function getRecipeDetails(recipeId)
     if merged.sections and #merged.sections > 0 then
         for _, recipe in ipairs(recipeData) do
        table.sort(merged.sections, function(a, b)
             if recipe.id == recipeId then
            if a == "Сущность" then return true end
                 return recipe
            if b == "Сущность" then return false end
            return a < b
        end)
        parts[#parts + 1] = "sections=" .. table.concat(merged.sections, ", ")
         for _, section in ipairs(merged.sections) do
            local labels = merged.labelLists[section]
             if labels and #labels > 0 then
                local enc = {}
                for i = 1, #labels do
                    enc[i] = mw.text.encode(labels[i])
                end
                 parts[#parts + 1] = mw.text.encode(section) .. "=" .. table.concat(enc, ", ")
             end
             end
         end
         end
        return nil
     end
     end


     local function findInResearch(recipeId)
     for compositeKey, displayLabel in pairs(merged.labelOverrides or {}) do
         for _, research in ipairs(researchData) do
        if displayLabel and displayLabel ~= "" then
             if research and research.recipeUnlocks then
            parts[#parts + 1] = mw.text.encode(compositeKey .. "_label") .. "=" .. displayLabel
                 for _, unlock in ipairs(research.recipeUnlocks) do
        end
                     if unlock == recipeId then
    end
                         return {
    for compositeKey, content in pairs(merged.contentByKey or {}) do
                            name = research.name,
        if content and content ~= "" then
                             tier = research.tier,
            parts[#parts + 1] = mw.text.encode(compositeKey) .. "=" .. content
                             discipline = research.discipline
        end
                         }
    end
 
    if #parts == 0 then
        return ""
    end
 
    return "{{карточка/сущность|" .. table.concat(parts, "|") .. "}}"
end
 
local function cardWrapper(frame, keyOrder, keyToTemplates, keySources, entityId, noHeaders, cardFilter)
    local merged = {
        sections = {},
        sectionsMap = {},
         labelLists = {},
        labelSets = {},
        labelOverrides = {},
        contentByKey = {},
        tags = {},
        tagSet = {}
    }
    local rawContentParts = {}
    for _, callKey in ipairs(keyOrder or {}) do
        local entries = keyToTemplates[callKey] or {}
        if #entries > 0 then
            sort_entries_by_priority(entries)
             for _, e in ipairs(entries) do
                local displayLabel = trim(frame:preprocess(e.tplLabel or "") or "")
                local content = trim(frame:preprocess(e.tplContent or "") or "")
                local tagText = ""
                if e.tplTag then
                    tagText = trim(frame:preprocess(e.tplTag or "") or "")
                end
                local compositeKey = (callKey:find("_", 1, true)) and callKey or ("Сущность_" .. callKey)
                 local section = (callKey:find("_", 1, true)) and callKey:match("^([^_]+)") or "Сущность"
 
                local isWhitelisted = cardFilter and matches_card_list(cardFilter.whitelist, callKey, compositeKey) or
                    false
                local isBlacklisted = cardFilter and matches_card_list(cardFilter.blacklist, callKey, compositeKey) or
                    false
                if isWhitelisted and content ~= "" then
                    rawContentParts[#rawContentParts + 1] = content
                end
 
                local allowCardEntry = not isWhitelisted and not isBlacklisted and
                    ((not cardFilter) or (not cardFilter.hasWhitelist) or
                        matches_card_list(cardFilter.cardWhitelist, callKey, compositeKey))
 
                if allowCardEntry and (displayLabel ~= "" or content ~= "") then
                    if not merged.sectionsMap[section] then
                        merged.sectionsMap[section] = true
                        merged.sections[#merged.sections + 1] = section
                    end
                     if displayLabel ~= "" and (not merged.labelOverrides[compositeKey] or merged.labelOverrides[compositeKey] == "") then
                         merged.labelOverrides[compositeKey] = displayLabel
                    end
                    if content ~= "" then
                        local prev = merged.contentByKey[compositeKey]
                        if prev and prev ~= "" then
                             merged.contentByKey[compositeKey] = prev .. "\n" .. content
                        else
                             merged.contentByKey[compositeKey] = content
                        end
                    end
 
                    merged.labelSets[section] = merged.labelSets[section] or {}
                    if not merged.labelSets[section][compositeKey] then
                        merged.labelSets[section][compositeKey] = true
                         local cur = merged.labelLists[section] or {}
                        cur[#cur + 1] = compositeKey
                        merged.labelLists[section] = cur
                    end
                end
 
                if allowCardEntry and tagText ~= "" then
                    if not merged.tagSet[tagText] then
                        merged.tagSet[tagText] = true
                        merged.tags[#merged.tags + 1] = tagText
                     end
                     end
                 end
                 end
             end
             end
         end
         end
        return nil
     end
     end


     -- Обработка staticRecipes
     each_csv_value(frame.args.cardTag or "", function(extraTag)
    if lathe.Lathe and lathe.Lathe.staticRecipes then
        if not merged.tagSet[extraTag] then
         for _, recipeId in ipairs(lathe.Lathe.staticRecipes) do
            merged.tagSet[extraTag] = true
            local recipe = getRecipeDetails(recipeId)
            merged.tags[#merged.tags + 1] = extraTag
            if recipe and recipe.result then
         end
                table.insert(recipes, {
    end)
                    result = recipe.result,
 
                    completetime = recipe.completetime,
    local out = {}
                    materials = recipe.materials,
    if #rawContentParts > 0 then
                    discipline = "Static",
        out[#out + 1] = table.concat(rawContentParts, "\n")
                    tier = 0
    end
                 })
 
             elseif recipe and recipe.resultReagents then
    local cardCall = buildCardCall(merged, entityId)
                for reagent, amount in pairs(recipe.resultReagents) do
 
                    local reagentName = chemMapping[reagent] or reagent
    if noHeaders then
                     table.insert(recipes, {
        local hasLabel = false
                        result = reagentName .. "|amount=" .. amount .. "ед.|mode-chem=1",
        for _, v in pairs(merged.labelOverrides or {}) do
                        completetime = recipe.completetime,
            if v and v ~= "" then
                        materials = recipe.materials,
                hasLabel = true
                        discipline = "Static",
                 break
                        tier = 0
             end
                    })
        end
                     break  
        if not hasLabel then
            for _, lst in pairs(merged.labelLists or {}) do
                if #lst > 0 then
                     hasLabel = true
                     break
                 end
                 end
            else
                out = out .. '<div style="color:red;">Ошибка: Рецепт с ID "' .. recipeId .. '" не найден или поля result/resultReagents отсутствуют.</div>'
             end
             end
         end
         end
        local hasContent = false
        for _, v in pairs(merged.contentByKey or {}) do
            if v and v ~= "" then
                hasContent = true
                break
            end
        end
        if not hasLabel and not hasContent then
            return table.concat(out, "\n")
        end
    end
    if cardCall ~= "" then
        out[#out + 1] = cardCall
    end
    return table.concat(out, "\n")
end
register_switch_mode("card", {
    full = true,
    build_entry = function(ctx, key)
        return {
            tplLabel = makeTplCall(ctx.tplPath, "cardLabel", key, ctx.id, ctx.extra),
            tplContent = makeTplCall(ctx.tplPath, "cardContent", key, ctx.id, ctx.extra),
            tplTag = makeTplCall(ctx.tplPath, "cardTag", key, ctx.id, ctx.extra),
            source = ctx.source,
            priority = ctx.priority
        }
    end,
    build_preview_entry = function(ctx, key)
        return {
            tplLabel = makeTplCall(ctx.tplPath, "cardLabel", key, ""),
            tplContent = makeTplCall(ctx.tplPath, "cardContent", key, ""),
            source = ctx.source,
            priority = ctx.priority
        }
    end,
    add_entity_extras = function(state, parsed, ctx)
        if type(parsed) == "table" and parsed.cardTag and parsed.cardTag ~= "" then
            add_switch_entry(state, "card", "cardTag", {
                tplLabel = "",
                tplContent = "",
                tplTag = makeTplCall(ctx.tplPath, "cardTag", "cardTag", ctx.id, ctx.extra),
                source = ctx.source,
                priority = ctx.priority
            })
        end
    end,
    render_full = function(frame, keyOrder, keyToTemplates, keySources, entityId, noHeaders, showSource, cardFilter)
        return cardWrapper(frame, keyOrder, keyToTemplates, keySources, entityId, noHeaders, cardFilter)
    end
})
register_switch_mode("title", {
    full = true,
    build_entry = function(ctx, key)
        return {
            tpl = makeTplCall(ctx.tplPath, "title", key, ctx.id, ctx.extra),
            source = ctx.source,
            priority = ctx.priority
        }
    end,
    build_preview_entry = function(ctx, key)
        return {
            tpl = makeTplCall(ctx.tplPath, "title", key, ""),
            source = ctx.source,
            priority = ctx.priority
        }
    end,
    render_full = function(frame, keyOrder, keyToTemplates, keySources, entityId, noHeaders, showSource)
        return renderGroupedTitleBlocks(frame, keyOrder, keyToTemplates, noHeaders, showSource)
    end
})
local function getTemplateMeta(frame, tplPath)
    local expanded = frame:expandTemplate {
        title = tplPath,
        args = { "json" }
    }
    local ok, data = pcall(mw.text.jsonDecode, expanded)
    if not ok or type(data) ~= "table" then
        return ""
     end
     end


    -- Обработка dynamicRecipes
     if data.card == nil then
     if lathe.Lathe and lathe.Lathe.dynamicRecipes then
        local cardKeys = {}
         for _, recipeId in ipairs(lathe.Lathe.dynamicRecipes) do
        local seen = {}
             local recipe = getRecipeDetails(recipeId)
         for base, labels in pairs(data) do
            if recipe then
             if type(base) == "string" and base ~= "card" and base:sub(1, 4) == "card" and type(labels) == "table" then
                 local researchInfo = findInResearch(recipeId)
                 for _, lab in ipairs(labels) do
                if researchInfo then
                    if not seen[lab] then
                    table.insert(recipes, {
                         seen[lab] = true
                        result = recipe.result,
                         cardKeys[#cardKeys + 1] = lab
                         completetime = recipe.completetime,
                     end
                         materials = recipe.materials,
                        discipline = researchInfo.discipline,
                        tier = researchInfo.tier,
                        researchName = researchInfo.name
                     })
                 end
                 end
            end
        end
        data.card = cardKeys
    end
    return data
end
local function parseListArg(str)
    local res = {}
    if not str or str == "" then return res end
    for item in string.gmatch(str, "[^,]+") do
        local s = normalizeFilterKey(item)
        if s ~= "" then
            local a, b = s:match("^([^_]+)_(.+)$")
            if a and b then
                res[a] = res[a] or {}
                res[a][b] = true
            end
        end
    end
    return res
end
local function build_key_filter(args)
    local filter = {}
    filter.blacklist = parseListArg(args.blacklist or "")
    filter.whitelist = parseListArg(args.whitelist or "")
    filter.hasWhitelist = false
    for _, sw in ipairs(switchModeOrder) do
        if filter.whitelist[sw] and next(filter.whitelist[sw]) ~= nil then
            filter.hasWhitelist = true
            break
        end
    end
    if not filter.hasWhitelist and filter.whitelist.cardContent and next(filter.whitelist.cardContent) ~= nil then
        filter.hasWhitelist = true
    end
    return filter
end
local function build_render_options(filter)
    return {
        noHeaders = false,
        cardFilter = {
            hasWhitelist = filter.whitelist.cardContent and next(filter.whitelist.cardContent) ~= nil or false,
            cardWhitelist = filter.whitelist.card or {},
            blacklist = filter.blacklist.cardContent or {},
            whitelist = filter.whitelist.cardContent or {}
        }
    }
end
local function should_include_key(filter, sw, key)
    if filter.hasWhitelist then
        if filter.whitelist[sw] and filter.whitelist[sw][key] then
            return true
        end
        if sw == "card" and filter.whitelist.cardContent and filter.whitelist.cardContent[key] then
            return true
        end
        return false
    end
    return not (filter.blacklist[sw] and filter.blacklist[sw][key])
end
local function parse_csv_set(str)
    local res = {}
    each_csv_value(str, function(name)
        res[name] = true
    end)
    return res
end
local function apply_entity_set_filters(foundSet, whitelistSet, blacklistSet)
    local hasWhitelist = next(whitelistSet or {}) ~= nil
    if hasWhitelist then
        for name in pairs(foundSet) do
            if not whitelistSet[name] then
                foundSet[name] = nil
            end
        end
    end
    for name in pairs(blacklistSet or {}) do
        foundSet[name] = nil
    end
end
local function collect_entity_sets(id, prototypeStoreDefs, componentWhitelist, componentBlacklist, prototypeWhitelist, prototypeBlacklist)
    local foundComponents, foundPrototypes = {}, {}
    local compList = load_entity_components(id)
    if type(compList) == "table" then
        for _, v in ipairs(compList) do
            if type(v) == "string" and v ~= "" then
                foundComponents[v] = true
            end
        end
    end
    local protoStore = prototypeStoreDefs and prototypeStoreDefs[id]
    if type(protoStore) == "table" then
        for protoName in pairs(protoStore) do
            if type(protoName) == "string" and protoName ~= "" then
                foundPrototypes[protoName] = true
             end
             end
         end
         end
     end
     end


     -- Обработка emagStaticRecipes
     apply_entity_set_filters(foundComponents, parse_csv_set(componentWhitelist), parse_csv_set(componentBlacklist))
     if lathe.EmagLatheRecipes and lathe.EmagLatheRecipes.emagStaticRecipes then
     apply_entity_set_filters(foundPrototypes, parse_csv_set(prototypeWhitelist), parse_csv_set(prototypeBlacklist))
        for _, recipeId in ipairs(lathe.EmagLatheRecipes.emagStaticRecipes) do
 
            local recipe = getRecipeDetails(recipeId)
    return foundComponents, foundPrototypes
            if recipe then
end
                table.insert(recipes, {
 
                    result = recipe.result,
local function resolve_priority(parsed)
                    completetime = recipe.completetime,
    local basePriority = 1
                    materials = recipe.materials,
    if type(parsed) == "table" and parsed.priority ~= nil then
                    discipline = "Static",
        if type(parsed.priority) == "number" then
                    tier = 0,
            basePriority = parsed.priority
                    isEmag = true
        else
                 })
            local pnum = tonumber(parsed.priority)
            if pnum then
                 basePriority = pnum
             end
             end
         end
         end
    end
    return basePriority
end
local function get_selective_extra(id, dataPage, paramNames)
    if not dp or type(dp.flattenFieldSelectiveDirect) ~= "function" then
        return ""
    end
    if type(paramNames) ~= "table" or #paramNames == 0 then
        return ""
    end
    return dp.flattenFieldSelectiveDirect(id, dataPage, paramNames) or ""
end
local function add_card_tag_value(tags, seen, value)
    value = trim(value or "")
    if value == "" or seen[value] then
        return
    end
    seen[value] = true
    tags[#tags + 1] = value
end
local function merge_card_tag_text(...)
    local tags = {}
    local seen = {}
    for i = 1, select("#", ...) do
        each_csv_value(select(i, ...), function(value)
            add_card_tag_value(tags, seen, value)
        end)
     end
     end


     -- Обработка emagDynamicRecipes
     return table.concat(tags, ", ")
     if lathe.EmagLatheRecipes and lathe.EmagLatheRecipes.emagDynamicRecipes then
end
        for _, recipeId in ipairs(lathe.EmagLatheRecipes.emagDynamicRecipes) do
 
             local recipe = getRecipeDetails(recipeId)
local function add_entries_from_meta(state, parsed, ctx, filter, isPreview)
            if recipe then
     for _, sw in ipairs(switchModeOrder) do
                local researchInfo = findInResearch(recipeId)
        local mode = switchModeRegistry[sw] or {}
                 if researchInfo then
        local keys
                     table.insert(recipes, {
        if type(mode.get_keys) == "function" then
                        result = recipe.result,
            keys = mode.get_keys(parsed)
                         completetime = recipe.completetime,
        else
                         materials = recipe.materials,
             keys = (type(parsed) == "table" and parsed[sw]) or {}
                        discipline = researchInfo.discipline,
        end
                        tier = researchInfo.tier,
 
                        researchName = researchInfo.name,
        if type(keys) == "table" then
                         isEmag = true
            for _, key in ipairs(keys) do
                     })
                 if (not filter) or should_include_key(filter, sw, key) then
                     local buildFn = isPreview and (mode.build_preview_entry or mode.build_entry) or mode.build_entry
                    if type(buildFn) == "function" then
                         local entry = buildFn(ctx, key)
                         if entry then
                            add_switch_entry(state, sw, key, entry)
                         end
                     end
                 end
                 end
             end
             end
        end
        if (not isPreview) and type(mode.add_entity_extras) == "function" then
            mode.add_entity_extras(state, parsed, ctx)
        end
    end
end
local function extract_whitelist_search_strings(keyFilter)
    if not keyFilter or not keyFilter.hasWhitelist then
        return nil
    end
    local strings = {}
    for sw, keys in pairs(keyFilter.whitelist) do
        if type(keys) == "table" then
            for key in pairs(keys) do
                strings[#strings + 1] = key
            end
        end
    end
    if #strings == 0 then
        return nil
    end
    return strings
end
local function content_matches_whitelist(content, searchStrings)
    if not searchStrings then
        return true
    end
    if not content then
        return false
    end
    for _, s in ipairs(searchStrings) do
        if string.find(content, s, 1, true) then
            return true
        end
    end
    return false
end
local function each_entity_data(frame, id, onEntity, onMissing, keyFilter)
    local componentWhitelist = frame.args.componentWhitelist or frame.args.componentwhitelist or ""
    local componentBlacklist = frame.args.componentBlacklist or frame.args.componentblacklist or ""
    local prototypeWhitelist = frame.args.prototypeWhitelist or frame.args.prototypewhitelist or ""
    local prototypeBlacklist = frame.args.prototypeBlacklist or frame.args.prototypeblacklist or ""
    local prototypeStoreDefs = load_module_data("prototype_store.json")
    if not prototypeStoreDefs then
        return false
    end
    local foundComponents, foundPrototypes = collect_entity_sets(id, prototypeStoreDefs,
        componentWhitelist, componentBlacklist, prototypeWhitelist, prototypeBlacklist)
    local compWhitelistSet = parse_csv_set(componentWhitelist)
    local compBlacklistSet = parse_csv_set(componentBlacklist)
    local protoWhitelistSet = parse_csv_set(prototypeWhitelist)
    local protoBlacklistSet = parse_csv_set(prototypeBlacklist)
    local compHasWhitelist = next(compWhitelistSet) ~= nil
    local protoHasWhitelist = next(protoWhitelistSet) ~= nil
    local anyEntityWhitelist = compHasWhitelist or protoHasWhitelist
    local whitelistSearchStrings = extract_whitelist_search_strings(keyFilter)
    local function processEntity(kind, name, isStore)
        local pathName = lcfirst(name)
        local tplPath = kind .. "/" .. pathName
        if isStore then
            tplPath = tplPath .. "/store"
        end
        local content = load_template_content(tplPath)
        if not content then
            if onMissing then
                onMissing(kind, name, isStore, tplPath)
            end
            return
        end
        if not content_matches_whitelist(content, whitelistSearchStrings) then
            return
        end
        local parsed = getTemplateMeta(frame, tplPath)
        if type(parsed) ~= "table" then
            parsed = {}
        end
        local extra = ""
        local paramNames = get_template_params(tplPath, content)
        if dp then
            local dataPage = tplPath .. ".json"
            extra = get_selective_extra(id, dataPage, paramNames)
        end
        onEntity(parsed, {
            tplPath = tplPath,
            id = id,
            extra = extra,
            source = make_source(kind, name, pathName, tplPath),
            priority = resolve_priority(parsed)
        })
    end
    for compName in pairs(foundComponents) do
        if not anyEntityWhitelist or compHasWhitelist then
            processEntity("component", compName, false)
        end
    end
    for protoName in pairs(foundPrototypes) do
        if not anyEntityWhitelist or protoHasWhitelist then
            processEntity("prototype", protoName, false)
         end
         end
     end
     end


     sortRecipesByPriority(recipes)
     local componentStoreDefs = load_module_data("component_store.json")
    if type(componentStoreDefs) == "table" and (not anyEntityWhitelist or compHasWhitelist) then
        local compStore = componentStoreDefs[id]
        if type(compStore) == "table" then
            for compName in pairs(compStore) do
                local allowed = true
                if compBlacklistSet[compName] then
                    allowed = false
                elseif compHasWhitelist and not compWhitelistSet[compName] then
                    allowed = false
                end
                if allowed then
                    processEntity("component", compName, true)
                end
            end
        end
    end


     -- Таблица для перевода названий дисциплин
     if type(prototypeStoreDefs) == "table" and (not anyEntityWhitelist or protoHasWhitelist) then
    local disciplineMapping = {
        local protoStore = prototypeStoreDefs[id]
         Arsenal = "Арсенал",
         if type(protoStore) == "table" then
        Industrial = "Промышленность",
            for protoName in pairs(protoStore) do
        Experimental = "Экспериментальное",
                local allowed = true
         CivilianServices = "Обслуживание персонала"
                if protoBlacklistSet[protoName] then
     }
                    allowed = false
                elseif protoHasWhitelist and not protoWhitelistSet[protoName] then
                    allowed = false
                end
                if allowed then
                    processEntity("prototype", protoName, true)
                end
            end
         end
     end


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


     local materialUseMultiplier = (lathe.Lathe and lathe.Lathe.materialUseMultiplier) or 1
local function collect_card_tag_text(frame, args, id)
     local timeMultiplier = (lathe.Lathe and lathe.Lathe.timeMultiplier) or 1
     local filter = build_key_filter(args)
     local cardFilter = build_render_options(filter).cardFilter
    local entries = {}


     for _, recipe in ipairs(recipes) do
     local ok = each_entity_data(frame, id, function(parsed, ctx)
         local scaledTime = format_seconds_to_short_string(recipe.completetime * timeMultiplier)
         local keys = parsed.card or {}
        out = out .. '{{Шаблон:Prototypes/Машина/Станок|product=' .. recipe.result
        out = out .. '|complete-time=' .. scaledTime
        out = out .. '|materials='


if recipe.materials and next(recipe.materials) then
        if type(keys) == "table" then
    local materialsList = {}
            for _, key in ipairs(keys) do
    for material, amount in pairs(recipe.materials) do
                local compositeKey = (key:find("_", 1, true)) and key or ("Сущность_" .. key)
        local stackEntity = materialMapping[material] or material
                local isWhitelisted = matches_card_list(cardFilter.whitelist, key, compositeKey)
        local scaledAmount = (amount * materialUseMultiplier) / 100
                local isBlacklisted = matches_card_list(cardFilter.blacklist, key, compositeKey)
        table.insert(materialsList, string.format('[[File:%s.png|32x32px|link=]] %s {{#invoke:Entity Lookup|getname|%s}}', stackEntity, scaledAmount, stackEntity))
                local allowCardEntry = not isWhitelisted and not isBlacklisted and
    end
                    ((not cardFilter.hasWhitelist) or matches_card_list(cardFilter.cardWhitelist, key, compositeKey))
    out = out .. '<b>' .. table.concat(materialsList, ', ') .. '</b>'
else
    out = out .. '<b>Нет данных о материалах</b>'
end


        -- Информация об исследовании
                if allowCardEntry then
        if recipe.discipline ~= "Static" then
                    entries[#entries + 1] = {
            local tierColor = tierColors[recipe.tier] or "#FFFFFF"
                        tplTag = makeTplCall(ctx.tplPath, "cardTag", key, ctx.id, ctx.extra),
             local disciplineName = disciplineMapping[recipe.discipline] or "Неизвестная дисциплина"
                        priority = ctx.priority,
                        idx = #entries + 1
                    }
                end
             end
        end


            out = out .. '|info=<div style="font-weight:600;"><span style="margin:8px;">[[File:' .. recipe.discipline .. '.png|16x16px|link=]]</span> [[Руководство по исследованию и разработке|' .. disciplineName
        if parsed.cardTag and parsed.cardTag ~= "" then
            out = out .. ']], уровень: <span style="color: ' .. tierColor .. '">' .. recipe.tier .. '</span> </div>'
            entries[#entries + 1] = {
                tplTag = makeTplCall(ctx.tplPath, "cardTag", "cardTag", ctx.id, ctx.extra),
                priority = ctx.priority,
                idx = #entries + 1
            }
         end
         end
    end)
    if not ok then
        return trim(args.tag or "")
    end
    sort_entries_by_priority(entries)
    local tags = {}
    local seen = {}
    for _, entry in ipairs(entries) do
        local tagText = trim(frame:preprocess(entry.tplTag or "") or "")
        add_card_tag_value(tags, seen, tagText)
    end
    return merge_card_tag_text(table.concat(tags, ", "), args.tag)
end


         -- Пометка при взломе EMAG
p.mergeCardTagText = merge_card_tag_text
         if recipe.isEmag then
p.collectCardTagText = collect_card_tag_text
             out = out .. '|mode-emag=1'
 
local function build_missing_template_error(kind, name, isStore, tplPath)
    local baseType = (kind and (kind:sub(1, 1):upper() .. kind:sub(2)) or "")
    local classType = baseType
    if isStore then
        classType = classType .. "Store"
    end
    local className = name .. baseType
    local tplLabel = "Template:" .. tplPath
    return "{{сущность/infobox/base|тип=" .. classType .. "|название=" .. className .. "|ссылка=" .. tplLabel .. "}}"
end
 
local function renderBlocks(frame, state, renderOptions, entityId, showSource)
    local outLocal = {}
    local noHeaders = renderOptions and renderOptions.noHeaders
    local cardFilter = renderOptions and renderOptions.cardFilter
    for _, sw in ipairs(switchModeOrder) do
         local mode = switchModeRegistry[sw] or {}
         if mode.full then
            local outStr = ""
            if type(mode.render_full) == "function" then
                outStr = mode.render_full(frame, state.keyOrder[sw], state.keyToTemplates[sw], state.keySources[sw],
                    entityId, noHeaders, showSource, cardFilter)
            end
            if outStr and outStr ~= "" then outLocal[#outLocal + 1] = outStr end
        else
             for _, key in ipairs(state.keyOrder[sw] or {}) do
                local entries = state.keyToTemplates[sw][key] or {}
                if type(mode.render_key) == "function" then
                    local outStr = mode.render_key(frame, key, entries, noHeaders, showSource)
                    if outStr and outStr ~= "" then outLocal[#outLocal + 1] = outStr end
                end
            end
         end
         end
    end
    return outLocal
end
function p.get(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local id = args[1] or ""
    if id == "" then return "" end


         -- Пометка для исследуемой технологии
    local showSource = trim(args.showSource or "") == ""
         if recipe.discipline ~= "Static" then
 
             out = out .. '|mode-research=1'
    local filter = build_key_filter(args)
    local renderOptions = build_render_options(filter)
 
    local state = new_switch_state()
    local errors = {}
    local ok = each_entity_data(frame, id, function(parsed, ctx)
         add_entries_from_meta(state, parsed, ctx, filter, false)
    end, function(kind, name, isStore, tplPath)
         if not filter.hasWhitelist then
             errors[#errors + 1] = build_missing_template_error(kind, name, isStore, tplPath)
         end
         end
    end, filter)
    if not ok then return "" end
    local out = {}
    if #errors > 0 then
        out[#out + 1] = '{{сущность/infobox|' .. table.concat(errors, "\n") .. '}}'
    end
    renderOptions.noHeaders = filter.hasWhitelist
    local blocks = renderBlocks(frame, state, renderOptions, id, showSource)
    for _, b in ipairs(blocks) do
        out[#out + 1] = b
    end
    return frame:preprocess(table.concat(out, "\n"))
end
function p.preview(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local tplPath = args[1] or ""
    if tplPath == "" then return "" end
    local showSource = trim(args.nosource or "") == ""
    local previewFilter = build_key_filter(args)
    local renderOptions = build_render_options(previewFilter)
    local content = load_template_content(tplPath)
    if not content then
        return ""
    end
    local parsed = getTemplateMeta(frame, tplPath) or {}
    if type(parsed) ~= "table" then
        parsed = {}
    end
    local state = new_switch_state()
    add_entries_from_meta(state, parsed, {
        tplPath = tplPath,
        id = "",
        extra = "",
        source = make_source("", tplPath, tplPath, tplPath),
        priority = 1
    }, nil, true)
    local hasWhitelist = previewFilter.hasWhitelist
    renderOptions.noHeaders = hasWhitelist


         out = out .. '}}'
    local out = {}
    local blocks = renderBlocks(frame, state, renderOptions, "", showSource)
    for _, b in ipairs(blocks) do
         out[#out + 1] = b
     end
     end


     return mw.getCurrentFrame():preprocess(out)
     return frame:preprocess(table.concat(out, "\n"))
end
end


return p
return p
Источник — https://station14.ru/wiki/Модуль:Песочница/Pok