hedgewars/uCollisions.pas
changeset 15324 b761efebe3c4
parent 15323 9299f43ba0ec
child 15325 b043b5d5219a
--- a/hedgewars/uCollisions.pas	Tue Aug 06 23:47:02 2019 +0300
+++ b/hedgewars/uCollisions.pas	Tue Aug 06 23:33:08 2019 +0200
@@ -1056,7 +1056,8 @@
 
     while Gear <> nil do
         begin
-        if (Gear^.Kind = gtAirMine) or ((Gear^.Kind = gtHedgehog) and (Gear^.CollisionIndex = 0)) then
+        if (Gear^.Kind in [gtCase, gtExplosives, gtTarget, gtKnife, gtMine, gtAirMine, gtSMine]) or
+            ((Gear^.Kind = gtHedgehog) and (Gear^.CollisionIndex = 0)) then
             begin
             gx:= hwRound(Gear^.X);
             gy:= hwRound(Gear^.Y);