hedgewars/uVisualGearsHandlers.pas
changeset 15239 de53425ebc39
parent 15238 df5890e5a12a
child 15583 e1078c72ad60
equal deleted inserted replaced
15238:df5890e5a12a 15239:de53425ebc39
   846 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
   846 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
   847 Gear^.dY:= Gear^.dY + cGravityf * Steps;
   847 Gear^.dY:= Gear^.dY + cGravityf * Steps;
   848 
   848 
   849 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
   849 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
   850 
   850 
   851 if ((cReducedQuality and rqPlainSplash) = 0) and (CheckCoordInWater(round(Gear^.X), round(Gear^.Y))) then
   851 if CheckCoordInWater(round(Gear^.X), round(Gear^.Y)) then
   852     begin
   852     begin
   853     AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet);
   853     if ((cReducedQuality and rqPlainSplash) = 0) then
       
   854         AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet);
   854     DeleteVisualGear(Gear);
   855     DeleteVisualGear(Gear);
   855     end
   856     end
   856 end;
   857 end;
   857 
   858 
   858 ////////////////////////////////////////////////////////////////////////////////
   859 ////////////////////////////////////////////////////////////////////////////////