- set svn:eol-style to native

- removed some svn:executable properties from non-executable files

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

1 files changed, 302 insertions, 302 deletions

diff --git a/Game/Code/Screens/UScreenPartyScore.pas b/Game/Code/Screens/UScreenPartyScore.pas
index e7b53196..176a94b2 100644
--- a/Game/Code/Screens/UScreenPartyScore.pas
+++ b/Game/Code/Screens/UScreenPartyScore.pas
@@ -1,302 +1,302 @@
-unit UScreenPartyScore;

-

-interface

-

-{$I switches.inc}

-

-uses

-  UMenu, SDL, UDisplay, UMusic, SysUtils, UThemes;

-

-type

-  TScreenPartyScore = class(TMenu)

-    public

-      TextScoreTeam1:    Cardinal;

-      TextScoreTeam2:    Cardinal;

-      TextScoreTeam3:    Cardinal;

-      TextNameTeam1:     Cardinal;

-      TextNameTeam2:     Cardinal;

-      TextNameTeam3:     Cardinal;

-      StaticTeam1:       Cardinal;

-      StaticTeam1BG:     Cardinal;

-      StaticTeam1Deco:   Cardinal;

-      StaticTeam2:       Cardinal;

-      StaticTeam2BG:     Cardinal;

-      StaticTeam2Deco:   Cardinal;

-      StaticTeam3:       Cardinal;

-      StaticTeam3BG:     Cardinal;

-      StaticTeam3Deco:   Cardinal;

-      TextWinner:        Cardinal;

-

-      DecoTex:          Array[0..5] of Integer;

-      DecoColor:        Array[0..5] of Record

-                                        R, G, B: Real;

-                        end;

-

-      MaxScore:          Word;

-      

-      constructor Create; override;

-      function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override;

-      procedure onShow; override;

-      procedure SetAnimationProgress(Progress: real); override;

-  end;

-

-implementation

-

-uses UGraphic, UMain, UParty, UScreenSingModi, ULanguage, UTexture, USkins;

-

-function TScreenPartyScore.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;

-begin

-  Result := true;

-  If (PressedDown) Then

-  begin // Key Down

-    // check normal keys

-    case WideCharUpperCase(CharCode)[1] of

-      'Q':

-        begin

-          Result := false;

-          Exit;

-        end;

-    end;

-

-    // check special keys

-    case PressedKey of

-      SDLK_ESCAPE,

-      SDLK_BACKSPACE :

-        begin

-          AudioPlayback.PlaySound(SoundLib.Start);

-          {if (PartySession.CurRound < High(PartySession.Rounds)) then

-            FadeTo(@ScreenPartyNewRound)

-          else  // to-do : Party

-          begin

-            PartySession.EndRound;  }

-            FadeTo(@ScreenPartyWin);

-          //end;

-        end;

-

-      SDLK_RETURN:

-        begin

-          AudioPlayback.PlaySound(SoundLib.Start);

-          // to-do : Party

-          {if (PartySession.CurRound < High(PartySession.Rounds)) then

-            FadeTo(@ScreenPartyNewRound)

-          else }

-            FadeTo(@ScreenPartyWin);

-        end;

-    end;

-  end;

-end;

-

-constructor TScreenPartyScore.Create;

-var

-// I:    integer; // Auto Removed, Unused Variable

-  Tex:  TTexture;

-  R, G, B: Real;

-  Color: Integer;

-begin

-  inherited Create;

-

-  TextScoreTeam1 := AddText (Theme.PartyScore.TextScoreTeam1);

-  TextScoreTeam2 := AddText (Theme.PartyScore.TextScoreTeam2);

-  TextScoreTeam3 := AddText (Theme.PartyScore.TextScoreTeam3);

-  TextNameTeam1 := AddText (Theme.PartyScore.TextNameTeam1);

-  TextNameTeam2 := AddText (Theme.PartyScore.TextNameTeam2);

-  TextNameTeam3 := AddText (Theme.PartyScore.TextNameTeam3);

-

-  StaticTeam1 := AddStatic (Theme.PartyScore.StaticTeam1);

-  StaticTeam1BG := AddStatic (Theme.PartyScore.StaticTeam1BG);

