Macro de vender cana na /warp vip - Eclipse

Discussão em 'Tutoriais de Macros' iniciado por savioacp, 8 Maio 2017.

  1. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    Vendedor de cana 0.2
    Com um nome extremamente original, chega uma macro q todos estavam pedindo. Vender cana na warp vip




    Homes

    /home canabau, a mesma da macro do Nugou


    Código
    $${
    /////////////////////
    //IDENTE SEU CODIGO//
    // csharp > java //
    /////////////////////
    &cake_sonimblenem="L2cgJjNhdGl2ZWkgbyBtYWNybyBkZSB2ZW5kYSBkbyAmNkNha2VJc0FMaWUgPDM=";
    //sistema de criptografia avançado '-'
    &cake_not_base64="I0Nha2VJc0FMaWU=";
    decode(%&cake_not_base64%,&crypto);
    decode(%&cake_sonimblenem%,&sinimclever);

    if(@cake_venda);
    unset(@cake_venda);
    log("&6[Macro] &3Venda finalizada. Lucro aproximado: &a%#cake_lucro%c &f%&crypto%");
    #cake_lucro=0
    stop;
    else;
    set(@cake_venda);

    log("&6[Macro] &3Venda iniciada. &f%&crypto%");

    wait(1);

    do;
    clearchat;
    prompt(#baus,$$?,"Quantos baús?");
    ifmatches(%#baus%,"\d+$");
    @#cake_venda_baus=%#baus%;
    if(%@#cake_venda_baus% = 0);
    stop;
    log("&6[Macro] &3Venda abortada.");
    else;
    ifmatches(%PLAYER%,"CakeIsALie");
    break;
    else;
    echo("%&sinimclever%");
    break;
    endif;

    endif;
    endif;
    loop;
    log("&6[Macro] &3Config setada: baus: %@#cake_venda_baus% &f%&crypto%");
    do;
    clearchat;
    prompt(#bau_atual,$$?,"Qual baú começar?");
    ifmatches(%#bau_atual%,"\d+$");
    ifmatches(%PLAYER%,"CakeIsALie");
    break;
    else;
    break;
    endif;

    endif;
    endif;
    loop;

    //codigo de programador nub '-'


    //#bau_atual=1;
    #fatual=0;
    #fileira=0;
    #bauc=0;

    wait(1);
    do;

    log("&6[Macro] &3Status: Teleportando &f%&crypto%");

    if(%#bau_atual%>%@#cake_venda_baus%);stop;endif;
    echo(/home canabau);
    wait(3);

    keydown(jump);
    wait(1);
    keyup(jump);

    wait(1);
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;

    look(%&dir%);
    if(%#bau_atual%=5);
    look(,-62);
    else;
    #fileira = (%#bau_atual% / 5);

    #bauc = %#bau_atual% - (%#fileira% * 5);
    log("&6[Macro] &3Fileira: &b&l%#fileira%");
    log("&6[Macro] &3Linha: &b&l%#bauc%");
    //#abc = (%#fileira%-1);
    do(%#fileira%);
    wait(500ms);
    look(%&dir%);
    keydown(sneak);
    wait(100ms);
    keydown(right);
    wait(16T);
    keyup(right);
    keyup(sneak);
    inc(#fatual);
    //log(%#fatual%);

    if(%#fatual%=5);
    wait(800ms);
    log("&6[Macro] &3Corrigindo posição...");
    keydown(sneak);
    keydown(left);
    wait(7T);
    keyup(left);
    keyup(sneak);
    #fatual = 0;
    endif;
    loop;
    if(%#bauc% = 5);look(,-62);endif;
    if(%#bauc% = 4);look(,-50);endif;
    if(%#bauc% = 3);look(,-25);endif;
    if(%#bauc% = 2);look(,0);endif;
    if(%#bauc% = 1);look(,35);endif;
    #fatual=0;
    endif;
    wait(500ms);

    log("&6[Macro] &3Status: Abrindo baú &9[&b%#bau_atual%&9] &f%&crypto%");
    do;
    key(use);
    wait(2);
    until(%GUI%="GUICHEST");
    wait(1);
    for(#i,0,53);
    slotclick(%#i%,l,true);
    wait(150ms);
    next;
    getslotitem(54,&cake_id,#cake_stack);
    getslotitem(53,&cake_id2,#cake_stack2);
    if(#cake_stack2 < 1);
    if(bau1);unset(bau1);endif;
    endif;
    if(#cake_stack > 63);
    do;echo("/warp vip");
    wait(5);
    until((%XPOS%=702)&&(%ZPOS%=656));
    wait(5)
    keydown(jump);
    wait(3);
    keyup(jump);
    wait(500ms);
    calcyawto(726,674,#y);
    #y = %#y% + 180;
    looks(90,,0.5);
    wait(200ms);
    keydown(forward);
    do;
    until((%XPOS%=720));
    keyup(forward);
    wait(200ms);
    looks(+90,,0.5);
    wait(200ms);
    keydown(forward);
    do;
    until((%ZPOS%=674));
    keyup(forward);
    wait(200ms);
    looks(-90,,0.5);
    wait(200ms);
    keydown(forward);
    do;
    until((%XPOS%=726));
    keyup(forward);
    wait(100ms);
    looks(-90,,0.5)
    wait(1);
    do;
    random(#rdm,1,3);
    log("&6[Macro] &3Esperando &9[&b%#rdm%&9]&3 segundos");
    wait(%#rdm%);
    do;
    keydown(right);
    key(use);
    until(%XPOS%=728);
    keyup(right);
    do;
    keydown(left);
    key(use);
    until(%XPOS%=726);
    keyup(left);
    wait(1);
    while(%GUI%!="GUICHEST");
    log("&6[Macro] &3Abri o Agricultor!");
    wait(200ms);
    log("&6[Macro] &3Iniciando Venda de cana");
    DO(4);
    SLOTCLICK(16,l,true);
    WAIT(750ms);
    LOOP;
    wait(1);
    inc(#cake_lucro,893);
    else;
    inc(#bau_atual);
    endif;
    loop;
    endif;
    }$$
    Aviso que há uma mensagem de ativação da macro, permitida pelas regras. Peço que não retire, porque não foi fácil fazer essa macro funcionar para a maioria, e me desanima saber que eu tive o trabalho pra outros pegarem, usarem, lucrarem e não mandar sequer um /g.
    @edit:
    agora o macro pula para vender, evitando congestionamento na warp vip
    @edit:
    agora o macro usa coordenadas e também usa o shift para maior precisão na hora de vender
    @edit:
    agora o macro foi totalmente atualizado para usar apenas 1 home, ser usado na nova warp vip e é integrado com a macro do nugou. qualquer Bug por favor me avide de alguma maneira...
    @edit:
    correção de bug
     
    calilneves, mysapaceall, Plutao e 6 outras curtiram isso.
  2. Otosaka

    Otosaka Hardcore VIP

    Cubos:
    37,200.06
    Boa, bom macro ^^
     
  3. ZuWay

    ZuWay Craftlandiano VIP

    Cubos:
    498.00
    boa mano boa pena que não jogo eclipse se não usava :C
     
  4. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    Ótimo server men, joga lá!


    Vlw!
     
  5. ZuWay

    ZuWay Craftlandiano VIP

    Cubos:
    498.00
    se foce 1.5.2 eu jogava -qq
     
  6. Guitsune

    Guitsune Neutro VIP

    Cubos:
    295.00
    Mito como sempre ¬¬ , melhor macro :v

    Ass: kuwaii dlc
     
  7. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    kkkk mito nada, a outra versão tava travando a warp vip
     
  8. Guitsune

    Guitsune Neutro VIP

    Cubos:
    295.00
    Faz uma melhor e posta aqui no forum ent...


    PS: esqueci q tu era o cake '-' ksks <3 dlc
     
  9. Tibiban

    Tibiban Bom

    Cubos:
    29.00
    Boa macro vai ajudar bastante
     
  10. DP Zeus

    DP Zeus Craftlandiano VIP

    Cubos:
    1,011.47
  11. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    Atualizada: Método de vender mudado
     
  12. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    Sim, por isso eu postei ela e procuro sempre melhorá-la!

    Obrigado!
     
    CmAnonymous7K e pedro gui curtiram isso.
  13. Ruztec

    Ruztec Excelente VIP

    Cubos:
    818.00
    Me salvou *-*
     
  14. ValderiNetto

    ValderiNetto Craftlandiano Gamers

    Cubos:
    615.21
    macro zika ja to usando hehe, mas q banner e esse fiote? isso e probido n?
     
  15. Ziryllah

    Ziryllah Razoavel Banido

    Cubos:
    150.00
    Boa macro, obrigada <3
     
    Nayeon e Lasci curtiram isso.
  16. DarkesZero

    DarkesZero Razoavel VIP

    Cubos:
    176.00
    Funciona na nova warp vip ?
     
  17. savioacp

    savioacp Neutro VIP

    Cubos:
    121.17
    Atualizada para a nova warp vip!
    Funciona só com 1 home,
    Atualizado o método de andar
    Sem chances de travar a warp vip, pq usa um sistema de random e uma área de espera...
     
  18. PizzaHumana

    PizzaHumana Neutro VIP

    Cubos:
    88.00
    Boa Macro ^^
     
  19. Ziryllah

    Ziryllah Razoavel Banido

    Cubos:
    150.00
    Reparei que a macro não pega as canas da ultima fileira da trap da macro do nugou. E algumas vezes deixo a macro rodando sozinha e quando volto estou dentro da água da warp vip. Será que e bug só comigo?
     
  20. teusmatanuub

    teusmatanuub Neutro VIP

    Cubos:
    21.10
    Fala ae, cara. Tem macro pra vender na warp loja também?