【进阶实战】拜师审核：拜师申请的队列与审核流转

local function applyMaster(actor, masterName)
    actor = getplayerbyname(actor)
    local m = getplayerbyname(masterName)
    if m == nil or m == "" then
        sendmsg(actor, 1, "目标师父当前不在线，稍后再试。")
        return
    end
    local queue = getplayvar(m, "HUMAN", "AppQueue") or ""
    if string.find(queue, tostring(actor), 1, true) then
        sendmsg(actor, 1, "申请已在队列中，请耐心等待。")
        return
    end
    local entry = queue == "" and tostring(actor) or (queue .. "|" .. actor)
    setplayvar(m, "HUMAN", "AppQueue", entry, 1)
    sendmsg(actor, 1, "拜师申请已提交，排队第 " ..
        (select(2, string.gsub(entry, "|", "")) + 1) .. " 位。")
end

local function reviewApp(actor, appName, accept)
    actor = getplayerbyname(actor)
    local queue = getplayvar(actor, "HUMAN", "AppQueue") or ""
    local kept, found = {}, false
    for name in string.gmatch(queue, "[^|]+") do
        if name == appName then
            found = true
        else
            kept[#kept + 1] = name
        end
    end
    if not found then
        sendmsg(actor, 1, "队列中没有该申请。")
        return
    end
    setplayvar(actor, "HUMAN", "AppQueue", table.concat(kept, "|"), 1)
    if accept then
        setplayvar(getplayerbyname(appName), "HUMAN", "Master", tostring(actor), 1)
        sendmsg(nil, 1, appName .. " 拜入 " .. tostring(actor) .. " 门下！")
    else
        sendmail("#" .. appName, 9060, "拜师婉拒",
            "师父婉拒了拜师申请，可继续申请其他师父。", "")
    end
end