hedgewars/uLand.pas
changeset 7561 5f0b1829b16f
parent 7556 4617e8ec0507
parent 7549 f6145d12bb17
child 7563 09a44c8fbfba
--- a/hedgewars/uLand.pas	Sat Aug 18 13:39:24 2012 +0200
+++ b/hedgewars/uLand.pas	Sat Aug 18 13:40:21 2012 +0200
@@ -782,7 +782,9 @@
 
     LandBackSurface:= nil;
     digest:= '';
-
+    LAND_WIDTH:= 0;
+    LAND_HEIGHT:= 0;
+(*
     if (cReducedQuality and rqBlurryLand) = 0 then
         SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)
     else
@@ -790,6 +792,7 @@
 
     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
+*)
 end;
 
 procedure freeModule;