286 end;

   286 end;

   287 

   287 

   288 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;

   288 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;

   289 var X, Y, bpp, h, w: LongInt;

   289 var X, Y, bpp, h, w: LongInt;

   290     p: PByteArray;

   290     p: PByteArray;

   292     Image: PSDL_Surface;

   291     Image: PSDL_Surface;

   293 begin

   292 begin

   294 TryDo(SpritesData[Obj].Surface <> nil, 'Assert SpritesData[Obj].Surface failed', true);

   293 TryDo(SpritesData[Obj].Surface <> nil, 'Assert SpritesData[Obj].Surface failed', true);

   295 Image:= SpritesData[Obj].Surface;

   294 Image:= SpritesData[Obj].Surface;

   296 w:= SpritesData[Obj].Width;

   295 w:= SpritesData[Obj].Width;