View source for Module:GameSummons

-- Module:GameSummons
--
-- Renders summon data (from Data:summons.json) into an infobox-style table.
-- Data is loaded via Module:GameData.
--
-- Supported usage patterns (via Template:Summon):
--   {{Summon|Angel Mage}}              -> uses display Name (recommended)
--   {{Summon|name=Angel Mage}}         -> explicit Name
--   {{Summon|id=Angel Mage}}           -> Internal Name (power use)

local GameData = require("Module:GameData")

local p = {}

----------------------------------------------------------------------
-- Internal helpers
----------------------------------------------------------------------

local summonsCache

local function getSummons()
    if not summonsCache then
        summonsCache = GameData.loadSummons()
    end
    return summonsCache
end

local function getArgs(frame)
    local parent = frame:getParent()
    if parent then
        return parent.args
    end
    return frame.args
end

local function listToText(list, sep)
    if type(list) ~= "table" or #list == 0 then
        return nil
    end
    return table.concat(list, sep or ", ")
end

local function addRow(tbl, label, value)
    if value == nil or value == "" then
        return
    end
    local row = tbl:tag("tr")
    row:tag("th"):wikitext(label):done()
    row:tag("td"):wikitext(value):done()
end

-- Lookup by Internal Name
local function getSummonById(id)
    if not id or id == "" then
        return nil
    end
    local dataset = getSummons()
    local byId = dataset.byId or {}
    return byId[id]
end

-- Lookup by display Name (for editors)
local function findSummonByName(name)
    if not name or name == "" then
        return nil
    end
    local dataset = getSummons()
    for _, rec in ipairs(dataset.records or {}) do
        if rec["Name"] == name then
            return rec
        end
    end
    return nil
end

----------------------------------------------------------------------
-- Formatting helpers
----------------------------------------------------------------------

local function formatAttributes(list)
    if type(list) ~= "table" or #list == 0 then
        return nil
    end

    local parts = {}

    for _, attr in ipairs(list) do
        if type(attr) == "table" then
            local t = attr.Type or {}
            local name = t.Name or attr.ID or "Unknown"
            local val  = attr.Value

            local seg = name
            if type(val) == "table" then
                local base = val.Base
                local per  = val["Per Level"]
                local detail = {}

                if base then
                    table.insert(detail, string.format("Base %.1f", base))
                end
                if per then
                    table.insert(detail, string.format("%.1f / Lv", per))
                end

                if #detail > 0 then
                    seg = seg .. " – " .. table.concat(detail, ", ")
                end
            end

            table.insert(parts, seg)
        end
    end

    if #parts == 0 then
        return nil
    end

    return table.concat(parts, "<br />")
end

local function formatSkills(list)
    if type(list) ~= "table" or #list == 0 then
        return nil
    end

    local parts = {}

    for _, s in ipairs(list) do
        if type(s) == "table" then
            local name = s.Name or s.ID or "Unknown skill"
            local level = s.Level
            local cd    = s.Cooldown
            local cast  = s["Cast Time"]
            local th    = s["Target Health"]

            local seg = name
            local detail = {}

            if level then
                table.insert(detail, string.format("Lv.%s", tostring(level)))
            end
            if cd then
                table.insert(detail, string.format("CD %s s", tostring(cd)))
            end
            if cast then
                table.insert(detail, string.format("CT %s s", tostring(cast)))
            end
            if th then
                table.insert(detail, string.format("Target HP %.2f", th))
            end

            if #detail > 0 then
                seg = seg .. " (" .. table.concat(detail, ", ") .. ")"
            end

            table.insert(parts, seg)
        end
    end

    if #parts == 0 then
        return nil
    end

    return table.concat(parts, "<br />")
end

local function formatStages(list)
    if type(list) ~= "table" or #list == 0 then
        return nil
    end

    local parts = {}

    for _, st in ipairs(list) do
        if type(st) == "table" then
            local stage   = st.Stage
            local level   = st["Unlock Level"]
            local mName   = st["Monster Name"] or st["Monster ID"] or "Unknown"

            local label = ""
            if stage then
                label = tostring(stage)
            else
                label = "?"
            end

            local seg = "Stage " .. label .. ": " .. mName
            if level then
                seg = seg .. string.format(" (Unlock Lv.%s)", tostring(level))
            end

            table.insert(parts, seg)
        end
    end

    if #parts == 0 then
        return nil
    end

    return table.concat(parts, "<br />")
end

local function formatSummonSkill(rec)
    local name = rec["Skill Name"]
    local internal = rec["Skill Internal Name"]
    if name and internal and internal ~= "" then
        return string.format("%s (%s)", name, internal)
    end
    return name or internal
end

----------------------------------------------------------------------
-- Infobox builder
----------------------------------------------------------------------

local function buildInfobox(rec)
    local root = mw.html.create("table")
    root:addClass("wikitable spiritvale-summon-infobox")

    -- Header: name
    local title = rec.Name or rec["Internal Name"] or "Unknown Summon"

    local header = root:tag("tr")
    local headerCell = header:tag("th")
    headerCell:attr("colspan", 2)
    headerCell:wikitext(title)

    -- Basic info
    addRow(root, "Internal name", rec["Internal Name"])
    addRow(root, "Summon skill", formatSummonSkill(rec))

    -- Attributes
    local attrText = formatAttributes(rec.Attributes)
    addRow(root, "Attributes", attrText)

    -- Skills
    local skillsText = formatSkills(rec.Skills)
    addRow(root, "Skills", skillsText)

    -- Stages
    local stagesText = formatStages(rec.Stages)
    addRow(root, "Stages", stagesText)

    return tostring(root)
end

----------------------------------------------------------------------
-- Public entry point
----------------------------------------------------------------------

function p.infobox(frame)
    local args = getArgs(frame)

    -- Allow:
    --   {{Summon|Angel Mage}}         -> args[1] = "Angel Mage" (Name)
    --   {{Summon|name=Angel Mage}}    -> args.name
    --   {{Summon|id=Angel Mage}}      -> args.id (Internal Name)
    local raw1 = args[1]
    local name = args.name or raw1
    local id   = args.id

    local rec

    -- 1) Prefer display Name (what editors actually know)
    if name and name ~= "" then
        rec = findSummonByName(name)
    end

    -- 2) Fallback: Internal Name if explicitly given
    if not rec and id and id ~= "" then
        rec = getSummonById(id)
    end

    if not rec then
        local label = name or id or "?"
        return string.format(
            "<strong>Unknown summon:</strong> %s[[Category:Pages with unknown summon|%s]]",
            mw.text.nowiki(label),
            label
        )
    end

    return buildInfobox(rec)
end

return p