hedgewars/hwengine.pas
changeset 10633 2f062fac5791
parent 10622 9551211455a3
child 10748 dc587913987c
child 10836 0b415bc2e0eb
--- a/hedgewars/hwengine.pas	Sat Dec 06 10:41:33 2014 -0500
+++ b/hedgewars/hwengine.pas	Sun Dec 07 14:36:28 2014 -0500
@@ -123,10 +123,13 @@
     if flagMakeCapture then
         begin
         flagMakeCapture:= false;
+        if flagDumpLand then
+             s:= '/Screenshots/mapdump_'
+        else s:= '/Screenshots/hw_';
         {$IFDEF PAS2C}
-        s:= '/Screenshots/hw_' + inttostr(GameTicks);
+        s:= s + inttostr(GameTicks);
         {$ELSE}
-        s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
+        s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
         {$ENDIF}
 
         // flash
@@ -134,8 +137,8 @@
         ScreenFade:= sfFromWhite;
         ScreenFadeValue:= sfMax;
         ScreenFadeSpeed:= 5;
-
-        if MakeScreenshot(s, 1) then
+        
+        if (not flagDumpLand and MakeScreenshot(s, 1, 0)) or (flagDumpLand and MakeScreenshot(s, 1, 1) and MakeScreenshot(s, 1, 2)) then
             WriteLnToConsole('Screenshot saved: ' + s)
         else
             begin