# HG changeset patch
# User nemo
# Date 1361981865 18000
# Node ID def92c20cd49e7d86a340d04ddf28cae6fec0ace
# Parent  d2940421d3d4aa0d0e963f9ed41f6c333a991106
define ice edge colour

diff -r d2940421d3d4 -r def92c20cd49 hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Wed Feb 27 16:44:19 2013 +0100
+++ b/hedgewars/uLandGraphics.pas	Wed Feb 27 11:17:45 2013 -0500
@@ -311,8 +311,8 @@
         end
     else if (isLandscapeEdge(weight)) then
         begin
-        LandPixels[y, x] := $FFB2AF8A;
-        if Land[y, x] > 255 then Land[y, x] := Land[y, x] or lfIce;
+        LandPixels[y, x] := IceEdgeColor;
+        if Land[y, x] > 255 then Land[y, x] := Land[y, x] or lfIce and not lfDamaged;
         end;
 
 end;
diff -r d2940421d3d4 -r def92c20cd49 hedgewars/uVariables.pas
--- 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