hedgewars/uAIMisc.pas
branch0.9.25
changeset 14585 8736f3a0ff7f
parent 14264 6f3f59266c4c
child 14586 e54e41554529
--- a/hedgewars/uAIMisc.pas	Fri Jan 11 08:45:11 2019 -0500
+++ b/hedgewars/uAIMisc.pas	Mon Jan 14 12:34:47 2019 -0500
@@ -229,6 +229,7 @@
             , gtAirBomb
             , gtCluster
             , gtMelonPiece
+            , gtBee
             , gtMolotov: bonuses.activity:= true;
             gtCase:
                 if (Gear^.AIHints and aihDoesntMatter) = 0 then
@@ -246,6 +247,7 @@
                 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);
 
             gtExplosives:
                 begin