-  StaticTeam1Deco := AddStatic (Theme.PartyScore.StaticTeam1Deco);

-  StaticTeam2 := AddStatic (Theme.PartyScore.StaticTeam2);

-  StaticTeam2BG := AddStatic (Theme.PartyScore.StaticTeam2BG);

-  StaticTeam2Deco := AddStatic (Theme.PartyScore.StaticTeam2Deco);

-  StaticTeam3 := AddStatic (Theme.PartyScore.StaticTeam3);

-  StaticTeam3BG := AddStatic (Theme.PartyScore.StaticTeam3BG);

-  StaticTeam3Deco := AddStatic (Theme.PartyScore.StaticTeam3Deco);

-

-  TextWinner := AddText (Theme.PartyScore.TextWinner);

-

-  //Load Deco Textures

-  if Theme.PartyScore.DecoTextures.ChangeTextures then

-  begin

-    //Get Color

-    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.FirstColor);

-    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);

-    DecoColor[0].R := R;

-    DecoColor[0].G := G;

-    DecoColor[0].B := B;

-

-    //Load Texture

-    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.FirstTexture)), Theme.PartyScore.DecoTextures.FirstTyp, Color);

-    DecoTex[0] := Tex.TexNum;

-

-    //Get Second Color

-    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.SecondColor);

-    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);

-    DecoColor[1].R := R;

-    DecoColor[1].G := G;

-    DecoColor[1].B := B;

-

-    //Load Second Texture

-    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.SecondTexture)), Theme.PartyScore.DecoTextures.SecondTyp, Color);

-    DecoTex[1] := Tex.TexNum;

-

-    //Get Third Color

-    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.ThirdColor);

-    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);

-    DecoColor[2].R := R;

-    DecoColor[2].G := G;

-    DecoColor[2].B := B;

-

-    //Load Third Texture

-    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.ThirdTexture)), Theme.PartyScore.DecoTextures.ThirdTyp, Color);

-    DecoTex[2] := Tex.TexNum;

-  end;

-

-  LoadFromTheme(Theme.PartyScore);

-end;

-

-procedure TScreenPartyScore.onShow;

-var

-  I, J: Integer;

-  Placings: Array [0..5] of Byte;

-begin

-  inherited;

-

-

-  //Get Maxscore

-

-  MaxScore := 0;

-  for I := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do

-  begin

-    if (ScreenSingModi.PlayerInfo.Playerinfo[I].Score > MaxScore) then

-      MaxScore := ScreenSingModi.PlayerInfo.Playerinfo[I].Score;

-  end;

-

-  //Get Placings

-  for I := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do

-  begin

-    Placings[I] := 0;

-    for J := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do

-      If (ScreenSingModi.PlayerInfo.Playerinfo[J].Score > ScreenSingModi.PlayerInfo.Playerinfo[I].Score) then

-        Inc(Placings[I]);

-  end;

-

-

-  //Set Static Length

-  Static[StaticTeam1].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[0].Percentage / 100;

-  Static[StaticTeam2].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[1].Percentage / 100;

-  Static[StaticTeam3].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[2].Percentage / 100;

-

-  //fix: prevents static from drawn out of bounds.

-  if Static[StaticTeam1].Texture.ScaleW > 99 then Static[StaticTeam1].Texture.ScaleW := 99;

-  if Static[StaticTeam2].Texture.ScaleW > 99 then Static[StaticTeam2].Texture.ScaleW := 99;

-  if Static[StaticTeam3].Texture.ScaleW > 99 then Static[StaticTeam3].Texture.ScaleW := 99;

-

-  //End Last Round // to-do : Party

-  //PartySession.EndRound;

-

-  //Set Winnertext

-  //Text[TextWinner].Text := Format(Language.Translate('PARTY_SCORE_WINS'), [PartySession.GetWinnerString(PartySession.CurRound)]);

-

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 1) then

-  begin

-    Text[TextScoreTeam1].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[0].Score);

-    Text[TextNameTeam1].Text := String(ScreenSingModi.TeamInfo.Teaminfo[0].Name);

-

-    //Set Deco Texture

-    if Theme.PartyScore.DecoTextures.ChangeTextures then

-    begin

