hedgewars/hwengine.dpr
changeset 1080 8735046fc698
parent 1066 1f1b3686a2b0
child 1097 06b15817b8a0
--- a/hedgewars/hwengine.dpr	Sun Jul 13 17:58:05 2008 +0000
+++ b/hedgewars/hwengine.dpr	Mon Jul 14 20:24:29 2008 +0000
@@ -67,7 +67,7 @@
 ////////////////////////////////
 procedure DoTimer(Lag: LongInt);
 const MusicTimerTicks: Longword = 0;
-//var s: string;
+var s: string;
 begin
 inc(RealTicks, Lag);
 
@@ -119,11 +119,12 @@
 SDL_GL_SwapBuffers();
 if flagMakeCapture then
    begin
-{   flagMakeCapture:= false;
-   s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.bmp';
+   flagMakeCapture:= false;
+   s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga';
    WriteLnToConsole('Saving ' + s);
-   SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1)
-}   end;
+   MakeScreenshot(s);
+//   SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1)
+   end;
 end;
 
 ////////////////////