anchor.diff:            begin
               overflow := overflow + 1;
               // Try find unused shape
  -            if not FindBestResLoc(8.0, TP_S,TP_E,Locs[Loc], CountArr, ResLoc) then
  +            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);
  
positive.code: ﻿{
  Random Map Generator
  @author: Martin Toupal
  @e-mail: poznamenany@gmail.com
  
negative.code: 
    // 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) ));
    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
  