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