装备淬炼：淬炼次数兑换元素抗性

-- 错误：无上限直接累加抗性
function quench(p, slot)
    setplayvar(p, "resist",
        (getplayvar(p, "resist") or 0) + 5)
end

local GAIN = {5, 5, 5, 3, 3, 3, 1, 1, 1, 1}
local function quench(p, slot)
    local n = getplayvar(p, "quench_" .. slot) or 0
    if n >= #GAIN then
        sendmsg(p, 1, "已达淬炼上限")
        return
    end
    if (getplayvar(p, "stone") or 0) < 1 then
        sendmsg(p, 1, "淬炼石不足")
        return
    end
    setplayvar(p, "stone", getplayvar(p, "stone") - 1)
    setplayvar(p, "quench_" .. slot, n + 1)
    setplayvar(p, "resist",
        (getplayvar(p, "resist") or 0) + GAIN[n + 1])
    sendmsg(p, 1, "抗性 +" .. GAIN[n + 1])
end