【数据存储】数据迁移：角色数据的批量搬家实践

-- 数据迁移：批量搬运
local player = class(actor)
local BATCH_SIZE = 500
local function migrateBatch(player, startId, endId)
    local migrated = 0
    for id = startId, endId do
        local data = getplayvar(player, "HUMAN", "CharData_" .. id)
        if data and data ~= "" then
            setsysvarex("Migrated_" .. id, data, true)
            migrated = migrated + 1
        end
        if migrated >= BATCH_SIZE then break end
    end
    setsysvarex("MigrateProgress", startId + migrated, true)
    sendmsg(player, 1, 0, "本批迁移 " .. migrated .. " 个角色。")
end

-- 一致性校验：比对与修复
local player = class(actor)
local function verifyMigration(player, batchStart, batchEnd)
    local mismatch = 0
    for id = batchStart, batchEnd do
        local src = getplayvar(player, "HUMAN", "CharData_" .. id) or ""
        local dst = getsysvar("Migrated_" .. id) or ""
        if src ~= dst and src ~= "" then
            mismatch = mismatch + 1
            setsysvarex("MigrateFix_" .. id, src, true)
        end
    end
    if mismatch > 0 then
        sendmsg(player, 1, 0, "发现 " .. mismatch .. " 条差异，已修复。")
    end
end