【数据存储】存档写入削峰：脏标记合并与落盘节奏的设计

local dirty = {}
local function markDirty(actor, field)
    local player = class(actor)
    dirty[player:GetName()] = dirty[player:GetName()] or {}
    dirty[player:GetName()][field] = true
end

setontimerex(89, 30)
function ontimer89()
    local n = 0
    for name, fields in pairs(dirty) do
        local a = getplayerbyname(name)
        if a ~= nil and isplayer(a) then
            flushFields(a, fields)
        end
        dirty[name] = nil
        n = n + 1
        if n >= 200 then break end
    end
end