【框架设计】宠物进阶：进化材料链与形态切换

---宠物进阶：材料链的校验与消耗
local EVOLVE_CHAIN = {
    { stage = 1, next = 2, mats = { { "进化石", 30 },
        { "麒麟血统证", 1 } } },
    { stage = 2, next = 3, mats = { { "进化石", 80 },
        { "麒麟血统证", 3 } } },
}

function Pet.evolve(actor)
    local player = class(actor)
    if not player then return false end
    local stage = tonumber(getplayvar(actor, 2, "PetStage")) or 1
    local cfg = EVOLVE_CHAIN[stage]
    if not cfg then
        sendmsg(actor, 1, "宠物已达最终形态")
        return false
    end
    for _, m in ipairs(cfg.mats) do
        if not checkitemw(actor, m[1], m[2]) then
            sendmsg(actor, 1, "缺少 " .. m[1] .. " x" .. m[2])
            return false
        end
    end
    for _, m in ipairs(cfg.mats) do
        takeitem(actor, m[1], m[2], 0, "宠物进化")
    end
    setplayvar(actor, "HUMAN", "PetStage", cfg.next, 1)
    Pet.remodel(actor, cfg.next)
    return true
end

---进阶的属性继承：等级与亲密度保留
function Pet.remodel(actor, newStage)
    local player = class(actor)
    if not player then return end
    -- 召唤出新形态，等级与亲密度继承
    recallmob(actor, "麒麟" .. newStage .. "阶", 1)
    local keep = { lv = Pet.levelOf(actor),
        intimacy = Pet.intimacyOf(actor) }
    Pet.applyKeep(actor, keep)
    QF_Broadcast(player:GetName() .. " 的宠物进化为 " ..
        newStage .. " 阶形态！")
end