$${if(@reparador);unset(@reparador);
log(&4=======================================);
log(&6&l[Reparador] &c&l[&4 OFF &c&l]);
log(&6&l[Reparador] &efico grato por usar meu macro);
log(&6&l[Reparador] &eBy: &c&lDevasteytor &eCraftlandia - Propano);
log(&4=======================================);
keyup(back);keyup(forward);keyup(sneak);keyup(%&lado%);stop;else;
log(&2=======================================);log(&2);
log(&6&l[Reparador] &9&l[&2 &lON &9&l]);
log(&2);log(&2=======================================);set(@reparador);
if(%HITID%="iron_block");#x=%XPOS%;#z=%ZPOS%;echo(/home reptemp);
do;until((%#x%!=%XPOS%)||(%#z%!=%ZPOS%));endif;
@&key=%KEYNAME%;if(@login);unset(@login);else;
ifmatches(%DIRECTION%,W);&look = "WEST" ;getidrel(0,0,-1,&getlado);endif;
ifmatches(%DIRECTION%,E);&look = "EAST" ;getidrel(0,0,+1,&getlado);endif;
ifmatches(%DIRECTION%,N);&look = "NORTH" ;getidrel(+1,0,0,&getlado);endif;
ifmatches(%DIRECTION%,S);&look = "SOUTH" ;getidrel(-1,0,0,&getlado);endif;
if(%&getlado%!="air");&lado=left;else;&lado=right;endif;#v=0;#slot=1;endif;do;do;
look(%&look%);look(,85);slot(%#slot%);key(use);
if(%DURABILITY%<20);inc(#slot,1);endif;if(%#slot%>9);set(rep);endif;if(%#v%=0);
if(%&look% = "NORTH" );getidrel(0,0,-1,&getf);endif;if(%&look% = "SOUTH" );getidrel(0,0,+1,&getf);endif;
if(%&look% = "EAST" );getidrel(+1,0,0,&getf);endif;if(%&look% = "WEST" );getidrel(-1,0,0,&getf);endif;
keydown(forward);endif;if(%#v%=1);
if(%&look% = "NORTH" );getidrel(0,0,+1,&gett);endif;if(%&look% = "SOUTH" );getidrel(0,0,-1,&gett);endif;
if(%&look% = "EAST" );getidrel(-1,0,0,&gett);endif;if(%&look% = "WEST" );getidrel(+1,0,0,&gett);endif;
keydown(back);endif;if(rep);log(&6&l[Reparador] &eTodas as enxadas estao no &4Red &e
);
log(&6&l[Reparador] &eIndo reparar . . .);unset(rep);keyup(forward);
keyup(back);#x=%XPOS%;#z=%ZPOS%;echo(/sethome reptemp);#slot=1;wait(500ms);
echo(/home reparar);do;until((%#x%!=%XPOS%)||(%#z%!=%ZPOS%));wait(500ms);
for(#sl,9,1);do;slot(%#sl%);key(use);wait(250ms);until((%DURABILITY%>20)||(%ITEM%="air"));next;
#x=%XPOS%;#z=%ZPOS%;log(&6&l[Reparador] &eVoltando para trap . . .);
echo(/home reptemp);do;until((%#x%!=%XPOS%)||(%#z%!=%ZPOS%));endif;
if((%#v%=0)&&(%&getf%!="air"));#v=1;break;endif;
if((%#v%=1)&&(%&gett%!="air"));#v=0;break;endif;loop;
keyup(forward);keyup(back);#x=%XPOS%;#z=%ZPOS%;#n=0;do;keydown(sneak);keydown(%&lado%);
key(use);inc(#n,1);if(%#n%>20);set(home);break;endif;
until((%#x%=%XPOS%+1)||(%#x%=%XPOS%-1)||(%#z%=%ZPOS%+1)||(%#z%=%ZPOS%-1));
wait(150ms);keyup(sneak);keyup(%&lado%);
if(home);unset(home);echo(/home reptrap);#v=0;endif;
do;until((%#x%!=%XPOS%)||(%#z%!=%ZPOS%));endif;loop;endif;}$$
