ENTREGUE herbalismo completo region 2.0

Discussão em 'Macro Entregue' iniciado por jhofernandes, 7 Julho 2015.

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

    jhofernandes Neutro

    Afiliado:
    15 Fevereiro 2015
    Mensagens:
    20
    Curtidas Recebidas:
    1
    Curtiu:
    28
    Sexo:
    Masculino
    Cubos:
    55.51
    Nick:
    elemenal
    é bem simples, esse macro e nao é meu mais foi feito por rogroote foi feito pra cavar entao eu dei uma modificada pra add comida e
    e percebi que pode inves de usar blocos para cavar pode usar coisas tipo cana, flor e tudo que pode upar herba, entao e so usar
    macro original com os baus e como fazer a trap de baus http://forum.craftlandia.com.br/ipb/index.php?/topic/489410-macroescavação-172/?hl=rogroote mas ai vc faz assim http://imgur.com/Sh5lf5S http://imgur.com/hrr0rXR dai é so colocar qualquer ferramenta no lugar do machado, e vc tbm pode usar o cava cava sem ter que modificar nada e so usar o original do rogroote

    ${
    IF(rogroote);
    echo(MACRO ESCAVAÇÃO OFF)
    Unset(rogroote);
    STOP;
    Else;
    Log(“&MACRO ESCAVAÇÃO &4ON”);
    Set(rogroote);
    &dir = %DIRECTION%;
    #bau=1;
    set(nf);
    IFMATCHES(%DIRECTION%,N);
    &direcao = NORTH;
    ENDIF;
    IFMATCHES(%DIRECTION%,S);
    &direcao = SOUTH;
    ENDIF;
    IFMATCHES(%DIRECTION%,W);
    &direcao = WEST;
    ENDIF;
    IFMATCHES(%DIRECTION%,E);
    &direcao = EAST;
    ENDIF;
    #snposx1=%XPOS%; #snposx2=%ZPOS%;
    #rod=4;
    #exp = 0;
    PROMPT(&bloco,$i, Que bloco usará para cavar?);
    PROMPT(&comida,$i, Que tipo de comida irá ser usada?);
    PROMPT(&quantidade,$?, Qual aquantidade de blocos que ira quebrar? );
    PROMPT(&quebrar,$?, Qual delay para quebrar os blocos? Recomendado: 2 para eff4 - aumente o valor se o bloco nâo quebrar!);
    do();

    // Comendo

    if(%HUNGER%<17);
    pick(%&comida%);
    wait(10ms);
    #st=%STACKSIZE%;
    do;
    key(use);
    until(%STACKSIZE%<%#st%);
    endif;
    if(HEALTH<=5);
    unset(rogroote);}$
    /home
    ${log("&4[Macro] &6de esvar parando.");
    log("&4[Macro] &2Obrigado por usar meu macro ASS: &bROGROOTE - REGION 2.0.");
    stop();
    endif;

    // Quebrando blocos

    do(%&quantidade%);
    look(%&DIRECTION%,59);
    pick(%&bloco%);
    key(use);
    wait(1ms);
    slot(%#rod%);
    if(DURABILITY<30);
    inc(#rod);
    endif;
    if(%#rod%=10);
    log("&2Todas as ferramentas estão no &4red &2repareas ou as troque.");
    log("&4[Macro] &6Escavação desativada.");
    unset(rogroote);
    stop();
    endif;
    next;

    endif;

    endif;

    look(%&DIRECTION%,59);
    do(%&quebrar%);
    key(attack);
    loop;
    loop;

    // Abrindo inventário


    if(nf);
    gui(inventory);
    pick(Dirt);
    if(%STACKSIZE%<9);
    for(#i,9,35);
    getslotitem(%#i%,#id);
    if(%#id%=Dirt);
    slotclick(%#i%,l,true);
    wait(5ms);
    endif;
    next;


    wait(1);

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




    // Indo para os baus.

    }$/home baucava${
    wait(7);
    do;
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    &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;

    look(%&dir%);
    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;
    if(%#bau%=93);look(-75,+18);endif;
    if(%#bau%=94);look(-61,+17);endif;
    wait(1);

    // Guardando ítens nos baus.

    wait(5);
    key(use);
    wait(1);
    for(#i,54,71);
    slotclick(%#i%,l,true);
    wait(30ms);
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    inc(#bau);
    endif;
    if(%#bau%=94);
    unset(nf);
    log("&4[Macro] &6Baús cheios! Apenas irá matar mobs agora.");
    gui();
    else;
    gui();
    endif;
    until(%#stack%=0);
    }$/home cava${
    wait(7);
    endif;
    endif;
    loop;loop;
    endif;loop;
    }$

    creditos: rogroote
     
  2. celinhozika

    celinhozika Craftlandiano
    VIP

    Afiliado:
    24 Novembro 2012
    Mensagens:
    3,693
    Curtidas Recebidas:
    1,253
    Curtiu:
    612
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    681.28
    Nick:
    celinho123
    Clan:
    DsQ / TFe
    Nem jogo lá mais vai ajudar quem precisa :)
     
  3. OutonoRS

    OutonoRS Razoavel
    VIP

    Afiliado:
    19 Julho 2014
    Mensagens:
    1,692
    Curtidas Recebidas:
    97
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Manaus - AM
    Cubos:
    1,788.16
    Nick:
    OutonoRS
    Clan:
    STF
    Skype:
    JakeMickey2Z
  4. DeathM4nzZ

    DeathM4nzZ Hardcore
    VIP

    Afiliado:
    27 Maio 2015
    Mensagens:
    17,225
    Curtidas Recebidas:
    2,377
    Curtiu:
    2,245
    Sexo:
    Masculino
    Cubos:
    1,109.00
    Nick:
    Meu nome é John
    boa macro parça
     
  5. iViniZ

    iViniZ Lendário
    VIP

    Afiliado:
    1 Dezembro 2013
    Mensagens:
    20,441
    Curtidas Recebidas:
    4,992
    Curtiu:
    3,070
    Sexo:
    Masculino
    Cubos:
    700.00
    Nick:
    iViniZ
    Clan:
    mTx
    boa macro :p
     
  6. iFay

    iFay Neutro
    VIP

    Afiliado:
    25 Dezembro 2013
    Mensagens:
    503
    Curtidas Recebidas:
    21
    Curtiu:
    48
    Sexo:
    Masculino
    Cubos:
    650.11
    Nick:
    Junkyaxis/Sfayter
    Clan:
    Solitário :(
    bela macro :)
     
  7. Silton

    Silton Craftlandiano
    VIP

    Afiliado:
    25 Novembro 2013
    Mensagens:
    5,981
    Curtidas Recebidas:
    1,006
    Curtiu:
    2,145
    Sexo:
    Masculino
    Cubos:
    1,764.00
    Nick:
    | xSilton |
    Não jogo lá, mas vai ajudar sim
     
  8. bieelsz

    bieelsz Hardcore
    VIP

    Afiliado:
    2 Março 2014
    Mensagens:
    20,482
    Curtidas Recebidas:
    2,615
    Curtiu:
    1,187
    Sexo:
    Masculino
    Cubos:
    2,494.00
    Nick:
    bieelsz
    Discord:
    bieelsz#9847
  9. LightOff

    LightOff Razoavel

    Afiliado:
    5 Julho 2015
    Mensagens:
    1,050
    Curtidas Recebidas:
    90
    Curtiu:
    14
    Sexo:
    Masculino
    Cubos:
    1,253.02
    Nick:
    LightOff
    Boooa mlk ai sim [emoji6][emoji14]

    Enviado de meu XT1032 usando Tapatalk
     
  10. zMigueeel

    zMigueeel Neutro
    VIP

    Afiliado:
    6 Julho 2015
    Mensagens:
    203
    Curtidas Recebidas:
    35
    Curtiu:
    0
    Cubos:
    244.00
    Nick:
    忠诚谦卑程序
    Não entendi quase nada do macro...
     
  11. l Tiago l

    l Tiago l Craftlandiano
    VIP

    Afiliado:
    10 Outubro 2013
    Mensagens:
    9,284
    Curtidas Recebidas:
    1,865
    Curtiu:
    458
    Sexo:
    Masculino
    Localização:
    Florianópoli...
    Cubos:
    125.00
    Nick:
    Tiago_Player
    Boa Macro ;)

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