【引擎触发】道士施毒叠加：中毒层数的上限与衰减触发设计

local POISON_CAP = 5
function applyPoison(actor)
    local player = class(actor)
    local stacks = tonumber(getplayvar(actor, 2, "POISON_STK") or "0")
    if stacks >= POISON_CAP then
        sendmsg(actor, 0, "毒层已满5层")
        return
    end
    setplayvar(actor, "HUMAN", "POISON_STK", stacks + 1, 1)
end
setontimerex(106, 2)
function ontimer106()
    for _, name in ipairs(poisonedList()) do
        local a = getplayerbyname(name)
        if a ~= nil and isplayer(a) then
            local s = tonumber(getplayvar(a, 2, "POISON_STK") or "0")
            if s > 0 then
                humanhp(a, "-", s * 15)
                setplayvar(a, "HUMAN", "POISON_STK", s - 1, 1)
            end
        end
    end
end

local function refreshDots(name)
    local a = getplayerbyname(name)
    if a == nil then return end
    local s = tonumber(getplayvar(a, 2, "POISON_STK") or "0")
    for i = 1, 5 do
        GUI:setVisible(dots[i], i <= s)
    end
end