Tibia Brasil

www.tibiabrazil-blog.blogspot.com


    Reconect e abre a BP

    Compartilhe
    avatar
    ADM Altair Junior
    Admin

    Mensagens : 73
    Data de inscrição : 13/05/2009
    Idade : 25

    Reconect e abre a BP

    Mensagem  ADM Altair Junior em Dom Mar 14, 2010 11:05 pm

    const
    Account = 1234567; // Sua conta
    Password = 'xxxxxxxx'; // Sua senha
    Character = 'xxxxxxxx'; // Nome do Char
    World = 'Antica'; // Mundo Que vc Joga
    ServerIP = ''; // Deixa em branco

    procedure Login
    var x: integer;
    begin
    repeat
    Self.Login(Account, Password, Character, World, ServerIP);
    Sleep(7000);
    for x := 0 to 200 do
    begin
    if Self.Connected then Break;
    Sleep(100);
    end;
    until Self.Connected;
    end;

    var x: integer;

    while not Terminated do
    begin
    UpdateWorld;
    if not Self.Connected then
    begin
    Login;
    Sleep(2000);
    UpdateWorld;
    Self.Backpack.Open;
    Sleep(2000)
    UpdateWorld;
    for x := 0 to Self.Containers.Container[0].Count do
    begin
    if x >= Self.Containers.Container[0].Count then Break;
    if Self.Containers.Container[0].Item[x].Properties.Container then
    begin
    Self.Containers.Container[0].Item[x].OpenInNewWindow;
    Sleep(2000);
    end;
    end;
    end;
    Sleep(1000);
    end;

    Legenda:
    Vermelho: Coloque ai seu número da Account do char a ser logado
    Azul: Coloque ai seu número do Password do char a ser logado
    Preto: Coloque ai o nome do char a ser logado
    Verde: Coloque ai o Mundo do char a ser logado

    Download

    Megaman9

    Mensagens : 148
    Data de inscrição : 05/11/2011

    Re: Reconect e abre a BP

    Mensagem  Megaman9 em Ter Nov 08, 2011 1:58 pm



    Pagina Ownada !!!


    Pixel lfie by zeruel[ pixellife.foro.bz/forum]

      Data/hora atual: Seg Ago 21, 2017 1:35 am