【引擎触发】记忆套装：组队集体传送的实现与防滥用

-- QFunction 特戒指令触发
function QF.MemoryCall(leader)
    if not leader:HasFullMemorySet() then return false, "记忆套装不齐" end
    local team = leader:GetTeamMembers()
    if #team < 2 then return false, "队员不足" end
    if leader:InBattle() then return false, "战斗中无法召唤" end
    leader:SetCooldown("memory_call", 600)
    for _, m in ipairs(team) do
        if m.id ~= leader.id and m:IsOnline() and not m:InBattle() then
            m:AskTeleport(leader.mapId, leader.x, leader.y, 10)
        end
    end
    return true
end

function QF.MemoryAccept(member, leaderPos)
    member:MapMove(leaderPos.mapId, leaderPos.x + math.random(-2, 2), leaderPos.y + math.random(-2, 2))
    member:SendMsg("已传送到队长身边")
    SL_NOTE:member:PlayAudio(2090)
end