# HG changeset patch # User unc0rr # Date 1388315332 -14400 # Node ID bfc2fdc1ccd1deeb02dbcaf6bd365f97b7ad418f # Parent 415e6d04a1ac06070227e69740ddf2e7c6ce6704 Uberfix. TODO: ask fpc guys wtf. diff -r 415e6d04a1ac -r bfc2fdc1ccd1 hedgewars/uLandGraphics.pas --- a/hedgewars/uLandGraphics.pas Sat Dec 28 12:35:30 2013 -0500 +++ b/hedgewars/uLandGraphics.pas Sun Dec 29 15:08:52 2013 +0400 @@ -210,22 +210,22 @@ Land[y, i]:= Land[y, i] and lfNotCurrentMask; end; changePixelSetNotCurrent: - 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); - end; + for i:= fromPix to toPix do + begin + if Land[y, i] and lfObjMask > 0 then + Land[y, i]:= Land[y, i] - 1; + end; setCurrentHog: for i:= fromPix to toPix do begin Land[y, i]:= Land[y, i] or lfCurrentHog end; changePixelNotSetNotCurrent: - 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) - end; + for i:= fromPix to toPix do + begin + if Land[y, i] and lfObjMask < lfObjMask then + Land[y, i]:= Land[y, i] + 1 + end; end; end;