equal
deleted
inserted
replaced
177 while (x2 < (rightX-150)) and (CountNonZeroz(x2, y) = 0) do inc(x2, 2); |
177 while (x2 < (rightX-150)) and (CountNonZeroz(x2, y) = 0) do inc(x2, 2); |
178 i:= x2 + 12; |
178 i:= x2 + 12; |
179 repeat |
179 repeat |
180 inc(x2, 2); |
180 inc(x2, 2); |
181 k:= CountNonZeroz(x2, y) |
181 k:= CountNonZeroz(x2, y) |
182 until (x2 > (rightX-150)) or (k = 0) or (k = 16) or (x2 > i); |
182 until (x2 >= (rightX-150)) or (k = 0) or (k = 16) or (x2 > i) or (x2 - x1 >= 768); |
183 if (x2 < (rightX-150)) and (k = 16) and (x2 - x1 > 250) |
183 if (x2 < (rightX - 150)) and (k = 16) and (x2 - x1 > 250) and (x2 - x1 < 768) |
184 and not CheckIntersect(x1 - 32, y - 64, x2 - x1 + 64, 144) then break; |
184 and not CheckIntersect(x1 - 32, y - 64, x2 - x1 + 64, 144) then break; |
185 end; |
185 end; |
186 x1:= 0; |
186 x1:= 0; |
187 until y > (LAND_HEIGHT-125); |
187 until y > (LAND_HEIGHT-125); |
188 |
188 |