anchor.diff:    begin
       case aHT of
         htWoodcutters: FindForestAndWoodcutter();
  -      htGoldMine, htCoalMine, htIronMine, htQuary: FindPlaceForMines(aHT);
  +      htGoldMine, htCoalMine, htIronMine: FindPlaceForMines(aHT);
  +      htQuary: FindPlaceForQuary();
         htWatchTower:
         begin
           if not fDefenceTowersPlanned then
  
positive.code:     function GetFieldToHouse(aHT: TKMHouseType; aIdx: Integer; var aField: TKMPointList; var aFieldType: TKMFieldType): Boolean;
      function GetTreesInHousePlan(aHT: TKMHouseType; aIdx: Integer; var aField: TKMPointList): Byte;
      function FindForestAround(const aPoint: TKMPoint; aCountByInfluence: Boolean = False): Boolean;
  
      procedure Paint();
    end;
  
negative.code: 
  { TKMCityPlanner }
  constructor TKMCityPlanner.Create(aPlayer: TKMHandIndex);
  var
    HT: TKMHouseType;
  begin
    for HT := HOUSE_MIN to HOUSE_MAX do
      with fPlannedHouses[HT] do
      begin
        Count := 0;
        Completed := 0;
        UnderConstruction := 0;
      end;
    fTimeMeasure := 0;
    fConstructedHouses := 0;
    fOwner := aPlayer;
  