--- a/hedgewars/uLandObjects.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uLandObjects.pas	Sun May 02 22:00:50 2010 +0000
@@ -29,7 +29,7 @@
 procedure AddOnLandObjects(Surface: PSDL_Surface);
 
 implementation
-uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, uSound, uWorld, GLunit;
+uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit;
 
 const MaxRects = 512;
       MAXOBJECTRECTS = 16;
@@ -205,7 +205,7 @@
 end;
 
 function CheckLand(rect: TSDL_Rect; dX, dY, Color: Longword): boolean;
-var i: Longword;
+var i: LongInt;
     bRes: boolean = true;
 begin
 inc(rect.x, dX);