VIPSEJA VIP ChangeLogCHANGELOG EstatisticaESTATÍSTICAS RegrasREGRAS DiscordDISCORD Loja de CubosLOJA DE CUBOS

ENTREGUE macro escava

Discussão em 'Macro Entregue' iniciado por LCassells2, 27 Maio 2015.

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

    LCassells2 Bom
    VIP

    Afiliado:
    9 Janeiro 2014
    Mensagens:
    1,639
    Curtidas Recebidas:
    102
    Curtiu:
    65
    Sexo:
    Masculino
    Cubos:
    349.00
    Nick:
    zMatheusCLS
    Facebook:
    Matheus
    #1 LCassells2, 27 Maio 2015
    queria sabe se alguem coloca essa macro pra guarda livro

    $${
    IF(xlyz);
    log("&4&l[Macro Escavaçao] &4&lDesativada.");
    Unset(xlyz);
    stop;
    else;
    log("&4&l[Macro Escavaçao] &e(by xlyz) &a&lAtivada.");
    set(xlyz);

    &dir = %DIRECTION%;

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

    set(nf);

    PROMPT(#config,$$?, Quer usar a última configuraçao da macro?(1-Sim / 2-Nao));
    if(%#config% = 2);
    log("&4[Macro]&9Você escolheu &4NAO &9usar a última configuraçao. Iniciando questionário..");
    do;
    PROMPT(#bloco,$$i, Qual bloco usará para escavar?);
    until((#bloco = 2)||(#bloco = 3)||(#bloco = 12)||(#bloco = 13)||(#bloco = 82)||(#bloco = 88)||(#bloco = 110));
    do;
    PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500));
    until((#quantidade > 30));
    do;
    PROMPT(#quebrar,$$?, Qual delay para quebrar os blocos?(0 sem delay para pás com mais eficiência/Aumente se o bloco nao quebrar!));
    until((#quebrar < 20) && (#quebrar >= 0));
    do;
    PROMPT(#bau,$$?, Em qual baú devo iniciar o armazenamento?(1 à 92));
    until((#bau > 0)&&(#bau <= 92));
    else;
    log("&4[Macro]&9Você escolheu &2usar &9a última configuraçao.");
    log("&4[Macro]&9Configuraçoes:");
    log("&4[Macro]&9Bau: &6%#bau%&e\&9Delay: &6%#quebrar%&e\&9Quantidade de blocos antes de verificar inventário: &6%#quantidade%&e\&9Id do bloco: &6%#bloco%");
    endif;

    #slot = 4;
    #red = 0;
    unset(repos_pas);
    unset(bau_pas_full);
    unset(sem_pas);
    unset(pas_red);

    do();
    if(repos_pas);
    #slot = 4;
    #red = 0;
    unset(repos_pas);
    endif;

    // Quebrando blocos
    do(%#quantidade%);
    look(%&dir%);
    look(,59);
    pick(%#bloco%);
    key(use);
    wait(1ms);
    slot(%#slot%);

    if((DURABILITY < 100)&&(DURABILITY > 0));
    inc(#slot);
    else;
    if(DURABILITY <= 0);
    log("&4[Macro]&6Sem pá nesse slot, aguardando &915 &6segundos para carregar se você esta reconectando...");
    wait(5);
    log("&4[Macro]&910 &6segundos para continuar se você esta reconectando...");
    wait(5);
    log("&4[Macro]&9 5 &6segundos para continuar...");
    wait(5);
    log("&4[Macro]&9Continuando");
    if((DURABILITY < 100) &&(DURABILITY > 0));
    if(%#slot% < 9);
    inc(#slot);
    else;
    log("&4[Macro]&9Reiniciando verificaçao de pás");
    #slot = 4;
    inc(#red);
    endif;
    endif;
    if(DURABILITY <= 0);
    inc(#slot);
    endif;
    endif;
    endif;
    if((%#slot% >= 10) && (%#red% < 3));
    log("&4[Macro]&9Reiniciando verificaçao de pás");
    #slot = 4;
    inc(#red);
    else;
    if((%#slot% >= 10) && (%#red% > 2));
    log("&4[Macro]&fReiniciei a verificaçao %#red% vezes, e todas as ferramentas estao no &4red&f, se possível as pás serao trocadas...");
    set(pas_red);
    break;
    endif;
    endif;

    look(%&dir%);
    look(,59);
    if(%#quebrar% != 0);
    do(%#quebrar%);
    key(attack);
    loop;
    else;
    key(attack);
    endif;
    loop;

    if((pas_red)&&(!bau_pas_full)&&(!sem_pas));
    set(repos_pas);

    //Trocando pás
    log("&4[Macro]&9Trocando pás no &4red&9...");
    }$$/home bau$${
    wait(8);

    //Guardar pás no red
    look(WEST);
    wait(800ms)
    look(282,14);
    do;
    ifmatches(%GUI%,GUICHEST);
    break;
    endif;
    look(282,14);
    wait(1);
    key(use);
    wait(1);
    loop;
    log("&4[Macro]&9Guardando pás no &4red.");
    for(#i,84,89);
    slotclick(%#i%,l,true);
    wait(30ms);
    next;

    //verifica se bau de pás red esta cheio
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    set(bau_pas_full);
    log("&4[Macro]&fO baú de pás red está cheio!!! A próxima vez que as pás ficarem red nao irá trocar.");
    endif;
    gui();

    //Pegar pás novas
    look(299,15);
    wait(800ms);

    //Verificando slots vazios
    #slot_vazio = 0;
    for(#i,4,9);
    getslotitem(%#i%,#id);
    if(%#id%=0);
    inc(#slot_vazio);
    endif;
    next;

    do;
    ifmatches(%GUI%,GUICHEST);
    break;
    endif;
    look(299,15);
    wait(1);
    key(use);
    wait(1);
    loop;
    wait(500ms);
    log("&4[Macro]&9Pegando &2novas &9pás.");

    //Pegando pás
    #i = 0;
    #cont = 0;
    do;
    getslotitem(%#i%,#id);
    if(%#id%!=0);
    slotclick(%#i%,l,true);
    inc(#cont);
    wait(100ms);
    endif;
    inc(#i);

    if((%#cont% < %#slot_vazio%) && (%#i% >= 54));
    log("&4[Macro]&fNao tem pás suficientes para encher a hotbar!!! A próxima vez que as pás ficarem red nao irá trocar.");
    set(sem_pas);
    break;
    endif;
    if((%#cont% >= %#slot_vazio%) || (%#i% >= 54));
    break;
    endif;
    loop;
    gui();
    log("&4[Macro]&9Voltando ao local de escavaçao...");
    }$$/home macro$${
    unset(pas_red);
    wait(8);
    elseif;
    if((pas_red)&&(bau_pas_full) || (sem_pas));
    log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!");
    log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio ou nao tem pás suficientes no baú.");
    unset(xlyz);
    unset(bau_pas_full);
    unset(sem_pas);
    stop();
    endif;
    else;

    // Abrindo inventário
    gui(inventory);
    pick(%#bloco%);
    if(%STACKSIZE%<64);
    log("&4[Macro]&9Repondo blocos.");
    for(#i,9,35);
    getslotitem(%#i%,#id);
    if(%#id%=%#bloco%);
    slotclick(%#i%,l,true);
    wait(5ms);
    endif;
    next;
    endif;

    if(nf);
    gui(inventory);
    wait(1);
    GETSLOTITEM(25,#id,#stack);
    IF(%#stack%=0);
    gui();
    elseif;

    // Indo para os baus.
    }$$/home bau$${
    wait(7);
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    do;
    look(NORTH);
    if(%#bau%=1);look(-50,-24);endif;
    if(%#bau%=2);look(-39,-28);endif;
    if(%#bau%=3);look(-23,-32);endif;
    if(%#bau%=4);look(+1,-34);endif;
    if(%#bau%=5);look(+23,-32);endif;
    if(%#bau%=6);look(+39,-28);endif;
    if(%#bau%=7);look(+50,-24);endif;
    if(%#bau%=8);look(+61,-23);endif;
    if(%#bau%=9);look(+74,-24);endif;
    if(%#bau%=10);look(+91,-26);endif;
    if(%#bau%=11);look(+104,-25);endif;
    if(%#bau%=12);look(+120,-23);endif;
    if(%#bau%=13);look(+130,-24);endif;
    if(%#bau%=14);look(+141,-28);endif;
    if(%#bau%=15);look(+158,-32);endif;
    if(%#bau%=16);look(-179,-34);endif;
    if(%#bau%=17);look(-159,-32);endif;
    if(%#bau%=18);look(-143,-27);endif;
    if(%#bau%=19);look(-131,-24);endif;
    if(%#bau%=20);look(-120,-23);endif;
    if(%#bau%=21);look(-106,-24);endif;
    if(%#bau%=22);look(-89,-26);endif;
    if(%#bau%=23);look(-75,-25);endif;
    if(%#bau%=24);look(-61,-23);endif;
    if(%#bau%=25);look(-50,-10);endif;
    if(%#bau%=26);look(-39,-12);endif;
    if(%#bau%=27);look(-23,-14);endif;
    if(%#bau%=28);look(+1,-16);endif;
    if(%#bau%=29);look(+23,-14);endif;
    if(%#bau%=30);look(+39,-12);endif;
    if(%#bau%=31);look(+50,-10);endif;
    if(%#bau%=32);look(+61,-10);endif;
    if(%#bau%=33);look(+74,-11);endif;
    if(%#bau%=34);look(+91,-11);endif;
    if(%#bau%=35);look(+104,-11);endif;
    if(%#bau%=36);look(+120,-10);endif;
    if(%#bau%=37);look(+130,-10);endif;
    if(%#bau%=38);look(+141,-12);endif;
    if(%#bau%=39);look(+158,-14);endif;
    if(%#bau%=40);look(-179,-16);endif;
    if(%#bau%=41);look(-159,-14);endif;
    if(%#bau%=42);look(-143,-12);endif;
    if(%#bau%=43);look(-131,-10);endif;
    if(%#bau%=44);look(-120,-10);endif;
    if(%#bau%=45);look(-106,-11);endif;
    if(%#bau%=46);look(-89,-11);endif;
    if(%#bau%=47);look(-75,-11);endif;
    if(%#bau%=48);look(-61,-10);endif;
    if(%#bau%=49);look(-50,+4);endif;
    if(%#bau%=50);look(-39,+4);endif;
    if(%#bau%=51);look(-23,+4);endif;
    if(%#bau%=52);look(+23,+4);endif;
    if(%#bau%=53);look(+39,+4);endif;
    if(%#bau%=54);look(+50,+4);endif;
    if(%#bau%=55);look(+61,+4);endif;
    if(%#bau%=56);look(+74,+4);endif;
    if(%#bau%=57);look(+91,+4);endif;
    if(%#bau%=58);look(+104,+4);endif;
    if(%#bau%=59);look(+120,+4);endif;
    if(%#bau%=60);look(+130,+4);endif;
    if(%#bau%=61);look(+141,+4);endif;
    if(%#bau%=62);look(+158,+4);endif;
    if(%#bau%=63);look(-179,+4);endif;
    if(%#bau%=64);look(-159,+4);endif;
    if(%#bau%=65);look(-143,+4);endif;
    if(%#bau%=66);look(-131,+4);endif;
    if(%#bau%=67);look(-120,+4);endif;
    if(%#bau%=68);look(-106,+4);endif;
    if(%#bau%=69);look(-89,+4);endif;
    if(%#bau%=70);look(-75,+4);endif;
    if(%#bau%=71);look(-61,+4);endif;
    if(%#bau%=72);look(-50,+16);endif;
    if(%#bau%=73);look(-39,+20);endif;
    if(%#bau%=74);look(-23,+22);endif;
    if(%#bau%=75);look(+23,+22);endif;
    if(%#bau%=76);look(+39,+20);endif;
    if(%#bau%=77);look(+50,+16);endif;
    if(%#bau%=78);look(+61,+16);endif;
    if(%#bau%=79);look(+74,+18);endif;
    if(%#bau%=80);look(+91,+18);endif;
    if(%#bau%=81);look(+104,+18);endif;
    if(%#bau%=82);look(+120,+16);endif;
    if(%#bau%=83);look(+130,+16);endif;
    if(%#bau%=84);look(+141,+20);endif;
    if(%#bau%=85);look(+158,+22);endif;
    if(%#bau%=86);look(-179,+24);endif;
    if(%#bau%=87);look(-159,+22);endif;
    if(%#bau%=88);look(-143,+20);endif;
    if(%#bau%=89);look(-131,+16);endif;
    if(%#bau%=90);look(-120,+17);endif;
    if(%#bau%=91);look(-106,+18);endif;
    if(%#bau%=92);look(-89,+19);endif;
    wait(1);

    // Guardando ítens nos baus.
    //Tentando abrir baus.
    do;
    ifmatches(%GUI%,GUICHEST);
    break;
    endif;
    wait(1);
    key(use);
    wait(1);
    loop;
    for(#i,54,71);
    slotclick(%#i%,l,true);
    wait(30ms);
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    if(%#bau%<92);
    inc(#bau);
    gui();
    else;
    unset(nf);
    log("&4[Macro] &9Baús cheios! Agora &4nao &9serao guardados mais itens!!!");
    gui();
    break;
    endif;
    endif;
    until(%#stack%=0);
    }$$/home escava$${
    wait(10);
    endif;
    else;
    gui();
    endif;
    endif;
    loop;
    endif;
    }$$
     
  2. LCassells2

    LCassells2 Bom
    VIP

    Afiliado:
    9 Janeiro 2014
    Mensagens:
    1,639
    Curtidas Recebidas:
    102
    Curtiu:
    65
    Sexo:
    Masculino
    Cubos:
    349.00
    Nick:
    zMatheusCLS
    Facebook:
    Matheus
    #2 LCassells2, 27 Maio 2015
    alguem pfv
     
  3. TH3K1NG

    TH3K1NG Craftlandiano
    VIP

    Afiliado:
    24 Setembro 2013
    Mensagens:
    16,325
    Curtidas Recebidas:
    1,412
    Curtiu:
    833
    Sexo:
    Masculino
    Cubos:
    1,903.08
    Nick:
    TH3K1NG
    #3 TH3K1NG, 27 Maio 2015
    isso seria melhor tu mandar mp pra alguma pessoa que faça macro
     
  4. LCassells2

    LCassells2 Bom
    VIP

    Afiliado:
    9 Janeiro 2014
    Mensagens:
    1,639
    Curtidas Recebidas:
    102
    Curtiu:
    65
    Sexo:
    Masculino
    Cubos:
    349.00
    Nick:
    zMatheusCLS
    Facebook:
    Matheus
    #4 LCassells2, 27 Maio 2015
    pra n sei quem faz
     
  5. Anderson13fs

    Anderson13fs Bom

    Afiliado:
    4 Março 2013
    Mensagens:
    589
    Curtidas Recebidas:
    153
    Curtiu:
    589
    Sexo:
    Masculino
    Localização:
    Ribeirópolis...
    Cubos:
    793.00
    Nick:
    Anderson15fs
    Clan:
    Só Jogo Solo
    Facebook:
    /anderson13fs
    #5 Anderson13fs, 28 Maio 2015
    Esse macro é o macro do xlyz? Ele ja guarda livro, n precisa editar nada
     
  6. LCassells2

    LCassells2 Bom
    VIP

    Afiliado:
    9 Janeiro 2014
    Mensagens:
    1,639
    Curtidas Recebidas:
    102
    Curtiu:
    65
    Sexo:
    Masculino
    Cubos:
    349.00
    Nick:
    zMatheusCLS
    Facebook:
    Matheus
    #6 LCassells2, 28 Maio 2015
    ok vlw
     
  7. Surfdandan

    Surfdandan Razoavel
    VIP

    Afiliado:
    7 Novembro 2013
    Mensagens:
    634
    Curtidas Recebidas:
    51
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    »BolØsØLändiä«
    Cubos:
    712.00
    Nick:
    »Surfdandan«
    Clan:
    »SoH l RkS«
    #7 Surfdandan, 28 Maio 2015
    geralmente o macro de escavação guarda tudo q ta no inventairo , tenta por 1 livro nivel 1 no inv
     
  8. FoxZ

    FoxZ Excelente
    Banido

    Afiliado:
    27 Março 2015
    Mensagens:
    3,147
    Curtidas Recebidas:
    224
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Curitiba-PR
    Cubos:
    223.00
    Nick:
    FoxZ
    Clan:
    YnY
    #8 FoxZ, 28 Maio 2015
    Poderia me passar o link do macro ?
     
  9. xlyz

    xlyz Excelente
    VIP

    Afiliado:
    1 Agosto 2014
    Mensagens:
    229
    Curtidas Recebidas:
    228
    Curtiu:
    490
    Sexo:
    Masculino
    Cubos:
    492.00
    Nick:
    xlyz
    Clan:
    MGT
    #9 xlyz, 29 Maio 2015
    '-' kara eu dexei no começo do tópico. Guarda livro.
     
  10. Roodrigo

    Roodrigo Craftlandiano
    VIP

    Afiliado:
    16 Junho 2014
    Mensagens:
    4,532
    Curtidas Recebidas:
    669
    Curtiu:
    575
    Sexo:
    Masculino
    Localização:
    Teto
    Cubos:
    2,225.00
    Nick:
    Devas / Devasteytor
    #10 Roodrigo, 29 Maio 2015
    eu poderia editar mas tou com preguiça e tmb n vou ganhar nd com isso :eek:
     
  11. cleudojunior

    cleudojunior Neutro
    VIP

    Afiliado:
    13 Novembro 2013
    Mensagens:
    365
    Curtidas Recebidas:
    42
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    /home...
    Cubos:
    433.00
    Nick:
    CleudoJunior
    Clan:
    STG
    #11 cleudojunior, 29 Maio 2015
    Geralmente macro de esc nao joga nada fora
     
  12. MAICONDARK

    MAICONDARK Neutro

    Afiliado:
    18 Setembro 2014
    Mensagens:
    51
    Curtidas Recebidas:
    6
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    75.00
    Nick:
    MrCorvo
    #12 MAICONDARK, 30 Maio 2015
    -_0 :morcego:
     
Status do Tópico:
Não esta aberto para novas mensagens.