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. doc60

    doc60 Neutro
    Banido

    Afiliado:
    25 Agosto 2013
    Mensagens:
    83
    Curtidas Recebidas:
    37
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    162.00
    Nick:
    doc60
    Boa macro parabens
     
  2. WillianStaker

    WillianStaker Neutro
    VIP

    Afiliado:
    9 Maio 2013
    Mensagens:
    19
    Curtidas Recebidas:
    4
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Osasco-SP
    Cubos:
    58.00
    Nick:
    WillianStaker
    Facebook:
    willam_zica2011@hotmail.com
    Skype:
    WillianStaker
    Eu coloquei o mesmo código, mas... Quando o inventário enche e fala limpando itens mas ele não joga os itens fora.


    O Código que coloquei:

    $${
    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[] = ^268$;
    #li[] = ^269$;
    #li[] = ^270$;
    #li[] = ^271$;
    #li[] = ^290$;
    #li[] = ^298$;
    #li[] = ^299$;
    #li[] = ^300$;
    #li[] = ^301$;
    #li[] = ^$;

    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;
    }$$



    Resolva para mim se puder e mostre o código resolvido para mim (é claro se puder)




    OBG!!! $ $
    ^
     
  3. 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...
    #li[] = 268;
    #li[] = 269;
    #li[] = 270;
    #li[] = 271;
    #li[] = 290;
    #li[] = 298;
    #li[] = 299;
    #li[] = 300;
    #li[] = 301;
     
  4. Darckcroos

    Darckcroos Neutro
    VIP

    Afiliado:
    15 Janeiro 2014
    Mensagens:
    63
    Curtidas Recebidas:
    26
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    124.00
    Nick:
    Darckcroos
    Clan:
    JcS
    Skype:
    antoniolagoeu
    Twitter:
    antoniolago
    Esquece xD, macro mt bom (tinha dado um bug aqui, mas ja resolvi, obg)
     
  5. TheTitaniumBR

    TheTitaniumBR Razoavel
    VIP

    Afiliado:
    13 Maio 2012
    Mensagens:
    354
    Curtidas Recebidas:
    60
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Digitando...
    Cubos:
    329.00
    Nick:
    TheTitaniumBR
    Clan:
    THS
    Facebook:
    https://www.facebook.com/carlosadriano.bessadossantos?ref=tn_tnmn
    Skype:
    thetitaniumbr
    Eu queria uma unica ediçãozinha nesse macro, tipo eu deixo duas contas upando e uma delas não é vip, ai queria saber se tem como editar para a parte das homes dos dicos e dos baus eu colocar elas como invite, no caso eu invitaria e ao invez dele dar /home bau1 etc e daria /home thetitaniumbr bau1 etc ... e a mesma coisa com os discos, tem como ? :c
     
  6. 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...
    está ciente que deixar duas contas upando é passivo de ban por uso de conta fake, certo?
     
  7. TheTitaniumBR

    TheTitaniumBR Razoavel
    VIP

    Afiliado:
    13 Maio 2012
    Mensagens:
    354
    Curtidas Recebidas:
    60
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Digitando...
    Cubos:
    329.00
    Nick:
    TheTitaniumBR
    Clan:
    THS
    Facebook:
    https://www.facebook.com/carlosadriano.bessadossantos?ref=tn_tnmn
    Skype:
    thetitaniumbr
    mas mesmo que daria ban, faça o macro, pra aqueles que tem um amigo vip e não pode setar homes, ;) que " é quase o meu caso" eu tenho uma acc vip e a que eu upo pesca nao é vip e eu nao posso setar homes nela, e queria fazer os invites e tal <3




    Se for possível é claro :D
     
  8. ArthurDiniz1

    ArthurDiniz1 Craftlandiano
    VIP

    Afiliado:
    1 Fevereiro 2013
    Mensagens:
    5,879
    Curtidas Recebidas:
    1,002
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    1,165.00
    Nick:
    ArthurDiniz1
    Cara me ajude porfavor, estou com um problema no seu macro...


    Ele faz tudo direitinho no meu, mas na hora de guardar ele da /home bau1 e guarda tudo, menos assim ele continua para as homes subsequentes mesmo n tendo mais nada para guardar chegando ate a ultrapassar o limite de homes que tinha falado no inicio.

    por exemplo, me pergunta em quantos baus quero guardar eu falo 2, ele vai para o 1 guarda tudo mesmo assim ele vai para o 2 e depois para o 3 ate que aparece que não tem /home bau3 mesmo assim ele continua /home bau4 ; /home bau5 e eu não sei oq fazer...

    porfavor tente me ajudar ai, obrigado e desculpe qualquer coisa...




    $${
    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[] = 314;
    #li[] = 315;
    #li[] = 316;
    #li[] = 317;
    #li[] = 298;
    #li[] = 299;
    #li[] = 300;
    #li[] = 301;
    #li[] = 291;
    #li[] = 290;
    #li[] = 292;
    #li[] = 294;
    #li[] = 268;
    #li[] = 269;
    #li[] = 270;
    #li[] = 271;
    #li[] = 272;
    #li[] = 273;
    #li[] = 274;
    #li[] = 275;
    #li[] = 283;
    #li[] = 284;
    #li[] = 285;
    #li[] = 286;
    #li[] = 2257;
    #li[] = 2260;
    #li[] = 2258;
    #li[] = 2259;
    #li[] = 2261;
    #li[] = 2262;
    #li[] = 2263;
    #li[] = 2264;
    #li[] = 2265;
    #li[] = 2266;
    #li[] = 306;
    #li[] = 307;
    #li[] = 308;
    #li[] = 309;
    #li[] = 277;
    #li[] = 293;
    #li[] = 267;

    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(300ms);
    type(/home bau);wait(300ms);
    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(300ms);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;
    }$$
     
  9. felipeta123

    VIP

    Afiliado:
    12 Janeiro 2013
    Mensagens:
    787
    Curtidas Recebidas:
    135
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Minha Casa
    Cubos:
    943.00
    Nick:
    PCROXO
    Clan:
    HES
  10. leomineradorlol

    leomineradorlol Razoavel
    VIP

    Afiliado:
    30 Março 2013
    Mensagens:
    522
    Curtidas Recebidas:
    69
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    608.00
    Nick:
    leomineradorlol
    Clan:
    NADA
    Facebook:
    leonardodealmeidaalonso@gmail.com
    Skype:
    leomineradorlol
    Twitter:
    leomineradorlol
  11. Azuloko

    Azuloko Neutro

    Afiliado:
    3 Fevereiro 2014
    Mensagens:
    179
    Curtidas Recebidas:
    19
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    -12888 43500
    Cubos:
    253.00
    Nick:
    Azuloko
    Clan:
    Não tenho
    Skype:
    azuloko14
    Mas quando você vai jogar no lixo tipo ele joga os itens encantados tambem?
     
  12. dancruz19

    dancruz19 Neutro
    VIP

    Afiliado:
    11 Julho 2013
    Mensagens:
    43
    Curtidas Recebidas:
    40
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    68.00
    Nick:
    jc427
    bom dms parabens
     
  13. THIAGOLIDER

    THIAGOLIDER Neutro

    Afiliado:
    16 Novembro 2011
    Mensagens:
    6
    Curtidas Recebidas:
    1
    Curtiu:
    0
    Cubos:
    13.00
    Nick:
    thiagoiii
  14. GabrieLL17

    GabrieLL17 Neutro
    VIP

    Afiliado:
    5 Novembro 2012
    Mensagens:
    79
    Curtidas Recebidas:
    5
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    110.00
    Nick:
    Domyx92
  15. HalleyDJ

    HalleyDJ Craftlandiano
    VIP

    Afiliado:
    8 Janeiro 2014
    Mensagens:
    2,507
    Curtidas Recebidas:
    841
    Curtiu:
    942
    Sexo:
    Masculino
    Localização:
    Uberlândia...
    Cubos:
    2,032.00
    Nick:
    HalleyDJ
    Discord:
    HalleyDJ#9822
    vlw estava precisando da lista com os ids
     
  16. Tosatuddets1

    Tosatuddets1 Neutro
    VIP

    Afiliado:
    3 Novembro 2012
    Mensagens:
    34
    Curtidas Recebidas:
    2
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    50.00
    Nick:
    Tosatuddets1
    Muito Bom, Parabéns!
     
  17. zFull

    zFull Bom
    VIP

    Afiliado:
    15 Dezembro 2012
    Mensagens:
    688
    Curtidas Recebidas:
    168
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Fazendo...
    Cubos:
    827.00
    Nick:
    zFull
    Clan:
    {THS} T0ШЄŁHЄΛĐSŁ4ЧЄRS
    Skype:
    GuilhermeJunior7
  18. danoss

    danoss Bom

    Afiliado:
    16 Dezembro 2011
    Mensagens:
    1,498
    Curtidas Recebidas:
    137
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo,...
    Cubos:
    736.00
    Nick:
    danoss
    Clan:
    [NCR] Necromancy
    Ótimo topico, maco 100% funcional aqui, parabens.
     
  19. iBorn

    iBorn Excelente
    Banido

    Afiliado:
    12 Fevereiro 2014
    Mensagens:
    781
    Curtidas Recebidas:
    279
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    /home
    Cubos:
    1,201.00
    Nick:
    BudweiserBR
    Skype:
    QuerMeDerrubar?
Status do Tópico:
Não esta aberto para novas mensagens.