anchor.diff:                            case PlantAct of
                               taCut:    if not gTerrain.CanFindTree(aLoc, gRes.Units[aUnit.UnitType].MiningRange) then
                                           ResourceDepleted := True; //No more trees to cut
  -                            taPlant:  ResourceDepleted := True;   //No place for trees to plant
  +                            taPlant:  if HW.WoodcutterMode = wcm_Plant then
  +                                        ResourceDepleted := True;   //No place for trees to plant
                             end;
                         end;
       ut_Miner:         if aHome = ht_CoalMine then
  
positive.code:   case aUnit.UnitType of
      ut_Woodcutter:    if aHome = ht_Woodcutters then
                        begin
                          TKMHouseWoodcutters(aUnit.GetHome).ValidateFlagPoint; //Validate Cutting point. It will be set to a valid one if needed.
  
                          if TKMHouseWoodcutters(aUnit.GetHome).IsFlagPointSet then
                            aLoc := TKMHouseWoodcutters(aUnit.GetHome).FlagPoint;
  
                          fIssued := ChooseTree(aLoc, KMPOINT_ZERO, gRes.Units[aUnit.UnitType].MiningRange, aPlantAct, aUnit, Tmp, PlantAct);
                          if fIssued then
  
negative.code:   I: Integer;
    Tmp: TKMPointDir;
    PlantAct: TPlantAct;
    HW: TKMHouseWoodcutters;
  begin
    Clear;
  
  