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

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];