hedgewars/uVariables.pas
changeset 10877 baad1cc9b749
parent 10866 c1f75780c56f
child 10878 963bc20f511c
--- a/hedgewars/uVariables.pas	Tue Mar 31 00:15:00 2015 +0200
+++ b/hedgewars/uVariables.pas	Tue Mar 31 02:30:29 2015 +0200
@@ -126,7 +126,10 @@
     isAudioMuted     : boolean;
 
     // originally typed consts
-    ExplosionBorderColor: LongWord;
+    ExplosionBorderColorR,
+    ExplosionBorderColorG,
+    ExplosionBorderColorB,
+    ExplosionBorderColor:  LongWord;
     IceColor            : LongWord;
     IceEdgeColor        : LongWord;
     WaterOpacity: byte;
@@ -2542,6 +2545,9 @@
     SDWaterOpacity:= $80;
 
     SDTint:= $80;
+    ExplosionBorderColorR:= 80;
+    ExplosionBorderColorG:= 80;
+    ExplosionBorderColorB:= 80;
     ExplosionBorderColor:= $FF808080;
     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);