freepascal.compiler/packages/googleapi/src/googlegames.pp

unit googlegames;
{$MODE objfpc}
{$H+}

interface

uses sysutils, classes, googleservice, restbase, googlebase;

type
  
  //Top-level schema types
  TAchievementDefinition = Class;
  TAchievementDefinitionsListResponse = Class;
  TAchievementIncrementResponse = Class;
  TAchievementRevealResponse = Class;
  TAchievementSetStepsAtLeastResponse = Class;
  TAchievementUnlockResponse = Class;
  TAchievementUpdateMultipleRequest = Class;
  TAchievementUpdateMultipleResponse = Class;
  TAchievementUpdateRequest = Class;
  TAchievementUpdateResponse = Class;
  TAggregateStats = Class;
  TAnonymousPlayer = Class;
  TApplication = Class;
  TApplicationCategory = Class;
  TApplicationVerifyResponse = Class;
  TCategory = Class;
  TCategoryListResponse = Class;
  TEventBatchRecordFailure = Class;
  TEventChild = Class;
  TEventDefinition = Class;
  TEventDefinitionListResponse = Class;
  TEventPeriodRange = Class;
  TEventPeriodUpdate = Class;
  TEventRecordFailure = Class;
  TEventRecordRequest = Class;
  TEventUpdateRequest = Class;
  TEventUpdateResponse = Class;
  TGamesAchievementIncrement = Class;
  TGamesAchievementSetStepsAtLeast = Class;
  TImageAsset = Class;
  TInstance = Class;
  TInstanceAndroidDetails = Class;
  TInstanceIosDetails = Class;
  TInstanceWebDetails = Class;
  TLeaderboard = Class;
  TLeaderboardEntry = Class;
  TLeaderboardListResponse = Class;
  TLeaderboardScoreRank = Class;
  TLeaderboardScores = Class;
  TMetagameConfig = Class;
  TNetworkDiagnostics = Class;
  TParticipantResult = Class;
  TPeerChannelDiagnostics = Class;
  TPeerSessionDiagnostics = Class;
  TPlayed = Class;
  TPlayer = Class;
  TPlayerAchievement = Class;
  TPlayerAchievementListResponse = Class;
  TPlayerEvent = Class;
  TPlayerEventListResponse = Class;
  TPlayerExperienceInfo = Class;
  TPlayerLeaderboardScore = Class;
  TPlayerLeaderboardScoreListResponse = Class;
  TPlayerLevel = Class;
  TPlayerListResponse = Class;
  TPlayerScore = Class;
  TPlayerScoreListResponse = Class;
  TPlayerScoreResponse = Class;
  TPlayerScoreSubmissionList = Class;
  TProfileSettings = Class;
  TPushToken = Class;
  TPushTokenId = Class;
  TQuest = Class;
  TQuestContribution = Class;
  TQuestCriterion = Class;
  TQuestListResponse = Class;
  TQuestMilestone = Class;
  TRevisionCheckResponse = Class;
  TRoom = Class;
  TRoomAutoMatchStatus = Class;
  TRoomAutoMatchingCriteria = Class;
  TRoomClientAddress = Class;
  TRoomCreateRequest = Class;
  TRoomJoinRequest = Class;
  TRoomLeaveDiagnostics = Class;
  TRoomLeaveRequest = Class;
  TRoomList = Class;
  TRoomModification = Class;
  TRoomP2PStatus = Class;
  TRoomP2PStatuses = Class;
  TRoomParticipant = Class;
  TRoomStatus = Class;
  TScoreSubmission = Class;
  TSnapshot = Class;
  TSnapshotImage = Class;
  TSnapshotListResponse = Class;
  TTurnBasedAutoMatchingCriteria = Class;
  TTurnBasedMatch = Class;
  TTurnBasedMatchCreateRequest = Class;
  TTurnBasedMatchData = Class;
  TTurnBasedMatchDataRequest = Class;
  TTurnBasedMatchList = Class;
  TTurnBasedMatchModification = Class;
  TTurnBasedMatchParticipant = Class;
  TTurnBasedMatchRematch = Class;
  TTurnBasedMatchResults = Class;
  TTurnBasedMatchSync = Class;
  TTurnBasedMatchTurn = Class;
  TAchievementDefinitionArray = Array of TAchievementDefinition;
  TAchievementDefinitionsListResponseArray = Array of TAchievementDefinitionsListResponse;
  TAchievementIncrementResponseArray = Array of TAchievementIncrementResponse;
  TAchievementRevealResponseArray = Array of TAchievementRevealResponse;
  TAchievementSetStepsAtLeastResponseArray = Array of TAchievementSetStepsAtLeastResponse;
  TAchievementUnlockResponseArray = Array of TAchievementUnlockResponse;
  TAchievementUpdateMultipleRequestArray = Array of TAchievementUpdateMultipleRequest;
  TAchievementUpdateMultipleResponseArray = Array of TAchievementUpdateMultipleResponse;
  TAchievementUpdateRequestArray = Array of TAchievementUpdateRequest;
  TAchievementUpdateResponseArray = Array of TAchievementUpdateResponse;
  TAggregateStatsArray = Array of TAggregateStats;
  TAnonymousPlayerArray = Array of TAnonymousPlayer;
  TApplicationArray = Array of TApplication;
  TApplicationCategoryArray = Array of TApplicationCategory;
  TApplicationVerifyResponseArray = Array of TApplicationVerifyResponse;
  TCategoryArray = Array of TCategory;
  TCategoryListResponseArray = Array of TCategoryListResponse;
  TEventBatchRecordFailureArray = Array of TEventBatchRecordFailure;
  TEventChildArray = Array of TEventChild;
  TEventDefinitionArray = Array of TEventDefinition;
  TEventDefinitionListResponseArray = Array of TEventDefinitionListResponse;
  TEventPeriodRangeArray = Array of TEventPeriodRange;
  TEventPeriodUpdateArray = Array of TEventPeriodUpdate;
  TEventRecordFailureArray = Array of TEventRecordFailure;
  TEventRecordRequestArray = Array of TEventRecordRequest;
  TEventUpdateRequestArray = Array of TEventUpdateRequest;
  TEventUpdateResponseArray = Array of TEventUpdateResponse;
  TGamesAchievementIncrementArray = Array of TGamesAchievementIncrement;
  TGamesAchievementSetStepsAtLeastArray = Array of TGamesAchievementSetStepsAtLeast;
  TImageAssetArray = Array of TImageAsset;
  TInstanceArray = Array of TInstance;
  TInstanceAndroidDetailsArray = Array of TInstanceAndroidDetails;
  TInstanceIosDetailsArray = Array of TInstanceIosDetails;
  TInstanceWebDetailsArray = Array of TInstanceWebDetails;
  TLeaderboardArray = Array of TLeaderboard;
  TLeaderboardEntryArray = Array of TLeaderboardEntry;
  TLeaderboardListResponseArray = Array of TLeaderboardListResponse;
  TLeaderboardScoreRankArray = Array of TLeaderboardScoreRank;
  TLeaderboardScoresArray = Array of TLeaderboardScores;
  TMetagameConfigArray = Array of TMetagameConfig;
  TNetworkDiagnosticsArray = Array of TNetworkDiagnostics;
  TParticipantResultArray = Array of TParticipantResult;
  TPeerChannelDiagnosticsArray = Array of TPeerChannelDiagnostics;
  TPeerSessionDiagnosticsArray = Array of TPeerSessionDiagnostics;
  TPlayedArray = Array of TPlayed;
  TPlayerArray = Array of TPlayer;
  TPlayerAchievementArray = Array of TPlayerAchievement;
  TPlayerAchievementListResponseArray = Array of TPlayerAchievementListResponse;
  TPlayerEventArray = Array of TPlayerEvent;
  TPlayerEventListResponseArray = Array of TPlayerEventListResponse;
  TPlayerExperienceInfoArray = Array of TPlayerExperienceInfo;
  TPlayerLeaderboardScoreArray = Array of TPlayerLeaderboardScore;
  TPlayerLeaderboardScoreListResponseArray = Array of TPlayerLeaderboardScoreListResponse;
  TPlayerLevelArray = Array of TPlayerLevel;
  TPlayerListResponseArray = Array of TPlayerListResponse;
  TPlayerScoreArray = Array of TPlayerScore;
  TPlayerScoreListResponseArray = Array of TPlayerScoreListResponse;
  TPlayerScoreResponseArray = Array of TPlayerScoreResponse;
  TPlayerScoreSubmissionListArray = Array of TPlayerScoreSubmissionList;
  TProfileSettingsArray = Array of TProfileSettings;
  TPushTokenArray = Array of TPushToken;
  TPushTokenIdArray = Array of TPushTokenId;
  TQuestArray = Array of TQuest;
  TQuestContributionArray = Array of TQuestContribution;
  TQuestCriterionArray = Array of TQuestCriterion;
  TQuestListResponseArray = Array of TQuestListResponse;
  TQuestMilestoneArray = Array of TQuestMilestone;
  TRevisionCheckResponseArray = Array of TRevisionCheckResponse;
  TRoomArray = Array of TRoom;
  TRoomAutoMatchStatusArray = Array of TRoomAutoMatchStatus;
  TRoomAutoMatchingCriteriaArray = Array of TRoomAutoMatchingCriteria;
  TRoomClientAddressArray = Array of TRoomClientAddress;
  TRoomCreateRequestArray = Array of TRoomCreateRequest;
  TRoomJoinRequestArray = Array of TRoomJoinRequest;
  TRoomLeaveDiagnosticsArray = Array of TRoomLeaveDiagnostics;
  TRoomLeaveRequestArray = Array of TRoomLeaveRequest;
  TRoomListArray = Array of TRoomList;
  TRoomModificationArray = Array of TRoomModification;
  TRoomP2PStatusArray = Array of TRoomP2PStatus;
  TRoomP2PStatusesArray = Array of TRoomP2PStatuses;
  TRoomParticipantArray = Array of TRoomParticipant;
  TRoomStatusArray = Array of TRoomStatus;
  TScoreSubmissionArray = Array of TScoreSubmission;
  TSnapshotArray = Array of TSnapshot;
  TSnapshotImageArray = Array of TSnapshotImage;
  TSnapshotListResponseArray = Array of TSnapshotListResponse;
  TTurnBasedAutoMatchingCriteriaArray = Array of TTurnBasedAutoMatchingCriteria;
  TTurnBasedMatchArray = Array of TTurnBasedMatch;
  TTurnBasedMatchCreateRequestArray = Array of TTurnBasedMatchCreateRequest;
  TTurnBasedMatchDataArray = Array of TTurnBasedMatchData;
  TTurnBasedMatchDataRequestArray = Array of TTurnBasedMatchDataRequest;
  TTurnBasedMatchListArray = Array of TTurnBasedMatchList;
  TTurnBasedMatchModificationArray = Array of TTurnBasedMatchModification;
  TTurnBasedMatchParticipantArray = Array of TTurnBasedMatchParticipant;
  TTurnBasedMatchRematchArray = Array of TTurnBasedMatchRematch;
  TTurnBasedMatchResultsArray = Array of TTurnBasedMatchResults;
  TTurnBasedMatchSyncArray = Array of TTurnBasedMatchSync;
  TTurnBasedMatchTurnArray = Array of TTurnBasedMatchTurn;
  //Anonymous types, using auto-generated names
  TPlayerTypename = Class;
  TPushTokenIdTypeios = Class;
  TAchievementDefinitionsListResponseTypeitemsArray = Array of TAchievementDefinition;
  TAchievementUpdateMultipleRequestTypeupdatesArray = Array of TAchievementUpdateRequest;
  TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray = Array of TAchievementUpdateResponse;
  TApplicationTypeassetsArray = Array of TImageAsset;
  TApplicationTypeinstancesArray = Array of TInstance;
  TCategoryListResponseTypeitemsArray = Array of TCategory;
  TEventDefinitionTypechildEventsArray = Array of TEventChild;
  TEventDefinitionListResponseTypeitemsArray = Array of TEventDefinition;
  TEventPeriodUpdateTypeupdatesArray = Array of TEventUpdateRequest;
  TEventRecordRequestTypetimePeriodsArray = Array of TEventPeriodUpdate;
  TEventUpdateResponseTypebatchFailuresArray = Array of TEventBatchRecordFailure;
  TEventUpdateResponseTypeeventFailuresArray = Array of TEventRecordFailure;
  TEventUpdateResponseTypeplayerEventsArray = Array of TPlayerEvent;
  TLeaderboardListResponseTypeitemsArray = Array of TLeaderboard;
  TLeaderboardScoresTypeitemsArray = Array of TLeaderboardEntry;
  TMetagameConfigTypeplayerLevelsArray = Array of TPlayerLevel;
  TPlayerAchievementListResponseTypeitemsArray = Array of TPlayerAchievement;
  TPlayerEventListResponseTypeitemsArray = Array of TPlayerEvent;
  TPlayerLeaderboardScoreListResponseTypeitemsArray = Array of TPlayerLeaderboardScore;
  TPlayerListResponseTypeitemsArray = Array of TPlayer;
  TPlayerScoreListResponseTypesubmittedScoresArray = Array of TPlayerScoreResponse;
  TPlayerScoreResponseTypeunbeatenScoresArray = Array of TPlayerScore;
  TPlayerScoreSubmissionListTypescoresArray = Array of TScoreSubmission;
  TQuestTypemilestonesArray = Array of TQuestMilestone;
  TQuestListResponseTypeitemsArray = Array of TQuest;
  TQuestMilestoneTypecriteriaArray = Array of TQuestCriterion;
  TRoomTypeparticipantsArray = Array of TRoomParticipant;
  TRoomLeaveDiagnosticsTypepeerSessionArray = Array of TPeerSessionDiagnostics;
  TRoomListTypeitemsArray = Array of TRoom;
  TRoomP2PStatusesTypeupdatesArray = Array of TRoomP2PStatus;
  TRoomStatusTypeparticipantsArray = Array of TRoomParticipant;
  TSnapshotListResponseTypeitemsArray = Array of TSnapshot;
  TTurnBasedMatchTypeparticipantsArray = Array of TTurnBasedMatchParticipant;
  TTurnBasedMatchTyperesultsArray = Array of TParticipantResult;
  TTurnBasedMatchListTypeitemsArray = Array of TTurnBasedMatch;
  TTurnBasedMatchResultsTyperesultsArray = Array of TParticipantResult;
  TTurnBasedMatchSyncTypeitemsArray = Array of TTurnBasedMatch;
  TTurnBasedMatchTurnTyperesultsArray = Array of TParticipantResult;
  
  { --------------------------------------------------------------------
    TAchievementDefinition
    --------------------------------------------------------------------}
  
  TAchievementDefinition = Class(TGoogleBaseObject)
  Private
    FachievementType : String;
    Fdescription : String;
    FexperiencePoints : String;
    FformattedTotalSteps : String;
    Fid : String;
    FinitialState : String;
    FisRevealedIconUrlDefault : boolean;
    FisUnlockedIconUrlDefault : boolean;
    Fkind : String;
    Fname : String;
    FrevealedIconUrl : String;
    FtotalSteps : integer;
    FunlockedIconUrl : String;
  Protected
    //Property setters
    Procedure SetachievementType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetexperiencePoints(AIndex : Integer; const AValue : String); virtual;
    Procedure SetformattedTotalSteps(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinitialState(AIndex : Integer; const AValue : String); virtual;
    Procedure SetisRevealedIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetisUnlockedIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrevealedIconUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure SettotalSteps(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetunlockedIconUrl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property achievementType : String Index 0 Read FachievementType Write SetachievementType;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property experiencePoints : String Index 16 Read FexperiencePoints Write SetexperiencePoints;
    Property formattedTotalSteps : String Index 24 Read FformattedTotalSteps Write SetformattedTotalSteps;
    Property id : String Index 32 Read Fid Write Setid;
    Property initialState : String Index 40 Read FinitialState Write SetinitialState;
    Property isRevealedIconUrlDefault : boolean Index 48 Read FisRevealedIconUrlDefault Write SetisRevealedIconUrlDefault;
    Property isUnlockedIconUrlDefault : boolean Index 56 Read FisUnlockedIconUrlDefault Write SetisUnlockedIconUrlDefault;
    Property kind : String Index 64 Read Fkind Write Setkind;
    Property name : String Index 72 Read Fname Write Setname;
    Property revealedIconUrl : String Index 80 Read FrevealedIconUrl Write SetrevealedIconUrl;
    Property totalSteps : integer Index 88 Read FtotalSteps Write SettotalSteps;
    Property unlockedIconUrl : String Index 96 Read FunlockedIconUrl Write SetunlockedIconUrl;
  end;
  TAchievementDefinitionClass = Class of TAchievementDefinition;
  
  { --------------------------------------------------------------------
    TAchievementDefinitionsListResponse
    --------------------------------------------------------------------}
  
  TAchievementDefinitionsListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TAchievementDefinitionsListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TAchievementDefinitionsListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TAchievementDefinitionsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TAchievementDefinitionsListResponseClass = Class of TAchievementDefinitionsListResponse;
  
  { --------------------------------------------------------------------
    TAchievementIncrementResponse
    --------------------------------------------------------------------}
  
  TAchievementIncrementResponse = Class(TGoogleBaseObject)
  Private
    FcurrentSteps : integer;
    Fkind : String;
    FnewlyUnlocked : boolean;
  Protected
    //Property setters
    Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property currentSteps : integer Index 0 Read FcurrentSteps Write SetcurrentSteps;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property newlyUnlocked : boolean Index 16 Read FnewlyUnlocked Write SetnewlyUnlocked;
  end;
  TAchievementIncrementResponseClass = Class of TAchievementIncrementResponse;
  
  { --------------------------------------------------------------------
    TAchievementRevealResponse
    --------------------------------------------------------------------}
  
  TAchievementRevealResponse = Class(TGoogleBaseObject)
  Private
    FcurrentState : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property currentState : String Index 0 Read FcurrentState Write SetcurrentState;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TAchievementRevealResponseClass = Class of TAchievementRevealResponse;
  
  { --------------------------------------------------------------------
    TAchievementSetStepsAtLeastResponse
    --------------------------------------------------------------------}
  
  TAchievementSetStepsAtLeastResponse = Class(TGoogleBaseObject)
  Private
    FcurrentSteps : integer;
    Fkind : String;
    FnewlyUnlocked : boolean;
  Protected
    //Property setters
    Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property currentSteps : integer Index 0 Read FcurrentSteps Write SetcurrentSteps;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property newlyUnlocked : boolean Index 16 Read FnewlyUnlocked Write SetnewlyUnlocked;
  end;
  TAchievementSetStepsAtLeastResponseClass = Class of TAchievementSetStepsAtLeastResponse;
  
  { --------------------------------------------------------------------
    TAchievementUnlockResponse
    --------------------------------------------------------------------}
  
  TAchievementUnlockResponse = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FnewlyUnlocked : boolean;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property newlyUnlocked : boolean Index 8 Read FnewlyUnlocked Write SetnewlyUnlocked;
  end;
  TAchievementUnlockResponseClass = Class of TAchievementUnlockResponse;
  
  { --------------------------------------------------------------------
    TAchievementUpdateMultipleRequest
    --------------------------------------------------------------------}
  
  TAchievementUpdateMultipleRequest = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fupdates : TAchievementUpdateMultipleRequestTypeupdatesArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdates(AIndex : Integer; const AValue : TAchievementUpdateMultipleRequestTypeupdatesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property updates : TAchievementUpdateMultipleRequestTypeupdatesArray Index 8 Read Fupdates Write Setupdates;
  end;
  TAchievementUpdateMultipleRequestClass = Class of TAchievementUpdateMultipleRequest;
  
  { --------------------------------------------------------------------
    TAchievementUpdateMultipleResponse
    --------------------------------------------------------------------}
  
  TAchievementUpdateMultipleResponse = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FupdatedAchievements : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetupdatedAchievements(AIndex : Integer; const AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property updatedAchievements : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray Index 8 Read FupdatedAchievements Write SetupdatedAchievements;
  end;
  TAchievementUpdateMultipleResponseClass = Class of TAchievementUpdateMultipleResponse;
  
  { --------------------------------------------------------------------
    TAchievementUpdateRequest
    --------------------------------------------------------------------}
  
  TAchievementUpdateRequest = Class(TGoogleBaseObject)
  Private
    FachievementId : String;
    FincrementPayload : TGamesAchievementIncrement;
    Fkind : String;
    FsetStepsAtLeastPayload : TGamesAchievementSetStepsAtLeast;
    FupdateType : String;
  Protected
    //Property setters
    Procedure SetachievementId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetincrementPayload(AIndex : Integer; const AValue : TGamesAchievementIncrement); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsetStepsAtLeastPayload(AIndex : Integer; const AValue : TGamesAchievementSetStepsAtLeast); virtual;
    Procedure SetupdateType(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property achievementId : String Index 0 Read FachievementId Write SetachievementId;
    Property incrementPayload : TGamesAchievementIncrement Index 8 Read FincrementPayload Write SetincrementPayload;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property setStepsAtLeastPayload : TGamesAchievementSetStepsAtLeast Index 24 Read FsetStepsAtLeastPayload Write SetsetStepsAtLeastPayload;
    Property updateType : String Index 32 Read FupdateType Write SetupdateType;
  end;
  TAchievementUpdateRequestClass = Class of TAchievementUpdateRequest;
  
  { --------------------------------------------------------------------
    TAchievementUpdateResponse
    --------------------------------------------------------------------}
  
  TAchievementUpdateResponse = Class(TGoogleBaseObject)
  Private
    FachievementId : String;
    FcurrentState : String;
    FcurrentSteps : integer;
    Fkind : String;
    FnewlyUnlocked : boolean;
    FupdateOccurred : boolean;
  Protected
    //Property setters
    Procedure SetachievementId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetupdateOccurred(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property achievementId : String Index 0 Read FachievementId Write SetachievementId;
    Property currentState : String Index 8 Read FcurrentState Write SetcurrentState;
    Property currentSteps : integer Index 16 Read FcurrentSteps Write SetcurrentSteps;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property newlyUnlocked : boolean Index 32 Read FnewlyUnlocked Write SetnewlyUnlocked;
    Property updateOccurred : boolean Index 40 Read FupdateOccurred Write SetupdateOccurred;
  end;
  TAchievementUpdateResponseClass = Class of TAchievementUpdateResponse;
  
  { --------------------------------------------------------------------
    TAggregateStats
    --------------------------------------------------------------------}
  
  TAggregateStats = Class(TGoogleBaseObject)
  Private
    Fcount : String;
    Fkind : String;
    Fmax : String;
    Fmin : String;
    Fsum : String;
  Protected
    //Property setters
    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmax(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmin(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsum(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property count : String Index 0 Read Fcount Write Setcount;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property max : String Index 16 Read Fmax Write Setmax;
    Property min : String Index 24 Read Fmin Write Setmin;
    Property sum : String Index 32 Read Fsum Write Setsum;
  end;
  TAggregateStatsClass = Class of TAggregateStats;
  
  { --------------------------------------------------------------------
    TAnonymousPlayer
    --------------------------------------------------------------------}
  
  TAnonymousPlayer = Class(TGoogleBaseObject)
  Private
    FavatarImageUrl : String;
    FdisplayName : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetavatarImageUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property avatarImageUrl : String Index 0 Read FavatarImageUrl Write SetavatarImageUrl;
    Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TAnonymousPlayerClass = Class of TAnonymousPlayer;
  
  { --------------------------------------------------------------------
    TApplication
    --------------------------------------------------------------------}
  
  TApplication = Class(TGoogleBaseObject)
  Private
    Fachievement_count : integer;
    Fassets : TApplicationTypeassetsArray;
    Fauthor : String;
    Fcategory : TApplicationCategory;
    Fdescription : String;
    FenabledFeatures : TStringArray;
    Fid : String;
    Finstances : TApplicationTypeinstancesArray;
    Fkind : String;
    FlastUpdatedTimestamp : String;
    Fleaderboard_count : integer;
    Fname : String;
    FthemeColor : String;
  Protected
    //Property setters
    Procedure Setachievement_count(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setassets(AIndex : Integer; const AValue : TApplicationTypeassetsArray); virtual;
    Procedure Setauthor(AIndex : Integer; const AValue : String); virtual;
    Procedure Setcategory(AIndex : Integer; const AValue : TApplicationCategory); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setinstances(AIndex : Integer; const AValue : TApplicationTypeinstancesArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastUpdatedTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setleaderboard_count(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetthemeColor(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property achievement_count : integer Index 0 Read Fachievement_count Write Setachievement_count;
    Property assets : TApplicationTypeassetsArray Index 8 Read Fassets Write Setassets;
    Property author : String Index 16 Read Fauthor Write Setauthor;
    Property category : TApplicationCategory Index 24 Read Fcategory Write Setcategory;
    Property description : String Index 32 Read Fdescription Write Setdescription;
    Property enabledFeatures : TStringArray Index 40 Read FenabledFeatures Write SetenabledFeatures;
    Property id : String Index 48 Read Fid Write Setid;
    Property instances : TApplicationTypeinstancesArray Index 56 Read Finstances Write Setinstances;
    Property kind : String Index 64 Read Fkind Write Setkind;
    Property lastUpdatedTimestamp : String Index 72 Read FlastUpdatedTimestamp Write SetlastUpdatedTimestamp;
    Property leaderboard_count : integer Index 80 Read Fleaderboard_count Write Setleaderboard_count;
    Property name : String Index 88 Read Fname Write Setname;
    Property themeColor : String Index 96 Read FthemeColor Write SetthemeColor;
  end;
  TApplicationClass = Class of TApplication;
  
  { --------------------------------------------------------------------
    TApplicationCategory
    --------------------------------------------------------------------}
  
  TApplicationCategory = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fprimary : String;
    Fsecondary : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setprimary(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsecondary(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property primary : String Index 8 Read Fprimary Write Setprimary;
    Property secondary : String Index 16 Read Fsecondary Write Setsecondary;
  end;
  TApplicationCategoryClass = Class of TApplicationCategory;
  
  { --------------------------------------------------------------------
    TApplicationVerifyResponse
    --------------------------------------------------------------------}
  
  TApplicationVerifyResponse = Class(TGoogleBaseObject)
  Private
    Falternate_player_id : String;
    Fkind : String;
    Fplayer_id : String;
  Protected
    //Property setters
    Procedure Setalternate_player_id(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplayer_id(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property alternate_player_id : String Index 0 Read Falternate_player_id Write Setalternate_player_id;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property player_id : String Index 16 Read Fplayer_id Write Setplayer_id;
  end;
  TApplicationVerifyResponseClass = Class of TApplicationVerifyResponse;
  
  { --------------------------------------------------------------------
    TCategory
    --------------------------------------------------------------------}
  
  TCategory = Class(TGoogleBaseObject)
  Private
    Fcategory : String;
    FexperiencePoints : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
    Procedure SetexperiencePoints(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property category : String Index 0 Read Fcategory Write Setcategory;
    Property experiencePoints : String Index 8 Read FexperiencePoints Write SetexperiencePoints;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TCategoryClass = Class of TCategory;
  
  { --------------------------------------------------------------------
    TCategoryListResponse
    --------------------------------------------------------------------}
  
  TCategoryListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TCategoryListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TCategoryListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TCategoryListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TCategoryListResponseClass = Class of TCategoryListResponse;
  
  { --------------------------------------------------------------------
    TEventBatchRecordFailure
    --------------------------------------------------------------------}
  
  TEventBatchRecordFailure = Class(TGoogleBaseObject)
  Private
    FfailureCause : String;
    Fkind : String;
    Frange : TEventPeriodRange;
  Protected
    //Property setters
    Procedure SetfailureCause(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setrange(AIndex : Integer; const AValue : TEventPeriodRange); virtual;
  Public
  Published
    Property failureCause : String Index 0 Read FfailureCause Write SetfailureCause;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property range : TEventPeriodRange Index 16 Read Frange Write Setrange;
  end;
  TEventBatchRecordFailureClass = Class of TEventBatchRecordFailure;
  
  { --------------------------------------------------------------------
    TEventChild
    --------------------------------------------------------------------}
  
  TEventChild = Class(TGoogleBaseObject)
  Private
    FchildId : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetchildId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property childId : String Index 0 Read FchildId Write SetchildId;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TEventChildClass = Class of TEventChild;
  
  { --------------------------------------------------------------------
    TEventDefinition
    --------------------------------------------------------------------}
  
  TEventDefinition = Class(TGoogleBaseObject)
  Private
    FchildEvents : TEventDefinitionTypechildEventsArray;
    Fdescription : String;
    FdisplayName : String;
    Fid : String;
    FimageUrl : String;
    FisDefaultImageUrl : boolean;
    Fkind : String;
    Fvisibility : String;
  Protected
    //Property setters
    Procedure SetchildEvents(AIndex : Integer; const AValue : TEventDefinitionTypechildEventsArray); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure SetisDefaultImageUrl(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property childEvents : TEventDefinitionTypechildEventsArray Index 0 Read FchildEvents Write SetchildEvents;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
    Property id : String Index 24 Read Fid Write Setid;
    Property imageUrl : String Index 32 Read FimageUrl Write SetimageUrl;
    Property isDefaultImageUrl : boolean Index 40 Read FisDefaultImageUrl Write SetisDefaultImageUrl;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property visibility : String Index 56 Read Fvisibility Write Setvisibility;
  end;
  TEventDefinitionClass = Class of TEventDefinition;
  
  { --------------------------------------------------------------------
    TEventDefinitionListResponse
    --------------------------------------------------------------------}
  
  TEventDefinitionListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TEventDefinitionListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TEventDefinitionListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TEventDefinitionListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TEventDefinitionListResponseClass = Class of TEventDefinitionListResponse;
  
  { --------------------------------------------------------------------
    TEventPeriodRange
    --------------------------------------------------------------------}
  
  TEventPeriodRange = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FperiodEndMillis : String;
    FperiodStartMillis : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetperiodEndMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetperiodStartMillis(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property periodEndMillis : String Index 8 Read FperiodEndMillis Write SetperiodEndMillis;
    Property periodStartMillis : String Index 16 Read FperiodStartMillis Write SetperiodStartMillis;
  end;
  TEventPeriodRangeClass = Class of TEventPeriodRange;
  
  { --------------------------------------------------------------------
    TEventPeriodUpdate
    --------------------------------------------------------------------}
  
  TEventPeriodUpdate = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FtimePeriod : TEventPeriodRange;
    Fupdates : TEventPeriodUpdateTypeupdatesArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimePeriod(AIndex : Integer; const AValue : TEventPeriodRange); virtual;
    Procedure Setupdates(AIndex : Integer; const AValue : TEventPeriodUpdateTypeupdatesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property timePeriod : TEventPeriodRange Index 8 Read FtimePeriod Write SettimePeriod;
    Property updates : TEventPeriodUpdateTypeupdatesArray Index 16 Read Fupdates Write Setupdates;
  end;
  TEventPeriodUpdateClass = Class of TEventPeriodUpdate;
  
  { --------------------------------------------------------------------
    TEventRecordFailure
    --------------------------------------------------------------------}
  
  TEventRecordFailure = Class(TGoogleBaseObject)
  Private
    FeventId : String;
    FfailureCause : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetfailureCause(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property eventId : String Index 0 Read FeventId Write SeteventId;
    Property failureCause : String Index 8 Read FfailureCause Write SetfailureCause;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TEventRecordFailureClass = Class of TEventRecordFailure;
  
  { --------------------------------------------------------------------
    TEventRecordRequest
    --------------------------------------------------------------------}
  
  TEventRecordRequest = Class(TGoogleBaseObject)
  Private
    FcurrentTimeMillis : String;
    Fkind : String;
    FrequestId : String;
    FtimePeriods : TEventRecordRequestTypetimePeriodsArray;
  Protected
    //Property setters
    Procedure SetcurrentTimeMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimePeriods(AIndex : Integer; const AValue : TEventRecordRequestTypetimePeriodsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property currentTimeMillis : String Index 0 Read FcurrentTimeMillis Write SetcurrentTimeMillis;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property requestId : String Index 16 Read FrequestId Write SetrequestId;
    Property timePeriods : TEventRecordRequestTypetimePeriodsArray Index 24 Read FtimePeriods Write SettimePeriods;
  end;
  TEventRecordRequestClass = Class of TEventRecordRequest;
  
  { --------------------------------------------------------------------
    TEventUpdateRequest
    --------------------------------------------------------------------}
  
  TEventUpdateRequest = Class(TGoogleBaseObject)
  Private
    FdefinitionId : String;
    Fkind : String;
    FupdateCount : String;
  Protected
    //Property setters
    Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetupdateCount(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property definitionId : String Index 0 Read FdefinitionId Write SetdefinitionId;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property updateCount : String Index 16 Read FupdateCount Write SetupdateCount;
  end;
  TEventUpdateRequestClass = Class of TEventUpdateRequest;
  
  { --------------------------------------------------------------------
    TEventUpdateResponse
    --------------------------------------------------------------------}
  
  TEventUpdateResponse = Class(TGoogleBaseObject)
  Private
    FbatchFailures : TEventUpdateResponseTypebatchFailuresArray;
    FeventFailures : TEventUpdateResponseTypeeventFailuresArray;
    Fkind : String;
    FplayerEvents : TEventUpdateResponseTypeplayerEventsArray;
  Protected
    //Property setters
    Procedure SetbatchFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypebatchFailuresArray); virtual;
    Procedure SeteventFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypeeventFailuresArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplayerEvents(AIndex : Integer; const AValue : TEventUpdateResponseTypeplayerEventsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property batchFailures : TEventUpdateResponseTypebatchFailuresArray Index 0 Read FbatchFailures Write SetbatchFailures;
    Property eventFailures : TEventUpdateResponseTypeeventFailuresArray Index 8 Read FeventFailures Write SeteventFailures;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property playerEvents : TEventUpdateResponseTypeplayerEventsArray Index 24 Read FplayerEvents Write SetplayerEvents;
  end;
  TEventUpdateResponseClass = Class of TEventUpdateResponse;
  
  { --------------------------------------------------------------------
    TGamesAchievementIncrement
    --------------------------------------------------------------------}
  
  TGamesAchievementIncrement = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FrequestId : String;
    Fsteps : integer;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsteps(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property requestId : String Index 8 Read FrequestId Write SetrequestId;
    Property steps : integer Index 16 Read Fsteps Write Setsteps;
  end;
  TGamesAchievementIncrementClass = Class of TGamesAchievementIncrement;
  
  { --------------------------------------------------------------------
    TGamesAchievementSetStepsAtLeast
    --------------------------------------------------------------------}
  
  TGamesAchievementSetStepsAtLeast = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fsteps : integer;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsteps(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property steps : integer Index 8 Read Fsteps Write Setsteps;
  end;
  TGamesAchievementSetStepsAtLeastClass = Class of TGamesAchievementSetStepsAtLeast;
  
  { --------------------------------------------------------------------
    TImageAsset
    --------------------------------------------------------------------}
  
  TImageAsset = Class(TGoogleBaseObject)
  Private
    Fheight : integer;
    Fkind : String;
    Fname : String;
    Furl : String;
    Fwidth : integer;
  Protected
    //Property setters
    Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property height : integer Index 0 Read Fheight Write Setheight;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property name : String Index 16 Read Fname Write Setname;
    Property url : String Index 24 Read Furl Write Seturl;
    Property width : integer Index 32 Read Fwidth Write Setwidth;
  end;
  TImageAssetClass = Class of TImageAsset;
  
  { --------------------------------------------------------------------
    TInstance
    --------------------------------------------------------------------}
  
  TInstance = Class(TGoogleBaseObject)
  Private
    FacquisitionUri : String;
    FandroidInstance : TInstanceAndroidDetails;
    FiosInstance : TInstanceIosDetails;
    Fkind : String;
    Fname : String;
    FplatformType : String;
    FrealtimePlay : boolean;
    FturnBasedPlay : boolean;
    FwebInstance : TInstanceWebDetails;
  Protected
    //Property setters
    Procedure SetacquisitionUri(AIndex : Integer; const AValue : String); virtual;
    Procedure SetandroidInstance(AIndex : Integer; const AValue : TInstanceAndroidDetails); virtual;
    Procedure SetiosInstance(AIndex : Integer; const AValue : TInstanceIosDetails); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrealtimePlay(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetturnBasedPlay(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetwebInstance(AIndex : Integer; const AValue : TInstanceWebDetails); virtual;
  Public
  Published
    Property acquisitionUri : String Index 0 Read FacquisitionUri Write SetacquisitionUri;
    Property androidInstance : TInstanceAndroidDetails Index 8 Read FandroidInstance Write SetandroidInstance;
    Property iosInstance : TInstanceIosDetails Index 16 Read FiosInstance Write SetiosInstance;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property name : String Index 32 Read Fname Write Setname;
    Property platformType : String Index 40 Read FplatformType Write SetplatformType;
    Property realtimePlay : boolean Index 48 Read FrealtimePlay Write SetrealtimePlay;
    Property turnBasedPlay : boolean Index 56 Read FturnBasedPlay Write SetturnBasedPlay;
    Property webInstance : TInstanceWebDetails Index 64 Read FwebInstance Write SetwebInstance;
  end;
  TInstanceClass = Class of TInstance;
  
  { --------------------------------------------------------------------
    TInstanceAndroidDetails
    --------------------------------------------------------------------}
  
  TInstanceAndroidDetails = Class(TGoogleBaseObject)
  Private
    FenablePiracyCheck : boolean;
    Fkind : String;
    FpackageName : String;
    Fpreferred : boolean;
  Protected
    //Property setters
    Procedure SetenablePiracyCheck(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpreferred(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property enablePiracyCheck : boolean Index 0 Read FenablePiracyCheck Write SetenablePiracyCheck;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property packageName : String Index 16 Read FpackageName Write SetpackageName;
    Property preferred : boolean Index 24 Read Fpreferred Write Setpreferred;
  end;
  TInstanceAndroidDetailsClass = Class of TInstanceAndroidDetails;
  
  { --------------------------------------------------------------------
    TInstanceIosDetails
    --------------------------------------------------------------------}
  
  TInstanceIosDetails = Class(TGoogleBaseObject)
  Private
    FbundleIdentifier : String;
    FitunesAppId : String;
    Fkind : String;
    FpreferredForIpad : boolean;
    FpreferredForIphone : boolean;
    FsupportIpad : boolean;
    FsupportIphone : boolean;
  Protected
    //Property setters
    Procedure SetbundleIdentifier(AIndex : Integer; const AValue : String); virtual;
    Procedure SetitunesAppId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpreferredForIpad(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetpreferredForIphone(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetsupportIpad(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetsupportIphone(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property bundleIdentifier : String Index 0 Read FbundleIdentifier Write SetbundleIdentifier;
    Property itunesAppId : String Index 8 Read FitunesAppId Write SetitunesAppId;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property preferredForIpad : boolean Index 24 Read FpreferredForIpad Write SetpreferredForIpad;
    Property preferredForIphone : boolean Index 32 Read FpreferredForIphone Write SetpreferredForIphone;
    Property supportIpad : boolean Index 40 Read FsupportIpad Write SetsupportIpad;
    Property supportIphone : boolean Index 48 Read FsupportIphone Write SetsupportIphone;
  end;
  TInstanceIosDetailsClass = Class of TInstanceIosDetails;
  
  { --------------------------------------------------------------------
    TInstanceWebDetails
    --------------------------------------------------------------------}
  
  TInstanceWebDetails = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FlaunchUrl : String;
    Fpreferred : boolean;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlaunchUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpreferred(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property launchUrl : String Index 8 Read FlaunchUrl Write SetlaunchUrl;
    Property preferred : boolean Index 16 Read Fpreferred Write Setpreferred;
  end;
  TInstanceWebDetailsClass = Class of TInstanceWebDetails;
  
  { --------------------------------------------------------------------
    TLeaderboard
    --------------------------------------------------------------------}
  
  TLeaderboard = Class(TGoogleBaseObject)
  Private
    FiconUrl : String;
    Fid : String;
    FisIconUrlDefault : boolean;
    Fkind : String;
    Fname : String;
    Forder : String;
  Protected
    //Property setters
    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetisIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setorder(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property iconUrl : String Index 0 Read FiconUrl Write SeticonUrl;
    Property id : String Index 8 Read Fid Write Setid;
    Property isIconUrlDefault : boolean Index 16 Read FisIconUrlDefault Write SetisIconUrlDefault;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property name : String Index 32 Read Fname Write Setname;
    Property order : String Index 40 Read Forder Write Setorder;
  end;
  TLeaderboardClass = Class of TLeaderboard;
  
  { --------------------------------------------------------------------
    TLeaderboardEntry
    --------------------------------------------------------------------}
  
  TLeaderboardEntry = Class(TGoogleBaseObject)
  Private
    FformattedScore : String;
    FformattedScoreRank : String;
    Fkind : String;
    Fplayer : TPlayer;
    FscoreRank : String;
    FscoreTag : String;
    FscoreValue : String;
    FtimeSpan : String;
    FwriteTimestampMillis : String;
  Protected
    //Property setters
    Procedure SetformattedScore(AIndex : Integer; const AValue : String); virtual;
    Procedure SetformattedScoreRank(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
    Procedure SetscoreRank(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreValue(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeSpan(AIndex : Integer; const AValue : String); virtual;
    Procedure SetwriteTimestampMillis(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property formattedScore : String Index 0 Read FformattedScore Write SetformattedScore;
    Property formattedScoreRank : String Index 8 Read FformattedScoreRank Write SetformattedScoreRank;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property player : TPlayer Index 24 Read Fplayer Write Setplayer;
    Property scoreRank : String Index 32 Read FscoreRank Write SetscoreRank;
    Property scoreTag : String Index 40 Read FscoreTag Write SetscoreTag;
    Property scoreValue : String Index 48 Read FscoreValue Write SetscoreValue;
    Property timeSpan : String Index 56 Read FtimeSpan Write SettimeSpan;
    Property writeTimestampMillis : String Index 64 Read FwriteTimestampMillis Write SetwriteTimestampMillis;
  end;
  TLeaderboardEntryClass = Class of TLeaderboardEntry;
  
  { --------------------------------------------------------------------
    TLeaderboardListResponse
    --------------------------------------------------------------------}
  
  TLeaderboardListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TLeaderboardListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TLeaderboardListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TLeaderboardListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TLeaderboardListResponseClass = Class of TLeaderboardListResponse;
  
  { --------------------------------------------------------------------
    TLeaderboardScoreRank
    --------------------------------------------------------------------}
  
  TLeaderboardScoreRank = Class(TGoogleBaseObject)
  Private
    FformattedNumScores : String;
    FformattedRank : String;
    Fkind : String;
    FnumScores : String;
    Frank : String;
  Protected
    //Property setters
    Procedure SetformattedNumScores(AIndex : Integer; const AValue : String); virtual;
    Procedure SetformattedRank(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnumScores(AIndex : Integer; const AValue : String); virtual;
    Procedure Setrank(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property formattedNumScores : String Index 0 Read FformattedNumScores Write SetformattedNumScores;
    Property formattedRank : String Index 8 Read FformattedRank Write SetformattedRank;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property numScores : String Index 24 Read FnumScores Write SetnumScores;
    Property rank : String Index 32 Read Frank Write Setrank;
  end;
  TLeaderboardScoreRankClass = Class of TLeaderboardScoreRank;
  
  { --------------------------------------------------------------------
    TLeaderboardScores
    --------------------------------------------------------------------}
  
  TLeaderboardScores = Class(TGoogleBaseObject)
  Private
    Fitems : TLeaderboardScoresTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FnumScores : String;
    FplayerScore : TLeaderboardEntry;
    FprevPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TLeaderboardScoresTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnumScores(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplayerScore(AIndex : Integer; const AValue : TLeaderboardEntry); virtual;
    Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TLeaderboardScoresTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
    Property numScores : String Index 24 Read FnumScores Write SetnumScores;
    Property playerScore : TLeaderboardEntry Index 32 Read FplayerScore Write SetplayerScore;
    Property prevPageToken : String Index 40 Read FprevPageToken Write SetprevPageToken;
  end;
  TLeaderboardScoresClass = Class of TLeaderboardScores;
  
  { --------------------------------------------------------------------
    TMetagameConfig
    --------------------------------------------------------------------}
  
  TMetagameConfig = Class(TGoogleBaseObject)
  Private
    FcurrentVersion : integer;
    Fkind : String;
    FplayerLevels : TMetagameConfigTypeplayerLevelsArray;
  Protected
    //Property setters
    Procedure SetcurrentVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplayerLevels(AIndex : Integer; const AValue : TMetagameConfigTypeplayerLevelsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property currentVersion : integer Index 0 Read FcurrentVersion Write SetcurrentVersion;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property playerLevels : TMetagameConfigTypeplayerLevelsArray Index 16 Read FplayerLevels Write SetplayerLevels;
  end;
  TMetagameConfigClass = Class of TMetagameConfig;
  
  { --------------------------------------------------------------------
    TNetworkDiagnostics
    --------------------------------------------------------------------}
  
  TNetworkDiagnostics = Class(TGoogleBaseObject)
  Private
    FandroidNetworkSubtype : integer;
    FandroidNetworkType : integer;
    FiosNetworkType : integer;
    Fkind : String;
    FnetworkOperatorCode : String;
    FnetworkOperatorName : String;
    FregistrationLatencyMillis : integer;
  Protected
    //Property setters
    Procedure SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetandroidNetworkType(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetiosNetworkType(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkOperatorCode(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkOperatorName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetregistrationLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property androidNetworkSubtype : integer Index 0 Read FandroidNetworkSubtype Write SetandroidNetworkSubtype;
    Property androidNetworkType : integer Index 8 Read FandroidNetworkType Write SetandroidNetworkType;
    Property iosNetworkType : integer Index 16 Read FiosNetworkType Write SetiosNetworkType;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property networkOperatorCode : String Index 32 Read FnetworkOperatorCode Write SetnetworkOperatorCode;
    Property networkOperatorName : String Index 40 Read FnetworkOperatorName Write SetnetworkOperatorName;
    Property registrationLatencyMillis : integer Index 48 Read FregistrationLatencyMillis Write SetregistrationLatencyMillis;
  end;
  TNetworkDiagnosticsClass = Class of TNetworkDiagnostics;
  
  { --------------------------------------------------------------------
    TParticipantResult
    --------------------------------------------------------------------}
  
  TParticipantResult = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FparticipantId : String;
    Fplacing : integer;
    Fresult : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplacing(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setresult(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property participantId : String Index 8 Read FparticipantId Write SetparticipantId;
    Property placing : integer Index 16 Read Fplacing Write Setplacing;
    Property result : String Index 24 Read Fresult Write Setresult;
  end;
  TParticipantResultClass = Class of TParticipantResult;
  
  { --------------------------------------------------------------------
    TPeerChannelDiagnostics
    --------------------------------------------------------------------}
  
  TPeerChannelDiagnostics = Class(TGoogleBaseObject)
  Private
    FbytesReceived : TAggregateStats;
    FbytesSent : TAggregateStats;
    Fkind : String;
    FnumMessagesLost : integer;
    FnumMessagesReceived : integer;
    FnumMessagesSent : integer;
    FnumSendFailures : integer;
    FroundtripLatencyMillis : TAggregateStats;
  Protected
    //Property setters
    Procedure SetbytesReceived(AIndex : Integer; const AValue : TAggregateStats); virtual;
    Procedure SetbytesSent(AIndex : Integer; const AValue : TAggregateStats); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnumMessagesLost(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetnumMessagesReceived(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetnumMessagesSent(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetnumSendFailures(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetroundtripLatencyMillis(AIndex : Integer; const AValue : TAggregateStats); virtual;
  Public
  Published
    Property bytesReceived : TAggregateStats Index 0 Read FbytesReceived Write SetbytesReceived;
    Property bytesSent : TAggregateStats Index 8 Read FbytesSent Write SetbytesSent;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property numMessagesLost : integer Index 24 Read FnumMessagesLost Write SetnumMessagesLost;
    Property numMessagesReceived : integer Index 32 Read FnumMessagesReceived Write SetnumMessagesReceived;
    Property numMessagesSent : integer Index 40 Read FnumMessagesSent Write SetnumMessagesSent;
    Property numSendFailures : integer Index 48 Read FnumSendFailures Write SetnumSendFailures;
    Property roundtripLatencyMillis : TAggregateStats Index 56 Read FroundtripLatencyMillis Write SetroundtripLatencyMillis;
  end;
  TPeerChannelDiagnosticsClass = Class of TPeerChannelDiagnostics;
  
  { --------------------------------------------------------------------
    TPeerSessionDiagnostics
    --------------------------------------------------------------------}
  
  TPeerSessionDiagnostics = Class(TGoogleBaseObject)
  Private
    FconnectedTimestampMillis : String;
    Fkind : String;
    FparticipantId : String;
    FreliableChannel : TPeerChannelDiagnostics;
    FunreliableChannel : TPeerChannelDiagnostics;
  Protected
    //Property setters
    Procedure SetconnectedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); virtual;
    Procedure SetunreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); virtual;
  Public
  Published
    Property connectedTimestampMillis : String Index 0 Read FconnectedTimestampMillis Write SetconnectedTimestampMillis;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property participantId : String Index 16 Read FparticipantId Write SetparticipantId;
    Property reliableChannel : TPeerChannelDiagnostics Index 24 Read FreliableChannel Write SetreliableChannel;
    Property unreliableChannel : TPeerChannelDiagnostics Index 32 Read FunreliableChannel Write SetunreliableChannel;
  end;
  TPeerSessionDiagnosticsClass = Class of TPeerSessionDiagnostics;
  
  { --------------------------------------------------------------------
    TPlayed
    --------------------------------------------------------------------}
  
  TPlayed = Class(TGoogleBaseObject)
  Private
    FautoMatched : boolean;
    Fkind : String;
    FtimeMillis : String;
  Protected
    //Property setters
    Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeMillis(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property autoMatched : boolean Index 0 Read FautoMatched Write SetautoMatched;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property timeMillis : String Index 16 Read FtimeMillis Write SettimeMillis;
  end;
  TPlayedClass = Class of TPlayed;
  
  { --------------------------------------------------------------------
    TPlayerTypename
    --------------------------------------------------------------------}
  
  TPlayerTypename = Class(TGoogleBaseObject)
  Private
    FfamilyName : String;
    FgivenName : String;
  Protected
    //Property setters
    Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
    Property givenName : String Index 8 Read FgivenName Write SetgivenName;
  end;
  TPlayerTypenameClass = Class of TPlayerTypename;
  
  { --------------------------------------------------------------------
    TPlayer
    --------------------------------------------------------------------}
  
  TPlayer = Class(TGoogleBaseObject)
  Private
    FavatarImageUrl : String;
    FbannerUrlLandscape : String;
    FbannerUrlPortrait : String;
    FdisplayName : String;
    FexperienceInfo : TPlayerExperienceInfo;
    Fkind : String;
    FlastPlayedWith : TPlayed;
    Fname : TPlayerTypename;
    ForiginalPlayerId : String;
    FplayerId : String;
    FprofileSettings : TProfileSettings;
    Ftitle : String;
  Protected
    //Property setters
    Procedure SetavatarImageUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure SetbannerUrlLandscape(AIndex : Integer; const AValue : String); virtual;
    Procedure SetbannerUrlPortrait(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetexperienceInfo(AIndex : Integer; const AValue : TPlayerExperienceInfo); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastPlayedWith(AIndex : Integer; const AValue : TPlayed); virtual;
    Procedure Setname(AIndex : Integer; const AValue : TPlayerTypename); virtual;
    Procedure SetoriginalPlayerId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplayerId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings); virtual;
    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property avatarImageUrl : String Index 0 Read FavatarImageUrl Write SetavatarImageUrl;
    Property bannerUrlLandscape : String Index 8 Read FbannerUrlLandscape Write SetbannerUrlLandscape;
    Property bannerUrlPortrait : String Index 16 Read FbannerUrlPortrait Write SetbannerUrlPortrait;
    Property displayName : String Index 24 Read FdisplayName Write SetdisplayName;
    Property experienceInfo : TPlayerExperienceInfo Index 32 Read FexperienceInfo Write SetexperienceInfo;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property lastPlayedWith : TPlayed Index 48 Read FlastPlayedWith Write SetlastPlayedWith;
    Property name : TPlayerTypename Index 56 Read Fname Write Setname;
    Property originalPlayerId : String Index 64 Read ForiginalPlayerId Write SetoriginalPlayerId;
    Property playerId : String Index 72 Read FplayerId Write SetplayerId;
    Property profileSettings : TProfileSettings Index 80 Read FprofileSettings Write SetprofileSettings;
    Property title : String Index 88 Read Ftitle Write Settitle;
  end;
  TPlayerClass = Class of TPlayer;
  
  { --------------------------------------------------------------------
    TPlayerAchievement
    --------------------------------------------------------------------}
  
  TPlayerAchievement = Class(TGoogleBaseObject)
  Private
    FachievementState : String;
    FcurrentSteps : integer;
    FexperiencePoints : String;
    FformattedCurrentStepsString : String;
    Fid : String;
    Fkind : String;
    FlastUpdatedTimestamp : String;
  Protected
    //Property setters
    Procedure SetachievementState(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetexperiencePoints(AIndex : Integer; const AValue : String); virtual;
    Procedure SetformattedCurrentStepsString(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastUpdatedTimestamp(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property achievementState : String Index 0 Read FachievementState Write SetachievementState;
    Property currentSteps : integer Index 8 Read FcurrentSteps Write SetcurrentSteps;
    Property experiencePoints : String Index 16 Read FexperiencePoints Write SetexperiencePoints;
    Property formattedCurrentStepsString : String Index 24 Read FformattedCurrentStepsString Write SetformattedCurrentStepsString;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property lastUpdatedTimestamp : String Index 48 Read FlastUpdatedTimestamp Write SetlastUpdatedTimestamp;
  end;
  TPlayerAchievementClass = Class of TPlayerAchievement;
  
  { --------------------------------------------------------------------
    TPlayerAchievementListResponse
    --------------------------------------------------------------------}
  
  TPlayerAchievementListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TPlayerAchievementListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPlayerAchievementListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPlayerAchievementListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TPlayerAchievementListResponseClass = Class of TPlayerAchievementListResponse;
  
  { --------------------------------------------------------------------
    TPlayerEvent
    --------------------------------------------------------------------}
  
  TPlayerEvent = Class(TGoogleBaseObject)
  Private
    FdefinitionId : String;
    FformattedNumEvents : String;
    Fkind : String;
    FnumEvents : String;
    FplayerId : String;
  Protected
    //Property setters
    Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetformattedNumEvents(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnumEvents(AIndex : Integer; const AValue : String); virtual;
    Procedure SetplayerId(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property definitionId : String Index 0 Read FdefinitionId Write SetdefinitionId;
    Property formattedNumEvents : String Index 8 Read FformattedNumEvents Write SetformattedNumEvents;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property numEvents : String Index 24 Read FnumEvents Write SetnumEvents;
    Property playerId : String Index 32 Read FplayerId Write SetplayerId;
  end;
  TPlayerEventClass = Class of TPlayerEvent;
  
  { --------------------------------------------------------------------
    TPlayerEventListResponse
    --------------------------------------------------------------------}
  
  TPlayerEventListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TPlayerEventListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPlayerEventListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPlayerEventListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TPlayerEventListResponseClass = Class of TPlayerEventListResponse;
  
  { --------------------------------------------------------------------
    TPlayerExperienceInfo
    --------------------------------------------------------------------}
  
  TPlayerExperienceInfo = Class(TGoogleBaseObject)
  Private
    FcurrentExperiencePoints : String;
    FcurrentLevel : TPlayerLevel;
    Fkind : String;
    FlastLevelUpTimestampMillis : String;
    FnextLevel : TPlayerLevel;
  Protected
    //Property setters
    Procedure SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcurrentLevel(AIndex : Integer; const AValue : TPlayerLevel); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextLevel(AIndex : Integer; const AValue : TPlayerLevel); virtual;
  Public
  Published
    Property currentExperiencePoints : String Index 0 Read FcurrentExperiencePoints Write SetcurrentExperiencePoints;
    Property currentLevel : TPlayerLevel Index 8 Read FcurrentLevel Write SetcurrentLevel;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property lastLevelUpTimestampMillis : String Index 24 Read FlastLevelUpTimestampMillis Write SetlastLevelUpTimestampMillis;
    Property nextLevel : TPlayerLevel Index 32 Read FnextLevel Write SetnextLevel;
  end;
  TPlayerExperienceInfoClass = Class of TPlayerExperienceInfo;
  
  { --------------------------------------------------------------------
    TPlayerLeaderboardScore
    --------------------------------------------------------------------}
  
  TPlayerLeaderboardScore = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fleaderboard_id : String;
    FpublicRank : TLeaderboardScoreRank;
    FscoreString : String;
    FscoreTag : String;
    FscoreValue : String;
    FsocialRank : TLeaderboardScoreRank;
    FtimeSpan : String;
    FwriteTimestamp : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setleaderboard_id(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpublicRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); virtual;
    Procedure SetscoreString(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreValue(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsocialRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); virtual;
    Procedure SettimeSpan(AIndex : Integer; const AValue : String); virtual;
    Procedure SetwriteTimestamp(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property leaderboard_id : String Index 8 Read Fleaderboard_id Write Setleaderboard_id;
    Property publicRank : TLeaderboardScoreRank Index 16 Read FpublicRank Write SetpublicRank;
    Property scoreString : String Index 24 Read FscoreString Write SetscoreString;
    Property scoreTag : String Index 32 Read FscoreTag Write SetscoreTag;
    Property scoreValue : String Index 40 Read FscoreValue Write SetscoreValue;
    Property socialRank : TLeaderboardScoreRank Index 48 Read FsocialRank Write SetsocialRank;
    Property timeSpan : String Index 56 Read FtimeSpan Write SettimeSpan;
    Property writeTimestamp : String Index 64 Read FwriteTimestamp Write SetwriteTimestamp;
  end;
  TPlayerLeaderboardScoreClass = Class of TPlayerLeaderboardScore;
  
  { --------------------------------------------------------------------
    TPlayerLeaderboardScoreListResponse
    --------------------------------------------------------------------}
  
  TPlayerLeaderboardScoreListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TPlayerLeaderboardScoreListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    Fplayer : TPlayer;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPlayerLeaderboardScoreListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
    Property player : TPlayer Index 24 Read Fplayer Write Setplayer;
  end;
  TPlayerLeaderboardScoreListResponseClass = Class of TPlayerLeaderboardScoreListResponse;
  
  { --------------------------------------------------------------------
    TPlayerLevel
    --------------------------------------------------------------------}
  
  TPlayerLevel = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Flevel : integer;
    FmaxExperiencePoints : String;
    FminExperiencePoints : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlevel(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetmaxExperiencePoints(AIndex : Integer; const AValue : String); virtual;
    Procedure SetminExperiencePoints(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property level : integer Index 8 Read Flevel Write Setlevel;
    Property maxExperiencePoints : String Index 16 Read FmaxExperiencePoints Write SetmaxExperiencePoints;
    Property minExperiencePoints : String Index 24 Read FminExperiencePoints Write SetminExperiencePoints;
  end;
  TPlayerLevelClass = Class of TPlayerLevel;
  
  { --------------------------------------------------------------------
    TPlayerListResponse
    --------------------------------------------------------------------}
  
  TPlayerListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TPlayerListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPlayerListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPlayerListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TPlayerListResponseClass = Class of TPlayerListResponse;
  
  { --------------------------------------------------------------------
    TPlayerScore
    --------------------------------------------------------------------}
  
  TPlayerScore = Class(TGoogleBaseObject)
  Private
    FformattedScore : String;
    Fkind : String;
    Fscore : String;
    FscoreTag : String;
    FtimeSpan : String;
  Protected
    //Property setters
    Procedure SetformattedScore(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setscore(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeSpan(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property formattedScore : String Index 0 Read FformattedScore Write SetformattedScore;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property score : String Index 16 Read Fscore Write Setscore;
    Property scoreTag : String Index 24 Read FscoreTag Write SetscoreTag;
    Property timeSpan : String Index 32 Read FtimeSpan Write SettimeSpan;
  end;
  TPlayerScoreClass = Class of TPlayerScore;
  
  { --------------------------------------------------------------------
    TPlayerScoreListResponse
    --------------------------------------------------------------------}
  
  TPlayerScoreListResponse = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FsubmittedScores : TPlayerScoreListResponseTypesubmittedScoresArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsubmittedScores(AIndex : Integer; const AValue : TPlayerScoreListResponseTypesubmittedScoresArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property submittedScores : TPlayerScoreListResponseTypesubmittedScoresArray Index 8 Read FsubmittedScores Write SetsubmittedScores;
  end;
  TPlayerScoreListResponseClass = Class of TPlayerScoreListResponse;
  
  { --------------------------------------------------------------------
    TPlayerScoreResponse
    --------------------------------------------------------------------}
  
  TPlayerScoreResponse = Class(TGoogleBaseObject)
  Private
    FbeatenScoreTimeSpans : TStringArray;
    FformattedScore : String;
    Fkind : String;
    FleaderboardId : String;
    FscoreTag : String;
    FunbeatenScores : TPlayerScoreResponseTypeunbeatenScoresArray;
  Protected
    //Property setters
    Procedure SetbeatenScoreTimeSpans(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetformattedScore(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetleaderboardId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
    Procedure SetunbeatenScores(AIndex : Integer; const AValue : TPlayerScoreResponseTypeunbeatenScoresArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property beatenScoreTimeSpans : TStringArray Index 0 Read FbeatenScoreTimeSpans Write SetbeatenScoreTimeSpans;
    Property formattedScore : String Index 8 Read FformattedScore Write SetformattedScore;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property leaderboardId : String Index 24 Read FleaderboardId Write SetleaderboardId;
    Property scoreTag : String Index 32 Read FscoreTag Write SetscoreTag;
    Property unbeatenScores : TPlayerScoreResponseTypeunbeatenScoresArray Index 40 Read FunbeatenScores Write SetunbeatenScores;
  end;
  TPlayerScoreResponseClass = Class of TPlayerScoreResponse;
  
  { --------------------------------------------------------------------
    TPlayerScoreSubmissionList
    --------------------------------------------------------------------}
  
  TPlayerScoreSubmissionList = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fscores : TPlayerScoreSubmissionListTypescoresArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setscores(AIndex : Integer; const AValue : TPlayerScoreSubmissionListTypescoresArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property scores : TPlayerScoreSubmissionListTypescoresArray Index 8 Read Fscores Write Setscores;
  end;
  TPlayerScoreSubmissionListClass = Class of TPlayerScoreSubmissionList;
  
  { --------------------------------------------------------------------
    TProfileSettings
    --------------------------------------------------------------------}
  
  TProfileSettings = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FprofileVisible : boolean;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetprofileVisible(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property profileVisible : boolean Index 8 Read FprofileVisible Write SetprofileVisible;
  end;
  TProfileSettingsClass = Class of TProfileSettings;
  
  { --------------------------------------------------------------------
    TPushToken
    --------------------------------------------------------------------}
  
  TPushToken = Class(TGoogleBaseObject)
  Private
    FclientRevision : String;
    Fid : TPushTokenId;
    Fkind : String;
    Flanguage : String;
  Protected
    //Property setters
    Procedure SetclientRevision(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : TPushTokenId); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property clientRevision : String Index 0 Read FclientRevision Write SetclientRevision;
    Property id : TPushTokenId Index 8 Read Fid Write Setid;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property language : String Index 24 Read Flanguage Write Setlanguage;
  end;
  TPushTokenClass = Class of TPushToken;
  
  { --------------------------------------------------------------------
    TPushTokenIdTypeios
    --------------------------------------------------------------------}
  
  TPushTokenIdTypeios = Class(TGoogleBaseObject)
  Private
    Fapns_device_token : String;
    Fapns_environment : String;
  Protected
    //Property setters
    Procedure Setapns_device_token(AIndex : Integer; const AValue : String); virtual;
    Procedure Setapns_environment(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property apns_device_token : String Index 0 Read Fapns_device_token Write Setapns_device_token;
    Property apns_environment : String Index 8 Read Fapns_environment Write Setapns_environment;
  end;
  TPushTokenIdTypeiosClass = Class of TPushTokenIdTypeios;
  
  { --------------------------------------------------------------------
    TPushTokenId
    --------------------------------------------------------------------}
  
  TPushTokenId = Class(TGoogleBaseObject)
  Private
    Fios : TPushTokenIdTypeios;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setios(AIndex : Integer; const AValue : TPushTokenIdTypeios); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property ios : TPushTokenIdTypeios Index 0 Read Fios Write Setios;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TPushTokenIdClass = Class of TPushTokenId;
  
  { --------------------------------------------------------------------
    TQuest
    --------------------------------------------------------------------}
  
  TQuest = Class(TGoogleBaseObject)
  Private
    FacceptedTimestampMillis : String;
    FapplicationId : String;
    FbannerUrl : String;
    Fdescription : String;
    FendTimestampMillis : String;
    FiconUrl : String;
    Fid : String;
    FisDefaultBannerUrl : boolean;
    FisDefaultIconUrl : boolean;
    Fkind : String;
    FlastUpdatedTimestampMillis : String;
    Fmilestones : TQuestTypemilestonesArray;
    Fname : String;
    FnotifyTimestampMillis : String;
    FstartTimestampMillis : String;
    Fstate : String;
  Protected
    //Property setters
    Procedure SetacceptedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetbannerUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetendTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetisDefaultBannerUrl(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetisDefaultIconUrl(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastUpdatedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmilestones(AIndex : Integer; const AValue : TQuestTypemilestonesArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnotifyTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstartTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property acceptedTimestampMillis : String Index 0 Read FacceptedTimestampMillis Write SetacceptedTimestampMillis;
    Property applicationId : String Index 8 Read FapplicationId Write SetapplicationId;
    Property bannerUrl : String Index 16 Read FbannerUrl Write SetbannerUrl;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property endTimestampMillis : String Index 32 Read FendTimestampMillis Write SetendTimestampMillis;
    Property iconUrl : String Index 40 Read FiconUrl Write SeticonUrl;
    Property id : String Index 48 Read Fid Write Setid;
    Property isDefaultBannerUrl : boolean Index 56 Read FisDefaultBannerUrl Write SetisDefaultBannerUrl;
    Property isDefaultIconUrl : boolean Index 64 Read FisDefaultIconUrl Write SetisDefaultIconUrl;
    Property kind : String Index 72 Read Fkind Write Setkind;
    Property lastUpdatedTimestampMillis : String Index 80 Read FlastUpdatedTimestampMillis Write SetlastUpdatedTimestampMillis;
    Property milestones : TQuestTypemilestonesArray Index 88 Read Fmilestones Write Setmilestones;
    Property name : String Index 96 Read Fname Write Setname;
    Property notifyTimestampMillis : String Index 104 Read FnotifyTimestampMillis Write SetnotifyTimestampMillis;
    Property startTimestampMillis : String Index 112 Read FstartTimestampMillis Write SetstartTimestampMillis;
    Property state : String Index 120 Read Fstate Write Setstate;
  end;
  TQuestClass = Class of TQuest;
  
  { --------------------------------------------------------------------
    TQuestContribution
    --------------------------------------------------------------------}
  
  TQuestContribution = Class(TGoogleBaseObject)
  Private
    FformattedValue : String;
    Fkind : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property formattedValue : String Index 0 Read FformattedValue Write SetformattedValue;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property value : String Index 16 Read Fvalue Write Setvalue;
  end;
  TQuestContributionClass = Class of TQuestContribution;
  
  { --------------------------------------------------------------------
    TQuestCriterion
    --------------------------------------------------------------------}
  
  TQuestCriterion = Class(TGoogleBaseObject)
  Private
    FcompletionContribution : TQuestContribution;
    FcurrentContribution : TQuestContribution;
    FeventId : String;
    FinitialPlayerProgress : TQuestContribution;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetcompletionContribution(AIndex : Integer; const AValue : TQuestContribution); virtual;
    Procedure SetcurrentContribution(AIndex : Integer; const AValue : TQuestContribution); virtual;
    Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinitialPlayerProgress(AIndex : Integer; const AValue : TQuestContribution); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property completionContribution : TQuestContribution Index 0 Read FcompletionContribution Write SetcompletionContribution;
    Property currentContribution : TQuestContribution Index 8 Read FcurrentContribution Write SetcurrentContribution;
    Property eventId : String Index 16 Read FeventId Write SeteventId;
    Property initialPlayerProgress : TQuestContribution Index 24 Read FinitialPlayerProgress Write SetinitialPlayerProgress;
    Property kind : String Index 32 Read Fkind Write Setkind;
  end;
  TQuestCriterionClass = Class of TQuestCriterion;
  
  { --------------------------------------------------------------------
    TQuestListResponse
    --------------------------------------------------------------------}
  
  TQuestListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TQuestListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TQuestListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TQuestListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TQuestListResponseClass = Class of TQuestListResponse;
  
  { --------------------------------------------------------------------
    TQuestMilestone
    --------------------------------------------------------------------}
  
  TQuestMilestone = Class(TGoogleBaseObject)
  Private
    FcompletionRewardData : String;
    Fcriteria : TQuestMilestoneTypecriteriaArray;
    Fid : String;
    Fkind : String;
    Fstate : String;
  Protected
    //Property setters
    Procedure SetcompletionRewardData(AIndex : Integer; const AValue : String); virtual;
    Procedure Setcriteria(AIndex : Integer; const AValue : TQuestMilestoneTypecriteriaArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property completionRewardData : String Index 0 Read FcompletionRewardData Write SetcompletionRewardData;
    Property criteria : TQuestMilestoneTypecriteriaArray Index 8 Read Fcriteria Write Setcriteria;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property state : String Index 32 Read Fstate Write Setstate;
  end;
  TQuestMilestoneClass = Class of TQuestMilestone;
  
  { --------------------------------------------------------------------
    TRevisionCheckResponse
    --------------------------------------------------------------------}
  
  TRevisionCheckResponse = Class(TGoogleBaseObject)
  Private
    FapiVersion : String;
    Fkind : String;
    FrevisionStatus : String;
  Protected
    //Property setters
    Procedure SetapiVersion(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrevisionStatus(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property apiVersion : String Index 0 Read FapiVersion Write SetapiVersion;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property revisionStatus : String Index 16 Read FrevisionStatus Write SetrevisionStatus;
  end;
  TRevisionCheckResponseClass = Class of TRevisionCheckResponse;
  
  { --------------------------------------------------------------------
    TRoom
    --------------------------------------------------------------------}
  
  TRoom = Class(TGoogleBaseObject)
  Private
    FapplicationId : String;
    FautoMatchingCriteria : TRoomAutoMatchingCriteria;
    FautoMatchingStatus : TRoomAutoMatchStatus;
    FcreationDetails : TRoomModification;
    Fdescription : String;
    FinviterId : String;
    Fkind : String;
    FlastUpdateDetails : TRoomModification;
    Fparticipants : TRoomTypeparticipantsArray;
    FroomId : String;
    FroomStatusVersion : integer;
    Fstatus : String;
    Fvariant : integer;
  Protected
    //Property setters
    Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); virtual;
    Procedure SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); virtual;
    Procedure SetcreationDetails(AIndex : Integer; const AValue : TRoomModification); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinviterId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastUpdateDetails(AIndex : Integer; const AValue : TRoomModification); virtual;
    Procedure Setparticipants(AIndex : Integer; const AValue : TRoomTypeparticipantsArray); virtual;
    Procedure SetroomId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetroomStatusVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
    Property autoMatchingCriteria : TRoomAutoMatchingCriteria Index 8 Read FautoMatchingCriteria Write SetautoMatchingCriteria;
    Property autoMatchingStatus : TRoomAutoMatchStatus Index 16 Read FautoMatchingStatus Write SetautoMatchingStatus;
    Property creationDetails : TRoomModification Index 24 Read FcreationDetails Write SetcreationDetails;
    Property description : String Index 32 Read Fdescription Write Setdescription;
    Property inviterId : String Index 40 Read FinviterId Write SetinviterId;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property lastUpdateDetails : TRoomModification Index 56 Read FlastUpdateDetails Write SetlastUpdateDetails;
    Property participants : TRoomTypeparticipantsArray Index 64 Read Fparticipants Write Setparticipants;
    Property roomId : String Index 72 Read FroomId Write SetroomId;
    Property roomStatusVersion : integer Index 80 Read FroomStatusVersion Write SetroomStatusVersion;
    Property status : String Index 88 Read Fstatus Write Setstatus;
    Property variant : integer Index 96 Read Fvariant Write Setvariant;
  end;
  TRoomClass = Class of TRoom;
  
  { --------------------------------------------------------------------
    TRoomAutoMatchStatus
    --------------------------------------------------------------------}
  
  TRoomAutoMatchStatus = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FwaitEstimateSeconds : integer;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetwaitEstimateSeconds(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property waitEstimateSeconds : integer Index 8 Read FwaitEstimateSeconds Write SetwaitEstimateSeconds;
  end;
  TRoomAutoMatchStatusClass = Class of TRoomAutoMatchStatus;
  
  { --------------------------------------------------------------------
    TRoomAutoMatchingCriteria
    --------------------------------------------------------------------}
  
  TRoomAutoMatchingCriteria = Class(TGoogleBaseObject)
  Private
    FexclusiveBitmask : String;
    Fkind : String;
    FmaxAutoMatchingPlayers : integer;
    FminAutoMatchingPlayers : integer;
  Protected
    //Property setters
    Procedure SetexclusiveBitmask(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property exclusiveBitmask : String Index 0 Read FexclusiveBitmask Write SetexclusiveBitmask;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property maxAutoMatchingPlayers : integer Index 16 Read FmaxAutoMatchingPlayers Write SetmaxAutoMatchingPlayers;
    Property minAutoMatchingPlayers : integer Index 24 Read FminAutoMatchingPlayers Write SetminAutoMatchingPlayers;
  end;
  TRoomAutoMatchingCriteriaClass = Class of TRoomAutoMatchingCriteria;
  
  { --------------------------------------------------------------------
    TRoomClientAddress
    --------------------------------------------------------------------}
  
  TRoomClientAddress = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FxmppAddress : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetxmppAddress(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property xmppAddress : String Index 8 Read FxmppAddress Write SetxmppAddress;
  end;
  TRoomClientAddressClass = Class of TRoomClientAddress;
  
  { --------------------------------------------------------------------
    TRoomCreateRequest
    --------------------------------------------------------------------}
  
  TRoomCreateRequest = Class(TGoogleBaseObject)
  Private
    FautoMatchingCriteria : TRoomAutoMatchingCriteria;
    Fcapabilities : TStringArray;
    FclientAddress : TRoomClientAddress;
    FinvitedPlayerIds : TStringArray;
    Fkind : String;
    FnetworkDiagnostics : TNetworkDiagnostics;
    FrequestId : String;
    Fvariant : integer;
  Protected
    //Property setters
    Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); virtual;
    Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
    Procedure SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); virtual;
    Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoMatchingCriteria : TRoomAutoMatchingCriteria Index 0 Read FautoMatchingCriteria Write SetautoMatchingCriteria;
    Property capabilities : TStringArray Index 8 Read Fcapabilities Write Setcapabilities;
    Property clientAddress : TRoomClientAddress Index 16 Read FclientAddress Write SetclientAddress;
    Property invitedPlayerIds : TStringArray Index 24 Read FinvitedPlayerIds Write SetinvitedPlayerIds;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property networkDiagnostics : TNetworkDiagnostics Index 40 Read FnetworkDiagnostics Write SetnetworkDiagnostics;
    Property requestId : String Index 48 Read FrequestId Write SetrequestId;
    Property variant : integer Index 56 Read Fvariant Write Setvariant;
  end;
  TRoomCreateRequestClass = Class of TRoomCreateRequest;
  
  { --------------------------------------------------------------------
    TRoomJoinRequest
    --------------------------------------------------------------------}
  
  TRoomJoinRequest = Class(TGoogleBaseObject)
  Private
    Fcapabilities : TStringArray;
    FclientAddress : TRoomClientAddress;
    Fkind : String;
    FnetworkDiagnostics : TNetworkDiagnostics;
  Protected
    //Property setters
    Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property capabilities : TStringArray Index 0 Read Fcapabilities Write Setcapabilities;
    Property clientAddress : TRoomClientAddress Index 8 Read FclientAddress Write SetclientAddress;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property networkDiagnostics : TNetworkDiagnostics Index 24 Read FnetworkDiagnostics Write SetnetworkDiagnostics;
  end;
  TRoomJoinRequestClass = Class of TRoomJoinRequest;
  
  { --------------------------------------------------------------------
    TRoomLeaveDiagnostics
    --------------------------------------------------------------------}
  
  TRoomLeaveDiagnostics = Class(TGoogleBaseObject)
  Private
    FandroidNetworkSubtype : integer;
    FandroidNetworkType : integer;
    FiosNetworkType : integer;
    Fkind : String;
    FnetworkOperatorCode : String;
    FnetworkOperatorName : String;
    FpeerSession : TRoomLeaveDiagnosticsTypepeerSessionArray;
    FsocketsUsed : boolean;
  Protected
    //Property setters
    Procedure SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetandroidNetworkType(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetiosNetworkType(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkOperatorCode(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkOperatorName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpeerSession(AIndex : Integer; const AValue : TRoomLeaveDiagnosticsTypepeerSessionArray); virtual;
    Procedure SetsocketsUsed(AIndex : Integer; const AValue : boolean); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property androidNetworkSubtype : integer Index 0 Read FandroidNetworkSubtype Write SetandroidNetworkSubtype;
    Property androidNetworkType : integer Index 8 Read FandroidNetworkType Write SetandroidNetworkType;
    Property iosNetworkType : integer Index 16 Read FiosNetworkType Write SetiosNetworkType;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property networkOperatorCode : String Index 32 Read FnetworkOperatorCode Write SetnetworkOperatorCode;
    Property networkOperatorName : String Index 40 Read FnetworkOperatorName Write SetnetworkOperatorName;
    Property peerSession : TRoomLeaveDiagnosticsTypepeerSessionArray Index 48 Read FpeerSession Write SetpeerSession;
    Property socketsUsed : boolean Index 56 Read FsocketsUsed Write SetsocketsUsed;
  end;
  TRoomLeaveDiagnosticsClass = Class of TRoomLeaveDiagnostics;
  
  { --------------------------------------------------------------------
    TRoomLeaveRequest
    --------------------------------------------------------------------}
  
  TRoomLeaveRequest = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FleaveDiagnostics : TRoomLeaveDiagnostics;
    Freason : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetleaveDiagnostics(AIndex : Integer; const AValue : TRoomLeaveDiagnostics); virtual;
    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property leaveDiagnostics : TRoomLeaveDiagnostics Index 8 Read FleaveDiagnostics Write SetleaveDiagnostics;
    Property reason : String Index 16 Read Freason Write Setreason;
  end;
  TRoomLeaveRequestClass = Class of TRoomLeaveRequest;
  
  { --------------------------------------------------------------------
    TRoomList
    --------------------------------------------------------------------}
  
  TRoomList = Class(TGoogleBaseObject)
  Private
    Fitems : TRoomListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TRoomListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TRoomListTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TRoomListClass = Class of TRoomList;
  
  { --------------------------------------------------------------------
    TRoomModification
    --------------------------------------------------------------------}
  
  TRoomModification = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FmodifiedTimestampMillis : String;
    FparticipantId : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmodifiedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property modifiedTimestampMillis : String Index 8 Read FmodifiedTimestampMillis Write SetmodifiedTimestampMillis;
    Property participantId : String Index 16 Read FparticipantId Write SetparticipantId;
  end;
  TRoomModificationClass = Class of TRoomModification;
  
  { --------------------------------------------------------------------
    TRoomP2PStatus
    --------------------------------------------------------------------}
  
  TRoomP2PStatus = Class(TGoogleBaseObject)
  Private
    FconnectionSetupLatencyMillis : integer;
    Ferror : String;
    Ferror_reason : String;
    Fkind : String;
    FparticipantId : String;
    Fstatus : String;
    FunreliableRoundtripLatencyMillis : integer;
  Protected
    //Property setters
    Procedure SetconnectionSetupLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
    Procedure Seterror(AIndex : Integer; const AValue : String); virtual;
    Procedure Seterror_reason(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetunreliableRoundtripLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property connectionSetupLatencyMillis : integer Index 0 Read FconnectionSetupLatencyMillis Write SetconnectionSetupLatencyMillis;
    Property error : String Index 8 Read Ferror Write Seterror;
    Property error_reason : String Index 16 Read Ferror_reason Write Seterror_reason;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property participantId : String Index 32 Read FparticipantId Write SetparticipantId;
    Property status : String Index 40 Read Fstatus Write Setstatus;
    Property unreliableRoundtripLatencyMillis : integer Index 48 Read FunreliableRoundtripLatencyMillis Write SetunreliableRoundtripLatencyMillis;
  end;
  TRoomP2PStatusClass = Class of TRoomP2PStatus;
  
  { --------------------------------------------------------------------
    TRoomP2PStatuses
    --------------------------------------------------------------------}
  
  TRoomP2PStatuses = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fupdates : TRoomP2PStatusesTypeupdatesArray;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdates(AIndex : Integer; const AValue : TRoomP2PStatusesTypeupdatesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property updates : TRoomP2PStatusesTypeupdatesArray Index 8 Read Fupdates Write Setupdates;
  end;
  TRoomP2PStatusesClass = Class of TRoomP2PStatuses;
  
  { --------------------------------------------------------------------
    TRoomParticipant
    --------------------------------------------------------------------}
  
  TRoomParticipant = Class(TGoogleBaseObject)
  Private
    FautoMatched : boolean;
    FautoMatchedPlayer : TAnonymousPlayer;
    Fcapabilities : TStringArray;
    FclientAddress : TRoomClientAddress;
    Fconnected : boolean;
    Fid : String;
    Fkind : String;
    FleaveReason : String;
    Fplayer : TPlayer;
    Fstatus : String;
  Protected
    //Property setters
    Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); virtual;
    Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
    Procedure Setconnected(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetleaveReason(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoMatched : boolean Index 0 Read FautoMatched Write SetautoMatched;
    Property autoMatchedPlayer : TAnonymousPlayer Index 8 Read FautoMatchedPlayer Write SetautoMatchedPlayer;
    Property capabilities : TStringArray Index 16 Read Fcapabilities Write Setcapabilities;
    Property clientAddress : TRoomClientAddress Index 24 Read FclientAddress Write SetclientAddress;
    Property connected : boolean Index 32 Read Fconnected Write Setconnected;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property leaveReason : String Index 56 Read FleaveReason Write SetleaveReason;
    Property player : TPlayer Index 64 Read Fplayer Write Setplayer;
    Property status : String Index 72 Read Fstatus Write Setstatus;
  end;
  TRoomParticipantClass = Class of TRoomParticipant;
  
  { --------------------------------------------------------------------
    TRoomStatus
    --------------------------------------------------------------------}
  
  TRoomStatus = Class(TGoogleBaseObject)
  Private
    FautoMatchingStatus : TRoomAutoMatchStatus;
    Fkind : String;
    Fparticipants : TRoomStatusTypeparticipantsArray;
    FroomId : String;
    Fstatus : String;
    FstatusVersion : integer;
  Protected
    //Property setters
    Procedure SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setparticipants(AIndex : Integer; const AValue : TRoomStatusTypeparticipantsArray); virtual;
    Procedure SetroomId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstatusVersion(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoMatchingStatus : TRoomAutoMatchStatus Index 0 Read FautoMatchingStatus Write SetautoMatchingStatus;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property participants : TRoomStatusTypeparticipantsArray Index 16 Read Fparticipants Write Setparticipants;
    Property roomId : String Index 24 Read FroomId Write SetroomId;
    Property status : String Index 32 Read Fstatus Write Setstatus;
    Property statusVersion : integer Index 40 Read FstatusVersion Write SetstatusVersion;
  end;
  TRoomStatusClass = Class of TRoomStatus;
  
  { --------------------------------------------------------------------
    TScoreSubmission
    --------------------------------------------------------------------}
  
  TScoreSubmission = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FleaderboardId : String;
    Fscore : String;
    FscoreTag : String;
    Fsignature : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetleaderboardId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setscore(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsignature(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property leaderboardId : String Index 8 Read FleaderboardId Write SetleaderboardId;
    Property score : String Index 16 Read Fscore Write Setscore;
    Property scoreTag : String Index 24 Read FscoreTag Write SetscoreTag;
    Property signature : String Index 32 Read Fsignature Write Setsignature;
  end;
  TScoreSubmissionClass = Class of TScoreSubmission;
  
  { --------------------------------------------------------------------
    TSnapshot
    --------------------------------------------------------------------}
  
  TSnapshot = Class(TGoogleBaseObject)
  Private
    FcoverImage : TSnapshotImage;
    Fdescription : String;
    FdriveId : String;
    FdurationMillis : String;
    Fid : String;
    Fkind : String;
    FlastModifiedMillis : String;
    FprogressValue : String;
    Ftitle : String;
    F_type : String;
    FuniqueName : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure SetcoverImage(AIndex : Integer; const AValue : TSnapshotImage); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdriveId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdurationMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastModifiedMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetprogressValue(AIndex : Integer; const AValue : String); virtual;
    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
    Procedure SetuniqueName(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property coverImage : TSnapshotImage Index 0 Read FcoverImage Write SetcoverImage;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property driveId : String Index 16 Read FdriveId Write SetdriveId;
    Property durationMillis : String Index 24 Read FdurationMillis Write SetdurationMillis;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property lastModifiedMillis : String Index 48 Read FlastModifiedMillis Write SetlastModifiedMillis;
    Property progressValue : String Index 56 Read FprogressValue Write SetprogressValue;
    Property title : String Index 64 Read Ftitle Write Settitle;
    Property _type : String Index 72 Read F_type Write Set_type;
    Property uniqueName : String Index 80 Read FuniqueName Write SetuniqueName;
  end;
  TSnapshotClass = Class of TSnapshot;
  
  { --------------------------------------------------------------------
    TSnapshotImage
    --------------------------------------------------------------------}
  
  TSnapshotImage = Class(TGoogleBaseObject)
  Private
    Fheight : integer;
    Fkind : String;
    Fmime_type : String;
    Furl : String;
    Fwidth : integer;
  Protected
    //Property setters
    Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmime_type(AIndex : Integer; const AValue : String); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property height : integer Index 0 Read Fheight Write Setheight;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property mime_type : String Index 16 Read Fmime_type Write Setmime_type;
    Property url : String Index 24 Read Furl Write Seturl;
    Property width : integer Index 32 Read Fwidth Write Setwidth;
  end;
  TSnapshotImageClass = Class of TSnapshotImage;
  
  { --------------------------------------------------------------------
    TSnapshotListResponse
    --------------------------------------------------------------------}
  
  TSnapshotListResponse = Class(TGoogleBaseObject)
  Private
    Fitems : TSnapshotListResponseTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TSnapshotListResponseTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TSnapshotListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TSnapshotListResponseClass = Class of TSnapshotListResponse;
  
  { --------------------------------------------------------------------
    TTurnBasedAutoMatchingCriteria
    --------------------------------------------------------------------}
  
  TTurnBasedAutoMatchingCriteria = Class(TGoogleBaseObject)
  Private
    FexclusiveBitmask : String;
    Fkind : String;
    FmaxAutoMatchingPlayers : integer;
    FminAutoMatchingPlayers : integer;
  Protected
    //Property setters
    Procedure SetexclusiveBitmask(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property exclusiveBitmask : String Index 0 Read FexclusiveBitmask Write SetexclusiveBitmask;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property maxAutoMatchingPlayers : integer Index 16 Read FmaxAutoMatchingPlayers Write SetmaxAutoMatchingPlayers;
    Property minAutoMatchingPlayers : integer Index 24 Read FminAutoMatchingPlayers Write SetminAutoMatchingPlayers;
  end;
  TTurnBasedAutoMatchingCriteriaClass = Class of TTurnBasedAutoMatchingCriteria;
  
  { --------------------------------------------------------------------
    TTurnBasedMatch
    --------------------------------------------------------------------}
  
  TTurnBasedMatch = Class(TGoogleBaseObject)
  Private
    FapplicationId : String;
    FautoMatchingCriteria : TTurnBasedAutoMatchingCriteria;
    FcreationDetails : TTurnBasedMatchModification;
    Fdata : TTurnBasedMatchData;
    Fdescription : String;
    FinviterId : String;
    Fkind : String;
    FlastUpdateDetails : TTurnBasedMatchModification;
    FmatchId : String;
    FmatchNumber : integer;
    FmatchVersion : integer;
    Fparticipants : TTurnBasedMatchTypeparticipantsArray;
    FpendingParticipantId : String;
    FpreviousMatchData : TTurnBasedMatchData;
    FrematchId : String;
    Fresults : TTurnBasedMatchTyperesultsArray;
    Fstatus : String;
    FuserMatchStatus : String;
    Fvariant : integer;
    FwithParticipantId : String;
  Protected
    //Property setters
    Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); virtual;
    Procedure SetcreationDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchData); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinviterId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastUpdateDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); virtual;
    Procedure SetmatchId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmatchNumber(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setparticipants(AIndex : Integer; const AValue : TTurnBasedMatchTypeparticipantsArray); virtual;
    Procedure SetpendingParticipantId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpreviousMatchData(AIndex : Integer; const AValue : TTurnBasedMatchData); virtual;
    Procedure SetrematchId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTyperesultsArray); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetuserMatchStatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetwithParticipantId(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
    Property autoMatchingCriteria : TTurnBasedAutoMatchingCriteria Index 8 Read FautoMatchingCriteria Write SetautoMatchingCriteria;
    Property creationDetails : TTurnBasedMatchModification Index 16 Read FcreationDetails Write SetcreationDetails;
    Property data : TTurnBasedMatchData Index 24 Read Fdata Write Setdata;
    Property description : String Index 32 Read Fdescription Write Setdescription;
    Property inviterId : String Index 40 Read FinviterId Write SetinviterId;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property lastUpdateDetails : TTurnBasedMatchModification Index 56 Read FlastUpdateDetails Write SetlastUpdateDetails;
    Property matchId : String Index 64 Read FmatchId Write SetmatchId;
    Property matchNumber : integer Index 72 Read FmatchNumber Write SetmatchNumber;
    Property matchVersion : integer Index 80 Read FmatchVersion Write SetmatchVersion;
    Property participants : TTurnBasedMatchTypeparticipantsArray Index 88 Read Fparticipants Write Setparticipants;
    Property pendingParticipantId : String Index 96 Read FpendingParticipantId Write SetpendingParticipantId;
    Property previousMatchData : TTurnBasedMatchData Index 104 Read FpreviousMatchData Write SetpreviousMatchData;
    Property rematchId : String Index 112 Read FrematchId Write SetrematchId;
    Property results : TTurnBasedMatchTyperesultsArray Index 120 Read Fresults Write Setresults;
    Property status : String Index 128 Read Fstatus Write Setstatus;
    Property userMatchStatus : String Index 136 Read FuserMatchStatus Write SetuserMatchStatus;
    Property variant : integer Index 144 Read Fvariant Write Setvariant;
    Property withParticipantId : String Index 152 Read FwithParticipantId Write SetwithParticipantId;
  end;
  TTurnBasedMatchClass = Class of TTurnBasedMatch;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchCreateRequest
    --------------------------------------------------------------------}
  
  TTurnBasedMatchCreateRequest = Class(TGoogleBaseObject)
  Private
    FautoMatchingCriteria : TTurnBasedAutoMatchingCriteria;
    FinvitedPlayerIds : TStringArray;
    Fkind : String;
    FrequestId : String;
    Fvariant : integer;
  Protected
    //Property setters
    Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); virtual;
    Procedure SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoMatchingCriteria : TTurnBasedAutoMatchingCriteria Index 0 Read FautoMatchingCriteria Write SetautoMatchingCriteria;
    Property invitedPlayerIds : TStringArray Index 8 Read FinvitedPlayerIds Write SetinvitedPlayerIds;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property requestId : String Index 24 Read FrequestId Write SetrequestId;
    Property variant : integer Index 32 Read Fvariant Write Setvariant;
  end;
  TTurnBasedMatchCreateRequestClass = Class of TTurnBasedMatchCreateRequest;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchData
    --------------------------------------------------------------------}
  
  TTurnBasedMatchData = Class(TGoogleBaseObject)
  Private
    Fdata : String;
    FdataAvailable : boolean;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdataAvailable(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property data : String Index 0 Read Fdata Write Setdata;
    Property dataAvailable : boolean Index 8 Read FdataAvailable Write SetdataAvailable;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TTurnBasedMatchDataClass = Class of TTurnBasedMatchData;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchDataRequest
    --------------------------------------------------------------------}
  
  TTurnBasedMatchDataRequest = Class(TGoogleBaseObject)
  Private
    Fdata : String;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property data : String Index 0 Read Fdata Write Setdata;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TTurnBasedMatchDataRequestClass = Class of TTurnBasedMatchDataRequest;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchList
    --------------------------------------------------------------------}
  
  TTurnBasedMatchList = Class(TGoogleBaseObject)
  Private
    Fitems : TTurnBasedMatchListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TTurnBasedMatchListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TTurnBasedMatchListTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TTurnBasedMatchListClass = Class of TTurnBasedMatchList;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchModification
    --------------------------------------------------------------------}
  
  TTurnBasedMatchModification = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FmodifiedTimestampMillis : String;
    FparticipantId : String;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmodifiedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
    Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property modifiedTimestampMillis : String Index 8 Read FmodifiedTimestampMillis Write SetmodifiedTimestampMillis;
    Property participantId : String Index 16 Read FparticipantId Write SetparticipantId;
  end;
  TTurnBasedMatchModificationClass = Class of TTurnBasedMatchModification;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchParticipant
    --------------------------------------------------------------------}
  
  TTurnBasedMatchParticipant = Class(TGoogleBaseObject)
  Private
    FautoMatched : boolean;
    FautoMatchedPlayer : TAnonymousPlayer;
    Fid : String;
    Fkind : String;
    Fplayer : TPlayer;
    Fstatus : String;
  Protected
    //Property setters
    Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property autoMatched : boolean Index 0 Read FautoMatched Write SetautoMatched;
    Property autoMatchedPlayer : TAnonymousPlayer Index 8 Read FautoMatchedPlayer Write SetautoMatchedPlayer;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property player : TPlayer Index 32 Read Fplayer Write Setplayer;
    Property status : String Index 40 Read Fstatus Write Setstatus;
  end;
  TTurnBasedMatchParticipantClass = Class of TTurnBasedMatchParticipant;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchRematch
    --------------------------------------------------------------------}
  
  TTurnBasedMatchRematch = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    FpreviousMatch : TTurnBasedMatch;
    Frematch : TTurnBasedMatch;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpreviousMatch(AIndex : Integer; const AValue : TTurnBasedMatch); virtual;
    Procedure Setrematch(AIndex : Integer; const AValue : TTurnBasedMatch); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property previousMatch : TTurnBasedMatch Index 8 Read FpreviousMatch Write SetpreviousMatch;
    Property rematch : TTurnBasedMatch Index 16 Read Frematch Write Setrematch;
  end;
  TTurnBasedMatchRematchClass = Class of TTurnBasedMatchRematch;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchResults
    --------------------------------------------------------------------}
  
  TTurnBasedMatchResults = Class(TGoogleBaseObject)
  Private
    Fdata : TTurnBasedMatchDataRequest;
    Fkind : String;
    FmatchVersion : integer;
    Fresults : TTurnBasedMatchResultsTyperesultsArray;
  Protected
    //Property setters
    Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchResultsTyperesultsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property data : TTurnBasedMatchDataRequest Index 0 Read Fdata Write Setdata;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property matchVersion : integer Index 16 Read FmatchVersion Write SetmatchVersion;
    Property results : TTurnBasedMatchResultsTyperesultsArray Index 24 Read Fresults Write Setresults;
  end;
  TTurnBasedMatchResultsClass = Class of TTurnBasedMatchResults;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchSync
    --------------------------------------------------------------------}
  
  TTurnBasedMatchSync = Class(TGoogleBaseObject)
  Private
    Fitems : TTurnBasedMatchSyncTypeitemsArray;
    Fkind : String;
    FmoreAvailable : boolean;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TTurnBasedMatchSyncTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmoreAvailable(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TTurnBasedMatchSyncTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property moreAvailable : boolean Index 16 Read FmoreAvailable Write SetmoreAvailable;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
  end;
  TTurnBasedMatchSyncClass = Class of TTurnBasedMatchSync;
  
  { --------------------------------------------------------------------
    TTurnBasedMatchTurn
    --------------------------------------------------------------------}
  
  TTurnBasedMatchTurn = Class(TGoogleBaseObject)
  Private
    Fdata : TTurnBasedMatchDataRequest;
    Fkind : String;
    FmatchVersion : integer;
    FpendingParticipantId : String;
    Fresults : TTurnBasedMatchTurnTyperesultsArray;
  Protected
    //Property setters
    Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetpendingParticipantId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTurnTyperesultsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property data : TTurnBasedMatchDataRequest Index 0 Read Fdata Write Setdata;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property matchVersion : integer Index 16 Read FmatchVersion Write SetmatchVersion;
    Property pendingParticipantId : String Index 24 Read FpendingParticipantId Write SetpendingParticipantId;
    Property results : TTurnBasedMatchTurnTyperesultsArray Index 32 Read Fresults Write Setresults;
  end;
  TTurnBasedMatchTurnClass = Class of TTurnBasedMatchTurn;
  
  { --------------------------------------------------------------------
    TAchievementDefinitionsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TAchievementDefinitionsResource, method List
  
  TAchievementDefinitionsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TAchievementDefinitionsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function List(AQuery : string  = '') : TAchievementDefinitionsListResponse;
    Function List(AQuery : TAchievementDefinitionslistOptions) : TAchievementDefinitionsListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TAchievementsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TAchievementsResource, method Increment
  
  TAchievementsIncrementOptions = Record
    consistencyToken : int64;
    requestId : int64;
    stepsToIncrement : integer;
  end;
  
  
  //Optional query Options for TAchievementsResource, method List
  
  TAchievementsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
    state : String;
  end;
  
  
  //Optional query Options for TAchievementsResource, method Reveal
  
  TAchievementsRevealOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TAchievementsResource, method SetStepsAtLeast
  
  TAchievementsSetStepsAtLeastOptions = Record
    consistencyToken : int64;
    steps : integer;
  end;
  
  
  //Optional query Options for TAchievementsResource, method Unlock
  
  TAchievementsUnlockOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TAchievementsResource, method UpdateMultiple
  
  TAchievementsUpdateMultipleOptions = Record
    consistencyToken : int64;
  end;
  
  TAchievementsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Increment(achievementId: string; AQuery : string  = '') : TAchievementIncrementResponse;
    Function Increment(achievementId: string; AQuery : TAchievementsincrementOptions) : TAchievementIncrementResponse;
    Function List(playerId: string; AQuery : string  = '') : TPlayerAchievementListResponse;
    Function List(playerId: string; AQuery : TAchievementslistOptions) : TPlayerAchievementListResponse;
    Function Reveal(achievementId: string; AQuery : string  = '') : TAchievementRevealResponse;
    Function Reveal(achievementId: string; AQuery : TAchievementsrevealOptions) : TAchievementRevealResponse;
    Function SetStepsAtLeast(achievementId: string; AQuery : string  = '') : TAchievementSetStepsAtLeastResponse;
    Function SetStepsAtLeast(achievementId: string; AQuery : TAchievementssetStepsAtLeastOptions) : TAchievementSetStepsAtLeastResponse;
    Function Unlock(achievementId: string; AQuery : string  = '') : TAchievementUnlockResponse;
    Function Unlock(achievementId: string; AQuery : TAchievementsunlockOptions) : TAchievementUnlockResponse;
    Function UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : string  = '') : TAchievementUpdateMultipleResponse;
    Function UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : TAchievementsupdateMultipleOptions) : TAchievementUpdateMultipleResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TApplicationsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TApplicationsResource, method Get
  
  TApplicationsGetOptions = Record
    consistencyToken : int64;
    language : String;
    platformType : String;
  end;
  
  
  //Optional query Options for TApplicationsResource, method Played
  
  TApplicationsPlayedOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TApplicationsResource, method Verify
  
  TApplicationsVerifyOptions = Record
    consistencyToken : int64;
  end;
  
  TApplicationsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(applicationId: string; AQuery : string  = '') : TApplication;
    Function Get(applicationId: string; AQuery : TApplicationsgetOptions) : TApplication;
    Procedure Played(AQuery : string  = '');
    Procedure Played(AQuery : TApplicationsplayedOptions);
    Function Verify(applicationId: string; AQuery : string  = '') : TApplicationVerifyResponse;
    Function Verify(applicationId: string; AQuery : TApplicationsverifyOptions) : TApplicationVerifyResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TEventsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TEventsResource, method ListByPlayer
  
  TEventsListByPlayerOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TEventsResource, method ListDefinitions
  
  TEventsListDefinitionsOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TEventsResource, method Record
  
  TEventsRecordOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  TEventsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function ListByPlayer(AQuery : string  = '') : TPlayerEventListResponse;
    Function ListByPlayer(AQuery : TEventslistByPlayerOptions) : TPlayerEventListResponse;
    Function ListDefinitions(AQuery : string  = '') : TEventDefinitionListResponse;
    Function ListDefinitions(AQuery : TEventslistDefinitionsOptions) : TEventDefinitionListResponse;
    Function _record(aEventRecordRequest : TEventRecordRequest; AQuery : string  = '') : TEventUpdateResponse;
    Function _record(aEventRecordRequest : TEventRecordRequest; AQuery : TEventsrecordOptions) : TEventUpdateResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TLeaderboardsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TLeaderboardsResource, method Get
  
  TLeaderboardsGetOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TLeaderboardsResource, method List
  
  TLeaderboardsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TLeaderboardsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(leaderboardId: string; AQuery : string  = '') : TLeaderboard;
    Function Get(leaderboardId: string; AQuery : TLeaderboardsgetOptions) : TLeaderboard;
    Function List(AQuery : string  = '') : TLeaderboardListResponse;
    Function List(AQuery : TLeaderboardslistOptions) : TLeaderboardListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TMetagameResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TMetagameResource, method GetMetagameConfig
  
  TMetagameGetMetagameConfigOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TMetagameResource, method ListCategoriesByPlayer
  
  TMetagameListCategoriesByPlayerOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TMetagameResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function GetMetagameConfig(AQuery : string  = '') : TMetagameConfig;
    Function GetMetagameConfig(AQuery : TMetagamegetMetagameConfigOptions) : TMetagameConfig;
    Function ListCategoriesByPlayer(collection: string; playerId: string; AQuery : string  = '') : TCategoryListResponse;
    Function ListCategoriesByPlayer(collection: string; playerId: string; AQuery : TMetagamelistCategoriesByPlayerOptions) : TCategoryListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TPlayersResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPlayersResource, method Get
  
  TPlayersGetOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TPlayersResource, method List
  
  TPlayersListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TPlayersResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(playerId: string; AQuery : string  = '') : TPlayer;
    Function Get(playerId: string; AQuery : TPlayersgetOptions) : TPlayer;
    Function List(collection: string; AQuery : string  = '') : TPlayerListResponse;
    Function List(collection: string; AQuery : TPlayerslistOptions) : TPlayerListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TPushtokensResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPushtokensResource, method Remove
  
  TPushtokensRemoveOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TPushtokensResource, method Update
  
  TPushtokensUpdateOptions = Record
    consistencyToken : int64;
  end;
  
  TPushtokensResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Remove(aPushTokenId : TPushTokenId; AQuery : string  = '');
    Procedure Remove(aPushTokenId : TPushTokenId; AQuery : TPushtokensremoveOptions);
    Procedure Update(aPushToken : TPushToken; AQuery : string  = '');
    Procedure Update(aPushToken : TPushToken; AQuery : TPushtokensupdateOptions);
  end;
  
  
  { --------------------------------------------------------------------
    TQuestMilestonesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TQuestMilestonesResource, method Claim
  
  TQuestMilestonesClaimOptions = Record
    consistencyToken : int64;
    requestId : int64;
  end;
  
  TQuestMilestonesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Claim(milestoneId: string; questId: string; AQuery : string  = '');
    Procedure Claim(milestoneId: string; questId: string; AQuery : TQuestMilestonesclaimOptions);
  end;
  
  
  { --------------------------------------------------------------------
    TQuestsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TQuestsResource, method Accept
  
  TQuestsAcceptOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TQuestsResource, method List
  
  TQuestsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TQuestsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Accept(questId: string; AQuery : string  = '') : TQuest;
    Function Accept(questId: string; AQuery : TQuestsacceptOptions) : TQuest;
    Function List(playerId: string; AQuery : string  = '') : TQuestListResponse;
    Function List(playerId: string; AQuery : TQuestslistOptions) : TQuestListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TRevisionsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TRevisionsResource, method Check
  
  TRevisionsCheckOptions = Record
    clientRevision : String;
    consistencyToken : int64;
  end;
  
  TRevisionsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Check(AQuery : string  = '') : TRevisionCheckResponse;
    Function Check(AQuery : TRevisionscheckOptions) : TRevisionCheckResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TRoomsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TRoomsResource, method Create
  
  TRoomsCreateOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method Decline
  
  TRoomsDeclineOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method Dismiss
  
  TRoomsDismissOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TRoomsResource, method Get
  
  TRoomsGetOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method Join
  
  TRoomsJoinOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method Leave
  
  TRoomsLeaveOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method List
  
  TRoomsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TRoomsResource, method ReportStatus
  
  TRoomsReportStatusOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  TRoomsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Create(aRoomCreateRequest : TRoomCreateRequest; AQuery : string  = '') : TRoom;overload;
    Function Create(aRoomCreateRequest : TRoomCreateRequest; AQuery : TRoomscreateOptions) : TRoom;overload;
    Function Decline(roomId: string; AQuery : string  = '') : TRoom;
    Function Decline(roomId: string; AQuery : TRoomsdeclineOptions) : TRoom;
    Procedure Dismiss(roomId: string; AQuery : string  = '');
    Procedure Dismiss(roomId: string; AQuery : TRoomsdismissOptions);
    Function Get(roomId: string; AQuery : string  = '') : TRoom;
    Function Get(roomId: string; AQuery : TRoomsgetOptions) : TRoom;
    Function Join(roomId: string; aRoomJoinRequest : TRoomJoinRequest; AQuery : string  = '') : TRoom;
    Function Join(roomId: string; aRoomJoinRequest : TRoomJoinRequest; AQuery : TRoomsjoinOptions) : TRoom;
    Function Leave(roomId: string; aRoomLeaveRequest : TRoomLeaveRequest; AQuery : string  = '') : TRoom;
    Function Leave(roomId: string; aRoomLeaveRequest : TRoomLeaveRequest; AQuery : TRoomsleaveOptions) : TRoom;
    Function List(AQuery : string  = '') : TRoomList;
    Function List(AQuery : TRoomslistOptions) : TRoomList;
    Function ReportStatus(roomId: string; aRoomP2PStatuses : TRoomP2PStatuses; AQuery : string  = '') : TRoomStatus;
    Function ReportStatus(roomId: string; aRoomP2PStatuses : TRoomP2PStatuses; AQuery : TRoomsreportStatusOptions) : TRoomStatus;
  end;
  
  
  { --------------------------------------------------------------------
    TScoresResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TScoresResource, method Get
  
  TScoresGetOptions = Record
    consistencyToken : int64;
    includeRankType : String;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TScoresResource, method List
  
  TScoresListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
    timeSpan : String;
  end;
  
  
  //Optional query Options for TScoresResource, method ListWindow
  
  TScoresListWindowOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
    resultsAbove : integer;
    returnTopIfAbsent : boolean;
    timeSpan : String;
  end;
  
  
  //Optional query Options for TScoresResource, method Submit
  
  TScoresSubmitOptions = Record
    consistencyToken : int64;
    language : String;
    score : int64;
    scoreTag : String;
  end;
  
  
  //Optional query Options for TScoresResource, method SubmitMultiple
  
  TScoresSubmitMultipleOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  TScoresResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(leaderboardId: string; playerId: string; timeSpan: string; AQuery : string  = '') : TPlayerLeaderboardScoreListResponse;
    Function Get(leaderboardId: string; playerId: string; timeSpan: string; AQuery : TScoresgetOptions) : TPlayerLeaderboardScoreListResponse;
    Function List(collection: string; leaderboardId: string; AQuery : string  = '') : TLeaderboardScores;
    Function List(collection: string; leaderboardId: string; AQuery : TScoreslistOptions) : TLeaderboardScores;
    Function ListWindow(collection: string; leaderboardId: string; AQuery : string  = '') : TLeaderboardScores;
    Function ListWindow(collection: string; leaderboardId: string; AQuery : TScoreslistWindowOptions) : TLeaderboardScores;
    Function Submit(leaderboardId: string; AQuery : string  = '') : TPlayerScoreResponse;
    Function Submit(leaderboardId: string; AQuery : TScoressubmitOptions) : TPlayerScoreResponse;
    Function SubmitMultiple(aPlayerScoreSubmissionList : TPlayerScoreSubmissionList; AQuery : string  = '') : TPlayerScoreListResponse;
    Function SubmitMultiple(aPlayerScoreSubmissionList : TPlayerScoreSubmissionList; AQuery : TScoressubmitMultipleOptions) : TPlayerScoreListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TSnapshotsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TSnapshotsResource, method Get
  
  TSnapshotsGetOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TSnapshotsResource, method List
  
  TSnapshotsListOptions = Record
    consistencyToken : int64;
    language : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TSnapshotsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(snapshotId: string; AQuery : string  = '') : TSnapshot;
    Function Get(snapshotId: string; AQuery : TSnapshotsgetOptions) : TSnapshot;
    Function List(playerId: string; AQuery : string  = '') : TSnapshotListResponse;
    Function List(playerId: string; AQuery : TSnapshotslistOptions) : TSnapshotListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TTurnBasedMatchesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Cancel
  
  TTurnBasedMatchesCancelOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Create
  
  TTurnBasedMatchesCreateOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Decline
  
  TTurnBasedMatchesDeclineOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Dismiss
  
  TTurnBasedMatchesDismissOptions = Record
    consistencyToken : int64;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Finish
  
  TTurnBasedMatchesFinishOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Get
  
  TTurnBasedMatchesGetOptions = Record
    consistencyToken : int64;
    includeMatchData : boolean;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Join
  
  TTurnBasedMatchesJoinOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Leave
  
  TTurnBasedMatchesLeaveOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method LeaveTurn
  
  TTurnBasedMatchesLeaveTurnOptions = Record
    consistencyToken : int64;
    language : String;
    matchVersion : integer;
    pendingParticipantId : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method List
  
  TTurnBasedMatchesListOptions = Record
    consistencyToken : int64;
    includeMatchData : boolean;
    language : String;
    maxCompletedMatches : integer;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Rematch
  
  TTurnBasedMatchesRematchOptions = Record
    consistencyToken : int64;
    language : String;
    requestId : int64;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method Sync
  
  TTurnBasedMatchesSyncOptions = Record
    consistencyToken : int64;
    includeMatchData : boolean;
    language : String;
    maxCompletedMatches : integer;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTurnBasedMatchesResource, method TakeTurn
  
  TTurnBasedMatchesTakeTurnOptions = Record
    consistencyToken : int64;
    language : String;
  end;
  
  TTurnBasedMatchesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Cancel(matchId: string; AQuery : string  = '');
    Procedure Cancel(matchId: string; AQuery : TTurnBasedMatchescancelOptions);
    Function Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : string  = '') : TTurnBasedMatch;overload;
    Function Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : TTurnBasedMatchescreateOptions) : TTurnBasedMatch;overload;
    Function Decline(matchId: string; AQuery : string  = '') : TTurnBasedMatch;
    Function Decline(matchId: string; AQuery : TTurnBasedMatchesdeclineOptions) : TTurnBasedMatch;
    Procedure Dismiss(matchId: string; AQuery : string  = '');
    Procedure Dismiss(matchId: string; AQuery : TTurnBasedMatchesdismissOptions);
    Function Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : string  = '') : TTurnBasedMatch;
    Function Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : TTurnBasedMatchesfinishOptions) : TTurnBasedMatch;
    Function Get(matchId: string; AQuery : string  = '') : TTurnBasedMatch;
    Function Get(matchId: string; AQuery : TTurnBasedMatchesgetOptions) : TTurnBasedMatch;
    Function Join(matchId: string; AQuery : string  = '') : TTurnBasedMatch;
    Function Join(matchId: string; AQuery : TTurnBasedMatchesjoinOptions) : TTurnBasedMatch;
    Function Leave(matchId: string; AQuery : string  = '') : TTurnBasedMatch;
    Function Leave(matchId: string; AQuery : TTurnBasedMatchesleaveOptions) : TTurnBasedMatch;
    Function LeaveTurn(matchId: string; AQuery : string  = '') : TTurnBasedMatch;
    Function LeaveTurn(matchId: string; AQuery : TTurnBasedMatchesleaveTurnOptions) : TTurnBasedMatch;
    Function List(AQuery : string  = '') : TTurnBasedMatchList;
    Function List(AQuery : TTurnBasedMatcheslistOptions) : TTurnBasedMatchList;
    Function Rematch(matchId: string; AQuery : string  = '') : TTurnBasedMatchRematch;
    Function Rematch(matchId: string; AQuery : TTurnBasedMatchesrematchOptions) : TTurnBasedMatchRematch;
    Function Sync(AQuery : string  = '') : TTurnBasedMatchSync;
    Function Sync(AQuery : TTurnBasedMatchessyncOptions) : TTurnBasedMatchSync;
    Function TakeTurn(matchId: string; aTurnBasedMatchTurn : TTurnBasedMatchTurn; AQuery : string  = '') : TTurnBasedMatch;
    Function TakeTurn(matchId: string; aTurnBasedMatchTurn : TTurnBasedMatchTurn; AQuery : TTurnBasedMatchestakeTurnOptions) : TTurnBasedMatch;
  end;
  
  
  { --------------------------------------------------------------------
    TGamesAPI
    --------------------------------------------------------------------}
  
  TGamesAPI = Class(TGoogleAPI)
  Private
    FAchievementDefinitionsInstance : TAchievementDefinitionsResource;
    FAchievementsInstance : TAchievementsResource;
    FApplicationsInstance : TApplicationsResource;
    FEventsInstance : TEventsResource;
    FLeaderboardsInstance : TLeaderboardsResource;
    FMetagameInstance : TMetagameResource;
    FPlayersInstance : TPlayersResource;
    FPushtokensInstance : TPushtokensResource;
    FQuestMilestonesInstance : TQuestMilestonesResource;
    FQuestsInstance : TQuestsResource;
    FRevisionsInstance : TRevisionsResource;
    FRoomsInstance : TRoomsResource;
    FScoresInstance : TScoresResource;
    FSnapshotsInstance : TSnapshotsResource;
    FTurnBasedMatchesInstance : TTurnBasedMatchesResource;
    Function GetAchievementDefinitionsInstance : TAchievementDefinitionsResource;virtual;
    Function GetAchievementsInstance : TAchievementsResource;virtual;
    Function GetApplicationsInstance : TApplicationsResource;virtual;
    Function GetEventsInstance : TEventsResource;virtual;
    Function GetLeaderboardsInstance : TLeaderboardsResource;virtual;
    Function GetMetagameInstance : TMetagameResource;virtual;
    Function GetPlayersInstance : TPlayersResource;virtual;
    Function GetPushtokensInstance : TPushtokensResource;virtual;
    Function GetQuestMilestonesInstance : TQuestMilestonesResource;virtual;
    Function GetQuestsInstance : TQuestsResource;virtual;
    Function GetRevisionsInstance : TRevisionsResource;virtual;
    Function GetRoomsInstance : TRoomsResource;virtual;
    Function GetScoresInstance : TScoresResource;virtual;
    Function GetSnapshotsInstance : TSnapshotsResource;virtual;
    Function GetTurnBasedMatchesInstance : TTurnBasedMatchesResource;virtual;
  Public
    //Override class functions with API info
    Class Function APIName : String; override;
    Class Function APIVersion : String; override;
    Class Function APIRevision : String; override;
    Class Function APIID : String; override;
    Class Function APITitle : String; override;
    Class Function APIDescription : String; override;
    Class Function APIOwnerDomain : String; override;
    Class Function APIOwnerName : String; override;
    Class Function APIIcon16 : String; override;
    Class Function APIIcon32 : String; override;
    Class Function APIdocumentationLink : String; override;
    Class Function APIrootUrl : string; override;
    Class Function APIbasePath : string;override;
    Class Function APIbaseURL : String;override;
    Class Function APIProtocol : string;override;
    Class Function APIservicePath : string;override;
    Class Function APIbatchPath : String;override;
    Class Function APIAuthScopes : TScopeInfoArray;override;
    Class Function APINeedsAuth : Boolean;override;
    Class Procedure RegisterAPIResources; override;
    //Add create function for resources
    Function CreateAchievementDefinitionsResource(AOwner : TComponent) : TAchievementDefinitionsResource;virtual;overload;
    Function CreateAchievementDefinitionsResource : TAchievementDefinitionsResource;virtual;overload;
    Function CreateAchievementsResource(AOwner : TComponent) : TAchievementsResource;virtual;overload;
    Function CreateAchievementsResource : TAchievementsResource;virtual;overload;
    Function CreateApplicationsResource(AOwner : TComponent) : TApplicationsResource;virtual;overload;
    Function CreateApplicationsResource : TApplicationsResource;virtual;overload;
    Function CreateEventsResource(AOwner : TComponent) : TEventsResource;virtual;overload;
    Function CreateEventsResource : TEventsResource;virtual;overload;
    Function CreateLeaderboardsResource(AOwner : TComponent) : TLeaderboardsResource;virtual;overload;
    Function CreateLeaderboardsResource : TLeaderboardsResource;virtual;overload;
    Function CreateMetagameResource(AOwner : TComponent) : TMetagameResource;virtual;overload;
    Function CreateMetagameResource : TMetagameResource;virtual;overload;
    Function CreatePlayersResource(AOwner : TComponent) : TPlayersResource;virtual;overload;
    Function CreatePlayersResource : TPlayersResource;virtual;overload;
    Function CreatePushtokensResource(AOwner : TComponent) : TPushtokensResource;virtual;overload;
    Function CreatePushtokensResource : TPushtokensResource;virtual;overload;
    Function CreateQuestMilestonesResource(AOwner : TComponent) : TQuestMilestonesResource;virtual;overload;
    Function CreateQuestMilestonesResource : TQuestMilestonesResource;virtual;overload;
    Function CreateQuestsResource(AOwner : TComponent) : TQuestsResource;virtual;overload;
    Function CreateQuestsResource : TQuestsResource;virtual;overload;
    Function CreateRevisionsResource(AOwner : TComponent) : TRevisionsResource;virtual;overload;
    Function CreateRevisionsResource : TRevisionsResource;virtual;overload;
    Function CreateRoomsResource(AOwner : TComponent) : TRoomsResource;virtual;overload;
    Function CreateRoomsResource : TRoomsResource;virtual;overload;
    Function CreateScoresResource(AOwner : TComponent) : TScoresResource;virtual;overload;
    Function CreateScoresResource : TScoresResource;virtual;overload;
    Function CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;virtual;overload;
    Function CreateSnapshotsResource : TSnapshotsResource;virtual;overload;
    Function CreateTurnBasedMatchesResource(AOwner : TComponent) : TTurnBasedMatchesResource;virtual;overload;
    Function CreateTurnBasedMatchesResource : TTurnBasedMatchesResource;virtual;overload;
    //Add default on-demand instances for resources
    Property AchievementDefinitionsResource : TAchievementDefinitionsResource Read GetAchievementDefinitionsInstance;
    Property AchievementsResource : TAchievementsResource Read GetAchievementsInstance;
    Property ApplicationsResource : TApplicationsResource Read GetApplicationsInstance;
    Property EventsResource : TEventsResource Read GetEventsInstance;
    Property LeaderboardsResource : TLeaderboardsResource Read GetLeaderboardsInstance;
    Property MetagameResource : TMetagameResource Read GetMetagameInstance;
    Property PlayersResource : TPlayersResource Read GetPlayersInstance;
    Property PushtokensResource : TPushtokensResource Read GetPushtokensInstance;
    Property QuestMilestonesResource : TQuestMilestonesResource Read GetQuestMilestonesInstance;
    Property QuestsResource : TQuestsResource Read GetQuestsInstance;
    Property RevisionsResource : TRevisionsResource Read GetRevisionsInstance;
    Property RoomsResource : TRoomsResource Read GetRoomsInstance;
    Property ScoresResource : TScoresResource Read GetScoresInstance;
    Property SnapshotsResource : TSnapshotsResource Read GetSnapshotsInstance;
    Property TurnBasedMatchesResource : TTurnBasedMatchesResource Read GetTurnBasedMatchesInstance;
  end;

implementation


{ --------------------------------------------------------------------
  TAchievementDefinition
  --------------------------------------------------------------------}


Procedure TAchievementDefinition.SetachievementType(AIndex : Integer; const AValue : String); 

begin
  If (FachievementType=AValue) then exit;
  FachievementType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetexperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FexperiencePoints=AValue) then exit;
  FexperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetformattedTotalSteps(AIndex : Integer; const AValue : String); 

begin
  If (FformattedTotalSteps=AValue) then exit;
  FformattedTotalSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetinitialState(AIndex : Integer; const AValue : String); 

begin
  If (FinitialState=AValue) then exit;
  FinitialState:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetisRevealedIconUrlDefault(AIndex : Integer; const AValue : boolean); 

begin
  If (FisRevealedIconUrlDefault=AValue) then exit;
  FisRevealedIconUrlDefault:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetisUnlockedIconUrlDefault(AIndex : Integer; const AValue : boolean); 

begin
  If (FisUnlockedIconUrlDefault=AValue) then exit;
  FisUnlockedIconUrlDefault:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetrevealedIconUrl(AIndex : Integer; const AValue : String); 

begin
  If (FrevealedIconUrl=AValue) then exit;
  FrevealedIconUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SettotalSteps(AIndex : Integer; const AValue : integer); 

begin
  If (FtotalSteps=AValue) then exit;
  FtotalSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinition.SetunlockedIconUrl(AIndex : Integer; const AValue : String); 

begin
  If (FunlockedIconUrl=AValue) then exit;
  FunlockedIconUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementDefinitionsListResponse
  --------------------------------------------------------------------}


Procedure TAchievementDefinitionsListResponse.Setitems(AIndex : Integer; const AValue : TAchievementDefinitionsListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinitionsListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementDefinitionsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAchievementDefinitionsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAchievementIncrementResponse
  --------------------------------------------------------------------}


Procedure TAchievementIncrementResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer); 

begin
  If (FcurrentSteps=AValue) then exit;
  FcurrentSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementIncrementResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementIncrementResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); 

begin
  If (FnewlyUnlocked=AValue) then exit;
  FnewlyUnlocked:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementRevealResponse
  --------------------------------------------------------------------}


Procedure TAchievementRevealResponse.SetcurrentState(AIndex : Integer; const AValue : String); 

begin
  If (FcurrentState=AValue) then exit;
  FcurrentState:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementRevealResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementSetStepsAtLeastResponse
  --------------------------------------------------------------------}


Procedure TAchievementSetStepsAtLeastResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer); 

begin
  If (FcurrentSteps=AValue) then exit;
  FcurrentSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementSetStepsAtLeastResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementSetStepsAtLeastResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); 

begin
  If (FnewlyUnlocked=AValue) then exit;
  FnewlyUnlocked:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementUnlockResponse
  --------------------------------------------------------------------}


Procedure TAchievementUnlockResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUnlockResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); 

begin
  If (FnewlyUnlocked=AValue) then exit;
  FnewlyUnlocked:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementUpdateMultipleRequest
  --------------------------------------------------------------------}


Procedure TAchievementUpdateMultipleRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateMultipleRequest.Setupdates(AIndex : Integer; const AValue : TAchievementUpdateMultipleRequestTypeupdatesArray); 

begin
  If (Fupdates=AValue) then exit;
  Fupdates:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAchievementUpdateMultipleRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'updates' : SetLength(Fupdates,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAchievementUpdateMultipleResponse
  --------------------------------------------------------------------}


Procedure TAchievementUpdateMultipleResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateMultipleResponse.SetupdatedAchievements(AIndex : Integer; const AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray); 

begin
  If (FupdatedAchievements=AValue) then exit;
  FupdatedAchievements:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAchievementUpdateMultipleResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'updatedachievements' : SetLength(FupdatedAchievements,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAchievementUpdateRequest
  --------------------------------------------------------------------}


Procedure TAchievementUpdateRequest.SetachievementId(AIndex : Integer; const AValue : String); 

begin
  If (FachievementId=AValue) then exit;
  FachievementId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateRequest.SetincrementPayload(AIndex : Integer; const AValue : TGamesAchievementIncrement); 

begin
  If (FincrementPayload=AValue) then exit;
  FincrementPayload:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateRequest.SetsetStepsAtLeastPayload(AIndex : Integer; const AValue : TGamesAchievementSetStepsAtLeast); 

begin
  If (FsetStepsAtLeastPayload=AValue) then exit;
  FsetStepsAtLeastPayload:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateRequest.SetupdateType(AIndex : Integer; const AValue : String); 

begin
  If (FupdateType=AValue) then exit;
  FupdateType:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAchievementUpdateResponse
  --------------------------------------------------------------------}


Procedure TAchievementUpdateResponse.SetachievementId(AIndex : Integer; const AValue : String); 

begin
  If (FachievementId=AValue) then exit;
  FachievementId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateResponse.SetcurrentState(AIndex : Integer; const AValue : String); 

begin
  If (FcurrentState=AValue) then exit;
  FcurrentState:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer); 

begin
  If (FcurrentSteps=AValue) then exit;
  FcurrentSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); 

begin
  If (FnewlyUnlocked=AValue) then exit;
  FnewlyUnlocked:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAchievementUpdateResponse.SetupdateOccurred(AIndex : Integer; const AValue : boolean); 

begin
  If (FupdateOccurred=AValue) then exit;
  FupdateOccurred:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAggregateStats
  --------------------------------------------------------------------}


Procedure TAggregateStats.Setcount(AIndex : Integer; const AValue : String); 

begin
  If (Fcount=AValue) then exit;
  Fcount:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAggregateStats.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAggregateStats.Setmax(AIndex : Integer; const AValue : String); 

begin
  If (Fmax=AValue) then exit;
  Fmax:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAggregateStats.Setmin(AIndex : Integer; const AValue : String); 

begin
  If (Fmin=AValue) then exit;
  Fmin:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAggregateStats.Setsum(AIndex : Integer; const AValue : String); 

begin
  If (Fsum=AValue) then exit;
  Fsum:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAnonymousPlayer
  --------------------------------------------------------------------}


Procedure TAnonymousPlayer.SetavatarImageUrl(AIndex : Integer; const AValue : String); 

begin
  If (FavatarImageUrl=AValue) then exit;
  FavatarImageUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAnonymousPlayer.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAnonymousPlayer.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TApplication
  --------------------------------------------------------------------}


Procedure TApplication.Setachievement_count(AIndex : Integer; const AValue : integer); 

begin
  If (Fachievement_count=AValue) then exit;
  Fachievement_count:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setassets(AIndex : Integer; const AValue : TApplicationTypeassetsArray); 

begin
  If (Fassets=AValue) then exit;
  Fassets:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setauthor(AIndex : Integer; const AValue : String); 

begin
  If (Fauthor=AValue) then exit;
  Fauthor:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setcategory(AIndex : Integer; const AValue : TApplicationCategory); 

begin
  If (Fcategory=AValue) then exit;
  Fcategory:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FenabledFeatures=AValue) then exit;
  FenabledFeatures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setinstances(AIndex : Integer; const AValue : TApplicationTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.SetlastUpdatedTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FlastUpdatedTimestamp=AValue) then exit;
  FlastUpdatedTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setleaderboard_count(AIndex : Integer; const AValue : integer); 

begin
  If (Fleaderboard_count=AValue) then exit;
  Fleaderboard_count:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplication.SetthemeColor(AIndex : Integer; const AValue : String); 

begin
  If (FthemeColor=AValue) then exit;
  FthemeColor:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TApplication.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'assets' : SetLength(Fassets,ALength);
  'enabledfeatures' : SetLength(FenabledFeatures,ALength);
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TApplicationCategory
  --------------------------------------------------------------------}


Procedure TApplicationCategory.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplicationCategory.Setprimary(AIndex : Integer; const AValue : String); 

begin
  If (Fprimary=AValue) then exit;
  Fprimary:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplicationCategory.Setsecondary(AIndex : Integer; const AValue : String); 

begin
  If (Fsecondary=AValue) then exit;
  Fsecondary:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TApplicationVerifyResponse
  --------------------------------------------------------------------}


Procedure TApplicationVerifyResponse.Setalternate_player_id(AIndex : Integer; const AValue : String); 

begin
  If (Falternate_player_id=AValue) then exit;
  Falternate_player_id:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplicationVerifyResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TApplicationVerifyResponse.Setplayer_id(AIndex : Integer; const AValue : String); 

begin
  If (Fplayer_id=AValue) then exit;
  Fplayer_id:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCategory
  --------------------------------------------------------------------}


Procedure TCategory.Setcategory(AIndex : Integer; const AValue : String); 

begin
  If (Fcategory=AValue) then exit;
  Fcategory:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCategory.SetexperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FexperiencePoints=AValue) then exit;
  FexperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCategory.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCategoryListResponse
  --------------------------------------------------------------------}


Procedure TCategoryListResponse.Setitems(AIndex : Integer; const AValue : TCategoryListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCategoryListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCategoryListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCategoryListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TEventBatchRecordFailure
  --------------------------------------------------------------------}


Procedure TEventBatchRecordFailure.SetfailureCause(AIndex : Integer; const AValue : String); 

begin
  If (FfailureCause=AValue) then exit;
  FfailureCause:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventBatchRecordFailure.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventBatchRecordFailure.Setrange(AIndex : Integer; const AValue : TEventPeriodRange); 

begin
  If (Frange=AValue) then exit;
  Frange:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TEventChild
  --------------------------------------------------------------------}


Procedure TEventChild.SetchildId(AIndex : Integer; const AValue : String); 

begin
  If (FchildId=AValue) then exit;
  FchildId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventChild.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TEventDefinition
  --------------------------------------------------------------------}


Procedure TEventDefinition.SetchildEvents(AIndex : Integer; const AValue : TEventDefinitionTypechildEventsArray); 

begin
  If (FchildEvents=AValue) then exit;
  FchildEvents:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.SetimageUrl(AIndex : Integer; const AValue : String); 

begin
  If (FimageUrl=AValue) then exit;
  FimageUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.SetisDefaultImageUrl(AIndex : Integer; const AValue : boolean); 

begin
  If (FisDefaultImageUrl=AValue) then exit;
  FisDefaultImageUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinition.Setvisibility(AIndex : Integer; const AValue : String); 

begin
  If (Fvisibility=AValue) then exit;
  Fvisibility:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TEventDefinition.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'childevents' : SetLength(FchildEvents,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TEventDefinitionListResponse
  --------------------------------------------------------------------}


Procedure TEventDefinitionListResponse.Setitems(AIndex : Integer; const AValue : TEventDefinitionListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinitionListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventDefinitionListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TEventDefinitionListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TEventPeriodRange
  --------------------------------------------------------------------}


Procedure TEventPeriodRange.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventPeriodRange.SetperiodEndMillis(AIndex : Integer; const AValue : String); 

begin
  If (FperiodEndMillis=AValue) then exit;
  FperiodEndMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventPeriodRange.SetperiodStartMillis(AIndex : Integer; const AValue : String); 

begin
  If (FperiodStartMillis=AValue) then exit;
  FperiodStartMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TEventPeriodUpdate
  --------------------------------------------------------------------}


Procedure TEventPeriodUpdate.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventPeriodUpdate.SettimePeriod(AIndex : Integer; const AValue : TEventPeriodRange); 

begin
  If (FtimePeriod=AValue) then exit;
  FtimePeriod:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventPeriodUpdate.Setupdates(AIndex : Integer; const AValue : TEventPeriodUpdateTypeupdatesArray); 

begin
  If (Fupdates=AValue) then exit;
  Fupdates:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TEventPeriodUpdate.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'updates' : SetLength(Fupdates,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TEventRecordFailure
  --------------------------------------------------------------------}


Procedure TEventRecordFailure.SeteventId(AIndex : Integer; const AValue : String); 

begin
  If (FeventId=AValue) then exit;
  FeventId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventRecordFailure.SetfailureCause(AIndex : Integer; const AValue : String); 

begin
  If (FfailureCause=AValue) then exit;
  FfailureCause:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventRecordFailure.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TEventRecordRequest
  --------------------------------------------------------------------}


Procedure TEventRecordRequest.SetcurrentTimeMillis(AIndex : Integer; const AValue : String); 

begin
  If (FcurrentTimeMillis=AValue) then exit;
  FcurrentTimeMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventRecordRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventRecordRequest.SetrequestId(AIndex : Integer; const AValue : String); 

begin
  If (FrequestId=AValue) then exit;
  FrequestId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventRecordRequest.SettimePeriods(AIndex : Integer; const AValue : TEventRecordRequestTypetimePeriodsArray); 

begin
  If (FtimePeriods=AValue) then exit;
  FtimePeriods:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TEventRecordRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'timeperiods' : SetLength(FtimePeriods,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TEventUpdateRequest
  --------------------------------------------------------------------}


Procedure TEventUpdateRequest.SetdefinitionId(AIndex : Integer; const AValue : String); 

begin
  If (FdefinitionId=AValue) then exit;
  FdefinitionId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventUpdateRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventUpdateRequest.SetupdateCount(AIndex : Integer; const AValue : String); 

begin
  If (FupdateCount=AValue) then exit;
  FupdateCount:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TEventUpdateResponse
  --------------------------------------------------------------------}


Procedure TEventUpdateResponse.SetbatchFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypebatchFailuresArray); 

begin
  If (FbatchFailures=AValue) then exit;
  FbatchFailures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventUpdateResponse.SeteventFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypeeventFailuresArray); 

begin
  If (FeventFailures=AValue) then exit;
  FeventFailures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventUpdateResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TEventUpdateResponse.SetplayerEvents(AIndex : Integer; const AValue : TEventUpdateResponseTypeplayerEventsArray); 

begin
  If (FplayerEvents=AValue) then exit;
  FplayerEvents:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TEventUpdateResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'batchfailures' : SetLength(FbatchFailures,ALength);
  'eventfailures' : SetLength(FeventFailures,ALength);
  'playerevents' : SetLength(FplayerEvents,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TGamesAchievementIncrement
  --------------------------------------------------------------------}


Procedure TGamesAchievementIncrement.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TGamesAchievementIncrement.SetrequestId(AIndex : Integer; const AValue : String); 

begin
  If (FrequestId=AValue) then exit;
  FrequestId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TGamesAchievementIncrement.Setsteps(AIndex : Integer; const AValue : integer); 

begin
  If (Fsteps=AValue) then exit;
  Fsteps:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TGamesAchievementSetStepsAtLeast
  --------------------------------------------------------------------}


Procedure TGamesAchievementSetStepsAtLeast.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TGamesAchievementSetStepsAtLeast.Setsteps(AIndex : Integer; const AValue : integer); 

begin
  If (Fsteps=AValue) then exit;
  Fsteps:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TImageAsset
  --------------------------------------------------------------------}


Procedure TImageAsset.Setheight(AIndex : Integer; const AValue : integer); 

begin
  If (Fheight=AValue) then exit;
  Fheight:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageAsset.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageAsset.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageAsset.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageAsset.Setwidth(AIndex : Integer; const AValue : integer); 

begin
  If (Fwidth=AValue) then exit;
  Fwidth:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstance
  --------------------------------------------------------------------}


Procedure TInstance.SetacquisitionUri(AIndex : Integer; const AValue : String); 

begin
  If (FacquisitionUri=AValue) then exit;
  FacquisitionUri:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetandroidInstance(AIndex : Integer; const AValue : TInstanceAndroidDetails); 

begin
  If (FandroidInstance=AValue) then exit;
  FandroidInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetiosInstance(AIndex : Integer; const AValue : TInstanceIosDetails); 

begin
  If (FiosInstance=AValue) then exit;
  FiosInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetplatformType(AIndex : Integer; const AValue : String); 

begin
  If (FplatformType=AValue) then exit;
  FplatformType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetrealtimePlay(AIndex : Integer; const AValue : boolean); 

begin
  If (FrealtimePlay=AValue) then exit;
  FrealtimePlay:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetturnBasedPlay(AIndex : Integer; const AValue : boolean); 

begin
  If (FturnBasedPlay=AValue) then exit;
  FturnBasedPlay:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetwebInstance(AIndex : Integer; const AValue : TInstanceWebDetails); 

begin
  If (FwebInstance=AValue) then exit;
  FwebInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceAndroidDetails
  --------------------------------------------------------------------}


Procedure TInstanceAndroidDetails.SetenablePiracyCheck(AIndex : Integer; const AValue : boolean); 

begin
  If (FenablePiracyCheck=AValue) then exit;
  FenablePiracyCheck:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAndroidDetails.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAndroidDetails.SetpackageName(AIndex : Integer; const AValue : String); 

begin
  If (FpackageName=AValue) then exit;
  FpackageName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAndroidDetails.Setpreferred(AIndex : Integer; const AValue : boolean); 

begin
  If (Fpreferred=AValue) then exit;
  Fpreferred:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceIosDetails
  --------------------------------------------------------------------}


Procedure TInstanceIosDetails.SetbundleIdentifier(AIndex : Integer; const AValue : String); 

begin
  If (FbundleIdentifier=AValue) then exit;
  FbundleIdentifier:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.SetitunesAppId(AIndex : Integer; const AValue : String); 

begin
  If (FitunesAppId=AValue) then exit;
  FitunesAppId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.SetpreferredForIpad(AIndex : Integer; const AValue : boolean); 

begin
  If (FpreferredForIpad=AValue) then exit;
  FpreferredForIpad:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.SetpreferredForIphone(AIndex : Integer; const AValue : boolean); 

begin
  If (FpreferredForIphone=AValue) then exit;
  FpreferredForIphone:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.SetsupportIpad(AIndex : Integer; const AValue : boolean); 

begin
  If (FsupportIpad=AValue) then exit;
  FsupportIpad:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceIosDetails.SetsupportIphone(AIndex : Integer; const AValue : boolean); 

begin
  If (FsupportIphone=AValue) then exit;
  FsupportIphone:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceWebDetails
  --------------------------------------------------------------------}


Procedure TInstanceWebDetails.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceWebDetails.SetlaunchUrl(AIndex : Integer; const AValue : String); 

begin
  If (FlaunchUrl=AValue) then exit;
  FlaunchUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceWebDetails.Setpreferred(AIndex : Integer; const AValue : boolean); 

begin
  If (Fpreferred=AValue) then exit;
  Fpreferred:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TLeaderboard
  --------------------------------------------------------------------}


Procedure TLeaderboard.SeticonUrl(AIndex : Integer; const AValue : String); 

begin
  If (FiconUrl=AValue) then exit;
  FiconUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboard.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboard.SetisIconUrlDefault(AIndex : Integer; const AValue : boolean); 

begin
  If (FisIconUrlDefault=AValue) then exit;
  FisIconUrlDefault:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboard.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboard.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboard.Setorder(AIndex : Integer; const AValue : String); 

begin
  If (Forder=AValue) then exit;
  Forder:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TLeaderboardEntry
  --------------------------------------------------------------------}


Procedure TLeaderboardEntry.SetformattedScore(AIndex : Integer; const AValue : String); 

begin
  If (FformattedScore=AValue) then exit;
  FformattedScore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SetformattedScoreRank(AIndex : Integer; const AValue : String); 

begin
  If (FformattedScoreRank=AValue) then exit;
  FformattedScoreRank:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.Setplayer(AIndex : Integer; const AValue : TPlayer); 

begin
  If (Fplayer=AValue) then exit;
  Fplayer:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SetscoreRank(AIndex : Integer; const AValue : String); 

begin
  If (FscoreRank=AValue) then exit;
  FscoreRank:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SetscoreTag(AIndex : Integer; const AValue : String); 

begin
  If (FscoreTag=AValue) then exit;
  FscoreTag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SetscoreValue(AIndex : Integer; const AValue : String); 

begin
  If (FscoreValue=AValue) then exit;
  FscoreValue:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SettimeSpan(AIndex : Integer; const AValue : String); 

begin
  If (FtimeSpan=AValue) then exit;
  FtimeSpan:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardEntry.SetwriteTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FwriteTimestampMillis=AValue) then exit;
  FwriteTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TLeaderboardListResponse
  --------------------------------------------------------------------}


Procedure TLeaderboardListResponse.Setitems(AIndex : Integer; const AValue : TLeaderboardListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLeaderboardListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TLeaderboardScoreRank
  --------------------------------------------------------------------}


Procedure TLeaderboardScoreRank.SetformattedNumScores(AIndex : Integer; const AValue : String); 

begin
  If (FformattedNumScores=AValue) then exit;
  FformattedNumScores:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScoreRank.SetformattedRank(AIndex : Integer; const AValue : String); 

begin
  If (FformattedRank=AValue) then exit;
  FformattedRank:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScoreRank.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScoreRank.SetnumScores(AIndex : Integer; const AValue : String); 

begin
  If (FnumScores=AValue) then exit;
  FnumScores:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScoreRank.Setrank(AIndex : Integer; const AValue : String); 

begin
  If (Frank=AValue) then exit;
  Frank:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TLeaderboardScores
  --------------------------------------------------------------------}


Procedure TLeaderboardScores.Setitems(AIndex : Integer; const AValue : TLeaderboardScoresTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScores.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScores.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScores.SetnumScores(AIndex : Integer; const AValue : String); 

begin
  If (FnumScores=AValue) then exit;
  FnumScores:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScores.SetplayerScore(AIndex : Integer; const AValue : TLeaderboardEntry); 

begin
  If (FplayerScore=AValue) then exit;
  FplayerScore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLeaderboardScores.SetprevPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FprevPageToken=AValue) then exit;
  FprevPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLeaderboardScores.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TMetagameConfig
  --------------------------------------------------------------------}


Procedure TMetagameConfig.SetcurrentVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FcurrentVersion=AValue) then exit;
  FcurrentVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMetagameConfig.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMetagameConfig.SetplayerLevels(AIndex : Integer; const AValue : TMetagameConfigTypeplayerLevelsArray); 

begin
  If (FplayerLevels=AValue) then exit;
  FplayerLevels:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMetagameConfig.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'playerlevels' : SetLength(FplayerLevels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TNetworkDiagnostics
  --------------------------------------------------------------------}


Procedure TNetworkDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); 

begin
  If (FandroidNetworkSubtype=AValue) then exit;
  FandroidNetworkSubtype:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.SetandroidNetworkType(AIndex : Integer; const AValue : integer); 

begin
  If (FandroidNetworkType=AValue) then exit;
  FandroidNetworkType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.SetiosNetworkType(AIndex : Integer; const AValue : integer); 

begin
  If (FiosNetworkType=AValue) then exit;
  FiosNetworkType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.SetnetworkOperatorCode(AIndex : Integer; const AValue : String); 

begin
  If (FnetworkOperatorCode=AValue) then exit;
  FnetworkOperatorCode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.SetnetworkOperatorName(AIndex : Integer; const AValue : String); 

begin
  If (FnetworkOperatorName=AValue) then exit;
  FnetworkOperatorName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkDiagnostics.SetregistrationLatencyMillis(AIndex : Integer; const AValue : integer); 

begin
  If (FregistrationLatencyMillis=AValue) then exit;
  FregistrationLatencyMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TParticipantResult
  --------------------------------------------------------------------}


Procedure TParticipantResult.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TParticipantResult.SetparticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FparticipantId=AValue) then exit;
  FparticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TParticipantResult.Setplacing(AIndex : Integer; const AValue : integer); 

begin
  If (Fplacing=AValue) then exit;
  Fplacing:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TParticipantResult.Setresult(AIndex : Integer; const AValue : String); 

begin
  If (Fresult=AValue) then exit;
  Fresult:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPeerChannelDiagnostics
  --------------------------------------------------------------------}


Procedure TPeerChannelDiagnostics.SetbytesReceived(AIndex : Integer; const AValue : TAggregateStats); 

begin
  If (FbytesReceived=AValue) then exit;
  FbytesReceived:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetbytesSent(AIndex : Integer; const AValue : TAggregateStats); 

begin
  If (FbytesSent=AValue) then exit;
  FbytesSent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetnumMessagesLost(AIndex : Integer; const AValue : integer); 

begin
  If (FnumMessagesLost=AValue) then exit;
  FnumMessagesLost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetnumMessagesReceived(AIndex : Integer; const AValue : integer); 

begin
  If (FnumMessagesReceived=AValue) then exit;
  FnumMessagesReceived:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetnumMessagesSent(AIndex : Integer; const AValue : integer); 

begin
  If (FnumMessagesSent=AValue) then exit;
  FnumMessagesSent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetnumSendFailures(AIndex : Integer; const AValue : integer); 

begin
  If (FnumSendFailures=AValue) then exit;
  FnumSendFailures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerChannelDiagnostics.SetroundtripLatencyMillis(AIndex : Integer; const AValue : TAggregateStats); 

begin
  If (FroundtripLatencyMillis=AValue) then exit;
  FroundtripLatencyMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPeerSessionDiagnostics
  --------------------------------------------------------------------}


Procedure TPeerSessionDiagnostics.SetconnectedTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FconnectedTimestampMillis=AValue) then exit;
  FconnectedTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerSessionDiagnostics.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerSessionDiagnostics.SetparticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FparticipantId=AValue) then exit;
  FparticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerSessionDiagnostics.SetreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); 

begin
  If (FreliableChannel=AValue) then exit;
  FreliableChannel:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPeerSessionDiagnostics.SetunreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); 

begin
  If (FunreliableChannel=AValue) then exit;
  FunreliableChannel:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayed
  --------------------------------------------------------------------}


Procedure TPlayed.SetautoMatched(AIndex : Integer; const AValue : boolean); 

begin
  If (FautoMatched=AValue) then exit;
  FautoMatched:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayed.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayed.SettimeMillis(AIndex : Integer; const AValue : String); 

begin
  If (FtimeMillis=AValue) then exit;
  FtimeMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerTypename
  --------------------------------------------------------------------}


Procedure TPlayerTypename.SetfamilyName(AIndex : Integer; const AValue : String); 

begin
  If (FfamilyName=AValue) then exit;
  FfamilyName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerTypename.SetgivenName(AIndex : Integer; const AValue : String); 

begin
  If (FgivenName=AValue) then exit;
  FgivenName:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayer
  --------------------------------------------------------------------}


Procedure TPlayer.SetavatarImageUrl(AIndex : Integer; const AValue : String); 

begin
  If (FavatarImageUrl=AValue) then exit;
  FavatarImageUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetbannerUrlLandscape(AIndex : Integer; const AValue : String); 

begin
  If (FbannerUrlLandscape=AValue) then exit;
  FbannerUrlLandscape:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetbannerUrlPortrait(AIndex : Integer; const AValue : String); 

begin
  If (FbannerUrlPortrait=AValue) then exit;
  FbannerUrlPortrait:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetexperienceInfo(AIndex : Integer; const AValue : TPlayerExperienceInfo); 

begin
  If (FexperienceInfo=AValue) then exit;
  FexperienceInfo:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; const AValue : TPlayed); 

begin
  If (FlastPlayedWith=AValue) then exit;
  FlastPlayedWith:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.Setname(AIndex : Integer; const AValue : TPlayerTypename); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetoriginalPlayerId(AIndex : Integer; const AValue : String); 

begin
  If (ForiginalPlayerId=AValue) then exit;
  ForiginalPlayerId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String); 

begin
  If (FplayerId=AValue) then exit;
  FplayerId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings); 

begin
  If (FprofileSettings=AValue) then exit;
  FprofileSettings:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String); 

begin
  If (Ftitle=AValue) then exit;
  Ftitle:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerAchievement
  --------------------------------------------------------------------}


Procedure TPlayerAchievement.SetachievementState(AIndex : Integer; const AValue : String); 

begin
  If (FachievementState=AValue) then exit;
  FachievementState:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.SetcurrentSteps(AIndex : Integer; const AValue : integer); 

begin
  If (FcurrentSteps=AValue) then exit;
  FcurrentSteps:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.SetexperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FexperiencePoints=AValue) then exit;
  FexperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.SetformattedCurrentStepsString(AIndex : Integer; const AValue : String); 

begin
  If (FformattedCurrentStepsString=AValue) then exit;
  FformattedCurrentStepsString:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievement.SetlastUpdatedTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FlastUpdatedTimestamp=AValue) then exit;
  FlastUpdatedTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerAchievementListResponse
  --------------------------------------------------------------------}


Procedure TPlayerAchievementListResponse.Setitems(AIndex : Integer; const AValue : TPlayerAchievementListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievementListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerAchievementListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerAchievementListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerEvent
  --------------------------------------------------------------------}


Procedure TPlayerEvent.SetdefinitionId(AIndex : Integer; const AValue : String); 

begin
  If (FdefinitionId=AValue) then exit;
  FdefinitionId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEvent.SetformattedNumEvents(AIndex : Integer; const AValue : String); 

begin
  If (FformattedNumEvents=AValue) then exit;
  FformattedNumEvents:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEvent.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEvent.SetnumEvents(AIndex : Integer; const AValue : String); 

begin
  If (FnumEvents=AValue) then exit;
  FnumEvents:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEvent.SetplayerId(AIndex : Integer; const AValue : String); 

begin
  If (FplayerId=AValue) then exit;
  FplayerId:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerEventListResponse
  --------------------------------------------------------------------}


Procedure TPlayerEventListResponse.Setitems(AIndex : Integer; const AValue : TPlayerEventListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEventListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerEventListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerEventListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerExperienceInfo
  --------------------------------------------------------------------}


Procedure TPlayerExperienceInfo.SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FcurrentExperiencePoints=AValue) then exit;
  FcurrentExperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerExperienceInfo.SetcurrentLevel(AIndex : Integer; const AValue : TPlayerLevel); 

begin
  If (FcurrentLevel=AValue) then exit;
  FcurrentLevel:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerExperienceInfo.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerExperienceInfo.SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FlastLevelUpTimestampMillis=AValue) then exit;
  FlastLevelUpTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerExperienceInfo.SetnextLevel(AIndex : Integer; const AValue : TPlayerLevel); 

begin
  If (FnextLevel=AValue) then exit;
  FnextLevel:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerLeaderboardScore
  --------------------------------------------------------------------}


Procedure TPlayerLeaderboardScore.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.Setleaderboard_id(AIndex : Integer; const AValue : String); 

begin
  If (Fleaderboard_id=AValue) then exit;
  Fleaderboard_id:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetpublicRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); 

begin
  If (FpublicRank=AValue) then exit;
  FpublicRank:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetscoreString(AIndex : Integer; const AValue : String); 

begin
  If (FscoreString=AValue) then exit;
  FscoreString:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetscoreTag(AIndex : Integer; const AValue : String); 

begin
  If (FscoreTag=AValue) then exit;
  FscoreTag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetscoreValue(AIndex : Integer; const AValue : String); 

begin
  If (FscoreValue=AValue) then exit;
  FscoreValue:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetsocialRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); 

begin
  If (FsocialRank=AValue) then exit;
  FsocialRank:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SettimeSpan(AIndex : Integer; const AValue : String); 

begin
  If (FtimeSpan=AValue) then exit;
  FtimeSpan:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScore.SetwriteTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FwriteTimestamp=AValue) then exit;
  FwriteTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerLeaderboardScoreListResponse
  --------------------------------------------------------------------}


Procedure TPlayerLeaderboardScoreListResponse.Setitems(AIndex : Integer; const AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScoreListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScoreListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLeaderboardScoreListResponse.Setplayer(AIndex : Integer; const AValue : TPlayer); 

begin
  If (Fplayer=AValue) then exit;
  Fplayer:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerLeaderboardScoreListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerLevel
  --------------------------------------------------------------------}


Procedure TPlayerLevel.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLevel.Setlevel(AIndex : Integer; const AValue : integer); 

begin
  If (Flevel=AValue) then exit;
  Flevel:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLevel.SetmaxExperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FmaxExperiencePoints=AValue) then exit;
  FmaxExperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerLevel.SetminExperiencePoints(AIndex : Integer; const AValue : String); 

begin
  If (FminExperiencePoints=AValue) then exit;
  FminExperiencePoints:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerListResponse
  --------------------------------------------------------------------}


Procedure TPlayerListResponse.Setitems(AIndex : Integer; const AValue : TPlayerListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerScore
  --------------------------------------------------------------------}


Procedure TPlayerScore.SetformattedScore(AIndex : Integer; const AValue : String); 

begin
  If (FformattedScore=AValue) then exit;
  FformattedScore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScore.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScore.Setscore(AIndex : Integer; const AValue : String); 

begin
  If (Fscore=AValue) then exit;
  Fscore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScore.SetscoreTag(AIndex : Integer; const AValue : String); 

begin
  If (FscoreTag=AValue) then exit;
  FscoreTag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScore.SettimeSpan(AIndex : Integer; const AValue : String); 

begin
  If (FtimeSpan=AValue) then exit;
  FtimeSpan:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPlayerScoreListResponse
  --------------------------------------------------------------------}


Procedure TPlayerScoreListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreListResponse.SetsubmittedScores(AIndex : Integer; const AValue : TPlayerScoreListResponseTypesubmittedScoresArray); 

begin
  If (FsubmittedScores=AValue) then exit;
  FsubmittedScores:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerScoreListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'submittedscores' : SetLength(FsubmittedScores,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerScoreResponse
  --------------------------------------------------------------------}


Procedure TPlayerScoreResponse.SetbeatenScoreTimeSpans(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FbeatenScoreTimeSpans=AValue) then exit;
  FbeatenScoreTimeSpans:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreResponse.SetformattedScore(AIndex : Integer; const AValue : String); 

begin
  If (FformattedScore=AValue) then exit;
  FformattedScore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreResponse.SetleaderboardId(AIndex : Integer; const AValue : String); 

begin
  If (FleaderboardId=AValue) then exit;
  FleaderboardId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreResponse.SetscoreTag(AIndex : Integer; const AValue : String); 

begin
  If (FscoreTag=AValue) then exit;
  FscoreTag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreResponse.SetunbeatenScores(AIndex : Integer; const AValue : TPlayerScoreResponseTypeunbeatenScoresArray); 

begin
  If (FunbeatenScores=AValue) then exit;
  FunbeatenScores:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerScoreResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'beatenscoretimespans' : SetLength(FbeatenScoreTimeSpans,ALength);
  'unbeatenscores' : SetLength(FunbeatenScores,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPlayerScoreSubmissionList
  --------------------------------------------------------------------}


Procedure TPlayerScoreSubmissionList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPlayerScoreSubmissionList.Setscores(AIndex : Integer; const AValue : TPlayerScoreSubmissionListTypescoresArray); 

begin
  If (Fscores=AValue) then exit;
  Fscores:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlayerScoreSubmissionList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'scores' : SetLength(Fscores,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TProfileSettings
  --------------------------------------------------------------------}


Procedure TProfileSettings.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProfileSettings.SetprofileVisible(AIndex : Integer; const AValue : boolean); 

begin
  If (FprofileVisible=AValue) then exit;
  FprofileVisible:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPushToken
  --------------------------------------------------------------------}


Procedure TPushToken.SetclientRevision(AIndex : Integer; const AValue : String); 

begin
  If (FclientRevision=AValue) then exit;
  FclientRevision:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPushToken.Setid(AIndex : Integer; const AValue : TPushTokenId); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPushToken.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPushToken.Setlanguage(AIndex : Integer; const AValue : String); 

begin
  If (Flanguage=AValue) then exit;
  Flanguage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPushTokenIdTypeios
  --------------------------------------------------------------------}


