diff options
| -rw-r--r-- | Game/Code/Screens/UScreenPartyWin.pas | 77 | ||||
| -rw-r--r-- | Themes/Deluxe.ini | 12 |
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
|