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

ENTREGUE [MACRO] Colheita do besouro (Baús Corrigido)

Discussão em 'Macro Entregue' iniciado por NepT, 26 Março 2016.

Status do Tópico:
Não esta aberto para novas mensagens.
Top Posters
Página 1 de 2
  1. NepT

    NepT Craftlandiano
    VIP

    Afiliado:
    22 Dezembro 2012
    Mensagens:
    1,692
    Curtidas Recebidas:
    549
    Curtiu:
    943
    Cubos:
    1,958.00
    Nick:
    leo2010
    Clan:
    PEL
    #1 NepT, 26 Março 2016
    Devido a atualização no sistema de homes, muitas pessoas estavam pedindo para o [member='BeetleJuice'] atualizar o macro Colheita do Besouro, e devido a sua falta de tempo para corrigí-lo ele falou em um dos seus posts que não tinha previsão para a atualização do código, e eu consegui arrumar esse problema, foi até bem simples :p

    Código 1.5.2:
    $${
    if(@neth3);
    keyup(forward);
    unset(@neth3);
    }$$
    /sethome fungotemp
    $${
    #snposx1=%XPOS%; #snposx2=%ZPOS%;
    log("&d» &6Plantação Automática &c[OFF]");
    stop();
    else;
    set(@neth3);
    #delay=8;#nbau=1;
    log("&d» &6Plantação Automática &a[ON]");
    PROMPT(&return,$$?,"Continuar de onde estava quando desligou? (S ou N)");
    ifmatches(%&return%,^[S|s]);
    set(return);
    log("&d» &6Continuando a partir de onde foi desligado!");
    else;
    unset(return);
    PROMPT(#fxv,$$?,"Quantos andares são? (O máximo são 6 andares!)"); if(%#fxv%=0);unset(@neth3);stop();endif;
    #hfl=1;
    if(%#fxv%>1);
    &tm=;
    if(%#fxv%=2);&tm=1 ou 2?;endif;if(%#fxv%=3);&tm=1, 2 ou 3?;endif;if(%#fxv%=4);&tm=1, 2, 3 ou 4?;endif;if(%#fxv%=5);&tm=1, 2, 3, 4 ou 5?;endif;if(%#fxv%=6);&tm=1, 2, 3, 4, 5 ou 6?;endif;
    if(%#fxv%>6);
    log("&d» &cOps! &6Número de andares maior que o possível &3(6)&6!");
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
    endif;
    PROMPT(#flror,$$?,"Começar por qual andar? %&tm%"); if(%#flror%=0);unset(@neth3);stop();endif;
    else;
    #flror=1;
    endif;
    if(%#flror%>%#fxv%);
    log(&d» &cOps! &6Andar escolhido para começar é maior que o número de andares que você escolheu! Preste mais atenção nas perguntas &3:/);
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
    endif;
    log("&d» &6As sethomes devem ser no estilo: &3/home fungof1 /home fungof2&6 ...");
    log("&d» &6A sethome dos baús deve ser &3/home fungobaus &6...");
    log("&d» &6Se quiser parar só por um tempo, segure a &3tecla P&6 até parar!");
    set(first);
    endif;

    do;
    for(#hfl,%#flror%,%#fxv%);
    wait(1);
    if(return);
    #hfltemp=%#hfl%;#hfl=8000;
    }$$
    /home fungotemp
    $${
    do;until((%XPOS%=%#snposx1%)&&(%ZPOS%=%#snposx2%));wait(1);
    unset(return);
    else;
    }$$
    $${if(%#hfl%=1);}$$/home fungof1$${endif;}$$
    $${if(%#hfl%=2);}$$/home fungof2$${endif;}$$
    $${if(%#hfl%=3);}$$/home fungof3$${endif;}$$
    $${if(%#hfl%=4);}$$/home fungof4$${endif;}$$
    $${if(%#hfl%=5);}$$/home fungof5$${endif;}$$
    $${if(%#hfl%=6);}$$/home fungof6$${endif;}$$
    $${
    wait(8);
    set(first);
    endif;

    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;

    gui();
    for(#in,1,9);
    getslotitem(%#in%,#idk,#stack);
    ifmatches(%#idk%,^269$|^270$|^271$|^273$|^274$|^275$|^277$|^278$|^279$|^284$|^285$|^286$|^256$|^257$|^258$);
    #slotl=%#in%;
    endif;
    next;

    look(%&dir%);
    look(,+89);
    key(attack);
    unset(nextfloor);

    do;
    #stack=0;
    keyup(forward);
    gui(inventory);
    wait(450ms);
    getslot(372,#fghot);
    getslotitem(35,#id,#stack);
    if(%#fghot%<36);
    slotclick(%#fghot%,l,true);
    endif;
    wait(450ms);
    gui();

    if(%#stack%>0);
    #nposx1=%XPOS%; #nposx2=%ZPOS%;
    }$$
    /sethome fungotemp
    $${}$$
    /home fungobaus
    $${
    do;until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
    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(%#nbau%=1);look(-18,-44);endif;
    if(%#nbau%=2);look(+42,-40);endif;
    if(%#nbau%=3);look(+77,-34);endif;
    if(%#nbau%=4);look(+119,-30);endif;
    if(%#nbau%=5);look(+149,-30);endif;
    if(%#nbau%=6);look(+192,-35);endif;
    if(%#nbau%=7);look(-19,-22);endif;
    if(%#nbau%=8);look(+42,-20);endif;
    if(%#nbau%=9);look(+79,-18);endif;
    if(%#nbau%=10);look(+120,-15);endif;
    if(%#nbau%=11);look(+151,-17);endif;
    if(%#nbau%=12);look(+191,-17);endif;
    if(%#nbau%=13);look(-18,-1);endif;
    if(%#nbau%=14);look(+42,-1);endif;
    if(%#nbau%=15);look(+79,-1);endif;
    if(%#nbau%=16);look(+120,-1);endif;
    if(%#nbau%=17);look(+150,-1);endif;
    if(%#nbau%=18);look(+190,-1);endif;
    if(%#nbau%=19);look(-15,+34);endif;
    if(%#nbau%=20);look(+40,+28);endif;
    if(%#nbau%=21);look(+80,+25);endif;
    if(%#nbau%=22);look(+120,+23);endif;
    if(%#nbau%=23);look(+150,+24);endif;
    if(%#nbau%=24);look(+192,+26);endif;
    wait(1);
    key(use);
    wait(4);
    for(#i,54,87);
    getslotitem(%#i%,#ide,#stacke);
    if(%#ide%=372);
    slotclick(%#i%,l,true);
    wait(30ms);
    endif;
    next;
    wait(250ms);
    getslotitem(53,#id,#stack);
    wait(250ms);
    if(%#stack%!=0);
    #nbau=%#nbau%+1;
    if(%#nbau%=25);
    unset(@neth3);
    log("&d» &6Baús cheios?");
    log("&d» &6Plantação Automática &c[OFF]");
    stop();
    endif;
    endif;
    gui();
    until(%#stack%=0);
    }$$
    /home fungotemp
    $${
    wait(%#delay%);
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    else;
    gui();
    endif;

    do;
    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
    ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
    ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

    ifmatches(%GUI%,chat|inventory);
    keyup(forward);
    log(&d» &6Chat ou inventório detectado. &3Macro pausado!);
    do;
    ifmatches(%GUI%,CHAT|INVENTORY);
    else;
    #g=0;
    endif;
    until(%#g%=0);
    #g=1;
    log(&d» &6Chat ou inventório fechado. &3Continuando!);
    endif;

    if(KEY_P);
    keyup(forward);
    wait(200ms);
    #nposx1=%XPOS%;#nposx2=%ZPOS%;
    }$$
    /sethome fungotemp
    $${
    log(&d» &6Plantação automática &3interrompida&6!);
    log(&d» &6Para continuar, segure a &3tecla P &6por 3 segundos!);
    do;
    if(KEY_P);
    wait(3);
    if(KEY_P);
    wait(200ms);
    if(KEY_P);
    set(resume);
    endif;
    endif;
    endif;
    until(resume);
    unset(resume);
    }$$
    /home fungotemp
    $${
    log("&d» &6Plantação automática &3retomada&6!");
    log("&d» &6Não mexa o mouse, oki? &3:)");
    do;until((%XPOS%=%#nposx1%)&&(%ZPOS%=%#nposx2%));
    wait(2);
    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;

    look(%&dir%);
    look(,+89);
    #nposx1=%XPOS%; #nposx2=%ZPOS%;
    do;
    keydown(forward);
    pick(372);
    key(use);
    getidrel(%&x%,+0,%&z%,#blockd);
    getidrel(%&x%,+1,%&z%,#blocku);
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%)|(%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));
    slot(%#slotl%);
    if(%HITDATA%>2);key(attack);wait(10ms);endif;
    until((%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));

    key(use);
    keyup(forward);

    if(first);
    getidrel(%&x1%,+0,%&z1%,#block1);getidrel(%&x2%,+0,%&z2%,#block2);
    getidrel(%&x1%,+1,%&z1%,#block3);getidrel(%&x2%,+1,%&z2%,#block4);
    if((%#block1%=88)|(%#block3%=88));&sn=-;endif;
    if((%#block2%=88)|(%#block4%=88));&sn=+;endif;
    &dirc=%DIRECTION%;
    ifmatches(%&sn%,[\+]);&sn1=+;&sn2=-;endif;
    ifmatches(%&sn%,[\-]);&sn1=-;&sn2=+;endif;
    unset(first);
    endif;

    &dir=%DIRECTION%;
    ifmatches(%&dirc%,N);ifmatches(%&dir%,N);&sn=%&sn1%;endif;ifmatches(%&dir%,S);&sn=%&sn2%;endif;endif;
    ifmatches(%&dirc%,S);ifmatches(%&dir%,N);&sn=%&sn2%;endif;ifmatches(%&dir%,S);&sn=%&sn1%;endif;endif;
    ifmatches(%&dirc%,W);ifmatches(%&dir%,W);&sn=%&sn1%;endif;ifmatches(%&dir%,E);&sn=%&sn2%;endif;endif;
    ifmatches(%&dirc%,E);ifmatches(%&dir%,W);&sn=%&sn2%;endif;ifmatches(%&dir%,E);&sn=%&sn1%;endif;endif;

    look(%&sn%90,);
    wait(100ms);

    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
    ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
    ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

    getidrel(%&x%,+0,%&z%,#block1);
    getidrel(%&x%,+1,%&z%,#block3);

    if(((%#block3%!=0)&&(%#block3%!=115))|(%#block1%!=88));
    set(nextfloor);
    endif;

    if(nextfloor);
    else;
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(forward);
    pick(372);
    key(use);
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
    keyup(forward);
    key(attack);
    look(%&sn%90,);
    endif;
    until(nextfloor);
    keyup(FORWARD);
    next;
    #flror=1;
    loop;
    endif;
    }$$

    Posição que deve ficar:
    Obs: Você deve ficar centralizado no bloco.
    Olhando para frente!


    [​IMG]

    [hr]


    Não alterei o macro da versão 1.7 pois nem jogo nela, basta localizar a parte do código:
    if(%#nbau%=1);look(-26,-40);endif;
    if(%#nbau%=2);look(+26,-40);endif;
    if(%#nbau%=3);look(+65,-40);endif;
    if(%#nbau%=4);look(+116,-40);endif;
    if(%#nbau%=5);look(+155,-40);endif;
    if(%#nbau%=6);look(+206,-40);endif;
    if(%#nbau%=7);look(-26,-20);endif;
    if(%#nbau%=8);look(+26,-20);endif;
    if(%#nbau%=9);look(+65,-20);endif;
    if(%#nbau%=10);look(+116,-20);endif;
    if(%#nbau%=11);look(+155,-20);endif;
    if(%#nbau%=12);look(+206,-20);endif;
    if(%#nbau%=13);look(-26,-0);endif;
    if(%#nbau%=14);look(+26,-0);endif;
    if(%#nbau%=15);look(+65,-0);endif;
    if(%#nbau%=16);look(+116,-0);endif;
    if(%#nbau%=17);look(+155,-0);endif;
    if(%#nbau%=18);look(+206,-0);endif;
    if(%#nbau%=19);look(-26,+25);endif;
    if(%#nbau%=20);look(+26,+25);endif;
    if(%#nbau%=21);look(+65,+25);endif;
    if(%#nbau%=22);look(+116,+25);endif;
    if(%#nbau%=23);look(+155,+25);endif;
    if(%#nbau%=24);look(+206,+25);endif;

    E trocar para:
    if(%#nbau%=1);look(-18,-44);endif;
    if(%#nbau%=2);look(+42,-40);endif;
    if(%#nbau%=3);look(+77,-34);endif;
    if(%#nbau%=4);look(+119,-30);endif;
    if(%#nbau%=5);look(+149,-30);endif;
    if(%#nbau%=6);look(+192,-35);endif;
    if(%#nbau%=7);look(-19,-22);endif;
    if(%#nbau%=8);look(+42,-20);endif;
    if(%#nbau%=9);look(+79,-18);endif;
    if(%#nbau%=10);look(+120,-15);endif;
    if(%#nbau%=11);look(+151,-17);endif;
    if(%#nbau%=12);look(+191,-17);endif;
    if(%#nbau%=13);look(-18,-1);endif;
    if(%#nbau%=14);look(+42,-1);endif;
    if(%#nbau%=15);look(+79,-1);endif;
    if(%#nbau%=16);look(+120,-1);endif;
    if(%#nbau%=17);look(+150,-1);endif;
    if(%#nbau%=18);look(+190,-1);endif;
    if(%#nbau%=19);look(-15,+34);endif;
    if(%#nbau%=20);look(+40,+28);endif;
    if(%#nbau%=21);look(+80,+25);endif;
    if(%#nbau%=22);look(+120,+23);endif;
    if(%#nbau%=23);look(+150,+24);endif;
    if(%#nbau%=24);look(+192,+26);endif;


    [hr]

    Crédito ao [member='BeetleJuice'] que criou o macro, eu apenas corrigi.
    Tópico oficial: http://forum.craftlandia.com.br/ipb/index.php?/topic/277937-colheita-do-besouro/ , siga todos os passos para a instalação do macro, apenas mude o código.
     
    iD4nielZ, Yank_NTC, Degolatorz Dead e 3 outras curtiram isso.
  2. LengaBiker

    LengaBiker Neutro
    VIP

    Afiliado:
    10 Abril 2012
    Mensagens:
    130
    Curtidas Recebidas:
    30
    Curtiu:
    76
    Sexo:
    Masculino
    Cubos:
    132.00
    Nick:
    Lengabiker
    #2 LengaBiker, 30 Março 2016
    Parabéns pelo empenho. Eu atualizei ela tbm, mas para guardar em baus infinitos por homes, só que se aplica somente para vips...
     
  3. Yank_NTC

    Yank_NTC Excelente
    VIP

    Afiliado:
    13 Outubro 2015
    Mensagens:
    2,539
    Curtidas Recebidas:
    229
    Curtiu:
    278
    Sexo:
    Masculino
    Ocupação:
    NãoTemComo
    Localização:
    RS
    Cubos:
    2,731.00
    Nick:
    Yank_NTC
    Clan:
    AKT
    #3 Yank_NTC, 30 Março 2016
    top
     
  4. XablauXablante

    XablauXablante Excelente
    VIP

    Afiliado:
    22 Julho 2014
    Mensagens:
    3,953
    Curtidas Recebidas:
    328
    Curtiu:
    459
    Sexo:
    Masculino
    Localização:
    log(%XPOS%,%...
    Cubos:
    1,060.00
    Nick:
    Nickloko
    Clan:
    EMP
    Skype:
    Digo não '-'
    #4 XablauXablante, 30 Março 2016
    prefiro minha edição com 35 baus :p
     
  5. TheNick

    TheNick Bom
    VIP

    Afiliado:
    7 Novembro 2014
    Mensagens:
    1,579
    Curtidas Recebidas:
    159
    Curtiu:
    362
    Sexo:
    Masculino
    Localização:
    Cascavel-PR
    Cubos:
    1,742.85
    Nick:
    TheNickPlaysMC
    #5 TheNick, 30 Março 2016
    Boa, ja lucrei tanto com esse mapa u.u
     
  6. iRossales

    iRossales Razoavel
    VIP

    Afiliado:
    23 Setembro 2015
    Mensagens:
    564
    Curtidas Recebidas:
    84
    Curtiu:
    305
    Sexo:
    Masculino
    Localização:
    Rio Grande...
    Cubos:
    613.00
    Nick:
    Fumegando
    Clan:
    X X
    #6 iRossales, 30 Março 2016
    Quer me passar naum ? e.e
     
  7. Tatu

    Tatu Neutro

    Afiliado:
    29 Março 2016
    Mensagens:
    119
    Curtidas Recebidas:
    6
    Curtiu:
    0
    Cubos:
    124.00
    Nick:
    Tatu
    #7 Tatu, 30 Março 2016
    Boa cara... Irei utilizar em minhas farms no Fenix
     
  8. 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
    #8 AwAyTrOn, 30 Março 2016
    Esse macro nem e antigo kkkkk ja usei ele muito nos tempo de fungo
     
  9. FafadoToddynho

    FafadoToddynho Hardcore
    VIP

    Afiliado:
    20 Janeiro 2016
    Mensagens:
    9,080
    Curtidas Recebidas:
    2,001
    Curtiu:
    1,630
    Sexo:
    Masculino
    Localização:
    Pernambuco
    Cubos:
    1,173.00
    Nick:
    -
    Skype:
    ---------
    Twitter:
    ---------
    #9 FafadoToddynho, 30 Março 2016
    Agr sim gg u.u
     
  10. letroziz

    letroziz Bom
    VIP

    Afiliado:
    26 Abril 2013
    Mensagens:
    2,663
    Curtidas Recebidas:
    121
    Curtiu:
    193
    Sexo:
    Masculino
    Localização:
    ___
    Cubos:
    2,799.00
    Nick:
    Nyro
    Clan:
    ___
    #10 letroziz, 30 Março 2016
    Mt bom cara , vou usar no origens!!
     
    renatotaliban curtiu isso.
  11. Pedro_A

    Pedro_A Excelente
    VIP

    Afiliado:
    17 Outubro 2013
    Mensagens:
    1,966
    Curtidas Recebidas:
    310
    Curtiu:
    766
    Sexo:
    Masculino
    Localização:
    Brasilia - DF
    Cubos:
    63.00
    Nick:
    Pedro_A
    Clan:
    TnT
    #11 Pedro_A, 30 Março 2016
    passa ai pra nois '-'
     
  12. misael753

    misael753 Razoavel
    VIP

    Afiliado:
    31 Janeiro 2014
    Mensagens:
    1,326
    Curtidas Recebidas:
    69
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    1,431.00
    Nick:
    Gm_Big
    #12 misael753, 31 Março 2016
    Boa macro, gostei :)
     
  13. EduardoS7

    EduardoS7 Razoavel
    VIP

    Afiliado:
    31 Maio 2013
    Mensagens:
    577
    Curtidas Recebidas:
    64
    Curtiu:
    278
    Sexo:
    Masculino
    Cubos:
    694.00
    Nick:
    EduardoS7
    #13 EduardoS7, 1 Abril 2016
    Muito bom!
     
  14. exxt

    exxt Craftlandiano
    VIP

    Afiliado:
    18 Junho 2015
    Mensagens:
    1,071
    Curtidas Recebidas:
    532
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    TS Da...
    Cubos:
    2,610.00
    Nick:
    ExxT
    Clan:
    rTK
    #14 exxt, 1 Abril 2016
    Bom Macro xD
     
  15. craniosk

    craniosk Excelente
    VIP

    Afiliado:
    15 Dezembro 2015
    Mensagens:
    4,144
    Curtidas Recebidas:
    279
    Curtiu:
    409
    Sexo:
    Masculino
    Cubos:
    1,363.00
    Nick:
    CranioSK
    #15 craniosk, 1 Abril 2016
    Legal
    Ela n vende n, só guarda?
     
  16. RenKwZ

    RenKwZ Craftlandiano
    VIP

    Afiliado:
    27 Outubro 2014
    Mensagens:
    2,534
    Curtidas Recebidas:
    611
    Curtiu:
    300
    Sexo:
    Masculino
    Localização:
    Recife - PE
    Cubos:
    470.00
    Nick:
    RenKwZ
    #16 RenKwZ, 1 Abril 2016
    bom macro :D
     
  17. ItsCookiePT

    ItsCookiePT Neutro

    Afiliado:
    24 Janeiro 2015
    Mensagens:
    1,001
    Curtidas Recebidas:
    42
    Curtiu:
    0
    Cubos:
    1,052.00
    Nick:
    ItsCookiePT
    #17 ItsCookiePT, 1 Abril 2016
    me passa o macro. Também deve dar para não vips
     
  18. SmallAkira

    SmallAkira Neutro
    VIP

    Afiliado:
    29 Março 2016
    Mensagens:
    422
    Curtidas Recebidas:
    40
    Curtiu:
    28
    Sexo:
    Masculino
    Cubos:
    39.00
    Nick:
    SmallAkira
    #18 SmallAkira, 1 Abril 2016
    Boa e Dropado ^^
     
  19. LengaBiker

    LengaBiker Neutro
    VIP

    Afiliado:
    10 Abril 2012
    Mensagens:
    130
    Curtidas Recebidas:
    30
    Curtiu:
    76
    Sexo:
    Masculino
    Cubos:
    132.00
    Nick:
    Lengabiker
    #19 LengaBiker, 8 Abril 2016
    Pra quem pediu pra guardar em baús infinitos

    basta setar as homes na frente dos baús
    /home fungo1, /home fungo2 e assim por diante até quanto desejar de baús.

    não vou fazer tópico só pra isso, então ta aí:


    $${
    if(@neth3);
    keyup(forward);
    unset(@neth3);
    }$$
    /sethome fungotemp
    $${
    #snposx1=%XPOS%; #snposx2=%ZPOS%;
    log("&d» &6Plantação Automática &c[OFF]");
    stop();
    else;
    set(@neth3);
    #delay=8;#nbau=1;
    log("&d» &6Plantação Automática &a[ON]");
    PROMPT(&return,$$?,"Continuar de onde estava quando desligou? (S ou N)");
    ifmatches(%&return%,^[S|s]);
    set(return);
    log("&d» &6Continuando a partir de onde foi desligado!");
    else;
    unset(return);
    PROMPT(#fxv,$$?,"Quantos andares são? (O máximo são 6 andares!)"); if(%#fxv%=0);unset(@neth3);stop();endif;
    #hfl=1;
    if(%#fxv%>1);
    &tm=;
    if(%#fxv%=2);&tm=1 ou 2?;endif;if(%#fxv%=3);&tm=1, 2 ou 3?;endif;if(%#fxv%=4);&tm=1, 2, 3 ou 4?;endif;if(%#fxv%=5);&tm=1, 2, 3, 4 ou 5?;endif;if(%#fxv%=6);&tm=1, 2, 3, 4, 5 ou 6?;endif;
    if(%#fxv%>6);
    log("&d» &cOps! &6Número de andares maior que o possível &3(6)&6!");
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
    endif;
    PROMPT(#flror,$$?,"Começar por qual andar? %&tm%"); if(%#flror%=0);unset(@neth3);stop();endif;
    else;
    #flror=1;
    endif;
    if(%#flror%>%#fxv%);
    log(&d» &cOps! &6Andar escolhido para começar é maior que o número de andares que você escolheu! Preste mais atenção nas perguntas &3:/);
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
    endif;
    log("&d» &6As sethomes devem ser no estilo: &3/home fungof1 /home fungof2&6 ...");
    log("&d» &6A sethome dos baús deve ser &3/home fungobaus &6...");
    log("&d» &6Se quiser parar só por um tempo, segure a &3tecla P&6 até parar!");
    set(first);
    endif;

    do;
    for(#hfl,%#flror%,%#fxv%);
    wait(1);
    if(return);
    #hfltemp=%#hfl%;#hfl=8000;
    }$$
    /home fungotemp
    $${
    wait(5);
    do;until((%XPOS%=%#snposx1%)&&(%ZPOS%=%#snposx2%));wait(1);
    unset(return);
    else;
    }$$
    $${if(%#hfl%=1);}$$/home fungof1$${endif;}$$
    $${if(%#hfl%=2);}$$/home fungof2$${endif;}$$
    $${if(%#hfl%=3);}$$/home fungof3$${endif;}$$
    $${if(%#hfl%=4);}$$/home fungof4$${endif;}$$
    $${if(%#hfl%=5);}$$/home fungof5$${endif;}$$
    $${if(%#hfl%=6);}$$/home fungof6$${endif;}$$
    $${
    wait(8);
    set(first);
    endif;

    keydown(jump);wait(1);keyup(jump);wait(2);
    &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;

    gui();
    for(#in,1,9);
    getslotitem(%#in%,#idk,#stack);
    ifmatches(%#idk%,^269$|^270$|^271$|^273$|^274$|^275$|^277$|^278$|^279$|^284$|^285$|^286$|^256$|^257$|^258$);
    #slotl=%#in%;
    endif;
    next;

    look(%&dir%);
    look(,+89);
    key(attack);
    unset(nextfloor);

    do;
    #stack=0;
    keyup(forward);
    gui(inventory);
    wait(450ms);
    getslot(372,#fghot);
    getslotitem(35,#id,#stack);
    if(%#fghot%<36);
    slotclick(%#fghot%,l,true);
    endif;
    wait(450ms);
    gui();

    if(%#stack%>0);
    #nposx1=%XPOS%; #nposx2=%ZPOS%;
    }$$
    /sethome fungotemp
    $${

    gui();
    do;wait(1);
    type(sst);wait(500ms);
    type( /home fungo);wait(500ms);
    type(%#nbau%);
    wait(1);PRESS(return);wait(8);
    ACHIEVEMENTGET(guardando itens,146);
    key(use);wait(2);

    for(#i,54,87);
    getslotitem(%#i%,#ide,#stacke);
    if(%#ide%=372);
    slotclick(%#i%,l,true);
    wait(70ms);
    endif;
    next;
    wait(250ms);
    getslotitem(53,#id,#stack);
    wait(250ms);
    if(%#stack%!=0);
    #nbau=%#nbau%+1;
    if(%#nbau%=1000);
    unset(@neth3);
    log("&d» &6Baús cheios?");
    log("&d» &6Plantação Automática &c[OFF]");
    stop();
    endif;
    endif;
    gui();
    until(%#stack%=0);
    }$$
    /home fungotemp
    $${
    wait(%#delay%);
    keydown(jump);wait(1);keyup(jump);wait(2);
    else;
    gui();
    endif;

    do;
    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
    ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
    ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

    ifmatches(%GUI%,chat|inventory);
    keyup(forward);
    log(&d» &6Chat ou inventório detectado. &3Macro pausado!);
    do;
    ifmatches(%GUI%,CHAT|INVENTORY);
    else;
    #g=0;
    endif;
    until(%#g%=0);
    #g=1;
    log(&d» &6Chat ou inventório fechado. &3Continuando!);
    endif;

    if(KEY_P);
    keyup(forward);
    wait(200ms);
    #nposx1=%XPOS%;#nposx2=%ZPOS%;
    }$$
    /sethome fungotemp
    $${
    log(&d» &6Plantação automática &3interrompida&6!);
    log(&d» &6Para continuar, segure a &3tecla P &6por 3 segundos!);
    do;
    if(KEY_P);
    wait(3);
    if(KEY_P);
    wait(200ms);
    if(KEY_P);
    set(resume);
    endif;
    endif;
    endif;
    until(resume);
    unset(resume);
    }$$
    /home fungotemp
    $${
    log("&d» &6Plantação automática &3retomada&6!");
    log("&d» &6Não mexa o mouse, oki? &3:)");
    do;until((%XPOS%=%#nposx1%)&&(%ZPOS%=%#nposx2%));
    wait(6);
    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;

    look(%&dir%);
    look(,+89);
    #nposx1=%XPOS%; #nposx2=%ZPOS%;
    do;
    keydown(forward);
    pick(372);
    key(use);
    getidrel(%&x%,+0,%&z%,#blockd);
    getidrel(%&x%,+1,%&z%,#blocku);
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%)|(%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));
    slot(%#slotl%);
    if(%HITDATA%=3);key(attack);wait(10ms);endif;
    until((%#blockd%!=88)|(%#blocku%!=115)&&(%#blocku%!=0));

    key(use);
    keyup(forward);

    if(first);
    getidrel(%&x1%,+0,%&z1%,#block1);getidrel(%&x2%,+0,%&z2%,#block2);
    getidrel(%&x1%,+1,%&z1%,#block3);getidrel(%&x2%,+1,%&z2%,#block4);
    if((%#block1%=88)|(%#block3%=88));&sn=-;endif;
    if((%#block2%=88)|(%#block4%=88));&sn=+;endif;
    &dirc=%DIRECTION%;
    ifmatches(%&sn%,[\+]);&sn1=+;&sn2=-;endif;
    ifmatches(%&sn%,[\-]);&sn1=-;&sn2=+;endif;
    unset(first);
    endif;

    &dir=%DIRECTION%;
    ifmatches(%&dirc%,N);ifmatches(%&dir%,N);&sn=%&sn1%;endif;ifmatches(%&dir%,S);&sn=%&sn2%;endif;endif;
    ifmatches(%&dirc%,S);ifmatches(%&dir%,N);&sn=%&sn2%;endif;ifmatches(%&dir%,S);&sn=%&sn1%;endif;endif;
    ifmatches(%&dirc%,W);ifmatches(%&dir%,W);&sn=%&sn1%;endif;ifmatches(%&dir%,E);&sn=%&sn2%;endif;endif;
    ifmatches(%&dirc%,E);ifmatches(%&dir%,W);&sn=%&sn2%;endif;ifmatches(%&dir%,E);&sn=%&sn1%;endif;endif;

    look(%&sn%90,);
    wait(100ms);

    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
    ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
    ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;

    getidrel(%&x%,+0,%&z%,#block1);
    getidrel(%&x%,+1,%&z%,#block3);

    if(((%#block3%!=0)&&(%#block3%!=115))|(%#block1%!=88));
    set(nextfloor);
    endif;

    if(nextfloor);
    else;
    #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
    do;
    keydown(forward);
    pick(372);
    key(use);
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
    keyup(forward);
    key(attack);
    look(%&sn%90,);
    endif;
    until(nextfloor);
    keyup(FORWARD);
    next;
    #flror=1;
    loop;
    endif;
    }$$
     
  20. Aziro

    Aziro Razoavel

    Afiliado:
    18 Fevereiro 2016
    Mensagens:
    673
    Curtidas Recebidas:
    68
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    728.00
    Nick:
    Withered
    Clan:
    WIN
    #20 Aziro, 8 Abril 2016
    Fail hu3hu3
     
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.