Procedure TPushTokenIdTypeios.Setapns_device_token(AIndex : Integer; const AValue : String); 

begin
  If (Fapns_device_token=AValue) then exit;
  Fapns_device_token:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPushTokenIdTypeios.Setapns_environment(AIndex : Integer; const AValue : String); 

begin
  If (Fapns_environment=AValue) then exit;
  Fapns_environment:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPushTokenId
  --------------------------------------------------------------------}


Procedure TPushTokenId.Setios(AIndex : Integer; const AValue : TPushTokenIdTypeios); 

begin
  If (Fios=AValue) then exit;
  Fios:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPushTokenId.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TQuest
  --------------------------------------------------------------------}


Procedure TQuest.SetacceptedTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FacceptedTimestampMillis=AValue) then exit;
  FacceptedTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetapplicationId(AIndex : Integer; const AValue : String); 

begin
  If (FapplicationId=AValue) then exit;
  FapplicationId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetbannerUrl(AIndex : Integer; const AValue : String); 

begin
  If (FbannerUrl=AValue) then exit;
  FbannerUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetendTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FendTimestampMillis=AValue) then exit;
  FendTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SeticonUrl(AIndex : Integer; const AValue : String); 

begin
  If (FiconUrl=AValue) then exit;
  FiconUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetisDefaultBannerUrl(AIndex : Integer; const AValue : boolean); 

