stun airmines on explosions as well
authoralfadur
Tue, 13 Nov 2018 07:45:27 +0300
changeset 14208 076c9fba3fa8
parent 14207 dcf235a1f86b
child 14209 4b418709b1cf
stun airmines on explosions as well
hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Tue Nov 13 03:57:27 2018 +0300
+++ b/hedgewars/uGearsUtils.pas	Tue Nov 13 07:45:27 2018 +0300
@@ -181,7 +181,12 @@
                                 if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) then
                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
                                 Gear^.Active:= true;
-                                if Gear^.Kind <> gtFlame then FollowGear:= Gear
+                                if Gear^.Kind <> gtFlame then FollowGear:= Gear;
+                                if Gear^.Kind = gtAirMine then
+                                    begin
+                                    Gear^.Tag:= 1;
+                                    Gear^.FlightTime:= 5000;
+                                    end
                                 end;
                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and
                                 (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) and