beta version of new credits screen (still some tweaking to do)

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

1 files changed, 1008 insertions, 132 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index 98cdc417..43a9a3ca 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -3,15 +3,57 @@ unit UScreenCredits;
 interface

 

 uses

-  UMenu, SDL, UDisplay, UMusic, UFiles, SysUtils, UThemes, ULCD, ULight;

+  UMenu, SDL, UDisplay, UTexture, OpenGL12, UMusic, UFiles, SysUtils, UThemes, ULCD, ULight, UGraphicClasses;

 

 type

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

+

   TScreenCredits = class(TMenu)

     public

 

-      Credits_Y: Real;

+      Credits_X: Real;

       Credits_Time: Cardinal;

       Credits_Alpha: Cardinal;

+      CTime: Cardinal;

+      CTime_hold: array of 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;

 

       Fadeout:      boolean;

       constructor Create; override;

@@ -20,67 +62,60 @@ type
       procedure onShow; override;

       procedure onHide; override;

       procedure DrawCredits;

+      procedure Draw_FunkyText;

    end;

 

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

-  ':SPACE:',

-  'Main Idea: Corvus 5',

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

-  ':SPACE:',

-  'The Ultrastar Deluxe Team:',

-  ':SPACE:',

-  'blindy:',

-  'VFX Programming',

-  ':SPACE:',

-  'commandi00:',

-  'Beta Testing',

-  ':SPACE:',

-  'Crazy Joker:',

-  'Graphics',

-  ':SPACE:',

-  'DennistheMenace:',

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

-  ':SPACE:',

-  'Mog:',

-  'Programming, Graphics',

-  ':SPACE:',

-  'Mota:',

-  'Programming, Idea of creating this Mod',

-  ':SPACE:',

-  'Sawyer:',

-  'Web Master, Programming',

-  ':SPACE:',

-  'Whiteshark:',

-  'Programming, Creating Release',

-  ':SPACE:',

-  ':SPACE:',

-  'Thanks to',

-  ':SPACE:',

-  'Blind Guard',

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

-  ':SPACE:',

-  'Weezl',

-  'for the credits screen music',

-  ':SPACE:',

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

-  'for supporting us, supporting the newbies',

-  'and remembering us to continue work',

-  ':SPACE:',

-  'You',

-  'for using Ultrastar Deluxe',

-  ':SPACE:',

-  ':SPACE:',

-  'Visit us at:',

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

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

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

-  'Please write Bug Reports and Feature Requests',

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

+const

+  Funky_Text: AnsiString =

+{   'Hey doodz, we made it! You had to wait very long cause we wanted it to be perfect. So here it is, the most perfect UltraStar you`ll ever get. We have this awesome stars, we have this awesome party mode with plugins, we have the best skins and yes we´re '+

+   'the best :P Whiteshark tried his best to fix all the bugs, and he has done an awesome job! Mota and Mog fired up their Photoshops to create this stunning skins, Blindy has brought you this massive stars and Canni did the documentation. BlindGuard hosts '+

+   'the forum, and oh my gosh he spends a lot of time fucking with all the wankers asking for mp3s. We also want to thank the people in the forum for their massive support and their patience xD Blindy and Mog also want to thank www.demoscene.tv for '+

+   'inspiration (yay Kewlerz suck, but we suck more) - also big shout outs to Einsiedler for brewing our favourite beer and dnbradio.com for the music. Big greetings from Mog to Antje too, I love you baby :X';

+}

+   'So here we are, grandma deluxe has arrived. It´s Mog on the keyboard, but I speak for all of us teamers :P Took us '+

+   'longer than expected to come up with this, but hey you know good things take their time ;) As we tried to put in as '+

+   'many features as we have seen on the board (and our`s aswell), like the neat eyecandy (stars h00ray), the party mode, '+

+   'new awesome skins, fucking bugfixes (poor Whiteshark) and a hell lot of other stuff. I´m also proud to announce that '+

+   'we´re the only UltraStar with all this stuff, nice hu? ;) Maybe it´s about time to explain why it took so long, I just '+

+   'strip the part with lazy joker (has he done _anything_?) and all the other people who joined #ultra-star.dl.am on '+

+   'QuakeNet just to beg for a beta or wanted to "help" (hey I´m from a big newspaper). Actually there was a lot of code '+

+   'that had to be written up from scratch (party mode anyone?), and some of the stuff was pretty new to us (OpenGL h00ray). '+