begin
  If (FisDefaultBannerUrl=AValue) then exit;
  FisDefaultBannerUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetisDefaultIconUrl(AIndex : Integer; const AValue : boolean); 

begin
  If (FisDefaultIconUrl=AValue) then exit;
  FisDefaultIconUrl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetlastUpdatedTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FlastUpdatedTimestampMillis=AValue) then exit;
  FlastUpdatedTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setmilestones(AIndex : Integer; const AValue : TQuestTypemilestonesArray); 

begin
  If (Fmilestones=AValue) then exit;
  Fmilestones:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetnotifyTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FnotifyTimestampMillis=AValue) then exit;
  FnotifyTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.SetstartTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FstartTimestampMillis=AValue) then exit;
  FstartTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuest.Setstate(AIndex : Integer; const AValue : String); 

begin
  If (Fstate=AValue) then exit;
  Fstate:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TQuest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'milestones' : SetLength(Fmilestones,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TQuestContribution
  --------------------------------------------------------------------}


Procedure TQuestContribution.SetformattedValue(AIndex : Integer; const AValue : String); 

begin
  If (FformattedValue=AValue) then exit;
  FformattedValue:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestContribution.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestContribution.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TQuestCriterion
  --------------------------------------------------------------------}


Procedure TQuestCriterion.SetcompletionContribution(AIndex : Integer; const AValue : TQuestContribution); 

