Módulo:Info

A documentação para este módulo pode ser criada em Módulo:Info/doc

-- Módulo:Info — resolve metadados e skills (robusto/corrigido + gambiarra expandTier/expandTags)
local p = {}

-- ===== util =====
local function trim(s)
    return (tostring(s or ""):gsub("^%s+", ""):gsub("%s+$", ""))
end
local function safeArgs(node)
    return (node and node.args) or {}
end

local function requireCharacterModule(charName)
    charName = trim(charName)
    if charName == "" then
        return nil
    end
    local ok, data

    ok, data = pcall(function()
        return require("Módulo:" .. charName)
    end)
    if ok and type(data) == "table" then
        return data
    end

    ok, data = pcall(function()
        return require("Modulo:" .. charName)
    end)
    if ok and type(data) == "table" then
        return data
    end

    ok, data = pcall(function()
        return require("Module:" .. charName)
    end)
    if ok and type(data) == "table" then
        return data
    end

    return nil
end

local function resolveCharFromFrames(frame, a)
    if a.char and trim(a.char) ~= "" then
        return trim(a.char)
    end
    if a.nome and trim(a.nome) ~= "" then
        return trim(a.nome)
    end

    local p1 = frame:getParent()
    if p1 then
        local ap1 = safeArgs(p1)
        if ap1.char and trim(ap1.char) ~= "" then
            return trim(ap1.char)
        end
        if ap1.nome and trim(ap1.nome) ~= "" then
            return trim(ap1.nome)
        end

        local p2 = p1.getParent and p1:getParent()
        if p2 then
            local ap2 = safeArgs(p2)
            if ap2.char and trim(ap2.char) ~= "" then
                return trim(ap2.char)
            end
            if ap2.nome and trim(ap2.nome) ~= "" then
                return trim(ap2.nome)
            end
        end
    end

    local title = mw.title.getCurrentTitle()
    return title and trim(title.text) or ""
end

-- paleta para marcadores
local COLOR = {
    debuff = "#ff5252",
    atk = "#ffcc00",
    def = "#64b5f6",
    ms = "#43a047",
    hp = "#42a5f5",
    sec = "#ffcc00"
}

local function colorize(txt)
    if not txt or txt == "" then
        return ""
    end
    return (txt:gsub("{{(%a+):([^}]+)}}", function(tag, inner)
        local hex = COLOR[tag]
        if not hex then
            return "{{" .. tag .. ":" .. inner .. "}}"
        end
        return string.format('<span style="color:%s;">%s</span>', hex, inner)
    end))
end

-- ===== API =====

function p.getTier(frame)
    local a = safeArgs(frame)
    local char = trim(frame.args[1] or a.nome)
    if char == "" then
        char = resolveCharFromFrames(frame, a)
    end
    local data = requireCharacterModule(char) or {}
    return trim(data.tier or "")
end

function p.getTags(frame)
    local a = safeArgs(frame)
    local char = trim(frame.args[1] or a.nome)
    if char == "" then
        char = resolveCharFromFrames(frame, a)
    end
    local data = requireCharacterModule(char) or {}
    local tags = data.tags or {}
    if type(tags) ~= "table" then
        return ""
    end
    return trim(table.concat(tags, " / "))
end

