equal
deleted
inserted
replaced
319 if SDL_MustLock(LandSurface) then |
319 if SDL_MustLock(LandSurface) then |
320 SDL_UnlockSurface(LandSurface) |
320 SDL_UnlockSurface(LandSurface) |
321 end; |
321 end; |
322 |
322 |
323 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
323 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
324 var X, Y, bpp, h, w: LongInt; |
324 (*var X, Y, bpp, h, w: LongInt; |
325 p: PByteArray; |
325 p: PByteArray; |
326 r, rr: TSDL_Rect; |
326 r, rr: TSDL_Rect; |
327 Image: PSDL_Surface; |
327 Image: PSDL_Surface;*) |
328 begin |
328 begin |
329 Image:= SpritesData[Obj].Surface; |
329 (*Image:= SpritesData[Obj].Surface; |
330 w:= SpritesData[Obj].Width; |
330 w:= SpritesData[Obj].Width; |
331 h:= SpritesData[Obj].Height; |
331 h:= SpritesData[Obj].Height; |
332 |
332 |
333 if SDL_MustLock(Image) then |
333 if SDL_MustLock(Image) then |
334 SDLTry(SDL_LockSurface(Image) >= 0, true); |
334 SDLTry(SDL_LockSurface(Image) >= 0, true); |
419 r.y:= SpritesData[Obj].Height * Frame; |
419 r.y:= SpritesData[Obj].Height * Frame; |
420 r.w:= SpritesData[Obj].Width; |
420 r.w:= SpritesData[Obj].Width; |
421 r.h:= SpritesData[Obj].Height; |
421 r.h:= SpritesData[Obj].Height; |
422 rr.x:= cpX; |
422 rr.x:= cpX; |
423 rr.y:= cpY; |
423 rr.y:= cpY; |
424 SDL_UpperBlit(Image, @r, LandSurface, @rr) |
424 SDL_UpperBlit(Image, @r, LandSurface, @rr)*) |
425 end; |
425 end; |
426 |
426 |
427 |
427 |
428 end. |
428 end. |