--- a/hedgewars/uLandObjects.pas	Thu Aug 16 21:58:57 2012 +0400
+++ b/hedgewars/uLandObjects.pas	Fri Aug 17 07:49:54 2012 -0400
@@ -501,7 +501,7 @@
             c2.g:= t;
             c2.b:= t
             end;
-        ExplosionBorderColor:= c2.value or AMask;
+        ExplosionBorderColor:= c2.r shl 24 or c2.g shl 16 or c2.b shl 8 or $FF; 
         end
     else if key = 'water-top' then
         begin