equal
deleted
inserted
replaced
7521 CheckGearDrowning(Gear); |
7521 CheckGearDrowning(Gear); |
7522 exit; |
7522 exit; |
7523 end; |
7523 end; |
7524 |
7524 |
7525 Gear^.Y := int2hwFloat(cWaterLine - 3 * Gear^.Radius); |
7525 Gear^.Y := int2hwFloat(cWaterLine - 3 * Gear^.Radius); |
7526 if TestCollisionYwithGear(Gear, -1) <> 0 then |
7526 if TestCollisionYImpl(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius - 1, -1, Gear^.CollisionMask and lfLandMask) <> 0 then |
7527 begin |
7527 begin |
7528 Gear^.Tag := -1; |
7528 Gear^.Tag := -1; |
7529 exit; |
7529 exit; |
7530 end; |
7530 end; |
7531 |
7531 |