【引擎触发】组队系统：组队邀请与经验分配的引擎实现

local TEAM_MAX = 8
function QF.CreateTeam(plr)
    if plr.teamId then return false, "已在队伍中" end
    local team = { id = QF_NewId(), leader = plr.id, members = { plr.id } }
    teams[team.id] = team
    plr.teamId = team.id
    plr:SendMsg("队伍创建成功，邀请队友吧")
    return team
end

function QF.InviteTeam(plr, target)
    local team = teams[plr.teamId]
    if not team or team.leader ~= plr.id then return false, "仅队长可邀请" end
    if #team.members >= TEAM_MAX then return false, "队伍已满（8 人）" end
    if target.teamId then return false, "对方已有队伍" end
    QF_SendConfirm(target, plr.name .. " 邀请加入队伍", function(ok)
        if ok then Team.join(team, target) end
    end)
    return true
end

function Team.shareExp(team, baseExp)
    local mode = team.expMode or "average"
    if mode == "average" then
        local per = math.floor(baseExp * 1.2 / #team.members)
        for _, mid in ipairs(team.members) do
            local m = QF_GetPlayer(mid)
            if m and m:IsOnline() then m:AddExp(per) end
        end
    else
        for _, mid in ipairs(team.members) do
            local m = QF_GetPlayer(mid)
            if m and m:IsOnline() and m:DistTo(lastHit) <= 8 then
                m:AddExp(math.floor(baseExp * 1.5))
            end
        end
    end
end