Feature: Credits screen is now a screen for itself (UGraphic.pas, UScreenMain.pas, UScreenCredits.pas)

Feature: Credits screen now has a tune in the background, thanks weezl <3 !! (place the mp3 into your "Sounds" path)

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

1 files changed, 9 insertions, 2 deletions

diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index 342efe3c..df7cd411 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -8,7 +8,8 @@ uses
   UScreenSong, UScreenSing, UScreenScore, UScreenTop5, UScreenEditSub,

   UScreenEdit, UScreenEditConvert, UScreenEditHeader, UScreenOpen, UThemes, USkins, UScreenSongMenu, UScreenSongJumpto,

   {Party Screens} UScreenSingModi, UScreenPartyNewRound, UScreenPartyScore, UScreenPartyOptions, UScreenPartyWin, UScreenPartyPlayer,

-  {Stats Screens} UScreenStatMain, UScreenStatDetail;

+  {Stats Screens} UScreenStatMain, UScreenStatDetail,

+  {CreditsScreen} UScreenCredits;

 

 type

   TRecR = record

@@ -67,7 +68,10 @@ var
   ScreenStatMain:         TScreenStatMain;

   ScreenStatDetail:       TScreenStatDetail;

 

+  //CreditsScreen

+  ScreenCredits: TScreenCredits;

 

+  //Notes

   Tex_Left:       array[0..6] of TTexture;

   Tex_Mid:        array[0..6] of TTexture;

   Tex_Right:      array[0..6] of TTexture;

@@ -443,6 +447,9 @@ begin
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Main', 3); Log.BenchmarkStart(3);

   ScreenStatDetail :=       TScreenStatDetail.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Detail', 3); Log.BenchmarkStart(3);

-end;

+  ScreenCredits    :=       TScreenCredits.Create('');

+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Credits', 3); Log.BenchmarkStart(3);

+

+  end;

 

 end.