--- a/hedgewars/uAIMisc.pas	Thu Jul 16 22:23:08 2020 +0200
+++ b/hedgewars/uAIMisc.pas	Fri Jul 17 02:51:25 2020 +0200
@@ -235,19 +235,29 @@
 while Gear <> nil do
     begin
         case Gear^.Kind of
-            gtGrenade
+            gtAirAttack
+            , gtAirBomb
+            , gtBall
+            , gtBee
+            , gtBirdy
             , gtClusterBomb
+            , gtCake
+            , gtCluster
+            , gtDrill
+            , gtEgg
             , gtGasBomb
-            , gtShell
-            , gtAirAttack
+            , gtGrenade
+            , gtHellishBomb
+            , gtPiano
+            , gtPoisonCloud
+            , gtRCPlane
+            , gtMelonPiece
+            , gtMolotov
             , gtMortar
-            , gtWatermelon
-            , gtDrill
-            , gtAirBomb
-            , gtCluster
-            , gtMelonPiece
-            , gtBee
-            , gtMolotov: bonuses.activity:= true;
+            , gtNapalmBomb
+            , gtShell
+            , gtSnowball
+            , gtWatermelon: bonuses.activity:= true;
             gtCase:
                 if (Gear^.AIHints and aihDoesntMatter) = 0 then
                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);