equal
deleted
inserted
replaced
625 begin |
625 begin |
626 CheckNoDamage:= true; |
626 CheckNoDamage:= true; |
627 Gear:= GearsList; |
627 Gear:= GearsList; |
628 while Gear <> nil do |
628 while Gear <> nil do |
629 begin |
629 begin |
630 if Gear^.Kind = gtHedgehog then |
630 if (Gear^.Kind = gtHedgehog) and (((GameFlags and gfInfAttack) = 0) or ((Gear^.dX.QWordValue < _0_000004.QWordValue) and (Gear^.dY.QWordValue < _0_000004.QWordValue))) then |
631 begin |
631 begin |
632 if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma); |
632 if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma); |
633 if (Gear^.Damage <> 0) and |
633 if (Gear^.Damage <> 0) and |
634 (not Gear^.Invulnerable) then |
634 (not Gear^.Invulnerable) then |
635 begin |
635 begin |