-- Skill (normal: com M)
function p.skill(frame)
    local a = safeArgs(frame)
    local lang = trim((a.lang or (frame:getParent() and frame:getParent().args.lang) or "pt"):lower())
    local char = trim(a.char or (frame:getParent() and frame:getParent().args.nome) or "")
    if char == "" then
        char = resolveCharFromFrames(frame, a)
    end
    local data = requireCharacterModule(char) or {}

    local name, desc_i18n = nil, {}

    if a.M and trim(a.M) ~= "" then
        local m = tonumber(a.M) or 0
        local order = data.order or {}
        local key = order[m] or ""
        local sk = (data.skills or {})[key] or {}
        name = trim(sk.name or key or "")

        -- monta tabela de descrições por idioma (já colorizadas)
        if type(sk.desc) == "table" then
            local langs = {"pt", "en", "es", "pl"}
            for _, code in ipairs(langs) do
                local d = sk.desc[code]
                if d and trim(d) ~= "" then
                    desc_i18n[code] = colorize(d)
                end
            end
        elseif sk.desc and trim(sk.desc) ~= "" then
            desc_i18n["pt"] = colorize(sk.desc) -- fallback: único texto vira pt
        end
    end
    -- (dentro de p.skill)
    local isSub = (a.S and trim(a.S) ~= "")
    local parentM = tonumber(a.parentM or a.parent or "") or 0 -- aceita |parentM= ou |parent=
    if isSub then
        -- 1) localizar o pai
        local order = data.order or {}
        local parentKey = order[parentM] or ""
        local parentSk = (data.skills or {})[parentKey] or {}

        -- 2) resolver a S-ésima filha
        local sIndex = tonumber(a.S) or 1
        local subs = {}
        if type(parentSk.subs) == "table" then
            subs = parentSk.subs
        else
            -- fallback: varrer skills que declarem parent=parentKey
            for k, v in pairs(data.skills or {}) do
                if type(v) == "table" and v.parent == parentKey then
                    table.insert(subs, k)
                end
            end
            table.sort(subs) -- ordem estável se não houver parentSk.subs
        end
        local childKey = subs[sIndex] or ""
        local sk = (data.skills or {})[childKey] or {}

        name = trim(sk.name or childKey or "")

        -- descrições i18n (mesma lógica de antes)
        if type(sk.desc) == "table" then
            local langs = {"pt", "en", "es", "pl"}
            for _, code in ipairs(langs) do
                local d = sk.desc[code]
                if d and trim(d) ~= "" then
                    desc_i18n[code] = colorize(d)
                end
            end
        elseif sk.desc and trim(sk.desc) ~= "" then
            desc_i18n["pt"] = colorize(sk.desc)
        end
    end

    -- ... mais abaixo, quando montar obj:
    if isSub then
        obj.type = "sub"
        obj.parentM = parentM
        obj.parentName = (data.order or {})[parentM] or ""
    else
        -- principal: se tiver subs no módulo, exporta meta p/ o front
        local order = data.order or {}
        local key = order[tonumber(a.M) or 0] or ""
        local sk = (data.skills or {})[key] or {}
        if type(sk.subs) == "table" and #sk.subs > 0 then
            obj.subs_names = sk.subs
        end
    end

    local function nz(v)
        v = v or ""
        return (trim(v) ~= "" and v or nil)
    end

    local chosen = desc_i18n[lang] or desc_i18n["pt"] or ""

    local obj = {
        icon = (trim(a.icon or "") ~= "" and a.icon or "Nada.png"),
        level = (trim(a.level or "") ~= "" and a.level or "NIVEL"),
        energy = nz(a.energy),
        powerpve = nz(a.powerpve),
        powerpvp = nz(a.powerpvp),
        cooldown = nz(a.cooldown),
        video = a.video or ""
    }
    if name and name ~= "" then
        obj.name = name
    end
    if chosen ~= "" then
        obj.desc = chosen
    end

    -- inclui as variantes para o Character expor como data-desc-*
    if next(desc_i18n) ~= nil then
        obj.desc_i18n = desc_i18n
        obj.descPt = desc_i18n.pt
        obj.descEn = desc_i18n.en
        obj.descEs = desc_i18n.es
        obj.descPl = desc_i18n.pl
    end

    return mw.text.jsonEncode(obj)
end
-- Skill (emote: sem M)
function p.emote(frame)
    local a = safeArgs(frame)
    local obj = {
        name = "Emote",
        desc = "",
        icon = (trim(a.icon or "") ~= "" and a.icon or "Nada.png"),
        level = 25,
        video = a.video or "",
        desc_i18n = {
            pt = "",
            en = "",
            es = "",
            pl = ""
        },
        descPt = "",
        descEn = "",
        descEs = "",
        descPl = ""
    }
    return mw.text.jsonEncode(obj)
end

-- expandTier/expandTags mantidos
function p.expandTier(frame)
    local token = trim(frame.args[1] or "")
    local nome = trim(frame.args[2] or (frame:getParent() and frame:getParent().args.nome) or "")
    if token == "" then
        return ""
    end
    if token:lower():sub(1, 4) ~= "tier" then
        return token
    end
    local char = nome ~= "" and nome or token:match("^tier(.+)$") or ""
    if char == "" then
        local title = mw.title.getCurrentTitle()
        char = title and trim(title.text) or ""
    end
    local data = requireCharacterModule(char) or {}
    local i18n = (data.tier_i18n and data.tier_i18n.pt) or data.tier
    return trim(i18n or "")
end

function p.expandTags(frame)
    local token = trim(frame.args[1] or "")
    local nome = trim(frame.args[2] or (frame:getParent() and frame:getParent().args.nome) or "")
    if token == "" then
        return ""
    end
    if token:lower():sub(1, 5) ~= "class" then
        return token
    end
    local char = nome ~= "" and nome or token:match("^class(.+)$") or ""
    if char == "" then
        local title = mw.title.getCurrentTitle()
        char = title and trim(title.text) or ""
    end
    local data = requireCharacterModule(char) or {}
    local arr = (data.tags_i18n and data.tags_i18n.pt) or data.tags
    if type(arr) == "table" then
        return table.concat(arr, " / ")
    end
    return trim(arr or "")
end

return p