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/trunk@330 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 15 insertions, 13 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index b69c17aa..a0ef01af 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;

@@ -55,6 +55,8 @@ type
 

       CRDTS_Stage: TCreditsStages;

 

+  myTex: glUint;

+

       Fadeout:      boolean;

       constructor Create; override;

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

@@ -115,12 +117,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;

@@ -153,7 +155,7 @@ begin
 

   outro_bg := Texture.LoadTexture(true, 'OUTRO_BG', 'PNG', 'Plain', 0);

   outro_esc := Texture.LoadTexture(true, 'OUTRO_ESC', 'PNG', 'Transparent', 0);

-  outro_exd := Texture.LoadTexture(true, 'OUTRO_EXD', 'PNG', 'Plain', 0);

+  outro_exd := Texture.LoadTexture(true, 'OUTRO_EXD', 'PNG', 'Transparent', 0);

 

   CRDTS_Stage:=InitialDelay;

 end;

@@ -173,7 +175,7 @@ begin
   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 +222,7 @@ begin
       inc(CurrentScrollEnd);

     end;

   end;

-  // timing hack

+{  // timing hack

     X:=5;

     SetFontStyle (2);

      SetFontItalic(False);

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

      glPrint (Addr(visibleText[0]));

      X:=X+20;

-     end;

+     end;}

 end;

 

 procedure Start3D;

@@ -266,6 +268,8 @@ var
   myColor: Cardinal;

   myScale: Real;

   myAngle: Real;

+

+

 const  myLogoCoords: Array[0..27,0..1] of Cardinal = ((39,32),(84,32),(100,16),(125,24),

                                        (154,31),(156,58),(168,32),(203,36),

                                        (258,34),(251,50),(274,93),(294,84),

@@ -285,6 +289,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 +1013,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);

@@ -1079,9 +1084,6 @@ Data := Music.GetFFTData;
 }

   // make the stars shine

   GoldenRec.Draw;

-

-  //timing hack

-//    Draw_FunkyText;

 end;

 

 end.