-      Static[StaticTeam1Deco].Texture.TexNum := DecoTex[Placings[0]];

-      Static[StaticTeam1Deco].Texture.ColR := DecoColor[Placings[0]].R;

-      Static[StaticTeam1Deco].Texture.ColG := DecoColor[Placings[0]].G;

-      Static[StaticTeam1Deco].Texture.ColB := DecoColor[Placings[0]].B;

-    end;

-

-    Text[TextScoreTeam1].Visible := True;

-    Text[TextNameTeam1].Visible := True;

-    Static[StaticTeam1].Visible := True;

-    Static[StaticTeam1BG].Visible := True;

-    Static[StaticTeam1Deco].Visible := True;

-  end

-  else

-  begin

-    Text[TextScoreTeam1].Visible := False;

-    Text[TextNameTeam1].Visible := False;

-    Static[StaticTeam1].Visible := False;

-    Static[StaticTeam1BG].Visible := False;

-    Static[StaticTeam1Deco].Visible := False;

-  end;

-

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 2) then

-  begin

-    Text[TextScoreTeam2].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[1].Score);

-    Text[TextNameTeam2].Text := String(ScreenSingModi.TeamInfo.Teaminfo[1].Name);

-

-    //Set Deco Texture

-    if Theme.PartyScore.DecoTextures.ChangeTextures then

-    begin

-      Static[StaticTeam2Deco].Texture.TexNum := DecoTex[Placings[1]];

-      Static[StaticTeam2Deco].Texture.ColR := DecoColor[Placings[1]].R;

-      Static[StaticTeam2Deco].Texture.ColG := DecoColor[Placings[1]].G;

-      Static[StaticTeam2Deco].Texture.ColB := DecoColor[Placings[1]].B;

-    end;

-

-    Text[TextScoreTeam2].Visible := True;

-    Text[TextNameTeam2].Visible := True;

-    Static[StaticTeam2].Visible := True;

-    Static[StaticTeam2BG].Visible := True;

-    Static[StaticTeam2Deco].Visible := True;

-  end

-  else

-  begin

-    Text[TextScoreTeam2].Visible := False;

-    Text[TextNameTeam2].Visible := False;

-    Static[StaticTeam2].Visible := False;

-    Static[StaticTeam2BG].Visible := False;

-    Static[StaticTeam2Deco].Visible := False;

-  end;

-

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 3) then

-  begin

-    Text[TextScoreTeam3].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[2].Score);

-    Text[TextNameTeam3].Text := String(ScreenSingModi.TeamInfo.Teaminfo[2].Name);

-

-    //Set Deco Texture

-    if Theme.PartyScore.DecoTextures.ChangeTextures then

-    begin

-      Static[StaticTeam3Deco].Texture.TexNum := DecoTex[Placings[2]];

-      Static[StaticTeam3Deco].Texture.ColR := DecoColor[Placings[2]].R;

-      Static[StaticTeam3Deco].Texture.ColG := DecoColor[Placings[2]].G;

-      Static[StaticTeam3Deco].Texture.ColB := DecoColor[Placings[2]].B;

-    end;

-

-    Text[TextScoreTeam3].Visible := True;

-    Text[TextNameTeam3].Visible := True;

-    Static[StaticTeam3].Visible := True;

-    Static[StaticTeam3BG].Visible := True;

-    Static[StaticTeam3Deco].Visible := True;

-  end

-  else

-  begin

-    Text[TextScoreTeam3].Visible := False;

-    Text[TextNameTeam3].Visible := False;

-    Static[StaticTeam3].Visible := False;

-    Static[StaticTeam3BG].Visible := False;

-    Static[StaticTeam3Deco].Visible := False;

-  end;

-

-

-//  LCD.WriteText(1, '  Choose mode:  ');

-//  UpdateLCD;

-end;

-

-procedure TScreenPartyScore.SetAnimationProgress(Progress: real);

-begin

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 1) then

-    Static[StaticTeam1].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[0].Percentage / 100;

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 2) then

-    Static[StaticTeam2].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[1].Percentage / 100;

-  if (ScreenSingModi.PlayerInfo.NumPlayers >= 3) then

-    Static[StaticTeam3].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[2].Percentage / 100;

-end;

-

-end.

