fixed some minor glitches in the credits screen (transparent texture was not totally transparent, which could be seen with now working transparency in trunk)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0x@330 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 10 insertions, 11 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index b69c17aa..7e91ee3b 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -15,7 +15,7 @@ type
       Credits_Time: Cardinal;

       Credits_Alpha: Cardinal;

       CTime: Cardinal;

-      CTime_hold: array of Cardinal;

+      CTime_hold: Cardinal;

       ESC_Alpha: Integer;

 

       credits_entry_tex: TTexture;

@@ -115,12 +115,12 @@ begin
           FadeTo(@ScreenMain);

           Music.PlayBack;

         end;

-       SDLK_SPACE:

+{       SDLK_SPACE:

          begin

            setlength(CTime_hold,length(CTime_hold)+1);

            CTime_hold[high(CTime_hold)]:=CTime;

          end;

-

+}

      end;//esac

     end; //fi

 end;

@@ -169,11 +169,9 @@ begin
   Credits_X := 580;

   deluxe_slidein := 0;

   Credits_Alpha := 0;

-  //Music.SetLoop(true); Loop looped ned, so ne scheisse

   Music.Open(soundpath + 'wome-credits-tune.mp3'); //danke kleinster liebster weeeetüüüüü!!

-//  Music.Play;

   CTime:=0;

-  setlength(CTime_hold,0);

+//  setlength(CTime_hold,0);

 end;

 

 procedure TScreenCredits.onHide;

@@ -220,7 +218,7 @@ begin
       inc(CurrentScrollEnd);

     end;

   end;

-  // timing hack

+{  // timing hack

     X:=5;

     SetFontStyle (2);

      SetFontItalic(False);

@@ -231,7 +229,7 @@ begin
      SetFontPos (500, X);

      glPrint (Addr(visibleText[0]));

      X:=X+20;

-     end;

+     end;}

 end;

 

 procedure Start3D;

@@ -285,6 +283,7 @@ Data := Music.GetFFTData;
   begin

     Credits_Time := T;

     inc(CTime);

+	inc(CTime_hold);

     Credits_X := Credits_X-2;

     if (CRDTS_Stage=InitialDelay) and (CTime=Timings[0]) then

     begin

@@ -1008,16 +1007,16 @@ Data := Music.GetFFTData;
     if (CRDTS_Stage=Outro) then

     begin

       if CTime=Timings[20] then begin

-        CTime:=0;

+        CTime_hold:=0;

         Music.Stop;

         Music.Open(soundpath + 'credits-outro-tune.mp3');

         Music.Play;

         Music.SetVolume(20);

         Music.SetLoop(True);

       end;

-      if CTime > 231 then begin

+      if CTime_hold > 231 then begin

         Music.Play;

-        Ctime:=0;

+        Ctime_hold:=0;

       end;

       glClearColor(0,0,0,0);

       glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);