[VIP] Pescavar!
INTRODUÇÃO
Fala galera, MrBlueees na área (
Muitas vezes, é chato termos que escolher se vamos pescar pra pegar sets de diamante, ou escavar pra pegar bolos, ossos e polvoras. Agora acabou.
Esse macro foi desenvolvido principalmente para aqueles que tem 1000 de pesca e 1000 de escavação. É eficientemente bom, e eu considero um macro bem criativo, que vem trazendo felicidade para vários pescavadores da Craftlandia.
Esse projeto está em desenvolvimento, qualquer dúvida perguntem.
COMO FUNCIONA?
O macro pescará e escavará ao mesmo tempo, os itens pescados poderão ser guardados ou limpos pelo /clear. É só modificar na macro, qual item quer guardar e os que não estiverem lá serão limpos.
Você escavará 3 blocos (do que foi desejado) e em seguida puxará a vara 8 vezes seguidas (para lvl 1000 de pesca chance de pegar até 3 peixes) voltando a escavar 3 blocos e continuando o loop.
Quando acabar material para reparar sua pá o macro desligará, porém como acima de lvl 800 já pesca-se diamante, os escavadores podem se tranquilizar.
FAQ
MrBlueees, esse macro é inutil poderia estar pescando diretamente sem escavar.
- Na verdade, muitos gostaram. E o delay de escavação pra voltar a pescar é quase imperceptível, você só escuta o barulho do macro quebrando a terra, é como se estivesse pescando sem parar, só que com a opção agora de upar os 2 ao mesmo tempo.
Não é melhor upar os dois separados sem parar?
- É uma boa idéia, mas existem aqueles que estão usando "autojoin" com os macros, e mesmo sem autojoin, pra quem upa direto sem parar, o melhor é estar upando 2 stats ao mesmo tempo. (Seria legal upar Arqueiro e Espadas ao mesmo tempo)
TRAP DE PESCAVAR
Deve possuir a área de pesca e a de escavação na frente. Bloco de ferro embaixo e a porta em cima para a água não passar.
Organize o inventário dessa forma, pode personalizar se quiser, mas é basicamente isso. Os itens na hotbar não serão guardados.
Em cima do bloco de ferro dê /sethome pescavar
E em frente de cada bau dê /sethome esc1, esc2, esc3, esc4 até 10. (Pode aumentar se quiser)
CÓDIGO PARA PESCAVAR
$${
if(pescav);
unset(pescav);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
log( );
unset(@cav);
unset(cav2);
stop();
else;
set(pescav);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &2(ON)");
log( );
ACHIEVEMENTGET(by MrBlueees,346);
set(@cav);
endif;
next;
IFMATCHES(%DIRECTION%,N);
&near = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&near = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&near = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&near = EAST;
ENDIF;
#exp = 0;
#bau = 1;
PROMPT(&bloco,$$i, Que bloco usará para cavar?);
PROMPT(&pa,$$i, Que tipo de pá irá ser usada?);
PROMPT(#rep,$$i, Qual o material usado na reparação da sua pá?);
PROMPT(#dur,$$?, Em qual durabilidade você quer reparar sua pá?);
#repq=0;
}$$
/g #mrblueees s2
$${
do;
unset(cav2);
do(1);
look(%&near%);
look(,55);
gui();
do(3);
pick(%&bloco%);
key(use);
wait(1ms);
pick(%&pa%);
if(%DURABILITY%<%#dur%);
gui(inventory);
for(#i,9,45);
getslotitem(%#i%,#id,#stack1);
if(%#id%=%#rep%);
#repq=%#repq%+%#stack1%;
endif;
next;
wait(1);
gui();
if(%#repq%=0);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
log("&4&lSem item para reparar a pá");
log( );
unset(@cav);
unset(pescav);
unset(cav2);
stop();
else(%#repq%>0%);
#repq=0;
look(%&near%);
look(,90);
key(use);
wait(2);
#repq=0;
endif;
endif;
look(%&near%);
look(,55);
key(attack);
inc(#exp, 1);
loop;
do(3);
pick(346);
look(%&near%);
look(,-90)
if(%DURABILITY%<20);
look(,90);
log( );
log("&4&lReparando a vara!");
log( );
wait(500ms);
do(2);
key(use);
wait(500ms);
loop;
log( );
log("&a&lVara reparada com sucesso!");
log( );
endif;
look(%&near%);
look(,-90);
gui(inventory);
wait(1ms);
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
set(cav2);
endif;
do(8);
wait(10ms);
key(use);
wait(10ms);
key(use);
loop;
loop;
loop;
if(cav2);
wait(1ms);
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
log( );
log("&c&lGuardando itens escolhidos.");
log( );
do;
gui();
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);
key(use);
wait(1);
ARRAYSIZE(#li,#size);#size = #size - 1;
FOR(#y,0,%#size%);
POP(#li,#tempvar);
NEXT;
#tempvar = 0;
// ITENS DE ESCAVAÇAO
#li[] =348;
#li[] =289;
#li[] =341;
#li[] =352;
#li[] =344;
#li[] =2267;
#li[] =260;
#li[] =287;
#li[] =%351:3%;
#li[] =351;
#li[] =40;
#li[] =39;
#li[] =347;
#li[] =325;
#li[] =88;
#li[] =354;
#li[] =30;
#li[] =87;
// ITENS DE PESCA
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
for(#slotn,54,80);
getslotitem(%#slotn%,#id,#stack);
indexof(#li,#index,%#id%);
if((#index != -1) && (%#id% != 0));
slotclick(%#slotn%,l,true);wait(30ms);
endif;
endif;
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);inc(#bau);
endif;
if(%#bau%=11);
unset(cav2);
log();
log("&6&lBaús cheios! Voltando a pescavar.");
log();
gui();
else;
gui();
endif;
until(%#stack%=0);
log( );
log("&c&lItens guardados!");
log( );
}$$
/home pescavar
$${
wait(2);
endif;
gui(inventory);
wait(600ms);
for(#slotz,9,35);
GETSLOTITEM(%#slotz%,&id,#stack);
slotclick(%#slotz%,l,true);wait(30ms);
endif;
next;
gui();
log( );
log("&c&lLimpando inventário!");
log( );
}$$/clear$${
wait(1);
endif;
loop;
}$$
if(pescav);
unset(pescav);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
log( );
unset(@cav);
unset(cav2);
stop();
else;
set(pescav);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &2(ON)");
log( );
ACHIEVEMENTGET(by MrBlueees,346);
set(@cav);
endif;
next;
IFMATCHES(%DIRECTION%,N);
&near = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&near = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&near = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&near = EAST;
ENDIF;
#exp = 0;
#bau = 1;
PROMPT(&bloco,$$i, Que bloco usará para cavar?);
PROMPT(&pa,$$i, Que tipo de pá irá ser usada?);
PROMPT(#rep,$$i, Qual o material usado na reparação da sua pá?);
PROMPT(#dur,$$?, Em qual durabilidade você quer reparar sua pá?);
#repq=0;
}$$
/g #mrblueees s2
$${
do;
unset(cav2);
do(1);
look(%&near%);
look(,55);
gui();
do(3);
pick(%&bloco%);
key(use);
wait(1ms);
pick(%&pa%);
if(%DURABILITY%<%#dur%);
gui(inventory);
for(#i,9,45);
getslotitem(%#i%,#id,#stack1);
if(%#id%=%#rep%);
#repq=%#repq%+%#stack1%;
endif;
next;
wait(1);
gui();
if(%#repq%=0);
log( );
log("&6&l[VIP] &d&lPescavar! &a&lBETA 1.6 &4(OFF)");
log("&4&lSem item para reparar a pá");
log( );
unset(@cav);
unset(pescav);
unset(cav2);
stop();
else(%#repq%>0%);
#repq=0;
look(%&near%);
look(,90);
key(use);
wait(2);
#repq=0;
endif;
endif;
look(%&near%);
look(,55);
key(attack);
inc(#exp, 1);
loop;
do(3);
pick(346);
look(%&near%);
look(,-90)
if(%DURABILITY%<20);
look(,90);
log( );
log("&4&lReparando a vara!");
log( );
wait(500ms);
do(2);
key(use);
wait(500ms);
loop;
log( );
log("&a&lVara reparada com sucesso!");
log( );
endif;
look(%&near%);
look(,-90);
gui(inventory);
wait(1ms);
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
set(cav2);
endif;
do(8);
wait(10ms);
key(use);
wait(10ms);
key(use);
loop;
loop;
loop;
if(cav2);
wait(1ms);
getslotitem(35,#id,#stack);
if(%#stack%=0);
else;
log( );
log("&c&lGuardando itens escolhidos.");
log( );
do;
gui();
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);
key(use);
wait(1);
ARRAYSIZE(#li,#size);#size = #size - 1;
FOR(#y,0,%#size%);
POP(#li,#tempvar);
NEXT;
#tempvar = 0;
// ITENS DE ESCAVAÇAO
#li[] =348;
#li[] =289;
#li[] =341;
#li[] =352;
#li[] =344;
#li[] =2267;
#li[] =260;
#li[] =287;
#li[] =%351:3%;
#li[] =351;
#li[] =40;
#li[] =39;
#li[] =347;
#li[] =325;
#li[] =88;
#li[] =354;
#li[] =30;
#li[] =87;
// ITENS DE PESCA
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
for(#slotn,54,80);
getslotitem(%#slotn%,#id,#stack);
indexof(#li,#index,%#id%);
if((#index != -1) && (%#id% != 0));
slotclick(%#slotn%,l,true);wait(30ms);
endif;
endif;
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);inc(#bau);
endif;
if(%#bau%=11);
unset(cav2);
log();
log("&6&lBaús cheios! Voltando a pescavar.");
log();
gui();
else;
gui();
endif;
until(%#stack%=0);
log( );
log("&c&lItens guardados!");
log( );
}$$
/home pescavar
$${
wait(2);
endif;
gui(inventory);
wait(600ms);
for(#slotz,9,35);
GETSLOTITEM(%#slotz%,&id,#stack);
slotclick(%#slotz%,l,true);wait(30ms);
endif;
next;
gui();
log( );
log("&c&lLimpando inventário!");
log( );
}$$/clear$${
wait(1);
endif;
loop;
}$$
Você pode aumentar o tanto de baús se quiser, e deve escolher os itens pescados a serem guardados pelo macro o resto será limpo! (/clear)
Coloque o código dos itens que você quer guardar na parte:
// ITENS DE PESCA
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
Os itens dropados na escavação, eu já coloquei todos que são possiveis de pegar na skill. (Modifique caso queira tirar algum).
Segue os códigos dos itens:
[URL="http://i57.servimg.com/u/f57/18/57/09/78/datava10.png/img"]http://i57.servimg.com/u/f57/18/57/09/78/datava10.png/img[/URL]][/spoiler] [/COLOR]
[SIZE=18px][COLOR=#ffffff][B]USAR EM 2º PLANO[/B][/COLOR][/SIZE]
[COLOR=#add8e6]Aperte F3+P (se já tiver feito não precisa). Caso haja algum macro na tecla "P" certifique-se de removê-lo antes de apertar F3+P.[/COLOR]
[SIZE=18px][COLOR=#ffffff][B]ECONOMIA DE BLOCOS[/B][/COLOR][/SIZE]
[COLOR=#add8e6]Pode ser usada a mesma da macro[/COLOR][COLOR=#ffd700] [/COLOR][URL="http://forum.craftlandia.com.br/ipb/index.php?/topic/302464-vip-cava-cava-1oo-autom%C3%A1tico/"][COLOR=#ffd700][VIP][/COLOR][COLOR=#ff00cc] Cava-Cava[/COLOR][/URL]
[SIZE=18px][COLOR=#ffffff][B]ATUALIZAÇÕES[/B][/COLOR][/SIZE]
[COLOR=#ffff00]- Post publicado (01/07/2014)[/COLOR]
[COLOR=#ff0000][B]Qualquer erro mande-me MP[/B][/COLOR]
[SIZE=18px][COLOR=#ffffff][B]USAR EM 2º PLANO[/B][/COLOR][/SIZE]
[COLOR=#add8e6]Aperte F3+P (se já tiver feito não precisa). Caso haja algum macro na tecla "P" certifique-se de removê-lo antes de apertar F3+P.[/COLOR]
[SIZE=18px][COLOR=#ffffff][B]ECONOMIA DE BLOCOS[/B][/COLOR][/SIZE]
[COLOR=#add8e6]Pode ser usada a mesma da macro[/COLOR][COLOR=#ffd700] [/COLOR][URL="http://forum.craftlandia.com.br/ipb/index.php?/topic/302464-vip-cava-cava-1oo-autom%C3%A1tico/"][COLOR=#ffd700][VIP][/COLOR][COLOR=#ff00cc] Cava-Cava[/COLOR][/URL]
[SIZE=18px][COLOR=#ffffff][B]ATUALIZAÇÕES[/B][/COLOR][/SIZE]
[COLOR=#ffff00]- Post publicado (01/07/2014)[/COLOR]
[COLOR=#ff0000][B]Qualquer erro mande-me MP[/B][/COLOR]
