TAccount = class

function Start(WaitSec: Integer = 0): Boolean;

function Stop(const History: String = ''; Clr: Integer = -1): Boolean;

function DefRun(Delay: Integer = -1): Integer;

function AllertText: String;

function Select: Boolean;

procedure Print(const Text: String; Color: Cardinal);

procedure Print2(const Text: String; Color: Cardinal);

procedure Print3(const Text: String; Color: Cardinal);

procedure PrintEx(const Text: String; Color: Cardinal; TimeOut: Cardinal = 60000);

procedure ProtectMessage(const Text: String; Color: Integer = -1);

property Connected: Boolean read GetConnected;

property GameWindow: Cardinal read fGameWindow;

property Marked: Boolean read fMarked write fMarked;

property IsEU: Integer read fIsEU write fIsEU; //gametype

property Name: String read fName write fName;

property Login: String read fLogin write fLogin;

property Passw: String read fPassw write fPassw;

property Server: Integer read fServer write fServer;

property ServerName: String read GetServerName;

property UID: String read fUID write fUID;

property HWID: Cardinal read fHWID write fHWID;

property Proxy: Integer read fProxy write fProxy;

property ProxyIP: String read fProxyIP write fProxyIP;

property ProxyPort: String read fProxyPort write fProxyPort;

property ProxyUser: String read fProxyUser write fProxyUser;

property ProxyPass: String read fProxyPass write fProxyPass;

property AutoScript: String read fAutoScript write fAutoScript;

property CharIndex: Integer read fCharIndex write fCharIndex;

property AuthError: String read fAuthError write fAuthError;

property StatusTime: Cardinal read GetStatusTime;

property GameTop: Boolean read fGameTop;

property Blocked: Boolean read fBlocked write fBlocked;

property BlockTime: TDateTime read fAuthETime;

property Messages: TMessages read fMessages;

property Messages2: TMessages read fMessages2;

property Timers: TTimers read fTimers;

property Selected: Boolean read fSelected write SetSelected;

property User: TUser read GetUser;

property WindowsList: String read fWindowsList;

uses SysUtils, Classes;

var
  i: Integer;
  SL: TStringList;

begin
  SL:= TStringList.Create();
  try
    Engine.UpdateBtnList;
    SL.Text:= Account.WindowsList;
    for i:= 0 to SL.Count-1 do Print(SL[i]);
  finally
    SL.Free;
  end;
end.

property ColorLine: Cardinal read fColorLine write fColorLine;

property AccountIndex: Integer read GetIndex;

property Status: TGameStatus read fStatus write SetStatus;

property Control: TGameControl read fControl;

property Engine: TGameControl read fControl;

property Parser: TGameParser read fParser;

property Script: TPaxEngine read fScript;

property GPS: TGps read fGPS;