【进阶实战】悬赏托管：赏金预扣与超时退回封装

local function postBounty(actor, targetName, bountyGold)
    actor = getplayerbyname(actor)
    local fee = math.ceil(bountyGold * 5 / 100)
    if not takeitem(actor, "金条", math.ceil((bountyGold + fee) / 10000)) then
        sendmsg(actor, 1, "需赏金 " .. bountyGold .. " 金币另加 5% 手续费。")
        return
    end
    local oid = "B" .. os.time()
    local entry = oid .. ":" .. tostring(actor) .. ":" .. targetName .. ":" .. bountyGold .. ":" .. os.time()
    local board = tostring(getsysvar("BountyBoard") or "")
    if board == "" or board == "0" then
        board = entry
    else
        board = board .. "|" .. entry
    end
    setsysvarex("BountyBoard", board, 1)
    sendmsg(actor, 1, "悬赏已挂出[" .. oid .. "]，24 小时无人完成自动退回。")
end

local function ontimerex99()
    local board = tostring(getsysvar("BountyBoard") or "")
    if board == "" or board == "0" then
        return
    end
    local alive, refund = {}, 0
    for e in string.gmatch(board, "[^|]+") do
        local oid, poster, target, gold, at =
            string.match(e, "([^:]+):([^:]+):([^:]+):(%d+):(%d+)")
        if tonumber(at) + 86400 <= os.time() then
            sendmail("#" .. poster, 9020, "悬赏退回",
                "悬赏[" .. oid .. "]（目标：" .. target .. "）无人完成，赏金退回。",
                "金条#" .. math.ceil(tonumber(gold) / 10000) .. "#0")
            refund = refund + 1
        else
            alive[#alive + 1] = e
        end
    end
    setsysvarex("BountyBoard", table.concat(alive, "|"), 1)
    if refund > 0 then
        sendmsg(nil, 1, "本轮悬赏超时退回 " .. refund .. " 单。")
    end
end