Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
define ice edge colour
authornemo
Wed, 27 Feb 2013 11:17:45 -0500
changeset 8596 def92c20cd49
parent 8595 d2940421d3d4
child 8597 00adaf34d2a3
define ice edge colour
hedgewars/uLandGraphics.pas file | annotate | diff | comparison | revisions
hedgewars/uVariables.pas file | annotate | diff | comparison | revisions 
--- 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;
--- 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
hedgewars