【进阶实战】宝石合成材料的预检查：一次报齐缺失项

local function preCheckGem(actor)
    actor = getplayerbyname(actor)
    local miss = {}
    if not checkitems(actor, "二级红宝石,5", 0, 0) then
        miss[#miss + 1] = "二级红宝石 5 颗"
    end
    local gold = tonumber(getplayvar(actor, "HUMAN", "Gold")) or 0
    if gold < 100000 then
        miss[#miss + 1] = "金币 10 万（当前 " .. gold .. "）"
    end
    if #miss > 0 then
        sendmsg(actor, 1, "合成失败，缺少：" .. table.concat(miss, "；"))
        return false
    end
    return true
end

local function composeGem(actor)
    actor = getplayerbyname(actor)
    if not preCheckGem(actor) then
        return
    end
    local ok1 = takeitem(actor, "二级红宝石", 5, 0, "三级红宝石合成")
    if not ok1 then
        sendmsg(actor, 1, "材料已变动，合成取消。")
        return
    end
    setplayvar(actor, "HUMAN", "Gold", (tonumber(getplayvar(actor, "HUMAN", "Gold")) or 0) - 100000, 1)
    giveitem(actor, "三级红宝石", 1, 0, "合成成功")
    sendmsg(actor, 1, "合成成功，获得三级红宝石。")
end