aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authormogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-04-11 14:10:41 +0000
committermogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-04-11 14:10:41 +0000
commit80e691699f2b236e4af80f8c1178cde07b458da3 (patch)
treefcb3d06b6db62b63f81736a7e79d64a0ec37ff2e /Game/Code/Screens
parent44956e119562be2defd82eba8b10e7069ead5b76 (diff)
downloadusdx-80e691699f2b236e4af80f8c1178cde07b458da3.tar.gz
usdx-80e691699f2b236e4af80f8c1178cde07b458da3.tar.xz
usdx-80e691699f2b236e4af80f8c1178cde07b458da3.zip
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
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenScore.pas19
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];