ENTREGUE [MACRO] Construtor de Plantação de fungo Soul Sand

perturbado2 · 2014-08-03T02:22:08-0300

Eae galeraaa essa é minha PRIMEIRA macro, D

PARA QUE SERVE? :

bom, ela constrói uma área de soul sand para plantação de fungo, está macro só funciona com soul sand pq, a soul sand como todo mundo já sabe ela deixa o personagem mais lento, então ficar na velocidade perfeita para utilizar o macro. Se usar com outro bloco é muito provável que não de muito certo.

COMO USAR?:
quando você ativar a macro ela perguntará o comprimento.(então gente tem um defeitinho que só consegui botar para calcular o comprimento, não consegui para calcular a largura, mas a macro vai ficar fazendo ate que tenha algum obstaculo parando ela, é aconselhável por um murinho no final para parar a largura). Se alguém souber como calcular a largura me manda MP e me ajuda que boto o credito tbm no tópico
quando pedir o comprimento vc coloque o comprimento da área que você deseja.

aé outra coisa; macro começa do Norte e vai para e esquerda!

agora é só deixar o macro rolar.
PS: Não deixe o inventário aberto, pq quando quando acabar todos os slots na barra, ele abrirá o inventário e irá repor...

Como deve ficar o inventário:

Macro:

