TM2020-Gamemodes/TM_Alfadream.Script.txt

#Extends "Modes/TrackMania/TM_Cup_Online.Script.txt"

#Setting S_PointsLimit 50
#Setting S_RoundsPerMap 4
#Setting S_PointsRepartition "10,6,4,3,0"
#Setting S_PlayersPerMatch 12

#Const C_ML_TeamPicker "Custom_TeamPicker"

***Match_StartServer***
***
Clans::SetClansNb(6);
Clans::SetUseForcedClans(True);
WarmUp::SetSpawnInRequestedClan(False); // Must be disabled because Clans are forced
***

***Match_StartMatch***
***
declare netwrite Integer[Text] Net_Custom_PlayersClan for Teams[0] ;
Net_Custom_PlayersClan = [];

Teams[2].Name = "Cyan";
Teams[3].Name = "Pink";
Teams[4].Name = "Yellow";
Teams[5].Name = "Green";
***


***Match_InitMap***
***
if (GetPlayersNb() < S_PlayersPerMatch) {
    SendPickManialink();
    declare netwrite Integer[Text] Net_Custom_PlayersClan for Teams[0] = [];

    foreach (Player in AllPlayers) {
        if (Player.IsFakePlayer) {
            Net_Custom_PlayersClan[Player.User.WebServicesUserId] = ML::Rand(1,6);
            Player.Score.LadderClan = Net_Custom_PlayersClan[Player.User.WebServicesUserId];
        }
    }


    while (GetPlayersNb() < S_PlayersPerMatch && MB_MapIsRunning()) {
        MB_Yield();

        foreach (Event in UIManager.PendingEvents) {
            if (Event.Type == CUIConfigEvent::EType::OnLayerCustomEvent && Event.CustomEventType == "Custom_Join_Clan") {
                declare CSmPlayer Player = GetPlayer(Event.UI);
                if (Player != Null) {
                    Net_Custom_PlayersClan[Player.User.WebServicesUserId] = TL::ToInteger(Event.CustomEventData[0]);
                    Player.Score.LadderClan = Net_Custom_PlayersClan[Player.User.WebServicesUserId];
                    SetPlayerClan(Player, Net_Custom_PlayersClan[Player.User.WebServicesUserId]);
                }
            }
        }
    }

    Layers::Detach(C_ML_TeamPicker);
}
declare Int2[] Custom_RoundsVersus for This = [];
Custom_RoundsVersus = GenerateRoundVersus();
***

***Match_InitRound***
***
declare Integer Custom_NbOfValidRounds for This = 0;
Custom_NbOfValidRounds = G_NbOfValidRounds;

declare Integer[] ClansThatCanSpawn = GetClansThatCanSpawn();

if (ClansThatCanSpawn.count == 6) {
    UIModules_BigMessage::SetMessage("All teams play");
} else {
    declare CTeam Team1 <=> Teams[ClansThatCanSpawn[0] - 1];
    declare CTeam Team2 <=> Teams[ClansThatCanSpawn[1] - 1];

    UIModules_BigMessage::SetMessage(Team1.Name ^ " vs " ^ Team2.Name);
}
MB_Sleep(3000);
UIModules_BigMessage::SetMessage("");
***

***Match_Yield***
***
foreach (Event in PendingEvents) {
    if (Event.Type == CSmModeEvent::EType::OnPlayerAdded) {
        declare netwrite Integer[Text] Net_Custom_PlayersClan for Teams[0] = [];
        if (Net_Custom_PlayersClan.existskey(Event.Player.User.WebServicesUserId)) {
            Event.Player.Score.LadderClan = Net_Custom_PlayersClan[Event.Player.User.WebServicesUserId];
            SetPlayerClan(Event.Player, Net_Custom_PlayersClan[Event.Player.User.WebServicesUserId]);
        }
    }
}
***

***Rounds_SpawnPlayer***
***
SetPlayerClan(Player, Player.Score.LadderClan);
Race::Start(Player, StartTime);
***


***Rounds_CheckCanSpawn***
***
declare netwrite Integer[Text] Net_Custom_PlayersClan for Teams[0] = [];
if (!Net_Custom_PlayersClan.existskey(_Player.Score.User.WebServicesUserId)) return False;


// Copy of GetClansThatCanSpawn() checks
declare Boolean OnePlayerIsFinalist = False;
foreach (Score in Scores) {
	if (Scores::GetPlayerMatchPoints(Score) >= S_PointsLimit) {
		OnePlayerIsFinalist = True;
		break;
	}
}
if (!OnePlayerIsFinalist) {
	declare Int2[] Custom_RoundsVersus for This = [];
	declare Integer Custom_NbOfValidRounds for This = 0;

	if (Custom_RoundsVersus.existskey(Custom_NbOfValidRounds)) {
			if (Custom_RoundsVersus[Custom_NbOfValidRounds].X != Net_Custom_PlayersClan[_Player.Score.User.WebServicesUserId] 
					 && Custom_RoundsVersus[Custom_NbOfValidRounds].Y != Net_Custom_PlayersClan[_Player.Score.User.WebServicesUserId]) {
					return False;
			}		
	}
}
***

Integer GetPlayersNb() {
    declare netwrite Integer[Text] Net_Custom_PlayersClan for Teams[0] = [];
    return Net_Custom_PlayersClan.count;
}

Int2[] GenerateRoundVersus() {
    declare Integer[Integer] SortingTeam;
    for (I, 1, 6) {
        SortingTeam[I] = ML::Rand(0, 10000);
    }

    SortingTeam = SortingTeam.sort();

    declare Integer[] SortedTeam;

    foreach (ClanId => Rand in SortingTeam.sort()) {
        SortedTeam.add(ClanId);
    }

    declare Int2[] RoundOrder;
    for (I, 0, 2) {
        RoundOrder.add(<SortedTeam[I * 2], SortedTeam[I * 2 + 1]>);
    }
    return RoundOrder;
}