+   'And it reallly didn´t help when people on the board didn´t stop arguing about the release date (I don´t say wankers), so '+

+   'next time some real help would be apprechiated - send us beer if you´re unskilled xD It´s almost sunset outside, time '+

+   'for the thanks then. We want to thank sourceforge for the hosting, BlindGuard for the board support (bet he has some '+

+   'grey hairs now), Wome for the tune you hear right now (thanks mate :X), Corvus5 for the work on UltraStar, our friends '+

+   'on the board (ultra-star.dl.am the place to be!), Einsiedler for the beer, the demoscene and weed for some inspiration...';

+

+  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

 

 implementation

 

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

+uses Dialogs,Windows, UGraphic, UMain, UIni, USongs, Textgl, opengl, ULanguage, Math;

 

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

 begin

@@ -93,25 +128,47 @@ 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;

-var

-  I:    integer;

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

 

-  AddBackground(Theme.Loading.Background.Tex);

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

 

-//  for I := 0 to High(Theme.Loading.Static) do

-//    AddStatic(Theme.Loading.Static[I]);

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

 

-//  for I := 0 to High(Theme.Loading.Text) do

-//    AddText(Theme.Loading.Text[I]);

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

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

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

 

-  Fadeout := false;

+  CRDTS_Stage:=InitialDelay;

 end;

 

 function TScreenCredits.Draw: boolean;

@@ -121,11 +178,15 @@ end;
 

 procedure TScreenCredits.onShow;

 begin

-  Credits_Y := 600;

+  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_-_echoes.mp3'); //danke kleinster liebster weeeetüüüüü!!

-  Music.Play;

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

+//  Music.Play;

+  CTime:=0;

+  setlength(CTime_hold,0);

 end;

 

 procedure TScreenCredits.onHide;

@@ -133,91 +194,906 @@ begin
   Music.Stop;

 end;

 

+Procedure TScreenCredits.Draw_FunkyText;

+var

+  S,I, Len: 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);

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

-  Y: Real;

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

-    //Change Position

-    Credits_Y := Credits_Y - 1;

-    //Change Alpha

-    Inc (Credits_Alpha, 3);

-  end;

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

-  if (Y <= 0) then

-  Y := 600;

-  //Draw BackGround

-  DrawBG;

-

-

-  //Draw pulsing Credits Text

-  //Set Font

-  SetFontStyle (2);

-  SetFontItalic(False);

-  SetFontSize(9);

-  SetFontPos (10, 5);

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

-  glPrint ('You may press ESC now');

-

-  //Set Font Size for Credits

-  SetFontSize(12);

-  //Draw Version

-  if (Credits_Y>-35) then

-  begin

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

-    //Set Color

-    if Credits_Y > 500 then

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

-    else

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

+    inc(CTime);

+    Credits_X := Credits_X-2;

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

+    begin

+//      CTime:=Timings[20];

+//      CRDTS_Stage:=Outro;

 

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

-    glprint(Ver);

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

 

-  //Set Color + Start Pos

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

-  Y := Credits_Y + 50;

+  //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;

 

-  //Search upper Position

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

-  begin

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

-      Y := Y + 55

-    else

-      Y := Y + 30;

+        glClearColor(0,0,0,0);

+        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

 

-    if Y > -35 then

-      break;

-  end;

+        glEnable(GL_TEXTURE_2D);

+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+        glEnable(GL_BLEND);

 

-  //Draw Text

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

-  begin

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

-      Y := Y + 55

-    else

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

+      k:=CTime-STime;

+      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((CTime-(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;

+      k:=CTime-STime;

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

+      k:=CTime-STime;

+      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

-      //Set Color

-      if Y > 500 then

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

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

+      k:=CTime-STime;

+      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

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

+        f:=0;

 

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

-      glprint(Credits_Text[T]);

-      Y := Y + 30;

+      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_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;

 

-    if Y > 600 then

-      break;

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

+      k:=CTime-STime;

+      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_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;

+      k:=CTime-STime;

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

+      k:=CTime-STime;

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

+        f:=j*10.0;

+        gltranslatef(0,-223,0);

+        glrotatef(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;

+      k:=CTime-STime;

+      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.25 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:=0;

+        Music.Stop;

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

+        Music.Play;

+        Music.SetLoop(True);

+      end;

+      if CTime > 231 then begin

+        Music.Play;

+        Ctime:=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]));

+}

+  // make the stars shine

+  GoldenRec.Draw;

 

+  //timing hack

+//    Draw_FunkyText;

 end;

 

 end.