hedgewars/uVariables.pas
changeset 8596 def92c20cd49
parent 8584 ea20d9cc8515
child 8617 e7bea88096d2
--- a/hedgewars/uVariables.pas	Wed Feb 27 16:44:19 2013 +0100
+++ b/hedgewars/uVariables.pas	Wed Feb 27 11:17:45 2013 -0500
@@ -116,6 +116,7 @@
     // originally typed consts
     ExplosionBorderColor: LongWord;
     IceColor            : LongWord;
+    IceEdgeColor        : LongWord;
     WaterOpacity: byte;
     SDWaterOpacity: byte;
     GrayScale: Boolean;
@@ -2411,6 +2412,8 @@
     SDTint:= $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);
+
     WaterOpacity:= $80;
 
     cDrownSpeed.QWordValue  := 257698038;       // 0.06