ENTREGUE Macro de pesca, guarda item no baú

Discussão em 'Macro Entregue' iniciado por augussto18, 2 Janeiro 2016.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. augussto18

    augussto18 Neutro

    Afiliado:
    14 Janeiro 2015
    Mensagens:
    23
    Curtidas Recebidas:
    2
    Curtiu:
    0
    Cubos:
    47.00
    Nick:
    augussto18
    Olá gente, hoje eu vou trazer para vocês o meu macro de pesca. Fica ligado que vem muitos outros macros aí!
    Segue o código:


    $${
    if(x);
    log("&1[&5MACRO&1] &9Pesca &4OFF");
    log("&1[&5MACRO&1] &8Até mais &b%PLAYER%")
    unset(x);
    stop();
    else;
    log("&1[&5MACRO&1] &9Pesca &2ON");
    log("&1[&5MACRO&1] &8Seja muito Bem Vindo &b%PLAYER%")
    ACHIEVEMENTGET(Macro By: wolff18,346);
    set(x);
    }$$
    /g macro de pesca do #wolff18
    $${
    set(inventariocheq);
    &dir = %DIRECTION%;
    #ph=1;
    set(ph2);

    ifmatches(%&dir%,N);&dir=NORTH;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;endif;
    ifmatches(%&dir%,E);&dir=EAST;endif;
    ifmatches(%&dir%,W);&dir=WEST;endif;

    wait(2);
    log("&1[&5MACRO&1]&8Mantenha o inventario &aAberto");
    wait(1);

    do;
    gui(inventory);
    pick(346);

    endif;
    pick(346);
    wait(1);
    look(,0);
    look(,-90);
    gui(INVENTORY);
    do;
    wait(1ms);
    getslotitem(35,#id,#stack);
    if(%#stack%!=0);
    gui();
    }$$/home bau$${
    log("&1[&5MACRO&1] &8Guardando &6itens");
    wait(8);
    do;
    key(use);
    wait(1);
    for(#i,54,86);
    slotclick(%#i%,l,true);
    wait(39ms);
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    gui(inventory);
    #posx=%XPOS%;
    #posz=%ZPOS%;
    keydown(RIGHT);
    do;
    wait(10ms);
    until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
    keyup(RIGHT);
    }$$/sethome bau$${
    endif;
    until(%#stack%=0);
    }$$/home pesca$${
    log("&1[&5MACRO&1] &8Voltando para a &9pesca");
    wait(8);
    pick(346);
    wait(1);
    look(,0);
    look(,-90);
    gui(INVENTORY);
    endif;
    if(%DURABILITY%<10);
    log("&1[&5MACRO&1] &7Reparando &8a vara de &9pesca");
    look(,90);
    wait(200ms);
    do;
    key(use);
    wait(1);
    until(%DURABILITY%>10);
    look(,0);
    look(,-90);
    endif;
    key(use);
    wait(50ms);
    key(use);
    wait(10ms);
    gui(INVENTORY);
    loop;
    }$$


    Bom gente, espero que gostem, clique em curtir para ajudar!!!
     
  2. XablauXablante

    XablauXablante Excelente
    VIP

    Afiliado:
    22 Julho 2014
    Mensagens:
    3,953
    Curtidas Recebidas:
    328
    Curtiu:
    459
    Sexo:
    Masculino
    Localização:
    log(%XPOS%,%...
    Cubos:
    1,060.00
    Nick:
    Nickloko
    Clan:
    EMP
    Skype:
    Digo não '-'
    esse macro nao é teu nao
     
  3. DeathM4nzZ

    DeathM4nzZ Hardcore
    VIP

    Afiliado:
    27 Maio 2015
    Mensagens:
    17,225
    Curtidas Recebidas:
    2,377
    Curtiu:
    2,245
    Sexo:
    Masculino
    Cubos:
    1,109.00
    Nick:
    Meu nome é John
  4. augussto18

    augussto18 Neutro

    Afiliado:
    14 Janeiro 2015
    Mensagens:
    23
    Curtidas Recebidas:
    2
    Curtiu:
    0
    Cubos:
    47.00
    Nick:
    augussto18
    é meu sim. se não fosse, de quem seria? só lembrando que eu sou o wolff18 ok
     
  5. FaelxDD

    FaelxDD Neutro
    VIP

    Afiliado:
    26 Junho 2015
    Mensagens:
    559
    Curtidas Recebidas:
    27
    Curtiu:
    0
    Localização:
    Da minha casa
    Cubos:
    615.00
    Nick:
    FaelxDD
    Clan:
    Aquele lá sabe ?
    ctz q é seu '-' ?
     
  6. augussto18

    augussto18 Neutro

    Afiliado:
    14 Janeiro 2015
    Mensagens:
    23
    Curtidas Recebidas:
    2
    Curtiu:
    0
    Cubos:
    47.00
    Nick:
    augussto18
    vey, é meu. é de quem então
     
Status do Tópico:
Não esta aberto para novas mensagens.