$${
IF(rxoneto);
Unset(rxoneto);
log(off);
KEYUP(RIGHT);
KEYUP(LEFT);
KEYUP(SNEAK);
stop();
Else;
Set(rxoneto);
#trap = 1;
#bau = 1;
log(on);unset(@matar_fantasma);
echo(/home fileira);
wait(5);
do;
IF(%HEALTH%<10);ECHO(/sethome fantasma);wait(500ms);
#look = 0;
do;
unsafe();
if(%HEALTH%<5);ECHO(/SPAWN);pick(carrot);do;look(,-90);key(use);until(%HUNGER% = 20);do;until(%HEALTH%=20);echo(/home fantasma);endif;
LOOK(%#look%,35);slot(2);
if(%HIT% = "ENTITY");KEY(attack);
WAIT(1ms);endif;
inc(#look,25);
if(%#look%>359);
    #look = 0;
endif;
endunsafe;
until(@matar_fantasma);
echo(/spawn);
do;
slot(4);
key(use);
until(%HUNGER% = 20);
do;until(%HEALTH%=20);
unset(@matar_fantasma);
ECHO(/home fileira);wait(5);
ENDIF;

    echo(/delhome fileira);
    wait(500ms);
    echo(/sethome fileira);
    do;
IF(%HEALTH%<10);
#look = 0;
do;
unsafe();
if(%HEALTH%<5);ECHO(/SPAWN);pick(carrot);do;look(,-90);key(use);until(%HUNGER% = 20);endif;
LOOK(%#look%,35);slot(2);
if(%HIT% = "ENTITY");KEY(attack);
WAIT(1ms);endif;
inc(#look,25);
if(%#look%>359);
    #look = 0;
endif;
endunsafe;
until(@matar_fantasma);
echo(/spawn);
do;
slot(4);
key(use);
until(%HUNGER% = 20);
unset(@matar_fantasma);
ECHO(/home fileira);wait(5);
ENDIF;
    look(SOUTH);
    look(,90);
    keydown(left);
    slot(1);
    key(attack);
    wait(15ms);
    if(%HITID% = "dirt");
        slot(3);
        key(use);
    endif;
    #x = %XPOS% + 1;
    getid(%#x%,%YPOS%,%ZPOS%,&id);
    until((%HITID%="stone_slab") && (%&id%="dirt"));
    keyup(left);

    do;
IF(%HEALTH%<10);
#look = 0;

do;
unsafe();
if(%HEALTH%<5);ECHO(/SPAWN);pick(carrot);do;look(,-90);key(use);until(%HUNGER% = 20);endif;
LOOK(%#look%,35);slot(2);
if(%HIT% = "ENTITY");KEY(attack);
WAIT(1ms);endif;
inc(#look,25);
if(%#look%>359);
    #look = 0;
endif;
endunsafe;
until(@matar_fantasma);
echo(/spawn);
do;
slot(4);
key(use);
until(%HUNGER% = 20);
unset(@matar_fantasma);
ECHO(/home fileira);wait(5);
ENDIF;
    look(SOUTH);
    look(,90);
    keydown(right);
    pick(carrot);
    key(use);
    wait(1ms);
    #x = %XPOS% - 1;
    getid(%#x%,%YPOS%,%ZPOS%,&id);
    until((%HITID%="stone_slab") && (%&id%="dirt"));
    keyup(right);




    gui(inventory);
    #inv_cheio=0;
    unsafe();
    for(#inv,9,44);
    getslotitem(%#inv%,&id,#stack);
    if(%#stack%!=0);
        inc(#inv_cheio);
    endif;
    next;
    endunsafe();
    gui();
    if(%#inv_cheio%>30);

        echo(/home bau%#trap%);wait(5);
	gui();
        do;
            ifmatches(%#bau%,1);wait(1);look(NORTH);look(-32,-25);wait(400ms);endif;
            ifmatches(%#bau%,2);wait(1);look(NORTH);look(0,-25);wait(400ms);endif;
            ifmatches(%#bau%,3);wait(1);look(NORTH);look(32,-25);wait(400ms);endif;
            ifmatches(%#bau%,4);wait(1);look(NORTH);look(-32,0);wait(400ms);endif;
            ifmatches(%#bau%,5);wait(1);look(NORTH);look(0,0);wait(400ms);endif;
            ifmatches(%#bau%,6);wait(1);look(NORTH);look(32,0);wait(400ms);endif;
            ifmatches(%#bau%,7);wait(1);look(NORTH);look(-32,30);wait(400ms;endif;
            ifmatches(%#bau%,8);wait(1);look(NORTH);look(0,30);wait(400ms);endif;
            ifmatches(%#bau%,9);wait(1);look(NORTH);look(32,30);wait(400ms);endif;
        do;key(use);wait(500ms);until(%GUI%="GUICHEST");wait(500ms);
       getslotitem(53,&id,#stack);
    if(%#stack% != 0);
            inc(#bau);gui();
        else;
            for(#guardar_bau,54,89);
                getslotitem(%#guardar_bau%,&id);
                ifmatches(%&id%,"carrot");
                    slotclick(%#guardar_bau%,r,true);wait(100ms);
                endif;
            next;
    endif;
    gui();

        if(%#bau%>10);
            inc(#trap);
            #bau = 1=;
            echo(/home bau%#trap%);wait(5);gui();
        endif;
    gui(inventory);
    #guardar = 0;
    for(#inv_cenoura,9,44);
        getslotitem(%#inv_cenoura%,&id,#stack);
        ifmatches(%&id%,"carrot");
            inc(#guardar);
        endif;
    next;
        gui();
    until(%#guardar% = 0);
        ECHO(/home fileira);
        wait(5);
    endif;


    #z = %ZPOS%;
    do;
    keydown(sneak);
    keydown(forward);
    #zpos = %ZPOS% + 1;
    #ypos = %YPOS% - 1;
    GETID(%XPOS%,%#ypos%,%#zpos%,&id);
    until((%ZPOS% = %#z% + 1) || (%&id% = "dirt"));
    if(%&id% = "dirt");
        keyup(sneak);
        keyup(forward);
        echo(/home fileira1);wait(5);
    endif;
    keyup(sneak);
    keyup(forward);

    keydown(left);
    keydown(sneak);
    wait(1);
    keyup(left);
    keyup(sneak);

loop;
endif;
}$$