hedgewars/uGearsUtils.pas
changeset 14224 076c9fba3fa8
parent 14221 1bdce164eb72
child 14303 6015b74eea55
--- 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