# HG changeset patch
# User nemo
# Date 1544716170 18000
# Node ID 1ffa8bfc5c58a8aecfe315076f2075d6f3e4ea14
# Parent  1465f34973b5881b3217625d7ec5dc743c69c17d
Disable screenshoting in pas2c due to unimplemented function.  bug #719

diff -r 1465f34973b5 -r 1ffa8bfc5c58 hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Sat Dec 08 19:30:25 2018 +0100
+++ b/hedgewars/hwengine.pas	Thu Dec 13 10:49:30 2018 -0500
@@ -140,14 +140,12 @@
     if flagMakeCapture then
         begin
         flagMakeCapture:= false;
+        {$IFNDEF PAS2C}
         if flagDumpLand then
              s:= '/Screenshots/mapdump_'
         else s:= '/Screenshots/hw_';
-        {$IFDEF PAS2C}
         s:= s + inttostr(GameTicks);
-        {$ELSE}
         s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
-        {$ENDIF}
 
         // flash
         playSound(sndShutter);
@@ -163,6 +161,7 @@
             WriteLnToConsole('Screenshot failed.');
             AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');
             end
+        {$ENDIF}
         end;
 end;