$${
if(cacto);
unset(cacto);
log(&9[%PLAYER%] &bCacto &4OFF);
log(&6ATÉ OUTRO DIA MESTRE);
unsprint;
keyup(forward);
keyup(jump);
keyup(back);
keyup(right);
keyup(left);
keyup(sneak);
@#tempotest=0;
#temporesult=0;
stop;
endif;
else;
set(cacto);
log(&9[%PLAYER%] &bCacto &2ON);

#vip=0;
#falta=0;
#antireset=0;
#faltapedra=0;
#feitos=0;
#torres=0;
#inicio=0;
#construir=0;
@#tempotest=0;
#temporesult=0;
#guardaritens=0;
#comprarpedra=0;
#comprarareia=0;
#comprarterra=0;
#comprarcacto=0;
#farmarcacto=0;
#bauareia=0;
#bauterra=0;
#baucacto=0;
#bautudo=0;
#deseja=0;
#comprarpedras=0;
#pedir2=0;
#comprar=0;
#pedir=0;

do;
prompt(#vip,$$?,"Você é vip? 1-sim 2-não");
until((%#vip%=1)||(%#vip%=2));

do;
prompt(#antireset,$$?,"Deseja usar o anti-reset server? 1-sim 2-não");
until((%#antireset%=1)||(%#antireset%=2));

if(%#antireset%=1);
log(");
log("&5&lVOCÊ VAI USAR O ANTIRESET, LEMBRESSE DE USAR O OUTRO SCRIPT");
log(");
endif;

do;
prompt(#deseja,$$?,"Deseja comprar algum material quando acabarem? 1-sim 2-não");
until((%#deseja%=1)||(%#deseja%=2));

if(#deseja=1);

do;
prompt(#comprarpedras,$$?,"Deseja comprar pedras quando acabarem? 1-sim 2-não");
until((%#comprarpedras%=1)||(%#comprarpedras%=2));

if(%#comprarpedras%=1);
do;
prompt(#pedir2,$$?,"Deseja pedir money, quando acabar money para as pedras? 1-sim 2-não");
until((%#pedir2%=1)||(%#pedir2%=2));
endif;

if(%#pedir2%=1);
prompt(&money2,$$u,"Qual conta enviará money para as pedras? 1-sim 2-não");
endif;

do;
prompt(#comprar,$$?,"Deseja comprar materiais quando acabar no armazem? 1-sim 2-não");
until((%#comprar%=1)||(%#comprar%=2));

if(%#comprar%=1);
do;
prompt(#pedir,$$?,"Deseja pedir money, quando acabar money para os recursos? 1-sim 2-não");
until((%#pedir%=1)||(%#pedir%=2));
endif;

if(%#pedir%=1);
prompt(&money,$$u,"Qual conta enviará money para os recursos?");
endif;

endif;

do;
log(");
log("Os que atrapalham a macro são: Velocidade, Pressa e Superpulo");
log(");
prompt(#speed,$$?,"Há sinalizadores com efeito em algum lugar que a macro irá? 1-sim 2-não");
until((%#speed%=1)||(%#speed%=2));

if(#speed=1);
log(");
log("&9&lLembre a macro ficará mais lenta, para evitar ocorrer bugs");
log(");
endif;

prompt(#andares,$$?,"Quantos andares deseja fazer?");

if(%#andares%<1);log("O número de andares deve ser igual ou maior que 1");
unset(cacto);stop;
endif;

prompt(#torres,$$?,"Quantas torres deseja fazer?");

if(%#torres%<1);log("O número de torres deve ser igual ou maior que 1");
unset(cacto);stop;
endif;

if(#speed=2);

#inicio=%#torres%;
do(%#inicio%);
wait(2);echo(/sethome t1);#vai=0;
//

getidrel(+4,-1,0,#westtorre);
    getidrel(-4,-1,0,#easttorre);
    getidrel(0,-1,+4,#northtorre);
    getidrel(0,-1,-4,#southtorre);
    
    if(#westtorre!=0);
        getidrel(+4,0,0,#westpossibilidade);
        if(#westpossibilidade=0);#vai=1;&olhar=WEST;
            look(WEST);wait(30ms);
        endif;
    endif;
    
    if((#westtorre=0)||(#westpossibilidade!=0));
        if(#easttorre!=0);
                getidrel(-4,0,0,#eastpossibilidade);
                if(#eastpossibilidade=0);#vai=1;&olhar=EAST;
                    look(EAST);wait(30ms);
                else;#proximolado=1;
                endif;
        else;#proximolado=1;
        endif;
    endif;
    
    if(#proximolado=1);
        #proximolado=0;
        if(#northtorre!=0);
            getidrel(0,0,+4,#northpossibilidade);
            if(#northpossibilidade=0);#vai=1;&olhar=NORTH;
                look(NORTH);wait(30ms);
            else;#sosouth=1;
            endif;
        else;#sosouth=1;
        endif;
    endif;

    if(#sosouth=1);
        #sosouth=0;
        if(#southtorre!=0);
            getidrel(0,0,-4,#southpossibilidade);
            if(#southpossibilidade=0);#vai=1;&olhar=SOUTH;
                look(SOUTH);wait(30ms);
            else;#ultimatorre=1;
            endif;
        else;#ultimatorre=1;
        endif;
    endif;

    if(#ultimatorre=1);
    endif;
//

pick(1);wait(1ms);
if(#comprarpedras=1);
if((%ITEM%!=1)||(%STACKSIZE%<3));#comprarpedra=1;endif;						   
if((%#vip%=1)&&(%#comprarpedra%=1));

if(%#antireset%=1);
log(verificando hora);
@#resetcacto=1;
do;until(@#resetcacto=0);
prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
if((#horinha>0548)&&(#horinha<0559));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>1148)&&(#horinha<1159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>2148)&&(#horinha<2159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
endif;
endif;

log("Comprando pedra");
                echo(/warp lojavip);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
 
 
                                        #vaiolhary=330;
                                        #vaiolharp=0;
                                         
                                         
                                        look(%#vaiolhary%,%#vaiolharp%);
                                         
                                        //indo até a pedra
                                         
                                        do;
                                        #irpedra=3934;
                                        #irpedra2=1307;
                                        look(%#vaiolhary%,%#vaiolharp%);
                                        sprint;
                                        keydown(forward);
                                        if((%XPOS% = 3681)&&(%ZPOS% = 952));
                                        keydown(jump);wait(250ms);keyup(jump);
                                        endif;
                                        until((%XPOS% = %#irpedra%)&&(%ZPOS% = %#irpedra2%));
                                        unsprint;
                                        keyup(forward);
                                         
                                        look(0,80);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        
                                        wait(1);
                                        
                                        //verificando se a posição X passou e voltando
                                           if(%XPOS% != %#irpedra%);
                                        if(%XPOS% < %#irpedra%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(EAST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irpedra%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        elseif(%XPOS% > %#irpedra%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(WEST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irpedra%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        endif;
                                           endif;
                                       
                                               
                                         
                                        //verificando se a posição Z passou e voltando
                                           if(%ZPOS% != %#irpedra2%);
                                        if(%ZPOS% < %#irpedra2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(SOUTH);
                                        keydown(forward);
                                        keydown(sneak);
                                        until(%ZPOS% = %#irpedra2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);                              
                                        elseif(%ZPOS% > %#irpedra2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(NORTH);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%ZPOS% = %#irpedra2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        endif;
                                           endif;
                                        
                                        wait(1);echo(/home t1);wait(2);#comprarpedra=0;
                           
elseif((%#vip%=2)&&(%#comprarpedra%=1));

if(%#antireset%=1);
log(verificando hora);
@#resetcacto=1;
do;until(@#resetcacto=0);
prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
if((#horinha>0548)&&(#horinha<0559));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>1148)&&(#horinha<1159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>2148)&&(#horinha<2159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
endif;
endif;

log("Comprando pedra");
                echo(/warp loja);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
 
 
                                        #vaiolhary=330;
                                        #vaiolharp=0;
                                         
                                         
                                        look(%#vaiolhary%,%#vaiolharp%);
                                         
                                        //indo até a pedra
                                         
                                        do;
                                        #irpedra=3664;
                                        #irpedra2=939;
                                        look(%#vaiolhary%,%#vaiolharp%);
                                        sprint;
                                        keydown(forward);
                                        if((%XPOS% = 3681)&&(%ZPOS% = 952));
                                        keydown(jump);wait(250ms);keyup(jump);
                                        endif;
                                        until((%XPOS% = %#irpedra%)&&(%ZPOS% = %#irpedra2%));
                                        unsprint;
                                        keyup(forward);
                                         
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        
                                        wait(1);
                                         
                                        //verificando se a posição X passou e voltando
                                           if(%XPOS% != %#irpedra%);
                                        if(%XPOS% < %#irpedra%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(EAST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irpedra%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        elseif(%XPOS% > %#irpedra%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(WEST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irpedra%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        endif;
                                           endif;
                                       
                                               
                                         
                                        //verificando se a posição Z passou e voltando
                                           if(%ZPOS% != %#irpedra2%);
                                        if(%ZPOS% < %#irpedra2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(SOUTH);
                                        keydown(forward);
                                        keydown(sneak);
                                        until(%ZPOS% = %#irpedra2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);                              
                                        elseif(%ZPOS% > %#irpedra2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(NORTH);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%ZPOS% = %#irpedra2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(0,335);
                                        gui(inventory);
                                        do(4);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lPedra comprada com sucesso!);
                                        endif;
                                           endif;
                                        
                                        wait(1);echo(/home t1);wait(2);#comprarpedra=0;

endif;

elseif(#comprarpedras=2);
if((%ITEM%!=1)||(%STACKSIZE%<3));do;log("&1ACABOU PEDRA, PARE A MACRO!);wait(1);loop;endif;
endif;

if(%#vai%=1);
look(%&olhar%);
        pick(1);wait(1ms);
        do;look(,80);pick(1);
        look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);until(%HITID%!=3);pick(1);wait(1ms);pick(1);
        look(,80);pick(1);wait(1ms);pick(1)
        do;look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);pick(1);until(%HITID%!=3);pick(1)
        do;look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);pick(1);until(%HITID%=3);pick(1);wait(30ms);pick(1);keyup(back);pick(1)
        echo(/sethome t2);
        pick(278);
        look(,0);
        do;look(,+1);until(%HITID%=1);
        do;key(attack);until(%HITID%!=1);
        do;look(,+1);until(%HITID%=1);
        do;key(attack);until(%HITID%!=1);
        do;look(,+1);until(%HITID%=1);
        do;key(attack);until(%HITID%!=1);
        wait(500ms);
        #xp=%XPOS%;#xz=%ZPOS%;
        echo(/home t1);
        do;until((%XPOS%!=%#xp%)||(%ZPOS%!=%#zp%));wait(1);
elseif(%#vai%!=1);
log("Não há terras ao redor, parando macro..");
unset(cacto);stop;
endif;


#construir=%#andares%;
//torre
do(%#construir%);
#yp=%YPOS%;
pick(3);look(90,90);keydown(JUMP);wait(200ms);key(use);keyup(JUMP);wait(400ms);
wait(600ms);
//evitar erros
if(%YPOS%=%#yp%);
pick(3);look(90,90);keydown(JUMP);wait(200ms);key(use);keyup(JUMP);wait(400ms);
endif;
echo(/sethome temp2);

keydown(sneak);
look(90,80);pick(3);keydown(back);wait(800ms);keyup(back);key(use);wait(400ms);
look(270,80);pick(3);keydown(back);wait(1600ms);keyup(back);wait(100ms);key(use);wait(400ms);
look(90,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
look(0,80);pick(3);keydown(back);wait(800ms);keyup(back);wait(100ms);key(use);wait(400ms);
look(180,80);pick(3);keydown(back);wait(1600ms);keyup(back);key(use);wait(400ms);
look(0,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
keyup(sneak);

//parte para evitar erros
getidrel(-1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(90,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,1,#id);
if(%#id%!=3);
pick(3);
look(0,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(+1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(270,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,-1,#id);
if(%#id%!=3);
pick(3);
look(180,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;

do(4);pick(12);look(+90,60);wait(100ms);key(use);wait(350ms);loop;
do(3);pick(3);look(90,90);keydown(jump);wait(200ms);key(use);keyup(jump);wait(400ms);loop;
keydown(sneak);look(90,84);keydown(back);wait(1);keyup(back);wait(200ms);keyup(sneak);wait(1);
do;pick(277);key(attack);look(90,84);wait(1);until(%HITID%=0);

keydown(sneak);
look(+0,90);pick(81);wait(50ms);key(use);wait(300ms);
look(150,69);pick(81);wait(50ms);key(use);wait(300ms);
look(23,69);pick(81);wait(50ms);key(use);wait(300ms);look(270,90);
keydown(sneak);keydown(back);wait(1300ms);keyup(back);wait(400ms);keyup(sneak);
look(+0,90);pick(81);wait(50ms);key(use);wait(300ms);
keyup(sneak);
look(90,90);
keydown(sneak);keydown(back);wait(600ms);keyup(back);wait(400ms);keyup(sneak);
echo(/fix all);wait(750ms);
log(&aAndar concluido.);
echo(/sethome temp);
wait(750ms);
//verificando se há erros

getidrel(-1,-4,0,#id);
if(%#id%!=3);
wait(300ms);
echo(/home temp2);
wait(2);
getidrel(-1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(90,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
key(use);
wait(300ms);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,1,#id);
if(%#id%!=3);
pick(3);
look(0,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(+1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(270,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,-1,#id);
if(%#id%!=3);
pick(3);
look(180,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
endif;

getidrel(0,-4,+1,#id);
if(%#id%!=3);
wait(300ms);
echo(/home temp2);
getidrel(-1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(90,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,1,#id);
if(%#id%!=3);
pick(3);
look(0,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(+1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(270,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,-1,#id);
if(%#id%!=3);
pick(3);
look(180,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
endif;

getidrel(+1,-4,0,#id);
if(%#id%!=3);
wait(300ms);
echo(/home temp2);
wait(2);
getidrel(-1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(90,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,1,#id);
if(%#id%!=3);
pick(3);
look(0,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(+1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(270,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,-1,#id);
if(%#id%!=3);
pick(3);
look(180,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
endif;

getidrel(0,-4,-1,#id);
if(%#id%!=3);
wait(300ms);
echo(/home temp2);
wait(2);
getidrel(-1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(90,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,1,#id);
if(%#id%!=3);
pick(3);
look(0,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(+1,-1,0,#id);
if(%#id%!=3);
pick(3);
look(270,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
getidrel(0,-1,-1,#id);
if(%#id%!=3);
pick(3);
look(180,80);
keydown(sneak);
keydown(back);
wait(1500ms);
keyup(back);
keyup(sneak);
wait(300ms);
key(use);
keydown(sneak);
keydown(forward);
wait(680ms);
keyup(sneak);
keyup(forward);
endif;
endif;

echo(/home temp);
wait(750ms);

//verificando se ainda há outros erros
getidrel(1,-3,0,#id);
if(%#id% != 12);keydown(sneak);pick(12);
look(270,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
look(90,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
getidrel(-1,-3,0,#id);
if(%#id% != 12);keydown(sneak);pick(12);
look(90,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
look(270,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
getidrel(0,-3,-1,#id);
if(%#id% != 12);keydown(sneak);pick(12);
look(180,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
look(0,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
getidrel(0,-3,1,#id);
if(%#id% != 12);keydown(sneak);pick(12);
look(0,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
look(180,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
getidrel(1,-2,0,#id);
if(%#id% != 81);pick(81);
look(90,90);
keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
getidrel(-1,-2,0,#id);
if(%#id% != 81);pick(81);
look(270,90);
keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
getidrel(0,-2,-1,#id);
if(%#id% != 81);pick(81);
look(0,90);
keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
getidrel(0,-2,1,#id);
if(%#id% != 81);pick(81);
look(180,90);
keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
log(&aAndar corrigido.);
endif;

wait(750ms);

if((%HUNGER%<8)&&(%#vip%=1));wait(500ms);echo(/fome);
elseif((%HUNGER%<8)&&(%#vip%=2));
echo(/sethome temp);wait(2);
echo(/warp loja);
wait(2);
do;until(%HUNGER%=20);
echo(/home temp);
wait(2);
endif;


//verificando invetário
gui(inventory);wait(1);
//areia repondo
pick(12);
if(%STACKSIZE%<15);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=12);
slotclick(%#i%,l,true);
wait(40ms);
endif;
next;
wait(100ms);
if(%STACKSIZE%<9);#faltaareia=1;#falta=1;endif;
endif;

//terra repondo
pick(3);
if(%STACKSIZE%<15);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=3);
slotclick(%#i%,l,true);
wait(40ms);
endif;
next;
wait(100ms);
if(%STACKSIZE%<9);#faltaterra=1;#falta=1;endif;
endif;

//cacto repondo
pick(81);wait(100ms);
if(%STACKSIZE%<15);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=81);
slotclick(%#i%,l,true);
wait(40ms);
endif;
next;
wait(100ms);
if(%STACKSIZE%<9);#faltacacto=1;#falta=1;endif;
endif;

//pedra repondo
pick(1);wait(100ms);
if(%STACKSIZE%<15);
for(#i,9,35);
getslotitem(%#i%,#id);
if(%#id%=1);
slotclick(%#i%,l,true);
wait(40ms);
endif;
next;
endif;
gui;
echo(/desbugar);

if(%#antireset%=1);
log(verificando hora);
@#resetcacto=1;
do;until(@#resetcacto=0);
prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
if((#horinha>0548)&&(#horinha<0559));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>1148)&&(#horinha<1159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>2148)&&(#horinha<2159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
endif;
endif;

if(#falta=1);
        
        log(Indo para o armazem!);
		wait(2);
        echo(/home armazem);
        wait(2);
        look(WEST);
        log(&1EVITANDO BUGS!);
        do(5);keydown(jump);wait(70ms);keyup(jump);loop;
        log("&5LEMBRE,SUA HOME DEVE ESTAR OLHANDO PARA WEST&2,&4apenas ignore se já estiver..");

        getidrel(-2,+1,0,#hitid);

        if((%#hitid%!=54)&&(%#hitid%!=146));
        &meliante=%HITNAME%;
        echo("%&meliante%, por favor saia da frente, você está atrapalhando o funcionamento da macro");
        echo(/warp loja);wait(60);
        echo(/home armazem);wait(3);
        echo(/desbugar);wait(3);
        look(WEST);
        log(&1EVINTANDO BUGS!);
        do(5);keydown(jump);wait(70ms);keyup(jump);loop;
        log("&5LEMBRE,SUA HOME DEVE ESTAR OLHANDO PARA WEST&2,&4apenas ignore se já estiver.."); 
        endif;

        getidrel(-2,+1,0,#verificandobaus);
        if((%#verificandobaus%!=54)&&(%#verificandobaus%!=146));
        log("Armazem não foi encontrado, parando macro");
        echo(/spawn);
        unset(cacto);stop;
        endif;
//////////////////////////////////////////////

////////////////////////////////////////////

if(#faltaareia=1);


#bauareia=1;

do;
    
////////////

if(#bauareia=1);#bauareiay=145;#bauareiap=30;
elseif(#bauareia=2);#bauareiay=180;#bauareiap=35;
elseif(#bauareia=3);#bauareiay=210;#bauareiap=30;
elseif(#bauareia=4);#bauareiay=145;#bauareiap=5;
elseif(#bauareia=5);#bauareiay=180;#bauareiap=5;
elseif(#bauareia=6);#bauareiay=210;#bauareiap=5;
elseif(#bauareia=7);#bauareiay=145;#bauareiap=340;
elseif(#bauareia=8);#bauareiay=180;#bauareiap=335;
elseif(#bauareia=9);#bauareiay=210;#bauareiap=335;
elseif(#bauareia>9);#comprarareia=1;endif;

////////////

                log(repondo areia!);wait(2);
                 
                
                #pegouareia=0;
                
                
                look(south);wait(5ms);
                look(%#bauareiay%,%#bauareiap%);           
                                   
                endif;
                               
                wait(500ms);
                pick(277);wait(3ms);do;key(use);wait(300ms);until(%GUI%="GUICHEST");
                pick(12);wait(20ms);
                    for(#i,0,54);
                        getslotitem(%#i%,#id);
                        if(#pegouareia>8);break;endif;
                        if(%#id%=12);
                            #pegouareia=%#pegouareia%+1;
                            slotclick(%#i%,l,true);
                            wait(75ms);
                           
                        endif;
                    next;
                    gui;
                    if(%STACKSIZE%<9);gui();wait(20ms);#bauareia=%#bauareia%+1;#faltaareia=1;endif;
                    if(%STACKSIZE%>9);#faltaareia=0;LOG(AREIA OK);gui();echo(/home temp);wait(2);endif;
                    if(#bauareia>9);#comprarareia=1;#faltaareia=1;endif;
            
//
if((#comprarareia=1)&&(#vip=1));
  
if(%#antireset%=1);
log(verificando hora);
@#resetcacto=1;
do;until(@#resetcacto=0);
prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
if((#horinha>0548)&&(#horinha<0559));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>1148)&&(#horinha<1159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>2148)&&(#horinha<2159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
endif;
endif; 
 
log("Comprando areia");


                echo(/warp lojavip);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
 
 
                                        #vaiolhary=300;
                                        #vaiolharp=0;
                                         
                                         
                                        look(%#vaiolhary%,%#vaiolharp%);
                                         
                                        //indo até a areia
                                         
                                        do;
                                        #irareia=3948
                                        #irareia2=1330;
                                        look(%#vaiolhary%,%#vaiolharp%);
                                        sprint;
                                        keydown(forward);
                                        if((%XPOS% = 3948)&&(%ZPOS% = 1326));
                                        unsprint;keyup(forward);
                                        do;keydown(sneak);keydown(forward);look(180,0);
                                        until((%XPOS%=%#irareia%)&&(%ZPOS%=%#irareia2%));
                                        endif;
                                        until((%XPOS% = %#irareia%)&&(%ZPOS% = %#irareia2%));
                                        unsprint;
                                        keyup(forward);
                                         
                                        look(180,305);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        
                                        wait(1);
                                        
                                        //verificando se a posição X passou e voltando
                                           if(%XPOS% != %#irareia%);
                                        if(%XPOS% < %#irareia%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(EAST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irareia%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,305);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        elseif(%XPOS% > %#irareia%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(WEST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irpedra%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,305);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        endif;
                                           endif;
                                       
                                               
                                         
                                        //verificando se a posição Z passou e voltando
                                           if(%ZPOS% != %#irareia2%);
                                        if(%ZPOS% < %#irareia2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(SOUTH);
                                        keydown(forward);
                                        keydown(sneak);
                                        until(%ZPOS% = %#irpedra2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,305);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        elseif(%ZPOS% > %#irareia2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(NORTH);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%ZPOS% = %#irareia2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,305);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        endif;
                                           endif;
                                                     
                    wait(1);echo(/home temp);wait(2);#comprarareia=0;#faltaareia=0;

                                        
elseif((#comprarareia=1)&&(#vip=2));

if(%#antireset%=1);
log(verificando hora);
@#resetcacto=1;
do;until(@#resetcacto=0);
prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
if((#horinha>0548)&&(#horinha<0559));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>1148)&&(#horinha<1159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
elseif((#horinha>2148)&&(#horinha<2159));
    log(esperando server reiniciar);
    #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
    do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
    log(retornando a macro...);wait(3);
endif;
endif;

log("Comprando areia");

                echo(/warp loja);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
 
 
                                        #vaiolhary=195;
                                        #vaiolharp=0;
                                         
                                         
                                        look(%#vaiolhary%,%#vaiolharp%);
                                         
                                        //indo até a areia
                                         
                                        do;
                                        #irareia=3683;
                                        #irareia2=990;
                                        look(%#vaiolhary%,%#vaiolharp%);
                                        sprint;
                                        keydown(forward);
                                        if((%XPOS% = 3681)&&(%ZPOS% = 952));
                                        keydown(jump);wait(250ms);keyup(jump);
                                        endif;
                                        until((%XPOS% = %#irareia%)&&(%ZPOS% = %#irareia2%));
                                        unsprint;
                                        keyup(forward);
                                         
                                        look(180,330);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        
                                        wait(1);
                                         
                                        //verificando se a posição X passou e voltando
                                           if(%XPOS% != %#irareia%);
                                        if(%XPOS% < %#irareia%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(EAST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irareia%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,330);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        elseif(%XPOS% > %#irareia%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
                                        do;
                                        look(WEST);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%XPOS% = %#irareia%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,330);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        endif;
                                           endif;
                                       
                                               
                                         
                                        //verificando se a posição Z passou e voltando
                                           if(%ZPOS% != %#irareia2%);
                                        if(%ZPOS% < %#irareia2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(SOUTH);
                                        keydown(forward);
                                        keydown(sneak);
                                        until(%ZPOS% = %#irareia2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,330);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);                              
                                        elseif(%ZPOS% > %#irareia2%);
                                        log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
                                        do;
                                        look(NORTH);
                                        keydown(sneak);
                                        keydown(forward);
                                        until(%ZPOS% = %#irareia2%);
                                        keyup(forward);
                                        keyup(sneak);
                                        look(180,330);
                                        gui(inventory);
                                        do(7);key(use);wait(3);loop;
                                        gui;
                                        log(&f&lAreia comprada com sucesso!);
                                        endif;
                                           endif;
                                           
                            wait(1);echo(/home temp);wait(2);#comprarareia=0;#faltaareia=0;

endif;                                                                              

if(#faltaareia=1);
echo(/home armazem);wait(2);
endif;

endif;

                    until(%#faltaareia%=0);

endif;

if(#faltaareia!=1);
echo(/home temp);
wait(2);
endif;


////////////////////////////////////////////

//////////////////////////////////////////////


endif;


loop;

wait(2);
echo(/home t2);
loop;

elseif(#speed=1);
echo(teste);
wait(3);
endif;

}$$