begin
  If (FcompletionContribution=AValue) then exit;
  FcompletionContribution:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestCriterion.SetcurrentContribution(AIndex : Integer; const AValue : TQuestContribution); 

begin
  If (FcurrentContribution=AValue) then exit;
  FcurrentContribution:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestCriterion.SeteventId(AIndex : Integer; const AValue : String); 

begin
  If (FeventId=AValue) then exit;
  FeventId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestCriterion.SetinitialPlayerProgress(AIndex : Integer; const AValue : TQuestContribution); 

begin
  If (FinitialPlayerProgress=AValue) then exit;
  FinitialPlayerProgress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestCriterion.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TQuestListResponse
  --------------------------------------------------------------------}


Procedure TQuestListResponse.Setitems(AIndex : Integer; const AValue : TQuestListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TQuestListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TQuestMilestone
  --------------------------------------------------------------------}


Procedure TQuestMilestone.SetcompletionRewardData(AIndex : Integer; const AValue : String); 

begin
  If (FcompletionRewardData=AValue) then exit;
  FcompletionRewardData:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestMilestone.Setcriteria(AIndex : Integer; const AValue : TQuestMilestoneTypecriteriaArray); 

begin
  If (Fcriteria=AValue) then exit;
  Fcriteria:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestMilestone.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestMilestone.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuestMilestone.Setstate(AIndex : Integer; const AValue : String); 

