138 {$ENDIF}

   138 {$ENDIF}

   139 

   139 

   140     if flagMakeCapture then

   140     if flagMakeCapture then

   141         begin

   141         begin

   142         flagMakeCapture:= false;

   142         flagMakeCapture:= false;

   143         if flagDumpLand then

   144         if flagDumpLand then

   144              s:= '/Screenshots/mapdump_'

   145              s:= '/Screenshots/mapdump_'

   145         else s:= '/Screenshots/hw_';

   146         else s:= '/Screenshots/hw_';

   147         s:= s + inttostr(GameTicks);

   147         s:= s + inttostr(GameTicks);

   149         s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);

   148         s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);

   151 

   149 

   152         // flash

   150         // flash

   153         playSound(sndShutter);

   151         playSound(sndShutter);

   154         ScreenFade:= sfFromWhite;

   152         ScreenFade:= sfFromWhite;

   155         ScreenFadeValue:= sfMax;

   153         ScreenFadeValue:= sfMax;

   161         else

   159         else

   162             begin

   160             begin

   163             WriteLnToConsole('Screenshot failed.');

   161             WriteLnToConsole('Screenshot failed.');

   164             AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');

   162             AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');

   165             end

   163             end

   166         end;

   165         end;

   167 end;

   166 end;

   168 

   167 

   169 ///////////////////////////////////////////////////////////////////////////////

   168 ///////////////////////////////////////////////////////////////////////////////

   170 procedure MainLoop;

   169 procedure MainLoop;