ENTREGUE pesca substituto guarda livros

Discussão em 'Macro Entregue' iniciado por skingtonHD, 7 Abril 2015.

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

    VIP

    Afiliado:
    10 Julho 2013
    Mensagens:
    848
    Curtidas Recebidas:
    130
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Juiz de...
    Cubos:
    1,148.00
    Nick:
    skingtonHD
    Clan:
    DrT
    Facebook:
    yan campos
    Skype:
    yan campos
    bom pessoal eu não vi ninguém que tenha editado essa macro eu fiz um pequeno edit para guardar os livros de tesouro
    ATÇ: essa macro não é minha essa macro é do substituto link: http://forum.craftlandia.com.br/ipb/index.php?/topic/400104-macro-pesca-do-substituto-152/
    código
    $${
    IF(subs);
    LOG("&4[Macro] &cPesca do %PLAYER% &4DESLIGADO&c.");
    UNSET(subs);
    STOP;
    ELSE;
    PICK(346);
    IF(%ITEM%!=346);
    LOG("&4[Macro] &cEsqueceu sua vara de pescar &4!!!");
    LOG("&4[Macro] &cPesca do %PLAYER% &4DESLIGADO&c.");
    STOP;
    ENDIF;
    LOG("&2[Macro] &aPesca do %PLAYER% &2LIGADO&a.");
    #xpescar=%XPOS%;#zpescar=%ZPOS%;#ypescar=%YPOS%;
    SET(subs);
    SET(baus);
    ENDIF;

    &guardar="^264$|^265$|^266$|^276$|^277$|^278$|^279$|^310$|^311$|^312$|^313$|^349|^351|^369$|^370$|^2256$|^2257$|^2258$|^2259$|^2260$|^2261$|^2262$|^2263$|^2264$|^2265$|^2266$|^2267$|^387$";
    DO;GUI(INVENTORY);WAIT(1);UNTIL(%GUI%="GUIINVENTORY");
    LOOK(,0);LOOK(,-90);
    DO;
    IF(baus);
    GETSLOTITEM(35,#id,#stack);
    IF(%#stack%!=0);
    LOOK(,0);
    WAIT(1);
    #vazio=0;
    FOR(#i,9,44);
    GETSLOTITEM(%#i%,#id,#stack);
    IFMATCHES(%#id%,%&guardar%|^346$|^287$);
    ELSE;
    SLOTCLICK(%#i%);
    SLOTCLICK(-999);
    IF(%#i%!=35);#vazio=%#i%;ENDIF;
    WAIT(80ms);
    ENDIF;
    NEXT;
    GETSLOTITEM(35,#id,#stack);
    IF(%#stack%!=0);
    IF(%#vazio%!=0);
    SLOTCLICK(35);SLOTCLICK(%#vazio%);
    ELSE;
    LOG("&2[Macro] &aInventário cheio, partiu guardar nos baús &2!!!");
    }$$/home guardar$${
    DO;UNTIL((%HITID%=54)||(%HITID%=146));
    #start=54;
    DO;
    DO;KEY(USE);WAIT(1);UNTIL(%GUI%="GUICHEST");
    FOR(#i,%#start%,89);
    GETSLOTITEM(53,#id,#stacky);WAIT(30ms);
    IF(%#stacky%!=0);#start=%#i%;BREAK;ENDIF;
    GETSLOTITEM(%#i%,#id,#stack);WAIT(30ms);
    IF((%#id%!=346)&&(%#id%!=287));SLOTCLICK(%#i%,l,true);ENDIF;
    NEXT;
    IF(%#stacky%!=0);
    GUI;
    #posx=%XPOS%;#posz=%ZPOS%;KEYDOWN(RIGHT);KEYDOWN(SNEAK);
    DO;WAIT(10MS);UNTIL((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
    WAIT(150ms);KEYUP(SNEAK);KEYUP(RIGHT);
    #cont=0;DO;WAIT(1);INC(#cont);IF(%#cont%>3);BREAK;ENDIF;UNTIL((%HITID%=54)||(%HITID%=146));
    IF((%HITID%=54)||(%HITID%=146));
    }$$/sethome guardar$${
    ELSE;
    #ylook=%HITY%-%YPOS%;
    IF((%#ylook%<0)|(%#ylook%>2));
    unset(baus);
    LOG("&2[Macro] &aAcabaram os baús, apenas &2PESCANDO&a.");
    BREAK;
    ENDIF;
    }$$/home baus$${
    DO;UNTIL((%HITID%=54)||(%HITID%=146));
    IF(%#ylook%=0);LOOK(,0);ENDIF;
    IF(%#ylook%=1);LOOK(,0);LOOK(,-30);ENDIF;
    IF(%#ylook%=2);LOOK(,0);LOOK(,-50);ENDIF;
    WAIT(1);
    #cont=0;DO;WAIT(1);INC(#cont);IF(%#cont%>3);BREAK;ENDIF;UNTIL((%HITID%=54)||(%HITID%=146));
    IF((%HITID%=54)||(%HITID%=146));
    }$$/sethome guardar$${
    ELSE;
    unset(baus);
    LOG("&2[Macro] &aAcabaram os baús, apenas &2PESCANDO&a.");
    BREAK;
    ENDIF;
    ENDIF;
    ENDIF;
    UNTIL(%#stacky%=0);
    }$$/home pescar$${
    DO;UNTIL((%XPOS%=%#xpescar%)&&(%ZPOS%=%#zpescar%));
    ENDIF;
    ENDIF;
    ENDIF;
    LOOK(,0);LOOK(,-90);
    ENDIF;
    IF((%XPOS%!=%#xpescar%)|(%ZPOS%!=%#zpescar%));
    }$$/home pescar$${
    DO;UNTIL((%XPOS%=%#xpescar%)&&(%ZPOS%=%#zpescar%));
    LOOK(,0);LOOK(,-90);
    ENDIF;
    IF(%YPOS%!=%#ypescar%);
    DO;KEYDOWN(JUMP);WAIT(300ms);KEYUP(JUMP);WAIT(2);UNTIL(%YPOS%=%#ypescar%);
    LOOK(,0);LOOK(,-90);
    ENDIF;

    IF(%DURABILITY%<15);
    GETSLOT(287,#u);
    IF(%#u%=-1);
    LOG("&4[Macro] &cAcabou a linha, não tem como reparar &4!!!");
    LOG("&4[Macro] &cPesca do %PLAYER% &4DESLIGADO&c.");
    UNSET(subs);GUI;STOP;
    ENDIF;
    LOOK(,90);
    DO;KEY(USE);WAIT(1);UNTIL(%DURABILITY%>15);
    GETSLOT(287,#v);
    IF(%#v%=-1);
    GUI;
    LOOK(,60);
    wait(1);
    IF((%HITID%=54)||(%HITID%=146));
    DO;KEY(USE);WAIT(1);UNTIL(%GUI%="GUICHEST");
    GETSLOT(287,#v);
    IF(%#v%!=-1);
    INC(#u,18);
    SLOTCLICK(%#v%);
    SLOTCLICK(%#u%);
    ENDIF;
    DO;PRESS(ESCAPE);WAIT(1);UNTIL(%GUI%="NONE");
    ENDIF;
    ENDIF;
    LOOK(,0);LOOK(,-90);
    ENDIF;
    IF(%GUI%="NONE");
    DO;WAIT(3);IF(%GUI%="NONE");GUI(INVENTORY);ENDIF;UNTIL(%GUI%="GUIINVENTORY");
    LOOK(,0);LOOK(,-90);
    ENDIF;
    KEY(USE);WAIT(10ms);KEY(USE);WAIT(10ms);
    LOOP;
    }$$


    só isso pessoal
     
    Gustaviros curtiu isso.
  2. Crodi

    Crodi Neutro
    VIP

    Afiliado:
    29 Dezembro 2014
    Mensagens:
    140
    Curtidas Recebidas:
    31
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    278.00
    Nick:
    Crodao
    Livros encantados funcionam na craftlandia? Eu jogo no hardcore e achava que livros eram inuteis por nao ter a bigorna.
     
    skingtonHD curtiu isso.
  3. SrNick

    SrNick Bom
    VIP

    Afiliado:
    14 Junho 2014
    Mensagens:
    3,128
    Curtidas Recebidas:
    126
    Curtiu:
    0
    Sexo:
    Feminino
    Localização:
    No pc ??
    Cubos:
    53.00
    Nick:
    souonick
    Clan:
    Sem
    Skype:
    jogocobatarms
    Os livros servem para o tesouro...
     
    skingtonHD curtiu isso.
  4. iKeepHard

    iKeepHard Craftlandiano
    VIP

    Afiliado:
    24 Março 2014
    Mensagens:
    10,014
    Curtidas Recebidas:
    689
    Curtiu:
    1,531
    Sexo:
    Masculino
    Cubos:
    1,119.10
    Nick:
    Testando :p
     
    skingtonHD curtiu isso.
  5. rafael001577

    rafael001577 Craftlandiano

    Afiliado:
    14 Junho 2012
    Mensagens:
    7,256
    Curtidas Recebidas:
    864
    Curtiu:
    1,494
    Sexo:
    Masculino
    Cubos:
    532.00
    Nick:
    rafael001577
    Clan:
    MyT
    Vo testa
     
    skingtonHD curtiu isso.
  6. Feos

    Feos Craftlandiano
    VIP

    Afiliado:
    21 Janeiro 2014
    Mensagens:
    7,924
    Curtidas Recebidas:
    723
    Curtiu:
    343
    Sexo:
    Masculino
    Cubos:
    218.00
    Nick:
    Feos
    booa , vo testar
     
    skingtonHD curtiu isso.
  7. MonsterKiLL

    MonsterKiLL Craftlandiano
    VIP

    Afiliado:
    13 Novembro 2013
    Mensagens:
    9,304
    Curtidas Recebidas:
    584
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    537.00
    Nick:
    yMonsterKiLL
    Boa crl .
     
    MonsterKiLL00 e skingtonHD curtiram isso.
  8. Nmkz Minato

    Nmkz Minato Excelente
    VIP

    Afiliado:
    13 Março 2014
    Mensagens:
    4,044
    Curtidas Recebidas:
    264
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Brasília
    Cubos:
    1,437.00
    Nick:
    Zaphk
    Skype:
    ...
     
    skingtonHD curtiu isso.
  9. TioNog

    TioNog Hardcore
    VIP

    Afiliado:
    21 Abril 2014
    Mensagens:
    11,523
    Curtidas Recebidas:
    2,465
    Curtiu:
    1,820
    Sexo:
    Masculino
    Localização:
    Goiânia
    Cubos:
    1,276.00
    Nick:
    TioNog
    Twitter:
    @guinvd
     
    zDamnVendedor e skingtonHD curtiram isso.
  10. skingtonHD

    VIP

    Afiliado:
    10 Julho 2013
    Mensagens:
    848
    Curtidas Recebidas:
    130
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Juiz de...
    Cubos:
    1,148.00
    Nick:
    skingtonHD
    Clan:
    DrT
    Facebook:
    yan campos
    Skype:
    yan campos
    tinha um pequeno bug mais eu ja corrigi
     
  11. alok

    alok Hardcore
    VIP

    Afiliado:
    3 Julho 2014
    Mensagens:
    10,890
    Curtidas Recebidas:
    2,062
    Curtiu:
    1,176
    Sexo:
    Feminino
    Localização:
    Goiânia - GO
    Cubos:
    725.24
    Nick:
    aloktryhard
    Clan:
    QuB
    Obg me ajudo bastante
     
  12. skingtonHD

    VIP

    Afiliado:
    10 Julho 2013
    Mensagens:
    848
    Curtidas Recebidas:
    130
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Juiz de...
    Cubos:
    1,148.00
    Nick:
    skingtonHD
    Clan:
    DrT
    Facebook:
    yan campos
    Skype:
    yan campos
    nada cara, se tiver algum bug pode falar
     
  13. Fiida

    Fiida Craftlandiano
    VIP

    Afiliado:
    21 Janeiro 2014
    Mensagens:
    4,697
    Curtidas Recebidas:
    931
    Curtiu:
    307
    Sexo:
    Feminino
    Localização:
    Alabama
    Cubos:
    1,770.00
    Nick:
    Rabby
    Booa parsa.
     
    skingtonHD curtiu isso.
  14. edsoneduardo

    edsoneduardo Neutro

    Afiliado:
    6 Julho 2012
    Mensagens:
    253
    Curtidas Recebidas:
    25
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    228.00
    Nick:
    eShinigami
    tbm editei meu macro, e agora guarda
     
    skingtonHD curtiu isso.
  15. skingtonHD

    VIP

    Afiliado:
    10 Julho 2013
    Mensagens:
    848
    Curtidas Recebidas:
    130
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Juiz de...
    Cubos:
    1,148.00
    Nick:
    skingtonHD
    Clan:
    DrT
    Facebook:
    yan campos
    Skype:
    yan campos
    vlw S2 é nois q ta na shout
     
  16. skingtonHD

    VIP

    Afiliado:
    10 Julho 2013
    Mensagens:
    848
    Curtidas Recebidas:
    130
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Juiz de...
    Cubos:
    1,148.00
    Nick:
    skingtonHD
    Clan:
    DrT
    Facebook:
    yan campos
    Skype:
    yan campos
    achei que tava certo o cod do livro mas n tava ja coloquei o certo
     
  17. LukasBRZ

    LukasBRZ Craftlandiano
    Banido

    Afiliado:
    8 Abril 2015
    Mensagens:
    2,887
    Curtidas Recebidas:
    557
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Brasília
    Cubos:
    325.00
    Nick:
    yFigarol | Figarol
    Clan:
    -
  18. cleudojunior

    cleudojunior Neutro
    VIP

    Afiliado:
    13 Novembro 2013
    Mensagens:
    365
    Curtidas Recebidas:
    42
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    /home...
    Cubos:
    433.00
    Nick:
    CleudoJunior
    Clan:
    STG
  19. l Tiago l

    l Tiago l Craftlandiano
    VIP

    Afiliado:
    10 Outubro 2013
    Mensagens:
    9,284
    Curtidas Recebidas:
    1,865
    Curtiu:
    458
    Sexo:
    Masculino
    Localização:
    Florianópoli...
    Cubos:
    125.00
    Nick:
    Tiago_Player
    meu pesca organizada ja guarda <3
     
Status do Tópico:
Não esta aberto para novas mensagens.