equal
deleted
inserted
replaced
1738 if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then |
1738 if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then |
1739 begin |
1739 begin |
1740 PlaySound(sndRopeAttach); |
1740 PlaySound(sndRopeAttach); |
1741 Gear^.dX:= _0; |
1741 Gear^.dX:= _0; |
1742 Gear^.dY:= _0; |
1742 Gear^.dY:= _0; |
|
1743 Gear^.State:= Gear^.State and (not gstMoving); |
1743 AddCI(Gear); |
1744 AddCI(Gear); |
1744 end; |
1745 end; |
1745 end |
1746 end |
1746 else |
1747 else |
1747 begin |
1748 begin |
|
1749 Gear^.State:= Gear^.State or gstMoving; |
1748 DeleteCI(Gear); |
1750 DeleteCI(Gear); |
1749 doStepFallingGear(Gear); |
1751 doStepFallingGear(Gear); |
1750 AllInactive := false; |
1752 AllInactive := false; |
1751 CalcRotationDirAngle(Gear); |
1753 CalcRotationDirAngle(Gear); |
1752 end; |
1754 end; |