ENTREGUE [Macro] Colheita Hiper Feliz

Discussão em 'Macro Entregue' iniciado por Substituto, 1 Outubro 2013.

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

    Substituto Craftlandiano
    VIP

    Afiliado:
    30 Dezembro 2011
    Mensagens:
    4,303
    Curtidas Recebidas:
    1,622
    Curtiu:
    496
    Sexo:
    Masculino
    Cubos:
    880.00
    Nick:
    substituto
    Clan:
    HFF
    O MACRO
    Para apenas 1 andar:
    $${
    if(z);
    log("&4[Macro] Colheita Hiper Feliz [OFF]");
    keyup(FORWARD);
    unset(z);
    stop();
    else;
    log("&2[Macro] Colheita Hiper Feliz [ON]");
    set(z);
    endif;
    &d=%DIRECTION%;
    ifmatches(%&d%,N);&d=NORTH;endif;
    ifmatches(%&d%,S);&d=SOUTH;endif;
    ifmatches(%&d%,E);&d=EAST;endif;
    ifmatches(%&d%,W);&d=WEST;endif;
    do;
    slot(9);wait(100ms);
    look(%&d%);wait(100ms);
    look(,90);wait(100ms);
    key(ATTACK);wait(100ms);
    look(,65);wait(100ms);
    do;
    if((%HITID%=88)|(%HITID%=115));
    keydown(FORWARD);
    key(ATTACK);wait(100ms);
    else;
    keyup(FORWARD);
    BREAK;
    endif;
    loop;
    look(+180,);wait(100ms);
    look(,90);wait(100ms);
    pick(372);wait(100ms);
    do(3);key(USE);loop;wait(100ms);
    look(,65);wait(100ms);
    do;
    pick(372);
    if((%HITID%=88)|(%HITID%=115));
    keydown(FORWARD);
    key(USE);
    wait(100ms);
    else;
    keyup(FORWARD);
    BREAK;
    endif;
    loop;
    key(USE);
    wait(1);
    for(#i,54,88);
    getslotitem(%#i%,#id,#stack);
    if(%#id%=372);
    slotclick(%#i%,l,true);
    wait(50ms);
    endif;
    next;
    gui();
    look(-90,);wait(100ms);
    if((%HITID%=88)|(%HITID%=115));
    #posx=%XPOS%;
    #posz=%ZPOS%;
    keydown(FORWARD);
    do;
    wait(10ms);
    until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
    wait(120ms);
    keyup(FORWARD);
    else;
    }$$/home inicio$${
    wait(8);
    endif;
    loop;
    }$$
    Para 2 andares:
    $${

    if(z);
    log("&4[Macro] Colheita Hiper Feliz [OFF]");
    keyup(FORWARD);
    unset(z);
    stop();
    else;
    log("&2[Macro] Colheita Hiper Feliz [ON]");
    set(z);set(andar);
    endif;
    &d=%DIRECTION%;
    ifmatches(%&d%,N);&d=NORTH;endif;
    ifmatches(%&d%,S);&d=SOUTH;endif;
    ifmatches(%&d%,E);&d=EAST;endif;
    ifmatches(%&d%,W);&d=WEST;endif;
    do;
    slot(9);wait(100ms);
    look(%&d%);wait(100ms);
    look(,90);wait(100ms);
    key(ATTACK);wait(100ms);
    look(,65);wait(100ms);
    do;
    if((%HITID%=88)|(%HITID%=115));
    keydown(FORWARD);
    key(ATTACK);wait(100ms);
    else;
    keyup(FORWARD);
    BREAK;
    endif;
    loop;
    look(+180,);wait(100ms);
    look(,90);wait(100ms);
    pick(372);wait(100ms);
    do(3);key(USE);loop;wait(100ms);
    look(,65);wait(100ms);
    do;
    pick(372);
    if((%HITID%=88)|(%HITID%=115));
    keydown(FORWARD);
    key(USE);
    wait(100ms);
    else;
    keyup(FORWARD);
    BREAK;
    endif;
    loop;
    key(USE);
    wait(1);
    for(#i,54,88);
    getslotitem(%#i%,#id,#stack);
    if(%#id%=372);
    slotclick(%#i%,l,true);
    wait(50ms);
    endif;
    next;
    gui();
    look(-90,);wait(100ms);
    if((%HITID%=88)|(%HITID%=115));
    #posx=%XPOS%;
    #posz=%ZPOS%;
    keydown(FORWARD);
    do;
    wait(10ms);
    until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
    wait(120ms);
    keyup(FORWARD);
    else;
    if(andar);
    }$$/home wart2$${
    unset(andar);
    else;
    }$$/home wart1$${
    set(andar);
    endif;
    wait(8);
    endif;
    loop;
    }$$




    Sobre o macro
    1. Não precisa informar o tamanho da plantação;
    2. O macro pode ser iniciado em qualquer direção;
    3. O macro vai começar a colher na direção que for iniciado;
    4. Quando termina a colheita o macro inicia a plantação no sentido contrário;
    5. Quando termina a plantação o macro abre o bau e guarda todas as sementes de Nether;
    6. Depois de esvaziar o inventário o macro segue para a fileira da direita e repete tudo;
    7. Quando o macro terminar toda a colheita vai para a home inicio [que pode ser alterada direto no script]
    8. Se você for vip altere a linha em vermelho para wait(1);
    Obs.: Coloque sua ferramenta [fortune 3] para colheita no Slot 9 da hotbar!

    Posição inicial do macro:
    [​IMG]



    Sobre a plantação
    1. Não deve ter corredores;
    2. O lado que for iniciar o macro deve estar fechada com baús;
    3. Os baús devem estar encima de soulsand.
    Obs.: Para usar baús lada a lado, basta alternar entre baú simples e baú com armadilha :)
    Veja aqui como fazer baú com armadilha
    [​IMG][​IMG]


    Exemplo da plantação:
    [​IMG]


    Se você é novo com macros acesse este [Tutorial] Guia de macro para iniciantes

    Agradecimento e crédito a todos os Script Makers que de alguma forma acrescentaram conhecimentos:

    [member='iBieel'] | [member='DeathStroker'] | [member='Giooovani'] | [member='jimmyfilips'] | [member='Phodalao'] | [member='BeetleJuice'] | [member='Web1000'] | [member='ShaDoWBR190'] | [member='Kilbyre'] | [member='MetiCrefiti'] | [member='Yao Fei']
     
  2. Joota

    Joota Excelente
    VIP

    Afiliado:
    30 Março 2012
    Mensagens:
    634
    Curtidas Recebidas:
    289
    Curtiu:
    375
    Sexo:
    Masculino
    Localização:
    Encruzilhada...
    Cubos:
    413.00
    Nick:
    Joota
    Skype:
    jota-jot4
    Legal! Vou testar.
     
  3. 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
    Boa grande [member='Substituto'] de volta fazendo macro's. :) #ECHOVOLTA
     
  4. iNetosoares

    iNetosoares Excelente
    Banido

    Afiliado:
    2 Setembro 2013
    Mensagens:
    1,409
    Curtidas Recebidas:
    217
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    /arena
    Cubos:
    334.00
    Nick:
    zNeto_
    Clan:
    BKL - Bkillers
    Skype:
    Netosoares__
    concerteza vou testar v
    vlw <3 continue
     
  5. zMatheus22

    zMatheus22 Craftlandiano
    VIP

    Afiliado:
    26 Abril 2013
    Mensagens:
    2,268
    Curtidas Recebidas:
    815
    Curtiu:
    1,065
    Sexo:
    Masculino
    Localização:
    Rio Claro-SP
    Cubos:
    1,781.28
    Nick:
    _matheus_22
    Clan:
    RNs
    Facebook:
    matheussamuelxD
    Skype:
    Matheus22567
  6. yansantos

    yansantos Craftlandiano
    VIP

    Afiliado:
    30 Novembro 2012
    Mensagens:
    4,013
    Curtidas Recebidas:
    1,295
    Curtiu:
    2,445
    Sexo:
    Masculino
    Localização:
    Belém - PA
    Cubos:
    357.00
    Nick:
    _GabrielSantos_
    vou testar
     
    jose luiz curtiu isso.
  7. brennobkp

    brennobkp Excelente
    VIP

    Afiliado:
    1 Outubro 2012
    Mensagens:
    1,391
    Curtidas Recebidas:
    426
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo - SP
    Cubos:
    1,204.00
    Nick:
    brennobkp
    Skype:
    brenno_bkp
    Ebaa gente ele voltou ;-; Vou testar a macro :D
     
    Cheriff e blackT curtiram isso.
  8. cl0undi

    cl0undi Neutro

    Afiliado:
    24 Setembro 2013
    Mensagens:
    93
    Curtidas Recebidas:
    22
    Curtiu:
    0
    Cubos:
    160.00
    Nick:
    cl0und
  9. cuboneRETURN

    cuboneRETURN Excelente
    Banido

    Afiliado:
    23 Setembro 2013
    Mensagens:
    1,180
    Curtidas Recebidas:
    368
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    328.00
    Nick:
    Suaveh
    Clan:
    NCR
    Nasssaaaaaaa , me ajudo demais só '-'
     
  10. TheDarkDescent

    TheDarkDescent Craftlandiano
    VIP

    Afiliado:
    10 Abril 2013
    Mensagens:
    2,342
    Curtidas Recebidas:
    825
    Curtiu:
    846
    Sexo:
    Masculino
    Cubos:
    466.00
    Nick:
    TheDarkDescent
    Like porque acrescentei seus conhecimentos de alguma forma, zoa.
    Parabéns pela macro, agora melhor ainda que antes.
     
    Extermineg curtiu isso.
  11. LosFerreira

    LosFerreira Craftlandiano
    Banido

    Afiliado:
    17 Março 2013
    Mensagens:
    3,197
    Curtidas Recebidas:
    856
    Curtiu:
    0
    Cubos:
    455.00
    Nick:
    LosFerreiras
    vou testar :D


    Da pra setar home em mais de um andar ?? pois tenho 3 andares 50x50, e queria aproveitar ela toda :D
    Sou noob em macro :(
     
  12. ZedoPacote

    ZedoPacote Craftlandiano
    VIP

    Afiliado:
    1 Outubro 2012
    Mensagens:
    2,651
    Curtidas Recebidas:
    734
    Curtiu:
    0
    Cubos:
    406.00
    Nick:
    ZedoPacote
    Boa substituto deixando os nubinhos com money :p
     
    Extermineg curtiu isso.
  13. zGodoiBR

    zGodoiBR Excelente
    VIP

    Afiliado:
    14 Agosto 2012
    Mensagens:
    3,151
    Curtidas Recebidas:
    302
    Curtiu:
    204
    Sexo:
    Masculino
    Cubos:
    80.00
    Nick:
    GodoiBR
    Clan:
    TDW4ever
    Testarei
     
    leonardo9 curtiu isso.
  14. MitoPlay

    MitoPlay Bom

    Afiliado:
    23 Setembro 2013
    Mensagens:
    843
    Curtidas Recebidas:
    147
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São José do...
    Cubos:
    1,074.00
    Nick:
    MitoPlay/Kzay
    Boa :D vou testar aki! qualquer coisa dou uma like xD

    Editado e aprovado '0'
     
  15. Joota

    Joota Excelente
    VIP

    Afiliado:
    30 Março 2012
    Mensagens:
    634
    Curtidas Recebidas:
    289
    Curtiu:
    375
    Sexo:
    Masculino
    Localização:
    Encruzilhada...
    Cubos:
    413.00
    Nick:
    Joota
    Skype:
    jota-jot4
    Funcionou PERFEITO AQUI! VALEU!!
     
  16. zFilipini

    zFilipini Excelente
    VIP

    Afiliado:
    4 Agosto 2013
    Mensagens:
    678
    Curtidas Recebidas:
    233
    Curtiu:
    68
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    952.00
    Nick:
    zFilipiniz
    Boa, mais se for possivel , tenta corrigir alguns bugs, ele está pulando muitas fileiras , e errando a mira dos baus, e quando ele erra a mira dos baus ( acerta no meio de 2 baus ) o macro para, pois não consegue guardar os fungos :)
     
  17. 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:
    ----
    Maravilhoso.... Apenas isso, MARAVILHOSO.
     
    andrey16 curtiu isso.
  18. TaylerMax

    TaylerMax Excelente
    VIP

    Afiliado:
    10 Agosto 2012
    Mensagens:
    475
    Curtidas Recebidas:
    259
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Rio De Janeiro
    Cubos:
    774.00
    Nick:
    TaylerMax
    Skype:
    kevinpaulor
    LoL quando vi o título pensei que o macro colhia, replantava e vendia na warp vip o_O
     
  19. AwAyTrOn

    AwAyTrOn Excelente
    VIP

    Afiliado:
    5 Maio 2013
    Mensagens:
    6,769
    Curtidas Recebidas:
    297
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    1,273.04
    Nick:
    AwAyTrOn
    Skype:
    morlock.lool
    testarei qnd volta a jogar
     
  20. Megahert_

    Megahert_ Excelente
    VIP

    Afiliado:
    28 Abril 2012
    Mensagens:
    705
    Curtidas Recebidas:
    201
    Curtiu:
    161
    Sexo:
    Masculino
    Cubos:
    991.00
    Nick:
    Megahert_
    Skype:
    joaopaulo.silveira
    Substituto, otimo macro, nao testei mais vindo de voce :9
     
Status do Tópico:
Não esta aberto para novas mensagens.