hedgewars/uGears.pas
changeset 7755 b8958e64e68d
parent 7754 e81dc9bef8b8
child 7761 6dc1be8ff73e
--- a/hedgewars/uGears.pas	Sun Oct 14 13:35:15 2012 -0400
+++ b/hedgewars/uGears.pas	Sun Oct 14 20:24:08 2012 -0400
@@ -671,6 +671,7 @@
         gtHedgehog,
             gtMine,
             gtSMine,
+            gtKnife,
             gtCase,
             gtTarget,
             gtExplosives,
@@ -698,6 +699,7 @@
                         t^.dX:= t^.dX + Gear^.dX * dmg * _0_01 + SignAs(cHHKick, Gear^.dX);
                         t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
                         t^.State:= t^.State or gstMoving;
+                        if t^.Kind = gtKnife then t^.State:= t^.State and not gstCollision;
                         t^.Active:= true;
                         FollowGear:= t
                         end