【数据存储】奖励发放幂等：活动补发的流水表与去重键设计

local function grantOnce(actor, actId, reward)
    local player = class(actor)
    local key = actId .. "_" .. player:GetName()
    if getplayvar(actor, 2, "GRANT_" .. actId) == 1 then
        sendmsg(actor, 0, "该奖励已领取过，请勿重复操作")
        return false
    end
    sendmail(actor, 0, actId .. " 活动奖励", "发放单号" .. key, reward)
    setplayvar(actor, "HUMAN", "GRANT_" .. actId, 1, 1)
    return true
end

function grantAll(actor, actId)
    local ok, skip = 0, 0
    for name, _ in pairs(onlineList()) do
        local a = getplayerbyname(name)
        if a ~= nil and isplayer(a) then
            if grantOnce(a, actId, "元宝|100") then
                ok = ok + 1
            else
                skip = skip + 1
            end
        end
    end
    sendmsg(actor, 0, "补发完成：成功" .. ok .. "，跳过" .. skip)
end