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 LogLandDigest |
|
227 end; |
225 end; |
228 |
226 |
229 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
227 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
230 var tx, ty, i: LongInt; |
228 var tx, ty, i: LongInt; |
231 begin |
229 begin |