hedgewars/uLandGraphics.pas
changeset 755 edf26e9554ac
parent 700 be4847674071
child 766 cdc8f75ab7bc
--- a/hedgewars/uLandGraphics.pas	Fri Jan 25 21:55:48 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Fri Jan 25 23:33:35 2008 +0000
@@ -321,12 +321,12 @@
 end;
 
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
-var X, Y, bpp, h, w: LongInt;
+(*var X, Y, bpp, h, w: LongInt;
     p: PByteArray;
     r, rr: TSDL_Rect;
-    Image: PSDL_Surface;
+    Image: PSDL_Surface;*)
 begin
-Image:= SpritesData[Obj].Surface;
+(*Image:= SpritesData[Obj].Surface;
 w:= SpritesData[Obj].Width;
 h:= SpritesData[Obj].Height; 
 
@@ -421,7 +421,7 @@
 r.h:= SpritesData[Obj].Height;
 rr.x:= cpX;
 rr.y:= cpY;
-SDL_UpperBlit(Image, @r, LandSurface, @rr)
+SDL_UpperBlit(Image, @r, LandSurface, @rr)*)
 end;