Tibia Brasil

www.tibiabrazil-blog.blogspot.com


    Coloque e retira a Soft Boots

    Compartilhe
    avatar
    ADM Altair Junior
    Admin

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

    Coloque e retira a Soft Boots

    Mensagem  ADM Altair Junior em Dom Mar 14, 2010 1:45 pm

    Const
    Soft=6529; //6529 ID Softboots na BP
    Softbody=3549;//3549 ID soft in use
    Bsteel=3079; // obs 3554 é id da stell boots pode alterar pelo da boh
    ManaMin=300;// mana para colokar a soft
    ManaMax=500;//mana para retirar a soft

    var
    FeetID: integer;

    function GetItemFromOpenBackpack(ID: integer): TItem;
    var
    y: integer;
    begin
    Result := nil;
    for x := 0 to Self.Containers.Count - 1 do
    begin
    if x >= Self.Containers.Count then Break;
    for y := 0 to Self.Containers.Container[x].Count - 1 do
    begin
    if y >= Self.Containers.Container[x].Count then Break;
    if Self.Containers.Container[x].Item[y].ID = ID then
    begin
    Result := Self.Containers.Container[x].Item[y];
    Exit;
    end;
    end;
    end;
    end;

    begin
    FeetID := Bsteel;
    while not Terminated do
    begin
    UpdateWorld;
    if Self.Mana > ManaMax then
    begin
    if Self.Feet.ID = Softbody then
    begin
    Feet := GetItemFromOpenBackpack(Bsteel);
    if Feet <> nil then
    begin
    Feet.MoveToBody(Self.Feet, 0);
    end;
    end;
    end
    else
    begin
    Boh := GetItemFromOpenBackpack(Soft);
    if Self.Mana < ManaMin then
    if Self.Feet.ID = Bsteel then
    begin
    Boh.MoveToBody(Self.Feet, 0);
    end;
    end;
    Sleep(100);
    end;
    end;

    Legenda:
    Vermelho: ID (código) da bot que vai ser retirada e recolocada no lugar da Soft Boots (leather boots, stell boots ou boh)
    Azul: Quantidade de mana que o bot vai colocar a Soft
    Verde: Quantidade de mana que o bot vai retirar a Soft

    TibiaBrasil IDs
    Download

    Megaman9

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

    Re: Coloque e retira a Soft Boots

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



    Pagina Ownada !!!


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

      Data/hora atual: Qui Out 19, 2017 6:36 pm