Conta #4

$${

    //// Variaveis da macro



    &homebau=/home guardar_cacto;
    &home=/home cacto_teste;
	&guardar=/home mkb ;
    #look= -90,-52;
    #idcacto=81;
    #posinicioz=7261;
    #posfinalz=7203;
    #xpos1=4189;
    #xpos2=4191;
    #xpos3=4193;
    #xpos4=4195;
    #xpos5=4197;
    #xpos6=4199;
    #xpos7=4201;
    #xpos8=4203;
    #xpos9=4205;
	#bau1=0,69;
    #bau2=0,63;
    #bau3=0,54;
    #bau4=0,35;
    #bau5=0,7;





toggle(cacto);
if(cacto);
    log("&a&l[Cacto] &a&lON");



    echo("/chat off");
    wait(250ms);
    clearchat;
    wait(1);

    log("&a&lCacto ON");
    wait(1);

																				do;


    echo("%&home%");
    wait(5);
    look(WEST);
    wait(1);



    //// primeira fileira


do;

        keydown(right);
        if(%HITID%=81);
        keyup(right);
        do(50);
        key(attack);
        wait(-1t);
        loop;
        endif;



until(%ZPOS%=%#posfinalz%);
keyup(right);

    wait(1);

    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos1%);
    keyup(forward);
    wait(500ms);

    look(WEST);


    //// segunda fileira



do;

    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;
until(%ZPOS%=%#posinicioz%);
keyup(left);


    //// andando para frente



    endif;
    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos2%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);





    //// terceira fileira



do;

    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posfinalz%);
keyup(right);


    endif;
    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos3%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);


    //// quarta fileira


do;

    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posinicioz%);
keyup(left);


    endif;
    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos4%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);

    //// quinta fileira


do;

    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posfinalz%);
keyup(right);


    endif;

    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos5%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);

    //// sexta fileira


do;

    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posinicioz%);
keyup(left);


    endif;
    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos6%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);


    //// setima fileira



do;

    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posfinalz%);
keyup(right);


    endif;
    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos7%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);


    //// oitava fileira


do;

    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posinicioz%);
keyup(left);


    endif;

    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos8%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);


    //// nona fileira


do;

    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posfinalz%);
keyup(right);


    endif;

    look(EAST);
    wait(500ms);

    do;
    keydown(forward);
    until(%XPOS%=%#xpos9%);
    keyup(forward);
    wait(500ms);


    look(WEST);
    wait(1);


    //// decima fileira


do;

    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(50);
    key(attack);
    wait(-1t);
    loop;
    endif;

until(%ZPOS%=%#posfinalz%);
keyup(left);


    endif;

    log("&eGuardando os cactos");
    wait(1);



    wait(1);
    echo("/chat off)";
    wait(150ms);
    clearchat;
    wait(1);
    echo(%&guardar%);
    wait(5);
    slot(9);
    wait(500ms);


																				do;

    look(0,313); //// primeiro bau bau
    wait(500ms);
    key(use);
    wait(3);





    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if(%#stack%<64);
    wait(500ms);
    log("guardando itens");
    FOR(#inv,54,89);
    slotclick(%#inv%,l,true);
    NEXT;
    gui;
    endif;





    //// verifica se o bau esta cheio
    GETSLOT(81,#slot,0);
    if(%#slot%=53);
    log("o bau esta cheio");
    gui;
    wait(500ms);
    look(0,334);  //// segundo bau
    wait(500ms);
    key(use);
    wait(5);
    endif;






    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if(%#stack%<64);
    wait(500ms);
    log("guardando itens");
    FOR(#inv,54,89);
    slotclick(%#inv%,l,true);
    NEXT;
    gui;
    endif;





    //// verifica se o bau esta cheio
    GETSLOT(81,#slot,0);
    if(%#slot%=53);
    log("o bau esta cheio");
    gui;
    wait(500ms);
    look(0,7);  //// terceiro bau
    wait(500ms);
    key(use);
    wait(5);
    endif;




    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if(%#stack%<64);
    wait(500ms);
    log("guardando itens");
    FOR(#inv,54,89);
    slotclick(%#inv%,l,true);
    NEXT;
    gui;
    endif;


    //// verifica se o bau esta cheio
    GETSLOT(81,#slot,0);
    if(%#slot%=53);
    log("o bau esta cheio");
    gui;
    wait(500ms);
    look(0,33);  //// quarto bau
    wait(500ms);
    key(use);
    wait(5);
    endif;



    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if(%#stack%<64);
    wait(500ms);
    log("guardando itens");
    FOR(#inv,54,89);
    slotclick(%#inv%,l,true);
    NEXT;
    gui;
    endif;


    //// verifica se o bau esta cheio
    GETSLOT(81,#slot,0);
    if(%#slot%=53);
    log("o bau esta cheio");
    gui;
    wait(500ms);
    look(0,50);  //// quarto bau
    wait(500ms);
    key(use);
    wait(5);
    endif;


    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if(%#stack%<64);
    wait(500ms);
    log("guardando itens");
    FOR(#inv,54,89);
    slotclick(%#inv%,l,true);
    NEXT;
    gui;
    endif;


    //// verifica se o bau esta cheio
    GETSLOT(81,#slot,0);
    if(%#slot%=53);
    log("o bau esta cheio");
    gui;
    wait(500ms);
    look(0,50);  //// quinto bau
    wait(500ms);
    key(use);
    wait(5);
    LOG("&4&lTODOS OS BAUS ESTÃO CHEIOS");
    gui;
    wait(1);
    look(NORTH);
    wait(500ms);
    keydown(sneak);
    keydown(right);
    wait(700ms);
    keyup(sneak);
    keyup(right);
    endif;
										until(%ITEM%=0);


															loop;










	endif;
 log("&a&l[Cacto] &c&lOFF");
endif;
stop;
endif;
}$$