hedgewars/hwengine.pas
changeset 4939 6d512ba87f72
parent 4935 27fb500dd6b1
child 4976 088d40d8aba2
equal deleted inserted replaced
4938:0985edac2ad7 4939:6d512ba87f72
   113     begin
   113     begin
   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         {$IFNDEF IPHONEOS}MakeScreenshot(s);{$ENDIF}
   119     end;
   119     end;
   120 end;
   120 end;
   121 
   121 
   122 ////////////////////
   122 ////////////////////
   123 procedure OnDestroy;
   123 procedure OnDestroy;