【进阶实战】合成校验：称号合成的材料链校验封装

local CHAIN = {
    ["白银徽章"] = { ["青铜徽章"] = 3 },
    ["黄金徽章"] = { ["白银徽章"] = 3 },
    ["钻石头衔"] = { ["黄金徽章"] = 3 },
}

local function composeBadge(actor, target)
    actor = getplayerbyname(actor)
    local recipe = CHAIN[target]
    if recipe == nil then
        sendmsg(actor, 1, target .. " 不是可合成的称号。")
        return
    end
    local taken = {}
    for mat, num in pairs(recipe) do
        if takeitem(actor, mat, num) then
            taken[#taken + 1] = { name = mat, num = num }
        else
            for _, t in ipairs(taken) do
                giveitem(actor, t.name, t.num)
            end
            sendmsg(actor, 1, "材料不足：需要 " .. mat .. " x" .. num .. "。")
            return
        end
    end
    giveitem(actor, target, 1, 1)
    sendmsg(actor, 1, "合成成功，获得[" .. target .. "]！")
end