equal
deleted
inserted
replaced
1481 if TestCollisionXwithGear(Gear, 2) |
1481 if TestCollisionXwithGear(Gear, 2) |
1482 or (TestCollisionYwithGear(Gear, -2) <> 0) |
1482 or (TestCollisionYwithGear(Gear, -2) <> 0) |
1483 or TestCollisionXwithGear(Gear, -2) |
1483 or TestCollisionXwithGear(Gear, -2) |
1484 or (TestCollisionYwithGear(Gear, 2) <> 0) then |
1484 or (TestCollisionYwithGear(Gear, 2) <> 0) then |
1485 begin |
1485 begin |
1486 if (hwAbs(Gear^.dX) > _0) or (hwAbs(Gear^.dY) > _0) then |
1486 if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then |
1487 begin |
1487 begin |
1488 PlaySound(sndRopeAttach); |
1488 PlaySound(sndRopeAttach); |
1489 Gear^.dX:= _0; |
1489 Gear^.dX:= _0; |
1490 Gear^.dY:= _0; |
1490 Gear^.dY:= _0; |
1491 AddGearCI(Gear); |
1491 AddGearCI(Gear); |