1 files changed, 18 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index eb92a3d2..9184b3f5 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -11,6 +11,8 @@ type
       TextArtist:   integer;
       TextTitle:    integer;
 
+      TextArtistTitle : integer;
+      
       TextName:             array[1..6] of integer;
       TextScore:            array[1..6] of integer;
 
@@ -24,6 +26,8 @@ type
       TextTotalScore:       array[1..6] of integer;
 
       PlayerStatic:         array[1..6] of array of integer;
+      PlayerTexts :         array[1..6] of array of integer;
+
 
       StaticBoxLightest:    array[1..6] of integer;
       StaticBoxLight:       array[1..6] of integer;
@@ -91,7 +95,7 @@ end;
 constructor TScreenScore.Create(Back: String);
 var
   P:    integer;
-  I:    integer;
+  I, C:    integer;
 begin
   inherited Create(Back);
 
@@ -146,6 +150,8 @@ begin
   TextArtist := AddText(Theme.Score.TextArtist);
   TextTitle := AddText(Theme.Score.TextTitle);
 
+  TextArtistTitle := AddText(Theme.Score.TextArtistTitle);
+
   for P := 1 to 6 do begin
     TextName[P] := AddText(Theme.Score.TextName[P]);
     TextScore[P] := AddText(Theme.Score.TextScore[P]);
@@ -160,9 +166,16 @@ begin
     TextTotalScore[P] := AddText(Theme.Score.TextTotalScore[P]);
 
     SetLength(PlayerStatic[P], Length(Theme.Score.PlayerStatic[P]));
+
     for I := 0 to High(Theme.Score.PlayerStatic[P]) do
       PlayerStatic[P, I] := AddStatic(Theme.Score.PlayerStatic[P, I]);
 
+
+    //added by mog
+    for C := 0 to High(Theme.Score.PlayerTexts[P]) do
+      PlayerTexts[P, C] := AddText(Theme.Score.PlayerTexts[P, C]);
+    // more skinable now
+
     StaticBoxLightest[P] := AddStatic(Theme.Score.StaticBoxLightest[P]);
     StaticBoxLight[P] := AddStatic(Theme.Score.StaticBoxLight[P]);
     StaticBoxDark[P] := AddStatic(Theme.Score.StaticBoxDark[P]);
@@ -225,6 +238,7 @@ begin
 
   Text[TextArtist].Text := AktSong.Artist;
   Text[TextTitle].Text := AktSong.Title;
+  Text[TextArtistTitle].Text := AktSong.Artist + ' - ' + AktSong.Title;
 
   // set visibility
   case PlayersPlay of
@@ -270,6 +284,9 @@ begin
     for I := 0 to high(PlayerStatic[P]) do
       Static[PlayerStatic[P, I]].Visible := V[P];
 
+    for I := 0 to high(PlayerTexts[P]) do
+      Static[PlayerTexts[P, I]].Visible := V[P];
+
     Static[StaticBoxLightest[P]].Visible := V[P];
     Static[StaticBoxLight[P]].Visible := V[P];
     Static[StaticBoxDark[P]].Visible := V[P];