【数据存储】邮件补发：断线期间的系统邮件落库与补投

-- 投递失败：按单号落库挂起
local player = class(actor)
local function pendMail(player, orderNo, title, memo, rewards)
    local pend = getplayvar(player, "HUMAN", "MailPend") or ""
    if string.find(pend, orderNo, 1, true) then return end
    local n = tonumber(getplayvar(player, "HUMAN", "MailPendN") or 0)
    if n >= 50 then
        sendmsg(player, 1, 0, "待补邮件已满 50 封，请先领取。")
        return
    end
    setplayvar(player, "HUMAN", "MailPend", pend .. orderNo .. ",", true)
    setplayvar(player, "HUMAN", "MailPendN", n + 1, true)
    setplayvar(player, "HUMAN", "MailPendData", (getplayvar(player, "HUMAN", "MailPendData") or "") .. orderNo .. "|" .. title .. "|" .. memo .. "|" .. rewards .. "&", true)
end

-- QF触发: login 分批补投待补邮件
function onLoginMail(actor)
    local player = class(actor)
    local data = getplayvar(player, "HUMAN", "MailPendData") or ""
    local idx = 0
    for item in string.gmatch(data, "[^&]+") do
        local orderNo, title, memo, rewards = string.match(item, "([^|]+)|([^|]+)|([^|]+)|(.+)")
        if orderNo then
            idx = idx + 1
            if idx <= 10 then
                sendmail("#" .. (getbaseinfo(player, 3) or ""), 8002, title, memo, rewards)
            end
        end
    end
    if idx > 0 then
        sendmsg(player, 1, 0, "补发系统邮件 " .. math.min(idx, 10) .. " 封，请查收。")
    end
end