--- a/hedgewars/uGears.pas	Sat Oct 20 13:49:36 2007 +0000
+++ b/hedgewars/uGears.pas	Sat Oct 20 17:27:06 2007 +0000
@@ -707,7 +707,8 @@
          end;
       Gear:= Gear^.NextGear
       end;
-if (Mask and EXPLDontDraw) = 0 then DrawExplosion(X, Y, Radius);
+if (Mask and EXPLDontDraw) = 0 then
+   if (GameFlags and gfSolidLand) = 0 then DrawExplosion(X, Y, Radius);
 uAIMisc.AwareOfExplosion(0, 0, 0)
 end;
 
@@ -748,7 +749,7 @@
            end;
     t:= t^.NextGear
     end;
-DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
+if (GameFlags and gfSolidLand) = 0 then DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
 end;
 
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);