# HG changeset patch
# User nemo
# Date 1345296580 14400
# Node ID acadabfb2dd1580c01ac88377b637b8d4571c20b
# Parent  9cfe74ee418be6ee5343c39fbb51d2b86066d9f4
byte order

diff -r 9cfe74ee418b -r acadabfb2dd1 hedgewars/uLandObjects.pas
--- 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