hedgewars/uLandGraphics.pas
changeset 6081 537bbd5c1a62
parent 6077 d8fa5a85d24f
child 6096 a00dbbf49d6c
--- a/hedgewars/uLandGraphics.pas	Sun Oct 02 03:45:09 2011 +0200
+++ b/hedgewars/uLandGraphics.pas	Sun Oct 02 10:36:43 2011 -0400
@@ -718,6 +718,8 @@
                        Land[cpY + y, cpX + x]:= lfBasic
                    else
                        Land[cpY + y, cpX + x]:= lfObject;
+                   // For testing only. Intent is to flag this on objects with masks, or use it for an ice ray gun
+                   if (Theme = 'Snow') or (Theme = 'Christmas') then Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or lfIce;
                    LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^
                    end;
             p:= @(p^[Image^.pitch]);