equal
deleted
inserted
replaced
1675 t:= CheckGearsCollision(Ammo); |
1675 t:= CheckGearsCollision(Ammo); |
1676 i:= t^.Count; |
1676 i:= t^.Count; |
1677 |
1677 |
1678 Damage:= modifyDamage(Damage); |
1678 Damage:= modifyDamage(Damage); |
1679 |
1679 |
|
1680 if (Ammo^.Kind = gtFlame) and (i > 0) then Ammo^.Health:= 0; |
1680 while i > 0 do |
1681 while i > 0 do |
1681 begin |
1682 begin |
1682 dec(i); |
1683 dec(i); |
1683 Gear:= t^.ar[i]; |
1684 Gear:= t^.ar[i]; |
1684 if (Gear^.State and gstNoDamage) = 0 then |
1685 if (Gear^.State and gstNoDamage) = 0 then |
1689 gtHedgehog, |
1690 gtHedgehog, |
1690 gtMine, |
1691 gtMine, |
1691 gtTarget, |
1692 gtTarget, |
1692 gtCase: begin |
1693 gtCase: begin |
1693 if (Ammo^.Kind = gtDrill) then begin Ammo^.Timer:= 0; exit; end; |
1694 if (Ammo^.Kind = gtDrill) then begin Ammo^.Timer:= 0; exit; end; |
1694 if (Ammo^.Kind = gtFlame) then Ammo^.Health:= 0; |
|
1695 if (not Gear^.Invulnerable) then |
1695 if (not Gear^.Invulnerable) then |
1696 ApplyDamage(Gear, Damage) |
1696 ApplyDamage(Gear, Damage) |
1697 else |
1697 else |
1698 Gear^.State:= Gear^.State or gstWinner; |
1698 Gear^.State:= Gear^.State or gstWinner; |
1699 |
1699 |