equal
deleted
inserted
replaced
1682 begin |
1682 begin |
1683 dec(i); |
1683 dec(i); |
1684 Gear:= t^.ar[i]; |
1684 Gear:= t^.ar[i]; |
1685 if (Gear^.State and gstNoDamage) = 0 then |
1685 if (Gear^.State and gstNoDamage) = 0 then |
1686 begin |
1686 begin |
1687 if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) then Gear^.FlightTime:= 1; |
1687 if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind <> gtFlame) then Gear^.FlightTime:= 1; |
1688 |
1688 |
1689 case Gear^.Kind of |
1689 case Gear^.Kind of |
1690 gtHedgehog, |
1690 gtHedgehog, |
1691 gtMine, |
1691 gtMine, |
1692 gtTarget, |
1692 gtTarget, |