[Resolvido]macro

[iZ1K4BEYBLADE]

alguem me passa um macro simples d q qdo a espada quase quebrar ele troca d espada?

 

[Bruno_Aloka]

Faça um pedido nesta área http://forum.craftlandia.com.br/ipb/index.php?/forum/388-pedidos/

 

[OwenWinner]

Macro de espadas que tem essa função:

Spoiler

$${
if(sword1);
log("&4[Macro] &6Matar mobs desativado.");
unset(sword1);
stop();
else;
log("&4[Macro] &6Matar mobs ativado.");
set(sword1);

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

if(%DURABILITY%<70);
if(%#un%=9);log("&4[Macro] &6Matar mobs desativado.");
unset(sword1);
stop();
endif;
log("&4[Macro] &6 Durabilidade baixa, espada trocada...");
look(0,90);
inc(#un);
inventoryup(1);
wait(500ms);
endif;

do(50);
look(%&dir%);
look(,-20);
wait(200ms);
key(attack);
loop;
if(nf);

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

$${if(%#bau%=1);}$$
/home bau1
$${endif;}$$
$${if(%#bau%=2);}$$
/home bau2
$${endif;}$$
$${if(%#bau%=3);}$$
/home bau3
$${endif;}$$
$${if(%#bau%=4);}$$
/home bau4
$${endif;}$$
$${if(%#bau%=5);}$$
/home bau5
$${endif;}$$
$${if(%#bau%=6);}$$
/home bau6
$${endif;}$$
$${if(%#bau%=7);}$$
/home bau7
$${endif;}$$
$${if(%#bau%=8);}$$
/home bau8
$${endif;}$$

$${wait(15);
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%=9);
unset(nf);
log(&4[Macro] &6Baús cheios! Apenas matará mobs agora.);
gui();
else;
gui();
endif;
until(%#stack%=0);}$$
/home matarmobs
$${endif;
endif;
loop;
endif;
}$$

Se não me engano guarda em baús também.

 

[LexPloit]

Veja a lista de todos os Macros do Forum no link abaixo:

- http://forum.craftlandia.com.br/ipb/index.php?/topic/227434-lista-todos-os-macros-do-f%C3%B3rum/

Caso não encontre faça um pedido na área de Macros > Pedido.
Se atente aos requisitos antes de fazer seu pedido.

 

[Hawwer]

alguem me passa um macro simples d q qdo a espada quase quebrar ele troca d espada?

Não tenho um que troca espada, mas eu tenho um que repara a espada, caso for usar em mobs (podes usar espadas de pedra ou madeira, assim tu ja upa reparação)

Spoiler

$${
if(escravo);
log("&a[MACRO] &6Desligado");
unset(escravo);stop;else;
set(escravo);
&arco="^261$";
&sword="^276$|^267$|^272$|^268$|^283$";
&axe="^279$|^258$|^275$|^271$|^286$";
&diamante="^276$|^279$";
&ferro="^267$|^258$";
&pedra="^272$|^275$";
&madeira="^268$|^271$";
&ouro="^283$|^286$";
slot(1);#slot1=%ITEM%;
ifmatches(%#slot1%,%&sword%|%&axe%|%&arco%);
ifmatches(%#slot1%,%&arco%);&resposta1="Arqueiro";#dur=20;endif;
ifmatches(%#slot1%,%&sword%|%&axe%);&resposta1="Espada";endif;
ifmatches(%#slot1%,%&diamante%);#dur=50;endif;
ifmatches(%#slot1%,%&ferro%|%&pedra%);#dur=20;endif;
ifmatches(%#slot1%,%&madeira%|%&ouro%);#dur=10;endif;
ifmatches(%DIRECTION%,S);&direction=SOUTH;endif;
ifmatches(%DIRECTION%,N);&direction=NORTH;endif;
ifmatches(%DIRECTION%,E);&direction=EAST;endif;
ifmatches(%DIRECTION%,W);&direction=WEST;endif;
#baun=1;#pack=0;#slot=1;
else;
log("&4[ERROR] &3Coloque sua arma no slot &61");
log("&a[MACRO] &6Desligado");unset(escravo);stop;
endif;
&per2="Onde você vai guardar?,Nos baus DA TRAP,Nos Baus COM HOMES,Nao vou guardar";
&per3="Você é VIP?,Sim,Nao";
PROMPT(&resposta3,"$$[Escolha[%&per3%]]");
PROMPT(&resposta2,"$$[Escolha[%&per2%]]");
ifmatches(%&resposta3%,Sim);#tempo=4;endif;
ifmatches(%&resposta3%,Nao);#tempo=7;endif;
log("&a[MACRO] &6Trabalhando");
do;
slot(%#slot%);
ifmatches(%HIT%,Entity);ifmatches(%GUI%,Inventory);gui;endif;look(%&direction%);look(,-20);
ifmatches(%&resposta1%,Arqueiro);
do(24);if(%DURABILITY%<%#dur%);do;look(%&direction%);look(,+90);wait(1ms);key(use);until(%DURABILITY%>%#dur%);endif;key(use);loop;
endif;
ifmatches(%&resposta1%,Espada);key(ATTACK);wait(150ms);
if(%DURABILITY%<%#dur%);do;look(%&direction%);look(,+90);wait(1ms);key(use);until(%DURABILITY%>%#dur%);endif;endif;
else;look(%&direction%);look(,-20);
ifmatches(%GUI%,None);gui(INVENTORY);endif;
wait(1);
getslotitem(35,#id,#stack);
if(%#stack%!=0);GUI;
ifmatches(%&resposta2%,Nao vou guardar);endif;


ifmatches(%&resposta2%,Nos Baus COM HOMES);
do;
if(%#baun%=1);}$$/home bau1$${endif;if(%#baun%=2);}$$/home bau2$${endif;
if(%#baun%=3);}$$/home bau3$${endif;if(%#baun%=4);}$$/home bau4$${endif;
if(%#baun%=5);}$$/home bau5$${endif;if(%#baun%=6);}$$/home bau6$${endif;
if(%#baun%=7);}$$/home bau7$${endif;if(%#baun%=8);}$$/home bau8$${endif;
if(%#baun%=9);}$$/home bau9$${endif;if(%#baun%=10);}$$/home bau10$${endif;
if(%#baun%=11);}$$/home bau11$${endif;if(%#baun%=12);}$$/home bau12$${endif;
wait(%#tempo%);key(use);wait(3);
for(#i,54,80);
getslotitem(%#i%,#id,#stack);
if(%#stack%=64);inc(#pack,1);endif;
slotclick(%#i%,l,true);wait(70ms);
next;getslotitem(53,#id,#stack);
if(%#stack%!=0);inc(#baun,1);endif;
GUI;
until(%#stack%=0);
}$$/home meumob$${wait(%#tempo%);
endif;

ifmatches(%&resposta2%,Nos baus DA TRAP);
}$$/home mobtrap$${wait(%#tempo%);
do;
if(%#baun%=1);look(150,00);endif;if(%#baun%=2);look(180,00);endif;if(%#baun%=3);look(210,00);endif;
if(%#baun%=4);look(150,30);endif;if(%#baun%=5);look(180,30);endif;if(%#baun%=6);look(210,30);endif;
if(%#baun%=7);look(240,00);endif;if(%#baun%=8);look(270,00);endif;if(%#baun%=9);look(300,00);endif;
if(%#baun%=10);look(240,30);endif;if(%#baun%=11);look(270,30);endif;if(%#baun%=12);look(300,30);endif;
if(%#baun%=13);look(330,00);endif;if(%#baun%=14);look(360,00);endif;if(%#baun%=15);look(30,00);endif;
if(%#baun%=16);look(330,30);endif;if(%#baun%=17);look(360,30);endif;if(%#baun%=18);look(30,30);endif;
if(%#baun%=19);look(60,00);endif;if(%#baun%=20);look(90,00);endif;if(%#baun%=21);look(120,00);endif;
if(%#baun%=22);look(60,30);endif;if(%#baun%=23);look(90,30);endif;if(%#baun%=24);look(120,30);endif;
wait(100ms);key(USE);wait(3);
for(#i,54,80);
getslotitem(%#i%,#id,#stack);
if(%#stack%=64);inc(#pack,1);endif;
slotclick(%#i%,l,true);wait(70ms);
next;getslotitem(53,#id,#stack);
wait(70ms);if(%#stack%!=0);inc(#baun,1);endif;
GUi;wait(500ms);
until(%#stack%=0);
}$$/home meumob$${wait(%#tempo%);
endif;
endif;
endif;
loop;
endif;
}$$

 

[LexPloit]

---

Caso resolvido, tópico fechado e tag [Resolvido] Adicionada ao titulo.

Obs: Esta mensagem é automática.