ENTREGUE [VIP] Pescavar! - PR0JET0 1OO% LOUCO

Discussão em 'Macro Entregue' iniciado por MrBlueees, 1 Julho 2014.

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

    MrBlueees Craftlandiano
    VIP

    Afiliado:
    13 Abril 2013
    Mensagens:
    746
    Curtidas Recebidas:
    587
    Curtiu:
    121
    Sexo:
    Masculino
    Cubos:
    60.00
    Nick:
    MrBlueees
    [VIP] Pescavar!

    INTRODUÇÃO
    Fala galera, MrBlueees na área (de macros rsrs)! Bem, estou aqui pra promover esse projeto, pedido aí pelos MCTOPS dos servidores.

    Muitas vezes, é chato termos que escolher se vamos pescar pra pegar sets de diamante, ou escavar pra pegar bolos, ossos e polvoras. Agora acabou.

    Esse macro
    foi desenvolvido principalmente para aqueles que tem 1000 de pesca e 1000 de escavação. É eficientemente bom, e eu considero um macro bem criativo, que vem trazendo felicidade para vários pescavadores da Craftlandia.

    Esse projeto está em desenvolvimento, qualquer dúvida perguntem.


    COMO FUNCIONA?
    O macro pescará e escavará ao mesmo tempo, os itens pescados poderão ser guardados ou limpos pelo /clear. É só modificar na macro, qual item quer guardar e os que não estiverem lá serão limpos.

    Você escavará 3 blocos (do que foi desejado) e em seguida puxará a vara 8 vezes seguidas (para lvl 1000 de pesca chance de pegar até 3 peixes) voltando a escavar 3 blocos e continuando o loop.

    Quando acabar material para reparar sua pá o macro desligará, porém como acima de lvl 800 já pesca-se diamante, os escavadores podem se tranquilizar.

    FAQ

    MrBlueees, esse macro é inutil poderia estar pescando diretamente sem escavar.
    - Na verdade, muitos gostaram. E o delay de escavação pra voltar a pescar é quase imperceptível, você só escuta o barulho do macro quebrando a terra, é como se estivesse pescando sem parar, só que com a opção agora de upar os 2 ao mesmo tempo.

    Não é melhor upar os dois separados sem parar?
    - É uma boa idéia, mas existem aqueles que estão usando "autojoin" com os macros, e mesmo sem autojoin, pra quem upa direto sem parar, o melhor é estar upando 2 stats ao mesmo tempo. (Seria legal upar Arqueiro e Espadas ao mesmo tempo)

    TRAP DE PESCAVAR
    [​IMG]

    Deve possuir a área de pesca e a de escavação na frente. Bloco de ferro embaixo e a porta em cima para a água não passar.

    [​IMG]

    Organize o inventário dessa forma, pode personalizar se quiser, mas é basicamente isso. Os itens na hotbar não serão guardados.

    Em cima do bloco de ferro dê /sethome pescavar
    E em frente de cada bau dê /sethome esc1, esc2, esc3, esc4 até 10. (Pode aumentar se quiser)

    CÓDIGO PARA PESCAVAR
    $${

    if(pescav);
    unset(pescav);
    log( );
    log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
    log( );

    unset(@cav);
    unset(cav2);
    stop();

    else;
    set(pescav);
    log( );
    log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &2(ON)");
    log( );
    ACHIEVEMENTGET(by MrBlueees,346);
    set(@cav);
    endif;
    next;

    IFMATCHES(%DIRECTION%,N);
    &near = NORTH;
    ENDIF;
    IFMATCHES(%DIRECTION%,S);
    &near = SOUTH;
    ENDIF;
    IFMATCHES(%DIRECTION%,W);
    &near = WEST;
    ENDIF;
    IFMATCHES(%DIRECTION%,E);
    &near = EAST;
    ENDIF;


    #exp = 0;
    #bau = 1;

    PROMPT(&bloco,$$i, Que bloco usará para cavar?);
    PROMPT(&pa,$$i, Que tipo de pá irá ser usada?);
    PROMPT(#rep,$$i, Qual o material usado na reparação da sua pá?);
    PROMPT(#dur,$$?, Em qual durabilidade você quer reparar sua pá?);

    #repq=0;

    }$$
    /g #mrblueees s2
    $${
    do;
    unset(cav2);
    do(1);
    look(%&near%);
    look(,55);
    gui();
    do(3);
    pick(%&bloco%);
    key(use);
    wait(1ms);
    pick(%&pa%);

    if(%DURABILITY%<%#dur%);
    gui(inventory);
    for(#i,9,45);
    getslotitem(%#i%,#id,#stack1);
    if(%#id%=%#rep%);
    #repq=%#repq%+%#stack1%;
    endif;

    next;
    wait(1);
    gui();

    if(%#repq%=0);
    log( );
    log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
    log("&4&lSem item para reparar a pá");
    log( );

    unset(@cav);
    unset(pescav);
    unset(cav2);
    stop();

    else(%#repq%>0%);

    #repq=0;
    look(%&near%);
    look(,90);
    key(use);
    wait(2);
    #repq=0;

    endif;
    endif;


    look(%&near%);
    look(,55);
    key(attack);
    inc(#exp, 1);
    loop;

    do(3);
    pick(346);
    look(%&near%);
    look(,-90)
    if(%DURABILITY%<20);
    look(,90);
    log( );
    log("&4&lReparando a vara!");
    log( );
    wait(500ms);
    do(2);
    key(use);
    wait(500ms);
    loop;
    log( );
    log("&a&lVara reparada com sucesso!");
    log( );
    endif;

    look(%&near%);
    look(,-90);
    gui(inventory);
    wait(1ms);
    getslotitem(35,#id,#stack);
    if(%#stack%=0);
    else;
    set(cav2);
    endif;
    do(8);
    wait(10ms);
    key(use);
    wait(10ms);
    key(use);
    loop;
    loop;
    loop;

    if(cav2);
    wait(1ms);
    getslotitem(35,#id,#stack);
    if(%#stack%=0);
    else;
    log( );
    log("&c&lGuardando itens escolhidos.");
    log( );
    do;
    gui();
    wait(1);
    }$$


    $${if(%#bau%=1);}$$
    /home esc1
    $${endif;}$$
    $${if(%#bau%=2);}$$
    /home esc2
    $${endif;}$$
    $${if(%#bau%=3);}$$
    /home esc3
    $${endif;}$$
    $${if(%#bau%=4);}$$
    /home esc4
    $${endif;}$$
    $${if(%#bau%=5);}$$
    /home esc5
    $${endif;}$$
    $${if(%#bau%=6);}$$
    /home esc6
    $${endif;}$$
    $${if(%#bau%=7);}$$
    /home esc7
    $${endif;}$$
    $${if(%#bau%=8);}$$
    /home esc8
    $${endif;}$$
    $${if(%#bau%=9);}$$
    /home esc9
    $${endif;}$$
    $${if(%#bau%=10);}$$
    /home esc10
    $${endif;}$$



    $${
    wait(5);
    key(use);
    wait(1);
    ARRAYSIZE(#li,#size);#size = #size - 1;
    FOR(#y,0,%#size%);
    POP(#li,#tempvar);
    NEXT;

    #tempvar = 0;

    // ITENS DE ESCAVAÇAO
    #li[] =348;
    #li[] =289;
    #li[] =341;
    #li[] =352;
    #li[] =344;
    #li[] =2267;
    #li[] =260;
    #li[] =287;
    #li[] =%351:3%;
    #li[] =351;
    #li[] =40;
    #li[] =39;
    #li[] =347;
    #li[] =325;
    #li[] =88;
    #li[] =354;
    #li[] =30;
    #li[] =87;


    // ITENS DE PESCA

    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;


    for(#slotn,54,80);
    getslotitem(%#slotn%,#id,#stack);
    indexof(#li,#index,%#id%);
    if((#index != -1) && (%#id% != 0));
    slotclick(%#slotn%,l,true);wait(30ms);
    endif;
    endif;
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);inc(#bau);
    endif;
    if(%#bau%=11);
    unset(cav2);
    log();
    log("&6&lBaús cheios! Voltando a pescavar.");
    log();
    gui();
    else;
    gui();
    endif;
    until(%#stack%=0);
    log( );
    log("&c&lItens guardados!");
    log( );
    }$$
    /home pescavar
    $${
    wait(2);
    endif;
    gui(inventory);
    wait(600ms);
    for(#slotz,9,35);
    GETSLOTITEM(%#slotz%,&id,#stack);
    slotclick(%#slotz%,l,true);wait(30ms);
    endif;
    next;
    gui();
    log( );
    log("&c&lLimpando inventário!");
    log( );
    }$$/clear$${
    wait(1);
    endif;
    loop;
    }$$

    Você pode aumentar o tanto de baús se quiser, e deve escolher os itens pescados a serem guardados pelo macro o resto será limpo! (/clear)

    Coloque o código dos itens que você quer guardar na parte:

    // ITENS DE PESCA

    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    #li[] = ;
    Os itens dropados na escavação, eu já coloquei todos que são possiveis de pegar na skill. (Modifique caso queira tirar algum).

    Segue os códigos dos itens:
    [URL="http://i57.servimg.com/u/f57/18/57/09/78/datava10.png/img"]http://i57.servimg.com/u/f57/18/57/09/78/datava10.png/img[/URL]][/spoiler] [/COLOR]

    [SIZE=18px][COLOR=#ffffff][B]USAR EM 2º PLANO[/B][/COLOR][/SIZE]
    [COLOR=#add8e6]Aperte F3+P (se já tiver feito não precisa). Caso haja algum macro na tecla "P" certifique-se de removê-lo antes de apertar F3+P.[/COLOR]

    [SIZE=18px][COLOR=#ffffff][B]ECONOMIA DE BLOCOS[/B][/COLOR][/SIZE]
    [COLOR=#add8e6]Pode ser usada a mesma da macro[/COLOR][COLOR=#ffd700] [/COLOR][URL="http://forum.craftlandia.com.br/ipb/index.php?/topic/302464-vip-cava-cava-1oo-autom%C3%A1tico/"][COLOR=#ffd700][VIP][/COLOR][COLOR=#ff00cc] Cava-Cava[/COLOR][/URL]

    [SIZE=18px][COLOR=#ffffff][B]ATUALIZAÇÕES[/B][/COLOR][/SIZE]
    [COLOR=#ffff00]- Post publicado (01/07/2014)[/COLOR]


    [COLOR=#ff0000][B]Qualquer erro mande-me MP[/B][/COLOR]
     
    lomexicano, mark2, Yuuki021_ e 22 outras curtiram isso.
  2. S3g4tt0cr4ft

    VIP

    Afiliado:
    27 Dezembro 2012
    Mensagens:
    820
    Curtidas Recebidas:
    197
    Curtiu:
    75
    Sexo:
    Masculino
    Localização:
    favela da penha
    Cubos:
    812.00
    Nick:
    felipaofdckillyo
    Clan:
    YnY
    Skype:
    S3g4tt0Cr4ft
  3. superXD

    superXD Craftlandiano
    VIP

    Afiliado:
    29 Junho 2013
    Mensagens:
    4,301
    Curtidas Recebidas:
    621
    Curtiu:
    431
    Sexo:
    Masculino
    Cubos:
    2,096.00
    Nick:
    superXD
    Eita nois , sempre inovando. Toda vez um ótimo macro seu. Parabens ;-;
     
  4. Luiz Fernando DropaTudo

    Banido

    Afiliado:
    28 Novembro 2013
    Mensagens:
    1,491
    Curtidas Recebidas:
    177
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    MG <3
    Cubos:
    638.00
    Nick:
    _Nandho_
    Clan:
    BoD / Td2 <3
  5. CahhSouza

    CahhSouza Excelente
    VIP

    Afiliado:
    4 Julho 2012
    Mensagens:
    2,888
    Curtidas Recebidas:
    248
    Curtiu:
    1,223
    Sexo:
    Feminino
    Localização:
    São Paulo
    Cubos:
    164.00
    Nick:
    CahhSouza
    Skype:
    thecahhsouza
    Curti, boa.
    Pena que não sou VIP, nem tenho stats altos hu3hu3
     
  6. Marceneiro

    Marceneiro Excelente
    VIP

    Afiliado:
    16 Junho 2014
    Mensagens:
    3,178
    Curtidas Recebidas:
    317
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Trabalho
    Cubos:
    66.00
    Nick:
    LutherKiing
    vai ser top :D
     
    MrBlueees curtiu isso.
  7. OnTheKiller

    VIP

    Afiliado:
    6 Junho 2014
    Mensagens:
    1,948
    Curtidas Recebidas:
    188
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    SP-Capital
    Cubos:
    2,155.13
    Nick:
    Mindinho
    Clan:
    1KG
    boa leeeeeeek.estoro a boca do balao agora nao tenho 1000 de espada mais vou usar para upar os 2 ao mesmo tempo bjs requalque

    @EDIT Duvida onde guardara os peixes ?
     
    MrBlueees curtiu isso.
  8. TheDahaka

    TheDahaka Excelente
    VIP

    Afiliado:
    7 Setembro 2013
    Mensagens:
    1,455
    Curtidas Recebidas:
    259
    Curtiu:
    245
    Sexo:
    Masculino
    Cubos:
    1,764.96
    Nick:
    ManoMen
    Clan:
    Cru
    dafuq, as ideia do macro '-'
     
  9. funfaomedob

    funfaomedob Excelente
    VIP

    Afiliado:
    22 Fevereiro 2014
    Mensagens:
    3,384
    Curtidas Recebidas:
    207
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    872.00
    Nick:
    exdragonbr
    Clan:
    BoD
    mt bom macro up
     
    MrBlueees curtiu isso.
  10. MrBlueees

    MrBlueees Craftlandiano
    VIP

    Afiliado:
    13 Abril 2013
    Mensagens:
    746
    Curtidas Recebidas:
    587
    Curtiu:
    121
    Sexo:
    Masculino
    Cubos:
    60.00
    Nick:
    MrBlueees
    Se você colocar o peixe pra guardar, ele guardará nos baus das homes /home esc1,esc2,esc3... Entendeu?
     
  11. AngelDeath

    AngelDeath Craftlandiano
    VIP

    Afiliado:
    10 Dezembro 2012
    Mensagens:
    7,040
    Curtidas Recebidas:
    1,134
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Joinville
    Cubos:
    957.00
    Nick:
    iAngelD
    Skype:
    Puts, esqueci.
    Boa :)
     
    MrBlueees curtiu isso.
  12. OnTheKiller

    VIP

    Afiliado:
    6 Junho 2014
    Mensagens:
    1,948
    Curtidas Recebidas:
    188
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    SP-Capital
    Cubos:
    2,155.13
    Nick:
    Mindinho
    Clan:
    1KG
    opa vlw madrugada vem ni miiin -q
     
    MrBlueees curtiu isso.
  13. leocruz1920

    leocruz1920 Neutro
    VIP

    Afiliado:
    25 Fevereiro 2014
    Mensagens:
    259
    Curtidas Recebidas:
    17
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    341.00
    Nick:
    Blackblader
    Clan:
    DDB
    boa Mrblueees
     
    MrBlueees curtiu isso.
  14. Mario Green

    Mario Green Craftlandiano
    VIP

    Afiliado:
    8 Novembro 2012
    Mensagens:
    5,395
    Curtidas Recebidas:
    809
    Curtiu:
    238
    Sexo:
    Masculino
    Localização:
    Santa Catarina.
    Cubos:
    313.39
    Nick:
    zDavidEz
    Facebook:
    ----------
    Skype:
    ----------
    Twitter:
    ----------
    Interessante,porém não irei usar . :)
     
  15. fraga

    fraga Hardcore
    VIP

    Afiliado:
    19 Maio 2013
    Mensagens:
    10,673
    Curtidas Recebidas:
    3,086
    Curtiu:
    4,207
    Cubos:
    1,127.00
    Nick:
    Fraga
    Clan:
    nLL
    Bem loco mesmo
     
  16. xpedra

    xpedra Excelente
    VIP

    Afiliado:
    19 Dezembro 2013
    Mensagens:
    3,116
    Curtidas Recebidas:
    393
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    199.00
    Nick:
    xThePedro
     
  17. fernandox9

    fernandox9 Neutro
    VIP

    Afiliado:
    29 Julho 2013
    Mensagens:
    595
    Curtidas Recebidas:
    41
    Curtiu:
    67
    Sexo:
    Masculino
    Cubos:
    640.00
    Nick:
    nando_x9
    boa cara ótimo macro
     
  18. zCaoComFome

    zCaoComFome Craftlandiano
    Banido

    Afiliado:
    3 Dezembro 2013
    Mensagens:
    4,454
    Curtidas Recebidas:
    1,338
    Curtiu:
    1,646
    Sexo:
    Masculino
    Cubos:
    1,429.00
    Nick:
    zCaoComFome
    Clan:
    RsN QZL YnY
    Skype:
    lukas.mths
    Boa Bluees,​
    Vo upa escavação pra usa esse macro​
     
  19. matheusfre

    matheusfre Neutro
    VIP

    Afiliado:
    8 Outubro 2013
    Mensagens:
    813
    Curtidas Recebidas:
    47
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    915.00
    Nick:
    M_Freitas_Brr
    Clan:
    BkD
    Facebook:
    matheus-freitas29@hotmail.com
    Ai sim em, tem como usar em oceano ?
     
  20. Waffles

    Waffles Craftlandiano
    VIP

    Afiliado:
    26 Julho 2013
    Mensagens:
    8,340
    Curtidas Recebidas:
    878
    Curtiu:
    1,134
    Sexo:
    Masculino
    Cubos:
    181.00
    Nick:
    zWaffles
Status do Tópico:
Não esta aberto para novas mensagens.