Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uVariables.pas
changeset 10878 963bc20f511c
parent 10877 baad1cc9b749
child 10886 99273b7afbff
child 10955 a60cad2e0d26 
--- a/hedgewars/uVariables.pas	Tue Mar 31 02:30:29 2015 +0200
+++ b/hedgewars/uVariables.pas	Tue Mar 31 03:41:36 2015 +0200
@@ -129,6 +129,7 @@
     ExplosionBorderColorR,
     ExplosionBorderColorG,
     ExplosionBorderColorB,
+    ExplosionBorderColorNoA,
     ExplosionBorderColor:  LongWord;
     IceColor            : LongWord;
     IceEdgeColor        : LongWord;
@@ -2549,6 +2550,7 @@
     ExplosionBorderColorG:= 80;
     ExplosionBorderColorB:= 80;
     ExplosionBorderColor:= $FF808080;
+    ExplosionBorderColorNoA:= ExplosionBorderColor and (not AMask);
     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);
     IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift);
hedgewars