【引擎触发】结婚系统：教堂婚礼的仪式流程与喜糖奖励

---预约：校验单身与信物，占用时段
function Wedding.book(actor, partnerName, slotId)
    local spouse = getplayvar(actor, 2, "SpouseId")
    if spouse and spouse ~= "" then
        sendmsg(actor, 1, "已有婚姻")
        return false
    end
    local slot = Wedding.slots[slotId]
    if not slot or slot.bookedBy then
        sendmsg(actor, 1, "该时段已被预约")
        return false
    end
    if not checkitemw(actor, "结婚戒指", 1) then
        sendmsg(actor, 1, "缺少结婚戒指")
        return false
    end
    slot.bookedBy = actor:GetUserId()
    slot.at = os.time()
    QF_Broadcast(actor:GetName() .. " 预定了婚礼，欢迎届时光临观礼")
    return true
end

---礼成：传送、发糖、结缘、授称号
function Wedding.ceremony(slot, partnerA, partnerB)
    mapmove(partnerA, "church", 12, 20, 0)
    mapmove(partnerB, "church", 14, 20, 0)
    for _, guest in ipairs(Wedding.guests) do
        giveitem(guest, "喜糖", 3)
    end
    setplayvar(partnerA, "HUMAN", "SpouseId", partnerB:GetUserId(), 1)
    setplayvar(partnerB, "HUMAN", "SpouseId", partnerA:GetUserId(), 1)
    setranklevelname(partnerA, partnerB:GetName() .. " 的爱人")
    setranklevelname(partnerB, partnerA:GetName() .. " 的爱人")
    QF_Broadcast(partnerA:GetName() .. " 与 " .. partnerB:GetName() .. " 礼成！百年好合！")
end