From 498ce4b4d57aa0b56c396eed61b499736f1722da Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Sat, 16 May 2009 21:52:35 +0000 Subject: finished adaption of PartyNewRound Screen git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1745 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Lua/src/screens/UScreenPartyNewRound.pas | 39 +++++++++++++++----------------- 1 file changed, 18 insertions(+), 21 deletions(-) diff --git a/Lua/src/screens/UScreenPartyNewRound.pas b/Lua/src/screens/UScreenPartyNewRound.pas index 4f7c6bbc..e0c8c567 100644 --- a/Lua/src/screens/UScreenPartyNewRound.pas +++ b/Lua/src/screens/UScreenPartyNewRound.pas @@ -183,18 +183,18 @@ end; procedure TScreenPartyNewRound.onShow; var I: Integer; - function GetTeamPlayers(const Num: Byte): String; + function GetTeamPlayers(const Num: Integer): String; var Players: Array of String; J: Integer; begin - if (Num >= Length(Party.Teams)) then + if (Num > High(Party.Teams)) or (Num < 0) then exit; //Create Players Array - SetLength(Players, Length(Party.Teams[Num-1].Players)); - For J := 0 to High(Party.Teams[Num-1].Players) do - Players[J] := Party.Teams[Num-1].Players[J].Name; + SetLength(Players, Length(Party.Teams[Num].Players)); + For J := 0 to High(Party.Teams[Num].Players) do + Players[J] := Party.Teams[Num].Players[J].Name; //Implode and Return Result := Language.Implode(Players); @@ -202,9 +202,6 @@ var begin inherited; - // to-do : Party - //PartySession.StartRound; - //Set Visibility of Round Infos for I := 0 to 6 do begin @@ -228,11 +225,11 @@ begin //Display Scores - {if (PartySession.Teams.NumTeams >= 1) then + if (Length(Party.Teams) >= 1) then begin - Text[TextScoreTeam1].Text := InttoStr(PartySession.Teams.TeamInfo[0].Score); - Text[TextNameTeam1].Text := String(PartySession.Teams.TeamInfo[0].Name); - Text[TextTeam1Players].Text := GetTeamPlayers(1); + Text[TextScoreTeam1].Text := InttoStr(Party.Teams[0].Score); + Text[TextNameTeam1].Text := Party.Teams[0].Name; + Text[TextTeam1Players].Text := GetTeamPlayers(0); Text[TextScoreTeam1].Visible := True; Text[TextNameTeam1].Visible := True; @@ -249,11 +246,11 @@ begin Static[StaticNextPlayer1].Visible := False; end; - if (PartySession.Teams.NumTeams >= 2) then + if (Length(Party.Teams) >= 2) then begin - Text[TextScoreTeam2].Text := InttoStr(PartySession.Teams.TeamInfo[1].Score); - Text[TextNameTeam2].Text := String(PartySession.Teams.TeamInfo[1].Name); - Text[TextTeam2Players].Text := GetTeamPlayers(2); + Text[TextScoreTeam2].Text := InttoStr(Party.Teams[1].Score); + Text[TextNameTeam2].Text := Party.Teams[1].Name; + Text[TextTeam2Players].Text := GetTeamPlayers(1); Text[TextScoreTeam2].Visible := True; Text[TextNameTeam2].Visible := True; @@ -270,11 +267,11 @@ begin Static[StaticNextPlayer2].Visible := False; end; - if (PartySession.Teams.NumTeams >= 3) then + if (Length(Party.Teams) >= 3) then begin - Text[TextScoreTeam3].Text := InttoStr(PartySession.Teams.TeamInfo[2].Score); - Text[TextNameTeam3].Text := String(PartySession.Teams.TeamInfo[2].Name); - Text[TextTeam3Players].Text := GetTeamPlayers(3); + Text[TextScoreTeam3].Text := InttoStr(Party.Teams[2].Score); + Text[TextNameTeam3].Text := Party.Teams[2].Name; + Text[TextTeam3Players].Text := GetTeamPlayers(2); Text[TextScoreTeam3].Visible := True; Text[TextNameTeam3].Visible := True; @@ -289,7 +286,7 @@ begin Text[TextTeam3Players].Visible := False; Static[StaticTeam3].Visible := False; Static[StaticNextPlayer3].Visible := False; - end; } + end; //nextRound Texts Text[TextNextRound].Text := Language.Translate('PLUGIN_' + uppercase(Party.Modes[Party.Rounds[Party.CurrentRound].Mode].Name) + '_DESC'); -- cgit v1.2.3