ENTREGUE [2.0] Pesca - lixeira, baus ilimitados e +

Discussão em 'Macro Entregue' iniciado por jimmyfilips, 29 Dezembro 2013.

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

    iocosan123 Neutro
    VIP

    Afiliado:
    9 Dezembro 2012
    Mensagens:
    87
    Curtidas Recebidas:
    13
    Curtiu:
    0
    Cubos:
    97.00
    Nick:
    suprina
    esta dando bug AVISOOO
     
  2. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
    reinstale de forma correta, ele não está.
     
  3. xXLuksXx

    xXLuksXx Razoavel
    VIP

    Afiliado:
    17 Agosto 2012
    Mensagens:
    429
    Curtidas Recebidas:
    60
    Curtiu:
    172
    Sexo:
    Masculino
    Cubos:
    389.00
    Nick:
    xXLuksXx
    Clan:
    STS
    Discord:
    zluks#3060
    O meu ta mirando a vara pra frente :s



     
  4. kroller

    kroller Neutro
    VIP

    Afiliado:
    24 Dezembro 2012
    Mensagens:
    187
    Curtidas Recebidas:
    12
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    210.00
    Nick:
    kroller_XD
  5. Orochimaro

    Orochimaro Neutro
    VIP

    Afiliado:
    29 Junho 2012
    Mensagens:
    250
    Curtidas Recebidas:
    33
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Belo horizonte
    Cubos:
    307.00
    Nick:
    jGFraga
    Skype:
    Pra ths me derrubar ? nem rola !
    Jimmy , o meu n ta limpando , ele enche vira pra lava e fala , "inventario limpo" sendo q n limpou nd , olha ai :
    ARRAYSIZE(#li,#size);#size = #size - 1;
    FOR(#y,0,%#size%);
    POP(#li,#tempvar);
    NEXT;

    #tempvar = 0;
    #li[] =^$;
    #li[] =^314$;
    #li[] =^315$;
    #li[] =^316$;
    #li[] =^317$;
    #li[] =^306$;
    #li[] =^307$;
    #li[] =^308$;
    #li[] =^309$;
    #li[] =^283$;
    #li[] =^284$;
    #li[] =^285$;
    #li[] =^286$;
    #li[] =^256$;
    #li[] =^257$;
    #li[] =^258$;
    #li[] =^267$;

    ACHIEVEMENTGET(limpando inventario,325);
     
  6. thormenta

    thormenta Excelente
    VIP

    Afiliado:
    14 Abril 2013
    Mensagens:
    573
    Curtidas Recebidas:
    298
    Curtiu:
    277
    Sexo:
    Masculino
    Cubos:
    942.00
    Nick:
    Thormenta
    Clan:
    WoH
    Skype:
    zThor.01
  7. P4T0 L0K0

    P4T0 L0K0 Neutro
    VIP

    Afiliado:
    28 Janeiro 2014
    Mensagens:
    13
    Curtidas Recebidas:
    3
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Minha Casa
    Cubos:
    44.00
    Nick:
    P4T0_L0K0/Ze_Piqueno
  8. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
    #tempvar = 0;
    #li[] =;
    #li[] =314;
    #li[] =315;
    #li[] =316;
    #li[] =317;
    #li[] =306;
    #li[] =307;
    #li[] =308;
    #li[] =309;
    #li[] =283;
    #li[] =284;
    #li[] =285;
    #li[] =286;
    #li[] =256;
    #li[] =257;
    #li[] =258;
    #li[] =267;
     
  9. bkwas

    bkwas Excelente
    VIP

    Afiliado:
    12 Abril 2013
    Mensagens:
    2,558
    Curtidas Recebidas:
    434
    Curtiu:
    173
    Sexo:
    Masculino
    Localização:
    Ts
    Cubos:
    51.00
    Nick:
    bkwas
    Clan:
    STAFF
    O meu n está jogando os itens fora! ve se ta certo

    Ele olha, fala que vai limpar e n joga nada fora :(

    $${
    if(pesca);
    ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
    else;
    ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
    endif;
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;

    PROMPT(#maxbau,$$?,"Quantos baús você irá utilizar?");
    PROMPT(&discos,$$?,"venderá discos? (s/n)");

    do;
    //================================================ preparar
    gui(inventory);pick(346);
    look(%&dir%);look(,-90);
    //================================================ repara
    if(%DURABILITY%<20);look(,90);
    ACHIEVEMENTGET(Reparando a vara,346);
    wait(500ms);
    do(2);key(use);wait(500ms);loop;
    ACHIEVEMENTGET(Vara reparada,346);
    endif;
    //================================================ pesca
    look(%&dir%);look(,-90);
    do(19);key(use);wait(1ms);loop;
    //================================================ verifica inventario
    if(bausok);wait(10ms);
    getslotitem(35,#id,#stack);
    //================================================ limpa
    if(%#stack%!=0);
    look(%&dir%);look(,0);

    ARRAYSIZE(#li,#size);#size = #size - 1;
    FOR(#y,0,%#size%);
    POP(#li,#tempvar);
    NEXT;

    #tempvar = 0;
    #li[] = ;^277$;
    #li[] = ;^278$;
    #li[] = ;^279$;
    #li[] = ;^280$;
    #li[] = ;^281$;
    #li[] = ;^282$;
    #li[] = ;^283$;
    #li[] = ;^284$;
    #li[] = ;^300$;
    #li[] = ;^299$;
    #li[] = ;^307$;
    #li[] = ;^308$;
    #li[] = ;^209$;
    #li[] = ;^310$;

    ACHIEVEMENTGET(limpando inventario,325);
    for(#slotn,9,44);
    GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
    IF((#index != -1) && (%#id% != 0));
    SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(250ms);
    ENDIF;
    next;
    ACHIEVEMENTGET(Inventario limpo,325);
    //================================================ discos
    ifmatches(%&discos%,s);
    gui();
    ACHIEVEMENTGET(vendendo discos,2259);
    for(#hdisco,1,10);
    type(sst);wait(500ms);
    type( /home disco);wait(500ms);
    type(%#hdisco%);wait(1);PRESS(return);
    wait(5);do(2);key(attack);wait(1);loop;wait(1);
    next;
    ACHIEVEMENTGET(discos vendidos,2259);
    endif;
    //================================================ baus
    gui();
    do;wait(1);
    type(sst);wait(500ms);
    type( /home peixe);wait(500ms);
    type(%#nbau%);
    wait(1);PRESS(return);wait(5);
    ACHIEVEMENTGET(guardando itens,146);
    key(use);wait(1);

    for(#slotn,54,89);
    GETSLOTITEM(%#slotn%,#id,#stack);
    if(%#id%=346);elseif(%#id%=287);else;
    slotclick(%#slotn%,l,true);wait(30ms);
    endif;
    next;
    //================================================ verifica bau cheio
    wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
    if(%#stack%!=0);inc(#nbau);endif;
    if(%#nbau%=%#maxbau%);
    unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
    else;gui();endif;

    until(%#stack%=0);
    ACHIEVEMENTGET(itens guardandos,146);
    }$$/home pesca$${wait(5);
    endif;endif;loop;
    }$$
     
  10. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
    $${
    if(pesca);
    ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
    else;
    ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
    endif;
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;

    PROMPT(#maxbau,$$?,"Quantos baús você irá utilizar?");
    PROMPT(&discos,$$?,"venderá discos? (s/n)");

    do;
    //================================================ preparar
    gui(inventory);pick(346);
    look(%&dir%);look(,-90);
    //================================================ repara
    if(%DURABILITY%<20);look(,90);
    ACHIEVEMENTGET(Reparando a vara,346);
    wait(500ms);
    do(2);key(use);wait(500ms);loop;
    ACHIEVEMENTGET(Vara reparada,346);
    endif;
    //================================================ pesca
    look(%&dir%);look(,-90);
    do(19);key(use);wait(1ms);loop;
    //================================================ verifica inventario
    if(bausok);wait(10ms);
    getslotitem(35,#id,#stack);
    //================================================ limpa
    if(%#stack%!=0);
    look(%&dir%);look(,0);

    ARRAYSIZE(#li,#size);#size = #size - 1;
    FOR(#y,0,%#size%);
    POP(#li,#tempvar);
    NEXT;

    #tempvar = 0;
    #li[] = ;277;
    #li[] = ;278;
    #li[] = ;279;
    #li[] = ;280;
    #li[] = ;281;
    #li[] = ;282;
    #li[] = ;283;
    #li[] = ;284;
    #li[] = ;300;
    #li[] = ;299;
    #li[] = ;307;
    #li[] = ;308;
    #li[] = ;209;
    #li[] = ;310;

    ACHIEVEMENTGET(limpando inventario,325);
    for(#slotn,9,44);
    GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
    IF((#index != -1) && (%#id% != 0));
    SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(250ms);
    ENDIF;
    next;
    ACHIEVEMENTGET(Inventario limpo,325);
    //================================================ discos
    ifmatches(%&discos%,s);
    gui();
    ACHIEVEMENTGET(vendendo discos,2259);
    for(#hdisco,1,10);
    type(sst);wait(500ms);
    type( /home disco);wait(500ms);
    type(%#hdisco%);wait(1);PRESS(return);
    wait(5);do(2);key(attack);wait(1);loop;wait(1);
    next;
    ACHIEVEMENTGET(discos vendidos,2259);
    endif;
    //================================================ baus
    gui();
    do;wait(1);
    type(sst);wait(500ms);
    type( /home peixe);wait(500ms);
    type(%#nbau%);
    wait(1);PRESS(return);wait(5);
    ACHIEVEMENTGET(guardando itens,146);
    key(use);wait(1);

    for(#slotn,54,89);
    GETSLOTITEM(%#slotn%,#id,#stack);
    if(%#id%=346);elseif(%#id%=287);else;
    slotclick(%#slotn%,l,true);wait(30ms);
    endif;
    next;
    //================================================ verifica bau cheio
    wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
    if(%#stack%!=0);inc(#nbau);endif;
    if(%#nbau%=%#maxbau%);
    unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
    else;gui();endif;

    until(%#stack%=0);
    ACHIEVEMENTGET(itens guardandos,146);
    }$$/home pesca$${wait(5);
    endif;endif;loop;
    }$$
     
  11. SasukeUNS

    SasukeUNS Neutro

    Afiliado:
    20 Março 2014
    Mensagens:
    1
    Curtidas Recebidas:
    0
    Curtiu:
    0
    Cubos:
    2.00
    Nick:
    SasukeUNS
    Jimmy o meu na hora que eu ativo o macro ele começa pesca pro lado '- ' .

    Ajuda ;-;
    [​IMG]
    [​IMG]
     
  12. danix99

    danix99 Excelente
    VIP

    Afiliado:
    23 Outubro 2013
    Mensagens:
    3,350
    Curtidas Recebidas:
    250
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Salto-sp
    Cubos:
    495.00
    Nick:
    daniel_x99
    Clan:
    VPS/EcT
    nao tem como fazer esse macro sem home? ou editar algum para colokar lixeira pf responda
     
  13. jimmyfilips

    jimmyfilips Hardcore
    VIP

    Afiliado:
    27 Fevereiro 2013
    Mensagens:
    3,020
    Curtidas Recebidas:
    3,668
    Curtiu:
    1,706
    Sexo:
    Masculino
    Cubos:
    1,692.00
    Nick:
    jimmyfilips
    Facebook:
    nem vem...
    Skype:
    aq tb n...
    editar pra colocar lixeira? o_O mas ele tem lixeira! e precisa de pelomenos 2 homes, senão não da. não tem como conseguir, lixeira e bau num espaço sem homes, não compensa
     
  14. fhak

    fhak Neutro

    Afiliado:
    25 Maio 2013
    Mensagens:
    10
    Curtidas Recebidas:
    0
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    11.00
    Nick:
    DarkDoMaL
    boa mano macro fico top parabens
     
  15. S0mbra

    S0mbra Neutro
    VIP

    Afiliado:
    17 Outubro 2012
    Mensagens:
    15
    Curtidas Recebidas:
    0
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    59.00
    Nick:
    S0mbra
    olá, antes de tudo, parabéns pela sua inteligencia e disposição para criar essa macro, excelente ela, mas estou com um probleminha, ok o bonequinho pesca, enche o inventário e ai ele deveria abrir o chat e digitar /home bau1, eis o problema ele abre o chat e digita /ome bau1, tipo ele engole o h, ai ele volta a pescar, faz essa manobra umas 5 vezes então ele abre o chat e digita /home bau2 dai pra frente tudo ok. tem como arrumar esse bug pra mim garoto? independente se vai arrumar ou não, obrigado pela macro, você é o cara.

    Bem, observando durante um tempo, descobri que alem de errar no /home bau1, ele acerta ums dois ou tres baus e pula de novo, tipo vai tentando por mais ou menos assim.... /ome bau5.../ome bau6..../ome bau7.../home bau8...> ai, quando ele digita certo vai na home e guarda os itens depois volta a pescar. fui olhar os baus, (198 no total) ele vai pulando, por exemplo, guarda no bau 1 pula o 2, 3,4 guarda no 5 e assim por diante.
    já reinstalei o macro, da o mesmo erro.
    detalhe, nao uso a lixeira porque nao quero colocar item nenhum fora por enquanto, e nao vendo os discos por que gosto de vender depois aquele inventario cheio de disco, é de encher os olhos...hehe.
     
  16. HenryMiranda

    VIP

    Afiliado:
    4 Julho 2012
    Mensagens:
    590
    Curtidas Recebidas:
    124
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Minha Casa
    Cubos:
    575.00
    Nick:
    HalloweeNn
    Clan:
    YnY/Czy
    Nuss belo macro
     
  17. SatlaNumberOne

    VIP

    Afiliado:
    12 Setembro 2013
    Mensagens:
    585
    Curtidas Recebidas:
    108
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    743.00
    Nick:
    SatlaNumberOne
    Clan:
    QuB
  18. ShOz

    ShOz Neutro
    VIP

    Afiliado:
    27 Março 2014
    Mensagens:
    77
    Curtidas Recebidas:
    7
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    71.00
    Nick:
    ShOz
    Olá antes de tudo, é uma ótima macro! Mais eu estou tendo um pequeno probleminha com ela...

    ele pesca , limpa o inventario. até aí tudo bem, mais quando ele vai guardar os itens ele buga. antes de acabar os 3 segundos ele já clica pra abrir o bau fazendo com que o mesmo nao abra e o macro entenda que os itens foram guardados... poderia me ajudar?

    minha macro ta assim :

    $${
    if(pesca);
    ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
    else;
    ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
    endif;
    ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
    ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
    ifmatches(%DIRECTION%,E);&dir=EAST;endif;
    ifmatches(%DIRECTION%,W);&dir=WEST;endif;

    PROMPT(#maxbau,$$?,"Quantos baús você irá utilizar?");
    PROMPT(&discos,$$?,"venderá discos? (s/n)");

    do;
    //================================================ preparar
    gui(inventory);pick(346);
    look(%&dir%);look(,-90);
    //================================================ repara
    if(%DURABILITY%<20);look(,90);
    ACHIEVEMENTGET(Reparando a vara,346);
    wait(500ms);
    do(2);key(use);wait(500ms);loop;
    ACHIEVEMENTGET(Vara reparada,346);
    endif;
    //================================================ pesca
    look(%&dir%);look(,-90);
    do(19);key(use);wait(1ms);loop;
    //================================================ verifica inventario
    if(bausok);wait(10ms);
    getslotitem(35,#id,#stack);
    //================================================ limpa
    if(%#stack%!=0);
    look(%&dir%);look(,0);

    ARRAYSIZE(#li,#size);#size = #size - 1;
    FOR(#y,0,%#size%);
    POP(#li,#tempvar);
    NEXT;

    #tempvar = 0;
    #li[] = 256;
    #li[] = 258;
    #li[] = 267;
    #li[] = 268;
    #li[] = 269;
    #li[] = 270;
    #li[] = 271;
    #li[] = 272;
    #li[] = 273;
    #li[] = 274;
    #li[] = 275;
    #li[] = 290;
    #li[] = 291;
    #li[] = 292;
    #li[] = 294;
    #li[] = 293;
    #li[] = 283;
    #li[] = 284;
    #li[] = 285;
    #li[] = 286;
    #li[] = 298;
    #li[] = 299;
    #li[] = 300;
    #li[] = 301;
    #li[] = 306;
    #li[] = 307;
    #li[] = 308;
    #li[] = 309;
    #li[] = 314;
    #li[] = 315;
    #li[] = 316;
    #li[] = 317;

    ACHIEVEMENTGET(limpando inventario,325);
    for(#slotn,9,44);
    GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
    IF((#index != -1) && (%#id% != 0));
    SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(250ms);
    ENDIF;
    next;
    ACHIEVEMENTGET(Inventario limpo,325);
    //================================================ discos
    ifmatches(%&discos%,s);
    gui();
    ACHIEVEMENTGET(vendendo discos,2259);
    for(#hdisco,1,12);
    type(sst);wait(500ms);
    type( /home disco);wait(500ms);
    type(%#hdisco%);wait(1);PRESS(return);
    wait(5);do(2);key(attack);wait(1);loop;wait(1);
    next;
    ACHIEVEMENTGET(discos vendidos,2259);
    endif;
    //================================================ baus
    gui();
    do;wait(1);
    type(sst);wait(500ms);
    type( /home bau);wait(500ms);
    type(%#nbau%);
    wait(1);PRESS(return);wait(5);
    ACHIEVEMENTGET(guardando itens,146);
    key(use);wait(1);

    for(#slotn,54,89);
    GETSLOTITEM(%#slotn%,#id,#stack);
    if(%#id%=346);elseif(%#id%=287);else;
    slotclick(%#slotn%,l,true);wait(30ms);
    endif;
    next;
    //================================================ verifica bau cheio
    wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
    if(%#stack%!=0);inc(#nbau);endif;
    if(%#nbau%=%#maxbau%);
    unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
    else;gui();endif;

    until(%#stack%=0);
    ACHIEVEMENTGET(itens guardandos,146);
    }$$/home pesca$${wait(5);
    endif;endif;loop;
    }$$
     
  19. JomCasmurro

    JomCasmurro Craftlandiano
    VIP

    Afiliado:
    12 Janeiro 2012
    Mensagens:
    5,956
    Curtidas Recebidas:
    1,735
    Curtiu:
    0
    Localização:
    Boston, MA
    Cubos:
    1,784.00
    Nick:
    Algoz
    Clan:
    EcT
    tutorial m-u-i-t-o bem feito. :diamond:
     
  20. TheminBros

    TheminBros Neutro
    Banido

    Afiliado:
    23 Abril 2014
    Mensagens:
    9
    Curtidas Recebidas:
    1
    Curtiu:
    0
    Cubos:
    10.00
    Nick:
    TheminBros
    O MEU TA PESCANDO PARA FRENTE E NAO PARA CIMA OQUE FAZER ???????? :?
     
Status do Tópico:
Não esta aberto para novas mensagens.