fixed some stuff for linux build...

now its getting close to the look of the windows build...
YAY ! 

see http://www.flickr.com/photos/31428768@N00/sets/72157602234125005/

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

4 files changed, 1879 insertions, 1684 deletions

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index b18724bf..5ef29316 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -37,22 +37,6 @@ uses OpenGL12,
      sdlutils,
      SDL_Image;
 
-
-  {$IFDEF Win32}
-//    procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;
-
-(*
-  {$ELSE}
-    {$ifdef darwin}
-    const opengl32 = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGL.dylib';
-    {$ELSE}
-    const opengl32 = 'libGL.so' ; // YES Capital GL
-    {$ENDIF}
-
-    procedure glGenTextures(n: GLsizei; var textures: PGLuint); stdcall; external opengl32;
-*)
-  {$ENDIF}
-
 type
   TTexture = record
     TexNum:   integer;
@@ -525,6 +509,7 @@ begin
 
  // load texture data into memory
   {$ifdef blindydebug}
+  Log.LogStatus('',' ----------------------------------------------------');
   Log.LogStatus('',' LoadImage('''+Identifier+''') (called by '+Format+')');
   {$endif}
   TexSurface := LoadImage(Identifier);
@@ -537,6 +522,7 @@ begin
     beep;
     Exit;
   end;
+  
  // convert pixel format as needed
   {$ifdef blindydebug}
   Log.LogStatus('',' AdjustPixelFormat');
@@ -567,7 +553,7 @@ begin
   end;
 
   {$ifdef blindydebug}
-  Log.LogStatus('',' JB-1');
+  Log.LogStatus('',' JB-1 : typ='+Typ);
   {$endif}
 
 
@@ -577,6 +563,10 @@ begin
   // cover cache stuff
   if (CreateCacheMipmap) and (Typ='Plain') then
   begin
+    {$ifdef blindydebug}
+    Log.LogStatus('',' JB-1 : Minimap');
+    {$endif}
+
     if (Covers.W <= 256) and (Covers.H <= 256) then
     begin
       {$ifdef blindydebug}
@@ -645,10 +635,10 @@ begin
  // prepare OpenGL texture
  
   // JB_linux : this is causing AV's on linux... ActText seems to be nil !
-  {$IFnDEF win32}
-  if pointer(ActTex) = nil then
-    exit;
-  {$endif}
+//  {$IFnDEF win32}
+//  if pointer(ActTex) = nil then
+//    exit;
+//  {$endif}
     
   glGenTextures(1, @ActTex);
 
@@ -658,7 +648,9 @@ begin
   glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
 
  // load data into gl texture
-  if (Typ = 'Transparent') or (Typ='Colorized') then begin
+  if (Typ = 'Transparent') or
+     (Typ='Colorized') then
+  begin
     glTexImage2D(GL_TEXTURE_2D, 0, 4, newWidth, newHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, TexSurface.pixels);
   end
   {if Typ = 'Plain' then} else
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index 290db271..b2ba01dc 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -1,404 +1,462 @@
-{############################################################################

-#                   FFmpeg support for UltraStar deluxe                     #

-#                                                                           #

-#   Created by b1indy                                                       #

-#   based on 'An ffmpeg and SDL Tutorial' (http://www.dranger.com/ffmpeg/)  #

-#############################################################################}

-

-//{$define DebugDisplay}  // uncomment if u want to see the debug stuff

-//{$define DebugFrames}

-//{$define Info}

-

-

-unit UVideo;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-

-uses SDL,

-     UGraphicClasses,

-     textgl,

-     avcodec,

-     avformat,

-     avutil,

-     math,

-     OpenGL12,

-     SysUtils,

-     {$ifdef DebugDisplay}

-     dialogs,

-     {$ENDIF}

-     UIni;

-

-procedure Init;

-procedure FFmpegOpenFile(FileName: pAnsiChar);

-procedure FFmpegClose;

-procedure FFmpegGetFrame(Time: Extended);

-procedure FFmpegDrawGL(Screen: integer);

-procedure FFmpegTogglePause;

-procedure FFmpegSkip(Time: Single);

-

-var

-  VideoOpened, VideoPaused: Boolean;

-  VideoFormatContext: PAVFormatContext;

-  VideoStreamIndex: Integer;

-  VideoCodecContext: PAVCodecContext;

-  VideoCodec: PAVCodec;

-  AVFrame: PAVFrame;

-  AVFrameRGB: PAVFrame;

-  myBuffer: pByte;

-  VideoTex: glUint;

-  TexX, TexY, dataX, dataY: Cardinal;

-  TexData: array of Byte;

-  ScaledVideoWidth, ScaledVideoHeight: Real;

-  VideoAspect: Real;

-  VideoTextureU, VideoTextureV: Real;

-  VideoTimeBase, VideoTime, LastFrameTime, TimeDifference: Extended;

-  VideoSkipTime: Single;

-

-implementation

-

-procedure Init;

-begin

-  av_register_all;

-  VideoOpened:=False;

-  VideoPaused:=False;

-  glGenTextures(1, PglUint(@VideoTex));

-  SetLength(TexData,0);

-end;

-

-procedure FFmpegOpenFile(FileName: pAnsiChar);

-var errnum, i, x,y: Integer;

-begin

-  VideoOpened:=False;

-  VideoPaused:=False;

-  VideoTimeBase:=0;

-  VideoTime:=0;

-  LastFrameTime:=0;

-  TimeDifference:=0;

-  errnum:=av_open_input_file(VideoFormatContext, FileName, Nil, 0, Nil);

-  if(errnum <> 0)

-  then begin

-{$ifdef DebugDisplay}

-    case errnum of

-      AVERROR_UNKNOWN: showmessage('failed to open file '+Filename+#13#10+'AVERROR_UNKNOWN');

-      AVERROR_IO: showmessage('failed to open file '+Filename+#13#10+'AVERROR_IO');

-      AVERROR_NUMEXPECTED: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NUMEXPECTED');

-      AVERROR_INVALIDDATA: showmessage('failed to open file '+Filename+#13#10+'AVERROR_INVALIDDATA');

-      AVERROR_NOMEM: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOMEM');

-      AVERROR_NOFMT: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOFMT');

-      AVERROR_NOTSUPP: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOTSUPP');

-    else showmessage('failed to open file '+Filename+#13#10+'Error number: '+inttostr(Errnum));

-    end;

-{$ENDIF}

-    Exit;

-  end

-  else begin

-    VideoStreamIndex:=-1;

-    if(av_find_stream_info(VideoFormatContext)>=0) then

-    begin

-      for i:=0 to VideoFormatContext^.nb_streams-1 do

-        if(VideoFormatContext^.streams[i]^.codec^.codec_type=CODEC_TYPE_VIDEO) then begin

-          VideoStreamIndex:=i;

-        end else

-    end;

-    if(VideoStreamIndex >= 0) then

-    begin

-      VideoCodecContext:=VideoFormatContext^.streams[VideoStreamIndex]^.codec;

-      VideoCodec:=avcodec_find_decoder(VideoCodecContext^.codec_id);

-    end else begin

-{$ifdef DebugDisplay}

-      showmessage('found no video stream');

-{$ENDIF}

-      av_close_input_file(VideoFormatContext);

-      Exit;

-    end;

-    if(VideoCodec<>Nil) then

-    begin

-      errnum:=avcodec_open(VideoCodecContext, VideoCodec);

-    end else begin

-{$ifdef DebugDisplay}

-      showmessage('no matching codec found');

-{$ENDIF}

-      avcodec_close(VideoCodecContext);

-      av_close_input_file(VideoFormatContext);

-      Exit;

-    end;

-    if(errnum >=0) then

-    begin

-{$ifdef DebugDisplay}

-       showmessage('Found a matching Codec:'+#13#10#13#10+

-        'Width='+inttostr(VideoCodecContext^.width)+

-        ', Height='+inttostr(VideoCodecContext^.height)+#13#10+

-        'Aspect: '+inttostr(VideoCodecContext^.sample_aspect_ratio.num)+'/'+inttostr(VideoCodecContext^.sample_aspect_ratio.den)+#13#10+

-        'Framerate: '+inttostr(VideoCodecContext^.time_base.num)+'/'+inttostr(VideoCodecContext^.time_base.den));

-{$endif}

-      // allocate space for decoded frame and rgb frame

-      AVFrame:=avcodec_alloc_frame;

-      AVFrameRGB:=avcodec_alloc_frame;

-    end;

-    myBuffer:=Nil;

-    if(AVFrame <> Nil) and (AVFrameRGB <> Nil) then

-    begin

-      myBuffer:=av_malloc(avpicture_get_size(PIX_FMT_RGB24, VideoCodecContext^.width,

-                            VideoCodecContext^.height));

-    end;

-    if myBuffer <> Nil then errnum:=avpicture_fill(PAVPicture(AVFrameRGB), myBuffer, PIX_FMT_RGB24,

-                VideoCodecContext^.width, VideoCodecContext^.height)

-    else begin

-{$ifdef DebugDisplay}

-      showmessage('failed to allocate video buffer');

-{$endif}

-      av_free(AVFrameRGB);

-      av_free(AVFrame);

-      avcodec_close(VideoCodecContext);

-      av_close_input_file(VideoFormatContext);

-      Exit;

-    end;

-    if errnum >=0 then

-    begin

-      VideoOpened:=True;

-

-      TexX := VideoCodecContext^.width;

-      TexY := VideoCodecContext^.height;

-      dataX := Round(Power(2, Ceil(Log2(TexX))));

-      dataY := Round(Power(2, Ceil(Log2(TexY))));

-      SetLength(TexData,dataX*dataY*3);

-      // calculate some information for video display

-      VideoAspect:=VideoCodecContext^.sample_aspect_ratio.num/VideoCodecContext^.sample_aspect_ratio.den;

-      if (VideoAspect = 0) then

-        VideoAspect:=VideoCodecContext^.width/VideoCodecContext^.height

-      else

-        VideoAspect:=VideoAspect*VideoCodecContext^.width/VideoCodecContext^.height;

-      if VideoAspect >= 4/3 then

-      begin

-        ScaledVideoWidth:=800.0;

-        ScaledVideoHeight:=800.0/VideoAspect;

-      end else

-      begin

-        ScaledVideoHeight:=600.0;

-        ScaledVideoWidth:=600.0*VideoAspect;

-      end;

-      VideoTimeBase:=VideoCodecContext^.time_base.num/VideoCodecContext^.time_base.den;

-      // hack to get reasonable timebase for divx

-{$ifdef DebugDisplay}

-      showmessage('framerate: '+inttostr(floor(1/videotimebase))+'fps');

-{$endif}

-      if VideoTimeBase < 0.02 then // 0.02 <-> 50 fps

-      begin

-        VideoTimeBase:=VideoCodecContext^.time_base.den/VideoCodecContext^.time_base.num;

-        while VideoTimeBase > 50 do VideoTimeBase:=VideoTimeBase/10;

-        VideoTimeBase:=1/VideoTimeBase;

-      end;

-{$ifdef DebugDisplay}

-      showmessage('corrected framerate: '+inttostr(floor(1/videotimebase))+'fps');

-      if ((VideoAspect*VideoCodecContext^.width*VideoCodecContext^.height)>200000) then

-        showmessage('you are trying to play a rather large video'+#13#10+

-                    'be prepared to experience some timing problems');

-{$endif}

-    end;

-  end;

-end;

-

-procedure FFmpegClose;

-begin

-  if VideoOpened then begin

-    av_free(myBuffer);

-    av_free(AVFrameRGB);

-    av_free(AVFrame);

-    avcodec_close(VideoCodecContext);

-    av_close_input_file(VideoFormatContext);

-    SetLength(TexData,0);

-    VideoOpened:=False;

-  end;

-end;

-

-procedure FFmpegTogglePause;

-begin

-  if VideoPaused then VideoPaused:=False

-  else VideoPaused:=True;

-end;

-

-procedure FFmpegSkip(Time: Single);

-begin

-  VideoSkiptime:=Time;

-  if VideoSkipTime > 0 then begin

-    av_seek_frame(VideoFormatContext,-1,Floor((VideoSkipTime)*1500000),0);

-    VideoTime:=VideoSkipTime;

-  end;

-end;

-

-procedure FFmpegGetFrame(Time: Extended);

-var

-  FrameFinished: Integer;

-  AVPacket: TAVPacket;

-  errnum, x, y: Integer;

-  FrameDataPtr: PByteArray;

-  linesize: integer;

-  myTime: Extended;

-  DropFrame: Boolean;

-  droppedFrames: Integer;

-const

-  FRAMEDROPCOUNT=3;

-begin

-  if not VideoOpened then Exit;

-  if VideoPaused then Exit;

-  myTime:=Time+VideoSkipTime;

-  TimeDifference:=myTime-VideoTime;

-  DropFrame:=False;

-{  showmessage('Time:      '+inttostr(floor(Time*1000))+#13#10+

-    'VideoTime: '+inttostr(floor(VideoTime*1000))+#13#10+

-    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+

-    'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));

-}

-  if (VideoTime <> 0) and (TimeDifference <= VideoTimeBase) then begin

-{$ifdef DebugFrames}

-    // frame delay debug display

-    GoldenRec.Spawn(200,15,1,16,0,-1,ColoredStar,$00ff00);

-{$endif}

-{    showmessage('not getting new frame'+#13#10+

-    'Time:      '+inttostr(floor(Time*1000))+#13#10+

-    'VideoTime: '+inttostr(floor(VideoTime*1000))+#13#10+

-    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+

-    'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));

-}

-    Exit;// we don't need a new frame now

-  end;

-  VideoTime:=VideoTime+VideoTimeBase;

-  TimeDifference:=myTime-VideoTime;

-  if TimeDifference >= (FRAMEDROPCOUNT-1)*VideoTimeBase then begin // skip frames

-{$ifdef DebugFrames}

-    //frame drop debug display

-    GoldenRec.Spawn(200,55,1,16,0,-1,ColoredStar,$ff0000);

-{$endif}

-//    showmessage('skipping frames'+#13#10+

-//    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+

-//    'TimeDiff:  '+inttostr(floor(TimeDifference*1000))+#13#10+

-//    'Time2Skip: '+inttostr(floor((Time-LastFrameTime)*1000)));

-//    av_seek_frame(VideoFormatContext,VideoStreamIndex,Floor(Time*VideoTimeBase),0);

-{    av_seek_frame(VideoFormatContext,-1,Floor((myTime+VideoTimeBase)*1500000),0);

-    VideoTime:=floor(myTime/VideoTimeBase)*VideoTimeBase;}

-    VideoTime:=VideoTime+FRAMEDROPCOUNT*VideoTimeBase;

-    DropFrame:=True;

-  end;

-

-  av_init_packet(@AVPacket);

-  FrameFinished:=0;

-  // read packets until we have a finished frame (or there are no more packets)

-  while (FrameFinished=0) and (av_read_frame(VideoFormatContext, @AVPacket)>=0) do

-  begin

-    // if we got a packet from the video stream, then decode it

-    if (AVPacket.stream_index=VideoStreamIndex) then

-      errnum:=avcodec_decode_video(VideoCodecContext, AVFrame, @frameFinished,

-                                     AVPacket.data, AVPacket.size);

-    // release internal packet structure created by av_read_frame

-      av_free_packet(PAVPacket(@AVPacket));

-  end;

-  if DropFrame then

-    for droppedFrames:=1 to FRAMEDROPCOUNT do begin

-      FrameFinished:=0;

-      // read packets until we have a finished frame (or there are no more packets)

-      while (FrameFinished=0) and (av_read_frame(VideoFormatContext, @AVPacket)>=0) do

-      begin

-        // if we got a packet from the video stream, then decode it

-        if (AVPacket.stream_index=VideoStreamIndex) then

-          errnum:=avcodec_decode_video(VideoCodecContext, AVFrame, @frameFinished,

-                                         AVPacket.data, AVPacket.size);

-        // release internal packet structure created by av_read_frame

-          av_free_packet(PAVPacket(@AVPacket));

-      end;

-    end;

-

-  // if we did not get an new frame, there's nothing more to do

-  if Framefinished=0 then begin

-    GoldenRec.Spawn(220,15,1,16,0,-1,ColoredStar,$0000ff);

-    Exit;

-  end;

-  // otherwise we convert the pixeldata from YUV to RGB

-  errnum:=img_convert(PAVPicture(AVFrameRGB), PIX_FMT_RGB24,

-            PAVPicture(AVFrame), VideoCodecContext^.pix_fmt,

-			      VideoCodecContext^.width, VideoCodecContext^.height);

-//errnum:=1;

-  if errnum >=0 then begin

-    // copy RGB pixeldata to our TextureBuffer

-    // (line by line)

-    FrameDataPtr:=AVFrameRGB^.data[0];

-    linesize:=AVFrameRGB^.linesize[0];

-    for y:=0 to TexY-1 do begin

-      System.Move(FrameDataPtr[y*linesize],TexData[3*y*dataX],linesize);

-    end;

-

-    // generate opengl texture out of whatever we got

-    glBindTexture(GL_TEXTURE_2D, VideoTex);

-    glTexImage2D(GL_TEXTURE_2D, 0, 3, dataX, dataY, 0, GL_RGB, GL_UNSIGNED_BYTE, TexData);

-    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

-    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

-{$ifdef DebugFrames}

-    //frame decode debug display

-    GoldenRec.Spawn(200,35,1,16,0,-1,ColoredStar,$ffff00);

-{$endif}

-

-  end;

-end;

-

-procedure FFmpegDrawGL(Screen: integer);

-begin

-  // have a nice black background to draw on (even if there were errors opening the vid)

-  if Screen=1 then begin

-    glClearColor(0,0,0,0);

-    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

-  end;

-  // exit if there's nothing to draw

-  if not VideoOpened then Exit;

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

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

-  glBindTexture(GL_TEXTURE_2D, VideoTex);

-  glbegin(gl_quads);

-    glTexCoord2f(         0,          0); glVertex2f(400-ScaledVideoWidth/2, 300-ScaledVideoHeight/2);

-    glTexCoord2f(         0, TexY/dataY); glVertex2f(400-ScaledVideoWidth/2, 300+ScaledVideoHeight/2);

-    glTexCoord2f(TexX/dataX, TexY/dataY); glVertex2f(400+ScaledVideoWidth/2, 300+ScaledVideoHeight/2);

-    glTexCoord2f(TexX/dataX,          0); glVertex2f(400+ScaledVideoWidth/2, 300-ScaledVideoHeight/2);

-  glEnd;

-  glDisable(GL_TEXTURE_2D);

-  glDisable(GL_BLEND);

-

-{$ifdef Info}

-  if VideoSkipTime+VideoTime+VideoTimeBase < 0 then begin

-    glColor4f(0.7, 1, 0.3, 1);

-    SetFontStyle (1);

-    SetFontItalic(False);

-    SetFontSize(9);

-    SetFontPos (300, 0);

-    glPrint('Delay due to negative VideoGap');

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

-  end;

-{$endif}

-

-{$ifdef DebugFrames}

-    glColor4f(0, 0, 0, 0.2);

-    glbegin(gl_quads);

-      glVertex2f(0, 0);

-      glVertex2f(0, 70);

-      glVertex2f(250, 70);

-      glVertex2f(250, 0);

-    glEnd;

-

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

-    SetFontStyle (1);

-    SetFontItalic(False);

-    SetFontSize(9);

-    SetFontPos (5, 0);

-    glPrint('delaying frame');

-    SetFontPos (5, 20);

-    glPrint('fetching frame');

-    SetFontPos (5, 40);

-    glPrint('dropping frame');

-{$endif}

-end;

-

-end.

+{############################################################################
+#                   FFmpeg support for UltraStar deluxe                     #
+#                                                                           #
+#   Created by b1indy                                                       #
+#   based on 'An ffmpeg and SDL Tutorial' (http://www.dranger.com/ffmpeg/)  #
+#############################################################################}
+
+//{$define DebugDisplay}  // uncomment if u want to see the debug stuff
+//{$define DebugFrames}
+//{$define Info}
+
+
+unit UVideo;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+
+uses SDL,
+     UGraphicClasses,
+     textgl,
+     avcodec,
+     avformat,
+     avutil,
+     math,
+     OpenGL12,
+     SysUtils,
+     {$ifdef DebugDisplay}
+     {$ifdef win32}
+     dialogs,
+     {$endif}
+     {$ENDIF}
+     UIni;
+
+procedure Init;
+procedure FFmpegOpenFile(FileName: pAnsiChar);
+procedure FFmpegClose;
+procedure FFmpegGetFrame(Time: Extended);
+procedure FFmpegDrawGL(Screen: integer);
+procedure FFmpegTogglePause;
+procedure FFmpegSkip(Time: Single);
+
+var
+  VideoOpened, VideoPaused: Boolean;
+  VideoFormatContext: PAVFormatContext;
+  VideoStreamIndex: Integer;
+  VideoCodecContext: PAVCodecContext;
+  VideoCodec: PAVCodec;
+  AVFrame: PAVFrame;
+  AVFrameRGB: PAVFrame;
+  myBuffer: pByte;
+  VideoTex: glUint;
+  TexX, TexY, dataX, dataY: Cardinal;
+  TexData: array of Byte;
+  ScaledVideoWidth, ScaledVideoHeight: Real;
+  VideoAspect: Real;
+  VideoTextureU, VideoTextureV: Real;
+  VideoTimeBase, VideoTime, LastFrameTime, TimeDifference: Extended;
+  VideoSkipTime: Single;
+  
+implementation
+
+{$ifdef DebugDisplay}
+{$ifNdef win32}
+
+procedure showmessage( aMessage : String );
+begin
+  writeln( aMessage );
+end;
+
+{$endif}
+{$ENDIF}
+
+procedure Init;
+begin
+  av_register_all;
+  {$ifdef DebugDisplay}
+  showmessage( 'AV_Register_ALL' );
+  {$endif}
+  
+  VideoOpened:=False;
+  VideoPaused:=False;
+  
+  glGenTextures(1, PglUint(@VideoTex));
+  SetLength(TexData,0);
+end;
+
+procedure FFmpegOpenFile(FileName: pAnsiChar);
+var errnum, i, x,y: Integer;
+  lStreamsCount : Integer;
+begin
+  VideoOpened    := False;
+  VideoPaused    := False;
+  VideoTimeBase  := 0;
+  VideoTime      := 0;
+  LastFrameTime  := 0;
+  TimeDifference := 0;
+  
+  errnum         := av_open_input_file(VideoFormatContext, FileName, Nil, 0, Nil);
+  
+  if(errnum <> 0) then
+  begin
+{$ifdef DebugDisplay}
+    case errnum of
+      AVERROR_UNKNOWN: showmessage('failed to open file '+Filename+#13#10+'AVERROR_UNKNOWN');
+      AVERROR_IO: showmessage('failed to open file '+Filename+#13#10+'AVERROR_IO');
+      AVERROR_NUMEXPECTED: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NUMEXPECTED');
+      AVERROR_INVALIDDATA: showmessage('failed to open file '+Filename+#13#10+'AVERROR_INVALIDDATA');
+      AVERROR_NOMEM: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOMEM');
+      AVERROR_NOFMT: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOFMT');
+      AVERROR_NOTSUPP: showmessage('failed to open file '+Filename+#13#10+'AVERROR_NOTSUPP');
+    else showmessage('failed to open file '+Filename+#13#10+'Error number: '+inttostr(Errnum));
+    end;
+{$ENDIF}
+    Exit;
+  end
+  else
+  begin
+    VideoStreamIndex:=-1;
+
+    // Find which stream contains the video
+    if(av_find_stream_info(VideoFormatContext) >= 0) then
+    begin
+      {$ifdef DebugDisplay}
+       writeln( 'FFMPEG debug...  VideoFormatContext^.nb_streams : '+ inttostr( VideoFormatContext^.nb_streams ) );
+      {$endif}
+      for i:= 0 to MAX_STREAMS-1 do
+      begin
+        {$ifdef DebugDisplay}
+        writeln( 'FFMPEG debug...  found stream '+ inttostr(i) + ' stream val ' + inttostr( integer(VideoFormatContext^.streams[i] ) ) );
+        {$endif}
+        try
+          if assigned( VideoFormatContext                    ) AND
+             assigned( VideoFormatContext^.streams[i]        ) AND
+             assigned( VideoFormatContext^.streams[i]^.codec ) THEN
+          begin
+              {$ifdef DebugDisplay}
+            writeln( 'FFMPEG debug...  found stream '+ inttostr(i) + ' code val ' + inttostr( integer(VideoFormatContext^.streams[i].codec ) ) );
+            writeln( 'FFMPEG debug...  found stream '+ inttostr(i) + ' code Type ' + inttostr( integer(VideoFormatContext^.streams[i].codec^.codec_type ) ) );
+              {$endif}
+            if(VideoFormatContext^.streams[i]^.codec^.codec_type=CODEC_TYPE_VIDEO) then
+            begin
+              {$ifdef DebugDisplay}
+              writeln( 'FFMPEG debug, found CODEC_TYPE_VIDEO stream' );
+              {$endif}
+              VideoStreamIndex:=i;
+            end
+            else
+          end;
+        except
+          // TODO : JB_Linux ... this is excepting at line 108...  ( Was 111 previously.. so its prob todo with streams[i]^.codec ..
+    {$ifdef DebugDisplay}
+          writeln( 'FFMPEG error, finding video stream' );
+    {$endif}
+        end;
+
+      end;
+    end;
+    
+    if(VideoStreamIndex >= 0) then
+    begin
+      VideoCodecContext:=VideoFormatContext^.streams[VideoStreamIndex]^.codec;
+      VideoCodec:=avcodec_find_decoder(VideoCodecContext^.codec_id);
+    end
+    else
+    begin
+{$ifdef DebugDisplay}
+      showmessage('found no video stream');
+{$ENDIF}
+      av_close_input_file(VideoFormatContext);
+      Exit;
+    end;
+    
+    if(VideoCodec<>Nil) then
+    begin
+      errnum:=avcodec_open(VideoCodecContext, VideoCodec);
+    end else begin
+{$ifdef DebugDisplay}
+      showmessage('no matching codec found');
+{$ENDIF}
+      avcodec_close(VideoCodecContext);
+      av_close_input_file(VideoFormatContext);
+      Exit;
+    end;
+    if(errnum >=0) then
+    begin
+{$ifdef DebugDisplay}
+       showmessage('Found a matching Codec:'+#13#10#13#10+
+        'Width='+inttostr(VideoCodecContext^.width)+
+        ', Height='+inttostr(VideoCodecContext^.height)+#13#10+
+        'Aspect: '+inttostr(VideoCodecContext^.sample_aspect_ratio.num)+'/'+inttostr(VideoCodecContext^.sample_aspect_ratio.den)+#13#10+
+        'Framerate: '+inttostr(VideoCodecContext^.time_base.num)+'/'+inttostr(VideoCodecContext^.time_base.den));
+{$endif}
+      // allocate space for decoded frame and rgb frame
+      AVFrame:=avcodec_alloc_frame;
+      AVFrameRGB:=avcodec_alloc_frame;
+    end;
+    myBuffer:=Nil;
+    if(AVFrame <> Nil) and (AVFrameRGB <> Nil) then
+    begin
+      myBuffer:=av_malloc(avpicture_get_size(PIX_FMT_RGB24, VideoCodecContext^.width,
+                            VideoCodecContext^.height));
+    end;
+    if myBuffer <> Nil then errnum:=avpicture_fill(PAVPicture(AVFrameRGB), myBuffer, PIX_FMT_RGB24,
+                VideoCodecContext^.width, VideoCodecContext^.height)
+    else begin
+{$ifdef DebugDisplay}
+      showmessage('failed to allocate video buffer');
+{$endif}
+      av_free(AVFrameRGB);
+      av_free(AVFrame);
+      avcodec_close(VideoCodecContext);
+      av_close_input_file(VideoFormatContext);
+      Exit;
+    end;
+    if errnum >=0 then
+    begin
+      VideoOpened:=True;
+
+      TexX := VideoCodecContext^.width;
+      TexY := VideoCodecContext^.height;
+      dataX := Round(Power(2, Ceil(Log2(TexX))));
+      dataY := Round(Power(2, Ceil(Log2(TexY))));
+      SetLength(TexData,dataX*dataY*3);
+      // calculate some information for video display
+      VideoAspect:=VideoCodecContext^.sample_aspect_ratio.num/VideoCodecContext^.sample_aspect_ratio.den;
+      if (VideoAspect = 0) then
+        VideoAspect:=VideoCodecContext^.width/VideoCodecContext^.height
+      else
+        VideoAspect:=VideoAspect*VideoCodecContext^.width/VideoCodecContext^.height;
+      if VideoAspect >= 4/3 then
+      begin
+        ScaledVideoWidth:=800.0;
+        ScaledVideoHeight:=800.0/VideoAspect;
+      end else
+      begin
+        ScaledVideoHeight:=600.0;
+        ScaledVideoWidth:=600.0*VideoAspect;
+      end;
+      VideoTimeBase:=VideoCodecContext^.time_base.num/VideoCodecContext^.time_base.den;
+      // hack to get reasonable timebase for divx
+{$ifdef DebugDisplay}
+      showmessage('framerate: '+inttostr(floor(1/videotimebase))+'fps');
+{$endif}
+      if VideoTimeBase < 0.02 then // 0.02 <-> 50 fps
+      begin
+        VideoTimeBase:=VideoCodecContext^.time_base.den/VideoCodecContext^.time_base.num;
+        while VideoTimeBase > 50 do VideoTimeBase:=VideoTimeBase/10;
+        VideoTimeBase:=1/VideoTimeBase;
+      end;
+{$ifdef DebugDisplay}
+      showmessage('corrected framerate: '+inttostr(floor(1/videotimebase))+'fps');
+      if ((VideoAspect*VideoCodecContext^.width*VideoCodecContext^.height)>200000) then
+        showmessage('you are trying to play a rather large video'+#13#10+
+                    'be prepared to experience some timing problems');
+{$endif}
+    end;
+  end;
+end;
+
+procedure FFmpegClose;
+begin
+  if VideoOpened then begin
+    av_free(myBuffer);
+    av_free(AVFrameRGB);
+    av_free(AVFrame);
+    avcodec_close(VideoCodecContext);
+    av_close_input_file(VideoFormatContext);
+    SetLength(TexData,0);
+    VideoOpened:=False;
+  end;
+end;
+
+procedure FFmpegTogglePause;
+begin
+  if VideoPaused then VideoPaused:=False
+  else VideoPaused:=True;
+end;
+
+procedure FFmpegSkip(Time: Single);
+begin
+  VideoSkiptime:=Time;
+  if VideoSkipTime > 0 then begin
+    av_seek_frame(VideoFormatContext,-1,Floor((VideoSkipTime)*1500000),0);
+    VideoTime:=VideoSkipTime;
+  end;
+end;
+
+procedure FFmpegGetFrame(Time: Extended);
+var
+  FrameFinished: Integer;
+  AVPacket: TAVPacket;
+  errnum, x, y: Integer;
+  FrameDataPtr: PByteArray;
+  linesize: integer;
+  myTime: Extended;
+  DropFrame: Boolean;
+  droppedFrames: Integer;
+const
+  FRAMEDROPCOUNT=3;
+begin
+  if not VideoOpened then Exit;
+  if VideoPaused then Exit;
+  myTime:=Time+VideoSkipTime;
+  TimeDifference:=myTime-VideoTime;
+  DropFrame:=False;
+{  showmessage('Time:      '+inttostr(floor(Time*1000))+#13#10+
+    'VideoTime: '+inttostr(floor(VideoTime*1000))+#13#10+
+    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+
+    'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));
+}
+  if (VideoTime <> 0) and (TimeDifference <= VideoTimeBase) then begin
+{$ifdef DebugFrames}
+    // frame delay debug display
+    GoldenRec.Spawn(200,15,1,16,0,-1,ColoredStar,$00ff00);
+{$endif}
+{    showmessage('not getting new frame'+#13#10+
+    'Time:      '+inttostr(floor(Time*1000))+#13#10+
+    'VideoTime: '+inttostr(floor(VideoTime*1000))+#13#10+
+    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+
+    'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));
+}
+    Exit;// we don't need a new frame now
+  end;
+  VideoTime:=VideoTime+VideoTimeBase;
+  TimeDifference:=myTime-VideoTime;
+  if TimeDifference >= (FRAMEDROPCOUNT-1)*VideoTimeBase then begin // skip frames
+{$ifdef DebugFrames}
+    //frame drop debug display
+    GoldenRec.Spawn(200,55,1,16,0,-1,ColoredStar,$ff0000);
+{$endif}
+//    showmessage('skipping frames'+#13#10+
+//    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+
+//    'TimeDiff:  '+inttostr(floor(TimeDifference*1000))+#13#10+
+//    'Time2Skip: '+inttostr(floor((Time-LastFrameTime)*1000)));
+//    av_seek_frame(VideoFormatContext,VideoStreamIndex,Floor(Time*VideoTimeBase),0);
+{    av_seek_frame(VideoFormatContext,-1,Floor((myTime+VideoTimeBase)*1500000),0);
+    VideoTime:=floor(myTime/VideoTimeBase)*VideoTimeBase;}
+    VideoTime:=VideoTime+FRAMEDROPCOUNT*VideoTimeBase;
+    DropFrame:=True;
+  end;
+
+  av_init_packet(@AVPacket);
+  FrameFinished:=0;
+  // read packets until we have a finished frame (or there are no more packets)
+  while (FrameFinished=0) and (av_read_frame(VideoFormatContext, @AVPacket)>=0) do
+  begin
+    // if we got a packet from the video stream, then decode it
+    if (AVPacket.stream_index=VideoStreamIndex) then
+      errnum:=avcodec_decode_video(VideoCodecContext, AVFrame, @frameFinished,
+                                     AVPacket.data, AVPacket.size);
+    // release internal packet structure created by av_read_frame
+      av_free_packet(PAVPacket(@AVPacket));
+  end;
+  if DropFrame then
+    for droppedFrames:=1 to FRAMEDROPCOUNT do begin
+      FrameFinished:=0;
+      // read packets until we have a finished frame (or there are no more packets)
+      while (FrameFinished=0) and (av_read_frame(VideoFormatContext, @AVPacket)>=0) do
+      begin
+        // if we got a packet from the video stream, then decode it
+        if (AVPacket.stream_index=VideoStreamIndex) then
+          errnum:=avcodec_decode_video(VideoCodecContext, AVFrame, @frameFinished,
+                                         AVPacket.data, AVPacket.size);
+        // release internal packet structure created by av_read_frame
+          av_free_packet(PAVPacket(@AVPacket));
+      end;
+    end;
+
+  // if we did not get an new frame, there's nothing more to do
+  if Framefinished=0 then begin
+    GoldenRec.Spawn(220,15,1,16,0,-1,ColoredStar,$0000ff);
+    Exit;
+  end;
+  // otherwise we convert the pixeldata from YUV to RGB
+  errnum:=img_convert(PAVPicture(AVFrameRGB), PIX_FMT_RGB24,
+            PAVPicture(AVFrame), VideoCodecContext^.pix_fmt,
+			      VideoCodecContext^.width, VideoCodecContext^.height);
+//errnum:=1;
+  if errnum >=0 then begin
+    // copy RGB pixeldata to our TextureBuffer
+    // (line by line)
+    FrameDataPtr:=AVFrameRGB^.data[0];
+    linesize:=AVFrameRGB^.linesize[0];
+    for y:=0 to TexY-1 do begin
+      System.Move(FrameDataPtr[y*linesize],TexData[3*y*dataX],linesize);
+    end;
+
+    // generate opengl texture out of whatever we got
+    glBindTexture(GL_TEXTURE_2D, VideoTex);
+    glTexImage2D(GL_TEXTURE_2D, 0, 3, dataX, dataY, 0, GL_RGB, GL_UNSIGNED_BYTE, TexData);
+    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+{$ifdef DebugFrames}
+    //frame decode debug display
+    GoldenRec.Spawn(200,35,1,16,0,-1,ColoredStar,$ffff00);
+{$endif}
+
+  end;
+end;
+
+procedure FFmpegDrawGL(Screen: integer);
+begin
+  // have a nice black background to draw on (even if there were errors opening the vid)
+  if Screen=1 then begin
+    glClearColor(0,0,0,0);
+    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+  end;
+  // exit if there's nothing to draw
+  if not VideoOpened then Exit;
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glColor4f(1, 1, 1, 1);
+  glBindTexture(GL_TEXTURE_2D, VideoTex);
+  glbegin(gl_quads);
+    glTexCoord2f(         0,          0); glVertex2f(400-ScaledVideoWidth/2, 300-ScaledVideoHeight/2);
+    glTexCoord2f(         0, TexY/dataY); glVertex2f(400-ScaledVideoWidth/2, 300+ScaledVideoHeight/2);
+    glTexCoord2f(TexX/dataX, TexY/dataY); glVertex2f(400+ScaledVideoWidth/2, 300+ScaledVideoHeight/2);
+    glTexCoord2f(TexX/dataX,          0); glVertex2f(400+ScaledVideoWidth/2, 300-ScaledVideoHeight/2);
+  glEnd;
+  glDisable(GL_TEXTURE_2D);
+  glDisable(GL_BLEND);
+
+{$ifdef Info}
+  if VideoSkipTime+VideoTime+VideoTimeBase < 0 then begin
+    glColor4f(0.7, 1, 0.3, 1);
+    SetFontStyle (1);
+    SetFontItalic(False);
+    SetFontSize(9);
+    SetFontPos (300, 0);
+    glPrint('Delay due to negative VideoGap');
+    glColor4f(1, 1, 1, 1);
+  end;
+{$endif}
+
+{$ifdef DebugFrames}
+    glColor4f(0, 0, 0, 0.2);
+    glbegin(gl_quads);
+      glVertex2f(0, 0);
+      glVertex2f(0, 70);
+      glVertex2f(250, 70);
+      glVertex2f(250, 0);
+    glEnd;
+
+    glColor4f(1,1,1,1);
+    SetFontStyle (1);
+    SetFontItalic(False);
+    SetFontSize(9);
+    SetFontPos (5, 0);
+    glPrint('delaying frame');
+    SetFontPos (5, 20);
+    glPrint('fetching frame');
+    SetFontPos (5, 40);
+    glPrint('dropping frame');
+{$endif}
+end;
+
+end.
diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index 9c571b2b..2bd0156a 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -1,1257 +1,1402 @@
-unit UScreenCredits;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-{$I switches.inc}

-

-

-uses

-    UMenu,

-    SDL,

-    SDL_Image,

-    UDisplay,

-    UTexture,

-    OpenGL12,

-    UMusic,

-    UFiles,

-    SysUtils,

-    UThemes,

-    ULCD,

-    ULight,

-    UGraphicClasses;

-

-type

-  TCreditsStages=(InitialDelay,Intro,MainPart,Outro);

-

-  TScreenCredits = class(TMenu)

-    public

-

-      Credits_X: Real;

-      Credits_Time: Cardinal;

-      Credits_Alpha: Cardinal;

-      CTime: Cardinal;

-      CTime_hold: Cardinal;

-      ESC_Alpha: Integer;

-

-      credits_entry_tex: TTexture;

-      credits_entry_dx_tex: TTexture;

-      credits_bg_tex: TTexture;

-      credits_bg_ovl: TTexture;

-//      credits_bg_logo: TTexture;

-      credits_bg_scrollbox_left: TTexture;

-      credits_blindguard: TTexture;

-      credits_blindy: TTexture;

-      credits_canni: TTexture;

-      credits_commandio: TTexture;

-      credits_lazyjoker: TTexture;

-      credits_mog: TTexture;

-      credits_mota: TTexture;

-      credits_skillmaster: TTexture;

-      credits_whiteshark: TTexture;

-      intro_layer01: TTexture;

-      intro_layer02: TTexture;

-      intro_layer03: TTexture;

-      intro_layer04: TTexture;

-      intro_layer05: TTexture;

-      intro_layer06: TTexture;

-      intro_layer07: TTexture;

-      intro_layer08: TTexture;

-      intro_layer09: TTexture;

-      outro_bg:      TTexture;

-      outro_esc:     TTexture;

-      outro_exd:     TTexture;

-

-      deluxe_slidein: cardinal;

-

-      CurrentScrollText: String;

-      NextScrollUpdate:  Real;

-      EndofLastScrollingPart: Cardinal;

-      CurrentScrollStart, CurrentScrollEnd: Integer;

-

-      CRDTS_Stage: TCreditsStages;

-

-  myTex: glUint;

-  mysdlimage,myconvertedsdlimage: PSDL_Surface;

-

-      Fadeout:      boolean;

-      constructor Create; override;

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

-      function Draw: boolean; override;

-      procedure onShow; override;

-      procedure onHide; override;

-      procedure DrawCredits;

-      procedure Draw_FunkyText;

-   end;

-

-const

-  Funky_Text: AnsiString =

-    'Grandma Deluxe has arrived! Thanks to Corvus5 for the massive work on UltraStar, Wome for the nice tune you´re hearing, '+

-    'all the people who put massive effort and work in new songs (don´t forget UltraStar w/o songs would be nothing), ppl from '+

-    'irc helping us - eBandit and Gabari, scene ppl who really helped instead of compiling and running away. Greetings to DennisTheMenace for betatesting, '+

-    'Demoscene.tv, pouet.net, KakiArts, Sourceforge,..';

-

-

-  Timings: array[0..21] of Cardinal=(

-     20,   //  0 Delay vor Start

-

-    149,   //  1 Ende erster Intro Zoom

-    155,   //  2 Start 2. Action im Intro

-    170,   //  3 Ende Separation im Intro

-    271,   //  4 Anfang Zoomout im Intro

-      0,   //  5 unused

-    261,   //  6 Start fade-to-white im Intro

-

-    271,   //  7 Start Main Part

-    280,   //  8 Start On-Beat-Sternchen Main Part

-

-    396,   //  9 Start BlindGuard

-    666,   // 10 Start blindy

-    936,   // 11 Start Canni

-   1206,   // 12 Start Commandio

-   1476,   // 13 Start LazyJoker

-   1746,   // 14 Start Mog

-   2016,   // 15 Start Mota

-   2286,   // 16 Start SkillMaster

-   2556,   // 17 Start WhiteShark

-   2826,   // 18 Ende Whiteshark

-   3096,   // 19 Start FadeOut Mainscreen

-   3366,   // 20 Ende Credits Tune

-     60);  // 21 start flare im intro

-

-

-  sdl32bpprgba: TSDL_Pixelformat=(palette:       nil;

-                                  BitsPerPixel:  32;

-                                  BytesPerPixel: 4;

-                                  Rloss:         0;

-                                  Gloss:         0;

-                                  Bloss:         0;

-                                  Aloss:         0;

-                                  Rshift:        0;

-                                  Gshift:        8;

-                                  Bshift:       16;

-                                  Ashift:       24;

-                                  Rmask: $000000ff;

-                                  Gmask: $0000ff00;

-                                  Bmask: $00ff0000;

-                                  Amask: $ff000000;

-                                  colorkey:      0;

-                                  alpha:       255 );

-

-

-implementation

-

-uses {$IFDEF win32}

-     windows,

-     {$ELSE}

-     lclintf,

-     {$ENDIF}

-     UGraphic,

-     UMain,

-     UIni,

-     USongs,

-     Textgl,

-     ULanguage,

-     UCommon,

-     Math,

-     dialogs;

-

-

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

-begin

-  Result := true;

-  If (PressedDown) Then

-  begin // Key Down

-    case PressedKey of

-

-      SDLK_ESCAPE,

-      SDLK_BACKSPACE :

-        begin

-          FadeTo(@ScreenMain);

-          Music.PlayBack;

-        end;

-{       SDLK_SPACE:

-         begin

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

-           CTime_hold[high(CTime_hold)]:=CTime;

-         end;

-}

-     end;//esac

-    end; //fi

-end;

-

-constructor TScreenCredits.Create;

-begin

-  inherited Create;

-

-  credits_bg_tex            := Texture.LoadTexture(true, 'CRDTS_BG', 'PNG', 'Plain', 0);

-  credits_bg_ovl          := Texture.LoadTexture(true, 'CRDTS_OVL', 'PNG', 'Transparent', 0);

-

-  credits_blindguard  := Texture.LoadTexture(true, 'CRDTS_blindguard', 'PNG', 'Font Black', 0);

-  credits_blindy      := Texture.LoadTexture(true, 'CRDTS_blindy', 'PNG', 'Font Black', 0);

-  credits_canni       := Texture.LoadTexture(true, 'CRDTS_canni', 'PNG', 'Font Black', 0);

-  credits_commandio   := Texture.LoadTexture(true, 'CRDTS_commandio', 'PNG', 'Font Black', 0);

-  credits_lazyjoker   := Texture.LoadTexture(true, 'CRDTS_lazyjoker', 'PNG', 'Font Black', 0);

-  credits_mog         := Texture.LoadTexture(true, 'CRDTS_mog', 'PNG', 'Font Black', 0);

-  credits_mota        := Texture.LoadTexture(true, 'CRDTS_mota', 'PNG', 'Font Black', 0);

-  credits_skillmaster := Texture.LoadTexture(true, 'CRDTS_skillmaster', 'PNG', 'Font Black', 0);

-  credits_whiteshark  := Texture.LoadTexture(true, 'CRDTS_whiteshark', 'PNG', 'Font Black', 0);

-

-  intro_layer01 := Texture.LoadTexture(true, 'INTRO_L01', 'PNG', 'Transparent', 0);

-  intro_layer02 := Texture.LoadTexture(true, 'INTRO_L02', 'PNG', 'Transparent', 0);

-  intro_layer03 := Texture.LoadTexture(true, 'INTRO_L03', 'PNG', 'Transparent', 0);

-  intro_layer04 := Texture.LoadTexture(true, 'INTRO_L04', 'PNG', 'Transparent', 0);

-  intro_layer05 := Texture.LoadTexture(true, 'INTRO_L05', 'PNG', 'Transparent', 0);

-  intro_layer06 := Texture.LoadTexture(true, 'INTRO_L06', 'PNG', 'Transparent', 0);

-  intro_layer07 := Texture.LoadTexture(true, 'INTRO_L07', 'PNG', 'Transparent', 0);

-  intro_layer08 := Texture.LoadTexture(true, 'INTRO_L08', 'PNG', 'Transparent', 0);

-  intro_layer09 := Texture.LoadTexture(true, 'INTRO_L09', 'PNG', 'Transparent', 0);

-

-  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', 'Transparent', 0);

-

-  CRDTS_Stage:=InitialDelay;

-end;

-

-function TScreenCredits.Draw: boolean;

-begin

-  DrawCredits;

-  Draw:=true;

-end;

-

-function pixfmt_eq(fmt1,fmt2: TSDL_Pixelformat): boolean;

-begin

-  if (fmt1.BitsPerPixel = fmt2.BitsPerPixel) and

-     (fmt1.BytesPerPixel = fmt2.BytesPerPixel) and

-     (fmt1.Rloss = fmt2.Rloss) and

-     (fmt1.Gloss = fmt2.Gloss) and

-     (fmt1.Bloss = fmt2.Bloss) and

-     (fmt1.Rmask = fmt2.Rmask) and

-     (fmt1.Gmask = fmt2.Gmask) and

-     (fmt1.Bmask = fmt2.Bmask) and

-     (fmt1.Rshift = fmt2.Rshift) and

-     (fmt1.Gshift = fmt2.Gshift) and

-     (fmt1.Bshift = fmt2.Bshift)

-   then

-    pixfmt_eq:=True

-  else

-    pixfmt_eq:=False;

-end;

-

-function inttohexstr(i: cardinal):pchar;

-var helper, i2, c:cardinal;

-    tmpstr: string;

-begin

-  helper:=0;

-  i2:=i;

-  tmpstr:='';

-  for c:=1 to 8 do

-  begin

-    helper:=(helper shl 4) or (i2 and $f);

-    i2:=i2 shr 4;

-  end;

-  for c:=1 to 8 do

-  begin

-    i2:=helper and $f;

-    helper := helper shr 4;

-    case i2 of

-      0: tmpstr:=tmpstr+'0';

-      1: tmpstr:=tmpstr+'1';

-      2: tmpstr:=tmpstr+'2';

-      3: tmpstr:=tmpstr+'3';

-      4: tmpstr:=tmpstr+'4';

-      5: tmpstr:=tmpstr+'5';

-      6: tmpstr:=tmpstr+'6';

-      7: tmpstr:=tmpstr+'7';

-      8: tmpstr:=tmpstr+'8';

-      9: tmpstr:=tmpstr+'9';

-     10: tmpstr:=tmpstr+'a';

-     11: tmpstr:=tmpstr+'b';

-     12: tmpstr:=tmpstr+'c';

-     13: tmpstr:=tmpstr+'d';

-     14: tmpstr:=tmpstr+'e';

-     15: tmpstr:=tmpstr+'f';

-    end;

-  end;

-  inttohexstr:=pchar(tmpstr);

-end;

-

-procedure TScreenCredits.onShow;

-begin

-  CRDTS_Stage:=InitialDelay;

-  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);

-

-  mysdlimage:=IMG_Load('test.png');

-  if assigned(mysdlimage) then

-  begin

-    {$IFNDEF FPC}

-    showmessage('opened image via SDL_Image'+#13#10+

-                'Width:   '+inttostr(mysdlimage^.w)+#13#10+

-                'Height:  '+inttostr(mysdlimage^.h)+#13#10+

-                'BitsPP:  '+inttostr(mysdlimage^.format.BitsPerPixel)+#13#10+

-                'BytesPP: '+inttostr(mysdlimage^.format.BytesPerPixel)+#13#10+

-                'Rloss:  '+inttostr(mysdlimage^.format.Rloss)+#13#10+

-                'Gloss:  '+inttostr(mysdlimage^.format.Gloss)+#13#10+

-                'Bloss:  '+inttostr(mysdlimage^.format.Bloss)+#13#10+

-                'Aloss:  '+inttostr(mysdlimage^.format.Aloss)+#13#10+

-                'Rshift: '+inttostr(mysdlimage^.format.Rshift)+#13#10+

-                'Gshift: '+inttostr(mysdlimage^.format.Gshift)+#13#10+

-                'Bshift: '+inttostr(mysdlimage^.format.Bshift)+#13#10+

-                'Ashift: '+inttostr(mysdlimage^.format.Ashift)+#13#10+

-                'Rmask:  '+inttohexstr(mysdlimage^.format.Rmask)+#13#10+

-                'Gmask:  '+inttohexstr(mysdlimage^.format.Gmask)+#13#10+

-                'Bmask:  '+inttohexstr(mysdlimage^.format.Bmask)+#13#10+

-                'Amask:  '+inttohexstr(mysdlimage^.format.Amask)+#13#10+

-                'ColKey: '+inttostr(mysdlimage^.format.Colorkey)+#13#10+

-                'Alpha:  '+inttostr(mysdlimage^.format.Alpha));

-

-    if pixfmt_eq(mysdlimage^.format^,sdl32bpprgba) then

-      showmessage('equal pixelformats')

-    else

-      showmessage('different pixelformats');

-    {$ENDIF}

-

-    myconvertedsdlimage:=SDL_ConvertSurface(mysdlimage,@sdl32bpprgba,SDL_SWSURFACE);

-    glGenTextures(1,@myTex);

-    glBindTexture(GL_TEXTURE_2D, myTex);

-    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );

-    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );

-    glTexImage2D( GL_TEXTURE_2D, 0, 4, myconvertedsdlimage^.w, myconvertedsdlimage^.h, 0,

-                      GL_RGBA, GL_UNSIGNED_BYTE, myconvertedsdlimage^.pixels );

-    SDL_FreeSurface(mysdlimage);

-    SDL_FreeSurface(myconvertedsdlimage);

-  end

-  else

-    {$IFDEF FPC}

-    writeln( 'could not open file - test.png');

-    {$ELSE}

-    showmessage('could not open file - test.png');

-    {$ENDIF}

-

-end;

-

-procedure TScreenCredits.onHide;

-begin

-  Music.Stop;

-end;

-

-Procedure TScreenCredits.Draw_FunkyText;

-var

-  S: Integer;

-  X,Y,A: Real;

-  visibleText: PChar;

-begin

-  SetFontSize(10);

-  //Init ScrollingText

-  if (CTime = Timings[7]) then

-  begin

-    //Set Position of Text

-    Credits_X := 600;

-    CurrentScrollStart:=1;

-    CurrentScrollEnd:=1;

-  end;

-

-  if (CTime > Timings[7]) and (CurrentScrollStart < length(Funky_Text)) then

-  begin

-    X:=0;

-    visibleText:=pchar(Copy(Funky_Text, CurrentScrollStart, CurrentScrollEnd));

-    for S := 0 to length(visibleText)-1 do begin

-      Y:=abs(sin((Credits_X+X)*0.93{*(((Credits_X+X))/1200)}/100*pi));

-      SetFontPos(Credits_X+X,538-Y*(Credits_X+X)*(Credits_X+X)*(Credits_X+X)/1000000);

-      A:=0;

-      if (Credits_X+X < 15) then A:=0;

-      if (Credits_X+X >=15) then A:=Credits_X+X-15;

-      if Credits_X+X > 32 then A:=17;

-      glColor4f( 230/255-40/255+Y*(Credits_X+X)/900, 200/255-30/255+Y*(Credits_X+X)/1000, 155/255-20/255+Y*(Credits_X+X)/1100, A/17);

-      glPrintLetter(visibleText[S]);

-      X := X + Fonts[ActFont].Width[Ord(visibleText[S])] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;

-    end;

-    if (Credits_X<0) and (CurrentScrollStart < length(Funky_Text)) then begin

-      Credits_X:=Credits_X + Fonts[ActFont].Width[Ord(Funky_Text[CurrentScrollStart])] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;

-      inc(CurrentScrollStart);

-    end;

-    visibleText:=pchar(Copy(Funky_Text, CurrentScrollStart, CurrentScrollEnd));

-    if (Credits_X+glTextWidth(visibleText) < 600) and (CurrentScrollEnd < length(Funky_Text)) then begin

-      inc(CurrentScrollEnd);

-    end;

-  end;

-{  // timing hack

-    X:=5;

-    SetFontStyle (2);

-     SetFontItalic(False);

-     SetFontSize(9);

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

-     for S:=0 to high(CTime_hold) do begin

-     visibleText:=pchar(inttostr(CTime_hold[S]));

-     SetFontPos (500, X);

-     glPrint (Addr(visibleText[0]));

-     X:=X+20;

-     end;}

-end;

-

-procedure Start3D;

-begin

-      glMatrixMode(GL_PROJECTION);

-      glPushMatrix;

-      glLoadIdentity;

-      glFrustum(-0.3*4/3,0.3*4/3,-0.3,0.3,1,1000);

-      glMatrixMode(GL_MODELVIEW);

-      glLoadIdentity;

-end;

-procedure End3D;

-begin

-      glMatrixMode(GL_PROJECTION);

-      glPopMatrix;

-      glMatrixMode(GL_MODELVIEW);

-end;

-

-procedure TScreenCredits.DrawCredits;

-var

-  T,I: Cardinal;

-  X: Real;

-  Ver: PChar;

-  RuntimeStr: AnsiString;

-  Data: TFFTData;

-  j,k,l:cardinal;

-  f,g,h: Real;

-  STime:cardinal;

-  Delay:cardinal;

-

-  myPixel: longword;

-  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),

-                                       (232,54),(278,62),(319,34),(336,92),

-                                       (347,23),(374,32),(377,58),(361,83),

-                                       (385,91),(405,91),(429,35),(423,51),

-                                       (450,32),(485,34),(444,91),(486,93));

-

-begin

-  //dis does teh muiwk y0r

-  Data := Music.GetFFTData;

-

-  T := GetTickCount div 33;

-  if T <> Credits_Time then

-  begin

-    Credits_Time := T;

-    inc(CTime);

-    inc(CTime_hold);

-    Credits_X := Credits_X-2;

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

-    begin

-//      CTime:=Timings[20];

-//      CRDTS_Stage:=Outro;

-

-      CRDTS_Stage:=Intro;

-      CTime:=0;

-      Music.Play;

-

-    end;

-    if (CRDTS_Stage=Intro) and (CTime=Timings[7]) then

-    begin

-      CRDTS_Stage:=MainPart;

-    end;

-    if (CRDTS_Stage=MainPart) and (CTime=Timings[20]) then

-    begin

-      CRDTS_Stage:=Outro;

-    end;

-  end;

-

-  //draw background

-  if CRDTS_Stage=InitialDelay then

-      begin

-        glClearColor(0,0,0,0);

-        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

-      end

-  else

-  if CRDTS_Stage=Intro then

-      begin

-        Start3D;

-        glPushMatrix;

-

-        glClearColor(0,0,0,0);

-        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

-

-        glEnable(GL_TEXTURE_2D);

-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-        glEnable(GL_BLEND);

-

-        if CTime < Timings[1] then begin

-          myScale:= 0.5+0.5*(Timings[1]-CTime)/(Timings[1]); // slowly move layers together

-          myAngle:=cos((CTime)*pi/((Timings[1])*2)); // and make logo face towards camera

-        end else begin // this is the part when the logo stands still

-          myScale:=0.5;

-          myAngle:=0;

-        end;

-        if CTime > Timings[2] then begin

-          myScale:= 0.5+0.5*(CTime-Timings[2])/(Timings[3]-Timings[2]); // get some space between layers

-          myAngle:=0;

-        end;

-//        if CTime > Timings[3] then myScale:=1; // keep the space between layers

-        glTranslatef(0,0,-5+0.5*myScale);

-        if CTime > Timings[3] then myScale:=1; // keep the space between layers

-        if CTime > Timings[3] then begin // make logo rotate left and grow

-//          myScale:=(CTime-Timings[4])/(Timings[7]-Timings[4]);

-          glRotatef(20*sqr(CTime-Timings[3])/sqr((Timings[7]-Timings[3])/2),0,0,1);

-          glScalef(1+sqr(CTime-Timings[3])/(32*(Timings[7]-Timings[3])),1+sqr(CTime-Timings[3])/(32*(Timings[7]-Timings[3])),1);

-        end;

-        if CTime < Timings[2] then

-          glRotatef(30*myAngle,0.5*myScale+myScale,1+myScale,0);

-//        glScalef(0.5,0.5,0.5);

-        glScalef(4/3,-1,1);

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

-

-        glBindTexture(GL_TEXTURE_2D, intro_layer01.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.4 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.4 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, -0.4 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, -0.4 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer02.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.3 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.3 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, -0.3 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, -0.3 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer03.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.2 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.2 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, -0.2 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, -0.2 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer04.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.1 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.1 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, -0.1 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, -0.1 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer05.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, 0 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, 0 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, 0 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer06.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.1 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.1 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, 0.1 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, 0.1 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer07.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.2 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.2 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, 0.2 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, 0.2 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer08.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.3 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.3 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, 0.3 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, 0.3 * myScale);

-        glEnd;

-        glBindTexture(GL_TEXTURE_2D, intro_layer09.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.22 * myScale);

-          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.22 * myScale);

-          glTexCoord2f(1,1); glVertex3f(1, 1, 0.22 * myScale);

-          glTexCoord2f(1,0);glVertex3f(1, -1, 0.22 * myScale);

-        glEnd;

-        gldisable(gl_texture_2d);

-        glDisable(GL_BLEND);

-

-        glPopMatrix;

-        End3D;

-

-        // do some sparkling effects

-        if (CTime < Timings[1]) and (CTime > Timings[21]) then

-        begin

-          for k:=1 to 3 do begin

-             l:=410+floor((CTime-Timings[21])/(Timings[1]-Timings[21])*(536-410))+RandomRange(-5,5);

-             j:=floor((Timings[1]-CTime)/22)+RandomRange(285,301);

-             GoldenRec.Spawn(l, j, 1, 16, 0, -1, Flare, 0);

-          end;

-        end;

-

-        // fade to white at end

-        if Ctime > Timings[6] then

-        begin

-          glColor4f(1,1,1,sqr(Ctime-Timings[6])*(Ctime-Timings[6])/sqr(Timings[7]-Timings[6]));

-          glEnable(GL_BLEND);

-          glBegin(GL_QUADS);

-            glVertex2f(0,0);

-            glVertex2f(0,600);

-            glVertex2f(800,600);

-            glVertex2f(800,0);

-          glEnd;

-          glDisable(GL_BLEND);

-        end;

-

-      end;

-    if (CRDTS_Stage=MainPart) then

-      // main credits screen background, scroller, logo and girl

-      begin

-

-        glEnable(GL_TEXTURE_2D);

-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-        glEnable(GL_BLEND);

-

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

-        glBindTexture(GL_TEXTURE_2D, credits_bg_tex.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(0,   0);

-          glTexCoord2f(0,600/1024);glVertex2f(0,   600);

-          glTexCoord2f(800/1024,600/1024); glVertex2f(800, 600);

-          glTexCoord2f(800/1024,0);glVertex2f(800, 0);

-        glEnd;

-        glDisable(GL_TEXTURE_2D);

-        glDisable(GL_BLEND);

-

-        // draw scroller

-        Draw_FunkyText;

-

-//#########################################################################

-// draw credits names

-

-// BlindGuard (von links oben reindrehen, nach rechts unten rausdrehen)

-    STime:=Timings[9]-10;

-    Delay:=Timings[10]-Timings[9];

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(0,329,0);

-      if CTime <= STime+10 then begin glrotatef((CTime-STime)*9+270,0,0,1);end;

-      gltranslatef(223,0,0);

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        gltranslatef(223,0,0);

-        glrotatef((integer(CTime)-(integer(STime+Delay)-10))*-9,0,0,1);

-        gltranslatef(-223,0,0);

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_blindguard.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Blindy  (zoom von 0 auf volle grösse und drehung, zoom auf doppelte grösse und nach rechts oben schieben)

-    STime:=Timings[10]-10;

-    Delay:=Timings[11]-Timings[10]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+20) and (CTime<=STime+22) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+20 then begin

-        j:=CTime-Stime;

-        glscalef(j*j/400,j*j/400,j*j/400);

-        glrotatef(j*18.0,0,0,1);

-      end;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        f:=j*10.0;

-        gltranslatef(f*3,-f,0);

-        glscalef(1+j/10,1+j/10,1+j/10);

-        glrotatef(j*9.0,0,0,1);

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_blindy.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Canni  (von links reinschieben, nach rechts oben rausschieben)

-    STime:=Timings[11]-10;

-    Delay:=Timings[12]-Timings[11]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then begin

-        gltranslatef(((CTime-STime)*21.0)-210,0,0);

-      end;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=(CTime-(STime+Delay-10))*21;

-        gltranslatef(j,-j/2,0);

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_canni.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Commandio  (von unten reinklappen, nach rechts oben rausklappen)

-    STime:=Timings[12]-10;

-    Delay:=Timings[13]-Timings[12];

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then

-        f:=258.0-25.8*(CTime-STime)

-      else

-        f:=0;

-      g:=0;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        g:=32.6*j;

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_commandio.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163+g-f*1.5,   -129+f*1.5-g/2);

-        glTexCoord2f(0,1);glVertex2f(-163+g*1.5,   129-(g*1.5*258/326));

-        glTexCoord2f(1,1); glVertex2f(163+g, 129+g/4);

-        glTexCoord2f(1,0);glVertex2f(163+f*1.5+g/4, -129+f*1.5-g/4);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// lazy joker  (just scrolls from left to right, no twinkling stars, no on-beat flashing)

-    STime:=Timings[13]-35;

-    Delay:=Timings[14]-Timings[13]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)>10) and ((CTime-STime)<20) then ESC_Alpha:=20;

-      ESC_Alpha:=10;

-      f:=CTime-STime;

-      if CTime <=STime+40 then j:=CTime-STime else j:=40;

-      if (CTime >=STime+Delay-40) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j*j/1600);

-

-      glPushMatrix;

-      gltranslatef(180+(f-70),329,0);

-      glBindTexture(GL_TEXTURE_2D, credits_lazyjoker.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Mog (von links reinklappen, nach rechts unten rausklappen)

-    STime:=Timings[14]-10;

-    Delay:=Timings[15]-Timings[14]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then

-        f:=326.0-32.6*(CTime-STime)

-      else

-        f:=0;

-

-      g:=0;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        g:=32.6*j;

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_mog.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163+g*1.5,   -129+g*1.5);

-        glTexCoord2f(0,1);glVertex2f(-163+g*1.2,   129+g);

-        glTexCoord2f(1,1); glVertex2f(163-f+g/2, 129+f*1.5+g/4);

-        glTexCoord2f(1,0);glVertex2f(163-f+g*1.5, -129-f*1.5);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Mota (von rechts oben reindrehen, nach links unten rausschieben und verkleinern und dabei drehen)

-    STime:=Timings[15]-10;

-    Delay:=Timings[16]-Timings[15]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then begin

-        gltranslatef(223,0,0);

-        glrotatef((10-(CTime-STime))*9,0,0,1);

-        gltranslatef(-223,0,0);

-      end;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        f:=j*10.0;

-        gltranslatef(-f*2,-f,0);

-        glscalef(1-j/10,1-j/10,1-j/10);

-        glrotatef(-j*9.0,0,0,1);

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_mota.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// Skillmaster (von rechts unten reinschieben, nach rechts oben rausdrehen)

-    STime:=Timings[16]-10;

-    Delay:=Timings[17]-Timings[16]+5;

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then begin

-        j:=STime+10-CTime;

-        f:=j*10.0;

-        gltranslatef(+f*2,+f/2,0);

-      end;

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        gltranslatef(0,-223,0);

-        glrotatef(integer(j)*-9,0,0,1);

-        gltranslatef(0,223,0);

-        glrotatef(j*9,0,0,1);

-      end;

-      glBindTexture(GL_TEXTURE_2D, credits_skillmaster.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163,   -129);

-        glTexCoord2f(0,1);glVertex2f(-163,   129);

-        glTexCoord2f(1,1); glVertex2f(163, 129);

-        glTexCoord2f(1,0);glVertex2f(163, -129);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-// WhiteShark (von links unten reinklappen, nach rechts oben rausklappen)

-    STime:=Timings[17]-10;

-    Delay:=Timings[18]-Timings[17];

-    if CTime > STime then

-    begin

-      k:=0;

-      ESC_Alpha:=20;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);

-      if ESC_Alpha >20 then ESC_Alpha:=20;

-      if ((CTime-STime)<20) then ESC_Alpha:=20;

-      if CTime <=STime+10 then j:=CTime-STime else j:=10;

-      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;

-      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);

-

-      if (CTime >= STime+10) and (CTime<=STime+12) then begin

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);

-        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);

-      end;

-

-      glPushMatrix;

-      gltranslatef(223,329,0);

-      if CTime <= STime+10 then

-        f:=326.0-32.6*(CTime-STime)

-      else

-        f:=0;

-

-      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin

-        j:=CTime-(STime+Delay-10);

-        g:=32.6*j;

-      end else

-        g:=0;

-      glBindTexture(GL_TEXTURE_2D, credits_whiteshark.TexNum);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-      glEnable(GL_TEXTURE_2D);

-      glbegin(gl_quads);

-        glTexCoord2f(0,0);glVertex2f(-163-f+g,   -129+f/4-g/2);

-        glTexCoord2f(0,1);glVertex2f(-163-f/4+g,   129+g/2+f/4);

-        glTexCoord2f(1,1); glVertex2f(163-f*1.2+g/4, 129+f/2-g/4);

-        glTexCoord2f(1,0);glVertex2f(163-f*1.5+g/4, -129+f*1.5+g/4);

-      glEnd;

-      gldisable(gl_texture_2d);

-      gldisable(GL_BLEND);

-      glPopMatrix;

-    end;

-

-

-// ####################################################################

-// do some twinkle stuff (kinda on beat)

-    if (CTime>Timings[8]) and (CTime < Timings[19]) then begin

-      k:=0;

-      for j:=0 to 40 do

-        if Data[j]>=Data[k] then k:=j;

-      if Data[k]>0.2 then begin

-         l:=RandomRange(6,16);

-         j:=RandomRange(0,27);

-         GoldenRec.Spawn(myLogoCoords[j,0], myLogoCoords[j,1], 16-l, l, 0, -1, PerfectNote, 0);

-      end;

-    end;

-

-//#################################################

-// draw the rest of the main screen (girl and logo

-        glEnable(GL_TEXTURE_2D);

-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-        glEnable(GL_BLEND);

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

-        glBindTexture(GL_TEXTURE_2D, credits_bg_ovl.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(800-393,   0);

-          glTexCoord2f(0,600/1024);glVertex2f(800-393,   600);

-          glTexCoord2f(393/512,600/1024); glVertex2f(800, 600);

-          glTexCoord2f(393/512,0);glVertex2f(800, 0);

-        glEnd;

-{        glBindTexture(GL_TEXTURE_2D, credits_bg_logo.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(0,   0);

-          glTexCoord2f(0,112/128);glVertex2f(0,   112);

-          glTexCoord2f(497/512,112/128); glVertex2f(497, 112);

-          glTexCoord2f(497/512,0);glVertex2f(497, 0);

-        glEnd;

-}

-        gldisable(gl_texture_2d);

-        glDisable(GL_BLEND);

-

-        // fade out at end of main part

-        if Ctime > Timings[19] then

-        begin

-          glColor4f(0,0,0,(Ctime-Timings[19])/(Timings[20]-Timings[19]));

-          glEnable(GL_BLEND);

-          glBegin(GL_QUADS);

-            glVertex2f(0,0);

-            glVertex2f(0,600);

-            glVertex2f(800,600);

-            glVertex2f(800,0);

-          glEnd;

-          glDisable(GL_BLEND);

-        end;

-      end

-    else

-    if (CRDTS_Stage=Outro) then

-    begin

-      if CTime=Timings[20] then begin

-        CTime_hold:=0;

-        Music.Stop;

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

-        Music.Play;

-        Music.SetVolume(20);

-        Music.SetLoop(True);

-      end;

-      if CTime_hold > 231 then begin

-        Music.Play;

-        Ctime_hold:=0;

-      end;

-      glClearColor(0,0,0,0);

-      glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

-

-      // do something useful

-        // outro background

-        glEnable(GL_TEXTURE_2D);

-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-        glEnable(GL_BLEND);

-

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

-        glBindTexture(GL_TEXTURE_2D, outro_bg.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(0,   0);

-          glTexCoord2f(0,600/1024);glVertex2f(0,   600);

-          glTexCoord2f(800/1024,600/1024); glVertex2f(800, 600);

-          glTexCoord2f(800/1024,0);glVertex2f(800, 0);

-        glEnd;

-

-        //outro overlays

-        glColor4f(1, 1, 1, (1+sin(CTime/15))/3+1/3);

-        glBindTexture(GL_TEXTURE_2D, outro_esc.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(0,   0);

-          glTexCoord2f(0,223/256);glVertex2f(0,   223);

-          glTexCoord2f(487/512,223/256); glVertex2f(487, 223);

-          glTexCoord2f(487/512,0);glVertex2f(487, 0);

-        glEnd;

-

-        ESC_Alpha:=20;

-        if (RandomRange(0,20) > 18) and (ESC_Alpha=20) then

-          ESC_Alpha:=0

-        else inc(ESC_Alpha);

-        if ESC_Alpha > 20 then ESC_Alpha:=20;

-        glColor4f(1, 1, 1, ESC_Alpha/20);

-        glBindTexture(GL_TEXTURE_2D, outro_exd.TexNum);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(800-310,   600-247);

-          glTexCoord2f(0,247/256);glVertex2f(800-310,   600);

-          glTexCoord2f(310/512,247/256); glVertex2f(800, 600);

-          glTexCoord2f(310/512,0);glVertex2f(800, 600-247);

-        glEnd;

-        glDisable(GL_TEXTURE_2D);

-        glDisable(GL_BLEND);

-

-        // outro scrollers?

-        // ...

-    end;

-

-{  // draw credits runtime counter

-   SetFontStyle (2);

-    SetFontItalic(False);

-    SetFontSize(9);

-    SetFontPos (5, 5);

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

-//    RuntimeStr:='CTime: '+inttostr(floor(CTime/30.320663991914489602156136106092))+'.'+inttostr(floor(CTime/3.0320663991914489602156136106092)-floor(CTime/30.320663991914489602156136106092)*10);

-    RuntimeStr:='CTime: '+inttostr(CTime);

-    glPrint (Addr(RuntimeStr[1]));

-}

-

-

-        glEnable(GL_TEXTURE_2D);

-        glEnable(GL_BLEND);

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

-        glBindTexture(GL_TEXTURE_2D, myTex);

-        glbegin(gl_quads);

-          glTexCoord2f(0,0);glVertex2f(100,   100);

-          glTexCoord2f(0,1);glVertex2f(100,   200);

-          glTexCoord2f(1,1); glVertex2f(200, 200);

-          glTexCoord2f(1,0);glVertex2f(200, 100);

-        glEnd;

-        glDisable(GL_TEXTURE_2D);

-        glDisable(GL_BLEND);

-

-

-  // make the stars shine

-  GoldenRec.Draw;

-end;

-

-end.

+unit UScreenCredits;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+{$I switches.inc}
+
+
+uses
+    UMenu,
+    SDL,
+    SDL_Image,
+    UDisplay,
+    UTexture,
+    OpenGL12,
+    UMusic,
+    UFiles,
+    SysUtils,
+    UThemes,
+    ULCD,
+    ULight,
+    UGraphicClasses;
+
+type
+  TCreditsStages=(InitialDelay,Intro,MainPart,Outro);
+
+  TScreenCredits = class(TMenu)
+    public
+
+      Credits_X: Real;
+      Credits_Time: Cardinal;
+      Credits_Alpha: Cardinal;
+      CTime: Cardinal;
+      CTime_hold: Cardinal;
+      ESC_Alpha: Integer;
+
+      credits_entry_tex: TTexture;
+      credits_entry_dx_tex: TTexture;
+      credits_bg_tex: TTexture;
+      credits_bg_ovl: TTexture;
+//      credits_bg_logo: TTexture;
+      credits_bg_scrollbox_left: TTexture;
+      credits_blindguard: TTexture;
+      credits_blindy: TTexture;
+      credits_canni: TTexture;
+      credits_commandio: TTexture;
+      credits_lazyjoker: TTexture;
+      credits_mog: TTexture;
+      credits_mota: TTexture;
+      credits_skillmaster: TTexture;
+      credits_whiteshark: TTexture;
+      intro_layer01: TTexture;
+      intro_layer02: TTexture;
+      intro_layer03: TTexture;
+      intro_layer04: TTexture;
+      intro_layer05: TTexture;
+      intro_layer06: TTexture;
+      intro_layer07: TTexture;
+      intro_layer08: TTexture;
+      intro_layer09: TTexture;
+      outro_bg:      TTexture;
+      outro_esc:     TTexture;
+      outro_exd:     TTexture;
+
+      deluxe_slidein: cardinal;
+
+      CurrentScrollText: String;
+      NextScrollUpdate:  Real;
+      EndofLastScrollingPart: Cardinal;
+      CurrentScrollStart, CurrentScrollEnd: Integer;
+
+      CRDTS_Stage: TCreditsStages;
+
+  myTex: glUint;
+  mysdlimage,myconvertedsdlimage: PSDL_Surface;
+
+      Fadeout:      boolean;
+      constructor Create; override;
+      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+      function Draw: boolean; override;
+      procedure onShow; override;
+      procedure onHide; override;
+      procedure DrawCredits;
+      procedure Draw_FunkyText;
+   end;
+
+const
+  Funky_Text: AnsiString =
+    'Grandma Deluxe has arrived! Thanks to Corvus5 for the massive work on UltraStar, Wome for the nice tune you´re hearing, '+
+    'all the people who put massive effort and work in new songs (don´t forget UltraStar w/o songs would be nothing), ppl from '+
+    'irc helping us - eBandit and Gabari, scene ppl who really helped instead of compiling and running away. Greetings to DennisTheMenace for betatesting, '+
+    'Demoscene.tv, pouet.net, KakiArts, Sourceforge,..';
+
+
+  Timings: array[0..21] of Cardinal=(
+     20,   //  0 Delay vor Start
+
+    149,   //  1 Ende erster Intro Zoom
+    155,   //  2 Start 2. Action im Intro
+    170,   //  3 Ende Separation im Intro
+    271,   //  4 Anfang Zoomout im Intro
+      0,   //  5 unused
+    261,   //  6 Start fade-to-white im Intro
+
+    271,   //  7 Start Main Part
+    280,   //  8 Start On-Beat-Sternchen Main Part
+
+    396,   //  9 Start BlindGuard
+    666,   // 10 Start blindy
+    936,   // 11 Start Canni
+   1206,   // 12 Start Commandio
+   1476,   // 13 Start LazyJoker
+   1746,   // 14 Start Mog
+   2016,   // 15 Start Mota
+   2286,   // 16 Start SkillMaster
+   2556,   // 17 Start WhiteShark
+   2826,   // 18 Ende Whiteshark
+   3096,   // 19 Start FadeOut Mainscreen
+   3366,   // 20 Ende Credits Tune
+     60);  // 21 start flare im intro
+
+
+  sdl32bpprgba: TSDL_Pixelformat=(palette:       nil;
+                                  BitsPerPixel:  32;
+                                  BytesPerPixel: 4;
+                                  Rloss:         0;
+                                  Gloss:         0;
+                                  Bloss:         0;
+                                  Aloss:         0;
+                                  Rshift:        0;
+                                  Gshift:        8;
+                                  Bshift:       16;
+                                  Ashift:       24;
+                                  Rmask: $000000ff;
+                                  Gmask: $0000ff00;
+                                  Bmask: $00ff0000;
+                                  Amask: $ff000000;
+                                  colorkey:      0;
+                                  alpha:       255 );
+
+
+implementation
+
+uses {$IFDEF win32}
+     windows,
+     {$ELSE}
+     lclintf,
+     {$ENDIF}
+     ULog,
+     UGraphic,
+     UMain,
+     UIni,
+     USongs,
+     Textgl,
+     ULanguage,
+     UCommon,
+     Math,
+     dialogs;
+
+
+function TScreenCredits.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
+begin
+  Result := true;
+  If (PressedDown) Then
+  begin // Key Down
+    case PressedKey of
+
+      SDLK_ESCAPE,
+      SDLK_BACKSPACE :
+        begin
+          FadeTo(@ScreenMain);
+          Music.PlayBack;
+        end;
+{       SDLK_SPACE:
+         begin
+           setlength(CTime_hold,length(CTime_hold)+1);
+           CTime_hold[high(CTime_hold)]:=CTime;
+         end;
+}
+     end;//esac
+    end; //fi
+end;
+
+constructor TScreenCredits.Create;
+begin
+  inherited Create;
+
+  credits_bg_tex            := Texture.LoadTexture(true, 'CRDTS_BG', 'PNG', 'Plain', 0);
+  credits_bg_ovl          := Texture.LoadTexture(true, 'CRDTS_OVL', 'PNG', 'Transparent', 0);
+
+  credits_blindguard  := Texture.LoadTexture(true, 'CRDTS_blindguard', 'PNG', 'Font Black', 0);
+  credits_blindy      := Texture.LoadTexture(true, 'CRDTS_blindy', 'PNG', 'Font Black', 0);
+  credits_canni       := Texture.LoadTexture(true, 'CRDTS_canni', 'PNG', 'Font Black', 0);
+  credits_commandio   := Texture.LoadTexture(true, 'CRDTS_commandio', 'PNG', 'Font Black', 0);
+  credits_lazyjoker   := Texture.LoadTexture(true, 'CRDTS_lazyjoker', 'PNG', 'Font Black', 0);
+  credits_mog         := Texture.LoadTexture(true, 'CRDTS_mog', 'PNG', 'Font Black', 0);
+  credits_mota        := Texture.LoadTexture(true, 'CRDTS_mota', 'PNG', 'Font Black', 0);
+  credits_skillmaster := Texture.LoadTexture(true, 'CRDTS_skillmaster', 'PNG', 'Font Black', 0);
+  credits_whiteshark  := Texture.LoadTexture(true, 'CRDTS_whiteshark', 'PNG', 'Font Black', 0);
+
+  intro_layer01 := Texture.LoadTexture(true, 'INTRO_L01', 'PNG', 'Transparent', 0);
+  intro_layer02 := Texture.LoadTexture(true, 'INTRO_L02', 'PNG', 'Transparent', 0);
+  intro_layer03 := Texture.LoadTexture(true, 'INTRO_L03', 'PNG', 'Transparent', 0);
+  intro_layer04 := Texture.LoadTexture(true, 'INTRO_L04', 'PNG', 'Transparent', 0);
+  intro_layer05 := Texture.LoadTexture(true, 'INTRO_L05', 'PNG', 'Transparent', 0);
+  intro_layer06 := Texture.LoadTexture(true, 'INTRO_L06', 'PNG', 'Transparent', 0);
+  intro_layer07 := Texture.LoadTexture(true, 'INTRO_L07', 'PNG', 'Transparent', 0);
+  intro_layer08 := Texture.LoadTexture(true, 'INTRO_L08', 'PNG', 'Transparent', 0);
+  intro_layer09 := Texture.LoadTexture(true, 'INTRO_L09', 'PNG', 'Transparent', 0);
+
+  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', 'Transparent', 0);
+
+  CRDTS_Stage:=InitialDelay;
+end;
+
+function TScreenCredits.Draw: boolean;
+begin
+  DrawCredits;
+  Draw:=true;
+end;
+
+function pixfmt_eq(fmt1,fmt2: TSDL_Pixelformat): boolean;
+begin
+  if (fmt1.BitsPerPixel = fmt2.BitsPerPixel) and
+     (fmt1.BytesPerPixel = fmt2.BytesPerPixel) and
+     (fmt1.Rloss = fmt2.Rloss) and
+     (fmt1.Gloss = fmt2.Gloss) and
+     (fmt1.Bloss = fmt2.Bloss) and
+     (fmt1.Rmask = fmt2.Rmask) and
+     (fmt1.Gmask = fmt2.Gmask) and
+     (fmt1.Bmask = fmt2.Bmask) and
+     (fmt1.Rshift = fmt2.Rshift) and
+     (fmt1.Gshift = fmt2.Gshift) and
+     (fmt1.Bshift = fmt2.Bshift)
+   then
+    pixfmt_eq:=True
+  else
+    pixfmt_eq:=False;
+end;
+
+function inttohexstr(i: cardinal):pchar;
+var helper, i2, c:cardinal;
+    tmpstr: string;
+begin
+  helper:=0;
+  i2:=i;
+  tmpstr:='';
+  for c:=1 to 8 do
+  begin
+    helper:=(helper shl 4) or (i2 and $f);
+    i2:=i2 shr 4;
+  end;
+  for c:=1 to 8 do
+  begin
+    i2:=helper and $f;
+    helper := helper shr 4;
+    case i2 of
+      0: tmpstr:=tmpstr+'0';
+      1: tmpstr:=tmpstr+'1';
+      2: tmpstr:=tmpstr+'2';
+      3: tmpstr:=tmpstr+'3';
+      4: tmpstr:=tmpstr+'4';
+      5: tmpstr:=tmpstr+'5';
+      6: tmpstr:=tmpstr+'6';
+      7: tmpstr:=tmpstr+'7';
+      8: tmpstr:=tmpstr+'8';
+      9: tmpstr:=tmpstr+'9';
+     10: tmpstr:=tmpstr+'a';
+     11: tmpstr:=tmpstr+'b';
+     12: tmpstr:=tmpstr+'c';
+     13: tmpstr:=tmpstr+'d';
+     14: tmpstr:=tmpstr+'e';
+     15: tmpstr:=tmpstr+'f';
+    end;
+  end;
+  inttohexstr:=pchar(tmpstr);
+end;
+
+procedure TScreenCredits.onShow;
+begin
+  CRDTS_Stage:=InitialDelay;
+  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);
+
+  mysdlimage:=IMG_Load('test.png');
+  if assigned(mysdlimage) then
+  begin
+    {$IFNDEF FPC}
+    showmessage('opened image via SDL_Image'+#13#10+
+                'Width:   '+inttostr(mysdlimage^.w)+#13#10+
+                'Height:  '+inttostr(mysdlimage^.h)+#13#10+
+                'BitsPP:  '+inttostr(mysdlimage^.format.BitsPerPixel)+#13#10+
+                'BytesPP: '+inttostr(mysdlimage^.format.BytesPerPixel)+#13#10+
+                'Rloss:  '+inttostr(mysdlimage^.format.Rloss)+#13#10+
+                'Gloss:  '+inttostr(mysdlimage^.format.Gloss)+#13#10+
+                'Bloss:  '+inttostr(mysdlimage^.format.Bloss)+#13#10+
+                'Aloss:  '+inttostr(mysdlimage^.format.Aloss)+#13#10+
+                'Rshift: '+inttostr(mysdlimage^.format.Rshift)+#13#10+
+                'Gshift: '+inttostr(mysdlimage^.format.Gshift)+#13#10+
+                'Bshift: '+inttostr(mysdlimage^.format.Bshift)+#13#10+
+                'Ashift: '+inttostr(mysdlimage^.format.Ashift)+#13#10+
+                'Rmask:  '+inttohexstr(mysdlimage^.format.Rmask)+#13#10+
+                'Gmask:  '+inttohexstr(mysdlimage^.format.Gmask)+#13#10+
+                'Bmask:  '+inttohexstr(mysdlimage^.format.Bmask)+#13#10+
+                'Amask:  '+inttohexstr(mysdlimage^.format.Amask)+#13#10+
+                'ColKey: '+inttostr(mysdlimage^.format.Colorkey)+#13#10+
+                'Alpha:  '+inttostr(mysdlimage^.format.Alpha));
+
+    if pixfmt_eq(mysdlimage^.format^,sdl32bpprgba) then
+      showmessage('equal pixelformats')
+    else
+      showmessage('different pixelformats');
+    {$ENDIF}
+
+    myconvertedsdlimage:=SDL_ConvertSurface(mysdlimage,@sdl32bpprgba,SDL_SWSURFACE);
+    glGenTextures(1,@myTex);
+    glBindTexture(GL_TEXTURE_2D, myTex);
+    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
+    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
+    glTexImage2D( GL_TEXTURE_2D, 0, 4, myconvertedsdlimage^.w, myconvertedsdlimage^.h, 0,
+                      GL_RGBA, GL_UNSIGNED_BYTE, myconvertedsdlimage^.pixels );
+    SDL_FreeSurface(mysdlimage);
+    SDL_FreeSurface(myconvertedsdlimage);
+  end
+  else
+    {$IFDEF FPC}
+    writeln( 'could not open file - test.png');
+    {$ELSE}
+    showmessage('could not open file - test.png');
+    {$ENDIF}
+
+end;
+
+procedure TScreenCredits.onHide;
+begin
+  Music.Stop;
+end;
+
+Procedure TScreenCredits.Draw_FunkyText;
+var
+  S: Integer;
+  X,Y,A: Real;
+  visibleText: PChar;
+begin
+  SetFontSize(10);
+  //Init ScrollingText
+  if (CTime = Timings[7]) then
+  begin
+    //Set Position of Text
+    Credits_X := 600;
+    CurrentScrollStart:=1;
+    CurrentScrollEnd:=1;
+  end;
+
+  if (CTime > Timings[7]) and (CurrentScrollStart < length(Funky_Text)) then
+  begin
+    X:=0;
+    visibleText:=pchar(Copy(Funky_Text, CurrentScrollStart, CurrentScrollEnd));
+    for S := 0 to length(visibleText)-1 do begin
+      Y:=abs(sin((Credits_X+X)*0.93{*(((Credits_X+X))/1200)}/100*pi));
+      SetFontPos(Credits_X+X,538-Y*(Credits_X+X)*(Credits_X+X)*(Credits_X+X)/1000000);
+      A:=0;
+      if (Credits_X+X < 15) then A:=0;
+      if (Credits_X+X >=15) then A:=Credits_X+X-15;
+      if Credits_X+X > 32 then A:=17;
+      glColor4f( 230/255-40/255+Y*(Credits_X+X)/900, 200/255-30/255+Y*(Credits_X+X)/1000, 155/255-20/255+Y*(Credits_X+X)/1100, A/17);
+      glPrintLetter(visibleText[S]);
+      X := X + Fonts[ActFont].Width[Ord(visibleText[S])] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;
+    end;
+    if (Credits_X<0) and (CurrentScrollStart < length(Funky_Text)) then begin
+      Credits_X:=Credits_X + Fonts[ActFont].Width[Ord(Funky_Text[CurrentScrollStart])] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;
+      inc(CurrentScrollStart);
+    end;
+    visibleText:=pchar(Copy(Funky_Text, CurrentScrollStart, CurrentScrollEnd));
+    if (Credits_X+glTextWidth(visibleText) < 600) and (CurrentScrollEnd < length(Funky_Text)) then begin
+      inc(CurrentScrollEnd);
+    end;
+  end;
+{  // timing hack
+    X:=5;
+    SetFontStyle (2);
+     SetFontItalic(False);
+     SetFontSize(9);
+     glColor4f(1, 1, 1, 1);
+     for S:=0 to high(CTime_hold) do begin
+     visibleText:=pchar(inttostr(CTime_hold[S]));
+     SetFontPos (500, X);
+     glPrint (Addr(visibleText[0]));
+     X:=X+20;
+     end;}
+end;
+
+procedure Start3D;
+begin
+      glMatrixMode(GL_PROJECTION);
+      glPushMatrix;
+      glLoadIdentity;
+      glFrustum(-0.3*4/3,0.3*4/3,-0.3,0.3,1,1000);
+      glMatrixMode(GL_MODELVIEW);
+      glLoadIdentity;
+end;
+procedure End3D;
+begin
+      glMatrixMode(GL_PROJECTION);
+      glPopMatrix;
+      glMatrixMode(GL_MODELVIEW);
+end;
+
+procedure TScreenCredits.DrawCredits;
+var
+  T,I: Cardinal;
+  X: Real;
+  Ver: PChar;
+  RuntimeStr: AnsiString;
+  Data: TFFTData;
+  j,k,l:cardinal;
+  f,g,h: Real;
+  STime:cardinal;
+  Delay:cardinal;
+
+  myPixel: longword;
+  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),
+                                       (232,54),(278,62),(319,34),(336,92),
+                                       (347,23),(374,32),(377,58),(361,83),
+                                       (385,91),(405,91),(429,35),(423,51),
+                                       (450,32),(485,34),(444,91),(486,93));
+
+begin
+  //dis does teh muiwk y0r
+  Data := Music.GetFFTData;
+
+  Log.LogStatus('',' JB-1');
+
+  T := GetTickCount div 33;
+  if T <> Credits_Time then
+  begin
+    Credits_Time := T;
+    inc(CTime);
+    inc(CTime_hold);
+    Credits_X := Credits_X-2;
+    
+    Log.LogStatus('',' JB-2');
+    if (CRDTS_Stage=InitialDelay) and (CTime=Timings[0]) then
+    begin
+//      CTime:=Timings[20];
+//      CRDTS_Stage:=Outro;
+
+      CRDTS_Stage:=Intro;
+      CTime:=0;
+      Music.Play;
+
+    end;
+    if (CRDTS_Stage=Intro) and (CTime=Timings[7]) then
+    begin
+      CRDTS_Stage:=MainPart;
+    end;
+    if (CRDTS_Stage=MainPart) and (CTime=Timings[20]) then
+    begin
+      CRDTS_Stage:=Outro;
+    end;
+  end;
+  
+  Log.LogStatus('',' JB-3');
+
+  //draw background
+  if CRDTS_Stage=InitialDelay then
+      begin
+        glClearColor(0,0,0,0);
+        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+      end
+  else
+  if CRDTS_Stage=Intro then
+      begin
+        Start3D;
+        glPushMatrix;
+
+        glClearColor(0,0,0,0);
+        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+
+        glEnable(GL_TEXTURE_2D);
+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+        glEnable(GL_BLEND);
+
+        if CTime < Timings[1] then begin
+          myScale:= 0.5+0.5*(Timings[1]-CTime)/(Timings[1]); // slowly move layers together
+          myAngle:=cos((CTime)*pi/((Timings[1])*2)); // and make logo face towards camera
+        end else begin // this is the part when the logo stands still
+          myScale:=0.5;
+          myAngle:=0;
+        end;
+        if CTime > Timings[2] then begin
+          myScale:= 0.5+0.5*(CTime-Timings[2])/(Timings[3]-Timings[2]); // get some space between layers
+          myAngle:=0;
+        end;
+//        if CTime > Timings[3] then myScale:=1; // keep the space between layers
+        glTranslatef(0,0,-5+0.5*myScale);
+        if CTime > Timings[3] then myScale:=1; // keep the space between layers
+        if CTime > Timings[3] then begin // make logo rotate left and grow
+//          myScale:=(CTime-Timings[4])/(Timings[7]-Timings[4]);
+          glRotatef(20*sqr(CTime-Timings[3])/sqr((Timings[7]-Timings[3])/2),0,0,1);
+          glScalef(1+sqr(CTime-Timings[3])/(32*(Timings[7]-Timings[3])),1+sqr(CTime-Timings[3])/(32*(Timings[7]-Timings[3])),1);
+        end;
+        if CTime < Timings[2] then
+          glRotatef(30*myAngle,0.5*myScale+myScale,1+myScale,0);
+//        glScalef(0.5,0.5,0.5);
+        glScalef(4/3,-1,1);
+        glColor4f(1, 1, 1, 1);
+
+        glBindTexture(GL_TEXTURE_2D, intro_layer01.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.4 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.4 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, -0.4 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, -0.4 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer02.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.3 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.3 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, -0.3 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, -0.3 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer03.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.2 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.2 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, -0.2 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, -0.2 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer04.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, -0.1 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, -0.1 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, -0.1 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, -0.1 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer05.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, 0 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, 0 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, 0 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer06.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.1 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.1 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, 0.1 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, 0.1 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer07.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.2 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.2 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, 0.2 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, 0.2 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer08.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.3 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.3 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, 0.3 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, 0.3 * myScale);
+        glEnd;
+        glBindTexture(GL_TEXTURE_2D, intro_layer09.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex3f(-1,   -1, 0.22 * myScale);
+          glTexCoord2f(0,1);glVertex3f(-1,   1, 0.22 * myScale);
+          glTexCoord2f(1,1); glVertex3f(1, 1, 0.22 * myScale);
+          glTexCoord2f(1,0);glVertex3f(1, -1, 0.22 * myScale);
+        glEnd;
+        gldisable(gl_texture_2d);
+        glDisable(GL_BLEND);
+
+        glPopMatrix;
+        End3D;
+
+        // do some sparkling effects
+        if (CTime < Timings[1]) and (CTime > Timings[21]) then
+        begin
+          for k:=1 to 3 do begin
+             l:=410+floor((CTime-Timings[21])/(Timings[1]-Timings[21])*(536-410))+RandomRange(-5,5);
+             j:=floor((Timings[1]-CTime)/22)+RandomRange(285,301);
+             GoldenRec.Spawn(l, j, 1, 16, 0, -1, Flare, 0);
+          end;
+        end;
+
+        // fade to white at end
+        if Ctime > Timings[6] then
+        begin
+          glColor4f(1,1,1,sqr(Ctime-Timings[6])*(Ctime-Timings[6])/sqr(Timings[7]-Timings[6]));
+          glEnable(GL_BLEND);
+          glBegin(GL_QUADS);
+            glVertex2f(0,0);
+            glVertex2f(0,600);
+            glVertex2f(800,600);
+            glVertex2f(800,0);
+          glEnd;
+          glDisable(GL_BLEND);
+        end;
+
+      end;
+    if (CRDTS_Stage=MainPart) then
+      // main credits screen background, scroller, logo and girl
+      begin
+
+        glEnable(GL_TEXTURE_2D);
+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+        glEnable(GL_BLEND);
+
+        glColor4f(1, 1, 1, 1);
+        glBindTexture(GL_TEXTURE_2D, credits_bg_tex.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(0,   0);
+          glTexCoord2f(0,600/1024);glVertex2f(0,   600);
+          glTexCoord2f(800/1024,600/1024); glVertex2f(800, 600);
+          glTexCoord2f(800/1024,0);glVertex2f(800, 0);
+        glEnd;
+        glDisable(GL_TEXTURE_2D);
+        glDisable(GL_BLEND);
+
+        // draw scroller
+        Draw_FunkyText;
+
+//#########################################################################
+// draw credits names
+
+
+Log.LogStatus('',' JB-4');
+
+// BlindGuard (von links oben reindrehen, nach rechts unten rausdrehen)
+    STime:=Timings[9]-10;
+    Delay:=Timings[10]-Timings[9];
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(0,329,0);
+      if CTime <= STime+10 then begin glrotatef((CTime-STime)*9+270,0,0,1);end;
+      gltranslatef(223,0,0);
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        gltranslatef(223,0,0);
+        glrotatef((integer(CTime)-(integer(STime+Delay)-10))*-9,0,0,1);
+        gltranslatef(-223,0,0);
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_blindguard.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Blindy  (zoom von 0 auf volle grösse und drehung, zoom auf doppelte grösse und nach rechts oben schieben)
+    STime:=Timings[10]-10;
+    Delay:=Timings[11]-Timings[10]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+20) and (CTime<=STime+22) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+20 then begin
+        j:=CTime-Stime;
+        glscalef(j*j/400,j*j/400,j*j/400);
+        glrotatef(j*18.0,0,0,1);
+      end;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        f:=j*10.0;
+        gltranslatef(f*3,-f,0);
+        glscalef(1+j/10,1+j/10,1+j/10);
+        glrotatef(j*9.0,0,0,1);
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_blindy.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Canni  (von links reinschieben, nach rechts oben rausschieben)
+    STime:=Timings[11]-10;
+    Delay:=Timings[12]-Timings[11]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then begin
+        gltranslatef(((CTime-STime)*21.0)-210,0,0);
+      end;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=(CTime-(STime+Delay-10))*21;
+        gltranslatef(j,-j/2,0);
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_canni.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Commandio  (von unten reinklappen, nach rechts oben rausklappen)
+    STime:=Timings[12]-10;
+    Delay:=Timings[13]-Timings[12];
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then
+        f:=258.0-25.8*(CTime-STime)
+      else
+        f:=0;
+      g:=0;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        g:=32.6*j;
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_commandio.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163+g-f*1.5,   -129+f*1.5-g/2);
+        glTexCoord2f(0,1);glVertex2f(-163+g*1.5,   129-(g*1.5*258/326));
+        glTexCoord2f(1,1); glVertex2f(163+g, 129+g/4);
+        glTexCoord2f(1,0);glVertex2f(163+f*1.5+g/4, -129+f*1.5-g/4);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// lazy joker  (just scrolls from left to right, no twinkling stars, no on-beat flashing)
+    STime:=Timings[13]-35;
+    Delay:=Timings[14]-Timings[13]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)>10) and ((CTime-STime)<20) then ESC_Alpha:=20;
+      ESC_Alpha:=10;
+      f:=CTime-STime;
+      if CTime <=STime+40 then j:=CTime-STime else j:=40;
+      if (CTime >=STime+Delay-40) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j*j/1600);
+
+      glPushMatrix;
+      gltranslatef(180+(f-70),329,0);
+      glBindTexture(GL_TEXTURE_2D, credits_lazyjoker.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Mog (von links reinklappen, nach rechts unten rausklappen)
+    STime:=Timings[14]-10;
+    Delay:=Timings[15]-Timings[14]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then
+        f:=326.0-32.6*(CTime-STime)
+      else
+        f:=0;
+
+      g:=0;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        g:=32.6*j;
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_mog.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163+g*1.5,   -129+g*1.5);
+        glTexCoord2f(0,1);glVertex2f(-163+g*1.2,   129+g);
+        glTexCoord2f(1,1); glVertex2f(163-f+g/2, 129+f*1.5+g/4);
+        glTexCoord2f(1,0);glVertex2f(163-f+g*1.5, -129-f*1.5);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Mota (von rechts oben reindrehen, nach links unten rausschieben und verkleinern und dabei drehen)
+    STime:=Timings[15]-10;
+    Delay:=Timings[16]-Timings[15]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then begin
+        gltranslatef(223,0,0);
+        glrotatef((10-(CTime-STime))*9,0,0,1);
+        gltranslatef(-223,0,0);
+      end;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        f:=j*10.0;
+        gltranslatef(-f*2,-f,0);
+        glscalef(1-j/10,1-j/10,1-j/10);
+        glrotatef(-j*9.0,0,0,1);
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_mota.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// Skillmaster (von rechts unten reinschieben, nach rechts oben rausdrehen)
+    STime:=Timings[16]-10;
+    Delay:=Timings[17]-Timings[16]+5;
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then begin
+        j:=STime+10-CTime;
+        f:=j*10.0;
+        gltranslatef(+f*2,+f/2,0);
+      end;
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        gltranslatef(0,-223,0);
+        glrotatef(integer(j)*-9,0,0,1);
+        gltranslatef(0,223,0);
+        glrotatef(j*9,0,0,1);
+      end;
+      glBindTexture(GL_TEXTURE_2D, credits_skillmaster.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163,   -129);
+        glTexCoord2f(0,1);glVertex2f(-163,   129);
+        glTexCoord2f(1,1); glVertex2f(163, 129);
+        glTexCoord2f(1,0);glVertex2f(163, -129);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+// WhiteShark (von links unten reinklappen, nach rechts oben rausklappen)
+    STime:=Timings[17]-10;
+    Delay:=Timings[18]-Timings[17];
+    if CTime > STime then
+    begin
+      k:=0;
+      ESC_Alpha:=20;
+
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+
+      if Data[k]>0.25 then ESC_Alpha:=5 else inc(ESC_Alpha);
+      if ESC_Alpha >20 then ESC_Alpha:=20;
+      if ((CTime-STime)<20) then ESC_Alpha:=20;
+      if CTime <=STime+10 then j:=CTime-STime else j:=10;
+      if (CTime >=STime+Delay-10) then if (CTime <=STime+Delay) then j:=(STime+Delay)-CTime else j:=0;
+      glColor4f(1, 1, 1, ESC_Alpha/20*j/10);
+
+      if (CTime >= STime+10) and (CTime<=STime+12) then begin
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 0);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 1);
+        GoldenRec.Spawn(RandomRange(65,390), RandomRange(200,460), 1, 16, 0, -1, PerfectLineTwinkle, 5);
+      end;
+
+      glPushMatrix;
+      gltranslatef(223,329,0);
+      if CTime <= STime+10 then
+        f:=326.0-32.6*(CTime-STime)
+      else
+        f:=0;
+
+      if CTime >=STime+Delay-10 then if CTime <=STime+Delay then begin
+        j:=CTime-(STime+Delay-10);
+        g:=32.6*j;
+      end else
+        g:=0;
+      glBindTexture(GL_TEXTURE_2D, credits_whiteshark.TexNum);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+      glEnable(GL_TEXTURE_2D);
+      glbegin(gl_quads);
+        glTexCoord2f(0,0);glVertex2f(-163-f+g,   -129+f/4-g/2);
+        glTexCoord2f(0,1);glVertex2f(-163-f/4+g,   129+g/2+f/4);
+        glTexCoord2f(1,1); glVertex2f(163-f*1.2+g/4, 129+f/2-g/4);
+        glTexCoord2f(1,0);glVertex2f(163-f*1.5+g/4, -129+f*1.5+g/4);
+      glEnd;
+      gldisable(gl_texture_2d);
+      gldisable(GL_BLEND);
+      glPopMatrix;
+    end;
+
+
+   Log.LogStatus('',' JB-103');
+
+// ####################################################################
+// do some twinkle stuff (kinda on beat)
+    if (CTime > Timings[8]  ) and
+       (CTime < Timings[19] ) then
+    begin
+      k := 0;
+      
+      try
+      for j:=0 to 40 do
+      begin
+        if ( j < length( Data ) ) AND
+           ( k < length( Data ) ) then
+        begin
+          if Data[j] >= Data[k] then
+             k:=j;
+        end;
+      end;
+      except
+      end;
+
+      if Data[k]>0.2 then
+      begin
+         l := RandomRange(6,16);
+         j := RandomRange(0,27);
+         
+         GoldenRec.Spawn(myLogoCoords[j,0], myLogoCoords[j,1], 16-l, l, 0, -1, PerfectNote, 0);
+      end;
+    end;
+
+//#################################################
+// draw the rest of the main screen (girl and logo
+        glEnable(GL_TEXTURE_2D);
+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+        glEnable(GL_BLEND);
+        glColor4f(1, 1, 1, 1);
+        glBindTexture(GL_TEXTURE_2D, credits_bg_ovl.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(800-393,   0);
+          glTexCoord2f(0,600/1024);glVertex2f(800-393,   600);
+          glTexCoord2f(393/512,600/1024); glVertex2f(800, 600);
+          glTexCoord2f(393/512,0);glVertex2f(800, 0);
+        glEnd;
+{        glBindTexture(GL_TEXTURE_2D, credits_bg_logo.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(0,   0);
+          glTexCoord2f(0,112/128);glVertex2f(0,   112);
+          glTexCoord2f(497/512,112/128); glVertex2f(497, 112);
+          glTexCoord2f(497/512,0);glVertex2f(497, 0);
+        glEnd;
+}
+        gldisable(gl_texture_2d);
+        glDisable(GL_BLEND);
+
+        // fade out at end of main part
+        if Ctime > Timings[19] then
+        begin
+          glColor4f(0,0,0,(Ctime-Timings[19])/(Timings[20]-Timings[19]));
+          glEnable(GL_BLEND);
+          glBegin(GL_QUADS);
+            glVertex2f(0,0);
+            glVertex2f(0,600);
+            glVertex2f(800,600);
+            glVertex2f(800,0);
+          glEnd;
+          glDisable(GL_BLEND);
+        end;
+      end
+    else
+    if (CRDTS_Stage=Outro) then
+    begin
+      if CTime=Timings[20] then begin
+        CTime_hold:=0;
+        Music.Stop;
+        Music.Open(soundpath + 'credits-outro-tune.mp3');
+        Music.Play;
+        Music.SetVolume(20);
+        Music.SetLoop(True);
+      end;
+      if CTime_hold > 231 then begin
+        Music.Play;
+        Ctime_hold:=0;
+      end;
+      glClearColor(0,0,0,0);
+      glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+
+      // do something useful
+        // outro background
+        glEnable(GL_TEXTURE_2D);
+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+        glEnable(GL_BLEND);
+
+        glColor4f(1, 1, 1, 1);
+        glBindTexture(GL_TEXTURE_2D, outro_bg.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(0,   0);
+          glTexCoord2f(0,600/1024);glVertex2f(0,   600);
+          glTexCoord2f(800/1024,600/1024); glVertex2f(800, 600);
+          glTexCoord2f(800/1024,0);glVertex2f(800, 0);
+        glEnd;
+
+        //outro overlays
+        glColor4f(1, 1, 1, (1+sin(CTime/15))/3+1/3);
+        glBindTexture(GL_TEXTURE_2D, outro_esc.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(0,   0);
+          glTexCoord2f(0,223/256);glVertex2f(0,   223);
+          glTexCoord2f(487/512,223/256); glVertex2f(487, 223);
+          glTexCoord2f(487/512,0);glVertex2f(487, 0);
+        glEnd;
+
+        ESC_Alpha:=20;
+        if (RandomRange(0,20) > 18) and (ESC_Alpha=20) then
+          ESC_Alpha:=0
+        else inc(ESC_Alpha);
+        if ESC_Alpha > 20 then ESC_Alpha:=20;
+        glColor4f(1, 1, 1, ESC_Alpha/20);
+        glBindTexture(GL_TEXTURE_2D, outro_exd.TexNum);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(800-310,   600-247);
+          glTexCoord2f(0,247/256);glVertex2f(800-310,   600);
+          glTexCoord2f(310/512,247/256); glVertex2f(800, 600);
+          glTexCoord2f(310/512,0);glVertex2f(800, 600-247);
+        glEnd;
+        glDisable(GL_TEXTURE_2D);
+        glDisable(GL_BLEND);
+
+        // outro scrollers?
+        // ...
+    end;
+
+{  // draw credits runtime counter
+   SetFontStyle (2);
+    SetFontItalic(False);
+    SetFontSize(9);
+    SetFontPos (5, 5);
+    glColor4f(1, 1, 1, 1);
+//    RuntimeStr:='CTime: '+inttostr(floor(CTime/30.320663991914489602156136106092))+'.'+inttostr(floor(CTime/3.0320663991914489602156136106092)-floor(CTime/30.320663991914489602156136106092)*10);
+    RuntimeStr:='CTime: '+inttostr(CTime);
+    glPrint (Addr(RuntimeStr[1]));
+}
+
+
+        glEnable(GL_TEXTURE_2D);
+        glEnable(GL_BLEND);
+        glColor4f(1, 1, 1, 1);
+        glBindTexture(GL_TEXTURE_2D, myTex);
+        glbegin(gl_quads);
+          glTexCoord2f(0,0);glVertex2f(100,   100);
+          glTexCoord2f(0,1);glVertex2f(100,   200);
+          glTexCoord2f(1,1); glVertex2f(200, 200);
+          glTexCoord2f(1,0);glVertex2f(200, 100);
+        glEnd;
+        glDisable(GL_TEXTURE_2D);
+        glDisable(GL_BLEND);
+
+
+  // make the stars shine
+  GoldenRec.Draw;
+end;
+
+end.
diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas
index 6e9c5934..312fb67d 100644
--- a/Game/Code/lib/ffmpeg/avformat.pas
+++ b/Game/Code/lib/ffmpeg/avformat.pas
@@ -259,7 +259,7 @@ type
     oformat: PAVOutputFormat;
     priv_data: pointer;
     pb: TByteIOContext;
-    nb_streams: integer;
+    nb_streams: cardinal;//  integer;
     streams: array [0..MAX_STREAMS - 1] of PAVStream;
     filename: array [0..1023] of char; (* input or output filename *)
     (* stream info *)