hedgewars/hwengine.pas
changeset 4935 27fb500dd6b1
parent 4933 86bd82d58a0b
child 4939 6d512ba87f72
equal deleted inserted replaced
4934:727da72f754a 4935:27fb500dd6b1
   114         flagMakeCapture:= false;
   114         flagMakeCapture:= false;
   115         s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
   115         s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
   116         WriteLnToConsole('Saving ' + s + '...');
   116         WriteLnToConsole('Saving ' + s + '...');
   117         playSound(sndShutter);
   117         playSound(sndShutter);
   118         MakeScreenshot(s);
   118         MakeScreenshot(s);
   119         //SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1)
       
   120     end;
   119     end;
   121 end;
   120 end;
   122 
   121 
   123 ////////////////////
   122 ////////////////////
   124 procedure OnDestroy;
   123 procedure OnDestroy;