Tibia Brasil

www.tibiabrazil-blog.blogspot.com


    Maker Enchanted Spear

    Compartilhe
    avatar
    ADM Altair Junior
    Admin

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

    Maker Enchanted Spear

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

    Const
    SpearID = 3277
    Spell = 'Exeta Con'
    MinMana = 600
    MinSoul = 5
    WeaponID = 3291

    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;

    While not terminated do
    begin
    UpdateWorld;
    if Self.Mana >= MinMana then
    if Self.Soul >= MinSoul then
    begin
    Spear := GetItemFromOpenBackpack(SpearID);
    if Spear <> nil then
    Spear.MoveToBody(Self.RightHand,1);
    Sleep(800);
    UpdateWorld;
    If Self.RightHand.ID = SpearID then
    Self.Say(Spell);
    UpdateWorld;
    Weapon := GetItemFromOpenBackpack(WeaponID);
    if Weapon <> nil then
    Weapon.MoveToBody(Self.RightHand,0);
    end;
    sleep(500);
    end;

    Legenda: Já esta pronto só ativar e deixar alguns spears na Bp aberta

    Download

    Megaman9

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

    Re: Maker Enchanted Spear

    Mensagem  Megaman9 em Ter Nov 08, 2011 2:01 pm



    Pagina Ownada !!!


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

      Data/hora atual: Qua Jun 28, 2017 12:44 am