$${
if(@neth3);
keyup(forward);
unset(@neth3);
}$$
/sethome fungotemp
$${
#snposx1=%XPOS%; #snposx2=%ZPOS%;
log("&d» &6Plantação Automática &c[OFF]");
stop();
else;
set(@neth3);
#delay=8;#nbau=1;
log("&d» &6Plantação Automática &a[ON]");
PROMPT(&return,$$?,"Continuar de onde estava quando desligou? (S ou N)");
ifmatches(%&return%,^[S|s]);
set(return);
log("&d» &6Continuando a partir de onde foi desligado!");
else;
PROMPT(#ch,$$?,"Começar por qual conjunto de baús? (Parou no %#ch%)"); if(%#ch%=0);unset(@neth3);stop();endif;
if(%#ch%>24);
log(&d» &cOps! &6O limite é 25 &3:/);
log("&d» &6Plantação Automática &c[OFF]");
unset(@neth3);
stop();
endif;
unset(return);
#fxv=166;
#hfl=1;
PROMPT(#flror,$$?,"Começar por qual andar?"); if(%#flror%=0);unset(@neth3);stop();endif;
if(%#flror%>%#fxv%);
log(&d» &cOps! &6Andar escolhido para começar é maior que o número de andares que você escolheu! Preste mais atenção nas perguntas &3:/);
log("&d» &6Plantação Automática &c[OFF]");
unset(@neth3);
stop();
endif;
log("&d» &6As sethomes devem ser no estilo: &3/home fungof1 /home fungof2&6 ...");
log("&d» &6As sethomes dos baús devem ser no estilo &3/home fungobaus1 /home fungobaus2&6...");
log("&d» &6Se quiser parar só por um tempo, segure a &3tecla P&6 até parar!");
set(first);
endif;
do;
for(#hfl,%#flror%,%#fxv%);
wait(1);
if(return);
#hfltemp=%#hfl%;#hfl=8000;
}$$
/home fungotemp
$${
do;until((%XPOS%=%#snposx1%)&&(%ZPOS%=%#snposx2%));wait(1);
unset(return);
else;
if(%#hfl%=1);}$$/home fungof1$${endif;if(%#hfl%=2);}$$/home fungof2$${endif;if(%#hfl%=3);}$$/home fungof3$${endif;}$$
$${if(%#hfl%=4);}$$/home fungof4$${endif;if(%#hfl%=5);}$$/home fungof5$${endif;if(%#hfl%=6);}$$/home fungof6$${endif;}$$
$${if(%#hfl%=7);}$$/home fungof7$${endif;if(%#hfl%=8);}$$/home fungof8$${endif;if(%#hfl%=9);}$$/home fungof9$${endif;if(%#hfl%=10);}$$/home fungof10$${endif;}$$
$${if(%#hfl%=11);}$$/home fungof11$${endif;if(%#hfl%=12);}$$/home fungof12$${endif;if(%#hfl%=13);}$$/home fungof13$${endif;}$$
$${if(%#hfl%=14);}$$/home fungof14$${endif;if(%#hfl%=15);}$$/home fungof15$${endif;if(%#hfl%=16);}$$/home fungof16$${endif;}$$
$${if(%#hfl%=17);}$$/home fungof17$${endif;if(%#hfl%=18);}$$/home fungof18$${endif;if(%#hfl%=19);}$$/home fungof19$${endif;if(%#hfl%=20);}$$/home fungof20$${endif;}$$
$${if(%#hfl%=21);}$$/home fungof21$${endif;if(%#hfl%=22);}$$/home fungof22$${endif;if(%#hfl%=23);}$$/home fungof23$${endif;}$$
$${if(%#hfl%=24);}$$/home fungof24$${endif;if(%#hfl%=25);}$$/home fungof25$${endif;if(%#hfl%=26);}$$/home fungof26$${endif;}$$
$${if(%#hfl%=27);}$$/home fungof27$${endif;if(%#hfl%=28);}$$/home fungof28$${endif;if(%#hfl%=29);}$$/home fungof29$${endif;if(%#hfl%=30);}$$/home fungof30$${endif;}$$
$${if(%#hfl%=31);}$$/home fungof31$${endif;if(%#hfl%=32);}$$/home fungof32$${endif;if(%#hfl%=33);}$$/home fungof33$${endif;}$$
$${if(%#hfl%=34);}$$/home fungof34$${endif;if(%#hfl%=35);}$$/home fungof35$${endif;if(%#hfl%=36);}$$/home fungof36$${endif;}$$
$${if(%#hfl%=37);}$$/home fungof37$${endif;if(%#hfl%=38);}$$/home fungof38$${endif;if(%#hfl%=39);}$$/home fungof39$${endif;if(%#hfl%=40);}$$/home fungof40$${endif;}$$
$${if(%#hfl%=41);}$$/home fungof41$${endif;if(%#hfl%=42);}$$/home fungof42$${endif;if(%#hfl%=43);}$$/home fungof43$${endif;}$$
$${if(%#hfl%=44);}$$/home fungof44$${endif;if(%#hfl%=45);}$$/home fungof45$${endif;if(%#hfl%=46);}$$/home fungof46$${endif;}$$
$${if(%#hfl%=47);}$$/home fungof47$${endif;if(%#hfl%=48);}$$/home fungof48$${endif;if(%#hfl%=49);}$$/home fungof49$${endif;if(%#hfl%=50);}$$/home fungof50$${endif;}$$
$${if(%#hfl%=51);}$$/home fungof51$${endif;if(%#hfl%=52);}$$/home fungof52$${endif;if(%#hfl%=53);}$$/home fungof53$${endif;}$$
$${if(%#hfl%=54);}$$/home fungof54$${endif;if(%#hfl%=55);}$$/home fungof55$${endif;if(%#hfl%=56);}$$/home fungof56$${endif;}$$
$${if(%#hfl%=57);}$$/home fungof57$${endif;if(%#hfl%=58);}$$/home fungof58$${endif;if(%#hfl%=59);}$$/home fungof59$${endif;if(%#hfl%=60);}$$/home fungof60$${endif;}$$
$${if(%#hfl%=61);}$$/home fungof61$${endif;if(%#hfl%=62);}$$/home fungof62$${endif;if(%#hfl%=63);}$$/home fungof63$${endif;}$$
$${if(%#hfl%=64);}$$/home fungof64$${endif;if(%#hfl%=65);}$$/home fungof65$${endif;if(%#hfl%=66);}$$/home fungof66$${endif;}$$
$${if(%#hfl%=67);}$$/home fungof67$${endif;if(%#hfl%=68);}$$/home fungof68$${endif;if(%#hfl%=69);}$$/home fungof69$${endif;if(%#hfl%=70);}$$/home fungof70$${endif;}$$
$${if(%#hfl%=71);}$$/home fungof71$${endif;if(%#hfl%=72);}$$/home fungof72$${endif;if(%#hfl%=73);}$$/home fungof73$${endif;}$$
$${if(%#hfl%=74);}$$/home fungof74$${endif;if(%#hfl%=75);}$$/home fungof75$${endif;if(%#hfl%=76);}$$/home fungof76$${endif;}$$
$${if(%#hfl%=77);}$$/home fungof77$${endif;if(%#hfl%=78);}$$/home fungof78$${endif;if(%#hfl%=79);}$$/home fungof79$${endif;if(%#hfl%=80);}$$/home fungof80$${endif;}$$
$${if(%#hfl%=81);}$$/home fungof81$${endif;if(%#hfl%=82);}$$/home fungof82$${endif;if(%#hfl%=83);}$$/home fungof83$${endif;}$$
$${if(%#hfl%=84);}$$/home fungof84$${endif;if(%#hfl%=85);}$$/home fungof85$${endif;if(%#hfl%=86);}$$/home fungof86$${endif;}$$
$${if(%#hfl%=87);}$$/home fungof87$${endif;if(%#hfl%=88);}$$/home fungof88$${endif;if(%#hfl%=89);}$$/home fungof89$${endif;if(%#hfl%=90);}$$/home fungof90$${endif;}$$
$${if(%#hfl%=91);}$$/home fungof91$${endif;if(%#hfl%=92);}$$/home fungof92$${endif;if(%#hfl%=93);}$$/home fungof93$${endif;}$$
$${if(%#hfl%=94);}$$/home fungof94$${endif;if(%#hfl%=95);}$$/home fungof95$${endif;if(%#hfl%=96);}$$/home fungof96$${endif;}$$
$${if(%#hfl%=97);}$$/home fungof97$${endif;if(%#hfl%=98);}$$/home fungof98$${endif;if(%#hfl%=99);}$$/home fungof99$${endif;if(%#hfl%=100);}$$/home fungof100$${endif;}$$
$${if(%#hfl%=101);}$$/home fungof101$${endif;if(%#hfl%=102);}$$/home fungof102$${endif;if(%#hfl%=103);}$$/home fungof103$${endif;}$$
$${if(%#hfl%=104);}$$/home fungof104$${endif;if(%#hfl%=105);}$$/home fungof105$${endif;if(%#hfl%=106);}$$/home fungof106$${endif;}$$
$${if(%#hfl%=107);}$$/home fungof107$${endif;if(%#hfl%=108);}$$/home fungof108$${endif;if(%#hfl%=109);}$$/home fungof109$${endif;if(%#hfl%=110);}$$/home fungof110$${endif;}$$
$${if(%#hfl%=111);}$$/home fungof111$${endif;if(%#hfl%=112);}$$/home fungof112$${endif;if(%#hfl%=113);}$$/home fungof113$${endif;}$$
$${if(%#hfl%=114);}$$/home fungof114$${endif;if(%#hfl%=115);}$$/home fungof115$${endif;if(%#hfl%=116);}$$/home fungof116$${endif;}$$
$${if(%#hfl%=117);}$$/home fungof117$${endif;if(%#hfl%=118);}$$/home fungof118$${endif;if(%#hfl%=119);}$$/home fungof119$${endif;if(%#hfl%=120);}$$/home fungof120$${endif;}$$
$${if(%#hfl%=131);}$$/home fungof131$${endif;if(%#hfl%=132);}$$/home fungof132$${endif;if(%#hfl%=133);}$$/home fungof133$${endif;}$$
$${if(%#hfl%=134);}$$/home fungof134$${endif;if(%#hfl%=135);}$$/home fungof135$${endif;if(%#hfl%=136);}$$/home fungof136$${endif;}$$
$${if(%#hfl%=137);}$$/home fungof137$${endif;if(%#hfl%=138);}$$/home fungof138$${endif;if(%#hfl%=139);}$$/home fungof139$${endif;if(%#hfl%=130);}$$/home fungof130$${endif;}$$
$${if(%#hfl%=141);}$$/home fungof141$${endif;if(%#hfl%=142);}$$/home fungof142$${endif;if(%#hfl%=143);}$$/home fungof143$${endif;}$$
$${if(%#hfl%=144);}$$/home fungof144$${endif;if(%#hfl%=145);}$$/home fungof145$${endif;if(%#hfl%=146);}$$/home fungof146$${endif;}$$
$${if(%#hfl%=147);}$$/home fungof147$${endif;if(%#hfl%=148);}$$/home fungof148$${endif;if(%#hfl%=149);}$$/home fungof149$${endif;if(%#hfl%=140);}$$/home fungof140$${endif;}$$
$${if(%#hfl%=151);}$$/home fungof151$${endif;if(%#hfl%=152);}$$/home fungof152$${endif;if(%#hfl%=153);}$$/home fungof153$${endif;}$$
$${if(%#hfl%=154);}$$/home fungof154$${endif;if(%#hfl%=155);}$$/home fungof155$${endif;if(%#hfl%=156);}$$/home fungof156$${endif;}$$
$${if(%#hfl%=157);}$$/home fungof157$${endif;if(%#hfl%=158);}$$/home fungof158$${endif;if(%#hfl%=159);}$$/home fungof159$${endif;if(%#hfl%=150);}$$/home fungof150$${endif;}$$
$${if(%#hfl%=161);}$$/home fungof161$${endif;if(%#hfl%=162);}$$/home fungof162$${endif;if(%#hfl%=163);}$$/home fungof163$${endif;}$$
$${if(%#hfl%=164);}$$/home fungof164$${endif;if(%#hfl%=165);}$$/home fungof165$${endif;if(%#hfl%=166);}$$/home fungof166$${endif;}$$
$${if(%#hfl%=167);}$$/home fungof166$${endif;
wait(8);
set(first);
endif;
keydown(jump);wait(100ms);keyup(jump);wait(1);
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;endif;
ifmatches(%&dir%,S);&dir=SOUTH;endif;
ifmatches(%&dir%,E);&dir=EAST;endif;
ifmatches(%&dir%,W);&dir=WEST;endif;
gui();
for(#in,1,9);
getslotitem(%#in%,&idk,#stack);
ifmatches(%&idk%,shovel|pickaxe|axe);
#slotl=%#in%;
endif;
next;
look(%&dir%);
look(,+89);
key(attack);
unset(nextfloor);
do;
#stack=0;
keyup(forward);
gui(inventory);
wait(450ms);
getslot(372,#fghot);
getslotitem(35,&id,#stack);
if(%#fghot%<36);
slotclick(%#fghot%,l,true);
endif;
wait(450ms);
gui();
if(%#stack%>0);
#nposx1=%XPOS%; #nposx2=%ZPOS%;
}$$
/sethome fungotemp
$${
if(%#ch%=1);}$$/home fungobaus1$${endif;if(%#ch%=2);}$$/home fungobaus2$${endif;if(%#ch%=3);}$$/home fungobaus3$${endif;if(%#ch%=4);}$$/home fungobaus4$${endif;
if(%#ch%=5);}$$/home fungobaus5$${endif;if(%#ch%=6);}$$/home fungobaus6$${endif;if(%#ch%=7);}$$/home fungobaus6$${endif;if(%#ch%=8);}$$/home fungobaus8$${endif;
if(%#ch%=9);}$$/home fungobaus9$${endif;if(%#ch%=10);}$$/home fungobaus10$${endif;if(%#ch%=11);}$$/home fungobaus11$${endif;if(%#ch%=12);}$$/home fungobaus12$${endif;
if(%#ch%=13);}$$/home fungobaus13$${endif;if(%#ch%=14);}$$/home fungobaus14$${endif;if(%#ch%=15);}$$/home fungobaus15$${endif;if(%#ch%=16);}$$/home fungobaus16$${endif;
if(%#ch%=17);}$$/home fungobaus17$${endif;if(%#ch%=18);}$$/home fungobaus18$${endif;if(%#ch%=19);}$$/home fungobaus19$${endif;if(%#ch%=20);}$$/home fungobaus20$${endif;
if(%#ch%=21);}$$/home fungobaus21$${endif;if(%#ch%=22);}$$/home fungobaus22$${endif;if(%#ch%=23);}$$/home fungobaus23$${endif;if(%#ch%=24);}$$/home fungobaus24$${endif;
if(%#ch%=25);}$$/home fungobaus25$${endif;
do;until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
keydown(jump);wait(100ms);keyup(jump);wait(1);
&dir=%DIRECTION%;
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;
look(%&dir%);
if(%#nbau%=1);look(+251,+32);endif;
if(%#nbau%=2);look(+251,+11);endif;
if(%#nbau%=3);look(+251,+338);endif;
if(%#nbau%=4);look(+251,+315);endif;
if(%#nbau%=5);look(+313,+29);endif;
if(%#nbau%=6);look(+307,+6);endif;
if(%#nbau%=7);look(+308,+345);endif;
if(%#nbau%=8);look(+310,+320);endif;
if(%#nbau%=9);look(+350,+23);endif;
if(%#nbau%=10);look(+335,+6);endif;
if(%#nbau%=11);look(+351,+342);endif;
if(%#nbau%=12);look(+352,+326);endif;
if(%#nbau%=13);look(+388,+21);endif;
if(%#nbau%=14);look(+387,+5);endif;
if(%#nbau%=15);look(+389,+346);endif;
if(%#nbau%=16);look(+389,+331);endif;
if(%#nbau%=17);look(+422,+19);endif;
if(%#nbau%=18);look(+426,+4);endif;
if(%#nbau%=19);look(+426,+348);endif;
if(%#nbau%=20);look(+425,+329);endif;
if(%#nbau%=21);look(+455,+26);endif;
if(%#nbau%=22);look(+454,+7);endif;
if(%#nbau%=23);look(+457,+347);endif;
if(%#nbau%=24);look(+359,+329);endif;
wait(1);
key(use);
wait(4);
for(#i,54,87);
getslotitem(%#i%,&ide,#stacke);
ifmatches(%&ide%,nether_wart);
slotclick(%#i%,l,true);
wait(30ms);
endif;
next;
wait(250ms);
getslotitem(53,&id,#stack);
wait(250ms);
if(%#stack%!=0);
#nbau=%#nbau%+1;
if(%#nbau%=25);
unset(@neth3);
log("&d» &6Baús cheios?");
if(%#ch%<25);
#ch=%#ch%+1;
log("&d» &6Próximo conjunto de baús! (%#ch%)");
#nbau=1;
if(%#ch%=1);}$$/home fungobaus1$${endif;if(%#ch%=2);}$$/home fungobaus2$${endif;if(%#ch%=3);}$$/home fungobaus3$${endif;if(%#ch%=4);}$$/home fungobaus4$${endif;
if(%#ch%=5);}$$/home fungobaus5$${endif;if(%#ch%=6);}$$/home fungobaus6$${endif;if(%#ch%=7);}$$/home fungobaus6$${endif;if(%#ch%=8);}$$/home fungobaus8$${endif;
if(%#ch%=9);}$$/home fungobaus9$${endif;if(%#ch%=10);}$$/home fungobaus10$${endif;if(%#ch%=11);}$$/home fungobaus11$${endif;if(%#ch%=12);}$$/home fungobaus12$${endif;
if(%#ch%=13);}$$/home fungobaus13$${endif;if(%#ch%=14);}$$/home fungobaus14$${endif;if(%#ch%=15);}$$/home fungobaus15$${endif;if(%#ch%=16);}$$/home fungobaus16$${endif;
if(%#ch%=17);}$$/home fungobaus17$${endif;if(%#ch%=18);}$$/home fungobaus18$${endif;if(%#ch%=19);}$$/home fungobaus19$${endif;if(%#ch%=20);}$$/home fungobaus20$${endif;
if(%#ch%=21);}$$/home fungobaus21$${endif;if(%#ch%=22);}$$/home fungobaus22$${endif;if(%#ch%=23);}$$/home fungobaus23$${endif;if(%#ch%=24);}$$/home fungobaus24$${endif;
if(%#ch%=25);}$$/home fungobaus25$${endif;
do;until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
keydown(jump);wait(100ms);keyup(jump);wait(1);
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;endif;
ifmatches(%&dir%,S);&dir=SOUTH;endif;
ifmatches(%&dir%,E);&dir=EAST;endif;
ifmatches(%&dir%,W);&dir=WEST;endif;
else;
log("&d» &6Limite de baús!");
log("&d» &6Plantação Automática &c[OFF]");
stop();
endif;
endif;
endif;
gui();
until(%#stack%=0);
}$$
/home fungotemp
$${
wait(%#delay%);
keydown(jump);wait(100ms);keyup(jump);wait(1);
else;
gui();
endif;
do;
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;
ifmatches(%GUI%,chat|inventory);
keyup(forward);
log(&d» &6Chat ou inventório detectado. &3Macro pausado!);
do;
ifmatches(%GUI%,CHAT|INVENTORY);
else;
#g=0;
endif;
until(%#g%=0);
#g=1;
log(&d» &6Chat ou inventório fechado. &3Continuando!);
endif;
if(KEY_P);
keyup(forward);
wait(200ms);
#nposx1=%XPOS%;#nposx2=%ZPOS%;
}$$
/sethome fungotemp
$${
log(&d» &6Plantação automática &3interrompida&6!);
log(&d» &6Para continuar, segure a &3tecla P &6por 3 segundos!);
do;
if(KEY_P);
wait(3);
if(KEY_P);
wait(200ms);
if(KEY_P);
set(resume);
endif;
endif;
endif;
until(resume);
unset(resume);
}$$
/home fungotemp
$${
log("&d» &6Plantação automática &3retomada&6!");
log("&d» &6Não mexa o mouse, oki? &3
");
do;until((%XPOS%=%#nposx1%)&&(%ZPOS%=%#nposx2%));
wait(2);
endif;
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;endif;
ifmatches(%&dir%,S);&dir=SOUTH;endif;
ifmatches(%&dir%,E);&dir=EAST;endif;
ifmatches(%&dir%,W);&dir=WEST;endif;
look(%&dir%);
look(,+89);
#nposx1=%XPOS%; #nposx2=%ZPOS%;
do;
keydown(forward);
pick(nether_wart);
key(use);
getidrel(%&x%,+0,%&z%,&blockd);
getidrel(%&x%,+1,%&z%,&blocku);
ifmatches(%&blockd%,soul_sand);#cond1=0;else;#cond1=1;endif;
ifmatches(%&blocku%,nether_wart);#cond2=0;else;#cond2=1;endif;
ifmatches(%&blocku%,air);#cond3=0;else;#cond3=1;endif;
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%)|(%#cond1%=1)|(%#cond2%=1)&&(%#cond3%=1));
slot(%#slotl%);
if(%HITDATA%>2);key(attack);endif;
ifmatches(%&blockd%,soul_sand);#cond1=0;else;#cond1=1;endif;
ifmatches(%&blocku%,nether_wart);#cond2=0;else;#cond2=1;endif;
ifmatches(%&blocku%,air);#cond3=0;else;#cond3=1;endif;
until((%#cond1%=1)|((%#cond2%=1)&&(%#cond3%=1)));
key(use);
keyup(forward);
if(first);
getidrel(%&x1%,+0,%&z1%,&block1);getidrel(%&x2%,+0,%&z2%,&block2);
getidrel(%&x1%,+1,%&z1%,&block3);getidrel(%&x2%,+1,%&z2%,&block4);
ifmatches(%&block1%,soul_sand);&sn=-;endif;ifmatches(%&block3%,soul_sand);&sn=-;endif;
ifmatches(%&block2%,soul_sand);&sn=+;endif;ifmatches(%&block4%,soul_sand);&sn=+;endif;
&dirc=%DIRECTION%;
ifmatches(%&sn%,[\+]);&sn1=+;&sn2=-;endif;
ifmatches(%&sn%,[\-]);&sn1=-;&sn2=+;endif;
unset(first);
endif;
&dir=%DIRECTION%;
ifmatches(%&dirc%,N);ifmatches(%&dir%,N);&sn=%&sn1%;endif;ifmatches(%&dir%,S);&sn=%&sn2%;endif;endif;
ifmatches(%&dirc%,S);ifmatches(%&dir%,N);&sn=%&sn2%;endif;ifmatches(%&dir%,S);&sn=%&sn1%;endif;endif;
ifmatches(%&dirc%,W);ifmatches(%&dir%,W);&sn=%&sn1%;endif;ifmatches(%&dir%,E);&sn=%&sn2%;endif;endif;
ifmatches(%&dirc%,E);ifmatches(%&dir%,W);&sn=%&sn2%;endif;ifmatches(%&dir%,E);&sn=%&sn1%;endif;endif;
look(%&sn%90,);
wait(100ms);
&dir=%DIRECTION%;
ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;
getidrel(%&x%,+0,%&z%,&block1);
getidrel(%&x%,+1,%&z%,&block3);
#rf=0;
ifmatches(%&block3%,air);else;inc(#rf,1);endif;
ifmatches(%&block3%,nether_wart);else;inc(#rf,1);endif;
ifmatches(%&block1%,soul_sand);else;#rf=2;endif;
endif;
if(%#rf%=2);
else;
#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
do;
keydown(forward);
pick(nether_wart);
key(use);
until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
keyup(forward);
key(attack);
look(%&sn%90,);
endif;
until(%#rf%=2);
keyup(FORWARD);
next;
#flror=1;
loop;
endif;
}$$
