ENTREGUE [Macro] Projeto Multi-storage

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.
S

salucci

Razoavel
VIP
Entrou
Nov 28, 2011
Mensagens
178
Cubos
0
msalucci aqui, depois de muito tempo sem jogar minecraft to voltando aos poucos e estou aprendendo syntaxe das macros, faço faculdade na área de programação, por isso acho que é mais uma oportunidade de aprendizado. vamos ao que interessa:

percebi que GRANDE parte das macros postadas aqui no fórum utilizam poucos baús e quando tem disponibilidade de uma grande quantidade você deve dar um sethome para cada baú ou conjunto que além de poluir seu listhomes praticamente impossibilita a utilização por quem não é vip, pensando nisso eu desenvolvi um pequeno projeto chamado Mstorage (Multi-storage) que sim, foi inspirado no meu nick.

Basicamente com apenas 1 sethome é possivel ter TONELADAS de baús, porem não recomendo quantidades acimas de 400 baús por exemplo que tornaria lento o processo de andar até o baú.

pRwYrll.png
kU7hmHV.png

HGoMpDP.png


Basicamente esta macro sozinha não faz nada, é um mini-projeto muito simples e pode ser importado para a maioria das macros que utilizam baús para guardar ou recolher items.

Atualmente é possivel apenas testa-la setando a home mstorage no primeiro baú do conjunto, a macro irá andar para a direita e abrir o baú de acordo com o numero informado, a contagem é feita de cima para baixa depois da esquerda para a direita, deve ser empilhados 4 baús (duplos) com a menor face para fora.


deixem links com sugestões de que macro eu devo implantar o multi-storage, o(s) mais votado(s) eu mesmo irei importar.

forte abraço , flw.

