934 else

   934 else

   935     begin

   935     begin

   936     land:= TestCollisionYwithGear(Gear, 1);

   936     land:= TestCollisionYwithGear(Gear, 1);

   937     if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0)

   937     if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0)

   938     and ((land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0))

   938     and ((land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0))

   939     and ((Gear^.State and gstHHJumping) <> 0) then

   940     and ((Gear^.State and gstHHJumping) <> 0) then

   940         SetLittle(Gear^.dX);

   941         SetLittle(Gear^.dX);

   941 

   942 

   942     if not Gear^.dY.isNegative then

   943     if not Gear^.dY.isNegative then

   943         begin

   944         begin