anchor.diff:  
     // Make obstacles
     Factor := gTerrain.MapX * gTerrain.MapY * RMGSettings.Obstacle.Density / 10000;
  -  ObstacleSeeds := RNDPointsInGrid(Round(Factor), 0, KMPoint( Low(P[0]), Low(P) ), KMPoint( High(P[0]), High(P) )); 
  +  ObstacleSeeds := RNDPointsInGrid(Round(Factor), 0, KMPoint( Low(P[0]), Low(P) ), KMPoint( High(P[0]), High(P) ));
     FillObstacle := TKMFillBiome.Create( KMPoint(  Low(A[0]), Low(A) ), KMPoint( High(A[0]), High(A) ), aVoronoi, A);
     try
       for I := Low(ObstacleSeeds) to High(ObstacleSeeds) do
  
positive.code:     end;
    end;
  end;
  
  
  
  
negative.code:           begin
              overflow := overflow + 1;
              // Try find unused shape
              if not FindBestResLoc((RESOURCE <> Byte(btCoal)), 8.0, TP_S,TP_E,Locs[Loc], CountArr, ResLoc) then
                break;
              // Check if there is enought points to create mountains with specific size
              SetSizeOfMountain(ResLoc, size_Mountain, new_Size, CountArr, PointsArr, PointArr);
  