anchor.diff:      function ChooseToCutOrPlant: TPlantAct;
       procedure FindAnotherWorkPlan;
     public
  -    constructor Create(aUnit: TKMUnit; aRes: TWareType);
  +    constructor Create(aUnit: TKMUnit; aWare: TWareType);
       destructor Destroy; override;
  -    function WalkShouldAbandon:boolean; override;
  +    function WalkShouldAbandon: Boolean; override;
       constructor Load(LoadStream: TKMemoryStream); override;
       function GetActivityText: UnicodeString;
       property WorkPlan: TUnitWorkPlan read fWorkPlan;
  
positive.code: unit KM_UnitTaskMining;
  {$I KaM_Remake.inc}
  interface
  uses Math, SysUtils,
    KM_CommonClasses, KM_Defaults, KM_Points,
    KM_Units, KM_Units_Workplan, KM_Terrain,
    KM_ResWares;
  
  
  {Perform resource mining}
  type
    TTaskMining = class(TUnitTask)
    private
  
negative.code:   if (not fUnit.GetHome.IsDestroyed) and (fUnit.GetHome.GetState = hst_Work) then
      fUnit.GetHome.SetState(hst_Idle); //Make sure we don't abandon and leave our house with "working" animations
    FreeAndNil(fWorkPlan);
  
    inherited;
  end;
  
  