hedgewars/hwengine.pas
branch0.9.25
changeset 14427 e8723f97324c
parent 14425 1ffa8bfc5c58
child 14577 34e810295d08
--- a/hedgewars/hwengine.pas	Thu Dec 13 10:49:30 2018 -0500
+++ b/hedgewars/hwengine.pas	Thu Dec 13 11:03:15 2018 -0500
@@ -140,12 +140,14 @@
     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);
@@ -161,7 +163,6 @@
             WriteLnToConsole('Screenshot failed.');
             AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');
             end
-        {$ENDIF}
         end;
 end;