hedgewars/HHHandlers.inc
changeset 1639 89b536a3cf3c
parent 1629 9f12da88d769
child 1645 f010d68adbb7
--- 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;