hedgewars/hwengine.pas
changeset 8838 aa2ffd427f6a
parent 8835 01bcf9ea68c1
child 8847 ff7fbab7cd56
child 8912 78ea1839aac9
equal deleted inserted replaced
8835:01bcf9ea68c1 8838:aa2ffd427f6a
   120 {$ENDIF}
   120 {$ENDIF}
   121 
   121 
   122     if flagMakeCapture then
   122     if flagMakeCapture then
   123         begin
   123         begin
   124         flagMakeCapture:= false;
   124         flagMakeCapture:= false;
   125         {$IFDEF PAS2C}
       
   126         s:= '/Screenshots/hw';
       
   127         {$ELSE}
       
   128         s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
   125         s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
   129         {$ENDIF}
       
   130 
   126 
   131         // flash
   127         // flash
   132         playSound(sndShutter);
   128         playSound(sndShutter);
   133         ScreenFade:= sfFromWhite;
   129         ScreenFade:= sfFromWhite;
   134         ScreenFadeValue:= sfMax;
   130         ScreenFadeValue:= sfMax;