anchor.diff:            if not Placed AND (HouseReservation OR RemoveTreeInPlanProcedure)
                AND (cs_HousePlaced = AddToConstruction(HT,False,True)) then
             begin
  -            RemoveTreeInPlanProcedure := False;
  -            HouseReservation := False;
               MaxPlans := MaxPlans - 1;
               RequiredHouses[HT] := 0;
             end;
  
positive.code:   begin
      fPlanner.UpdateState(aTick); // Planner must be updated as first to secure that completed houses are actualized
      UpdateBuildNodes(aFreeWorkersCnt);
    end;
    if gAIFields.Eye.CanAddHousePlan(KMPoint(71,31), ht_WatchTower, True, False, False) then
    begin
  
    end;
  end;
  
  
negative.code:         begin
            fPlanner.PlannedHouses[aHT].Plans[HouseIdx].HouseReservation := True;
            gHands[fOwner].RemHousePlan(Loc);
          end
          else
          begin
            fPlanner.PlannedHouses[aHT].Plans[HouseIdx].HouseReservation := False;
            fPlanner.PlannedHouses[aHT].Plans[HouseIdx].RemoveTreeInPlanProcedure := False;
          end;
        end;
      end
  