【进阶实战】求婚三方确认：彩礼托管的流程封装

local function propose(actor, targetName)
    actor = getplayerbyname(actor)
    if not takeitem(actor, "金条", 5) then
        sendmsg(actor, 1, "求婚彩礼需要 5 根金条。")
        return
    end
    local pid = "P" .. os.time()
    local rec = tostring(actor) .. "|" .. targetName .. "|" .. (os.time() + 86400)
    setsysvarex("Propose_" .. pid, rec, 1)
    local t = getplayerbyname(targetName)
    if t ~= nil and t ~= "" then
        sendmsg(t, 1, tostring(actor) .. " 发来求婚，彩礼已由系统托管，24 小时内答复。")
    end
    sendmsg(actor, 1, "求婚已送达[" .. pid .. "]，彩礼托管中。")
end

local function answerPropose(actor, pid, accept)
    actor = getplayerbyname(actor)
    local rec = tostring(getsysvar("Propose_" .. pid) or "")
    local from, to, deadline = string.match(rec, "([^|]+)|([^|]+)|(%d+)")
    if from == nil or tonumber(deadline) < os.time() then
        sendmsg(actor, 1, "求婚单不存在或已超时失效。")
        return
    end
    setsysvarex("Propose_" .. pid, "", 1)
    if accept then
        giveitem(getplayerbyname(from), "结婚戒指", 2)
        sendmsg(nil, 1, from .. " 与 " .. to .. " 喜结连理，沙巴克证婚人送上祝福！")
    else
        sendmail("#" .. from, 9040, "求婚婉拒",
            "对方婉拒了求婚，彩礼已原路退回。", "金条#5#0")
    end
end