equal
deleted
inserted
replaced
221 if (dx = dy) then FillLandCircleLinesEBC(x, y, dx, dy); |
221 if (dx = dy) then FillLandCircleLinesEBC(x, y, dx, dy); |
222 |
222 |
223 if SDL_MustLock(LandSurface) then |
223 if SDL_MustLock(LandSurface) then |
224 SDL_UnlockSurface(LandSurface); |
224 SDL_UnlockSurface(LandSurface); |
225 |
225 |
226 UpdateLandTexture |
226 UpdateLandTexture(Y - Radius, 2 * Radius) |
227 end; |
227 end; |
228 |
228 |
229 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
229 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
230 var tx, ty, i: LongInt; |
230 var tx, ty, i: LongInt; |
231 begin |
231 begin |
253 end; |
253 end; |
254 |
254 |
255 if SDL_MustLock(LandSurface) then |
255 if SDL_MustLock(LandSurface) then |
256 SDL_UnlockSurface(LandSurface); |
256 SDL_UnlockSurface(LandSurface); |
257 |
257 |
258 UpdateLandTexture |
258 //UpdateLandTexture |
259 end; |
259 end; |
260 |
260 |
261 // |
261 // |
262 // - (dX, dY) - direction, vector of length = 0.5 |
262 // - (dX, dY) - direction, vector of length = 0.5 |
263 // |
263 // |
321 end; |
321 end; |
322 |
322 |
323 if SDL_MustLock(LandSurface) then |
323 if SDL_MustLock(LandSurface) then |
324 SDL_UnlockSurface(LandSurface); |
324 SDL_UnlockSurface(LandSurface); |
325 |
325 |
326 UpdateLandTexture |
326 //UpdateLandTexture |
327 end; |
327 end; |
328 |
328 |
329 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
329 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
330 (*var X, Y, bpp, h, w: LongInt; |
330 (*var X, Y, bpp, h, w: LongInt; |
331 p: PByteArray; |
331 p: PByteArray; |