# HG changeset patch
# User unC0Rr
# Date 1736764798 -3600
# Node ID b68e513d14160683f8c8d4b85031b12af3fac45b
# Parent  33f09636018bf95bf975fd7c955222f54bb779e1
Make bots wait a bit if there are air mines moving

diff -r 33f09636018b -r b68e513d1416 hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Mon Jan 27 15:48:24 2025 +0100
+++ b/hedgewars/uAIMisc.pas	Mon Jan 13 11:39:58 2025 +0100
@@ -275,7 +275,14 @@
                 else if (Gear^.State and gstAttacking) <> 0 then
                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
                 end;
-            gtAirMine: if ((Gear^.State and gstFrozen) = 0) then AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), gear^.Angle+5, -30);
+                
+            gtAirMine: if ((Gear^.State and gstFrozen) = 0) then 
+                begin
+                AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), gear^.Angle+5, -30);
+                
+                if (Gear^.dX.QWordValue + Gear^.dY.QWordValue) > _0_02.QWordValue then
+                    bonuses.activity:= true
+                end;
 
             gtExplosives:
                 begin