hedgewars/uLandObjects.pas
changeset 30 794e98e11b66
parent 27 c374fe590272
child 35 9367f246fb5f
--- a/hedgewars/uLandObjects.pas	Fri Dec 23 23:14:31 2005 +0000
+++ b/hedgewars/uLandObjects.pas	Tue Dec 27 10:19:21 2005 +0000
@@ -145,7 +145,7 @@
        inc(x2, 2)
      until (x2 > 1900) or (k = 0) or (k = 16) or (x2 > i);
      if (x2 < 1900) and (k = 16) and (x2 - x1 > 250)
-        and not CheckIntersect(x1, y, x2 - x1, 16) then break;
+        and not CheckIntersect(x1 - 32, y - 64, x2 - x1 + 64, 144) then break;
      end;
 x1:= 0;
 until y > 900;
@@ -166,7 +166,7 @@
    r.h:= 16;
    SDL_UpperBlit(tmpsurf, @r, Surface, @rr);
    SDL_FreeSurface(tmpsurf);
-   AddRect(x1 - 8, y - 8, x2 - x1 + 16, 72);
+   AddRect(x1 - 8, y - 32, x2 - x1 + 16, 80);
    for k:= y to y + 15 do
        for i:= x1 to x2 do Land[k, i]:= $FFFFFF
    end else Result:= false