zBow v1.0 by zMatheus22

$${
toggle(zbow)
    IF(zbow)
        LOG("&f&l[&f&lz&4&lBow&f&l] &4zBow v1.0 &aativada!")

        SET(&zbowhome,"zbow");
        SET(&isoled,"home");
        SET(#naovip,0);
        SET(#delay100,100);
        SET(#delay350,350);
        SET(#delay500,500);
        SET(#delay1000,1000);

              echo("/home %&zbowhome%");
              wait(%#naovip%ms);

        if(%DIRECTION% = "N"); &frente = "north"; &atras = "south"; &direita = "east" ; &esquerda = "west";  endif;
        if(%DIRECTION% = "S"); &frente = "south"; &atras = "north"; &direita = "west" ; &esquerda = "east";  endif;
        if(%DIRECTION% = "E"); &frente = "east"; &atras  = "west" ; &direita = "south"; &esquerda = "north"; endif;
        if(%DIRECTION% = "W"); &frente = "west"; &atras  = "east" ; &direita = "north"; &esquerda = "east";  endif;

        set(irparahome);
        set(pickbow);
        set(picklinha);
        set(arcada);

        do();
            clearchat;
            log(" ");
            log("&f&l[&f&lz&4&lBow&f&l]&f&l Você é &6&lVIP&f&l?");
            log(" ");
            log("&e&l[1]  &f&lSou &6&lVIP");
            log("&e&l[2]  &f&lNao sou &6&lVIP");
            log("&e&l[3]  &f&lSair");
            log(" ");
            prompt(#naovipx,$$?,"digite se é VIP ou nao.");
        until((#naovipx == 1)|(#naovipx == 2)|(#naovipx == 3));

            if(#naovipx == 1);
                #naovip = 2000;
            endif;

            if(#naovipx == 2);
                #naovip = 5500;
            endif;

            if(#naovipx == 3);
            LOG("&f&l[&f&lz&4&lBow&f&l] &7&lNenhuma das opçoes foi selecionada,&c&l Finalizando.");toggle(miner);stop;
            endif;

        ECHO("/g &fArqueiro &6Profissional &fz&4Bow v1.0 &6by zMatheus22 &aativada!")

        echo("/spawn");
        wait(%#naovip%ms);

       IF(irparahome)
          DO;
              echo("/home %&zbowhome%");
              wait(%#naovip%ms);
                do(10);looks(%&direita%,1);wait(300ms);until(%HITID% = 42);
                    IF(%HITID% = 42);
                      look(%&frente%);
                        BREAK;
                           ELSE;
                              LOG("&f&l[&f&lz&4&lBow&f&l] &bBloco de &fferro &bna direita nao encontrado.")
                                 stop;
                    ENDIF;
          LOOP;
       ENDIF;

       IF(pickbow);
              GUI(inventory);
                  getslot(261,#bow);
                     if(#bow = -1);
                        LOG("&f&l[&f&lz&4&lBow&f&l] &cNao encontrado &4Arco.")
                           do;gui();until(%GUI% = "NONE");
                              toggle(zbow);stop;
                     endif;
                        slotclick(%#bow%,l,false);
                        wait(550ms);
                        slotclick(44,l,false);
                             do;gui();until(%GUI% = "NONE");
                                  BREAK;
       ENDIF;

       IF(pickstring);
             Do;
                  Unsafe;
                       GUI(inventory);
                       getslot(287,#string);
                          if(#string = -1);
                             LOG("&f&l[&f&lz&4&lBow&f&l] &cNao encontrado &4linha.")
                                 do;gui();until(%GUI% = "NONE");
                                    stop;
                                       Else;
                                         Break;
                             endif;
                  Endunsafe;


             loop;
       ENDIF;

       IF(arcada)
            DO;
                     DO();
                        &mobdrop = "^51$|^54$|^57$|^58$|^96$|^91$|^95$|^94$|^61$|^59$|^52$|^120$|^66$|^96$|^62$|^90$";
                        IFmatches(%HITID%,%&mobdrop%);
                                keyup(jump);
                                BREAK;
                                  Else;
                                    Keydown(jump);
                                    wait(500ms);

                        ENDIF;
                     LOOP;
                DO(50);
                  pick(261);
                     IF(%DURABILITY% <= 15);
                         looks(%&direita%,1);
                         wait(300ms);
                            do;key(use);wait(100ms);UNTIL(%DURABILITY% > 100);
                               Else;
                                 do(23);
                                     look(%&frente%);
                                         key(use);
                                 loop;
                    ENDIF;
                LOOP;
                                LOG("&f&l[&f&lz&4&lBow&f&l] &aDesbugando Arco")
                                    echo("/spawn");
                                    wait(%#naovip%ms);
                                       echo("/home %&zbowhome%");
                                       wait(%#naovip%ms);
            LOOP;
       ENDIF;

        unset(zbow)
    ENDIF;
    LOG("&f&l[&f&lz&4&lBow&f&l] &4zBow v1.0 &cDesativada!")
 stop;
}$$