Party Win Screen now changes the colors of the TeamBgs automaticly when Color = TeamColor

Changed Deluxe Team to fit the Changes

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@249 b956fd51-792f-4845-bead-9b4dfca2ff2c

2 files changed, 83 insertions, 6 deletions

diff --git a/Game/Code/Screens/UScreenPartyWin.pas b/Game/Code/Screens/UScreenPartyWin.pas
index 1c4549a4..76d0420f 100644
--- a/Game/Code/Screens/UScreenPartyWin.pas
+++ b/Game/Code/Screens/UScreenPartyWin.pas
@@ -93,6 +93,14 @@ procedure TScreenPartyWin.onShow;
 var

   I: Integer;

   Placing: TeamOrderArray;

+  Function GetTeamColor(Team: Byte): Cardinal;

+  var

+    NameString: String;

+  begin

+    NameString := 'P' + InttoStr(Team+1) + 'Dark';

+

+    Result := ColorExists(NameString);

+  end;

 begin

   //Get Team Placing

   Placing := PartySession.GetTeamOrder;

@@ -110,6 +118,29 @@ begin
     Static[StaticTeam1].Visible := True;

     Static[StaticTeam1BG].Visible := True;

     Static[StaticTeam1Deco].Visible := True;

+

+    //Set Static Color to Team Color

+    If (Theme.PartyWin.StaticTeam1BG.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[0]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam1BG].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam1BG].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam1BG].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

+

+    If (Theme.PartyWin.StaticTeam1.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[0]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam1].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam1].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam1].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

   end

   else

   begin

@@ -130,6 +161,29 @@ begin
     Static[StaticTeam2].Visible := True;

     Static[StaticTeam2BG].Visible := True;

     Static[StaticTeam2Deco].Visible := True;

+

+    //Set Static Color to Team Color

+    If (Theme.PartyWin.StaticTeam2BG.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[1]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam2BG].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam2BG].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam2BG].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

+

+    If (Theme.PartyWin.StaticTeam2.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[1]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam2].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam2].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam2].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

   end

   else

   begin

@@ -150,6 +204,29 @@ begin
     Static[StaticTeam3].Visible := True;

     Static[StaticTeam3BG].Visible := True;

     Static[StaticTeam3Deco].Visible := True;

+

+    //Set Static Color to Team Color

+    If (Theme.PartyWin.StaticTeam3BG.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[2]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam3BG].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam3BG].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam3BG].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

+

+    If (Theme.PartyWin.StaticTeam3.Color = 'TeamColor') then

+    begin

+      I := GetTeamColor(Placing[2]);

+      if (I <> -1) then

+      begin

+        Static[StaticTeam3].Texture.ColR := Color[I].RGB.R;

+        Static[StaticTeam3].Texture.ColG := Color[I].RGB.G;

+        Static[StaticTeam3].Texture.ColB := Color[I].RGB.B;

+      end;

+    end;

   end

   else

   begin

diff --git a/Themes/Deluxe.ini b/Themes/Deluxe.ini
index eb124f0b..240d674f 100644
--- a/Themes/Deluxe.ini
+++ b/Themes/Deluxe.ini
@@ -5923,7 +5923,7 @@ W =530
 H =16

 Z =1

 Tex=PartyTeamPoints

-Color =P1Dark

+Color =TeamColor

 Int = 1

 Type=Font Black

 Reflection=1

@@ -5936,7 +5936,7 @@ Y=185
 W=550

 H=65

 Type=Font Black

-Color =P1Dark

+Color =TeamColor

 Reflection=1

 ReflectionSpacing=2

 

@@ -6031,7 +6031,7 @@ W =380
 H =15

 Z =1

 Tex=PartyTeamPoints

-Color =P2Dark

+Color =TeamColor

 Int = 1

 Type=Font Black

 Reflection=1

@@ -6044,7 +6044,7 @@ Y=300
 W=400

 H=50

 Type=Font Black

-Color =P2Dark

+Color =TeamColor

 Reflection=1

 ReflectionSpacing=2

 

@@ -6103,7 +6103,7 @@ W =280
 H =15

 Z =1

 Tex=PartyTeamPoints

-Color =P2Dark

+Color =TeamColor

 Int = 1

 Type=Font Black

 Reflection=1

@@ -6116,7 +6116,7 @@ Y=400
 W=300

 H=40

 Type=Font Black

-Color =P2Dark

+Color =TeamColor

 Reflection=1

 ReflectionSpacing=2