begin
  If (Fstate=AValue) then exit;
  Fstate:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TQuestMilestone.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'criteria' : SetLength(Fcriteria,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRevisionCheckResponse
  --------------------------------------------------------------------}


Procedure TRevisionCheckResponse.SetapiVersion(AIndex : Integer; const AValue : String); 

begin
  If (FapiVersion=AValue) then exit;
  FapiVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRevisionCheckResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRevisionCheckResponse.SetrevisionStatus(AIndex : Integer; const AValue : String); 

begin
  If (FrevisionStatus=AValue) then exit;
  FrevisionStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoom
  --------------------------------------------------------------------}


Procedure TRoom.SetapplicationId(AIndex : Integer; const AValue : String); 

begin
  If (FapplicationId=AValue) then exit;
  FapplicationId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); 

begin
  If (FautoMatchingCriteria=AValue) then exit;
  FautoMatchingCriteria:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); 

begin
  If (FautoMatchingStatus=AValue) then exit;
  FautoMatchingStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetcreationDetails(AIndex : Integer; const AValue : TRoomModification); 

begin
  If (FcreationDetails=AValue) then exit;
  FcreationDetails:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetinviterId(AIndex : Integer; const AValue : String); 

begin
  If (FinviterId=AValue) then exit;
  FinviterId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetlastUpdateDetails(AIndex : Integer; const AValue : TRoomModification); 

