ENTREGUE [MACRO]Pega/Guarda item em baus duplos

Bem-vindo!

Ao se registrar conosco, você poderá discutir, compartilhar e enviar mensagens privadas com outros membros da nossa comunidade.

Inscreva-se agora!
Status
Não está aberto para novas respostas.

Xtycon

Bom
VIP
Entrou
Jan 22, 2014
Mensagens
634
Cubos
0
Eae gente, venho trazer uma macro q eu fiz que ajuda na hora de pegar ou guarda varios itens iguais em um bau duplo.

Crie um arquivo de texto com o nome que quiser (exemplo: PegaItem) e cole o codigo abaixo.


SET(&resp,$$[Acao[Pegar,Guardar]]);

IF(%&resp%="Pegar");

IF(%ITEM%!=0);
SET(#item,%ITEM%);
ACHIEVEMENTGET(Pegando o item,%#item%);
ELSE;
PROMPT(#item,$$i,Item);
ACHIEVEMENTGET(Pegando o item,%#item%);
ENDIF;
SET(#slot,0);
SET(#quant,0);
KEY(USE);
WAIT(1);
DO();
GETSLOTITEM(%#slot%,#itembau,#stack);
WAIT(1ms);
IF(%#itembau%=%#item%);
SLOTCLICK(%#slot%,left,true);
INC(#quant,%#stack%);
ENDIF;
IF(%#slot%=54);
PRESS(ESCAPE);
LOG(&6Foi pego &c%#quant% &6itens);
BREAK();
ELSE;
INC(#slot,1);
ENDIF;
LOOP();

ELSE;

IF(%ITEM%!=0);
SET(#item,%ITEM%);
ACHIEVEMENTGET(Guardando o item,%#item%);
ELSE;
PROMPT(#item,$$i,Item);
ACHIEVEMENTGET(Guardando o item,%#item%);
ENDIF;
SET(#slot,54);
SET(#quant,0);
KEY(USE);
WAIT(1);
DO();
GETSLOTITEM(%#slot%,#itembau,#stack);
WAIT(1ms);
IF(%#itembau%=%#item%);
SLOTCLICK(%#slot%,left,true);
INC(#quant,%#stack%);
ENDIF;
IF(%#slot%=90);
PRESS(ESCAPE);
LOG(&6Foi guardado &c%#quant% &6itens);
BREAK();
ELSE;
INC(#slot,1);
ENDIF;
LOOP();

ENDIF;

Depois va em uma tecla qualquer e coloque o $${$$<nomequevocedeu.txt>}$$ (exemplo: $${$$<PegaItem.txt>}$$).

Tutorial basico de como usar

Para ativar olhe para o bau que vai usar e ative o macro. (AVISO: só funciona com bau duplo)

Quando voce ativa o macro ele vai perguntar se é pra pegar ou guardar

se vc tiver segurando algum item na mao ele vai fazer a açao desejada com o item q vc ta segurando. ou se voce nao tiver segurando nada ele vai abrir uma lista com todos os itens do jogo pra voce escolher e faz a açao.

Ele fecha o inventario automaticamente quando acabar (é bom usar em baus com muitas coisas repetidas ex: baus cheios de fungo etc.)

Pode ocorrer alguns bugzinhos dependendo do lag do servidor

Macro feito por mim e Obrigado pela atençao
 
Xtycon disse:
Eae gente, venho trazer uma macro q eu fiz que ajuda na hora de pegar ou guarda varios itens iguais em um bau duplo.

Crie um arquivo de texto com o nome que quiser (exemplo: PegaItem) e cole o codigo abaixo.


SET(&resp,$$[Acao[Pegar,Guardar]]);

IF(%&resp%="Pegar");

IF(%ITEM%!=0);
SET(#item,%ITEM%);
ACHIEVEMENTGET(Pegando o item,%#item%);
ELSE;
PROMPT(#item,$$i,Item);
ACHIEVEMENTGET(Pegando o item,%#item%);
ENDIF;
SET(#slot,0);
SET(#quant,0);
KEY(USE);
WAIT(1);
DO();
GETSLOTITEM(%#slot%,#itembau,#stack);
WAIT(1ms);
IF(%#itembau%=%#item%);
SLOTCLICK(%#slot%,left,true);
INC(#quant,%#stack%);
ENDIF;
IF(%#slot%=54);
PRESS(ESCAPE);
LOG(&6Foi pego &c%#quant% &6itens);
BREAK();
ELSE;
INC(#slot,1);
ENDIF;
LOOP();

ELSE;

IF(%ITEM%!=0);
SET(#item,%ITEM%);
ACHIEVEMENTGET(Guardando o item,%#item%);
ELSE;
PROMPT(#item,$$i,Item);
ACHIEVEMENTGET(Guardando o item,%#item%);
ENDIF;
SET(#slot,54);
SET(#quant,0);
KEY(USE);
WAIT(1);
DO();
GETSLOTITEM(%#slot%,#itembau,#stack);
WAIT(1ms);
IF(%#itembau%=%#item%);
SLOTCLICK(%#slot%,left,true);
INC(#quant,%#stack%);
ENDIF;
IF(%#slot%=90);
PRESS(ESCAPE);
LOG(&6Foi guardado &c%#quant% &6itens);
BREAK();
ELSE;
INC(#slot,1);
ENDIF;
LOOP();

ENDIF;
Depois va em uma tecla qualquer e coloque o $${$$<nomequevocedeu.txt>}$$ (exemplo: $${$$<PegaItem.txt>}$$).

Tutorial basico de como usar

Para ativar olhe para o bau que vai usar e ative o macro. (AVISO: só funciona com bau duplo)

Quando voce ativa o macro ele vai perguntar se é pra pegar ou guardar

se vc tiver segurando algum item na mao ele vai fazer a açao desejada com o item q vc ta segurando. ou se voce nao tiver segurando nada ele vai abrir uma lista com todos os itens do jogo pra voce escolher e faz a açao.

Ele fecha o inventario automaticamente quando acabar (é bom usar em baus com muitas coisas repetidas ex: baus cheios de fungo etc.)

Pode ocorrer alguns bugzinhos dependendo do lag do servidor

Macro feito por mim e Obrigado pela atençao
Eu queria colocar no meu macro pra ele dar home e pegar itens no bau e voltar a upar na home que estava , voce pode me ajudar?
 
Korzus, em 04 Mar 2015 - 2:24 PM, disse:
Korzus disse:
Eu queria colocar no meu macro pra ele dar home e pegar itens no bau e voltar a upar na home que estava , voce pode me ajudar?
É so pegar o final da sua macro e colocar o texto é facil
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Voltar
Topo