hedgewars/uGearsUtils.pas
changeset 14221 1bdce164eb72
parent 14217 ab5e710d353d
child 14224 076c9fba3fa8
--- a/hedgewars/uGearsUtils.pas	Mon Nov 12 20:30:06 2018 +0300
+++ b/hedgewars/uGearsUtils.pas	Tue Nov 13 01:56:42 2018 +0300
@@ -1242,7 +1242,13 @@
                         t^.State:= t^.State or gstMoving;
                         if t^.Kind = gtKnife then t^.State:= t^.State and (not gstCollision);
                         t^.Active:= true;
-                        FollowGear:= t
+                        FollowGear:= t;
+
+                        if t^.Kind = gtAirmine then
+                        begin
+                            t^.Tag:= 1;
+                            t^.FlightTime:= 5000;
+                        end
                         end
                     end;
             gtGrave: begin
@@ -1388,7 +1394,13 @@
                                 State:= ord(sprStar)
                                 end
                         end;
-                ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg, dsShove)
+                ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg, dsShove);
+
+                if Gear^.Kind = gtAirmine then
+                    begin
+                        Gear^.Tag:= 1;
+                        Gear^.FlightTime:= 5000;
+                    end
                 end
             else
                 Gear^.State:= Gear^.State or gstWinner;