Pesca propano

Discussão em 'Botecolandia' iniciado por ramos367, 24 Dezembro 2015.

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

    ramos367 Neutro
    VIP

    Afiliado:
    2 Fevereiro 2015
    Mensagens:
    193
    Curtidas Recebidas:
    19
    Curtiu:
    52
    Sexo:
    Masculino
    Cubos:
    224.05
    Nick:
    ramos367
    Clan:
    mfa
    se alguem pode modifica essa macro para somente pesca pq eu vou utiliza-lo com auto-fish

    $${
    if(rogroote);
    log("&4[Macro] &6Pesca desativada.");
    log("&4[Macro] &2Macro ASS: &bROGROOTE - REGION 2.0 Editado by abrisqui classic.");
    unset(rogroote);
    stop();
    else;
    log("&4[Macro] &6Pesca ativado.");
    set(rogroote);
    set(nf);
    &dir = %DIRECTION%;
    #bau=1;
    #rod=1;
    set(nf);
    ifmatches(%&dir%,N);&dir=NORTH;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;endif;
    ifmatches(%&dir%,E);&dir=EAST;endif;
    ifmatches(%&dir%,W);&dir=WEST;endif;

    prompt(&vip,$$?,Você é vip? (pesque somente com varas encantadas.)' (im ou [N]ao ?);
    do;
    ifmatches(%&vip%,^[a|b|c|d|e|f|g|h|i|j|k|l|m|o|p|q|r|t|u|v|x|y|w|z|A|B|C|D|E|F|G|H|I|J|K|L|M|O|P|Q|R|T|U|V|X|Y|W|Z|1|2|3|4|5|6|7|8|9|0]);
    log("&2Preste &6ATENÇÃO &2no que digita, digite &6S &2ou &6N&2 :(");
    log("&4[Macro] &6Pesca desativada.");
    unset(rogroote);
    stop();

    elseif;

    ifmatches(%&vip%,^[S|s|SIM|sim|N|n|NAO|nao]);

    PROMPT(&tempo,$$?, (Se você não usa auto fish digite 18 se você usa auto fish digite 60 );

    do;
    ifmatches(%&vip%,^[S|s|SIM|sim]);

    log("&f Para se ter resultado na pesca devese usar varas com encantamento &a Sorte do mar &63 &a e Sedução &63&a.")

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

    // PESCAR

    look(%&dir%);
    look(,-90);
    slot(8);
    keydown(sneak);
    wait(200ms);
    key(use);
    Wait(%&tempo%);
    key(use);
    Wait(200ms);
    keyup(sneak);
    slot(8);


    // REPARAR
    if(%DURABILITY%<20);
    look(,90);
    log("&4[Macro] &6 Durabilidade baixa, reparando...");
    wait(200ms);
    key(use);
    wait(200ms);
    key(use);
    log("&4[Macro] &6 Vara reparada!");
    endif;

    // OLHAR INVENTÁRIO

    if(nf);
    wait(1);
    gui(inventory);
    wait(1);
    getslotitem(35,#id,#stack);
    if(%#stack%=0);
    gui();
    else;

    // IR PARA OS BAUS

    }$$/home baupesca$${
    wait(3);
    do;
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;endif;
    ifmatches(%&dir%,E);&dir=EAST;endif;
    ifmatches(%&dir%,W);&dir=WEST;endif;

    // OLHANDO PARA OS BAUS

    do;
    look(%&dir%);
    if(%#bau%=1);look(-50,-24);endif;
    if(%#bau%=2);look(-39,-28);endif;
    if(%#bau%=3);look(-23,-32);endif;
    if(%#bau%=4);look(+1,-34);endif;
    if(%#bau%=5);look(+23,-32);endif;
    if(%#bau%=6);look(+39,-28);endif;
    if(%#bau%=7);look(+50,-24);endif;
    if(%#bau%=8);look(+61,-23);endif;
    if(%#bau%=9);look(+74,-24);endif;
    if(%#bau%=10);look(+91,-26);endif;
    if(%#bau%=11);look(+104,-25);endif;
    if(%#bau%=12);look(+120,-23);endif;
    if(%#bau%=13);look(+130,-24);endif;
    if(%#bau%=14);look(+141,-28);endif;
    if(%#bau%=15);look(+158,-32);endif;
    if(%#bau%=16);look(-179,-34);endif;
    if(%#bau%=17);look(-159,-32);endif;
    if(%#bau%=18);look(-143,-27);endif;
    if(%#bau%=19);look(-131,-24);endif;
    if(%#bau%=20);look(-120,-23);endif;
    if(%#bau%=21);look(-106,-24);endif;
    if(%#bau%=22);look(-89,-26);endif;
    if(%#bau%=23);look(-75,-25);endif;
    if(%#bau%=24);look(-61,-23);endif;
    if(%#bau%=25);look(-50,-10);endif;
    if(%#bau%=26);look(-39,-12);endif;
    if(%#bau%=27);look(-23,-14);endif;
    if(%#bau%=28);look(+1,-16);endif;
    if(%#bau%=29);look(+23,-14);endif;
    if(%#bau%=30);look(+39,-12);endif;
    if(%#bau%=31);look(+50,-10);endif;
    if(%#bau%=32);look(+61,-10);endif;
    if(%#bau%=33);look(+74,-11);endif;
    if(%#bau%=34);look(+91,-11);endif;
    if(%#bau%=35);look(+104,-11);endif;
    if(%#bau%=36);look(+120,-10);endif;
    if(%#bau%=37);look(+130,-10);endif;
    if(%#bau%=38);look(+141,-12);endif;
    if(%#bau%=39);look(+158,-14);endif;
    if(%#bau%=40);look(-179,-16);endif;
    if(%#bau%=41);look(-159,-14);endif;
    if(%#bau%=42);look(-143,-12);endif;
    if(%#bau%=43);look(-131,-10);endif;
    if(%#bau%=44);look(-120,-10);endif;
    if(%#bau%=45);look(-106,-11);endif;
    if(%#bau%=46);look(-89,-11);endif;
    if(%#bau%=47);look(-75,-11);endif;
    if(%#bau%=48);look(-61,-10);endif;
    if(%#bau%=49);look(-50,+4);endif;
    if(%#bau%=50);look(-39,+4);endif;
    if(%#bau%=51);look(-23,+4);endif;
    if(%#bau%=52);look(+23,+4);endif;
    if(%#bau%=53);look(+39,+4);endif;
    if(%#bau%=54);look(+50,+4);endif;
    if(%#bau%=55);look(+61,+4);endif;
    if(%#bau%=56);look(+74,+4);endif;
    if(%#bau%=57);look(+91,+4);endif;
    if(%#bau%=58);look(+104,+4);endif;
    if(%#bau%=59);look(+120,+4);endif;
    if(%#bau%=60);look(+130,+4);endif;
    if(%#bau%=61);look(+141,+4);endif;
    if(%#bau%=62);look(+158,+4);endif;
    if(%#bau%=63);look(-179,+4);endif;
    if(%#bau%=64);look(-159,+4);endif;
    if(%#bau%=65);look(-143,+4);endif;
    if(%#bau%=66);look(-131,+4);endif;
    if(%#bau%=67);look(-120,+4);endif;
    if(%#bau%=68);look(-106,+4);endif;
    if(%#bau%=69);look(-89,+4);endif;
    if(%#bau%=70);look(-75,+4);endif;
    if(%#bau%=71);look(-61,+4);endif;
    if(%#bau%=72);look(-50,+16);endif;
    if(%#bau%=73);look(-39,+20);endif;
    if(%#bau%=74);look(-23,+22);endif;
    if(%#bau%=75);look(+23,+22);endif;
    if(%#bau%=76);look(+39,+20);endif;
    if(%#bau%=77);look(+50,+16);endif;
    if(%#bau%=78);look(+61,+16);endif;
    if(%#bau%=79);look(+74,+18);endif;
    if(%#bau%=80);look(+91,+18);endif;
    if(%#bau%=81);look(+104,+18);endif;
    if(%#bau%=82);look(+120,+16);endif;
    if(%#bau%=83);look(+130,+16);endif;
    if(%#bau%=84);look(+141,+20);endif;
    if(%#bau%=85);look(+158,+22);endif;
    if(%#bau%=86);look(-179,+24);endif;
    if(%#bau%=87);look(-159,+22);endif;
    if(%#bau%=88);look(-143,+20);endif;
    if(%#bau%=89);look(-131,+16);endif;
    if(%#bau%=90);look(-120,+17);endif;
    if(%#bau%=91);look(-106,+18);endif;
    if(%#bau%=92);look(-89,+19);endif;
    if(%#bau%=93);look(-75,+18);endif;
    if(%#bau%=94);look(-61,+17);endif;
    // DEPOSITANDO AS COISAS NOS BAUS

    wait(3);
    key(use);
    wait(1);
    for(#i,54,87);
    slotclick(%#i%,l,true);
    wait(30ms);
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    inc(#bau);
    endif;
    if(%#bau%=94);
    unset(nf);
    log("&4[Macro] &6Baús cheios! Apenas irá pescar agora.");
    gui();
    else;
    gui();
    endif;
    until(%#stack%=0);

    // VOLTANDO PARA A HOME PESCA

    }$$/home pesca$${
    wait(3)
    endif;endif;

    loop;loop;loop;
    endif;

    ifmatches(%&vip%,^[N|n|NAO|nao]);

    log("&f Para se ter resultado na pesca devese usar varas com encantamento &a sorte do mar &63 &a e Sedução &63&a.");

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



    // PESCANDO E TROCANDO DE VARA

    slot(%#rod%);
    look(%&dir%);
    look(,-90);
    keydown(sneak);
    if(DURABILITY<10);
    inc(#rod);
    endif;
    if(%#rod%=10);
    log("&2Todas as varas estão no &4red &2repareas ou as troque.");
    log("&4[Macro] &6Pesca desativada.");
    unset(rogroote);
    stop();
    endif;
    wait(200ms);
    key(use);
    wait(%&tempo%);
    key(use);
    wait(200ms);
    keyup(sneak);
    endif;

    // OLHAR INVENTÁRIO

    wait(1);
    gui(inventory);
    wait(1);
    getslotitem(35,#id,#stack);
    if(%#stack%=0);
    gui();

    else;


    // IR PARA OS BAUS

    echo(/home baupesca)
    wait(7);
    do;
    until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;endif;
    ifmatches(%&dir%,E);&dir=EAST;endif;
    ifmatches(%&dir%,W);&dir=WEST;endif;
    do;


    // OLHANDO PARA OS BAUS

    look(%&dir%);
    if(%#bau%=1);look(-26,-40);endif;
    if(%#bau%=2);look(+26,-40);endif;
    if(%#bau%=3);look(+65,-40);endif;
    if(%#bau%=4);look(+116,-40);endif;
    if(%#bau%=5);look(+155,-40);endif;
    if(%#bau%=6);look(+206,-40);endif;
    if(%#bau%=7);look(-26,-20);endif;
    if(%#bau%=8);look(+26,-20);endif;
    if(%#bau%=9);look(+65,-20);endif;
    if(%#bau%=10);look(+116,-20);endif;
    if(%#bau%=11);look(+155,-20);endif;
    if(%#bau%=12);look(+206,-20);endif;
    if(%#bau%=13);look(-26,-0);endif;
    if(%#bau%=14);look(+26,-0);endif;
    if(%#bau%=15);look(+65,-0);endif;
    if(%#bau%=16);look(+116,-0);endif;
    if(%#bau%=17);look(+155,-0);endif;
    if(%#bau%=18);look(+206,-0);endif;
    if(%#bau%=19);look(-26,+25);endif;
    if(%#bau%=20);look(+26,+25);endif;
    if(%#bau%=21);look(+65,+25);endif;
    if(%#bau%=22);look(+116,+25);endif;
    if(%#bau%=23);look(+155,+25);endif;
    if(%#bau%=24);look(+206,+25);endif;
    wait(1);



    // DEPOSITANDO AS COISAS NOS BAUS


    wait(5);
    key(use);
    wait(1);
    for(#i,54,80);
    slotclick(%#i%,l,true);
    wait(30ms);
    next;
    wait(500ms);
    getslotitem(53,#id,#stack);
    wait(500ms);
    if(%#stack%!=0);
    inc(#bau);
    endif;
    if(%#bau%=24);
    unset(nf);
    log("&4[Macro] &6Baús cheios! Apenas irá pescar agora.");
    gui();
    else;
    gui();
    endif;
    until(%#stack%=0);


    // VOLTANDO PARA O HOME PESCA

    echo(/home pesca);
    wait(8);
    loop;loop;loop;

    endif;
    loop;




    loop;

    endif;
    }$$
     
  2. TokenBR

    TokenBR Excelente
    VIP

    Afiliado:
    22 Junho 2013
    Mensagens:
    2,868
    Curtidas Recebidas:
    446
    Curtiu:
    724
    Sexo:
    Masculino
    Localização:
    Casa
    Cubos:
    99.70
    Nick:
    zToken
    Clan:
    Nenhum
    vc n vai conseguir pescar no propano cara kkkkkkkkkkkkkk


    Enviado do meu iPhone usando Tapatalk
     
  3. bbebopp heaven

    bbebopp heaven Excelente
    VIP

    Afiliado:
    23 Dezembro 2013
    Mensagens:
    3,920
    Curtidas Recebidas:
    337
    Curtiu:
    148
    Sexo:
    Masculino
    Cubos:
    1,080.00
    Nick:
    Bbebopp
    Clan:
    SoH
    entao né
     
  4. xFranco123

    xFranco123 Neutro
    Banido

    Afiliado:
    23 Julho 2015
    Mensagens:
    233
    Curtidas Recebidas:
    14
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    257.00
    Nick:
    iTuberXD
    Clan:
    acN/RDC/TNT
    KKKKKKKKKKKKKKKKKK PESCA NO PROPANO
     
  5. zPropano

    zPropano Neutro

    Afiliado:
    25 Dezembro 2015
    Mensagens:
    5
    Curtidas Recebidas:
    1
    Curtiu:
    0
    Cubos:
    6.00
    Nick:
    Propano
    Clan:
    CL
    Porque você quer me pescar?
     
  6. Magma05

    Magma05 Neutro

    Afiliado:
    15 Dezembro 2015
    Mensagens:
    374
    Curtidas Recebidas:
    40
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Planeta Terra
    Cubos:
    389.00
    Nick:
    Magma05_BR
    Clan:
    Nenhum no Momento
    Skype:
    Marcos Junior2004
    Twitter:
    @MarcosJunior052
    Pesca no Propano? '-'
     
  7. ♕ByStarS♕

    ♕ByStarS♕ Excelente
    VIP

    Afiliado:
    26 Agosto 2015
    Mensagens:
    6,516
    Curtidas Recebidas:
    226
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Curitiba-PR
    Cubos:
    146.00
    Nick:
    ByStarS
    Pesca no propano?
     
  8. bieelsz

    bieelsz Hardcore
    VIP

    Afiliado:
    2 Março 2014
    Mensagens:
    20,482
    Curtidas Recebidas:
    2,615
    Curtiu:
    1,187
    Sexo:
    Masculino
    Cubos:
    2,494.00
    Nick:
    bieelsz
    Discord:
    bieelsz#9847
    Pescar no propano? Sv é 1.8 ;-;
     
  9. Y9T1N

    Y9T1N Bom
    Banido

    Afiliado:
    1 Agosto 2014
    Mensagens:
    3,694
    Curtidas Recebidas:
    112
    Curtiu:
    102
    Cubos:
    498.00
    Nick:
    FinaTTi
    Clan:
    NwF
    KAKAKAKAKAK pesca no propano huwae
     
Status do Tópico:
Não esta aberto para novas mensagens.