$${if(z);
log(" &c[&3%PLAYER%&c] &5Construtor de plant &4OFF".);
log(" &4Desligando Construtor region solo");
unset(z);
stop();

else;
set(z);
log(" &c[&3%PLAYER%&c] &5Construtor de plant &2ON");
endif;

#px = %XPOS%
#pz = %ZPOS%
#py = %YPOS%

PROMPT(#blocos,$$?,Qual tamanho senhor ?);
log(&6[&b!&6] &4Koe tio(a), mantenha o inventario fechado);

do;
look(,90);wait(50ms);
keydown(JUMP);pick(88);
Key(use);until(%YPOS%=%#py%+1);
keyup(JUMP);wait(1);
look(north,)
look(,+75)

do;
keydown(forward);
getslotitem(9,#id,#stacksize);
IF(%#stacksize%=0);
keyup(forward);
gui(INVENTORY);wait(500ms);
getslotitem(35,#id,#stacksize);
IF(%#stacksize%=0);
log(&6[&b!&6] &4Seus blocos estao acabando senhor);
stop;elseif(%STACKSIZE%=0)
for(#i,9,35);slotclick(%#i%,l,true);
wait(70ms);next;gui;
SLOT(1);
ENDIF
endif;pick(%#bloco%);

IF(%STACKSIZE% < 1);
SLOT(2);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(3);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(4);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(5);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(6);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(7);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(8);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(9);
ENDIF
key(use);wait(50ms);
until((%XPOS%=%#px%+%#blocos%-1)|(%XPOS%=%#px%-%#blocos%-1)|(%ZPOS%=%#pz%+%#blocos%-1)|(%ZPOS%=%#pz%-%#blocos%-1));
keyup(forward);

wait(50ms);
LOOK(-90,);
wait(50ms);
LOOK(,-10);wait(50ms);
key(use);wait(50ms);
wait(50ms);

//marcar
#px = %XPOS%
#pz = %ZPOS%
do;
keydown(forward);
until((%XPOS%=%#px%+1)|(%XPOS%=%#px%-1)|(%ZPOS%=%#pz%+1)|(%ZPOS%=%#pz%-1));
keyup(forward);

wait(50ms);
LOOK(south);wait(50ms);
look(,+75);
wait(50ms);

do;
#px = %XPOS%
#pz = %ZPOS%
do;
keydown(forward);
getslotitem(9,#id,#stacksize);
IF(%#stacksize%=0);
keyup(forward);
gui(INVENTORY);wait(500ms);
getslotitem(35,#id,#stacksize);
IF(%#stacksize%=0);
log(&6[&b!&6] &4Seus blocos estao acabando senhor);
stop;elseif(%STACKSIZE%=0)
for(#i,9,35);slotclick(%#i%,l,true);
wait(70ms);next;gui;
SLOT(1);
ENDIF
endif;pick(%#bloco%);

keydown(forward);
IF(%STACKSIZE% < 1);
SLOT(2);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(3);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(4);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(5);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(6);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(7);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(8);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(9);
ENDIF
key(use);wait(50ms);
until((%XPOS%=%#px%+%#blocos%-1)|(%XPOS%=%#px%-%#blocos%-1)|(%ZPOS%=%#pz%+%#blocos%-1)|(%ZPOS%=%#pz%-%#blocos%-1));
keyup(forward);

wait(50ms);
LOOK(+90,);
wait(50ms);
LOOK(,-20);wait(50ms);
key(use);wait(50ms);
wait(50ms);

//marcar
#px = %XPOS%
#pz = %ZPOS%
do;
keydown(forward);
until((%XPOS%=%#px%+1)|(%XPOS%=%#px%-1)|(%ZPOS%=%#pz%+1)|(%ZPOS%=%#pz%-1));
keyup(forward);

wait(50ms);
LOOK(north);wait(50ms);
look(,+75);
wait(50ms);

do;
keydown(forward);
getslotitem(9,#id,#stacksize);
IF(%#stacksize%=0);
keyup(forward);
gui(INVENTORY);wait(500ms);
getslotitem(35,#id,#stacksize);
IF(%#stacksize%=0);
log(&6[&b!&6] &4Seus blocos estao acabando senhor);
stop;elseif(%STACKSIZE%=0)
for(#i,9,35);slotclick(%#i%,l,true);
wait(70ms);next;gui;
SLOT(1);
ENDIF
endif;pick(%#bloco%);

keydown(forward);
IF(%STACKSIZE% < 1);
SLOT(2);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(3);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(4);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(5);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(6);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(7);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(8);
ENDIF
IF(%STACKSIZE% < 1);
SLOT(9);
ENDIF
key(use);wait(50ms);
until((%XPOS%=%#px%+%#blocos%-1)|(%XPOS%=%#px%-%#blocos%-1)|(%ZPOS%=%#pz%+%#blocos%-1)|(%ZPOS%=%#pz%-%#blocos%-1));
keyup(forward);

wait(50ms);
LOOK(-90,);
wait(50ms);
LOOK(,-20);wait(50ms);
key(use);wait(50ms);
wait(50ms);

//marcar
#px = %XPOS%
#pz = %ZPOS%
do;
keydown(forward);
until((%XPOS%=%#px%+1)|(%XPOS%=%#px%-1)|(%ZPOS%=%#pz%+1)|(%ZPOS%=%#pz%-1));
keyup(forward);
//-
wait(50ms);
LOOK(south);wait(50ms);
look(,+75);
wait(50ms);

loop;}$$

[background=#181818]Para instalar, clique ESC > Controls > Macro Settings.[/background]

[background=#181818]Escolha uma tecla vazia[/background]

[background=#181818]Coloque $$ e clique em Edit File[/background]

[background=#181818]Digite plant e clique em Create File[/background]

[background=#181818]BOM GENTE ESSE É MEU PRIMEIRO MACRO, ENTÃO SE TIVER ALGUM BUG ME AVISE POR FAVOR[/background]

[background=#181818]E SE SOUBER RESOLVER OS PROBLEMINHAS ME MANDA UM MP E ME AJUDE QUE IREI POR OS CREDITO!! [/background]

[background=#181818]BUG de calcular o comprimento consertado.[/background]

lechinski · 2014-08-03T02:26:41-0300

Boooa!

Nathan vinicios · 2014-08-03T02:27:57-0300

Boa mudo log ?

perturbado2 · 2014-08-03T02:29:11-0300

Nathan vinicios disse:
Boa mudo log ?

sim

demoshadown · 2014-08-03T02:29:48-0300

Boa, só falta fixar esses bugs citados.

(OBS: cUmprimento = cumprimentar, dai oi.
cOmprimento = medida de área)

Nathan vinicios · 2014-08-03T02:35:33-0300

perturbado2 disse:
sim

Naum funciono o macro

perturbado2 · 2014-08-03T02:40:11-0300

Nathan vinicios disse:
Naum funciono o macro

tenta por $${ no inicio e }$$ no final

zDemo disse:
Boa, só falta fixar esses bugs citados.

(OBS: cUmprimento = cumprimentar, dai oi.
cOmprimento = medida de área)

hehe vlw, ja mudei!
to meio retardado hj, to des das 3 da tarde trabalhando na macro '-'

kikimakii · 2014-08-06T16:43:38-0300

uou , parabens , vou testar na minha region 100x50

só uma pergunta , ele começa do norte é vai para a esquerda ou para a direita?

perturbado2 · 2014-08-06T18:17:04-0300

kikimakii disse:
uou , parabens , vou testar na minha region 100x50

só uma pergunta , ele começa do norte é vai para a esquerda ou para a direita?

para a esquerda amigao

kikimakii · 2014-08-06T20:46:43-0300

perturbado2 disse:
para a esquerda amigao

Obrigado

perturbado2 · 2014-08-06T21:15:11-0300

kikimakii disse:
Obrigado

ai mano, acabei de atualizar a macro, pega ali em cima, que eu consegui tirar 1 bug,
agr pode botar o numero que quiser no comprimento que ele ira certinho

marcio123 · Out 1, 2014

Gabriel Ruan · Out 12, 2014

bom macro

Kllug · Out 12, 2014

Nathan vinicios disse:
Boa mudo log ?

Windiws · Out 13, 2014

Gabriel Ruan disse:
bom macro

Elisson · Nov 3, 2014

Comentando para testar em breve. Obrigado por disponibilizar.

jose55 · Nov 3, 2014

otimo testado e provado ! ajuda muito!!!!!!!!!!!

perturbado2 · Nov 30, 2014

Obg gente ;D

AntonioGamer · Dez 4, 2014

Ja esta resolvido os bug na hora da construção da plant ? ja pode só especificar as medidas ou ainda tem que fazer o muro ?

perturbado2 · Dez 4, 2014

ainda tem que fazer o muro, eu estou meio sem tempo pra tentar resolver, mas jaja irei resolver.

ENTREGUE [MACRO] Construtor de Plantação de fungo Soul Sand

Bem-vindo!

Neutro

Excelente

Neutro

Neutro

Bom

Neutro

Neutro

Neutro

Neutro

Neutro

Neutro

Neutro

Neutro

Excelente

Neutro

Razoavel

Neutro

Neutro

Excelente

Neutro

Users who are viewing this thread

Estatísticas online

Em alta

Novos membros

Stay Connected