ENTREGUE [Tutorial] Fazer regiões planas!

Discussão em 'Macro Entregue' iniciado por BeetleJuice, 14 Setembro 2013.

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

    BeetleJuice Craftlandiano
    VIP

    Afiliado:
    23 Janeiro 2013
    Mensagens:
    618
    Curtidas Recebidas:
    1,317
    Curtiu:
    295
    Cubos:
    2,262.00
    Nick:
    beetleejuice
    [MACRO] Fazer regiões planas!

    O que este macro faz?
    O macro faz uma região totalmente plana de lados definidos por você.
    Serve para VIPS ou NÂO VIPS :)

    Exemplo:
    [​IMG]

    Adicionais:
    -Se você cair enquanto o macro está ligado, o mesmo detectará a queda e desligará sozinho. (LAG u.u)
    -Informa quantos blocos são necessários e não funciona se você não tiver o suficiente.
    -Repõe os blocos da hotbar automaticamente.
    -Informa o tempo gasto no final (opcional)

    [media]http://www.youtube.com/watch?v=ElK7TNWr6_0[/media]
    Obrigado pelo vídeo, jimmyfliips! ♥

    Macro e instalação:
    Basta copiar em uma tecla qualquer.
    Se não sabe fazer isso ainda, leia o tópico: http://forum.craftlandia.com.br/ipb/index.php?/topic/159896-tutorial-guia-de-macro-para-iniciantes/


    Versão 1.7.2
    $${
    if(autoputv4);
    log("&d» &6AutoPUT &c[OFF]");
    unset(autoputv4);
    keyup(back);
    keyup(sneak);
    stop();
    else;
    log("&d» &6AutoPUT &a[ON]");
    #tic2=%@#tic2%;
    set(autoputv4);

    PROMPT(&itemid,$$i,"Item que será usado:"); ifmatches(%#itemid%,^$);unset(autoputv4);stop();endif;
    PROMPT(#nlado,$$?,"Comprimento:"); if(%#nlado%=0);unset(autoputv4);stop();endif;
    PROMPT(#nlado1,$$?,"Largura:"); if(%#nlado1%=0);unset(autoputv4);stop();endif;
    log("&d» &6Deixe o inventório aberto!");
    #calc1=%#lado%/2;
    #calc2=%#calc1%*2;
    #ih45=%#lado%-%#calc1%;
    #nladox=%#nlado%;
    #nlado1x=%#nlado1%
    #nlado=%#nlado%;
    #impvar=%#nlado1%;
    #nlado1=%#nlado1%/2;
    #imp=%#impvar%-(%#nlado1%*2);
    if(%#imp%=1);#nlado1=%#nlado1%+1;endif;

    &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(ftpass);

    gui(inventory);
    wait(800ms);

    #dims=%#nladox%*%#nlado1x%;
    #tpacks=%#dims%/64;
    &tpacks=;
    if(%#tpacks%!=0);&tpacks="%#tpacks% packs e ";endif;
    #trest=%#dims%-(#tpacks*64);
    if(%#trest%!=0);&trest="%#trest% blocos";else;&trest=;endif;
    #stack=0;
    #stackx=0;
    gui(inventory);
    wait(1);
    for(#capac,9,44);
    getslotitem(%#capac%,&id,#stack);
    ifmatches(%&id%,%&itemid%);#stackx=%#stackx%+%#stack%;endif;
    next;

    if(%#dims%>%#stackx%);
    gui();
    log("&d» &cOps! &6Total de itens no inventário insuficiente. :(");
    log("&d» &6Para esse tamanho são necessários &9%&tpacks%%&trest%.");
    log("&d» &6AutoPUT &c[OFF]");
    unset(autoputv4);

    stop();
    endif;

    log("&d» &6Área de dimensões &9%#nladox% &6por &9%#nlado1x%&6.");
    log("&d» &6Total de blocos: &9%#dims% &6blocos. ");

    for(#nii,1,%#nlado1%);
    for(#ucris,1,2);

    getslot(%&itemid%,#i);
    if(%#i%<36);
    slotclick(%#i%,l,true);
    endif;
    if(%#i%=-1);unset(autoputv4);log("&d» &6Acabaram os itens :/ &c[OFF]");log("&d» &6AutoPUT &c[OFF]");stop();endif;
    if((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=1));
    else;

    if(%#ucris%=1);
    &loc=+90;
    &side=left;
    endif;

    if(%#ucris%=2);
    &loc=-90;
    &side=right;
    endif;

    &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;

    do(%#nlado%);
    keydown(sneak);
    look(%&dir%);
    look(,+83);
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(back);
    pick(%&itemid%);
    key(use);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    loop;
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;

    if(((%#ucris%=1)&&(%#nlado1%=%#nii%)&&(%#imp%=1))|((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=0)));
    else;
    look(%&loc%,);
    do;
    keydown(back);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(200ms);
    keyup(back);

    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(%&side%);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(100ms);
    pick(%&itemid%);
    key(use);
    wait(100ms);
    key(use);
    wait(100ms);
    key(use);
    wait(200ms);
    keyup(%&side%);
    look(%&loc%,);
    endif;
    endif;
    next;
    next;

    keyup(back);
    do;
    keydown(FORWARD);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(40ms);
    keyup(FORWARD);
    keyup(sneak);

    gui();
    log("&d» &6AutoPUT &c[OFF]");

    unset(autoputv4);
    stop();
    endif;
    }$$


    Versão 1.5.2
    $${
    if(autoputv4);
    log("&d» &6AutoPUT &c[OFF]");
    unset(autoputv4);
    keyup(back);
    keyup(sneak);
    stop();
    else;
    log("&d» &6AutoPUT &a[ON]");
    #tic2=%@#tic2%;
    set(autoputv4);

    PROMPT(#itemid,$$i,"ID do item que será usado:"); if(%#itemid%=0);unset(autoputv4);stop();endif;
    PROMPT(#nlado,$$?,"Comprimento:"); if(%#nlado%=0);unset(autoputv4);stop();endif;
    PROMPT(#nlado1,$$?,"Largura:"); if(%#nlado1%=0);unset(autoputv4);stop();endif;
    log("&d» &6Deixe o inventório aberto!");
    #calc1=%#lado%/2;
    #calc2=%#calc1%*2;
    #ih45=%#lado%-%#calc1%;
    #nladox=%#nlado%;
    #nlado1x=%#nlado1%
    #nlado=%#nlado%;
    #impvar=%#nlado1%;
    #nlado1=%#nlado1%/2;
    #imp=%#impvar%-(%#nlado1%*2);
    if(%#imp%=1);#nlado1=%#nlado1%+1;endif;

    &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(ftpass);

    gui(inventory);
    wait(800ms);

    #dims=%#nladox%*%#nlado1x%;
    #tpacks=%#dims%/64;
    &tpacks=;
    if(%#tpacks%!=0);&tpacks="%#tpacks% packs e ";endif;
    #trest=%#dims%-(#tpacks*64);
    if(%#trest%!=0);&trest="%#trest% blocos";else;&trest=;endif;
    #stack=0;
    #stackx=0;
    gui(inventory);
    wait(1);
    for(#capac,9,44);
    getslotitem(%#capac%,#id,#stack);
    if(%#id%=%#itemid%);#stackx=%#stackx%+%#stack%;endif;
    next;

    if(%#dims%>%#stackx%);
    gui();
    log("&d» &cOps! &6Total de itens no inventário insuficiente. :(");
    log("&d» &6Para esse tamanho são necessários &9%&tpacks%%&trest%.");
    log("&d» &6AutoPUT &c[OFF]");
    unset(autoputv4);

    stop();
    endif;

    log("&d» &6Área de dimensões &9%#nladox% &6por &9%#nlado1x%&6.");
    log("&d» &6Total de blocos: &9%#dims% &6blocos. ");

    for(#nii,1,%#nlado1%);
    for(#ucris,1,2);

    getslot(%#itemid%,#i);
    if(%#i%<36);
    slotclick(%#i%,l,true);
    endif;
    if(%#i%=-1);unset(autoputv4);log("&d» &6Acabaram os itens :/ &c[OFF]");log("&d» &6AutoPUT &c[OFF]");stop();endif;
    if((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=1));
    else;

    if(%#ucris%=1);
    &loc=+90;
    &side=left;
    endif;

    if(%#ucris%=2);
    &loc=-90;
    &side=right;
    endif;

    &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;

    do(%#nlado%);
    keydown(sneak);
    look(%&dir%);
    look(,+83);
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(back);
    pick(%#itemid%);
    key(use);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    loop;
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;

    if(((%#ucris%=1)&&(%#nlado1%=%#nii%)&&(%#imp%=1))|((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=0)));
    else;
    look(%&loc%,);
    do;
    keydown(back);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(200ms);
    keyup(back);

    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(%&side%);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(100ms);
    pick(%#itemid%);
    key(use);
    wait(100ms);
    key(use);
    wait(100ms);
    key(use);
    wait(200ms);
    keyup(%&side%);
    look(%&loc%,);
    endif;
    endif;
    next;
    next;

    keyup(back);
    do;
    keydown(FORWARD);
    until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
    wait(40ms);
    keyup(FORWARD);
    keyup(sneak);

    gui();
    log("&d» &6AutoPUT &c[OFF]");

    unset(autoputv4);
    stop();
    endif;
    }$$

    Qualquer dúvida, pergunte aqui no tópico mesmo.
    Lembrando que a sua dúvida pode ser a mesma de outra pessoa, então evite mandar mensagens privadas.
     
    FrotasBR, Wasmachine, lechinski e 99 outras curtiram isso.
  2. Lucraft

    Lucraft Craftlandiano
    VIP

    Afiliado:
    18 Dezembro 2012
    Mensagens:
    1,647
    Curtidas Recebidas:
    641
    Curtiu:
    427
    Sexo:
    Masculino
    Cubos:
    1,504.00
    Nick:
    Lucraft_98_Pt-Br
    Tu manja das parada de macro , hein '-'
     
    Kubi, Andrew46, Alcidees e 2 outras curtiram isso.
  3. adrianotxd

    VIP

    Afiliado:
    24 Junho 2012
    Mensagens:
    355
    Curtidas Recebidas:
    123
    Curtiu:
    0
    Cubos:
    456.00
    Nick:
    adrianotxd
    &nbsp;
    &nbsp;
     
    BeetleJuice curtiu isso.
  4. zFelipe

    zFelipe Excelente
    VIP

    Afiliado:
    12 Julho 2013
    Mensagens:
    1,379
    Curtidas Recebidas:
    357
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    SP - Santo...
    Cubos:
    1,966.00
    Nick:
    zExtremex
    Skype:
    zExtremex
    Muito zika, quando eu penso que não existe mais nada pra criar com macro, vem o [member='BeetleJuice'] é cria algo totalmente inovador ! :3
     
    jimmyfilips e BeetleJuice curtiram isso.
  5. Dolan8000

    Dolan8000 Craftlandiano
    Banido

    Afiliado:
    30 Dezembro 2012
    Mensagens:
    8,422
    Curtidas Recebidas:
    1,909
    Curtiu:
    964
    Sexo:
    Masculino
    Localização:
    Porto Alegre-RS
    Cubos:
    2,796.00
    Nick:
    Klug
    Twitter:
    ----
    ³
     
    raisler voigt e BeetleJuice curtiram isso.
  6. zExtremexBR

    zExtremexBR Craftlandiano
    VIP

    Afiliado:
    19 Abril 2013
    Mensagens:
    3,965
    Curtidas Recebidas:
    1,157
    Curtiu:
    2,202
    Sexo:
    Masculino
    Cubos:
    440.00
    Nick:
    zExtremexBR_
    Clan:
    NFG
    irei testar veio parace ser foda pakas !!
     
    BeetleJuice curtiu isso.
  7. ResBR

    ResBR Craftlandiano
    VIP

    Afiliado:
    1 Fevereiro 2013
    Mensagens:
    5,847
    Curtidas Recebidas:
    1,762
    Curtiu:
    2,012
    Sexo:
    Masculino
    Cubos:
    332.00
    Nick:
    ResBR
    Clan:
    GfK
    Não entendi o que esse macro faz ;-;
     
    andregranzotto e BeetleJuice curtiram isso.
  8. BeetleJuice

    BeetleJuice Craftlandiano
    VIP

    Afiliado:
    23 Janeiro 2013
    Mensagens:
    618
    Curtidas Recebidas:
    1,317
    Curtiu:
    295
    Cubos:
    2,262.00
    Nick:
    beetleejuice
    Você não leu nada, né? Tem até o vídeo, não é possível u.u

    Exemplo:
    [​IMG]
     
    PumpkinQuake, farescape e jimmyfilips curtiram isso.
  9. ResBR

    ResBR Craftlandiano
    VIP

    Afiliado:
    1 Fevereiro 2013
    Mensagens:
    5,847
    Curtidas Recebidas:
    1,762
    Curtiu:
    2,012
    Sexo:
    Masculino
    Cubos:
    332.00
    Nick:
    ResBR
    Clan:
    GfK
    Eu li, mas n tinha visto o vídeo, MUITO BOM

    Vou poder terminar meu telhado 50x50 \o/
     
    adrinfo, andregranzotto e BeetleJuice curtiram isso.
  10. lukin12

    lukin12 Excelente
    VIP

    Afiliado:
    11 Julho 2013
    Mensagens:
    1,607
    Curtidas Recebidas:
    462
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Rio de Janeiro
    Cubos:
    190.00
    Nick:
    iLCPvP
    Clan:
    YnY
    Skype:
    Lucas.Loureiro37
  11. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
    Esse cara é demais!! É uma honra gravar vídeos contigo cara :3
     
    brych, TheDarkDescent e BeetleJuice curtiram isso.
  12. Corruptedd

    VIP Banido

    Afiliado:
    30 Julho 2013
    Mensagens:
    601
    Curtidas Recebidas:
    175
    Curtiu:
    266
    Sexo:
    Masculino
    Localização:
    Rio Grande...
    Cubos:
    817.00
    Nick:
    BenHur_God
    Clan:
    TzT
    MANERO, vo tenta aki faze uma city ^^
     
  13. Joaola

    Joaola Excelente
    Banido

    Afiliado:
    7 Setembro 2012
    Mensagens:
    2,895
    Curtidas Recebidas:
    432
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Far cy
    Cubos:
    1,095.00
    Nick:
    GotChuNow
     
  14. zViperR

    zViperR Excelente
    VIP

    Afiliado:
    6 Dezembro 2012
    Mensagens:
    2,178
    Curtidas Recebidas:
    289
    Curtiu:
    82
    Sexo:
    Masculino
    Cubos:
    2,187.26
    Nick:
    zViperR
    Clan:
    STF
    Macro totalmente ÉPICO parabéns! ;)
     
  15. fodensse

    fodensse Craftlandiano
    VIP

    Afiliado:
    17 Outubro 2012
    Mensagens:
    2,239
    Curtidas Recebidas:
    1,035
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    1,415.00
    Nick:
    fodensse
    &nbsp;
    &nbsp;
     
  16. xSipsode

    xSipsode Excelente
    VIP

    Afiliado:
    11 Março 2013
    Mensagens:
    2,393
    Curtidas Recebidas:
    454
    Curtiu:
    960
    Sexo:
    Masculino
    Localização:
    Santos/SP
    Cubos:
    136.00
    Nick:
    Sipsode
    Skype:
    barackkk123
    Belo macro, ta de parabéns :p
     
  17. zLH

    zLH Hardcore
    VIP

    Afiliado:
    28 Junho 2012
    Mensagens:
    6,224
    Curtidas Recebidas:
    2,492
    Curtiu:
    2,225
    Sexo:
    Masculino
    Localização:
    São Paulo - SP
    Cubos:
    1,110.00
    Nick:
    LHenriqueCD6
     
  18. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
     
    jos4manG, EchoPvP e BeetleJuice curtiram isso.
  19. daisekai

    daisekai Neutro
    Banido

    Afiliado:
    1 Julho 2013
    Mensagens:
    260
    Curtidas Recebidas:
    33
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    348.00
    Nick:
    daisekai
    ai sim em.. alguem ja testou?
     
  20. TheDarkDescent

    TheDarkDescent Craftlandiano
    VIP

    Afiliado:
    10 Abril 2013
    Mensagens:
    2,342
    Curtidas Recebidas:
    825
    Curtiu:
    846
    Sexo:
    Masculino
    Cubos:
    466.00
    Nick:
    TheDarkDescent
    Excelente macro!
    O massa é que umas 2 semanas atrás fiz uns 3 ou 4 chãos de 100x100 :/
     
    BeetleJuice curtiu isso.
Status do Tópico:
Não esta aberto para novas mensagens.