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