anchor.diff:  end;
   
   
  -function TKMUnitCitizen.InitiateActivity: TKMUnitTask;
  +procedure TKMUnitCitizen.TaskGetWork;
   var
     res: Integer;
  -  TM: TKMTaskMining;
  -begin
  -  Result := nil;
  +  tm: TKMTaskMining;
  +begin
  +  fTask := nil;
   
     if not KMSamePoint(fPositionRound, fHome.Entrance) then
       raise ELocError.Create('Mining from wrong spot', fPositionRound);
   
     res := 1;
  -  //Check if House has production orders
  -  //Ask the house what order we should make
  +  // Check if House has production orders
  +  // Ask the house what order we should make
     if gResHouses[fHome.HouseType].DoesOrders then
     begin
       res := fHome.PickOrder;
  
positive.code: 
    TKMUnitRecruit = class(TKMSettledUnit)
    protected
      function InitiateActivity: TKMUnitTask; override;
    public
    end;
  
    //Serf - transports all wares between houses
  
negative.code:   and (fHome.CheckResOut(gResHouses[fHome.HouseType].ResOutput[res]) >= MAX_WARES_IN_HOUSE) then
      Exit;
  
    fTask := TKMTaskMining.Create(Self, gResHouses[fHome.HouseType].ResOutput[res]);
    tm := TKMTaskMining(fTask);
  
    if tm.WorkPlan.ResourceDepleted then
    begin
      if not fHome.ResourceDepleted then
        fHome.IssueResourceDepletedMsg;
  