【进阶实战】补偿发放失误：重复补偿的追回流程封装

local function createRecovery(actorName, total, mailId)
    local actor = getplayerbyname(actorName)
    setplayvar(actor, "HUMAN", "Recovery_" .. mailId,
        total .. "|0|recovering", 1)
    sendmail("#" .. actorName, 0, "补偿调整说明",
        "因发放调整，超额部分将从后续收益中分期收回，每日最多扣减 20%。", "")
end
local function recoverDaily(actorName, mailId, dailyGain)
    local actor = getplayerbyname(actorName)
    local rec = getplayvar(actor, "HUMAN", "Recovery_" .. mailId) or ""
    if rec == "" or string.find(rec, "done", 1, true) then
        return
    end
    local total, paid = string.match(rec, "^(%d+)|(%d+)|")
    local owe = tonumber(total) - tonumber(paid)
    local take = math.min(math.floor(dailyGain * 0.2), owe)
    if take <= 0 then
        return
    end
    paid = tonumber(paid) + take
    if paid >= tonumber(total) then
        setplayvar(actor, "HUMAN", "Recovery_" .. mailId,
            total .. "|" .. total .. "|done", 1)
    else
        setplayvar(actor, "HUMAN", "Recovery_" .. mailId,
            total .. "|" .. paid .. "|recovering", 1)
    end
end

local function queryRecovery(actorName, mailId)
    local actor = getplayerbyname(actorName)
    sendmsg(actor, 1, "追回进度：" ..
        (getplayvar(actor, "HUMAN", "Recovery_" .. mailId) or "无"))
end