hedgewars/HHHandlers.inc
changeset 2940 c02119eee12a
parent 2908 bd1909984a09
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2939:58d811e0d41c 2940:c02119eee12a
   406 
   406 
   407    PrevdX:= hwSign(Gear^.dX);
   407    PrevdX:= hwSign(Gear^.dX);
   408    if (Gear^.Message and gm_Left  )<>0 then Gear^.dX:= -cLittle else
   408    if (Gear^.Message and gm_Left  )<>0 then Gear^.dX:= -cLittle else
   409    if (Gear^.Message and gm_Right )<>0 then Gear^.dX:=  cLittle else exit;
   409    if (Gear^.Message and gm_Right )<>0 then Gear^.dX:=  cLittle else exit;
   410 
   410 
       
   411    if (Gear^.Message and (gm_Left or gm_Right)) <> 0 then
       
   412       begin
       
   413       StepSoundTimer:= cHHStepTicks;
       
   414       end;
       
   415    
   411    StepTicks:= cHHStepTicks;
   416    StepTicks:= cHHStepTicks;
   412    if PrevdX <> hwSign(Gear^.dX) then
   417    if PrevdX <> hwSign(Gear^.dX) then
   413       begin
   418       begin
   414       FollowGear:= Gear;
   419       FollowGear:= Gear;
   415       exit
   420       exit