hedgewars/hwengine.pas
branchqmlfrontend
changeset 10748 dc587913987c
parent 10606 8e95911cb86b
parent 10633 2f062fac5791
child 10886 99273b7afbff
--- a/hedgewars/hwengine.pas	Thu Dec 18 00:03:53 2014 +0300
+++ b/hedgewars/hwengine.pas	Sat Jan 03 23:46:26 2015 +0300
@@ -112,10 +112,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
@@ -123,8 +126,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