--- a/hedgewars/uLandGraphics.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -288,7 +288,6 @@
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 var X, Y, bpp, h, w: LongInt;
     p: PByteArray;
-    r, rr: TSDL_Rect;
     Image: PSDL_Surface;
 begin
 TryDo(SpritesData[Obj].Surface <> nil, 'Assert SpritesData[Obj].Surface failed', true);