[Resolvido][Em andamento] Macro PESCA

Discussão em 'Dúvidas gerais resolvidas' iniciado por Cleu0507, 30 Outubro 2013.

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

    Cleu0507 Neutro

    Afiliado:
    21 Setembro 2013
    Mensagens:
    134
    Curtidas Recebidas:
    10
    Curtiu:
    0
    Cubos:
    143.00
    Nick:
    Cleu0507
    Este MACRO de Pesca é o que Pesca e os Itens recolhidos são guardados no Baú e a vara é reparada no final....
    Mas não quero que exista esse FINAL
    Pois a vara é reparada e o macro PARA
    Quero que aós o reparo ela ainda continue pescando...
    Alguém sabe como ??

    $${
    IF(pesca);
    LOG("&3[MathCraft] &6Pesca &4[OFF]");
    IF(%#peixe%=1);
    &peixes =;
    ELSE;
    &peixes = s;
    ENDIF;
    IF(%#item%=1);
    &itens = m;
    ELSE;
    &itens = ns;
    ENDIF;
    LOG("&6Você pescou: &3%#peixe% &6peixe%&peixes% e &3%#item% &6ite%&itens%);
    IF(pescando);
    KEY(Use);
    ENDIF;
    UNSET(pesca);
    UNSET(segundoplano);
    STOP(P);
    ELSE;
    LOG("&3[MathCraft] &6Pesca &2[ON]");
    SET(pesca);

    #item = 0;
    #peixe = 0;
    #slotbau = 0;
    #slotinv = 0;
    @#pickupidi =;
    @#pickupidp =;

    IFMATCHES(%DIRECTION%,N);
    &frente = NORTH;
    &direita = EAST;
    &atras = SOUTH;
    &esquerda = WEST;
    ENDIF;
    IFMATCHES(%DIRECTION%,S);
    &frente = SOUTH;
    &direita = WEST;
    &atras = NORTH;
    &esquerda = EAST;
    ENDIF;
    IFMATCHES(%DIRECTION%,W);
    &frente = WEST;
    &direita = NORTH;
    &atras = EAST;
    &esquerda = SOUTH;
    ENDIF;
    IFMATCHES(%DIRECTION%,E);
    &frente = EAST;
    &direita = SOUTH;
    &atras = WEST;
    &esquerda = NORTH;
    ENDIF;

    PICK(346);
    GUI(Inventory);

    DO;

    LOOK(%&frente%);
    LOOK(,-90);
    DO;
    IF(%@#pickupidi% != 0);
    GUI(Inventory);
    WAIT(500ms);
    GETSLOT(%@#pickupidi%,#slotinv);
    WAIT(250ms);
    LOG("&6Item PESCADO! &3(%@&pickupitemi%)");
    #slotbau = %#slotinv%+45;
    WAIT(500ms);
    LOOK(%&esquerda%);
    KEY(Use);
    WAIT(100ms);
    GETSLOTITEM(53,#baucheck);
    IF(%#baucheck% != 0);
    WAIT(500ms);
    GUI(Inventory);
    LOOK(%&direita%);
    KEY(Use);
    WAIT(500ms);
    SLOTCLICK(%#slotbau%,l,true);
    GUI(Inventory);
    ELSE;
    WAIT(500ms);
    SLOTCLICK(%#slotbau%,l,true);
    WAIT(500ms);
    GUI(Inventory);
    ENDIF;
    INC(#item);
    #slotbau = 0;
    #slotinv = 0;
    @#pickupidi = 0;
    LOOK(%&frente%);
    LOOK(,-90);
    ENDIF;
    IF(%@#pickupidp% != 0)
    LOG("&6Peixe PESCADO! &3(%@&pickupitemp%)");
    INC(#peixe);
    @#pickupidp = 0;
    ENDIF;
    KEY(Use);
    SET(pescando);
    WAIT(110ms);
    KEY(Use);
    UNSET(pescando);
    UNTIL(%DURABILITY% < 5);
    LOOK(%&frente%);
    LOOK(,+90);
    DO(3);
    KEY(Use);
    LOOP;
    WAIT(500ms);
    IF(%DURABILITY% < 7);
    LOG("&3[MathCraft] &6Pesca &4[OFF]");
    IF(%#peixe%=1);
    &peixes =;
    ELSE;
    &peixes = s;
    ENDIF;
    IF(%#item%=1);
    &itens = m;
    ELSE;
    &itens = ns;
    ENDIF;
    LOG("&6Você pescou: &3%#peixe% &6peixe%&peixes% e &3%#item% &6ite%&itens%);
    IF(pescando);
    KEY(Use);
    ENDIF;
    UNSET(pesca);
    UNSET(segundoplano);
    STOP();
    ENDIF;
    LOOP;
    ENDIF;
    }$$
     
  2. lucasmastercr7

    VIP

    Afiliado:
    24 Março 2013
    Mensagens:
    540
    Curtidas Recebidas:
    35
    Curtiu:
    184
    Sexo:
    Masculino
    Localização:
    Pesqueiro
    Cubos:
    645.00
    Nick:
    Fire0102
    Clan:
    LDP
    Post bugou,era pra ser em outro tópico...
     
  3. Stronus

    Stronus Craftlandiano

    Afiliado:
    30 Junho 2012
    Mensagens:
    3,794
    Curtidas Recebidas:
    866
    Curtiu:
    976
    Sexo:
    Masculino
    Cubos:
    876.00
    Nick:
    Stronus
  4. redrobot1

    redrobot1 Razoavel
    Banido

    Afiliado:
    29 Junho 2013
    Mensagens:
    348
    Curtidas Recebidas:
    70
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    433.00
    Nick:
    redrobot1
    [hr]
    Estamos analisando seu caso, em breve será postado aqui uma resposta!

    Obs: Está mensagem é automatica.
     
  5. Cleu0507

    Cleu0507 Neutro

    Afiliado:
    21 Setembro 2013
    Mensagens:
    134
    Curtidas Recebidas:
    10
    Curtiu:
    0
    Cubos:
    143.00
    Nick:
    Cleu0507
  6. redrobot1

    redrobot1 Razoavel
    Banido

    Afiliado:
    29 Junho 2013
    Mensagens:
    348
    Curtidas Recebidas:
    70
    Curtiu:
    0
    Sexo:
    Masculino
    Cubos:
    433.00
    Nick:
    redrobot1
Status do Tópico:
Não esta aberto para novas mensagens.