Cacto Premium

$${

    //// Variaveis da macro



    &homebau=/home guardar_cacto;
    &home=/home cacto;
    &homedois=/home cacto2;
    &guardar=/home mkb ;
    #look= -90,-52;
    #lookesquerda=104,327;
    #lookdireita=288,323;
    #idcacto=81;
    #posinicioz=-28091;
    #posfinalz=-28142;
    #xpos1=33428;
    #xpos2=33430;
    #xpos3=33432;
    #xpos4=33434;
    #xpos5=33436;
    #xpos6=33438;
    #xpos7=33440;
    #xpos8=33442;
    #xpos9=33444;
    #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);


                                                                                do;


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



    //// primeira fileira


do;
        look(288,323);
        keydown(right);
        if(%HITID%=81);
        keyup(right);
        do(28);
        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);




    //// segunda fileira

    look(WEST);
    wait(500ms);
do;
    look(248,324);
    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(28);
    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


    look(WEST);
    wait(500ms);
do;
    look(288,323);
    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(28);
    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

    look(WEST);
    wait(500ms);
do;
    look(248,324);
    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(28);
    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

    look(WEST);
    wait(500ms);
do;
    look(288,323);
    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(28);
    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

        look(WEST);
    wait(500ms);
do;
    look(248,324);
    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(28);
    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


    look(WEST);
    wait(500ms);
do;
    look(288,323);
    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(28);
    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

    look(WEST);
    wait(500ms);
do;
    look(248,324);
    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(28);
    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

    look(WEST);
    wait(500ms);
do;
    look(288,323);
    keydown(right);
    if(%HITID%=81);
    keyup(right);
    do(28);
    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

    look(WEST);
    wait(500ms);
do;
    look(248,324);
    keydown(left);
    if(%HITID%=81);
    keyup(left);
    do(28);
    key(attack);
    wait(-1t);
    loop;
    endif;

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


    endif;



   wait(1);
    log("&eVerificando o Inventario");
    wait(500ms);
    gui(INVENTORY);
    wait(2500ms);
    GETSLOTITEM(34,#id,#stack,#data);
    wait(250ms);
    if(%#stack%=64);
    wait(500ms);
    log("&cO Inventario esta cheio, indo guardar");
    gui;
    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(1);

    //// 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(1);
    endif;

    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if("%#stack%=0");
    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);  //// segundo bau
    wait(500ms);
    key(use);
    wait(1);
    endif;





    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if("%#stack%=0");
    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);  //// segundo bau
    wait(500ms);
    key(use);
    wait(1);
    endif;




    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if("%#stack%=0");
    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);  //// segundo bau
    wait(500ms);
    key(use);
    wait(1);
    endif;




    //// guarda no bau se o slot for menor que 64
    GETSLOTITEM(53,#id,#stack,#data);
    if("%#stack%=0");
    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);
    endif;


endif;
gui;











                                                                                loop;







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