nao sei de quem e + ta ai pq peguei de um amigo:
$${
if(cacto);
unset(cacto);
keyup(sneak);
keyup(forward);
keyup(left);
keyup(right);
keyup(back);
keyup(jump);
LOG("&d>> &6Cactus Farm - &a1.7 &f[&4OFF&f]");
stop;
else;
#feitos=0;
set(cacto);
LOG("&d>> &6Cactus Farm - &a1.7 &f[&2ON&f]");
prompt(#andares,$$?,Quantos andares?);
do(%#andares%);
//dirt
pick(dirt);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
pick(dirt);
look(90,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);
pick(dirt);
look(270,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
do;
look(180,80);
keydown(right);
until(%XPOS%=%#posx%-1);
keyup(right);
pick(dirt);
look(180,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);
pick(dirt);
look(360,80);
keydown(back);
keydown(sneak);
wait(1500ms);
keyup(back);
wait(100ms);
keyup(sneak);
key(use);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
do;
look(0,80);
keydown(forward);
until(%ZPOS%=%#posz%-1);
keyup(forward);
wait(100ms);
//sand
look(0,90);
pick(sand);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
pick(sand);
look(360,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(180,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(90,65);
wait(200ms);
key(use);
wait(200ms);
pick(sand);
look(270,65);
wait(200ms);
key(use);
wait(200ms);
//dirt2
look(0,90);
pick(dirt);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
look(0,90);
pick(dirt);
look(,90);
keydown(jump);
wait(200ms);
key(use);
keyup(jump);
wait(200ms);
//blockbreak
wait(1ms);
keydown(sneak);
look(,90);
keydown(back);
wait(2);
keyup(back);
wait(250ms);
keyup(sneak);
wait(500ms);
look(360,84);
pick(diamond_shovel);
wait(15ms);
do;
key(attack);
until(%HITID%!=3);
wait(100ms);
#posz=%ZPOS%;
do;
look(0,90);
keydown(forward);
until(%ZPOS%=%#posz%-1);
keyup(forward);
wait(200ms);
//cactus
wait(200ms);
look(360,90);
keydown(sneak);
look(,90);
keydown(back);
wait(2);
keyup(back);
wait(200ms);
pick(cactus);
keyup(sneak);
wait(200ms);
look(360,89);
wait(200ms);
key(use);
wait(200ms);
wait(200ms);
look(180,90);
keydown(sneak);
look(180,90);
keydown(back);
wait(2);
keyup(back);
wait(200ms);
keyup(sneak);
wait(200ms);
pick(cactus);
wait(200ms);
key(use);
wait(200ms);
do;
look(180,90);
keydown(forward);
until(%ZPOS%=%#posz%-1);
keyup(forward);
wait(200ms);
wait(200ms);
look(270,90);
keydown(sneak);
look(270,90);
keydown(back);
wait(2);
keyup(back);
wait(200ms);
keyup(sneak);
wait(200ms);
pick(cactus);
wait(200ms);
key(use);
wait(200ms);
wait(200ms);
look(90,90);
keydown(sneak);
look(90,90);
keydown(back);
wait(2);
keyup(back);
wait(200ms);
keyup(sneak);
wait(200ms);
pick(cactus);
wait(200ms);
key(use);
wait(100ms);
#posx=%XPOS%;
do;
look(90,90);
keydown(forward);
keydown(sneak);
until(%XPOS%=%#posx%+1);
keyup(forward);
keyup(sneak);
wait(200ms);
//inventory
wait(500ms);
gui(inventory);
pick(dirt);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=dirt);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
pick(sand);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=sand);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
pick(cactus);
if(%STACKSIZE%<9);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=cactus);
slotclick(%#i%,l,true);
wait(75ms);
endif;
next;
endif;
gui();
LOG(&d>> &6Andar(es) concluído(s).);
INC(#feitos);
LOG(&d>> &6Andar(es): &a%#feitos%/%#andares%);
loop;
endif;
}$$
RESOLVIDO?
