equal
deleted
inserted
replaced
1952 if land = 0 then land:= TestCollisionYwithGear(Gear,-2); |
1952 if land = 0 then land:= TestCollisionYwithGear(Gear,-2); |
1953 if land = 0 then land:= TestCollisionXwithGear(Gear,-2); |
1953 if land = 0 then land:= TestCollisionXwithGear(Gear,-2); |
1954 if land = 0 then land:= TestCollisionYwithGear(Gear, 2); |
1954 if land = 0 then land:= TestCollisionYwithGear(Gear, 2); |
1955 if (land <> 0) and (land and lfBouncy = 0) then |
1955 if (land <> 0) and (land and lfBouncy = 0) then |
1956 begin |
1956 begin |
1957 if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then |
1957 if ((Gear^.State and gstMoving) <> 0) or (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then |
1958 begin |
1958 begin |
1959 PlaySound(sndRopeAttach); |
1959 PlaySound(sndRopeAttach); |
1960 Gear^.dX:= _0; |
1960 Gear^.dX:= _0; |
1961 Gear^.dY:= _0; |
1961 Gear^.dY:= _0; |
1962 Gear^.State:= Gear^.State and (not gstMoving); |
1962 Gear^.State:= Gear^.State and (not gstMoving); |