hedgewars/uGears.pas
changeset 4120 0aba28eb8e34
parent 4111 ceb58fa4cfcb
child 4143 eb7981f34800
--- a/hedgewars/uGears.pas	Fri Nov 05 11:06:22 2010 -0400
+++ b/hedgewars/uGears.pas	Fri Nov 05 11:51:34 2010 -0400
@@ -627,7 +627,7 @@
 Gear:= GearsList;
 while Gear <> nil do
     begin
-    if Gear^.Kind = gtHedgehog then
+    if (Gear^.Kind = gtHedgehog) and (((GameFlags and gfInfAttack) = 0) or ((Gear^.dX.QWordValue < _0_000004.QWordValue) and (Gear^.dY.QWordValue < _0_000004.QWordValue))) then
         begin
         if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma);
         if (Gear^.Damage <> 0) and