Uberfix. TODO: ask fpc guys wtf.
authorunc0rr
Sun, 29 Dec 2013 15:08:52 +0400
changeset 9878 163944282710
parent 9877 2f3355b29420
child 9879 141c0d6c2179
Uberfix. TODO: ask fpc guys wtf.
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Sun Dec 29 15:07:51 2013 +0400
+++ b/hedgewars/uLandGraphics.pas	Sun Dec 29 15:08:52 2013 +0400
@@ -213,7 +213,7 @@
         for i:= fromPix to toPix do
             begin
             if Land[y, i] and lfObjMask > 0 then
-                Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) - 1);
+                Land[y, i]:= Land[y, i] - 1;
             end;
     setCurrentHog:
         for i:= fromPix to toPix do
@@ -224,7 +224,7 @@
         for i:= fromPix to toPix do
             begin
             if Land[y, i] and lfObjMask < lfObjMask then
-                Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) + 1)
+                Land[y, i]:= Land[y, i] + 1
             end;
     end;
 end;