changeset 5851 | e6151aca2d7c |
parent 5838 | 180ffae2c039 |
child 5954 | 2aead3f940b0 |
child 5955 | 07f6fa51ea58 |
--- a/hedgewars/HHHandlers.inc Sun Sep 11 15:38:45 2011 +0200 +++ b/hedgewars/HHHandlers.inc Sun Sep 11 09:46:22 2011 -0400 @@ -774,6 +774,11 @@ begin if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0; Gear^.State:= Gear^.State or gstMoving; + if (CurrentHedgehog^.Gear = Gear) + and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then + begin + FollowGear:= Gear; + end; if isUnderwater then Gear^.dY:= Gear^.dY + cGravity / _2 else begin