anchor.diff:      fBeastID: Byte;
       fWorkPlan: TUnitWorkPlan;
       function ResourceExists: Boolean;
  +    function ResourceTileIsLocked: Boolean;
       function ChooseToCutOrPlant: TPlantAct;
       procedure FindAnotherWorkPlan;
     public
  
positive.code:     fPhase := 99; //Abandon as there is no other work plan available (Exit the task on next update)
      fUnit.SetActionLockedStay(0, WorkPlan.ActionWalkTo);
    end;
  end;
  
  
  
negative.code:   Result := false;
    Assert(fUnit is TKMUnitCitizen);
    if fPhase = 2 then //Unit is walking to mine-position
      Result := ResourceTileIsLocked or //If someone takes our place
                not ResourceExists or //Resource has gone
                not TKMUnitCitizen(fUnit).CanWorkAt(WorkPlan.Loc, WorkPlan.GatheringScript);
  end;
  