Integer[] GetClansThatCanSpawn() {
	declare Boolean OnePlayerIsFinalist = False;
	foreach (Score in Scores) {
		if (Scores::GetPlayerMatchPoints(Score) >= S_PointsLimit) {
			OnePlayerIsFinalist = True;
			break;
		}
	}

	if (!OnePlayerIsFinalist) {
		declare Int2[] Custom_RoundsVersus for This = [];
		declare Integer Custom_NbOfValidRounds for This = 0;
	
		if (Custom_RoundsVersus.existskey(Custom_NbOfValidRounds)) {
			return [Custom_RoundsVersus[Custom_NbOfValidRounds].X, Custom_RoundsVersus[Custom_NbOfValidRounds].Y];
		}
	}

	return [1, 2, 3, 4, 5, 6];
}

Void SendPickManialink() {
    declare Text Manialink = """
    <?xml version="1.0" encoding="utf-8" standalone="yes" ?>
    <manialink version="3" name="{{{C_ML_TeamPicker}}}">
        <stylesheet>
			<style class="center" halign="center" valign="center" />
		</stylesheet>
        <framemodel id="framemodel-team">
            <label id="label-team-name" pos="0 -5" class="center" textsize=3 textfont="GameFontExtraBold"/>

            <frame id="frame-players" pos="0 -15">
                <label pos="0 0" class="center" textsize=2 textfont="GameFontSemiBold"/>
                <label pos="0 -5" class="center" textsize=2 textfont="GameFontSemiBold"/>
                <label pos="0 -10" class="center" textsize=2 textfont="GameFontSemiBold"/>
                <label pos="0 -15" class="center" textsize=2 textfont="GameFontSemiBold"/>
            </frame>

            <label id="label-join-clan" pos="0 -76" class="center" style="CardButtonSmallS" text="Join" scriptevents=2/>
        </framemodel>
        <frame id="frame-global">
            <quad id="background" class="center" z-index="-1" size="180 80" bgcolor="000" opacity="0.7" />

            <frame id="frame-teams">
								<frameinstance modelid="framemodel-team" pos="-75 40" data-clanid="1"/>
                <frameinstance modelid="framemodel-team" pos="-45 40" data-clanid="2"/>
                <frameinstance modelid="framemodel-team" pos="-15 40" data-clanid="3"/>
                <frameinstance modelid="framemodel-team" pos="15 40" data-clanid="4"/>
                <frameinstance modelid="framemodel-team" pos="45 40" data-clanid="5"/>
                <frameinstance modelid="framemodel-team" pos="75 40" data-clanid="6"/>
            </frame>
        </frame>
        <script><!--
            #Include "TextLib" as TL
            #Include "TimeLib" as TimeLib

            #Const C_AttachId {{{dump(C_ML_TeamPicker)}}}

            main() {
                log("Init");

                declare CMlFrame Frame_Teams <=> (Page.GetFirstChild("frame-teams") as CMlFrame);
                foreach (Key => Control in Frame_Teams.Controls) {
                    if (!Teams.existskey(Key)) break;
                    declare CMlFrame Frame <=> Control as CMlFrame;
                    declare CMlLabel Label_TeamName <=> (Frame.GetFirstChild("label-team-name") as CMlLabel);
                    Label_TeamName.Value = Teams[Key].Name;
                    Label_TeamName.TextColor = Teams[Key].ColorPrimary;
                }

                // Wait C++ initialize the player
                wait (InputPlayer != Null);

                declare netread Integer[Text] Net_Custom_PlayersClan for Teams[0] = [];

                while(True) {
                    yield;

                    declare Text[][Integer] PlayerPerTeams = [];

                    foreach (Player in Players) {
                        if (!Net_Custom_PlayersClan.existskey(Player.User.WebServicesUserId)) continue;

                        declare Integer TeamId = Net_Custom_PlayersClan[Player.User.WebServicesUserId] - 1;

                        if (!PlayerPerTeams.existskey(TeamId)) PlayerPerTeams[TeamId] = [];
                        PlayerPerTeams[TeamId].add(Player.User.Name);
                    }

                    foreach (TeamId => Control in Frame_Teams.Controls) {
                        declare CMlFrame Frame_Team <=> Control as CMlFrame;
                        declare CMlFrame Frame_Players <=> (Frame_Team.GetFirstChild("frame-players") as CMlFrame);
                        foreach (Key => Control in Frame_Players.Controls) {
                            declare CMlLabel Label <=> Control as CMlLabel ;
                            //declare CMlLabel Label <=> (Frame_Player.GetFirstChild("") as CMlLabel);
                            if (PlayerPerTeams.existskey(TeamId) && PlayerPerTeams[TeamId].existskey(Key)) {
                                Label.Value = PlayerPerTeams[TeamId][Key];
                            } else {
                                Label.Value = "";
                            }
                        }
                    }

                    foreach (Event in PendingEvents) {
                        if (Event.Type == CMlScriptEvent::Type::MouseClick) {
                            if (Event.ControlId == "label-join-clan") {
                                declare Text ClanId = Event.Control.Parent.DataAttributeGet("clanid");
                                SendCustomEvent("Custom_Join_Clan", [ClanId]);
                            }
                        }
                    }
                }
            }
        --></script>
    </manialink>
    """;

	Layers::Create(C_ML_TeamPicker, Manialink);
	Layers::SetType(C_ML_TeamPicker, CUILayer::EUILayerType::Normal);
  Layers::Attach(C_ML_TeamPicker);
}