anchor.diff:        or HousesNearObject
         //Is this object allowed to be placed?
         or not AllowableObject then
  -    begin
  -      Result := False;
  -      Exit;
  -    end;
  +      Exit(False);
     end;
   
     //Did block diagonal property change? (hence xor) UpdateWalkConnect needs to know
  
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
  