250       begin

   250       begin

   251       FollowGear:= Gear;

   251       FollowGear:= Gear;

   252       exit

   252       exit

   253       end;

   253       end;

   254    DeleteCI(Gear); // must be after exit!! (see previous line)

   254    DeleteCI(Gear); // must be after exit!! (see previous line)

   256    PHedgehog(Gear^.Hedgehog)^.visStepPos:= (PHedgehog(Gear^.Hedgehog)^.visStepPos + 1) and 7;

   256    PHedgehog(Gear^.Hedgehog)^.visStepPos:= (PHedgehog(Gear^.Hedgehog)^.visStepPos + 1) and 7;

   257    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then

   257    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then

   258       begin

   258       begin

   259       if not (TestCollisionXwithXYShift(Gear, _0, -6, hwSign(Gear^.dX))

   259       if not (TestCollisionXwithXYShift(Gear, _0, -6, hwSign(Gear^.dX))

   260          or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;

   260          or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;