equal
deleted
inserted
replaced
220 end; |
220 end; |
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 |
|
226 UpdateLandTexture |
225 end; |
227 end; |
226 |
228 |
227 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
229 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
228 var tx, ty, i: LongInt; |
230 var tx, ty, i: LongInt; |
229 begin |
231 begin |
250 inc(y, dY) |
252 inc(y, dY) |
251 end; |
253 end; |
252 |
254 |
253 if SDL_MustLock(LandSurface) then |
255 if SDL_MustLock(LandSurface) then |
254 SDL_UnlockSurface(LandSurface); |
256 SDL_UnlockSurface(LandSurface); |
|
257 |
|
258 UpdateLandTexture |
255 end; |
259 end; |
256 |
260 |
257 // |
261 // |
258 // - (dX, dY) - direction, vector of length = 0.5 |
262 // - (dX, dY) - direction, vector of length = 0.5 |
259 // |
263 // |
315 nx:= nx - dY; |
319 nx:= nx - dY; |
316 ny:= ny + dX; |
320 ny:= ny + dX; |
317 end; |
321 end; |
318 |
322 |
319 if SDL_MustLock(LandSurface) then |
323 if SDL_MustLock(LandSurface) then |
320 SDL_UnlockSurface(LandSurface) |
324 SDL_UnlockSurface(LandSurface); |
|
325 |
|
326 UpdateLandTexture |
321 end; |
327 end; |
322 |
328 |
323 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; |
324 (*var X, Y, bpp, h, w: LongInt; |
330 (*var X, Y, bpp, h, w: LongInt; |
325 p: PByteArray; |
331 p: PByteArray; |