equal
deleted
inserted
replaced
394 end; |
394 end; |
395 Gear^.State := Gear^.State or gstCollision; |
395 Gear^.State := Gear^.State or gstCollision; |
396 end; |
396 end; |
397 |
397 |
398 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
398 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
399 if Gear^.dX.Round > 1 then |
399 if Gear^.dX.QWordValue > 8160437862 then |
400 Gear^.dX.QWordValue:= 8589934592; |
400 Gear^.dX.QWordValue:= 8160437862; |
401 if Gear^.dY.Round > 1 then |
401 if Gear^.dY.QWordValue > 8160437862 then |
402 Gear^.dY.QWordValue:= 8589934592; |
402 Gear^.dY.QWordValue:= 8160437862; |
403 |
403 |
404 if (Gear^.State and gstSubmersible <> 0) and CheckCoordInWater(gX, gY) then |
404 if (Gear^.State and gstSubmersible <> 0) and CheckCoordInWater(gX, gY) then |
405 begin |
405 begin |
406 Gear^.dX:= Gear^.dX * _0_999; |
406 Gear^.dX:= Gear^.dX * _0_999; |
407 Gear^.dY:= Gear^.dY * _0_999 |
407 Gear^.dY:= Gear^.dY * _0_999 |