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 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