anchor.diff:      TagList.Free;
     end;
     // Scan Resources - coal
  -  TagList := GetCoalLocs(True);
  +  TagList := GetCoalMineLocs(True);
     try
       X := 0;
       Increment := Ceil(TagList.Count / 10.0); // Max 10 paths
  
positive.code:   //}
    { Stone mining tiles
    for I := 0 to fStoneMiningTiles.Count - 1 do
    begin
      Point := fStoneMiningTiles.Items[I];
      gRenderAux.Quad(Point.X, Point.Y, COLOR_RED);
    end;
    //}
    { Init forests
    for I := 0 to fInitForests.Count - 1 do
  
negative.code: end;
  
  
  function TKMEye.GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  var
    Own: Byte;
    I, K, Cnt: Integer;
  