byte order
authornemo
Sat, 18 Aug 2012 09:29:40 -0400
changeset 7555 acadabfb2dd1
parent 7553 9cfe74ee418b
child 7557 5a28d3cfbf62
byte order
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