【工具脚本】补偿名单断点续发：发放脚本的分批与回滚

local function grantBatch(batchId)
    local names = getBatchNames(batchId)
    for _, nm in ipairs(names) do
        local done = getplayvar(nm, "HUMAN", "COMP_902")
        if done ~= 1 then
            giveitem(nm, "补偿礼盒", 1)
            setplayvar(nm, "HUMAN", "COMP_902", 1, 1)
        end
    end
    setsysvarex("COMP_CURSOR", batchId, 1)
end

local FAIL = {}
local function grantOne(nm)
    local ok = giveitem(nm, "补偿礼盒", 1)
    if ok then
        setplayvar(nm, "HUMAN", "COMP_902", 1, 1)
    else
        table.insert(FAIL, nm)
    end
end
local function rollback(nm)
    if getplayvar(nm, "HUMAN", "COMP_902") == 1 then
        local p = class(nm)
        p:takeitem("补偿礼盒", 1)
        setplayvar(nm, "HUMAN", "COMP_902", 0, 1)
    end
end