$${
if(cacto);
    unset(cacto);
    @b=0;
    log(off);
    stop();
else;
    set(cacto);
    @b=1;
    do;
        echo(/home cacto);
        wait(5);
        #c=0;
    until(%XPOS%=-2989);
    do;
        gui(inventory);
        wait(2);
        getslotitem(35,#id,#st);
        if(%#id%!=0);
            echo(/vendertudo);
            wait(3);
            echo(/home cacto);
        endif;
    loop;
endif;
}$$