equal
deleted
inserted
replaced
769 if Gear^.Hedgehog^.Unplaced then |
769 if Gear^.Hedgehog^.Unplaced then |
770 begin |
770 begin |
771 Gear^.dY:= _0; |
771 Gear^.dY:= _0; |
772 Gear^.dX:= _0; |
772 Gear^.dX:= _0; |
773 Gear^.State:= Gear^.State and not gstMoving; |
773 Gear^.State:= Gear^.State and not gstMoving; |
774 while TestCollisionYWithGear(Gear,1) = 0 do Gear^.Y:= Gear^.Y+_1; |
|
775 exit |
774 exit |
776 end; |
775 end; |
777 isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1); |
776 isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1); |
778 if isFalling then |
777 if isFalling then |
779 begin |
778 begin |