1127         else

  1127         else

  1128             doStepHedgehogDriven(Gear)

  1128             doStepHedgehogDriven(Gear)

  1129     end;

  1129     end;

  1130 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and

  1130 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and

  1131    (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and

  1131    (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and

  1133    (GameTicks mod (100*LongWOrd(hwRound(cMaxWindSpeed*2/cGravity))) = 0) and

  1133    (GameTicks mod (100*LongWOrd(hwRound(cMaxWindSpeed*2/cGravity))) = 0) and

  1134    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then

  1134    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then

  1135     begin

  1135     begin

  1136     slope:= CalcSlopeBelowGear(Gear);

  1136     slope:= CalcSlopeBelowGear(Gear);

  1137     Gear^.dX:=Gear^.dX+slope*_0_07;

  1137     Gear^.dX:=Gear^.dX+slope*_0_07;