138 {$ENDIF}

   138 {$ENDIF}

   139 

   139 

   140     if flagMakeCapture then

   140     if flagMakeCapture then

   141         begin

   141         begin

   142         flagMakeCapture:= false;

   142         flagMakeCapture:= false;

   144         if flagDumpLand then

   143         if flagDumpLand then

   145              s:= '/Screenshots/mapdump_'

   144              s:= '/Screenshots/mapdump_'

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

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

   147         s:= s + inttostr(GameTicks);

   147         s:= s + inttostr(GameTicks);

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

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

   149 

   151 

   150         // flash

   152         // flash

   151         playSound(sndShutter);

   153         playSound(sndShutter);

   152         ScreenFade:= sfFromWhite;

   154         ScreenFade:= sfFromWhite;

   153         ScreenFadeValue:= sfMax;

   155         ScreenFadeValue:= sfMax;

   159         else

   161         else

   160             begin

   162             begin

   161             WriteLnToConsole('Screenshot failed.');

   163             WriteLnToConsole('Screenshot failed.');

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

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

   163             end

   165             end

   165         end;

   166         end;

   166 end;

   167 end;

   167 

   168 

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

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

   169 procedure MainLoop;

   170 procedure MainLoop;