/sethome fungo1 até 500, na frente de cada bau com fungo
$${
if(z);
unset(z);
log(&2>>>> &fFungo OFF);
stop();
else;
log(&2>>>> &fFungo ON);
set(z);
endif;
prompt(#fungos,$$?,"Quantos baus?");
#fungo=1;
do;
if(%#fungo%>%#fungos%);
unset(z);
log(&2>>>> &fAcabaram os baús);
wait(2);
}$$/home$${
wait(2)
log(&2>>>> &fFungo OFF);
stop();
endif;
do;
gui(chat);
wait(300ms);
type( /home fungo%#fungo%);
wait(300ms);
press(return);
wait(2);
key(use);
wait(1);
for(#i,0,53);
getslotitem(%#i%,#id,#stack);
if(%#id%=372);
slotclick(%#i%,l,true);
wait(30ms);
endif;
next;
getslotitem(54,#id,#stack);
if(%#stack%=0);
INC(#fungo);
if(%#fungo%>%#fungos%);
BREAK;
endif;
endif;
wait(1);
until(%#stack%!=0);
}$$/warp vip$${
wait(2);
#posx=%XPOS%;
#posz=%ZPOS%;
look(south);wait(400ms)
keydown(FORWARD);
do;
until((%XPOS%=%#posx%+31)|(%XPOS%=%#posx%-31)|(%ZPOS%=%#posz%+31)|(%ZPOS%=%#posz%-31));
wait(100ms);
keyup(FORWARD);
look(east);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+21)|(%XPOS%=%#posx%-21)|(%ZPOS%=%#posz%+21)|(%ZPOS%=%#posz%-21));
wait(150ms);
keyup(FORWARD);
look(south);
wait(100ms);
#posx=%XPOS%;
#posz=%ZPOS%;
keydown(FORWARD);
do;
wait(10ms);
until((%XPOS%=%#posx%+5)|(%XPOS%=%#posx%-5)|(%ZPOS%=%#posz%+5)|(%ZPOS%=%#posz%-5));
wait(150ms);
keyup(FORWARD)
look(south);
look(,75);
wait(100ms);
do(6);
key(ATTACK);
wait(500ms);
loop;
loop;
}$$
