【UEFN】Verse言語で「均等にチーム分けをする仕組み」を実装する

using { /UnrealEngine.com/Temporary/Diagnostics } 
using { /Fortnite.com/Devices } 
using { /Verse.org/Simulation } 
using { /Fortnite.com/FortPlayerUtilities } 



Team_Setter_Device := class(creative_device): 
    @editable var PregameTimer : timer_device = timer_device{} 
    @editable var PregameCounter : player_counter_device = player_counter_device{} 
    @editable var HudPregame : hud_controller_device = hud_controller_device{} 
    @editable var HudGameStart : hud_controller_device = hud_controller_device{} 
    @editable var Teleporters : [] teleporter_device = array{} 
    var Teams : []team = array{} 

  

    OnBegin<override>()<suspends> : void = 
        PregameCounter.CompareToTarget() 
        PregameCounter.CountSucceedsEvent.Subscribe(StartPregameTimer) 



    StartPregameTimer() : void= 
        PregameTimer.Start() 
        PregameTimer.SuccessEvent.Subscribe(SplitTeams) 

  
  
    SplitTeams(Agent : ?agent) : void= 
            set Teams = GetPlayspace().GetTeamCollection().GetTeams() 
            AllPlayers := GetPlayspace().GetPlayers() 
            GetPlayspace().PlayerAddedEvent().Subscribe(OnPlayerAdded) 
            BalanceTeams() 
            TeleportPlayersToStartLocations() 
            PregameCounter.Disable() 
            
            
            
    OnPlayerAdded(InPlayer : player) : void = 
        BalanceTeams() 
        TeleportPlayersToStartLocations()             

  
  
    BalanceTeams() : void = 
        AllPlayers := GetPlayspace().GetPlayers() 
        for(TeamPlayer:AllPlayers,CurrentTeam:= GetPlayspace().GetTeamCollection().GetTeam[TeamPlayer]): 
            var TeamSize:int = 0 
            if(setTeamSize= GetPlayspace().GetTeamCollection().GetAgents[CurrentTeam].Length): 
            SmallestTeam : ?team = FindSmallestTeam(TeamSize) 
            if(TeamToAssign:=SmallestTeam?, GetPlayspace().GetTeamCollection().AddToTeam[TeamPlayer, TeamToAssign]): 
            
            
            
    FindSmallestTeam(CurrentTeamSize : int) : ?team = 
        var SmallestTeam : ?team = false 
        var TeamSize : int = CurrentTeamSize 

        for(Team:Teams,CandidateTeamSize:= GetPlayspace().GetTeamCollection().GetAgents[Team].Length, TeamSize > CandidateTeamSize): 
            set SmallestTeam = option{Team} 
            set TeamSize = CandidateTeamSize 
        return SmallestTeam  

  

    TeleportPlayersToStartLocations():void= 
        for: 
            TeamIndex -> PlayerTeam:Teams  
            TeamPlayers:= GetPlayspace().GetTeamCollection().GetAgents[PlayerTeam] 
            TeamTeleporter := Teleporters[TeamIndex] 
            Transform := TeamTeleporter.GetTransform() 

        do: 
            for(TeamPlayer:TeamPlayers): 
                TeamPlayer.Respawn(Transform.Translation, Transform.Rotation)