changeset 7525 | 5c840e221993 |
parent 7509 | 76e3a3fc17cd |
child 7592 | cf67e58313ea |
--- a/hedgewars/uGearsUtils.pas Mon Aug 06 00:44:32 2012 +0400 +++ b/hedgewars/uGearsUtils.pas Thu Aug 09 01:01:06 2012 +0400 @@ -510,7 +510,7 @@ count: LongInt = 0; begin if (y and LAND_HEIGHT_MASK) = 0 then - for i:= min(x + r, LAND_WIDTH - 4) downto max(x - r, 0) do + for i:= max(x - r, 0) to min(x + r, LAND_WIDTH - 4) do if Land[y, i] and mask <> 0 then begin inc(count);