From ac508bab2e69d6ed7987c23f383ed503a310785c Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 30 Apr 2007 15:50:23 +0000
Subject: Added new Object to PartyNewRound Screen   TextTeam[1..3]Players:
 Text shows the Players of the Team

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@153 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenPartyNewRound.pas | 36 ++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Screens')

diff --git a/Game/Code/Screens/UScreenPartyNewRound.pas b/Game/Code/Screens/UScreenPartyNewRound.pas
index 09391438..22f76218 100644
--- a/Game/Code/Screens/UScreenPartyNewRound.pas
+++ b/Game/Code/Screens/UScreenPartyNewRound.pas
@@ -48,6 +48,10 @@ type
       TextNameTeam2: Cardinal;
       TextNameTeam3: Cardinal;
 
+      TextTeam1Players: Cardinal;
+      TextTeam2Players: Cardinal;
+      TextTeam3Players: Cardinal;
+
       StaticTeam1: Cardinal;
       StaticTeam2: Cardinal;
       StaticTeam3: Cardinal;
@@ -153,6 +157,11 @@ begin
   TextNameTeam2 := AddText (Theme.PartyNewRound.TextNameTeam2);
   TextNameTeam3 := AddText (Theme.PartyNewRound.TextNameTeam3);
 
+  //Players
+  TextTeam1Players := AddText (Theme.PartyNewRound.TextTeam1Players);
+  TextTeam2Players := AddText (Theme.PartyNewRound.TextTeam2Players);
+  TextTeam3Players := AddText (Theme.PartyNewRound.TextTeam3Players);
+
   StaticTeam1 := AddStatic (Theme.PartyNewRound.StaticTeam1);
   StaticTeam2 := AddStatic (Theme.PartyNewRound.StaticTeam2);
   StaticTeam3 := AddStatic (Theme.PartyNewRound.StaticTeam3);
@@ -166,6 +175,22 @@ end;
 procedure TScreenPartyNewRound.onShow;
 var
   I: Integer;
+  function GetTeamPlayers(const Num: Byte): String;
+  var
+    Players: Array of String;
+    J: Byte;
+  begin
+    if (Num-1 >= PartySession.Teams.NumTeams) then
+      exit;
+
+    //Create Players Array
+    SetLength(Players, PartySession.Teams.TeamInfo[Num-1].NumPlayers);
+    For J := 0 to PartySession.Teams.TeamInfo[Num-1].NumPlayers-1 do
+      Players[J] := String(PartySession.Teams.TeamInfo[Num-1].PlayerInfo[J].Name);
+
+    //Implode and Return
+    Result := Language.Implode(Players);
+  end;
 begin
   PartySession.StartRound;
 
@@ -295,9 +320,11 @@ begin
   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].Visible := True;
     Text[TextNameTeam1].Visible := True;
+    Text[TextTeam1Players].Visible := True;
     Static[StaticTeam1].Visible := True;
     Static[StaticNextPlayer1].Visible := True;
   end
@@ -305,6 +332,7 @@ begin
   begin
     Text[TextScoreTeam1].Visible := False;
     Text[TextNameTeam1].Visible := False;
+    Text[TextTeam1Players].Visible := False;
     Static[StaticTeam1].Visible := False;
     Static[StaticNextPlayer1].Visible := False;
   end;
@@ -313,9 +341,11 @@ begin
   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].Visible := True;
     Text[TextNameTeam2].Visible := True;
+    Text[TextTeam2Players].Visible := True;
     Static[StaticTeam2].Visible := True;
     Static[StaticNextPlayer2].Visible := True;
   end
@@ -323,6 +353,7 @@ begin
   begin
     Text[TextScoreTeam2].Visible := False;
     Text[TextNameTeam2].Visible := False;
+    Text[TextTeam2Players].Visible := False;
     Static[StaticTeam2].Visible := False;
     Static[StaticNextPlayer2].Visible := False;
   end;
@@ -331,9 +362,11 @@ begin
   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].Visible := True;
     Text[TextNameTeam3].Visible := True;
+    Text[TextTeam3Players].Visible := True;
     Static[StaticTeam3].Visible := True;
     Static[StaticNextPlayer3].Visible := True;
   end
@@ -341,6 +374,7 @@ begin
   begin
     Text[TextScoreTeam3].Visible := False;
     Text[TextNameTeam3].Visible := False;
+    Text[TextTeam3Players].Visible := False;
     Static[StaticTeam3].Visible := False;
     Static[StaticNextPlayer3].Visible := False;
   end;
@@ -372,8 +406,6 @@ begin
   else
     Text[TextNextPlayer3].Visible := False;
 
-  Log.LogError('Plugin Selected: ' + InttoStr(PartySession.Rounds[0].Plugin));
-
 
 //  LCD.WriteText(1, '  Choose mode:  ');
 //  UpdateLCD;
-- 
cgit v1.2.3