anchor.diff:      function TileHasGold(X, Y: Word): Boolean;
   
       function TileCornerTerrain(aX, aY: Word; aCorner: Byte): Word;
  -    function TileCornerTerrains(aX, aY: Word): TKMWordArray;
  +    function TileCornersTerrains(aX, aY: Word): TKMWordArray;
   
       function TileHasRoad(const Loc: TKMPoint): Boolean; overload;
       function TileHasRoad(X,Y: Integer): Boolean; overload;
  
positive.code: 
  
  //Get tile corners terrain id
  function TKMTerrain.TileCornerTerrains(aX, aY: Word): TKMWordArray;
  const
    TOO_BIG_VALUE = 10000;
  var
  
negative.code:       and (Land[Y,X].BaseLayer.Rotation mod 4 = 0)); //only horizontal mountain edges allowed
    if not Result then
    begin
      Corners := TileCornersTerrains(X, Y);
      Result :=
        (fTileset.TileIsGold(Corners[0]) > 0)
          and (fTileset.TileIsGold(Corners[1]) > 0)
  