[PEDIDO]Edição de uma macro

Bem-vindo!

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

Registrar agora!
  • PROMOÇÃO DE NATAL NO AR

    Novo servidor: CraftLandia Olimpo


Status
Não está aberto para novas respostas.

Marcos4695

Bom
VIP
Entrou
Abr 14, 2014
Mensagens
1,137
Pontuação de reação
151
Idade
23
Cubos
0
Bem primeiramente, não sei onde postar um pedido já que tiraram a área de programação.

Olá, venho aqui pedir a edição de uma macro de escavação.
A edição é o seguinte : Quero que ela guarda os itens quando o inventario estiver cheio, guardando em homes, /home esc1 esc2 esc3 esc4 esc5 esc6 esc7 esc8 esc9 esc10, vou postar uma imagem para ver os slots q devem guardar.

zC1Hu4k.png
A linhas vermelhas e os slots que o macro deve guardar e as verdes é as que ele não deve guardar.
Obrigada para quem tentar editar e me ajudar :D
@EDIT@ Código
$${
if(escavar);
log("&d{MACRO} &6Escavar &6por FroesPvp&4[OFF]");
unset(escavar);
stop();
else;
log("&d{MACRO} &6Escavar &6por FroesPvp&a[ON]");
set(escavar);

&dir = %DIRECTION%;
#v=40;
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;
Do;
pick(256);

if(%DURABILITY%<40);
look(0,90);
log(&d{MACRO}&b Durabilidade baixa, processo de reparar inciado!);
wait(500ms);
key(use);
wait(500ms);
key(use);
log(&d{MACRO}&b Pá reparada com sucesso!);
log(&d{MACRO}&b Processo de escavar retomado!);
endif;
look(%&dir%);
look(,70);
do(3)
PICK(13);
KEY(use);
wait(1ms);
PICK(256);
KEY(attack);
wait(1ms);
Loop;
lOOp;
}$$
 
Man porq vc n usa a cava-cava? ela faz as mesmas coisas da macro acima e guarda em 10 baus

Enviado de meu GT-I9192 usando Tapatalk
 
Tentei editar aqui, porém pode existir bugs. A macro vai verificar o inventario a cada 2:30 min aprox. vai organizar o inventario (descer gravel e subir outros itens da hotbar) e verificar se tem algo no penúltimo slot do inventario, se houver, ele vai guardar nos 10 baús tudo menos a pá, o gravel e o ferro, e vai voltar a upar.

$${

if(escavar);
log("&d{MACRO} &6Escavar &6por FroesPvp&4[OFF]");
unset(escavar);
stop();
else;
log("&d{MACRO} &6Escavar &6por FroesPvp&a[ON]");
set(escavar);

&dir = %DIRECTION%;
#v=40;
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;
#bau=1;
do;
do(250);
pick(256);

if(%DURABILITY%<40);
look(0,90);
log(&d{MACRO}&b Durabilidade baixa, processo de reparar inciado!);
wait(500ms);
key(use);
wait(500ms);
key(use);
log(&d{MACRO}&b Pá reparada com sucesso!);
log(&d{MACRO}&b Processo de escavar retomado!);
endif;
if(%DURABILITY%<10);
unset(escavar);
stop();
log(&d{MACRO}&b Durabilidade baixa, sem material para reparar!);
endif;
look(%&dir%);
look(,70);
do(3)
PICK(13);
KEY(use);
wait(1ms);
PICK(256);
KEY(attack);
wait(1ms);
Loop;
loop;
if(nf);
Wait(200ms);
gui(inventory);
wait(1000ms);
for(#slot,36,44);
getslotitem(%#slot%,#id,#stack);
if((%#id%=13)|(%#id%=256));
next;
else;
slotclick(%#slot%,l,true);
wait(185ms);
endif;
next;
for(#slot,9,35);
getslotitem(%#slot%,#id,#stack);
if(%#id%=13);
slotclick(%#slot%,l,true);
wait(185ms);
endif;
next;
getslotitem(34,#id,#stack);
if(%#stack%=0);
gui();
else;
do;
wait(1);

}$$


$${if(%#bau%=1);}$$
/home esc1
$${endif;}$$
$${if(%#bau%=2);}$$
/home esc2
$${endif;}$$
$${if(%#bau%=3);}$$
/home esc3
$${endif;}$$
$${if(%#bau%=4);}$$
/home esc4
$${endif;}$$
$${if(%#bau%=5);}$$
/home esc5
$${endif;}$$
$${if(%#bau%=6);}$$
/home esc6
$${endif;}$$
$${if(%#bau%=7);}$$
/home esc7
$${endif;}$$
$${if(%#bau%=8);}$$
/home esc8
$${endif;}$$
$${if(%#bau%=9);}$$
/home esc9
$${endif;}$$
$${if(%#bau%=10);}$$
/home esc10
$${endif;}$$



$${

wait(5);keydown(jump);wait(1);keyup(jump);wait(1);
key(use);
wait(1);
for(#slotn,54,89);
GETSLOTITEM(%#slotn%,#id,#stack);
if((%#id%=256) || (%#id%=13) || (%#id%=265));
else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);inc(#bau);

endif;
if(%#bau%=11);
unset(nf);
log(&d&l[MACRO] &b"Baús cheios! Voltando a escavar.");
gui();
else;
gui();
endif;
until(%#stack%=0);

}$$

/home escavar

$${
Wait(5);keydown(jump);wait(1);keyup(jump);wait(1);endif;endif; loop;

}$$
 
Status
Não está aberto para novas respostas.

Usuários que estão visualizando este tópico

Voltar
Topo