hedgewars/uLand.pas
changeset 6081 537bbd5c1a62
parent 6011 519f8a58c021
child 6082 16ca7a7a6aa6
--- a/hedgewars/uLand.pas	Sun Oct 02 03:45:09 2011 +0200
+++ b/hedgewars/uLand.pas	Sun Oct 02 10:36:43 2011 -0400
@@ -1158,6 +1158,8 @@
                         Land[cpY + y, cpX + x]:= 0
                     else if p^[x] = (AMask or RMask) then
                         Land[cpY + y, cpX + x]:= lfIndestructible
+                    else if p^[x] = (AMask or BMask) then
+                        Land[cpY + y, cpX + x]:= lfIce
                     else if p^[x] = $FFFFFFFF then
                         Land[cpY + y, cpX + x]:= lfBasic;
                 end;