【引擎触发】组队副本匹配：梯度队列与悬赏奖励的定时结算

local pool = {}
function joinMatchQueue(actor)
    local player = class(actor)
    local lv = getbaseinfo(actor, 6)
    pool[player:GetName()] = lv
    sendmsg(actor, 0, "已进入匹配队列，当前" .. #poolKeys() .. "人在等")
end
function poolKeys()
    local k = {}
    for name, _ in pairs(pool) do k[#k + 1] = name end
    return k
end
setontimerex(87, 5)
function ontimer87()
    local keys = poolKeys()
    if #keys < 3 then return end
    for i = 1, #keys - 2 do
        local a, b, c = pool[keys[i]], pool[keys[i + 1]], pool[keys[i + 2]]
        if math.abs(a - b) <= 5 and math.abs(b - c) <= 5 then
            formTeam(keys[i], keys[i + 1], keys[i + 2])
            pool[keys[i]] = nil
            pool[keys[i + 1]] = nil
            pool[keys[i + 2]] = nil
            return
        end
    end
end

function bountySettle(actor, score)
    local player = class(actor)
    local box = score >= 80 and "鎏金悬赏箱" or "悬赏木箱"
    sendmail(actor, 0, "沃玛秘境悬赏结算", "表现评分" .. score, box .. "|1")
end