anchor.diff:      Result := True;
     end;
   
  +const
  +  MAX_ROAD_DISTANCE = 50;
   var
     Output: Boolean;
     NewLoc, ExistLoc: TKMPoint;
  
positive.code:     end;
    end
    else
      RemovePlan(aHT,aIdx);
    Result := Output;
  end;
  
  
negative.code:   //  Output := true;
    //  ExistLoc := H.PointBelowEntrance;
    //end;
    if Output AND fRoadPlanner.Route_Make(KMPointBelow(NewLoc), KMPointBelow(ExistLoc), aField)
      AND ((aField.Count < MAX_ROAD_DISTANCE) OR (aHT = htWatchtower)) then
    begin
      Output := True;
      ReplaceOverlappingRoad( fPlannedHouses[aHT].Plans[aIdx].Loc );
  