--- a/hedgewars/uLandObjects.pas	Tue Mar 31 02:30:29 2015 +0200
+++ b/hedgewars/uLandObjects.pas	Tue Mar 31 03:41:36 2015 +0200
@@ -556,7 +556,9 @@
         ExplosionBorderColorR:= c2.r;
         ExplosionBorderColorG:= c2.g;
         ExplosionBorderColorB:= c2.b;
-        ExplosionBorderColor:= (c2.r shl RShift) or (c2.g shl GShift) or (c2.b shl BShift) or AMask;
+        ExplosionBorderColorNoA:=
+            (c2.r shl RShift) or (c2.g shl GShift) or (c2.b shl BShift);
+        ExplosionBorderColor:= ExplosionBorderColorNoA or AMask;
         end
     else if key = 'water-top' then
         begin