ENTREGUE [Macro] Construtor de Muros

Discussão em 'Macro Entregue' iniciado por Phodalao, 13 Abril 2014.

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

    Phodalao Lendário
    VIP

    Afiliado:
    14 Janeiro 2013
    Mensagens:
    3,933
    Curtidas Recebidas:
    5,100
    Curtiu:
    649
    Cubos:
    2,465.00
    Nick:
    Phodalao
    É um macro simples para construir muros.

    Você precisa por ele no EDIT FILES!
    Não abra o inventário durante a construção, recomendado deixar o inventário lotado de blocos.
    É recomendado que você inicie ele olhando para o Norte, e do seu lado DIREITO.

    Bom, vamos ver como ele funciona:
    [​IMG]

    Então, quando você ligar ele ele vai te fazer 3 perguntas:
    1. Altura máxima que você quer fazer.
    2. Qual o comprimento?
    3. Qual o comprimento?2

    Vamos imaginar que minha region seja assim:
    [​IMG]
    Então eu quero fazer um muro com uma altura de 20 blocos, logo eu vou responder assim:
    1. 20
    2. 20
    3. 60

    Simples, espero que tenham entendido!
    [hr]
    Macro
    Macro que coloca um bloco por vez:
    $${
    if(boboconstrutor);
    log(&6[&b!&6] &4Macro Desligado);
    unset(boboconstrutor);
    stop;else;
    log(&6[&b!&6] &aIniciando o Trabalho);
    set(boboconstrutor);
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;
    if(%ITEM%=0);
    log(&6[&b!&6] &aVocê Precisa Estar com um bloco na mão);
    unset(boboconstrutor);stop;endif;
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#i,#s);
    if(%#s%=0);
    log(&6[&b!&6] &aVocê precisa por algo no slot 35 (Ultimo SLOT));
    log(&6[&b!&6] &aMacro Desligado!);gui;stop;
    endif;gui;
    PROMPT(#mx,$$?,Qual sera a altura MAXIMA?);
    PROMPT(#q,$$?,Qual o Comprimento?);
    PROMPT(#qq,$$?,Qual o Comprimento?2);
    #bloco=%ITEM%;
    #q=%#q%-1;
    #qq=%#qq%-1;
    #mn=%YPOS%;
    #max=%YPOS%+%#mx%;
    do;
    if(%#mn%>=%#max%);keyup(sneak);
    log(&6[&b!&6] &aTrabalho Encerrado);
    unset(boboconstrutor);stop;endif;
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    //=================JUMP
    do;
    keydown(JUMP);pick(%#bloco%);
    Key(use);until(%YPOS%=%#y%+1);
    keyup(JUMP);

    //=================FORWARD
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(FORWARD);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(FORWARD);key(use);
    until((%ZPOS%=%#z%+%#q%)|(%ZPOS%=%#z%-%#q%)|(%XPOS%=%#x%-%#q%)|(%XPOS%=%#x%+%#q%));
    keyup(FORWARD);key(use);wait(1ms);
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    //=================LEFT
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(LEFT);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(LEFT);key(use);
    until((%ZPOS%=%#z%+%#qq%)|(%ZPOS%=%#z%-%#qq%)|(%XPOS%=%#x%-%#qq%)|(%XPOS%=%#x%+%#qq%));
    keyup(LEFT);key(use);wait(1ms);

    //====================BACK
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(BACK);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(BACK);key(use);
    until((%ZPOS%=%#z%+%#q%)|(%ZPOS%=%#z%-%#q%)|(%XPOS%=%#x%-%#q%)|(%XPOS%=%#x%+%#q%));
    keyup(BACK);key(use);wait(1ms);

    //====================RIGHT
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(RIGHT);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(RIGHT);key(use);
    until((%ZPOS%=%#z%+%#qq%)|(%ZPOS%=%#z%-%#qq%)|(%XPOS%=%#x%-%#qq%)|(%XPOS%=%#x%+%#qq%));
    keyup(RIGHT);key(use);wait(1ms);
    inc(#mn,1);
    loop;
    }$$
    Macro que coloca dois blocos por vez:
    $${
    if(boboconstrutor);
    log(&6[&b!&6] &4Macro Desligado);
    unset(boboconstrutor);
    stop;else;
    log(&6[&b!&6] &aIniciando o Trabalho);
    set(boboconstrutor);
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;
    if(%ITEM%=0);
    log(&6[&b!&6] &aVocê Precisa Estar com um bloco na mão);
    unset(boboconstrutor);stop;endif;
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#i,#s);
    if(%#s%=0);
    log(&6[&b!&6] &aVocê precisa por algo no slot 35 (Ultimo SLOT));
    log(&6[&b!&6] &aMacro Desligado!);gui;stop;
    endif;gui;
    PROMPT(#mx,$$?,Qual sera a altura MAXIMA?);
    PROMPT(#q,$$?,Qual o Comprimento?);
    PROMPT(#qq,$$?,Qual o Comprimento?2);
    #bloco=%ITEM%;
    #q=%#q%-1;
    #qq=%#qq%-1;
    #mn=%YPOS%;
    #max=%YPOS%+%#mx%;
    do;
    if(%#mn%>=%#max%);keyup(sneak);
    log(&6[&b!&6] &aTrabalho Encerrado);
    unset(boboconstrutor);stop;endif;
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    //=================JUMP
    do;
    keydown(JUMP);pick(%#bloco%);
    Key(use);until(%YPOS%=%#y%+2);
    keyup(JUMP);

    //=================FORWARD
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(FORWARD);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(FORWARD);key(use);
    until((%ZPOS%=%#z%+%#q%)|(%ZPOS%=%#z%-%#q%)|(%XPOS%=%#x%-%#q%)|(%XPOS%=%#x%+%#q%));
    keyup(FORWARD);key(use);wait(1ms);
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    //=================LEFT
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(LEFT);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(LEFT);key(use);
    until((%ZPOS%=%#z%+%#qq%)|(%ZPOS%=%#z%-%#qq%)|(%XPOS%=%#x%-%#qq%)|(%XPOS%=%#x%+%#qq%));
    keyup(LEFT);key(use);wait(1ms);

    //====================BACK
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(BACK);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(BACK);key(use);
    until((%ZPOS%=%#z%+%#q%)|(%ZPOS%=%#z%-%#q%)|(%XPOS%=%#x%-%#q%)|(%XPOS%=%#x%+%#q%));
    keyup(BACK);key(use);wait(1ms);

    //====================RIGHT
    #x=%XPOS%;#z=%ZPOS%;#y=%YPOS%;
    do;
    look(%&dir%);look(,90);
    getslotitem(9,#id,#stacksize);
    if(%#stacksize%=0);
    keyup(RIGHT);
    gui(INVENTORY);wait(500ms);
    getslotitem(35,#id,#stacksize);
    if(%#stacksize%=0);
    log(&6[&b!&6] &4Seus Blocos Acabaram Senhor);
    stop;elseif(%#stacksize%!=0);
    for(#i,9,35);slotclick(%#i%,l,true);
    wait(70ms);next;gui;endif;
    endif;pick(%#bloco%);
    keydown(sneak);keydown(RIGHT);key(use);
    until((%ZPOS%=%#z%+%#qq%)|(%ZPOS%=%#z%-%#qq%)|(%XPOS%=%#x%-%#qq%)|(%XPOS%=%#x%+%#qq%));
    keyup(RIGHT);key(use);wait(1ms);
    inc(#mn,2);
    loop;
    }$$

    Eu lembro que alguém tinha postado um, mas me pediram ontem na Shout, então bom uso!
     
  2. BHBC

    BHBC Craftlandiano
    VIP

    Afiliado:
    5 Novembro 2013
    Mensagens:
    5,037
    Curtidas Recebidas:
    528
    Curtiu:
    698
    Sexo:
    Masculino
    Localização:
    isando...
    Cubos:
    2,523.00
    Nick:
    BHBC
    Clan:
    YnY
    Vou usar pra fazer muro de minha region :)
    Boa
    @EDIT: Funciona no 100x100 né?
     
    CoringaJp2 curtiu isso.
  3. IceBR3kWiN

    IceBR3kWiN Craftlandiano
    VIP

    Afiliado:
    15 Agosto 2013
    Mensagens:
    5,006
    Curtidas Recebidas:
    847
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    75.00
    Nick:
    brN
    Clan:
    HLS
    Boa, porem n uso :)
     
    Holzinator curtiu isso.
  4. ericknemet1

    ericknemet1 Craftlandiano
    VIP

    Afiliado:
    20 Novembro 2012
    Mensagens:
    5,279
    Curtidas Recebidas:
    1,067
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    PC
    Cubos:
    1,715.00
    Nick:
    ericknemet
    boa phodalao o/ queria um que construísse "tetos"...
     
    Cuchulain, Enio Berton e Erick7 curtiram isso.
  5. johnnyvip

    johnnyvip Neutro
    VIP

    Afiliado:
    10 Agosto 2013
    Mensagens:
    215
    Curtidas Recebidas:
    27
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    SP Campinas
    Cubos:
    229.00
    Nick:
    JohnnyVip
    Facebook:
    Johnny Richard
    Skype:
    Johnnyviprichard
    Boa mano ótimo macro facilitou muito UP!!!
     
    Enio Berton curtiu isso.
  6. enderguyg3

    enderguyg3 Hardcore
    Banido

    Afiliado:
    18 Março 2014
    Mensagens:
    7,833
    Curtidas Recebidas:
    3,326
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    2.00
    Nick:
    EndeerGuy
    vou usar
     
    Enio Berton curtiu isso.
  7. Phodalao

    Phodalao Lendário
    VIP

    Afiliado:
    14 Janeiro 2013
    Mensagens:
    3,933
    Curtidas Recebidas:
    5,100
    Curtiu:
    649
    Cubos:
    2,465.00
    Nick:
    Phodalao
    Sim, mas você precisa lotar o inventário pra fazer isso!

    Eu estava fazendo um desse, mas tive problemas com coordenadas negativas, mas eu já sei como resolver (.1) talvez eu poste quando eu criar coragem pra editar ele de novo!
     
  8. lucasescosteguy

    lucasescosteguy Craftlandiano
    VIP

    Afiliado:
    25 Julho 2013
    Mensagens:
    6,049
    Curtidas Recebidas:
    1,081
    Curtiu:
    651
    Sexo:
    Masculino
    Cubos:
    514.00
    Nick:
    -
    depoismque daço uma region 50x50 até a altura max voce posta isso? vsf
     
  9. FragaBAN

    FragaBAN Bom
    Banido

    Afiliado:
    13 Janeiro 2014
    Mensagens:
    767
    Curtidas Recebidas:
    162
    Curtiu:
    0
    Cubos:
    1,024.00
    Nick:
    DealWith
  10. ericknemet1

    ericknemet1 Craftlandiano
    VIP

    Afiliado:
    20 Novembro 2012
    Mensagens:
    5,279
    Curtidas Recebidas:
    1,067
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    PC
    Cubos:
    1,715.00
    Nick:
    ericknemet
    oks :p estarei no aguardo xd
     
  11. Gijha

    Gijha Razoavel
    VIP

    Afiliado:
    29 Maio 2013
    Mensagens:
    219
    Curtidas Recebidas:
    88
    Curtiu:
    705
    Sexo:
    Feminino
    Localização:
    minecraft
    Cubos:
    473.00
    Nick:
    Gijha
    Facebook:
    Gijha
    Twitter:
    @Gijha_Gamer
    vou usar :)
    mais esse macro funfa na nova versão?
     
  12. Betinho00BR

    Betinho00BR Excelente
    VIP

    Afiliado:
    10 Maio 2013
    Mensagens:
    2,830
    Curtidas Recebidas:
    254
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    11.00
    Nick:
    Betinho00BR
    boa vou testar mais tarde
     
  13. xpedra

    xpedra Excelente
    VIP

    Afiliado:
    19 Dezembro 2013
    Mensagens:
    3,116
    Curtidas Recebidas:
    393
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    199.00
    Nick:
    xThePedro
    Boa , vc tem algum q faça teto d region?
     
  14. fefe1472

    fefe1472 Neutro
    VIP

    Afiliado:
    5 Abril 2014
    Mensagens:
    95
    Curtidas Recebidas:
    9
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo,...
    Cubos:
    126.00
    Nick:
    zThunder
    Nossaaaaa Mano valeu cara se eu pudesse te dava 1000 Ups.
    2bjs
     
  15. TPCarrey

    TPCarrey Hardcore
    VIP

    Afiliado:
    8 Agosto 2013
    Mensagens:
    6,288
    Curtidas Recebidas:
    2,187
    Curtiu:
    0
    Localização:
    火星月亮海
    Cubos:
    3,178.00
    Nick:
    zTP
    Clan:
    Avengers of Darkness
    Boa Phoda >.<
     
  16. Phodalao

    Phodalao Lendário
    VIP

    Afiliado:
    14 Janeiro 2013
    Mensagens:
    3,933
    Curtidas Recebidas:
    5,100
    Curtiu:
    649
    Cubos:
    2,465.00
    Nick:
    Phodalao
    Ainda naoo
     
    Carolin02 e Gijha curtiram isso.
  17. Holzinator

    Holzinator Neutro

    Afiliado:
    21 Janeiro 2014
    Mensagens:
    59
    Curtidas Recebidas:
    1
    Curtiu:
    0
    Cubos:
    65.00
    Nick:
    Holzinator
     
  18. Attemptyz

    Attemptyz Craftlandiano
    VIP

    Afiliado:
    21 Fevereiro 2013
    Mensagens:
    2,680
    Curtidas Recebidas:
    712
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Brazil
    Cubos:
    2,880.00
    Nick:
    nenhum
    Twitter:
    @idlua
    O cara disponibiliza o trabalho dele pra ajudar e tu ainda vem falar merda no tópico?!
    Vaza muleke, vai chorar em outro lugar. --'

    Vou te contar viu.... ¬¬


    @topic
    Futuramente vou precisar de um macro como esse..
    Vlw por disponibilizar brother!
     
    Junior Anzolin curtiu isso.
  19. Willianfigg

    Willianfigg Excelente
    VIP

    Afiliado:
    15 Outubro 2013
    Mensagens:
    1,699
    Curtidas Recebidas:
    371
    Curtiu:
    419
    Sexo:
    Masculino
    Localização:
    Campo...
    Cubos:
    421.00
    Nick:
    willianfig
    Clan:
    LDC
    Skype:
    willianfig
    Twitter:
    @williangrison
    pholadao s2
     
    Feruti :D curtiu isso.
  20. Weihts

    Weihts Excelente
    VIP

    Afiliado:
    5 Fevereiro 2014
    Mensagens:
    3,071
    Curtidas Recebidas:
    416
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Porto...
    Cubos:
    860.00
    Nick:
    OberynKing
    Boa cara, ótimo macro.
     
Status do Tópico:
Não esta aberto para novas mensagens.