--- a/hedgewars/uLand.pas	Sun Sep 28 15:39:38 2008 +0000
+++ b/hedgewars/uLand.pas	Sun Sep 28 15:45:37 2008 +0000
@@ -565,9 +565,7 @@
 end;
 
 procedure LoadMap;
-var x, y: Longword;
-    p: PByteArray;
-    tmpsurf: PSDL_Surface;
+var tmpsurf: PSDL_Surface;
 begin
 WriteLnToConsole('Loading land from file...');
 AddProgress;