$${
if(beta);
keyup(forward);
keyup(sneak);
setlabel(ph1," ",ph1);
log("&d» &cMacro &ePMine &cDesligado");
log("&d» &cUm total de &e%#blocos% &cblocos Mineados");
log("&d» &cSeu nivel no &ePMine &cé &e%@#nivel%");unset(beta);unset(beta);stop;else;set(beta);
#dur=;slot(1);#pick=%ITEM%;
if(%#pick%=0);log("&d» &cNenhuma Picareta foi encontrada no SLOT 1");unset(beta);stop;endif;
if(%#pick%=257);#dur=18;endif;
if(%#pick%=270);#dur=18;endif;
if(%#pick%=278);#dur=80;endif;
if(%#pick%=274);#dur=18;endif;
#phdl=1;
#tempo=;#b=;#k1=1;#k2=2;#k3=3;#k4=4;#k5=5;
&per1=Sou VIP,Nao Sou VIP;
&per2=Vou Reparar a Picareta, Vou usar a Proxima SLOT 2;
PROMPT(&a,$$[ [%&per1%]]);
ifmatches(%&a%,sou vip);
#tempo=10;endif;
ifmatches(%&a%,nao sou vip);
#tempo=18;endif;
PROMPT(&a,$$[ [%&per2%]]);
ifmatches(%&a%,vou reparar a picareta);
#b=2;endif;
ifmatches(%&a%,vou usar a proxima slot 2);
#b=1;endif;#bau=0#c=80;#a=62;
&ladoe=east;
}$$/sethome bau$${
wait(1ms);
}$$/sethome mina$${
wait(200ms);
#voltara=%XPOS%;#vltd=%XPOS%;
#voltarb=%YPOS%;#vlte=%YPOS%;
#voltarc=%ZPOS%;#vltf=%ZPOS%;
#lava=0;#agua=0;#cascalho=0;#seg=0;
#segurodir=0;#seguroesquer=0;#blocos=;#slot=1;
if(%#b%=2);GETIDREL(0,-1,0,#ironblock,);if(%#ironblock%!=42);
log("&d» &cVoce precisa por um bloco de &fFerro &cno seu pe");unset(beta);stop;endif;endif;
log("&d» &cMinerando");
do;
//CONTADOR
if(%@#arch% > %@#phodalao%);
inc(@#nivel,1);
log(" ");
log(&e VOCE MINEROU +&a%#blocos% BLOCOS);
log(" ");
ACHIEVEMENTGET(PMine Nivel: %@#nivel%,278);
dec(@#arch,%@#phodalao%);
inc(@#phodalao,20);
setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);endif;
//PARTE SIMPLES, VERIFICAR DURABILIDADE E SE O INVENTARIO ESTA CHEIO
if((%DURABILITY%<%#dur%)&&(%#b%=1));
do;wait(1);
inc(#slot,1);wait(200ms);slot(%#slot%);wait(200ms);
until(%DURABILITY%>%#dur%);
endif;
if((%DURABILITY%<%#dur%)&&(%#b%=2));
#vlta=%XPOS%;
#vltb=%YPOS%;
#vltc=%ZPOS%;
wait(100ms);}$$/sethome voltar$${wait(300ms);
}$$/home bau$${
ECHO(/tp %#vltd% %#vlte% %#vltf%);
wait(%#tempo%);
do;
look(south);
look(,90);
wait(500ms);key(use);
until(%DURABILITY%>%#dur%);
wait(100ms);}$$/home voltar$${
ECHO(/tp %#vlta% %#vltb% %#vltc%);
wait(%#tempo%);
endif;
if(%#slot%=10);log("&d» &cSuas Picaretas Acabaram");unset(beta);stop;endif;
//#### VERIFICAR A FRENTE NO CHÃO ####
//MEIO EM BAIXO DO PE
GETIDREL(0,-1,+4,#seguro,);
GETIDREL(0,-1,+5,#seguro1,);
GETIDREL(0,-1,+6,#seguro2,);
GETIDREL(0,-1,+7,#seguro3,);
GETIDREL(0,-1,+8,#seguro4,);
//MEIO EM BAIXO DO PE
GETIDREL(0,-1,+2,#pe9,);GETIDREL(0,-1,+3,#pe10,);GETIDREL(0,-1,+4,#pe11,);
//MEIO PERNA
GETIDREL(0,0,+2,#pe1,);GETIDREL(0,0,+3,#pe2,);GETIDREL(0,0,+4,#pe3,);GETIDREL(0,0,+5,#pe4,);
//MEIO CABECA
GETIDREL(0,+1,+2,#pe5,);GETIDREL(0,+1,+3,#pe6,);GETIDREL(0,+1,+4,#pe7,);GETIDREL(0,+1,+5,#pe8,);
//MEIO EM CIMA DA CABECA
GETIDREL(0,+2,+2,#ca1,);GETIDREL(0,+2,+3,#ca2,);GETIDREL(0,+2,+4,#ca3,);GETIDREL(0,+2,+5,#ca4,);
//ESQUERDA
GETIDREL(+1,+2,0,#vr1,);
GETIDREL(1,0,+2,#pes1,);GETIDREL(1,0,+3,#pes2,);GETIDREL(1,0,+4,#pes3,);GETIDREL(1,0,+5,#pes4,);
GETIDREL(1,+1,+2,#pes5,);GETIDREL(1,+1,+3,#pes6,);GETIDREL(1,+1,+4,#pes7,);GETIDREL(1,+1,+5,#pes8,);
//ESQUERDA 2
GETIDREL(2,0,+2,#pess1,);GETIDREL(2,0,+3,#pess2,);GETIDREL(2,0,+4,#pess3,);GETIDREL(2,0,+5,#pess4,);
GETIDREL(2,+1,+2,#pess5,);GETIDREL(2,+1,+3,#pess6,);GETIDREL(2,+1,+4,#pess7,);GETIDREL(2,+1,+5,#pess8,);
GETIDREL(1,+2,+2,#kes1,);GETIDREL(1,+2,+3,#kes2,);GETIDREL(1,+2,+4,#kes3,);GETIDREL(1,+2,+5,#kes4,);
//DIREITA
GETIDREL(-1,0,+2,#pdi1,);GETIDREL(-1,0,+3,#pdi2,);GETIDREL(-1,0,+4,#pdi3,);
GETIDREL(-1,0,+5,#pdi4,);GETIDREL(-1,+1,+2,#pdi5,);GETIDREL(-1,+1,+3,#pdi6,);
GETIDREL(-1,+1,+4,#pdi7,);GETIDREL(-1,+1,+5,#pdi8,);
//DIREITA 2
GETIDREL(-2,0,+2,#pdii1,);GETIDREL(-2,0,+3,#pdii2,);GETIDREL(-2,0,+4,#pdii3,);GETIDREL(-2,0,+5,#pdii4,);
GETIDREL(-2,+1,+2,#pdii5,);GETIDREL(-2,+1,+3,#pdii6,);GETIDREL(-2,+1,+4,#pdii7,);GETIDREL(-2,+1,+5,#pdii8,);
GETIDREL(-1,+2,+2,#kdi1,);GETIDREL(-1,+2,+3,#kdi2,);GETIDREL(-1,+2,+4,#kdi3,);GETIDREL(-1,+2,+5,#kdi4,);
// VERIFICAR SE TEM ALGUM BURACO, AGUA, OU LAVA NA SUA FRENTE
//VERIFICANDO NO MEIO
if((%#vr1%=11)|(%#vr1%=13)|(%#vr1%=9));inc(#seg,1);log("&d» &cLava Encontrada");inc(#lava,1);endif;
if((%#pe9%=11)|(%#pe10%=11)|(%#pe11%=11)|(%#pe9%=9)|(%#pe10%=9)|(%#pe11%=9));inc(#lava,1);log("&d» &cLava Encontrada");
endif;
if((%#pe1%=11)|(%#pe2%=11)|(%#pe3%=11)|(%#pe4%=11)|(%#pe5%=11)|(%#pe6%=11)||(%#pe7%=11)|(%#pe8%=11));inc(#agua,1);
log("&d» &cAgua Encontrada");endif;
if((%#ca1%=13)|(%#ca2%=13)|(%#ca3%=13)|(%#ca4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#ca1%=9)|(%#ca2%=9)|(%#ca3%=9)|(%#ca4%=9));inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#ca1%=11)|(%#ca2%=11)|(%#ca3%=11)|(%#ca4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pe1%=11)|(%#pe2%=11)|(%#pe3%=11)|(%#pe4%=11)|(%#pe5%=11)|(%#pe6%=11)||(%#pe7%=11)|(%#pe8%=11));inc(#lava,1);
log("&d» &cLava Encontrada");endif;
if((%#seguro%=0)|(%#seguro1%=0)|(%#seguro2%=0)|(%#seguro3%=0)|(%#seguro4%=0));inc(#seg,1);
log("&d» &cBuraco Encontrado");endif;
//VERIFICANDO BLOCO DA ESQUERDA
if((%#pes1%=9)|(%#pes2%=9)|(%#pes3%=9)|(%#pes4%=9)|(%#pes5%=9)|(%#pes6%=9)|(%#pes7%=9)|(%#pes8%=9));
log("&d» &cAgua Encontrada");inc(#agua,1);endif;
if((%#kes1%=13)|(%#kes2%=13)|(%#kes3%=13)|(%#kes4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#pes1%=9)|(%#pes2%=9)|(%#pes3%=9)|(%#pes4%=9)|(%#pes5%=9)|(%#pes6%=9)|(%#pes7%=9)|(%#pes8%=9);
inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#kes1%=11)|(%#kes2%=11)|(%#kes3%=11)|(%#kes4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pes1%=11)|(%#pes2%=11)|(%#pes3%=11)|(%#pes4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
//VERIFICANDO BLOCO DA DIREITA
if((%#pdi1%=9)|(%#pdi2%=9)|(%#pdi3%=9)|(%#pdi4%=9)|(%#pdi5%=9)|(%#pdi6%=9)|(%#pdi7%=9)|(%#pdi8%=9));
log("&d» &cAgua Encontrada");inc(#agua,1);endif;
if((%#kdi1%=13)|(%#kdi2%=13)|(%#kdi3%=13)|(%#kdi4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#pdi1%=9)|(%#pdi2%=9)|(%#pdi3%=9)|(%#pdi4%=9)|(%#pdi5%=9)|(%#pdi6%=9)|(%#pdi7%=9)|(%#pdi8%=9));
inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#kdi1%=11)|(%#kdi2%=11)|(%#kdi3%=11)|(%#kdi4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pdi1%=11)|(%#pdi2%=11)|(%#pdi3%=11)|(%#pdi4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
//VERIFICANDO O SEGUNDO BLOCO DA ESQUERDA
if((%#pess1%=9)|(%#pess2%=9)|(%#pess3%=9)|(%#pess4%=9)|(%#pess5%=9)|(%#pess6%=9)|(%#pess7%=9)|(%#pess8%=9));
log("&d» &cAgua Encontrada");inc(#agua,1);endif;
if((%#kesa1%=13)|(%#kesa2%=13)|(%#kesa3%=13)|(%#kesa4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#pess1%=9)|(%#pess2%=9)|(%#pess3%=9)|(%#pess4%=9)|(%#pess5%=9)|(%#pess6%=9)|(%#pess7%=9)|(%#pess8%=9);
inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#kesa1%=11)|(%#kesa2%=11)|(%#kesa3%=11)|(%#kesa4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pess1%=11)|(%#pess2%=11)|(%#pess3%=11)|(%#pess4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
//VERIFICANDO O SEGUNDO BLOCO DA DIREITA
if((%#pdii1%=9)|(%#pdii2%=9)|(%#pdii3%=9)|(%#pdii4%=9)|(%#pdii5%=9)|(%#pdii6%=9)|(%#pdii7%=9)|(%#pdii8%=9));
log("&d» &cAgua Encontrada");inc(#agua,1);endif;
if((%#kdia1%=13)|(%#kdia2%=13)|(%#kdia3%=13)|(%#kdia4%=13));inc(#cascalho,1);
log("&d» &cCascalho Encontrado");endif;
if((%#pdii1%=9)|(%#pdii2%=9)|(%#pdii3%=9)|(%#pdii4%=9)|(%#pdii5%=9)|(%#pdii6%=9)|(%#pdii7%=9)|(%#pdii8%=9));
inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#kdia1%=11)|(%#kdia2%=11)|(%#kdia3%=11)|(%#kdia4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pdii1%=11)|(%#pdii2%=11)|(%#pdii3%=11)|(%#pdii4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
//VERIFICAR SE ALGUM BURACO, CASCALHO, AGUA OU LAVA FOI ENCONTRADO A SUA VOLTA
if((%#agua%>0)|(%#lava%>0)|(%#cascalho%>0)|(%#seg%>0));
//SE ALGUM DELES FOI ENCONTRADO VOLTAR PARA O COMEÇO
dec(#agua,%#agua%);dec(#lava,%#lava%);dec(#cascalho,%#cascalho%);dec(#seg,%#seg%);
}$$/home mina$${
ECHO(/tp %#voltara% %#voltarb% %#voltarc%);
wait(%#tempo%);
//SE TIVER ALGUM BLOCO IR PARA O LADO ESQUERDO MAS ANTES VERIFICAR TUDO
wait(1);look(%&ladoe%);
//VERIFICANDO BLOCOS EM VOLTA DO LADO ESQUERDO
GETIDREL(%#k2%,0,-1,#ph,);GETIDREL(%#k3%,0,-1,#ph2,);GETIDREL(%#k3%,0,-1,#ph3,);
GETIDREL(%#k2%,0,0,#pe1,);GETIDREL(%#k3%,0,0,#pe2,);GETIDREL(%#k3%,0,0,#pe3,);GETIDREL(%#k5%,0,0,#pe4,);
GETIDREL(%#k2%,-1,0,#pe5,);GETIDREL(%#k3%,-1,0,#pe6,);GETIDREL(%#k2%,+2,0,#ca1,);GETIDREL(%#k3%,+2,0,#ca2,);
GETIDREL(%#k3%,+2,0,#ca3,);GETIDREL(%#k5%,+2,0,#ca4,);GETIDREL(%#k2%,-1,0,#seguro,);GETIDREL(%#k3%,-1,0,#seguro1,);
GETIDREL(%#k3%,-1,0,#seguro2,);GETIDREL(%#k5%,-1,0,#seguro3,);GETIDREL(%#k1%,-1,1,#oa,);
//VERIFICANDO SE TEM ALGUM OBSTACULO DO LADO ESQUERDO
if((%#ph%=11)|(%#ph2%=11)|(%#ph3%=11)|(%#ph%=9)|(%#ph2%=9)|(%#ph3%=9));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pe5%=9)|(%#pe6%=9)|(%#pe5%=11)|(%#pe6%=11));inc(#lava,1);inc(#agua,1);log("&d» &cLava Encontrada");endif;
if((%#pe1%=9)|(%#pe2%=9)|(%#pe3%=9)|(%#pe4%=9));inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#ca1%=13)|(%#ca2%=13)|(%#ca3%=13)|(%#ca4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#ca1%=9)|(%#ca2%=9)|(%#ca3%=9)|(%#ca4%=9));inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#ca1%=11)|(%#ca2%=11)|(%#ca3%=11)|(%#ca4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#pe1%=11)|(%#pe2%=11)|(%#pe3%=11)|(%#pe4%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#seguro%=0)|%#seguro1%=0)|%#seguro2%=0)|%#seguro3%=0));log("&d» &cBuraco Encontrado");inc(#seg,1);endif;
if((%#seguro%=11)|%#seguro1%=11)|%#seguro2%=11)|%#seguro3%=11));inc(#lava,1);log("&d» &cLava Encontrada");endif;
if((%#oa%=11)|(%#oa%=0)|(%#oa%=9));inc(#seg,1);log("&d» &cLava Encontrada");inc(#lava,1);endif;
//SE TUDO FOR IGUAL A ZERO JA PODE ANDAR E CAVAR DO OUTRO LADO
IF((%#agua%=0)&&(%#lava%=0)&&(%#cascalho%=0)&&(%#seg%=0));
dec(#agua,%#agua%);dec(#lava,%#lava%);dec(#cascalho,%#cascalho%);dec(#seg,%#seg%);
GETIDREL(%#k1%,0,0,#fd,);
if(%#fd%!=0);
do;
GETIDREL(%#k2%,0,0,#fd,);
look(%&ladoe%);look(,61);key(attack);until(%#fd%=0);
endif;
GETIDREL(%#k2%,1,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladoe%);
key(attack);
GETIDREL(%#k2%,1,0,#fulga,);
while(%#fulga%!=0);
endif;
GETIDREL(%#k2%,0,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladoe%);
look(,16);
key(attack);
GETIDREL(%#k2%,0,0,#fulga,);
while(%#fulga%!=0);
endif;
//#########
GETIDREL(%#k3%,1,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladoe%);
key(attack);
GETIDREL(%#k3%,1,0,#fulga,);
while(%#fulga%!=0);
endif;
GETIDREL(%#k3%,0,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladoe%);
look(,16);
key(attack);
GETIDREL(%#k3%,0,0,#fulga,);
while(%#fulga%!=0);
endif;
#x=%XPOS%;wait(500ms);
do;
look(%&ladoe%);
keydown(sneak);
keydown(forward);
until((%XPOS%=%#x%+3)|(%XPOS%=%#x%-3));
wait(230ms);keyup(forward);keyup(sneak);
wait(100ms);
}$$/sethome mina$${
wait(100ms);
#voltara=%XPOS%;
#voltarb=%YPOS%;
#voltarc=%ZPOS%;
ENDIF;
ENDIF;
//#### MAS SE TIVER ALGUM BURACO ####
//SE A AGUA, CASCALHO, BURACO OU LAVA FOR DIFERENTE DE ZERO
if((%#agua%!=0)|(%#lava%!=0)|(%#cascalho%!=0)|(%#seg%!=0));
dec(#agua,%#agua%);dec(#lava,%#lava%);dec(#cascalho,%#cascalho%);dec(#seg,%#seg%);
GETIDREL(-1,+2,0,#vr2,);
GETIDREL(-2,0,0,#pe1,);GETIDREL(-3,0,0,#pe2,);GETIDREL(-4,0,0,#pe3,);
GETIDREL(-5,0,0,#pe4,);GETIDREL(-2,+2,0,#ca1,);GETIDREL(-3,+2,0,#ca2,);
GETIDREL(-4,+2,0,#ca3,);GETIDREL(-5,+2,0,#ca4,);GETIDREL(-2,-1,0,#seguro,);
GETIDREL(-3,-1,0,#seguro1,);GETIDREL(-4,-1,0,#seguro2,);GETIDREL(-5,-1,0,#seguro3,);
GETIDREL(-1,-1,0,#phd1,);GETIDREL(-2,-1,0,#phd2,);
//VERIFICANDO SE O LADO DIREITO WEST ESTA SEGURO
if((%#phd1%=11)|(%#phd2%=11)|(%#phd1%=9)|(%#phd2%=9)|(%#phd1%=0)|(%#phd2%=0));inc(#lava,1);inc(#seg,1);
log("&d» &cLava Encontrada");inc(#lava,1);endif;
if((%#vr2%=11)|(%#vr2%=13)|(%#vr2%=9));inc(#seg,1);log("&d» &cAlgo Foi Encontrado em Cima de Voce");endif;
if((%#pe1%=9)|(%#pe2%=9)|(%#pe3%=9)|(%#pe4%=9));inc(#agua,1);log("&d» &cAgua Encontrada");endif;
if((%#ca1%=13)|(%#ca2%=13)|(%#ca3%=13)|(%#ca4%=13));inc(#cascalho,1);log("&d» &cCascalho Encontrado");endif;
if((%#ca1%=9)|(%#ca2%=9)|(%#ca3%=9)|(%#ca4%=9));log("&d» &cAgua Encontrada");inc(#agua,1);endif;
if((%#ca1%=11)|(%#ca2%=11)|(%#ca3%=11)|(%#ca4%=11));log("&d» &cLava Encontrada");inc(#lava,1);endif;
if((%#pe1%=11)|(%#pe2%=11)|(%#pe3%=11)|(%#pe4%=11));log("&d» &cLava Encontrada");inc(#lava,1);endif;
if((%#seguro%=0)|%#seguro1%=0)|%#seguro2%=0)|%#seguro3%=0));log("&d» &cBuraco Encontrado");inc(#seg,1);endif;
if((%#seguro%=11)|%#seguro1%=11)|%#seguro2%=11)|%#seguro3%=11));log("&d» &cLava Encontrada");inc(#lava,1);endif;
//CASO ESTEJA SEGURO CAVE QUATRO BLOCOS E ANDE
if((%#agua%=0)&&(%#lava%=0)&&(%#cascalho%=0)&&(%#seg%=0));
if(%#phdl%=1);
tp(%#vltd% %#vlte% %#vltf%);
}$$
/home bau
$${
wait(%#tempo%);
inc(#phdl,5);
endif;
&ladoe=west;#k1=-1;#k2=-2;#k3=-3;#k4=-4;#k5=-5;
dec(#agua,%#agua%);dec(#lava,%#lava%);dec(#cascalho,%#cascalho%);dec(#seg,%#seg%);
GETIDREL(-1,0,0,#p,);
if(%#p%!=0);
do;
look(%&ladod%);
look(,55);
key(attack);
GETIDREL(-1,0,0,#p,);
while(%#p%!=0);
endif;
GETIDREL(-2,1,0,#fulga,);
do;
look(%&ladod%);
key(attack);
GETIDREL(-2,1,0,#fulga,);
while(%#fulga%!=0);
GETIDREL(-2,0,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladod%);
look(,16);
key(attack);
GETIDREL(-2,0,0,#fulga,);
while(%#fulga%!=0);
endif;
//################
do;
look(%&ladod%);
key(attack);
GETIDREL(-3,1,0,#fulga,);
while(%#fulga%!=0);
GETIDREL(-3,0,0,#fulga,);
if(%#fulga%!=0);
do;
look(%&ladod%);
look(,16);
key(attack);
GETIDREL(-3,0,0,#fulga,);
while(%#fulga%!=0);
endif;
#x=%XPOS%;wait(500ms);
do;
look(%&ladod%);
keydown(sneak);
keydown(forward);
until((%XPOS%=%#x%+3)|(%XPOS%=%#x%-3));
wait(320ms);keyup(forward);keyup(forward);
wait(100ms);
}$$/sethome mina$${
wait(100ms);
#voltara=%XPOS%;
#voltarb=%YPOS%;
#voltarc=%ZPOS%;
ENDIF;
ENDIF;
//MAS SE NAO ESTIVER SEGURO
//
//APENAS DESLIGUE O MACRO E AVISE O PLAYER
if((%#agua%!=0)|(%#lava%!=0)|(%#cascalho%!=0)|(%#seg%!=0));
log("&d» &cNao tenho mais para onde ir!");
log("&d» &cParando o Macro");
log("&d» &cVoce Minerou um total de &e%#blocos% &cblocos");
unset(beta);
unset(beta);stop;
ENDIF;
//SE O CAMINHO ESTIVER LIVRE CAVE PEQUENO STEVE
//===============================================
GETIDREL(0,1,1,#frente,);slot(%#slot%);
if(%#frente%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(south);
key(attack);
GETIDREL(0,1,1,#frente,);
while(%#frente%!=0);
endif;
//===============================================
GETIDREL(0,0,1,#frente,);slot(%#slot%);
if(%#frente%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(south);
look(,59);
key(attack);
GETIDREL(0,0,1,#frente,);
while(%#frente%!=0);
endif;
//==============================================
GETIDREL(1,1,0,#xcima,);slot(%#slot%);
if(%#xcima%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(east);
key(attack);
GETIDREL(1,1,0,#xcima,);
while(%#xcima%!=0);
endif;
//===========================================
GETIDREL(1,0,0,#xbaixo,);slot(%#slot%);
if(%#xbaixo%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(east);
look(,59);
key(attack);
GETIDREL(1,0,0,#xbaixo,);
while(%#xbaixo%!=0);
endif;
//==========================================
GETIDREL(-1,1,0,#direita,);slot(%#slot%);
wait(1ms);
if(%#direita%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(west);
key(attack);
GETIDREL(-1,1,0,#direita,);
while(%#direita%!=0);
endif;
//==========================================
GETIDREL(-1,0,0,#direita,);slot(%#slot%);
wait(1ms);
if(%#direita%!=0);inc(#blocos,1);inc(@#arch,1);setlabel(ph1,&ePMine &2(&7%@#arch%&2/&7%@#phodalao%&2),ph1);
do;
look(west);
look(,59);
key(attack);
GETIDREL(-1,0,0,#direita,);
while(%#direita%!=0);
endif;
#x=XPOS;#z=ZPOS;
wait(500ms);
do;
look(south);
keydown(forward);
keydown(sneak);
until((%ZPOS%=%#z%-1)|(%ZPOS%=%#z%+1));
keyup(forward);keyup(sneak);look(south);
wait(500ms);
loop;
}$$