anchor.diff:        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;
  +          Exit(True);
     end;
   
     // We do not want falling trees
  
positive.code:     //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;
  
    aDiagonalChanged := False;
  
  
negative.code:         begin
            //Rollback change
            Land[Y, X].Height := OldHeight;
            Exit(False);
          end;
  
    //Accept change
  