A Procura de um macro 1.5.2

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.

pyramon

Neutro
VIP
Entrou
Ago 29, 2013
Mensagens
150
Cubos
0
Alguém tem um macro de construção de regiões planas, tipo para teto/chão. Estou usando um que só da errado, buga tudo, é o único que encontrei no fórum, youtube..... Queria saber se tem outras opções.
1.5.2
 
área errada, procure na área de tutoriais de macro no fórum.
 
man acho q vc tem que colocar o tamanho no terreno no macro ou um godico ta errado / mais eu não conheço macro de terreno
 
tenho essa, se tiver serve lagado ou net tiver ruim buga mesmo.
$${
if(autoputv4);
log("&d» &6AutoPUT &c[OFF]");
unset(autoputv4);
keyup(back);
keyup(sneak);
stop();
else;
log("&d» &6AutoPUT &a[ON]");
#tic2=%@#tic2%;
set(autoputv4);

PROMPT(#itemid,$$i,"ID do item que será usado:"); if(%#itemid%=0);unset(autoputv4);stop();endif;
PROMPT(#nlado,$$?,"Comprimento:"); if(%#nlado%=0);unset(autoputv4);stop();endif;
PROMPT(#nlado1,$$?,"Largura:"); if(%#nlado1%=0);unset(autoputv4);stop();endif;
log("&d» &6Deixe o inventório aberto!");
#calc1=%#lado%/2;
#calc2=%#calc1%*2;
#ih45=%#lado%-%#calc1%;
#nladox=%#nlado%;
#nlado1x=%#nlado1%
#nlado=%#nlado%;
#impvar=%#nlado1%;
#nlado1=%#nlado1%/2;
#imp=%#impvar%-(%#nlado1%*2);
if(%#imp%=1);#nlado1=%#nlado1%+1;endif;

&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;

set(ftpass);

gui(inventory);
wait(800ms);

#dims=%#nladox%*%#nlado1x%;
#tpacks=%#dims%/64;
&tpacks=;
if(%#tpacks%!=0);&tpacks="%#tpacks% packs e ";endif;
#trest=%#dims%-(#tpacks*64);
if(%#trest%!=0);&trest="%#trest% blocos";else;&trest=;endif;
#stack=0;
#stackx=0;
gui(inventory);
wait(1);
for(#capac,9,44);
getslotitem(%#capac%,#id,#stack);
if(%#id%=%#itemid%);#stackx=%#stackx%+%#stack%;endif;
next;

if(%#dims%>%#stackx%);
gui();
log("&d» &cOps! &6Total de itens no inventário insuficiente. :(");
log("&d» &6Para esse tamanho são necessários &9%&tpacks%%&trest%.");
log("&d» &6AutoPUT &c[OFF]");
unset(autoputv4);

stop();
endif;

log("&d» &6Área de dimensões &9%#nladox% &6por &9%#nlado1x%&6.");
log("&d» &6Total de blocos: &9%#dims% &6blocos. ");

for(#nii,1,%#nlado1%);
for(#ucris,1,2);

getslot(%#itemid%,#i);
if(%#i%<36);
slotclick(%#i%,l,true);
endif;
if(%#i%=-1);unset(autoputv4);log("&d» &6Acabaram os itens :/ &c[OFF]");log("&d» &6AutoPUT &c[OFF]");stop();endif;
if((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=1));
else;

if(%#ucris%=1);
&loc=+90;
&side=left;
endif;

if(%#ucris%=2);
&loc=-90;
&side=right;
endif;

&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;

do(%#nlado%);
keydown(sneak);
look(%&dir%);
look(,+83);
#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
do;
keydown(back);
pick(%#itemid%);
key(use);
until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
loop;
#nposx1 = %XPOS%; #nposx2 = %ZPOS%;

if(((%#ucris%=1)&&(%#nlado1%=%#nii%)&&(%#imp%=1))|((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=0)));
else;
look(%&loc%,);
do;
keydown(back);
until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
wait(200ms);
keyup(back);

#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
do;
keydown(%&side%);
until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
wait(100ms);
pick(%#itemid%);
key(use);
wait(100ms);
key(use);
wait(100ms);
key(use);
wait(200ms);
keyup(%&side%);
look(%&loc%,);
endif;
endif;
next;
next;

keyup(back);
do;
keydown(FORWARD);
until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
wait(40ms);
keyup(FORWARD);
keyup(sneak);

gui();
log("&d» &6AutoPUT &c[OFF]");

unset(autoputv4);
stop();
endif;
}$$
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Voltar
Topo