hedgewars/HHHandlers.inc
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