--- a/hedgewars/uLandTexture.pas	Mon Nov 14 13:31:38 2011 -0500
+++ b/hedgewars/uLandTexture.pas	Sat Nov 19 14:30:58 2011 -0500
@@ -31,7 +31,7 @@
 implementation
 uses uConsts, GLunit, uTypes, uVariables, uTextures, uDebug, uRender;
 
-const TEXSIZE = 256;
+const TEXSIZE = 512;
 
 type TLandRecord = record
             shouldUpdate: boolean;
@@ -139,11 +139,11 @@
 procedure ResetLand;
 var x, y: LongInt;
 begin
-    for x:= 0 to LANDTEXARW -1 do
+    for x:= 0 to LANDTEXARW - 1 do
         for y:= 0 to LANDTEXARH - 1 do
             with LandTextures[x, y] do
                 begin
-                if tex <> nil then FreeTexture(tex);
+                FreeTexture(tex);
                 tex:= nil;
                 end;
 end;