From e3ec6fbc344c9af26b80932d3a29fb4bf1f6c9a2 Mon Sep 17 00:00:00 2001 From: mogguh Date: Thu, 26 Apr 2007 00:11:39 +0000 Subject: 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 --- Game/Code/Screens/UScreenMain.pas | 184 +++----------------------------------- 1 file changed, 14 insertions(+), 170 deletions(-) (limited to 'Game/Code/Screens/UScreenMain.pas') 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. -- cgit v1.2.3