begin
  If (FlastUpdateDetails=AValue) then exit;
  FlastUpdateDetails:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.Setparticipants(AIndex : Integer; const AValue : TRoomTypeparticipantsArray); 

begin
  If (Fparticipants=AValue) then exit;
  Fparticipants:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetroomId(AIndex : Integer; const AValue : String); 

begin
  If (FroomId=AValue) then exit;
  FroomId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.SetroomStatusVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FroomStatusVersion=AValue) then exit;
  FroomStatusVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoom.Setvariant(AIndex : Integer; const AValue : integer); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoom.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'participants' : SetLength(Fparticipants,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomAutoMatchStatus
  --------------------------------------------------------------------}


Procedure TRoomAutoMatchStatus.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomAutoMatchStatus.SetwaitEstimateSeconds(AIndex : Integer; const AValue : integer); 

begin
  If (FwaitEstimateSeconds=AValue) then exit;
  FwaitEstimateSeconds:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomAutoMatchingCriteria
  --------------------------------------------------------------------}


Procedure TRoomAutoMatchingCriteria.SetexclusiveBitmask(AIndex : Integer; const AValue : String); 

begin
  If (FexclusiveBitmask=AValue) then exit;
  FexclusiveBitmask:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomAutoMatchingCriteria.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxAutoMatchingPlayers=AValue) then exit;
  FmaxAutoMatchingPlayers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); 

begin
  If (FminAutoMatchingPlayers=AValue) then exit;
  FminAutoMatchingPlayers:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomClientAddress
  --------------------------------------------------------------------}


Procedure TRoomClientAddress.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomClientAddress.SetxmppAddress(AIndex : Integer; const AValue : String); 

begin
  If (FxmppAddress=AValue) then exit;
  FxmppAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomCreateRequest
  --------------------------------------------------------------------}


Procedure TRoomCreateRequest.SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); 

begin
  If (FautoMatchingCriteria=AValue) then exit;
  FautoMatchingCriteria:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.Setcapabilities(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fcapabilities=AValue) then exit;
  Fcapabilities:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); 

begin
  If (FclientAddress=AValue) then exit;
  FclientAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FinvitedPlayerIds=AValue) then exit;
  FinvitedPlayerIds:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); 

begin
  If (FnetworkDiagnostics=AValue) then exit;
  FnetworkDiagnostics:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.SetrequestId(AIndex : Integer; const AValue : String); 

begin
  If (FrequestId=AValue) then exit;
  FrequestId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomCreateRequest.Setvariant(AIndex : Integer; const AValue : integer); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomCreateRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'capabilities' : SetLength(Fcapabilities,ALength);
  'invitedplayerids' : SetLength(FinvitedPlayerIds,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomJoinRequest
  --------------------------------------------------------------------}


Procedure TRoomJoinRequest.Setcapabilities(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fcapabilities=AValue) then exit;
  Fcapabilities:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomJoinRequest.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); 

begin
  If (FclientAddress=AValue) then exit;
  FclientAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomJoinRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomJoinRequest.SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); 

begin
  If (FnetworkDiagnostics=AValue) then exit;
  FnetworkDiagnostics:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomJoinRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'capabilities' : SetLength(Fcapabilities,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomLeaveDiagnostics
  --------------------------------------------------------------------}


Procedure TRoomLeaveDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); 

begin
  If (FandroidNetworkSubtype=AValue) then exit;
  FandroidNetworkSubtype:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetandroidNetworkType(AIndex : Integer; const AValue : integer); 

begin
  If (FandroidNetworkType=AValue) then exit;
  FandroidNetworkType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetiosNetworkType(AIndex : Integer; const AValue : integer); 

begin
  If (FiosNetworkType=AValue) then exit;
  FiosNetworkType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetnetworkOperatorCode(AIndex : Integer; const AValue : String); 

begin
  If (FnetworkOperatorCode=AValue) then exit;
  FnetworkOperatorCode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetnetworkOperatorName(AIndex : Integer; const AValue : String); 

begin
  If (FnetworkOperatorName=AValue) then exit;
  FnetworkOperatorName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetpeerSession(AIndex : Integer; const AValue : TRoomLeaveDiagnosticsTypepeerSessionArray); 

