【进阶实战】沙巴克军饷：邮件发奖的幂等封装与防重复

local function payOnce(actor, batchId, gold)
    actor = getplayerbyname(actor)
    local key = "Pay_" .. batchId
    if getplayvar(actor, "HUMAN", key) ~= "" then
        return false
    end
    setplayvar(actor, "HUMAN", key, batchId, 1)
    sendmail("#" .. tostring(actor), 9002, "沙巴克军饷",
        "攻城犒赏已发放，请查收附件。", "金条#" .. gold .. "#1")
    return true
end
local function payGuild(actor, members, batchId, gold)
    local ok, skip = 0, 0
    for _, name in ipairs(members) do
        if payOnce(name, batchId, gold) then
            ok = ok + 1
        else
            skip = skip + 1
        end
    end
    sendmsg(getplayerbyname(actor), 1, "军饷发放完成：新发 " .. ok .. " 人，幂等跳过 " .. skip .. " 人。")
end

local function repairMissed(actor, members, batchId, gold)
    for _, name in ipairs(members) do
        local t = getplayerbyname(name)
        if t ~= nil and t ~= "" then
            payOnce(t, batchId, gold)
        end
    end
end