hedgewars/hwengine.pas
changeset 7306 3cff5c769509
parent 7286 068adc6948e3
child 7379 aa29a2f16cc7
--- a/hedgewars/hwengine.pas	Tue Jun 26 23:23:02 2012 +0400
+++ b/hedgewars/hwengine.pas	Tue Jun 26 23:29:41 2012 +0400
@@ -111,14 +111,18 @@
         begin
         flagMakeCapture:= false;
         {$IFDEF PAS2C}
-        s:= 'hw';
+        s:= '/Screenshots/hw';
         {$ELSE}
-        s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
+        s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
         {$ENDIF}
 
+        // flash
         playSound(sndShutter);
-        
-        if MakeScreenshot(s) then
+        ScreenFade:= sfFromWhite;
+        ScreenFadeValue:= sfMax;
+        ScreenFadeSpeed:= 5;
+
+        if MakeScreenshot(s, 1) then
             WriteLnToConsole('Screenshot saved: ' + s)
         else
             begin