--- a/hedgewars/uLandGraphics.pas	Sun Jan 27 17:27:13 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Sun Jan 27 18:39:02 2008 +0000
@@ -223,7 +223,7 @@
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
 
-UpdateLandTexture
+UpdateLandTexture(Y - Radius, 2 * Radius)
 end;
 
 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte);
@@ -255,7 +255,7 @@
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
 
-UpdateLandTexture
+//UpdateLandTexture
 end;
 
 //
@@ -323,7 +323,7 @@
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
 
-UpdateLandTexture
+//UpdateLandTexture
 end;
 
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;