anchor.diff:  procedure TKMHouseWoodcutters.ValidateCuttingPoint;
   begin
     //this will automatically update cutting point to valid value
  -  SetCuttingPoint(fCuttingPoint);
  +  fCuttingPoint := GetValidCuttingPoint(fCuttingPoint);
   end;
   
   
  
positive.code: 
  
  procedure TKMHouseWoodcutters.SetCuttingPoint(aValue: TKMPoint);
  begin
    fCuttingPoint := GetValidCuttingPoint(aValue);
  end;
  
  
  procedure TKMHouseWoodcutters.SetWoodcutterMode(aWoodcutterMode: TKMWoodcutterMode);
  begin
  
    //If we're allowed to plant only again or chop only
    //we should reshow the depleted message if we are changed to cut and run out of trees
    if (fWoodcutterMode <> aWoodcutterMode)
  
negative.code:     fWoodcutterMode: TKMWoodcutterMode;
      fCuttingPoint: TKMPoint;
      procedure SetWoodcutterMode(aWoodcutterMode: TKMWoodcutterMode);
      procedure SetCuttingPoint(aValue: TKMPoint); 
      function GetCuttingPointTexId: Word;
    public
      property WoodcutterMode: TKMWoodcutterMode read fWoodcutterMode write SetWoodcutterMode;
  