Macro de Pesca

Discussão em 'Botecolandia' iniciado por Luanzinhu, 3 Julho 2014.

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

    Luanzinhu Bom
    VIP

    Afiliado:
    27 Setembro 2013
    Mensagens:
    699
    Curtidas Recebidas:
    102
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Brasília - DF
    Cubos:
    826.00
    Nick:
    iLuanzinhuu
    Clan:
    AGG
    Pega ai nick , (obs: crédito 250% jimmyfilips) (obs2: Para _Seu-Nick-aki_)
    $${
    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%<25);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[] = 269;
    #li[] = 270;
    #li[] = 271;
    #li[] = 273;
    #li[] = 274;
    #li[] = 290;
    #li[] = 291;
    #li[] = 292;
    #li[] = 293;
    #li[] = 298;
    #li[] = 299;
    #li[] = 300;
    #li[] = 315;
    #li[] = 316;
    #li[] = 317;
    #li[] = 318;
    #li[] = 285;
    #li[] = 283;
    #li[] = 294;
    #li[] = 314;
    #li[] = 286;
    #li[] = 284;
    #li[] = 258;
    #li[] = 257;
    #li[] = 256;
    #li[] = 307;
    #li[] = 308;
    #li[] = 306;
    #li[] = 309;
    #li[] = 351;

    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(2);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;
    }$$
     
    AsyNc curtiu isso.
  2. l Tiago l

    l Tiago l Craftlandiano
    VIP

    Afiliado:
    10 Outubro 2013
    Mensagens:
    9,282
    Curtidas Recebidas:
    1,864
    Curtiu:
    458
    Sexo:
    Masculino
    Localização:
    Florianópoli...
    Cubos:
    122.00
    Nick:
    Tiago_Player
  3. AsyNc

    AsyNc Bom
    VIP

    Afiliado:
    17 Dezembro 2013
    Mensagens:
    777
    Curtidas Recebidas:
    166
    Curtiu:
    887
    Sexo:
    Masculino
    Localização:
    São Paulo
    Cubos:
    1,022.36
    Nick:
    AsyNc_
    Clan:
    RMS
    mds kkkkkkkkkkkk
     
    Luanzinhu curtiu isso.
  4. schurrlezz

    schurrlezz Craftlandiano
    VIP

    Afiliado:
    14 Julho 2013
    Mensagens:
    5,872
    Curtidas Recebidas:
    1,044
    Curtiu:
    83
    Sexo:
    Masculino
    Cubos:
    384.00
    Nick:
    schurrlezz
  5. Hellspring

    Hellspring Excelente
    VIP

    Afiliado:
    29 Setembro 2013
    Mensagens:
    7,702
    Curtidas Recebidas:
    418
    Curtiu:
    886
    Sexo:
    Masculino
    Cubos:
    2,400.00
    Nick:
    Vitozs
    Área errada poste em tutoriais em macros.
     
  6. joeykovar

    joeykovar Neutro

    Afiliado:
    17 Fevereiro 2014
    Mensagens:
    667
    Curtidas Recebidas:
    30
    Curtiu:
    42
    Sexo:
    Masculino
    Cubos:
    858.00
    Nick:
    joeykovar
    Clan:
    DmC
    Area Erada ;(
     
  7. FumetsuTsuki

    FumetsuTsuki Razoavel

    Afiliado:
    6 Fevereiro 2014
    Mensagens:
    974
    Curtidas Recebidas:
    52
    Curtiu:
    20
    Sexo:
    Masculino
    Cubos:
    1,115.00
    Nick:
    FumetsuTsuki
    Clan:
    Nen
  8. Suaveh

    Suaveh Excelente
    Banido

    Afiliado:
    2 Março 2014
    Mensagens:
    2,798
    Curtidas Recebidas:
    418
    Curtiu:
    244
    Sexo:
    Masculino
    Cubos:
    182.00
    Nick:
    Suaveh
     
  9. FumetsuTsuki

    FumetsuTsuki Razoavel

    Afiliado:
    6 Fevereiro 2014
    Mensagens:
    974
    Curtidas Recebidas:
    52
    Curtiu:
    20
    Sexo:
    Masculino
    Cubos:
    1,115.00
    Nick:
    FumetsuTsuki
    Clan:
    Nen
     
  10. IceBR3kWiN

    IceBR3kWiN Craftlandiano
    VIP

    Afiliado:
    15 Agosto 2013
    Mensagens:
    5,006
    Curtidas Recebidas:
    847
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    75.00
    Nick:
    brN
    Clan:
    HLS
    Enviado do meu IPhone 5 usando Tapatalk
     
  11. josuel95

    josuel95 Excelente

    Afiliado:
    19 Outubro 2012
    Mensagens:
    3,862
    Curtidas Recebidas:
    207
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    São Paulo -...
    Cubos:
    1,310.00
    Nick:
    jo2099
    Clan:
    ILQ
    Facebook:
    jo.stossr95@hotmail.com
    Skype:
    josuel_95
    area errada , mais ajudou
     
  12. BuckStyle

    BuckStyle Neutro

    Afiliado:
    4 Julho 2014
    Mensagens:
    16
    Curtidas Recebidas:
    0
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Sp-itaquaque...
    Cubos:
    50.00
    Nick:
    Buckstyle
    Clan:
    CRM
    cara se colocou na area errada mais ajudou <_<
     
Status do Tópico:
Não esta aberto para novas mensagens.