--- a/hedgewars/uLandObjects.pas	Sat Aug 18 14:08:16 2012 +0400
+++ b/hedgewars/uLandObjects.pas	Sat Aug 18 09:29:40 2012 -0400
@@ -501,7 +501,7 @@
             c2.g:= t;
             c2.b:= t
             end;
-        ExplosionBorderColor:= c2.r shl 24 or c2.g shl 16 or c2.b shl 8 or $FF; 
+        ExplosionBorderColor:= (c2.r shl RShift) or (c2.g shl GShift) or (c2.b shl BShift) or AMask; 
         end
     else if key = 'water-top' then
         begin