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, 14 insertions, 170 deletions

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index 051cd101..28c255d1 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -11,14 +11,6 @@ type
       TextDescription:        integer;

       TextDescriptionLong:    integer;

 

-      //Credits Mod

-      Credits_Visible: Boolean;

-      Credits_Y: Real;

-      Credits_Time: Cardinal;

-      Credits_Alpha: Cardinal;

-      procedure DrawCredits;

-      //Credits Mod End

-

       constructor Create; override;

       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

       procedure onShow; override;

@@ -26,65 +18,12 @@ type
       procedure InteractPrev; override;

       procedure UpdateLCD;

       procedure SetAnimationProgress(Progress: real); override;

-      function Draw: boolean; override;

+      //function Draw: boolean; override;

   end;

 

-const Credits_Text: Array[0..49] of PChar = (

-  ':SPACE:',

-  'Main Idea: Corvus 5',

-  'Thank you very much for this great Game',

-  ':SPACE:',

-  'The Ultrastar Deluxe Team:',

-  ':SPACE:',

-  'blindy:',

-  'VFX Programming',

-  ':SPACE:',

-  'commandi00:',

-  'Beta Testing',

-  ':SPACE:',

-  'Crazy Joker:',

-  'Graphics',

-  ':SPACE:',

-  'DennistheMenace:',

-  'Beta Testing and great Support in "the Board"',

-  ':SPACE:',

-  'Mog:',

-  'Programming, Graphics',

-  ':SPACE:',

-  'Mota:',

-  'Programming, Idea of creating this Mod',

-  ':SPACE:',

-  'Sawyer:',

-  'Web Master, Programming',

-  ':SPACE:',

-  'Whiteshark:',

-  'Programming, Creating Release',

-  ':SPACE:',

-  ':SPACE:',

-  'Thanks to',

-  ':SPACE:',

-  'Blind Guard',

-  'for supporting us and administrate this great Board',

-  ':SPACE:',

-  'The whole Community from www.ultra-star.dl.am',

-  'for supporting us, supporting the newbies',

-  'and remembering us to continue work',

-  ':SPACE:',

-  'You',

-  'for using Ultrastar Deluxe',

-  ':SPACE:',

-  ':SPACE:',

-  'Visit us at:',

-  'http://www.ultrastardx.dl.am',

-  'http://sourceforge.net/projects/ultrastardx/',

-  'http://www.Ultra-Star.dl.am',

-  'Please write Bug Reports and Feature Requests',

-  'to help making this a better Game');

-

-

 implementation

 

-uses Windows, UGraphic, UMain, UIni, UTexture, USongs, Textgl, opengl, ULanguage, UParty, UDLLManager;

+uses Windows, UGraphic, UMain, UIni, UTexture, USongs, Textgl, opengl, ULanguage, UParty, UDLLManager, UScreenCredits;

 

 

 function TScreenMain.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

@@ -98,11 +37,11 @@ begin
     + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT);

 

   //Deactivate Credits when Key is pressed

-  if Credits_Visible then

-  begin

-    Credits_Visible := False;

-    exit;

-  end;

+//  if Credits_Visible then

+//  begin

+//    Credits_Visible := False;

+//    exit;

+//  end;

 

   If (PressedDown) Then

   begin // Key Down

@@ -121,9 +60,11 @@ begin
         begin

           if (SDL_ModState = KMOD_LALT) then

           begin

-            Credits_Y := 600;

-            Credits_Alpha := 0;

-            Credits_Visible := True;

+            //Credits_Y := 600;

+            //Credits_Alpha := 0;

+            //Credits_Visible := True;

+            Music.PlayStart;

+            FadeTo(@ScreenCredits);

           end;

         end;

       SDLK_M:

@@ -210,7 +151,7 @@ begin
   Interaction := 0;

 

   //Some Testing for Button Fade

-  Button[0].SelectH := Button[0].H * 3;

+{  Button[0].SelectH := Button[0].H * 3;

   Button[0].Fade := True;

   Button[0].FadeText := True;

   Button[0].DeSelectReflectionspacing := 280;

@@ -225,6 +166,7 @@ begin
   Button[3].SelectH := Button[0].H * 3;

   Button[3].Fade := True;

   Button[3].FadeText := True;

+}

 end;

 

 procedure TScreenMain.onShow;

@@ -266,102 +208,4 @@ begin
   Static[0].Texture.ScaleW := Progress;

   Static[0].Texture.ScaleH := Progress;

 end;

-

-function TScreenMain.Draw: boolean;

-begin

-Result := True;

-if Credits_Visible then

-  DrawCredits

-else

-  Result := inherited Draw;

-end;

-

-procedure TScreenMain.DrawCredits;

-var

-  T, I: Cardinal;

-  Y: Real;

-  Ver: PChar;

-begin

-  T := GetTickCount div 33;

-  if T <> Credits_Time then

-  begin

-    Credits_Time := T;

-    //Change Position

-    Credits_Y := Credits_Y - 1;

-    //Change Alpha

-    Inc (Credits_Alpha, 3);

-  end;

-

-  //Draw BackGround

-  DrawBG;

-

-

-  //Draw pulsing Credits Text

-  //Set Font

-  SetFontStyle (2);

-  SetFontItalic(False);

-  SetFontSize(9);

-  SetFontPos (10, 5);

-  glColor4f(1, 0, 0, 0.2 + Abs((Credits_Alpha mod 150)/100 - 0.75));

-  glPrint ('Credits! Press any Key to Continue');

-

-  //Set Font Size for Credits

-  SetFontSize(12);

-  //Draw Version

-  if (Credits_Y>-35) then

-  begin

-    Ver := PChar(Language.Translate('US_VERSION'));

-    //Set Color

-    if Credits_Y > 500 then

-      glColor4f(1, 0.6, 0.08, (600 - Credits_Y)/100 - 0.2)

-    else

-      glColor4f(1, 0.6, 0.08, 0.8);

-      

-    SetFontPos (400 - glTextWidth(Ver)/2, Credits_Y);

-    glprint(Ver);

-  end;

-

-  //Set Color + Start Pos

-  glColor4f(0.8, 0.8, 1, 0.8);

-  Y := Credits_Y + 50;

-

-  //Search upper Position

-  For I := 0 to high(Credits_Text) do

-  begin

-    if (Credits_Text[I]=':SPACE:') then //Spacer

-      Y := Y + 55

-    else

-      Y := Y + 30;

-

-    if Y > -35 then

-      break;

-  end;

-

-  //Draw Text

-  For T := I+1 to high(Credits_Text) do

-  begin

-    if (Credits_Text[T]=':SPACE:') then //Spacer

-      Y := Y + 55

-    else

-    begin

-      //Set Color

-      if Y > 500 then

-        glColor4f(0.8, 0.8, 1, (600 - Y)/100 - 0.2)

-      else

-        glColor4f(0.8, 0.8, 1, 0.8);

-

-      SetFontPos (400 - glTextWidth(Credits_Text[T])/2, Y);

-      glprint(Credits_Text[T]);

-      Y := Y + 30;

-    end;

-

-    if Y > 600 then

-      break;

-  end;

-

-  //If lowest Position is outside the Screen-> Show MainMenu

-  if (Y <= 0) then

-    Credits_Visible := False;

-end;

-

 end.