+unit UScreenPartyScore;
+
+interface
+
+{$I switches.inc}
+
+uses
+  UMenu, SDL, UDisplay, UMusic, SysUtils, UThemes;
+
+type
+  TScreenPartyScore = class(TMenu)
+    public
+      TextScoreTeam1:    Cardinal;
+      TextScoreTeam2:    Cardinal;
+      TextScoreTeam3:    Cardinal;
+      TextNameTeam1:     Cardinal;
+      TextNameTeam2:     Cardinal;
+      TextNameTeam3:     Cardinal;
+      StaticTeam1:       Cardinal;
+      StaticTeam1BG:     Cardinal;
+      StaticTeam1Deco:   Cardinal;
+      StaticTeam2:       Cardinal;
+      StaticTeam2BG:     Cardinal;
+      StaticTeam2Deco:   Cardinal;
+      StaticTeam3:       Cardinal;
+      StaticTeam3BG:     Cardinal;
+      StaticTeam3Deco:   Cardinal;
+      TextWinner:        Cardinal;
+
+      DecoTex:          Array[0..5] of Integer;
+      DecoColor:        Array[0..5] of Record
+                                        R, G, B: Real;
+                        end;
+
+      MaxScore:          Word;
+      
+      constructor Create; override;
+      function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override;
+      procedure onShow; override;
+      procedure SetAnimationProgress(Progress: real); override;
+  end;
+
+implementation
+
+uses UGraphic, UMain, UParty, UScreenSingModi, ULanguage, UTexture, USkins;
+
+function TScreenPartyScore.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
+begin
+  Result := true;
+  If (PressedDown) Then
+  begin // Key Down
+    // check normal keys
+    case WideCharUpperCase(CharCode)[1] of
+      'Q':
+        begin
+          Result := false;
+          Exit;
+        end;
+    end;
+
+    // check special keys
+    case PressedKey of
+      SDLK_ESCAPE,
+      SDLK_BACKSPACE :
+        begin
+          AudioPlayback.PlaySound(SoundLib.Start);
+          {if (PartySession.CurRound < High(PartySession.Rounds)) then
+            FadeTo(@ScreenPartyNewRound)
+          else  // to-do : Party
+          begin
+            PartySession.EndRound;  }
+            FadeTo(@ScreenPartyWin);
+          //end;
+        end;
+
+      SDLK_RETURN:
+        begin
+          AudioPlayback.PlaySound(SoundLib.Start);
+          // to-do : Party
+          {if (PartySession.CurRound < High(PartySession.Rounds)) then
+            FadeTo(@ScreenPartyNewRound)
+          else }
+            FadeTo(@ScreenPartyWin);
+        end;
+    end;
+  end;
+end;
+
+constructor TScreenPartyScore.Create;
+var
+// I:    integer; // Auto Removed, Unused Variable
+  Tex:  TTexture;
+  R, G, B: Real;
+  Color: Integer;
+begin
+  inherited Create;
+
+  TextScoreTeam1 := AddText (Theme.PartyScore.TextScoreTeam1);
+  TextScoreTeam2 := AddText (Theme.PartyScore.TextScoreTeam2);
+  TextScoreTeam3 := AddText (Theme.PartyScore.TextScoreTeam3);
+  TextNameTeam1 := AddText (Theme.PartyScore.TextNameTeam1);
+  TextNameTeam2 := AddText (Theme.PartyScore.TextNameTeam2);
+  TextNameTeam3 := AddText (Theme.PartyScore.TextNameTeam3);
+
+  StaticTeam1 := AddStatic (Theme.PartyScore.StaticTeam1);
+  StaticTeam1BG := AddStatic (Theme.PartyScore.StaticTeam1BG);
+  StaticTeam1Deco := AddStatic (Theme.PartyScore.StaticTeam1Deco);
+  StaticTeam2 := AddStatic (Theme.PartyScore.StaticTeam2);
+  StaticTeam2BG := AddStatic (Theme.PartyScore.StaticTeam2BG);
+  StaticTeam2Deco := AddStatic (Theme.PartyScore.StaticTeam2Deco);
+  StaticTeam3 := AddStatic (Theme.PartyScore.StaticTeam3);
+  StaticTeam3BG := AddStatic (Theme.PartyScore.StaticTeam3BG);
+  StaticTeam3Deco := AddStatic (Theme.PartyScore.StaticTeam3Deco);
+
+  TextWinner := AddText (Theme.PartyScore.TextWinner);
+
+  //Load Deco Textures
+  if Theme.PartyScore.DecoTextures.ChangeTextures then
+  begin
+    //Get Color
+    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.FirstColor);
+    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);
+    DecoColor[0].R := R;
+    DecoColor[0].G := G;
+    DecoColor[0].B := B;
+
+    //Load Texture
+    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.FirstTexture)), Theme.PartyScore.DecoTextures.FirstTyp, Color);
+    DecoTex[0] := Tex.TexNum;
+
+    //Get Second Color
+    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.SecondColor);
+    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);
+    DecoColor[1].R := R;
+    DecoColor[1].G := G;
+    DecoColor[1].B := B;
+
+    //Load Second Texture
+    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.SecondTexture)), Theme.PartyScore.DecoTextures.SecondTyp, Color);
+    DecoTex[1] := Tex.TexNum;
+
+    //Get Third Color
+    LoadColor(R, G, B, Theme.PartyScore.DecoTextures.ThirdColor);
+    Color := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);
+    DecoColor[2].R := R;
+    DecoColor[2].G := G;
+    DecoColor[2].B := B;
+
+    //Load Third Texture
+    Tex := Texture.LoadTexture(pchar(Skin.GetTextureFileName(Theme.PartyScore.DecoTextures.ThirdTexture)), Theme.PartyScore.DecoTextures.ThirdTyp, Color);
+    DecoTex[2] := Tex.TexNum;
+  end;
+
+  LoadFromTheme(Theme.PartyScore);
+end;
+
+procedure TScreenPartyScore.onShow;
+var
+  I, J: Integer;
+  Placings: Array [0..5] of Byte;
+begin
+  inherited;
+
+
+  //Get Maxscore
+
+  MaxScore := 0;
+  for I := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do
+  begin
+    if (ScreenSingModi.PlayerInfo.Playerinfo[I].Score > MaxScore) then
+      MaxScore := ScreenSingModi.PlayerInfo.Playerinfo[I].Score;
+  end;
+
+  //Get Placings
+  for I := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do
+  begin
+    Placings[I] := 0;
+    for J := 0 to ScreenSingModi.PlayerInfo.NumPlayers - 1 do
+      If (ScreenSingModi.PlayerInfo.Playerinfo[J].Score > ScreenSingModi.PlayerInfo.Playerinfo[I].Score) then
+        Inc(Placings[I]);
+  end;
+
+
+  //Set Static Length
+  Static[StaticTeam1].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[0].Percentage / 100;
+  Static[StaticTeam2].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[1].Percentage / 100;
+  Static[StaticTeam3].Texture.ScaleW := ScreenSingModi.PlayerInfo.Playerinfo[2].Percentage / 100;
+
+  //fix: prevents static from drawn out of bounds.
+  if Static[StaticTeam1].Texture.ScaleW > 99 then Static[StaticTeam1].Texture.ScaleW := 99;
+  if Static[StaticTeam2].Texture.ScaleW > 99 then Static[StaticTeam2].Texture.ScaleW := 99;
+  if Static[StaticTeam3].Texture.ScaleW > 99 then Static[StaticTeam3].Texture.ScaleW := 99;
+
+  //End Last Round // to-do : Party
+  //PartySession.EndRound;
+
+  //Set Winnertext
+  //Text[TextWinner].Text := Format(Language.Translate('PARTY_SCORE_WINS'), [PartySession.GetWinnerString(PartySession.CurRound)]);
+
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 1) then
+  begin
+    Text[TextScoreTeam1].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[0].Score);
+    Text[TextNameTeam1].Text := String(ScreenSingModi.TeamInfo.Teaminfo[0].Name);
+
+    //Set Deco Texture
+    if Theme.PartyScore.DecoTextures.ChangeTextures then
+    begin
+      Static[StaticTeam1Deco].Texture.TexNum := DecoTex[Placings[0]];
+      Static[StaticTeam1Deco].Texture.ColR := DecoColor[Placings[0]].R;
+      Static[StaticTeam1Deco].Texture.ColG := DecoColor[Placings[0]].G;
+      Static[StaticTeam1Deco].Texture.ColB := DecoColor[Placings[0]].B;
+    end;
+
+    Text[TextScoreTeam1].Visible := True;
+    Text[TextNameTeam1].Visible := True;
+    Static[StaticTeam1].Visible := True;
+    Static[StaticTeam1BG].Visible := True;
+    Static[StaticTeam1Deco].Visible := True;
+  end
+  else
+  begin
+    Text[TextScoreTeam1].Visible := False;
+    Text[TextNameTeam1].Visible := False;
+    Static[StaticTeam1].Visible := False;
+    Static[StaticTeam1BG].Visible := False;
+    Static[StaticTeam1Deco].Visible := False;
+  end;
+
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 2) then
+  begin
+    Text[TextScoreTeam2].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[1].Score);
+    Text[TextNameTeam2].Text := String(ScreenSingModi.TeamInfo.Teaminfo[1].Name);
+
+    //Set Deco Texture
+    if Theme.PartyScore.DecoTextures.ChangeTextures then
+    begin
+      Static[StaticTeam2Deco].Texture.TexNum := DecoTex[Placings[1]];
+      Static[StaticTeam2Deco].Texture.ColR := DecoColor[Placings[1]].R;
+      Static[StaticTeam2Deco].Texture.ColG := DecoColor[Placings[1]].G;
+      Static[StaticTeam2Deco].Texture.ColB := DecoColor[Placings[1]].B;
+    end;
+
+    Text[TextScoreTeam2].Visible := True;
+    Text[TextNameTeam2].Visible := True;
+    Static[StaticTeam2].Visible := True;
+    Static[StaticTeam2BG].Visible := True;
+    Static[StaticTeam2Deco].Visible := True;
+  end
+  else
+  begin
+    Text[TextScoreTeam2].Visible := False;
+    Text[TextNameTeam2].Visible := False;
+    Static[StaticTeam2].Visible := False;
+    Static[StaticTeam2BG].Visible := False;
+    Static[StaticTeam2Deco].Visible := False;
+  end;
+
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 3) then
+  begin
+    Text[TextScoreTeam3].Text := InttoStr(ScreenSingModi.PlayerInfo.Playerinfo[2].Score);
+    Text[TextNameTeam3].Text := String(ScreenSingModi.TeamInfo.Teaminfo[2].Name);
+
+    //Set Deco Texture
+    if Theme.PartyScore.DecoTextures.ChangeTextures then
+    begin
+      Static[StaticTeam3Deco].Texture.TexNum := DecoTex[Placings[2]];
+      Static[StaticTeam3Deco].Texture.ColR := DecoColor[Placings[2]].R;
+      Static[StaticTeam3Deco].Texture.ColG := DecoColor[Placings[2]].G;
+      Static[StaticTeam3Deco].Texture.ColB := DecoColor[Placings[2]].B;
+    end;
+
+    Text[TextScoreTeam3].Visible := True;
+    Text[TextNameTeam3].Visible := True;
+    Static[StaticTeam3].Visible := True;
+    Static[StaticTeam3BG].Visible := True;
+    Static[StaticTeam3Deco].Visible := True;
+  end
+  else
+  begin
+    Text[TextScoreTeam3].Visible := False;
+    Text[TextNameTeam3].Visible := False;
+    Static[StaticTeam3].Visible := False;
+    Static[StaticTeam3BG].Visible := False;
+    Static[StaticTeam3Deco].Visible := False;
+  end;
+
+
+//  LCD.WriteText(1, '  Choose mode:  ');
+//  UpdateLCD;
+end;
+
+procedure TScreenPartyScore.SetAnimationProgress(Progress: real);
+begin
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 1) then
+    Static[StaticTeam1].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[0].Percentage / 100;
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 2) then
+    Static[StaticTeam2].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[1].Percentage / 100;
+  if (ScreenSingModi.PlayerInfo.NumPlayers >= 3) then
+    Static[StaticTeam3].Texture.ScaleW := Progress * ScreenSingModi.PlayerInfo.Playerinfo[2].Percentage / 100;
+end;
+
+end.