begin
  If (FpeerSession=AValue) then exit;
  FpeerSession:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveDiagnostics.SetsocketsUsed(AIndex : Integer; const AValue : boolean); 

begin
  If (FsocketsUsed=AValue) then exit;
  FsocketsUsed:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomLeaveDiagnostics.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'peersession' : SetLength(FpeerSession,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomLeaveRequest
  --------------------------------------------------------------------}


Procedure TRoomLeaveRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveRequest.SetleaveDiagnostics(AIndex : Integer; const AValue : TRoomLeaveDiagnostics); 

begin
  If (FleaveDiagnostics=AValue) then exit;
  FleaveDiagnostics:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomLeaveRequest.Setreason(AIndex : Integer; const AValue : String); 

begin
  If (Freason=AValue) then exit;
  Freason:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomList
  --------------------------------------------------------------------}


Procedure TRoomList.Setitems(AIndex : Integer; const AValue : TRoomListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomModification
  --------------------------------------------------------------------}


Procedure TRoomModification.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomModification.SetmodifiedTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FmodifiedTimestampMillis=AValue) then exit;
  FmodifiedTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomModification.SetparticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FparticipantId=AValue) then exit;
  FparticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomP2PStatus
  --------------------------------------------------------------------}


Procedure TRoomP2PStatus.SetconnectionSetupLatencyMillis(AIndex : Integer; const AValue : integer); 

begin
  If (FconnectionSetupLatencyMillis=AValue) then exit;
  FconnectionSetupLatencyMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.Seterror(AIndex : Integer; const AValue : String); 

begin
  If (Ferror=AValue) then exit;
  Ferror:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.Seterror_reason(AIndex : Integer; const AValue : String); 

begin
  If (Ferror_reason=AValue) then exit;
  Ferror_reason:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.SetparticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FparticipantId=AValue) then exit;
  FparticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatus.SetunreliableRoundtripLatencyMillis(AIndex : Integer; const AValue : integer); 

begin
  If (FunreliableRoundtripLatencyMillis=AValue) then exit;
  FunreliableRoundtripLatencyMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRoomP2PStatuses
  --------------------------------------------------------------------}


Procedure TRoomP2PStatuses.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomP2PStatuses.Setupdates(AIndex : Integer; const AValue : TRoomP2PStatusesTypeupdatesArray); 

begin
  If (Fupdates=AValue) then exit;
  Fupdates:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomP2PStatuses.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'updates' : SetLength(Fupdates,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomParticipant
  --------------------------------------------------------------------}


Procedure TRoomParticipant.SetautoMatched(AIndex : Integer; const AValue : boolean); 

begin
  If (FautoMatched=AValue) then exit;
  FautoMatched:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); 

begin
  If (FautoMatchedPlayer=AValue) then exit;
  FautoMatchedPlayer:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setcapabilities(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fcapabilities=AValue) then exit;
  Fcapabilities:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); 

begin
  If (FclientAddress=AValue) then exit;
  FclientAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setconnected(AIndex : Integer; const AValue : boolean); 

begin
  If (Fconnected=AValue) then exit;
  Fconnected:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.SetleaveReason(AIndex : Integer; const AValue : String); 

begin
  If (FleaveReason=AValue) then exit;
  FleaveReason:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setplayer(AIndex : Integer; const AValue : TPlayer); 

begin
  If (Fplayer=AValue) then exit;
  Fplayer:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomParticipant.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomParticipant.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'capabilities' : SetLength(Fcapabilities,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoomStatus
  --------------------------------------------------------------------}


Procedure TRoomStatus.SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); 

begin
  If (FautoMatchingStatus=AValue) then exit;
  FautoMatchingStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomStatus.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomStatus.Setparticipants(AIndex : Integer; const AValue : TRoomStatusTypeparticipantsArray); 

begin
  If (Fparticipants=AValue) then exit;
  Fparticipants:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomStatus.SetroomId(AIndex : Integer; const AValue : String); 

begin
  If (FroomId=AValue) then exit;
  FroomId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomStatus.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoomStatus.SetstatusVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FstatusVersion=AValue) then exit;
  FstatusVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoomStatus.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'participants' : SetLength(Fparticipants,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TScoreSubmission
  --------------------------------------------------------------------}


Procedure TScoreSubmission.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScoreSubmission.SetleaderboardId(AIndex : Integer; const AValue : String); 

begin
  If (FleaderboardId=AValue) then exit;
  FleaderboardId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScoreSubmission.Setscore(AIndex : Integer; const AValue : String); 

begin
  If (Fscore=AValue) then exit;
  Fscore:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScoreSubmission.SetscoreTag(AIndex : Integer; const AValue : String); 

begin
  If (FscoreTag=AValue) then exit;
  FscoreTag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScoreSubmission.Setsignature(AIndex : Integer; const AValue : String); 

begin
  If (Fsignature=AValue) then exit;
  Fsignature:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSnapshot
  --------------------------------------------------------------------}


Procedure TSnapshot.SetcoverImage(AIndex : Integer; const AValue : TSnapshotImage); 

begin
  If (FcoverImage=AValue) then exit;
  FcoverImage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetdriveId(AIndex : Integer; const AValue : String); 

begin
  If (FdriveId=AValue) then exit;
  FdriveId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetdurationMillis(AIndex : Integer; const AValue : String); 

begin
  If (FdurationMillis=AValue) then exit;
  FdurationMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetlastModifiedMillis(AIndex : Integer; const AValue : String); 

begin
  If (FlastModifiedMillis=AValue) then exit;
  FlastModifiedMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetprogressValue(AIndex : Integer; const AValue : String); 

begin
  If (FprogressValue=AValue) then exit;
  FprogressValue:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Settitle(AIndex : Integer; const AValue : String); 

begin
  If (Ftitle=AValue) then exit;
  Ftitle:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Set_type(AIndex : Integer; const AValue : String); 

begin
  If (F_type=AValue) then exit;
  F_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetuniqueName(AIndex : Integer; const AValue : String); 

begin
  If (FuniqueName=AValue) then exit;
  FuniqueName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TSnapshot.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_type' : Result:='type';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;




{ --------------------------------------------------------------------
  TSnapshotImage
  --------------------------------------------------------------------}


Procedure TSnapshotImage.Setheight(AIndex : Integer; const AValue : integer); 

begin
  If (Fheight=AValue) then exit;
  Fheight:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotImage.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotImage.Setmime_type(AIndex : Integer; const AValue : String); 

begin
  If (Fmime_type=AValue) then exit;
  Fmime_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotImage.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotImage.Setwidth(AIndex : Integer; const AValue : integer); 

begin
  If (Fwidth=AValue) then exit;
  Fwidth:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSnapshotListResponse
  --------------------------------------------------------------------}


Procedure TSnapshotListResponse.Setitems(AIndex : Integer; const AValue : TSnapshotListResponseTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotListResponse.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSnapshotListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedAutoMatchingCriteria
  --------------------------------------------------------------------}


Procedure TTurnBasedAutoMatchingCriteria.SetexclusiveBitmask(AIndex : Integer; const AValue : String); 

begin
  If (FexclusiveBitmask=AValue) then exit;
  FexclusiveBitmask:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedAutoMatchingCriteria.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxAutoMatchingPlayers=AValue) then exit;
  FmaxAutoMatchingPlayers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); 

begin
  If (FminAutoMatchingPlayers=AValue) then exit;
  FminAutoMatchingPlayers:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatch
  --------------------------------------------------------------------}


Procedure TTurnBasedMatch.SetapplicationId(AIndex : Integer; const AValue : String); 

begin
  If (FapplicationId=AValue) then exit;
  FapplicationId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); 

begin
  If (FautoMatchingCriteria=AValue) then exit;
  FautoMatchingCriteria:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetcreationDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); 

begin
  If (FcreationDetails=AValue) then exit;
  FcreationDetails:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchData); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetinviterId(AIndex : Integer; const AValue : String); 

begin
  If (FinviterId=AValue) then exit;
  FinviterId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetlastUpdateDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); 

begin
  If (FlastUpdateDetails=AValue) then exit;
  FlastUpdateDetails:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetmatchId(AIndex : Integer; const AValue : String); 

begin
  If (FmatchId=AValue) then exit;
  FmatchId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetmatchNumber(AIndex : Integer; const AValue : integer); 

begin
  If (FmatchNumber=AValue) then exit;
  FmatchNumber:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetmatchVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FmatchVersion=AValue) then exit;
  FmatchVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setparticipants(AIndex : Integer; const AValue : TTurnBasedMatchTypeparticipantsArray); 

begin
  If (Fparticipants=AValue) then exit;
  Fparticipants:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetpendingParticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FpendingParticipantId=AValue) then exit;
  FpendingParticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetpreviousMatchData(AIndex : Integer; const AValue : TTurnBasedMatchData); 

begin
  If (FpreviousMatchData=AValue) then exit;
  FpreviousMatchData:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetrematchId(AIndex : Integer; const AValue : String); 

begin
  If (FrematchId=AValue) then exit;
  FrematchId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTyperesultsArray); 

begin
  If (Fresults=AValue) then exit;
  Fresults:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetuserMatchStatus(AIndex : Integer; const AValue : String); 

begin
  If (FuserMatchStatus=AValue) then exit;
  FuserMatchStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.Setvariant(AIndex : Integer; const AValue : integer); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatch.SetwithParticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FwithParticipantId=AValue) then exit;
  FwithParticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatch.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'participants' : SetLength(Fparticipants,ALength);
  'results' : SetLength(Fresults,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedMatchCreateRequest
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchCreateRequest.SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); 

begin
  If (FautoMatchingCriteria=AValue) then exit;
  FautoMatchingCriteria:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchCreateRequest.SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FinvitedPlayerIds=AValue) then exit;
  FinvitedPlayerIds:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchCreateRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchCreateRequest.SetrequestId(AIndex : Integer; const AValue : String); 

begin
  If (FrequestId=AValue) then exit;
  FrequestId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchCreateRequest.Setvariant(AIndex : Integer; const AValue : integer); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatchCreateRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'invitedplayerids' : SetLength(FinvitedPlayerIds,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedMatchData
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchData.Setdata(AIndex : Integer; const AValue : String); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchData.SetdataAvailable(AIndex : Integer; const AValue : boolean); 

begin
  If (FdataAvailable=AValue) then exit;
  FdataAvailable:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchData.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatchDataRequest
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchDataRequest.Setdata(AIndex : Integer; const AValue : String); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchDataRequest.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatchList
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchList.Setitems(AIndex : Integer; const AValue : TTurnBasedMatchListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatchList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedMatchModification
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchModification.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchModification.SetmodifiedTimestampMillis(AIndex : Integer; const AValue : String); 

begin
  If (FmodifiedTimestampMillis=AValue) then exit;
  FmodifiedTimestampMillis:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchModification.SetparticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FparticipantId=AValue) then exit;
  FparticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatchParticipant
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchParticipant.SetautoMatched(AIndex : Integer; const AValue : boolean); 

begin
  If (FautoMatched=AValue) then exit;
  FautoMatched:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchParticipant.SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); 

begin
  If (FautoMatchedPlayer=AValue) then exit;
  FautoMatchedPlayer:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchParticipant.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchParticipant.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchParticipant.Setplayer(AIndex : Integer; const AValue : TPlayer); 

begin
  If (Fplayer=AValue) then exit;
  Fplayer:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchParticipant.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatchRematch
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchRematch.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchRematch.SetpreviousMatch(AIndex : Integer; const AValue : TTurnBasedMatch); 

begin
  If (FpreviousMatch=AValue) then exit;
  FpreviousMatch:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchRematch.Setrematch(AIndex : Integer; const AValue : TTurnBasedMatch); 

begin
  If (Frematch=AValue) then exit;
  Frematch:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTurnBasedMatchResults
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchResults.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchResults.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchResults.SetmatchVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FmatchVersion=AValue) then exit;
  FmatchVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchResults.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchResultsTyperesultsArray); 

begin
  If (Fresults=AValue) then exit;
  Fresults:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatchResults.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'results' : SetLength(Fresults,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedMatchSync
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchSync.Setitems(AIndex : Integer; const AValue : TTurnBasedMatchSyncTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchSync.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchSync.SetmoreAvailable(AIndex : Integer; const AValue : boolean); 

begin
  If (FmoreAvailable=AValue) then exit;
  FmoreAvailable:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchSync.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatchSync.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTurnBasedMatchTurn
  --------------------------------------------------------------------}


Procedure TTurnBasedMatchTurn.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchTurn.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchTurn.SetmatchVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FmatchVersion=AValue) then exit;
  FmatchVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchTurn.SetpendingParticipantId(AIndex : Integer; const AValue : String); 

begin
  If (FpendingParticipantId=AValue) then exit;
  FpendingParticipantId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTurnBasedMatchTurn.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTurnTyperesultsArray); 

begin
  If (Fresults=AValue) then exit;
  Fresults:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTurnBasedMatchTurn.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'results' : SetLength(Fresults,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAchievementDefinitionsResource
  --------------------------------------------------------------------}


Class Function TAchievementDefinitionsResource.ResourceName : String;

begin
  Result:='achievementDefinitions';
end;

Class Function TAchievementDefinitionsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TAchievementDefinitionsResource.List(AQuery : string = '') : TAchievementDefinitionsListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'achievements';
  _Methodid   = 'games.achievementDefinitions.list';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAchievementDefinitionsListResponse) as TAchievementDefinitionsListResponse;
end;


Function TAchievementDefinitionsResource.List(AQuery : TAchievementDefinitionslistOptions) : TAchievementDefinitionsListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(_Q);
end;



{ --------------------------------------------------------------------
  TAchievementsResource
  --------------------------------------------------------------------}


Class Function TAchievementsResource.ResourceName : String;

begin
  Result:='achievements';
end;

Class Function TAchievementsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TAchievementsResource.Increment(achievementId: string; AQuery : string = '') : TAchievementIncrementResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'achievements/{achievementId}/increment';
  _Methodid   = 'games.achievements.increment';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['achievementId',achievementId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementIncrementResponse) as TAchievementIncrementResponse;
end;


Function TAchievementsResource.Increment(achievementId: string; AQuery : TAchievementsincrementOptions) : TAchievementIncrementResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'requestId',AQuery.requestId);
  AddToQuery(_Q,'stepsToIncrement',AQuery.stepsToIncrement);
  Result:=Increment(achievementId,_Q);
end;

Function TAchievementsResource.List(playerId: string; AQuery : string = '') : TPlayerAchievementListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}/achievements';
  _Methodid   = 'games.achievements.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['playerId',playerId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPlayerAchievementListResponse) as TPlayerAchievementListResponse;
end;


Function TAchievementsResource.List(playerId: string; AQuery : TAchievementslistOptions) : TPlayerAchievementListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'state',AQuery.state);
  Result:=List(playerId,_Q);
end;

Function TAchievementsResource.Reveal(achievementId: string; AQuery : string = '') : TAchievementRevealResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'achievements/{achievementId}/reveal';
  _Methodid   = 'games.achievements.reveal';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['achievementId',achievementId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementRevealResponse) as TAchievementRevealResponse;
end;


Function TAchievementsResource.Reveal(achievementId: string; AQuery : TAchievementsrevealOptions) : TAchievementRevealResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=Reveal(achievementId,_Q);
end;

Function TAchievementsResource.SetStepsAtLeast(achievementId: string; AQuery : string = '') : TAchievementSetStepsAtLeastResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'achievements/{achievementId}/setStepsAtLeast';
  _Methodid   = 'games.achievements.setStepsAtLeast';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['achievementId',achievementId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementSetStepsAtLeastResponse) as TAchievementSetStepsAtLeastResponse;
end;


Function TAchievementsResource.SetStepsAtLeast(achievementId: string; AQuery : TAchievementssetStepsAtLeastOptions) : TAchievementSetStepsAtLeastResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'steps',AQuery.steps);
  Result:=SetStepsAtLeast(achievementId,_Q);
end;

Function TAchievementsResource.Unlock(achievementId: string; AQuery : string = '') : TAchievementUnlockResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'achievements/{achievementId}/unlock';
  _Methodid   = 'games.achievements.unlock';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['achievementId',achievementId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementUnlockResponse) as TAchievementUnlockResponse;
end;


Function TAchievementsResource.Unlock(achievementId: string; AQuery : TAchievementsunlockOptions) : TAchievementUnlockResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=Unlock(achievementId,_Q);
end;

Function TAchievementsResource.UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : string = '') : TAchievementUpdateMultipleResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'achievements/updateMultiple';
  _Methodid   = 'games.achievements.updateMultiple';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAchievementUpdateMultipleRequest,TAchievementUpdateMultipleResponse) as TAchievementUpdateMultipleResponse;
end;


Function TAchievementsResource.UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : TAchievementsupdateMultipleOptions) : TAchievementUpdateMultipleResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=UpdateMultiple(aAchievementUpdateMultipleRequest,_Q);
end;



{ --------------------------------------------------------------------
  TApplicationsResource
  --------------------------------------------------------------------}


Class Function TApplicationsResource.ResourceName : String;

begin
  Result:='applications';
end;

Class Function TApplicationsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TApplicationsResource.Get(applicationId: string; AQuery : string = '') : TApplication;

Const
  _HTTPMethod = 'GET';
  _Path       = 'applications/{applicationId}';
  _Methodid   = 'games.applications.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['applicationId',applicationId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TApplication) as TApplication;
end;


Function TApplicationsResource.Get(applicationId: string; AQuery : TApplicationsgetOptions) : TApplication;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'platformType',AQuery.platformType);
  Result:=Get(applicationId,_Q);
end;

Procedure TApplicationsResource.Played(AQuery : string = '');

Const
  _HTTPMethod = 'POST';
  _Path       = 'applications/played';
  _Methodid   = 'games.applications.played';

begin
  ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;


Procedure TApplicationsResource.Played(AQuery : TApplicationsplayedOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Played(_Q);
end;

Function TApplicationsResource.Verify(applicationId: string; AQuery : string = '') : TApplicationVerifyResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'applications/{applicationId}/verify';
  _Methodid   = 'games.applications.verify';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['applicationId',applicationId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TApplicationVerifyResponse) as TApplicationVerifyResponse;
end;


Function TApplicationsResource.Verify(applicationId: string; AQuery : TApplicationsverifyOptions) : TApplicationVerifyResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=Verify(applicationId,_Q);
end;



{ --------------------------------------------------------------------
  TEventsResource
  --------------------------------------------------------------------}


Class Function TEventsResource.ResourceName : String;

begin
  Result:='events';
end;

Class Function TEventsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TEventsResource.ListByPlayer(AQuery : string = '') : TPlayerEventListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'events';
  _Methodid   = 'games.events.listByPlayer';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPlayerEventListResponse) as TPlayerEventListResponse;
end;


Function TEventsResource.ListByPlayer(AQuery : TEventslistByPlayerOptions) : TPlayerEventListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=ListByPlayer(_Q);
end;

Function TEventsResource.ListDefinitions(AQuery : string = '') : TEventDefinitionListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'eventDefinitions';
  _Methodid   = 'games.events.listDefinitions';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TEventDefinitionListResponse) as TEventDefinitionListResponse;
end;


Function TEventsResource.ListDefinitions(AQuery : TEventslistDefinitionsOptions) : TEventDefinitionListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=ListDefinitions(_Q);
end;

Function TEventsResource._record(aEventRecordRequest : TEventRecordRequest; AQuery : string = '') : TEventUpdateResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'events';
  _Methodid   = 'games.events.record';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aEventRecordRequest,TEventUpdateResponse) as TEventUpdateResponse;
end;


Function TEventsResource._record(aEventRecordRequest : TEventRecordRequest; AQuery : TEventsrecordOptions) : TEventUpdateResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=_record(aEventRecordRequest,_Q);
end;



{ --------------------------------------------------------------------
  TLeaderboardsResource
  --------------------------------------------------------------------}


Class Function TLeaderboardsResource.ResourceName : String;

begin
  Result:='leaderboards';
end;

Class Function TLeaderboardsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TLeaderboardsResource.Get(leaderboardId: string; AQuery : string = '') : TLeaderboard;

Const
  _HTTPMethod = 'GET';
  _Path       = 'leaderboards/{leaderboardId}';
  _Methodid   = 'games.leaderboards.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['leaderboardId',leaderboardId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLeaderboard) as TLeaderboard;
end;


Function TLeaderboardsResource.Get(leaderboardId: string; AQuery : TLeaderboardsgetOptions) : TLeaderboard;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Get(leaderboardId,_Q);
end;

Function TLeaderboardsResource.List(AQuery : string = '') : TLeaderboardListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'leaderboards';
  _Methodid   = 'games.leaderboards.list';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLeaderboardListResponse) as TLeaderboardListResponse;
end;


Function TLeaderboardsResource.List(AQuery : TLeaderboardslistOptions) : TLeaderboardListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(_Q);
end;



{ --------------------------------------------------------------------
  TMetagameResource
  --------------------------------------------------------------------}


Class Function TMetagameResource.ResourceName : String;

begin
  Result:='metagame';
end;

Class Function TMetagameResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TMetagameResource.GetMetagameConfig(AQuery : string = '') : TMetagameConfig;

Const
  _HTTPMethod = 'GET';
  _Path       = 'metagameConfig';
  _Methodid   = 'games.metagame.getMetagameConfig';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMetagameConfig) as TMetagameConfig;
end;


Function TMetagameResource.GetMetagameConfig(AQuery : TMetagamegetMetagameConfigOptions) : TMetagameConfig;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=GetMetagameConfig(_Q);
end;

Function TMetagameResource.ListCategoriesByPlayer(collection: string; playerId: string; AQuery : string = '') : TCategoryListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}/categories/{collection}';
  _Methodid   = 'games.metagame.listCategoriesByPlayer';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['collection',collection,'playerId',playerId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCategoryListResponse) as TCategoryListResponse;
end;


Function TMetagameResource.ListCategoriesByPlayer(collection: string; playerId: string; AQuery : TMetagamelistCategoriesByPlayerOptions) : TCategoryListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=ListCategoriesByPlayer(collection,playerId,_Q);
end;



{ --------------------------------------------------------------------
  TPlayersResource
  --------------------------------------------------------------------}


Class Function TPlayersResource.ResourceName : String;

begin
  Result:='players';
end;

Class Function TPlayersResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TPlayersResource.Get(playerId: string; AQuery : string = '') : TPlayer;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}';
  _Methodid   = 'games.players.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['playerId',playerId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPlayer) as TPlayer;
end;


Function TPlayersResource.Get(playerId: string; AQuery : TPlayersgetOptions) : TPlayer;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Get(playerId,_Q);
end;

Function TPlayersResource.List(collection: string; AQuery : string = '') : TPlayerListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/me/players/{collection}';
  _Methodid   = 'games.players.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['collection',collection]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPlayerListResponse) as TPlayerListResponse;
end;


Function TPlayersResource.List(collection: string; AQuery : TPlayerslistOptions) : TPlayerListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(collection,_Q);
end;



{ --------------------------------------------------------------------
  TPushtokensResource
  --------------------------------------------------------------------}


Class Function TPushtokensResource.ResourceName : String;

begin
  Result:='pushtokens';
end;

Class Function TPushtokensResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Procedure TPushtokensResource.Remove(aPushTokenId : TPushTokenId; AQuery : string = '');

Const
  _HTTPMethod = 'POST';
  _Path       = 'pushtokens/remove';
  _Methodid   = 'games.pushtokens.remove';

begin
  ServiceCall(_HTTPMethod,_Path,AQuery,aPushTokenId,Nil);
end;


Procedure TPushtokensResource.Remove(aPushTokenId : TPushTokenId; AQuery : TPushtokensremoveOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Remove(aPushTokenId,_Q);
end;

Procedure TPushtokensResource.Update(aPushToken : TPushToken; AQuery : string = '');

Const
  _HTTPMethod = 'PUT';
  _Path       = 'pushtokens';
  _Methodid   = 'games.pushtokens.update';

begin
  ServiceCall(_HTTPMethod,_Path,AQuery,aPushToken,Nil);
end;


Procedure TPushtokensResource.Update(aPushToken : TPushToken; AQuery : TPushtokensupdateOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Update(aPushToken,_Q);
end;



{ --------------------------------------------------------------------
  TQuestMilestonesResource
  --------------------------------------------------------------------}


Class Function TQuestMilestonesResource.ResourceName : String;

begin
  Result:='questMilestones';
end;

Class Function TQuestMilestonesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Procedure TQuestMilestonesResource.Claim(milestoneId: string; questId: string; AQuery : string = '');

Const
  _HTTPMethod = 'PUT';
  _Path       = 'quests/{questId}/milestones/{milestoneId}/claim';
  _Methodid   = 'games.questMilestones.claim';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['milestoneId',milestoneId,'questId',questId]);
  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;


Procedure TQuestMilestonesResource.Claim(milestoneId: string; questId: string; AQuery : TQuestMilestonesclaimOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'requestId',AQuery.requestId);
  Claim(milestoneId,questId,_Q);
end;



{ --------------------------------------------------------------------
  TQuestsResource
  --------------------------------------------------------------------}


Class Function TQuestsResource.ResourceName : String;

begin
  Result:='quests';
end;

Class Function TQuestsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TQuestsResource.Accept(questId: string; AQuery : string = '') : TQuest;

Const
  _HTTPMethod = 'POST';
  _Path       = 'quests/{questId}/accept';
  _Methodid   = 'games.quests.accept';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['questId',questId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TQuest) as TQuest;
end;


Function TQuestsResource.Accept(questId: string; AQuery : TQuestsacceptOptions) : TQuest;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Accept(questId,_Q);
end;

Function TQuestsResource.List(playerId: string; AQuery : string = '') : TQuestListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}/quests';
  _Methodid   = 'games.quests.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['playerId',playerId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TQuestListResponse) as TQuestListResponse;
end;


Function TQuestsResource.List(playerId: string; AQuery : TQuestslistOptions) : TQuestListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(playerId,_Q);
end;



{ --------------------------------------------------------------------
  TRevisionsResource
  --------------------------------------------------------------------}


Class Function TRevisionsResource.ResourceName : String;

begin
  Result:='revisions';
end;

Class Function TRevisionsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TRevisionsResource.Check(AQuery : string = '') : TRevisionCheckResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'revisions/check';
  _Methodid   = 'games.revisions.check';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRevisionCheckResponse) as TRevisionCheckResponse;
end;


Function TRevisionsResource.Check(AQuery : TRevisionscheckOptions) : TRevisionCheckResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'clientRevision',AQuery.clientRevision);
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Result:=Check(_Q);
end;



{ --------------------------------------------------------------------
  TRoomsResource
  --------------------------------------------------------------------}


Class Function TRoomsResource.ResourceName : String;

begin
  Result:='rooms';
end;

Class Function TRoomsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TRoomsResource.Create(aRoomCreateRequest : TRoomCreateRequest; AQuery : string = '') : TRoom;

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/create';
  _Methodid   = 'games.rooms.create';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aRoomCreateRequest,TRoom) as TRoom;
end;


Function TRoomsResource.Create(aRoomCreateRequest : TRoomCreateRequest; AQuery : TRoomscreateOptions) : TRoom;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Create(aRoomCreateRequest,_Q);
end;

Function TRoomsResource.Decline(roomId: string; AQuery : string = '') : TRoom;

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/{roomId}/decline';
  _Methodid   = 'games.rooms.decline';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRoom) as TRoom;
end;


Function TRoomsResource.Decline(roomId: string; AQuery : TRoomsdeclineOptions) : TRoom;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Decline(roomId,_Q);
end;

Procedure TRoomsResource.Dismiss(roomId: string; AQuery : string = '');

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/{roomId}/dismiss';
  _Methodid   = 'games.rooms.dismiss';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;


