【入门夯实】行会战账目：积分对不上的口径复盘

local function grantScore(actor, base, bonus)
    local total = base + bonus
    setplayvar(actor, "HUMAN", "WarScore",
        (tonumber(getplayvar(actor, "HUMAN", "WarScore")) or 0) + total, 1)
end

local RULES = {
    grant = function(base, bonus) return base + bonus end,
    spend = function(price, discount) return price - discount end,
}
local function grantByRule(actor, base, bonus)
    local delta = RULES.grant(base, bonus)
    addScore(actor, delta)
    return delta
end
local function spendByRule(actor, price, discount)
    local delta = RULES.spend(price, discount)
    addScore(actor, -delta)
    return delta
end

local weekGap = weekGrantTotal - weekSpendTotal - stockDelta
if math.abs(weekGap) > 100 then
    sendmsg(nil, 1, "周对账差值 " .. weekGap .. " 分，请排查。")
end

local function weeklyAudit(weekRows)
    local grantSum, spendSum = 0, 0
    for _, r in ipairs(weekRows) do
        if r.kind == "grant" then
            grantSum = grantSum + r.delta
        else
            spendSum = spendSum + r.delta
        end
    end
    return grantSum, spendSum
end