anchor.diff:      function GetDeliveries: TKMHandLogistics;
       procedure SetHandType(const Value: TKMHandType);
       procedure SetEnabled(const Value: Boolean);
  +    function GetFlagTextColor: Cardinal;
     public
   
       InCinematic: Boolean;
  
positive.code:     property CanBeHuman: Boolean read fCanBeHuman write fCanBeHuman;
      property CanBeAITypes: TKMAITypeSet read fCanBeAITypes;
      property FlagColor: Cardinal read fFlagColor write SetFlagColor;
      property TeamColor: Cardinal read fTeamColor write fTeamColor;
      property GameFlagColor: Cardinal read GetGameFlagColor;
      property FlagColorIndex: Byte read GetColorIndex;
  
negative.code: end;
  
  
  function TKMHand.GetFlagTextColor: Cardinal;
  begin
    Result := FlagColorToTextColor(fFlagColor);
  end;
  
  
  procedure TKMHand.GetFieldPlans(aList: TKMPointTagList; const aRect: TKMRect; aIncludeFake: Boolean);
  var
    I: TKMHandID;
  