anchor.diff:    fIsDead       := True;
     fThought      := thNone;
     fPositionF    := KMPOINTF_ZERO;
  -  fPosition := KMPOINT_ZERO;
  -  fPrevPosition := fPosition;
  -  fNextPosition := fPosition;
  +  fPositionRound := KMPOINT_ZERO;
  +  fPrevPosition := fPositionRound;
  +  fNextPosition := fPositionRound;
     Owner        := HAND_NONE;
     //Do not reset the unit type when they die as we still need to know during Load
     //fUnitType     := utNone;
  
positive.code: begin
    Result := nil;
  
    if not KMSamePoint(fPosition, fHome.Entrance) then
      raise ELocError.Create('Mining from wrong spot', fPosition);
  
    res := 1;
    //Check if House has production orders
  
negative.code:                         end;
      arActDone:          FreeAndNil(fAction);
    end;
    SetPositionRound(KMPointRound(fPositionF)); //will update FOW
  
    if fTask <> nil then
    begin
  