【Lua实战】红名值衰减设计：PK值定时衰减与洗红道具的实现

local function addPK(actor, val)
    local cur = tonumber(getplayvar(actor, 2, "PKVAL") or "0") + val
    setplayvar(actor, "HUMAN", "PKVAL", cur, 1)
    if cur >= 200 then
        sendcentermsg(class(actor):GetName() .. " 已红名，小心掉装！")
    end
    setontimer(actor, 66, 300, cur)
end
function ontimer66(actor)
    local cur = tonumber(getplayvar(actor, 2, "PKVAL") or "0")
    if cur <= 0 then return end
    setplayvar(actor, "HUMAN", "PKVAL", cur - 1, 1)
end

function npc_xihong(actor)
    local player = class(actor)
    local cur = tonumber(getplayvar(actor, 2, "PKVAL") or "0")
    if cur <= 0 then
        sendmsg(actor, 0, "少侠一身清白，无需洗红")
        return
    end
    if player:checkitemw("洗红药水", 1) == false then
        sendmsg(actor, 0, "杂货店有洗红药水出售，单价200元宝")
        return
    end
    player:takeitem("洗红药水", 1)
    local dec = math.min(50, cur)
    setplayvar(actor, "HUMAN", "PKVAL", cur - dec, 1)
    sendmsg(actor, 0, "PK值下降" .. dec .. "点，当前" .. (cur - dec))
end