diff options
Diffstat (limited to 'Game/Code')
| -rw-r--r-- | Game/Code/Screens/UScreenCredits.pas | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas index b69c17aa..7e91ee3b 100644 --- a/Game/Code/Screens/UScreenCredits.pas +++ b/Game/Code/Screens/UScreenCredits.pas @@ -15,7 +15,7 @@ type Credits_Time: Cardinal;
Credits_Alpha: Cardinal;
CTime: Cardinal;
- CTime_hold: array of Cardinal;
+ CTime_hold: Cardinal;
ESC_Alpha: Integer;
credits_entry_tex: TTexture;
@@ -115,12 +115,12 @@ begin FadeTo(@ScreenMain);
Music.PlayBack;
end;
- SDLK_SPACE:
+{ SDLK_SPACE:
begin
setlength(CTime_hold,length(CTime_hold)+1);
CTime_hold[high(CTime_hold)]:=CTime;
end;
-
+}
end;//esac
end; //fi
end;
@@ -169,11 +169,9 @@ begin Credits_X := 580;
deluxe_slidein := 0;
Credits_Alpha := 0;
- //Music.SetLoop(true); Loop looped ned, so ne scheisse
Music.Open(soundpath + 'wome-credits-tune.mp3'); //danke kleinster liebster weeeetüüüüü!!
-// Music.Play;
CTime:=0;
- setlength(CTime_hold,0);
+// setlength(CTime_hold,0);
end;
procedure TScreenCredits.onHide;
@@ -220,7 +218,7 @@ begin inc(CurrentScrollEnd);
end;
end;
- // timing hack
+{ // timing hack
X:=5;
SetFontStyle (2);
SetFontItalic(False);
@@ -231,7 +229,7 @@ begin SetFontPos (500, X);
glPrint (Addr(visibleText[0]));
X:=X+20;
- end;
+ end;}
end;
procedure Start3D;
@@ -285,6 +283,7 @@ Data := Music.GetFFTData; begin
Credits_Time := T;
inc(CTime);
+ inc(CTime_hold);
Credits_X := Credits_X-2;
if (CRDTS_Stage=InitialDelay) and (CTime=Timings[0]) then
begin
@@ -1008,16 +1007,16 @@ Data := Music.GetFFTData; if (CRDTS_Stage=Outro) then
begin
if CTime=Timings[20] then begin
- CTime:=0;
+ CTime_hold:=0;
Music.Stop;
Music.Open(soundpath + 'credits-outro-tune.mp3');
Music.Play;
Music.SetVolume(20);
Music.SetLoop(True);
end;
- if CTime > 231 then begin
+ if CTime_hold > 231 then begin
Music.Play;
- Ctime:=0;
+ Ctime_hold:=0;
end;
glClearColor(0,0,0,0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
|