equal
deleted
inserted
replaced
763 Ammo^.Health:= 0; |
763 Ammo^.Health:= 0; |
764 while i > 0 do |
764 while i > 0 do |
765 begin |
765 begin |
766 dec(i); |
766 dec(i); |
767 Gear:= t^.ar[i]; |
767 Gear:= t^.ar[i]; |
|
768 if (Ammo^.Kind = gtFlame) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heFrozen] > 255) then |
|
769 Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000); |
768 tmpDmg:= ModifyDamage(Damage, Gear); |
770 tmpDmg:= ModifyDamage(Damage, Gear); |
769 if (Gear^.State and gstNoDamage) = 0 then |
771 if (Gear^.State and gstNoDamage) = 0 then |
770 begin |
772 begin |
771 |
773 |
772 if (Ammo^.Kind = gtDEagleShot) or (Ammo^.Kind = gtSniperRifleShot) then |
774 if (Ammo^.Kind = gtDEagleShot) or (Ammo^.Kind = gtSniperRifleShot) then |
776 VGear^.Angle := DxDy2Angle(-Ammo^.dX, Ammo^.dY); |
778 VGear^.Angle := DxDy2Angle(-Ammo^.dX, Ammo^.dY); |
777 end; |
779 end; |
778 |
780 |
779 if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then |
781 if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then |
780 Gear^.FlightTime:= 1; |
782 Gear^.FlightTime:= 1; |
|
783 |
781 |
784 |
782 case Gear^.Kind of |
785 case Gear^.Kind of |
783 gtHedgehog, |
786 gtHedgehog, |
784 gtMine, |
787 gtMine, |
785 gtSMine, |
788 gtSMine, |