equal
deleted
inserted
replaced
468 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
468 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
469 |
469 |
470 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
470 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
471 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
471 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
472 |
472 |
473 if round(Gear^.Y) > cWaterLine then |
473 if CheckCoordInWater(round(Gear^.X), round(Gear^.Y)) then |
474 begin |
474 begin |
475 DeleteVisualGear(Gear); |
475 DeleteVisualGear(Gear); |
476 PlaySound(TSound(ord(sndDroplet1) + Random(3))); |
476 PlaySound(TSound(ord(sndDroplet1) + Random(3))); |
477 end; |
477 end; |
478 end; |
478 end; |
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 (round(Gear^.Y) > cWaterLine) and ((cReducedQuality and rqPlainSplash) = 0) then |
851 if ((cReducedQuality and rqPlainSplash) = 0) and (CheckCoordInWater(round(Gear^.X), round(Gear^.Y))) then |
852 begin |
852 begin |
853 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
853 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
854 DeleteVisualGear(Gear); |
854 DeleteVisualGear(Gear); |
855 end |
855 end |
856 end; |
856 end; |