diff -r 5e2189989fe8 -r 89b536a3cf3c hedgewars/HHHandlers.inc --- a/hedgewars/HHHandlers.inc Sat Jan 10 17:58:05 2009 +0000 +++ b/hedgewars/HHHandlers.inc Sat Jan 10 22:50:54 2009 +0000 @@ -403,9 +403,10 @@ if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; -if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) -else -if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da); +if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then + if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) + else + if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da); end; procedure doStepHedgehog(Gear: PGear); forward;