Procedure TRoomsResource.Dismiss(roomId: string; AQuery : TRoomsdismissOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Dismiss(roomId,_Q);
end;

Function TRoomsResource.Get(roomId: string; AQuery : string = '') : TRoom;

Const
  _HTTPMethod = 'GET';
  _Path       = 'rooms/{roomId}';
  _Methodid   = 'games.rooms.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRoom) as TRoom;
end;


Function TRoomsResource.Get(roomId: string; AQuery : TRoomsgetOptions) : TRoom;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Get(roomId,_Q);
end;

Function TRoomsResource.Join(roomId: string; aRoomJoinRequest : TRoomJoinRequest; AQuery : string = '') : TRoom;

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/{roomId}/join';
  _Methodid   = 'games.rooms.join';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aRoomJoinRequest,TRoom) as TRoom;
end;


Function TRoomsResource.Join(roomId: string; aRoomJoinRequest : TRoomJoinRequest; AQuery : TRoomsjoinOptions) : TRoom;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Join(roomId,aRoomJoinRequest,_Q);
end;

Function TRoomsResource.Leave(roomId: string; aRoomLeaveRequest : TRoomLeaveRequest; AQuery : string = '') : TRoom;

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/{roomId}/leave';
  _Methodid   = 'games.rooms.leave';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aRoomLeaveRequest,TRoom) as TRoom;
end;


Function TRoomsResource.Leave(roomId: string; aRoomLeaveRequest : TRoomLeaveRequest; AQuery : TRoomsleaveOptions) : TRoom;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Leave(roomId,aRoomLeaveRequest,_Q);
end;

Function TRoomsResource.List(AQuery : string = '') : TRoomList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'rooms';
  _Methodid   = 'games.rooms.list';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRoomList) as TRoomList;
end;


Function TRoomsResource.List(AQuery : TRoomslistOptions) : TRoomList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(_Q);
end;

Function TRoomsResource.ReportStatus(roomId: string; aRoomP2PStatuses : TRoomP2PStatuses; AQuery : string = '') : TRoomStatus;

Const
  _HTTPMethod = 'POST';
  _Path       = 'rooms/{roomId}/reportstatus';
  _Methodid   = 'games.rooms.reportStatus';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['roomId',roomId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aRoomP2PStatuses,TRoomStatus) as TRoomStatus;
end;


Function TRoomsResource.ReportStatus(roomId: string; aRoomP2PStatuses : TRoomP2PStatuses; AQuery : TRoomsreportStatusOptions) : TRoomStatus;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=ReportStatus(roomId,aRoomP2PStatuses,_Q);
end;



{ --------------------------------------------------------------------
  TScoresResource
  --------------------------------------------------------------------}


Class Function TScoresResource.ResourceName : String;

begin
  Result:='scores';
end;

Class Function TScoresResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TScoresResource.Get(leaderboardId: string; playerId: string; timeSpan: string; AQuery : string = '') : TPlayerLeaderboardScoreListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}/leaderboards/{leaderboardId}/scores/{timeSpan}';
  _Methodid   = 'games.scores.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['leaderboardId',leaderboardId,'playerId',playerId,'timeSpan',timeSpan]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPlayerLeaderboardScoreListResponse) as TPlayerLeaderboardScoreListResponse;
end;


Function TScoresResource.Get(leaderboardId: string; playerId: string; timeSpan: string; AQuery : TScoresgetOptions) : TPlayerLeaderboardScoreListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'includeRankType',AQuery.includeRankType);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=Get(leaderboardId,playerId,timeSpan,_Q);
end;

Function TScoresResource.List(collection: string; leaderboardId: string; AQuery : string = '') : TLeaderboardScores;

Const
  _HTTPMethod = 'GET';
  _Path       = 'leaderboards/{leaderboardId}/scores/{collection}';
  _Methodid   = 'games.scores.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['collection',collection,'leaderboardId',leaderboardId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLeaderboardScores) as TLeaderboardScores;
end;


Function TScoresResource.List(collection: string; leaderboardId: string; AQuery : TScoreslistOptions) : TLeaderboardScores;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'timeSpan',AQuery.timeSpan);
  Result:=List(collection,leaderboardId,_Q);
end;

Function TScoresResource.ListWindow(collection: string; leaderboardId: string; AQuery : string = '') : TLeaderboardScores;

Const
  _HTTPMethod = 'GET';
  _Path       = 'leaderboards/{leaderboardId}/window/{collection}';
  _Methodid   = 'games.scores.listWindow';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['collection',collection,'leaderboardId',leaderboardId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLeaderboardScores) as TLeaderboardScores;
end;


Function TScoresResource.ListWindow(collection: string; leaderboardId: string; AQuery : TScoreslistWindowOptions) : TLeaderboardScores;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'resultsAbove',AQuery.resultsAbove);
  AddToQuery(_Q,'returnTopIfAbsent',AQuery.returnTopIfAbsent);
  AddToQuery(_Q,'timeSpan',AQuery.timeSpan);
  Result:=ListWindow(collection,leaderboardId,_Q);
end;

Function TScoresResource.Submit(leaderboardId: string; AQuery : string = '') : TPlayerScoreResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'leaderboards/{leaderboardId}/scores';
  _Methodid   = 'games.scores.submit';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['leaderboardId',leaderboardId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPlayerScoreResponse) as TPlayerScoreResponse;
end;


Function TScoresResource.Submit(leaderboardId: string; AQuery : TScoressubmitOptions) : TPlayerScoreResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'score',AQuery.score);
  AddToQuery(_Q,'scoreTag',AQuery.scoreTag);
  Result:=Submit(leaderboardId,_Q);
end;

Function TScoresResource.SubmitMultiple(aPlayerScoreSubmissionList : TPlayerScoreSubmissionList; AQuery : string = '') : TPlayerScoreListResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = 'leaderboards/scores';
  _Methodid   = 'games.scores.submitMultiple';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aPlayerScoreSubmissionList,TPlayerScoreListResponse) as TPlayerScoreListResponse;
end;


Function TScoresResource.SubmitMultiple(aPlayerScoreSubmissionList : TPlayerScoreSubmissionList; AQuery : TScoressubmitMultipleOptions) : TPlayerScoreListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=SubmitMultiple(aPlayerScoreSubmissionList,_Q);
end;



{ --------------------------------------------------------------------
  TSnapshotsResource
  --------------------------------------------------------------------}


Class Function TSnapshotsResource.ResourceName : String;

begin
  Result:='snapshots';
end;

Class Function TSnapshotsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Function TSnapshotsResource.Get(snapshotId: string; AQuery : string = '') : TSnapshot;

Const
  _HTTPMethod = 'GET';
  _Path       = 'snapshots/{snapshotId}';
  _Methodid   = 'games.snapshots.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['snapshotId',snapshotId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSnapshot) as TSnapshot;
end;


Function TSnapshotsResource.Get(snapshotId: string; AQuery : TSnapshotsgetOptions) : TSnapshot;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Get(snapshotId,_Q);
end;

Function TSnapshotsResource.List(playerId: string; AQuery : string = '') : TSnapshotListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = 'players/{playerId}/snapshots';
  _Methodid   = 'games.snapshots.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['playerId',playerId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSnapshotListResponse) as TSnapshotListResponse;
end;


Function TSnapshotsResource.List(playerId: string; AQuery : TSnapshotslistOptions) : TSnapshotListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(playerId,_Q);
end;



{ --------------------------------------------------------------------
  TTurnBasedMatchesResource
  --------------------------------------------------------------------}


Class Function TTurnBasedMatchesResource.ResourceName : String;

begin
  Result:='turnBasedMatches';
end;

Class Function TTurnBasedMatchesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TgamesAPI;
end;

Procedure TTurnBasedMatchesResource.Cancel(matchId: string; AQuery : string = '');

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/cancel';
  _Methodid   = 'games.turnBasedMatches.cancel';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;


Procedure TTurnBasedMatchesResource.Cancel(matchId: string; AQuery : TTurnBasedMatchescancelOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Cancel(matchId,_Q);
end;

Function TTurnBasedMatchesResource.Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'POST';
  _Path       = 'turnbasedmatches/create';
  _Methodid   = 'games.turnBasedMatches.create';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aTurnBasedMatchCreateRequest,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : TTurnBasedMatchescreateOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Create(aTurnBasedMatchCreateRequest,_Q);
end;

Function TTurnBasedMatchesResource.Decline(matchId: string; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/decline';
  _Methodid   = 'games.turnBasedMatches.decline';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Decline(matchId: string; AQuery : TTurnBasedMatchesdeclineOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Decline(matchId,_Q);
end;

Procedure TTurnBasedMatchesResource.Dismiss(matchId: string; AQuery : string = '');

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/dismiss';
  _Methodid   = 'games.turnBasedMatches.dismiss';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;


Procedure TTurnBasedMatchesResource.Dismiss(matchId: string; AQuery : TTurnBasedMatchesdismissOptions);

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  Dismiss(matchId,_Q);
end;

Function TTurnBasedMatchesResource.Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/finish';
  _Methodid   = 'games.turnBasedMatches.finish';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTurnBasedMatchResults,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : TTurnBasedMatchesfinishOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Finish(matchId,aTurnBasedMatchResults,_Q);
end;

Function TTurnBasedMatchesResource.Get(matchId: string; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'GET';
  _Path       = 'turnbasedmatches/{matchId}';
  _Methodid   = 'games.turnBasedMatches.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Get(matchId: string; AQuery : TTurnBasedMatchesgetOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Get(matchId,_Q);
end;

Function TTurnBasedMatchesResource.Join(matchId: string; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/join';
  _Methodid   = 'games.turnBasedMatches.join';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Join(matchId: string; AQuery : TTurnBasedMatchesjoinOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Join(matchId,_Q);
end;

Function TTurnBasedMatchesResource.Leave(matchId: string; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/leave';
  _Methodid   = 'games.turnBasedMatches.leave';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.Leave(matchId: string; AQuery : TTurnBasedMatchesleaveOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=Leave(matchId,_Q);
end;

Function TTurnBasedMatchesResource.LeaveTurn(matchId: string; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/leaveTurn';
  _Methodid   = 'games.turnBasedMatches.leaveTurn';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.LeaveTurn(matchId: string; AQuery : TTurnBasedMatchesleaveTurnOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'matchVersion',AQuery.matchVersion);
  AddToQuery(_Q,'pendingParticipantId',AQuery.pendingParticipantId);
  Result:=LeaveTurn(matchId,_Q);
end;

Function TTurnBasedMatchesResource.List(AQuery : string = '') : TTurnBasedMatchList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'turnbasedmatches';
  _Methodid   = 'games.turnBasedMatches.list';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTurnBasedMatchList) as TTurnBasedMatchList;
end;


Function TTurnBasedMatchesResource.List(AQuery : TTurnBasedMatcheslistOptions) : TTurnBasedMatchList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxCompletedMatches',AQuery.maxCompletedMatches);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(_Q);
end;

Function TTurnBasedMatchesResource.Rematch(matchId: string; AQuery : string = '') : TTurnBasedMatchRematch;

Const
  _HTTPMethod = 'POST';
  _Path       = 'turnbasedmatches/{matchId}/rematch';
  _Methodid   = 'games.turnBasedMatches.rematch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTurnBasedMatchRematch) as TTurnBasedMatchRematch;
end;


Function TTurnBasedMatchesResource.Rematch(matchId: string; AQuery : TTurnBasedMatchesrematchOptions) : TTurnBasedMatchRematch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'requestId',AQuery.requestId);
  Result:=Rematch(matchId,_Q);
end;

Function TTurnBasedMatchesResource.Sync(AQuery : string = '') : TTurnBasedMatchSync;

Const
  _HTTPMethod = 'GET';
  _Path       = 'turnbasedmatches/sync';
  _Methodid   = 'games.turnBasedMatches.sync';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTurnBasedMatchSync) as TTurnBasedMatchSync;
end;


Function TTurnBasedMatchesResource.Sync(AQuery : TTurnBasedMatchessyncOptions) : TTurnBasedMatchSync;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
  AddToQuery(_Q,'language',AQuery.language);
  AddToQuery(_Q,'maxCompletedMatches',AQuery.maxCompletedMatches);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=Sync(_Q);
end;

Function TTurnBasedMatchesResource.TakeTurn(matchId: string; aTurnBasedMatchTurn : TTurnBasedMatchTurn; AQuery : string = '') : TTurnBasedMatch;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'turnbasedmatches/{matchId}/turn';
  _Methodid   = 'games.turnBasedMatches.takeTurn';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['matchId',matchId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTurnBasedMatchTurn,TTurnBasedMatch) as TTurnBasedMatch;
end;


Function TTurnBasedMatchesResource.TakeTurn(matchId: string; aTurnBasedMatchTurn : TTurnBasedMatchTurn; AQuery : TTurnBasedMatchestakeTurnOptions) : TTurnBasedMatch;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
  AddToQuery(_Q,'language',AQuery.language);
  Result:=TakeTurn(matchId,aTurnBasedMatchTurn,_Q);
end;



{ --------------------------------------------------------------------
  TGamesAPI
  --------------------------------------------------------------------}

Class Function TGamesAPI.APIName : String;

begin
  Result:='games';
end;

Class Function TGamesAPI.APIVersion : String;

begin
  Result:='v1';
end;

Class Function TGamesAPI.APIRevision : String;

begin
  Result:='20160519';
end;

Class Function TGamesAPI.APIID : String;

begin
  Result:='games:v1';
end;

Class Function TGamesAPI.APITitle : String;

begin
  Result:='Google Play Game Services API';
end;

Class Function TGamesAPI.APIDescription : String;

begin
  Result:='The API for Google Play Game Services.';
end;

Class Function TGamesAPI.APIOwnerDomain : String;

begin
  Result:='google.com';
end;

Class Function TGamesAPI.APIOwnerName : String;

begin
  Result:='Google';
end;

Class Function TGamesAPI.APIIcon16 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-16.gif';
end;

Class Function TGamesAPI.APIIcon32 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-32.gif';
end;

Class Function TGamesAPI.APIdocumentationLink : String;

begin
  Result:='https://developers.google.com/games/services/';
end;

Class Function TGamesAPI.APIrootUrl : string;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TGamesAPI.APIbasePath : string;

begin
  Result:='/games/v1/';
end;

Class Function TGamesAPI.APIbaseURL : String;

begin
  Result:='https://www.googleapis.com/games/v1/';
end;

Class Function TGamesAPI.APIProtocol : string;

begin
  Result:='rest';
end;

Class Function TGamesAPI.APIservicePath : string;

begin
  Result:='games/v1/';
end;

Class Function TGamesAPI.APIbatchPath : String;

begin
  Result:='batch';
end;

Class Function TGamesAPI.APIAuthScopes : TScopeInfoArray;

begin
  SetLength(Result,3);
  Result[0].Name:='https://www.googleapis.com/auth/drive.appdata';
  Result[0].Description:='View and manage its own configuration data in your Google Drive';
  Result[1].Name:='https://www.googleapis.com/auth/games';
  Result[1].Description:='Share your Google+ profile information and view and manage your game activity';
  Result[2].Name:='https://www.googleapis.com/auth/plus.login';
  Result[2].Description:='Know the list of people in your circles, your age range, and language';
  
end;

Class Function TGamesAPI.APINeedsAuth : Boolean;

begin
  Result:=True;
end;

Class Procedure TGamesAPI.RegisterAPIResources;

begin
  TAchievementDefinition.RegisterObject;
  TAchievementDefinitionsListResponse.RegisterObject;
  TAchievementIncrementResponse.RegisterObject;
  TAchievementRevealResponse.RegisterObject;
  TAchievementSetStepsAtLeastResponse.RegisterObject;
  TAchievementUnlockResponse.RegisterObject;
  TAchievementUpdateMultipleRequest.RegisterObject;
  TAchievementUpdateMultipleResponse.RegisterObject;
  TAchievementUpdateRequest.RegisterObject;
  TAchievementUpdateResponse.RegisterObject;
  TAggregateStats.RegisterObject;
  TAnonymousPlayer.RegisterObject;
  TApplication.RegisterObject;
  TApplicationCategory.RegisterObject;
  TApplicationVerifyResponse.RegisterObject;
  TCategory.RegisterObject;
  TCategoryListResponse.RegisterObject;
  TEventBatchRecordFailure.RegisterObject;
  TEventChild.RegisterObject;
  TEventDefinition.RegisterObject;
  TEventDefinitionListResponse.RegisterObject;
  TEventPeriodRange.RegisterObject;
  TEventPeriodUpdate.RegisterObject;
  TEventRecordFailure.RegisterObject;
  TEventRecordRequest.RegisterObject;
  TEventUpdateRequest.RegisterObject;
  TEventUpdateResponse.RegisterObject;
  TGamesAchievementIncrement.RegisterObject;
  TGamesAchievementSetStepsAtLeast.RegisterObject;
  TImageAsset.RegisterObject;
  TInstance.RegisterObject;
  TInstanceAndroidDetails.RegisterObject;
  TInstanceIosDetails.RegisterObject;
  TInstanceWebDetails.RegisterObject;
  TLeaderboard.RegisterObject;
  TLeaderboardEntry.RegisterObject;
  TLeaderboardListResponse.RegisterObject;
  TLeaderboardScoreRank.RegisterObject;
  TLeaderboardScores.RegisterObject;
  TMetagameConfig.RegisterObject;
  TNetworkDiagnostics.RegisterObject;
  TParticipantResult.RegisterObject;
  TPeerChannelDiagnostics.RegisterObject;
  TPeerSessionDiagnostics.RegisterObject;
  TPlayed.RegisterObject;
  TPlayerTypename.RegisterObject;
  TPlayer.RegisterObject;
  TPlayerAchievement.RegisterObject;
  TPlayerAchievementListResponse.RegisterObject;
  TPlayerEvent.RegisterObject;
  TPlayerEventListResponse.RegisterObject;
  TPlayerExperienceInfo.RegisterObject;
  TPlayerLeaderboardScore.RegisterObject;
  TPlayerLeaderboardScoreListResponse.RegisterObject;
  TPlayerLevel.RegisterObject;
  TPlayerListResponse.RegisterObject;
  TPlayerScore.RegisterObject;
  TPlayerScoreListResponse.RegisterObject;
  TPlayerScoreResponse.RegisterObject;
  TPlayerScoreSubmissionList.RegisterObject;
  TProfileSettings.RegisterObject;
  TPushToken.RegisterObject;
  TPushTokenIdTypeios.RegisterObject;
  TPushTokenId.RegisterObject;
  TQuest.RegisterObject;
  TQuestContribution.RegisterObject;
  TQuestCriterion.RegisterObject;
  TQuestListResponse.RegisterObject;
  TQuestMilestone.RegisterObject;
  TRevisionCheckResponse.RegisterObject;
  TRoom.RegisterObject;
  TRoomAutoMatchStatus.RegisterObject;
  TRoomAutoMatchingCriteria.RegisterObject;
  TRoomClientAddress.RegisterObject;
  TRoomCreateRequest.RegisterObject;
  TRoomJoinRequest.RegisterObject;
  TRoomLeaveDiagnostics.RegisterObject;
  TRoomLeaveRequest.RegisterObject;
  TRoomList.RegisterObject;
  TRoomModification.RegisterObject;
  TRoomP2PStatus.RegisterObject;
  TRoomP2PStatuses.RegisterObject;
  TRoomParticipant.RegisterObject;
  TRoomStatus.RegisterObject;
  TScoreSubmission.RegisterObject;
  TSnapshot.RegisterObject;
  TSnapshotImage.RegisterObject;
  TSnapshotListResponse.RegisterObject;
  TTurnBasedAutoMatchingCriteria.RegisterObject;
  TTurnBasedMatch.RegisterObject;
  TTurnBasedMatchCreateRequest.RegisterObject;
  TTurnBasedMatchData.RegisterObject;
  TTurnBasedMatchDataRequest.RegisterObject;
  TTurnBasedMatchList.RegisterObject;
  TTurnBasedMatchModification.RegisterObject;
  TTurnBasedMatchParticipant.RegisterObject;
  TTurnBasedMatchRematch.RegisterObject;
  TTurnBasedMatchResults.RegisterObject;
  TTurnBasedMatchSync.RegisterObject;
  TTurnBasedMatchTurn.RegisterObject;
end;


Function TGamesAPI.GetAchievementDefinitionsInstance : TAchievementDefinitionsResource;

begin
  if (FAchievementDefinitionsInstance=Nil) then
    FAchievementDefinitionsInstance:=CreateAchievementDefinitionsResource;
  Result:=FAchievementDefinitionsInstance;
end;

Function TGamesAPI.CreateAchievementDefinitionsResource : TAchievementDefinitionsResource;

begin
  Result:=CreateAchievementDefinitionsResource(Self);
end;


Function TGamesAPI.CreateAchievementDefinitionsResource(AOwner : TComponent) : TAchievementDefinitionsResource;

begin
  Result:=TAchievementDefinitionsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetAchievementsInstance : TAchievementsResource;

begin
  if (FAchievementsInstance=Nil) then
    FAchievementsInstance:=CreateAchievementsResource;
  Result:=FAchievementsInstance;
end;

Function TGamesAPI.CreateAchievementsResource : TAchievementsResource;

begin
  Result:=CreateAchievementsResource(Self);
end;


Function TGamesAPI.CreateAchievementsResource(AOwner : TComponent) : TAchievementsResource;

begin
  Result:=TAchievementsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetApplicationsInstance : TApplicationsResource;

begin
  if (FApplicationsInstance=Nil) then
    FApplicationsInstance:=CreateApplicationsResource;
  Result:=FApplicationsInstance;
end;

Function TGamesAPI.CreateApplicationsResource : TApplicationsResource;

begin
  Result:=CreateApplicationsResource(Self);
end;


Function TGamesAPI.CreateApplicationsResource(AOwner : TComponent) : TApplicationsResource;

begin
  Result:=TApplicationsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetEventsInstance : TEventsResource;

begin
  if (FEventsInstance=Nil) then
    FEventsInstance:=CreateEventsResource;
  Result:=FEventsInstance;
end;

Function TGamesAPI.CreateEventsResource : TEventsResource;

begin
  Result:=CreateEventsResource(Self);
end;


Function TGamesAPI.CreateEventsResource(AOwner : TComponent) : TEventsResource;

begin
  Result:=TEventsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetLeaderboardsInstance : TLeaderboardsResource;

begin
  if (FLeaderboardsInstance=Nil) then
    FLeaderboardsInstance:=CreateLeaderboardsResource;
  Result:=FLeaderboardsInstance;
end;

Function TGamesAPI.CreateLeaderboardsResource : TLeaderboardsResource;

begin
  Result:=CreateLeaderboardsResource(Self);
end;


Function TGamesAPI.CreateLeaderboardsResource(AOwner : TComponent) : TLeaderboardsResource;

begin
  Result:=TLeaderboardsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetMetagameInstance : TMetagameResource;

begin
  if (FMetagameInstance=Nil) then
    FMetagameInstance:=CreateMetagameResource;
  Result:=FMetagameInstance;
end;

Function TGamesAPI.CreateMetagameResource : TMetagameResource;

begin
  Result:=CreateMetagameResource(Self);
end;


Function TGamesAPI.CreateMetagameResource(AOwner : TComponent) : TMetagameResource;

begin
  Result:=TMetagameResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetPlayersInstance : TPlayersResource;

begin
  if (FPlayersInstance=Nil) then
    FPlayersInstance:=CreatePlayersResource;
  Result:=FPlayersInstance;
end;

Function TGamesAPI.CreatePlayersResource : TPlayersResource;

begin
  Result:=CreatePlayersResource(Self);
end;


Function TGamesAPI.CreatePlayersResource(AOwner : TComponent) : TPlayersResource;

begin
  Result:=TPlayersResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetPushtokensInstance : TPushtokensResource;

begin
  if (FPushtokensInstance=Nil) then
    FPushtokensInstance:=CreatePushtokensResource;
  Result:=FPushtokensInstance;
end;

Function TGamesAPI.CreatePushtokensResource : TPushtokensResource;

begin
  Result:=CreatePushtokensResource(Self);
end;


Function TGamesAPI.CreatePushtokensResource(AOwner : TComponent) : TPushtokensResource;

begin
  Result:=TPushtokensResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetQuestMilestonesInstance : TQuestMilestonesResource;

begin
  if (FQuestMilestonesInstance=Nil) then
    FQuestMilestonesInstance:=CreateQuestMilestonesResource;
  Result:=FQuestMilestonesInstance;
end;

Function TGamesAPI.CreateQuestMilestonesResource : TQuestMilestonesResource;

begin
  Result:=CreateQuestMilestonesResource(Self);
end;


Function TGamesAPI.CreateQuestMilestonesResource(AOwner : TComponent) : TQuestMilestonesResource;

begin
  Result:=TQuestMilestonesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetQuestsInstance : TQuestsResource;

begin
  if (FQuestsInstance=Nil) then
    FQuestsInstance:=CreateQuestsResource;
  Result:=FQuestsInstance;
end;

Function TGamesAPI.CreateQuestsResource : TQuestsResource;

begin
  Result:=CreateQuestsResource(Self);
end;


Function TGamesAPI.CreateQuestsResource(AOwner : TComponent) : TQuestsResource;

begin
  Result:=TQuestsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetRevisionsInstance : TRevisionsResource;

begin
  if (FRevisionsInstance=Nil) then
    FRevisionsInstance:=CreateRevisionsResource;
  Result:=FRevisionsInstance;
end;

Function TGamesAPI.CreateRevisionsResource : TRevisionsResource;

begin
  Result:=CreateRevisionsResource(Self);
end;


Function TGamesAPI.CreateRevisionsResource(AOwner : TComponent) : TRevisionsResource;

begin
  Result:=TRevisionsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetRoomsInstance : TRoomsResource;

begin
  if (FRoomsInstance=Nil) then
    FRoomsInstance:=CreateRoomsResource;
  Result:=FRoomsInstance;
end;

Function TGamesAPI.CreateRoomsResource : TRoomsResource;

begin
  Result:=CreateRoomsResource(Self);
end;


Function TGamesAPI.CreateRoomsResource(AOwner : TComponent) : TRoomsResource;

begin
  Result:=TRoomsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetScoresInstance : TScoresResource;

begin
  if (FScoresInstance=Nil) then
    FScoresInstance:=CreateScoresResource;
  Result:=FScoresInstance;
end;

Function TGamesAPI.CreateScoresResource : TScoresResource;

begin
  Result:=CreateScoresResource(Self);
end;


Function TGamesAPI.CreateScoresResource(AOwner : TComponent) : TScoresResource;

begin
  Result:=TScoresResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetSnapshotsInstance : TSnapshotsResource;

begin
  if (FSnapshotsInstance=Nil) then
    FSnapshotsInstance:=CreateSnapshotsResource;
  Result:=FSnapshotsInstance;
end;

Function TGamesAPI.CreateSnapshotsResource : TSnapshotsResource;

begin
  Result:=CreateSnapshotsResource(Self);
end;


Function TGamesAPI.CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;

begin
  Result:=TSnapshotsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TGamesAPI.GetTurnBasedMatchesInstance : TTurnBasedMatchesResource;

begin
  if (FTurnBasedMatchesInstance=Nil) then
    FTurnBasedMatchesInstance:=CreateTurnBasedMatchesResource;
  Result:=FTurnBasedMatchesInstance;
end;

Function TGamesAPI.CreateTurnBasedMatchesResource : TTurnBasedMatchesResource;

begin
  Result:=CreateTurnBasedMatchesResource(Self);
end;


Function TGamesAPI.CreateTurnBasedMatchesResource(AOwner : TComponent) : TTurnBasedMatchesResource;

begin
  Result:=TTurnBasedMatchesResource.Create(AOwner);
  Result.API:=Self.API;
end;



initialization
  TGamesAPI.RegisterAPI;
end.