--- 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