【框架设计】附灵系统：灵珠镶嵌与灵力等级的框架设计

local SLOTS_BY_QUALITY = { [0]=0, [1]=0, [2]=1, [3]=2, [4]=3, [5]=4 }
function inlayPearl(actor, equipPos, pearlId)
    local p = class(actor)
    local quality = p:GetEquipQuality(equipPos)
    local maxSlots = SLOTS_BY_QUALITY[quality] or 0
    local used = tonumber(getplayvar(actor, "HUMAN", "SLOT_USED_" .. equipPos) or "0")
    if used >= maxSlots then
        sendmsg(actor, 0, "孔位已满，无法继续镶嵌")
        return
    end
    if not checkitemw(actor, "灵珠", 1) then
        sendmsg(actor, 0, "没有可镶嵌的灵珠")
        return
    end
    takeitem(actor, "灵珠", 1)
    setplayvar(actor, "HUMAN", "SLOT_IN_" .. equipPos .. "_" .. used, pearlId, 1)
    setplayvar(actor, "HUMAN", "SLOT_USED_" .. equipPos, used + 1, 1)
    sendmsg(actor, 0, "镶嵌成功")
end

function removePearl(actor, equipPos, slotIdx)
    local pearlId = getplayvar(actor, "HUMAN", "SLOT_IN_" .. equipPos .. "_" .. slotIdx) or ""
    if pearlId == "" then
        sendmsg(actor, 0, "该孔位没有镶嵌灵珠")
        return
    end
    setplayvar(actor, "HUMAN", "SLOT_IN_" .. equipPos .. "_" .. slotIdx, "", 1)
    local used = tonumber(getplayvar(actor, "HUMAN", "SLOT_USED_" .. equipPos) or "0") - 1
    setplayvar(actor, "HUMAN", "SLOT_USED_" .. equipPos, used, 1)
    sendmsg(actor, 0, "拆除成功，灵珠不返还")
end