anchor.diff:      //Will this change block a construction site?
       or ((Land[Y, X].TileLock in [tlFenced, tlDigged, tlHouse])
         and (not fTileSet.TileIsRoadable(aType) or not fTileset.TileIsWalkable(aType))) then
  -  begin
  -    Result := False;
  -    Exit;
  -  end;
  +    Exit(False);
   
     aDiagonalChanged := False;
   
  
positive.code:       if TileInMapCoords(X+K, Y+I) then
          //Can't put objects near houses or house sites
          if (Land[Y+I, X+K].TileLock in [tlFenced, tlDigged, tlHouse]) then
          begin
            Result := True;
            Exit;
          end;
    end;
  
    // We do not want falling trees
  
negative.code:         begin
            //Rollback change
            Land[Y, X].Height := OldHeight;
            Exit(False);
          end;
  
    //Accept change
  