【数据存储】特殊道具到期提醒：有效期数据的扫描与通知设计

local function registerExpiry(actor, item, expireTs)
    local player = class(actor)
    local list = getplayvar(actor, 2, "EXPIRY_LIST") or ""
    setplayvar(actor, "HUMAN", "EXPIRY_LIST", list .. item .. "@" .. expireTs .. ";", 1)
end

setontimerex(96, 86400)
function ontimer96()
    local now = os.time()
    for _, actor in ipairs(onlineList()) do
        local list = getplayvar(actor, 2, "EXPIRY_LIST") or ""
        local keep, hit = "", false
        for item, ts in string.gmatch(list, "([^@;]+)@(%d+);") do
            local left = tonumber(ts) - now
            if left > 0 then
                if left <= 86400 then
                    sendmsg(actor, 0, item .. "将在24小时内到期")
                    keep = keep .. item .. "@" .. ts .. ";"
                elseif left <= 259200 then
                    sendmsg(actor, 0, item .. "还有3天到期，请合理安排")
                    keep = keep .. item .. "@" .. ts .. ";"
                else
                    keep = keep .. item .. "@" .. ts .. ";"
                end
                hit = true
            end
        end
        setplayvar(actor, "HUMAN", "EXPIRY_LIST", keep, 1)
    end
end