ENTREGUE [MACRO] Meu macro de pesca, guarda item no baú

Discussão em 'Macro Entregue' iniciado por augussto18, 26 Dezembro 2015.

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 estar trazendo para vocês, o priemeiro, de uma série de macros desenvolvidos por mim. Esse é de pesca.
    Está aí 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);}$$
    $${
    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;
    }$$


    Lmebrando que se deve ter uma /home pesca no pesqueiro, e uma /home bau, em frente a um baú. Lembrando também que deve haver outros baús à direita do primeiro baú, pois quando este encher, o macro irá andar para a direita, e ira marcar /sethome bau no outro baú.

    Espero que gostem
     
  2. Degolatorz Advogado

    Degolatorz Advogado Craftlandiano
    VIP

    Afiliado:
    30 Julho 2014
    Mensagens:
    4,276
    Curtidas Recebidas:
    539
    Curtiu:
    1,488
    Cubos:
    498.00
    Nick:
    Degolatorz
    Clan:
    666
    Discord:
    Degolatorz#1908
    Não foi você que fez, mais boa.
     
  3. zPrinceK

    zPrinceK Bom
    VIP

    Afiliado:
    4 Junho 2014
    Mensagens:
    568
    Curtidas Recebidas:
    132
    Curtiu:
    91
    Sexo:
    Masculino
    Localização:
    Goiânia-GO
    Cubos:
    716.00
    Nick:
    zPrinceK
    Clan:
    RsN
  4. NeurosZ

    NeurosZ Craftlandiano
    VIP

    Afiliado:
    16 Dezembro 2015
    Mensagens:
    3,646
    Curtidas Recebidas:
    684
    Curtiu:
    432
    Sexo:
    Masculino
    Localização:
    Craftlandia
    Cubos:
    2,870.03
    Nick:
    NeurosZ
    Clan:
    STF
    Discord:
    NeurosZ #7259
    Boa vou usar,mas eu que escolhe o que eu quero que joga fora ou nao?
     
  5. TokenBR

    TokenBR Excelente
    VIP

    Afiliado:
    22 Junho 2013
    Mensagens:
    2,868
    Curtidas Recebidas:
    446
    Curtiu:
    724
    Sexo:
    Masculino
    Localização:
    Casa
    Cubos:
    99.70
    Nick:
    zToken
    Clan:
    Nenhum
    boa vou usar
     
Status do Tópico:
Não esta aberto para novas mensagens.