465         if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) <> 0 then

   465         doStepHedgehogMoving(HHGear);

   466             SetLittle(HHGear^.dX);

   467         if HHGear^.dY.isNegative and (TestCollisionYwithGear(HHGear, -1) <> 0) then

   468             HHGear^.dY := _0;

   469 

   470         HHGear^.X := HHGear^.X + HHGear^.dX;

   472 

   467         Gear^.Y := Gear^.Y + HHGear^.dY;

   473         if TestCollisionYwithGear(HHGear, 1) <> 0 then

   468 

   474             begin

   475             CheckHHDamage(HHGear);

   476             HHGear^.dY := _0

   477             //HHGear^.State:= HHGear^.State and (not (gstHHJumping or gstHHHJump));

   478             end

   479         else

   480             begin

   481             HHGear^.Y := HHGear^.Y + HHGear^.dY;

   482             Gear^.Y := Gear^.Y + HHGear^.dY;

   483             HHGear^.dY := HHGear^.dY + cGravity;

   484             if (GameFlags and gfMoreWind) <> 0 then

   485                 HHGear^.dX := HHGear^.dX + cWindSpeed / HHGear^.Density

   486             end;