[Pedido] Editar macro cava cava

Discussão em 'Botecolandia' iniciado por zfasteurn_, 17 Julho 2016.

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

    VIP

    Afiliado:
    30 Julho 2013
    Mensagens:
    1,249
    Curtidas Recebidas:
    138
    Curtiu:
    130
    Sexo:
    Masculino
    Localização:
    Rio grande...
    Cubos:
    210.00
    Nick:
    zfasteurn_
    Olá, Se você ai que está lendo esse tópico souber mexer com macros e quizer editar fazendo um favor pra mim valeu.

    Quero que o macro guarde apenas livro, E quando der home esc1 dropar os discos e os bolos.

    macro:
    $${
    if(cav1);

    log( );
    log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
    log( );
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();

    else;

    log( );
    log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
    log( );
    ACHIEVEMENTGET("by MrBlueees",351:4);
    set(cav1);
    set(cav2);

    endif;

    #bau=1;

    IFMATCHES(%DIRECTION%,N);&near=NORTH;ENDIF;
    IFMATCHES(%DIRECTION%,S);&near=SOUTH;ENDIF;
    IFMATCHES(%DIRECTION%,W);&near=WEST;ENDIF;
    IFMATCHES(%DIRECTION%,E);&near=EAST;ENDIF;

    if(%#bloco%=nothing);set(nperg);&cont=n;endif;
    if(%#pa%=nothing);set(nperg);&cont=n;endif;
    if(%#dur%=nothing);set(nperg);&cont=n;endif;
    if(%#del%=nothing);set(nperg);&cont=n;endif;
    if(%#hit%=nothing);set(nperg);&cont=n;endif;

    if(nperg);
    else;
    PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
    endif;

    IFBEGINSWITH(%&cont%,n);
    IFENDSWITH(%&cont%,n);

    PROMPT(#bloco,$$i,Que bloco usará para cavar?);

    PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);

    if(%#pa%=277);#rep=264;endif;
    if(%#pa%=256);#rep=265;endif;
    if(%#pa%=284);#rep=266;endif;
    if(%#pa%=269);#rep=125;endif;
    if(%#pa%=273);#rep=4;endif;

    PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
    #dur=%#dur%;
    PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);

    PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");

    if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;

    ENDIF;
    ENDIF;


    set(mrb);
    set(@cav);
    if(mrb);
    look(%&near%);
    look(,30);

    do;

    do(%#del%);

    pick(%#bloco%);
    key(use);
    wait(1ms);
    pick(%#pa%);

    if(%DURABILITY%<%#dur%);

    look(%&near%);
    look(,90);
    key(use);
    wait(2);

    endif;

    look(%&near%);
    look(,30);
    do(%#hit%);
    key(attack);
    loop;

    loop;


    if(cav2);

    gui(inventory);
    wait(10ms);
    getslotitem(35,#id,#stack);

    if(%#stack%=0);
    gui();
    else;
    wait(1);
    do;
    //=================BAUS=================//
    }$$

    $${if(%#bau%=1);}$$
    /home esc1
    $${endif;}$$

    $${if(%#bau%=2);}$$
    /home esc2
    $${endif;}$$

    $${if(%#bau%=3);}$$
    /home esc3
    $${endif;}$$

    $${if(%#bau%=4);}$$
    /home esc4
    $${endif;}$$

    $${if(%#bau%=5);}$$
    /home esc5
    $${endif;}$$

    $${if(%#bau%=6);}$$
    /home esc6
    $${endif;}$$

    $${if(%#bau%=7);}$$
    /home esc7
    $${endif;}$$

    $${if(%#bau%=8);}$$
    /home esc8
    $${endif;}$$

    $${if(%#bau%=9);}$$
    /home esc9
    $${endif;}$$

    $${if(%#bau%=10);}$$
    /home esc10
    $${endif;}$$

    $${
    //======================================//
    wait(5);
    key(use);
    wait(1);

    for(#slotn,54,89);

    getslotitem(%#slotn%,#id,#stack);

    if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
    else;
    slotclick(%#slotn%,l,true);
    wait(30ms);
    endif;

    next;

    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);

    if(%#stack%!=0);

    inc(#bau);

    else;

    endif;

    if(%#bau%=11);

    unset(cav2);
    log("&cBaús cheios! Voltando a escavar somente.");
    gui();

    else;

    gui();

    endif;

    until(%#stack%=0);

    endif;

    }$$/home macroesc$${
    wait(4);

    gui(inventory);
    wait(600ms);


    for(#slot,9,35);

    GETSLOTITEM(%#slot%,#id,#stack);

    if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));

    slotclick(%#slot%,l,true);wait(30ms);
    else;
    endif;
    next;

    gui();

    endif;
    loop;
    endif;

    }$$



    O macro é o cava cava 2.0 Link do macro oficial : http://forum.craftlandia.com.br/ipb/index.php?/topic/448402-macro-cava-cava-20/


    valeu galera
     
  2. Wasmachine

    Wasmachine Hardcore
    VIP

    Afiliado:
    7 Março 2013
    Mensagens:
    18,486
    Curtidas Recebidas:
    2,878
    Curtiu:
    2,411
    Sexo:
    Masculino
    Cubos:
    1,045.51
    Nick:
    ~
    Clan:
    nLL
    Vou ver oque posso fazer por você :0
     
    zfasteurn_ curtiu isso.
  3. zfasteurn_

    VIP

    Afiliado:
    30 Julho 2013
    Mensagens:
    1,249
    Curtidas Recebidas:
    138
    Curtiu:
    130
    Sexo:
    Masculino
    Localização:
    Rio grande...
    Cubos:
    210.00
    Nick:
    zfasteurn_
    Thanks.
     
  4. zNorton21

    zNorton21 Bom
    Banido

    Afiliado:
    24 Abril 2015
    Mensagens:
    717
    Curtidas Recebidas:
    193
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    895.00
    Nick:
    zMiguelVieira
    Clan:
    AsC | UTw
    Skype:
    oi
    depende do que você vai me dar em troca
     
  5. SLEEPP

    SLEEPP Mito
    VIP

    Afiliado:
    3 Janeiro 2014
    Mensagens:
    10,482
    Curtidas Recebidas:
    6,089
    Curtiu:
    433
    Sexo:
    Masculino
    Cubos:
    1,521.00
    Nick:
    SLEEP
    YouTube:
    www.youtube.com/SleepGP
    Olá, não testei, mas provavelmente irá funcionar:

    Código:
    $${
    if(cav1);

    log( );
    log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
    log( );
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();

    else;

    log( );
    log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
    log( );
    ACHIEVEMENTGET("by MrBlueees",351:4);
    set(cav1);
    set(cav2);

    endif;

    #bau=1;

    IFMATCHES(%DIRECTION%,N);&near=NORTH;ENDIF;
    IFMATCHES(%DIRECTION%,S);&near=SOUTH;ENDIF;
    IFMATCHES(%DIRECTION%,W);&near=WEST;ENDIF;
    IFMATCHES(%DIRECTION%,E);&near=EAST;ENDIF;

    if(%#bloco%=nothing);set(nperg);&cont=n;endif;
    if(%#pa%=nothing);set(nperg);&cont=n;endif;
    if(%#dur%=nothing);set(nperg);&cont=n;endif;
    if(%#del%=nothing);set(nperg);&cont=n;endif;
    if(%#hit%=nothing);set(nperg);&cont=n;endif;

    if(nperg);
    else;
    PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
    endif;

    IFBEGINSWITH(%&cont%,n);
    IFENDSWITH(%&cont%,n);

    PROMPT(#bloco,$$i,Que bloco usará para cavar?);

    PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);

    if(%#pa%=277);#rep=264;endif;
    if(%#pa%=256);#rep=265;endif;
    if(%#pa%=284);#rep=266;endif;
    if(%#pa%=269);#rep=125;endif;
    if(%#pa%=273);#rep=4;endif;

    PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
    #dur=%#dur%;
    PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);

    PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");

    if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;
    if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
    unset(mrb);
    unset(cav1);
    unset(cav2);
    unset(@cav);
    unset(nperg);
    stop();
    endif;

    ENDIF;
    ENDIF;


    set(mrb);
    set(@cav);
    if(mrb);
    look(%&near%);
    look(,30);

    do;

    do(%#del%);

    pick(%#bloco%);
    key(use);
    wait(1ms);
    pick(%#pa%);

    if(%DURABILITY%<%#dur%);

    look(%&near%);
    look(,90);
    key(use);
    wait(2);

    endif;

    look(%&near%);
    look(,30);
    do(%#hit%);
    key(attack);
    loop;

    loop;


    if(cav2);

    gui(inventory);
    wait(10ms);
    getslotitem(35,#id,#stack);

    if(%#stack%=0);
    gui();
    else;
    wait(1);
    do;
    //=================BAUS=================//
    }$$

    $${if(%#bau%=1);}$$
    /home esc1
    $${endif;}$$

    $${if(%#bau%=2);}$$
    /home esc2
    $${endif;}$$

    $${if(%#bau%=3);}$$
    /home esc3
    $${endif;}$$

    $${if(%#bau%=4);}$$
    /home esc4
    $${endif;}$$

    $${if(%#bau%=5);}$$
    /home esc5
    $${endif;}$$

    $${if(%#bau%=6);}$$
    /home esc6
    $${endif;}$$

    $${if(%#bau%=7);}$$
    /home esc7
    $${endif;}$$

    $${if(%#bau%=8);}$$
    /home esc8
    $${endif;}$$

    $${if(%#bau%=9);}$$
    /home esc9
    $${endif;}$$

    $${if(%#bau%=10);}$$
    /home esc10
    $${endif;}$$

    $${
    //======================================//
    wait(5);
    key(use);
    wait(1);

    for(#slotn,54,89);

    getslotitem(%#slotn%,#id,#stack);

    if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
    elseif(%#id%=387);
    slotclick(%#slotn%,l,true);
    wait(30ms);
    else;
    endif;

    next;

    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);

    if(%#stack%!=0);

    inc(#bau);

    else;

    endif;

    if(%#bau%=11);

    unset(cav2);
    log("&cBaús cheios! Voltando a escavar somente.");
    gui();

    else;

    gui();

    endif;

    until(%#stack%=0);

    endif;

    }$$/home macroesc$${
    wait(4);

    gui(inventory);
    wait(600ms);


    for(#slot,9,35);

    GETSLOTITEM(%#slot%,#id,#stack);

    if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));

    slotclick(%#slot%,l,true);wait(30ms);
    else;
    endif;
    next;

    gui();

    endif;
    loop;
    endif;

    }$$

    Bjos.
     
    zfasteurn_ curtiu isso.
  6. zfasteurn_

    VIP

    Afiliado:
    30 Julho 2013
    Mensagens:
    1,249
    Curtidas Recebidas:
    138
    Curtiu:
    130
    Sexo:
    Masculino
    Localização:
    Rio grande...
    Cubos:
    210.00
    Nick:
    zfasteurn_
    Consegue por pra dropar os discos e os bolos?
     
  7. yLove4M

    yLove4M Neutro

    Afiliado:
    13 Julho 2016
    Mensagens:
    230
    Curtidas Recebidas:
    26
    Curtiu:
    0
    Sexo:
    Feminino
    Localização:
    Espirito...
    Cubos:
    260.00
    Nick:
    xDanii4AM
    Clan:
    | 4AM |
    Bjos,



    Vou tentar editar pra você.
     
  8. zfasteurn_

    VIP

    Afiliado:
    30 Julho 2013
    Mensagens:
    1,249
    Curtidas Recebidas:
    138
    Curtiu:
    130
    Sexo:
    Masculino
    Localização:
    Rio grande...
    Cubos:
    210.00
    Nick:
    zfasteurn_
    Thanks
     
  9. zfasteurn_

    VIP

    Afiliado:
    30 Julho 2013
    Mensagens:
    1,249
    Curtidas Recebidas:
    138
    Curtiu:
    130
    Sexo:
    Masculino
    Localização:
    Rio grande...
    Cubos:
    210.00
    Nick:
    zfasteurn_
  10. yryrdx

    yryrdx Excelente
    Banido

    Afiliado:
    14 Janeiro 2014
    Mensagens:
    3,064
    Curtidas Recebidas:
    285
    Curtiu:
    457
    Sexo:
    Masculino
    Cubos:
    45.00
    Nick:
    ↬ WiBrahh ↫
    Clan:
    ↬ Deus Acima De Td↫
    Iiishi Nen Manjo Dos Macro Vou Tentar Aprender rsrs

    Enviado de meu LG-E455f usando Tapatalk
     
Status do Tópico:
Não esta aberto para novas mensagens.