macro code:
$${
if(mstorage);
log("&4[Macro] Mstorage [OFF]");unset(mstorage);keyup(RIGHT);stop();
else;
log("&2[Macro] Mstorage [ON]");set(mstorage);
do();
PROMPT(#nbau,$$?,"Digite o numero do baú:");
wait(100ms);#msxpos=%XPOS%;#mszpos=%ZPOS%;}$$/home mstorage$${do();wait(100ms);until((%#msxpos%!=%XPOS%)|(%#mszpos%!=%ZPOS%));wait(200ms);keydown(jump);wait(100ms);keyup(jump);wait(1);
log("&2[Macro] Cheguei na home!");#msxpos=%XPOS%;#mszpos=%ZPOS%;
&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;
look(%&dir%);
if(%#nbau%<5);#calctemp=0;
else;#calctemp=(%#nbau%-1)/4;endif;
//procura fileira
keydown(RIGHT);do();wait(10ms);until((%#mszpos%=%ZPOS%+%#calctemp%)|(%#mszpos%=%ZPOS%-%#calctemp%)|(%#msxpos%=%XPOS%+%#calctemp%)|(%#msxpos%=%XPOS%-%#calctemp%));keyup(RIGHT);
#calctemp=(%#nbau%-(%#calctemp%*4))-1;
//procura baú
if(%#calctemp%=0);look(+0,-45);endif;
if(%#calctemp%=1);look(+0,-35);endif;
if(%#calctemp%=2);look(+0,+0);endif;
if(%#calctemp%=3);look(+0,+35);endif;
gui();wait(1);key(use);wait(3);gui();
PROMPT(&return,$$?,"Acertei? S ou N");
ifmatches(%&return%,^[S|s]);wait(200ms);keydown(jump);wait(3);keyup(jump);wait(1);else;log("&2[Macro] Reporte o mal funcionamento no fórum!");unset(mstorage);stop();endif();
loop();
endif;
}$$

eVpGuaf.png

(BETA) - homes mstorage e upespada
$${
IF(espada);
log("&d[Phodalao-MS]&6Espadas 2.0 &4Off");
unset(espada);
stop();
else;
log("&d[Phodalao-MS]&6Espadas 2.0 &aOn");
log("&6[Ediçao 2.1 do macro, script melhorado]");
set(espada);
PROMPT(#nmax,$$?,"Digite o quantidade de baús:");#nbau=1;
IFMATCHES(%DIRECTION%,N);
&frente = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&frente = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&frente = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&frente = EAST;
ENDIF;
}$$/g #msalucci &4s2$${
do;
if(%DURABILITY%<100);
look(,90);
wait(10ms);
key(use);
wait(10ms);
key(use);
endif;
look(%&frente%);
look(,0);
do(40)
key(attack);
wait(150ms);
loop;
gui(inventory);getslotitem(35,#id,#stackq);
if(%#stackq%!=0);gui();
#li[] = 276;
#li[] = 279;
#li[] = 267;
do()
wait(100ms);#msxpos=%XPOS%;#mszpos=%ZPOS%;}$$/home mstorage$${do();wait(100ms);until((%#msxpos%!=%XPOS%)|(%#mszpos%!=%ZPOS%));wait(200ms);keydown(jump);wait(100ms);keyup(jump);wait(1);
log("&2[Macro] Cheguei na home!");#msxpos=%XPOS%;#mszpos=%ZPOS%;
&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;
look(%&dir%);
if(%#nbau%<5);#calctemp=0;
else;#calctemp=(%#nbau%-1)/4;endif;
//procura fileira
keydown(RIGHT);do();wait(10ms);until((%#mszpos%=%ZPOS%+%#calctemp%)|(%#mszpos%=%ZPOS%-%#calctemp%)|(%#msxpos%=%XPOS%+%#calctemp%)|(%#msxpos%=%XPOS%-%#calctemp%));keyup(RIGHT);
#calctemp=(%#nbau%-(%#calctemp%*4))-1;
//procura baú
if(%#calctemp%=0);look(+0,-45);endif;
if(%#calctemp%=1);look(+0,-35);endif;
if(%#calctemp%=2);look(+0,+0);endif;
if(%#calctemp%=3);look(+0,+35);endif;
gui();wait(1);key(use);wait(3);

for(#i,54,89);
getslotitem(%#i%,#ide,#stack);INDEXOF(#li,#index,%#ide%);
if((#index = -1)&&(%#ide% != 0));
slotclick(%#i%,l,true);
wait(30ms);
endif;
next;
wait(250ms);
getslotitem(53,#id,#stack);
wait(250ms);
if(%#stack%!=0);
#nbau=%#nbau%+1;
if(%#nbau%=%nmax%-1);
unset(espada);
log("&d» &6Baús cheios?");log("&d» &6Espadas &c[OFF]");stop();
endif;
endif;
gui();
getslotitem(80,#id,#stackq);
until(%#stackq%!=0);
wait(100ms);#msxpos=%XPOS%;#mszpos=%ZPOS%;}$$/home upespada$${do();wait(100ms);until((%#msxpos%!=%XPOS%)|(%#mszpos%!=%ZPOS%));wait(200ms);keydown(jump);wait(100ms);keyup(jump);wait(1);
endif;
loop;
}$$
 
zDoNaTeLLo disse:
Script ? cade ?
Clique para expandir...
$${
if(mstorage);
log("&4[Macro] Mstorage [OFF]");unset(mstorage);keyup(RIGHT);stop();
else;
log("&2[Macro] Mstorage [ON]");set(mstorage);
do();
PROMPT(#nbau,$$?,"Digite o numero do baú:");
wait(100ms);#msxpos=%XPOS%;#mszpos=%ZPOS%;}$$/home mstorage$${do();wait(100ms);until((%#msxpos%!=%XPOS%)|(%#mszpos%!=%ZPOS%));wait(200ms);keydown(jump);wait(100ms);keyup(jump);wait(1);
log("&2[Macro] Cheguei na home!");#msxpos=%XPOS%;#mszpos=%ZPOS%;
&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;
look(%&dir%);
if(%#nbau%<5);#calctemp=0;
else;#calctemp=(%#nbau%-1)/4;endif;
//procura fileira
keydown(RIGHT);do();wait(10ms);until((%#mszpos%=%ZPOS%+%#calctemp%)|(%#mszpos%=%ZPOS%-%#calctemp%)|(%#msxpos%=%XPOS%+%#calctemp%)|(%#msxpos%=%XPOS%-%#calctemp%));keyup(RIGHT);
#calctemp=(%#nbau%-(%#calctemp%*4))-1;
//procura baú
if(%#calctemp%=0);look(+0,-45);endif;
if(%#calctemp%=1);look(+0,-35);endif;
if(%#calctemp%=2);look(+0,+0);endif;
if(%#calctemp%=3);look(+0,+35);endif;
gui();wait(1);key(use);wait(3);gui();
PROMPT(&return,$$?,"Acertei? S ou N");
ifmatches(%&return%,^[S|s]);wait(200ms);keydown(jump);wait(3);keyup(jump);wait(1);else;log("&2[Macro] Reporte o mal funcionamento no fórum!");unset(mstorage);stop();endif();
loop();
endif;
}$$
 
Muito, já dei um gostei. Poderia implementar junto com o Macro de Espadas II do Phodalao? Aqui o code:

Código: 
$${
IF(espada);
log("&d[Phodalao]&6Espadas 2.0 &4Off");
unset(espada);
stop();
else;
log("&d[Phodalao]&6Espadas 2.0 &aOn");
log("&6[Ediçao 2.1 do macro, script melhorado]");
set(espada);
 
IFMATCHES(%DIRECTION%,N);
&frente = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&frente = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&frente = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&frente = EAST;
ENDIF;
}$$
/g #phodalao &4s2
$${
do;
if(%DURABILITY%<100);
look(,90);
wait(10ms);
key(use);
wait(10ms);
key(use);
endif;
look(%&frente%);
look(,0);
key(attack);
wait(150ms);
loop;
}$$
 
ThiagoQuimauto disse:
Muito, já dei um gostei. Poderia implementar junto com o Macro de Espadas II do Phodalao? Aqui o code:

$${
IF(espada);
log("&d[Phodalao]&6Espadas 2.0 &4Off");
unset(espada);
stop();
else;
log("&d[Phodalao]&6Espadas 2.0 &aOn");
log("&6[Ediçao 2.1 do macro, script melhorado]");
set(espada);

IFMATCHES(%DIRECTION%,N);
&frente = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&frente = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&frente = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&frente = EAST;
ENDIF;
}$$
/g #phodalao &4s2
$${
do;
if(%DURABILITY%<100);
look(,90);
wait(10ms);
key(use);
wait(10ms);
key(use);
endif;
look(%&frente%);
look(,0);
key(attack);
wait(150ms);
loop;
}$$
Clique para expandir...
fazendo, colocarei no tópico com @edit
 
salucci disse:
:thanks:

:thanks:

manda link da pesca que vc quer
Clique para expandir...
Essa pesca aki se puder
$${
if(pescat);
log("&4[Macro] Desativado.");
unset(pescat);
stop();
else;
log("&4[Macro] Ativado.");
set(pescat);

&dir = %DIRECTION%;
#bau=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;

do;
pick(346);

if(%DURABILITY%<10);
look(0,90);
log("&4[Macro] &6 Durabilidade baixa, reparando...");
wait(500ms);
key(use);
wait(500ms);
key(use);}$$
/pvp off
$${log("&4[Macro] &6 Vara reparada!");
endif;

do(200);
look(%&dir%);
look(,-90);
wait(250ms);
key(use);
loop;
if(nf);

wait(1);
gui(inventory);
wait(3);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();
else;
do;
wait(3);}$$

$${if(%#bau%=1);}$$
/home peixe1
$${endif;}$$
$${if(%#bau%=2);}$$
/home peixe2
$${endif;}$$
$${if(%#bau%=3);}$$
/home peixe3
$${endif;}$$
$${if(%#bau%=4);}$$
/home peixe4
$${endif;}$$
$${if(%#bau%=5);}$$
/home peixe5
$${endif;}$$
$${if(%#bau%=6);}$$
/home peixe6
$${endif;}$$
$${if(%#bau%=7);}$$
/home peixe7
$${endif;}$$
$${if(%#bau%=8);}$$
/home peixe8
$${endif;}$$
$${if(%#bau%=9);}$$
/home peixe9
$${endif;}$$
$${if(%#bau%=10);}$$
/home peixe10
$${endif;}$$
$${if(%#bau%=11);}$$
/home peixe11
$${endif;}$$
$${if(%#bau%=12);}$$
/home peixe12
$${endif;}$$
$${if(%#bau%=13);}$$
/home peixe13
$${endif;}$$
$${if(%#bau%=14);}$$
/home peixe14
$${endif;}$$
$${if(%#bau%=15);}$$
/home peixe15
$${endif;}$$
$${if(%#bau%=16);}$$
/home peixe16
$${endif;}$$
$${if(%#bau%=17);}$$
/home peixe17
$${endif;}$$
$${if(%#bau%=17);}$$
/home peixe17
$${endif;}$$
$${if(%#bau%=18);}$$
/home peixe18
$${endif;}$$
$${if(%#bau%=19);}$$
/home peixe19
$${endif;}$$
$${if(%#bau%=20);}$$
/home peixe20
$${endif;}$$


$${wait(2);
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%=15);
unset(nf);
gui();
else;
gui();
endif;
until(%#stack%=0);}$$
/home pesca
$${endif;
endif;
loop;
wait(2)|
endif;
}$$
 
Lipes2 disse:
Essa pesca aki se puder
$${
if(pescat);
log("&4[Macro] Desativado.");
unset(pescat);
stop();
else;
log("&4[Macro] Ativado.");
set(pescat);

&dir = %DIRECTION%;
#bau=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;

do;
pick(346);

if(%DURABILITY%<10);
look(0,90);
log("&4[Macro] &6 Durabilidade baixa, reparando...");
wait(500ms);
key(use);
wait(500ms);
key(use);}$$
/pvp off
$${log("&4[Macro] &6 Vara reparada!");
endif;

do(200);
look(%&dir%);
look(,-90);
wait(250ms);
key(use);
loop;
if(nf);

wait(1);
gui(inventory);
wait(3);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();
else;
do;
wait(3);}$$

$${if(%#bau%=1);}$$
/home peixe1
$${endif;}$$
$${if(%#bau%=2);}$$
/home peixe2
$${endif;}$$
$${if(%#bau%=3);}$$
/home peixe3
$${endif;}$$
$${if(%#bau%=4);}$$
/home peixe4
$${endif;}$$
$${if(%#bau%=5);}$$
/home peixe5
$${endif;}$$
$${if(%#bau%=6);}$$
/home peixe6
$${endif;}$$
$${if(%#bau%=7);}$$
/home peixe7
$${endif;}$$
$${if(%#bau%=8);}$$
/home peixe8
$${endif;}$$
$${if(%#bau%=9);}$$
/home peixe9
$${endif;}$$
$${if(%#bau%=10);}$$
/home peixe10
$${endif;}$$
$${if(%#bau%=11);}$$
/home peixe11
$${endif;}$$
$${if(%#bau%=12);}$$
/home peixe12
$${endif;}$$
$${if(%#bau%=13);}$$
/home peixe13
$${endif;}$$
$${if(%#bau%=14);}$$
/home peixe14
$${endif;}$$
$${if(%#bau%=15);}$$
/home peixe15
$${endif;}$$
$${if(%#bau%=16);}$$
/home peixe16
$${endif;}$$
$${if(%#bau%=17);}$$
/home peixe17
$${endif;}$$
$${if(%#bau%=17);}$$
/home peixe17
$${endif;}$$
$${if(%#bau%=18);}$$
/home peixe18
$${endif;}$$
$${if(%#bau%=19);}$$
/home peixe19
$${endif;}$$
$${if(%#bau%=20);}$$
/home peixe20
$${endif;}$$


$${wait(2);
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%=15);
unset(nf);
gui();
else;
gui();
endif;
until(%#stack%=0);}$$
/home pesca
$${endif;
endif;
loop;
wait(2)|
endif;
}$$
Clique para expandir...
Fazendo.... (pode demorar porque toda hora eu paro paro fazer algo xD)

Multi-storage adicionado em macro de espadas, ainda não realizei testes
 
parecido com um sistema do phodalao que para quando encontra lã no final, gostei, e já to até vendo a area de pedidos com links de macros e o pessoal pedindo pra adicionar isso rsrs parabens
 
jimmyfilips disse:
parecido com um sistema do phodalao que para quando encontra lã no final, gostei, e já to até vendo a area de pedidos com links de macros e o pessoal pedindo pra adicionar isso rsrs parabens
Clique para expandir...
aos poucos vou adicionando nas macros do pessoal, exitem muitas macros sufisticadas suas, beetlejuice e do phodalao , so que todas (que eu vi) usam poucos baús ou ferra quem não é vip. vlw
 
Poderia botar isso junto com um macro de colher fungo tipo q guando inicia o macro pergunta o tamanho e vai dando sethome pra para e guarda bua e volta guando termina de colher plant ira pra outra ou ira pegar os fungo e vender warp vip ou deixar no bau mermo eu sei q se vc tentar fazer isso vai da um trabalho mas vc faz facul de progamaçao kkkk atende meu pedido ae pf e se der pra vender peixe kk

U.U so exigente mds kkkk


DA UM LIKE AE N VAI CAIR O DEDO
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Total: 1 (membros: 0, visitantes: 1)

Estatísticas online

Membros online
0
Visitantes online
2
Total de visitantes
2
Os totais podem incluir visitantes ocultos.

Em alta

Novos membros

Stay Connected

Voltar
Topo