From 80e691699f2b236e4af80f8c1178cde07b458da3 Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 11 Apr 2007 14:10:41 +0000
Subject: Feature: ScoreScreen now has the ability to show extra texts
 (UThemes.pas, UScreenScore.pas) Feature: Hit golden note effect, is now even
 more astonishing (UGraphicClasses.pas) Feature: It's now possible to turn of
 GoldenNoteTwinkle (UDraw.pas) BugFix:  OptionsAdvanced is now opened
 correctly, instead of producing a bug (UGraphic.pas) BugFix:  Modified some
 language entries to fit option screen (optionen instead of einstellungen)
 (German.ini)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@78 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenScore.pas | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'Game/Code/Screens')

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];
-- 
cgit v1.2.3