Macro escavex 0.1 VIP

$${

//////////////////////////////////////////////////
//				VARIAVEIS EDITAVEIS				//
// Editar somente os caracteres dentro das "".  //
//                                              //
		SET(#idinho_parep,"100");
		SET(#idinho_blocodereparar,"42");
		SET(#idinho_hphome,"9");
		SET(#idinho_idpa,"277");
		SET(&idinho_homehp,"casa");
//												//
//////////////////////////////////////////////////

IF(macroescidinho);SET(&mc,"escavex");SET(&b,"/");SET(&c,"g");LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);echo("%&b%%&c% &6macro &b%&m% &c(desligada) &6by @idinhobr");KEYUP(forward);KEYUP(back);KEYUP(left);KEYUP(right);KEYUP(sneak);KEYUP(jump);UNSET(macroescidinho);STOP;ELSE;LOG(&6[Macro]&b[Escavex] &a(Ligada) &8&o#iDinhoBR);echo("%&b%%&c% &6macro &b%&m% &a(ligada) &6by @idinhobr");SET(macroescidinho);

   	SET(#idinho_looptotal,"10");
	SET(#idinho_reptir,"7");
	SET(&idinho_delay,"30MS");
	SET(#idinho_look,"45");

  PICK(%#idinho_idpa%);

  PROMPT(#idinho_blocoesc,$$i,Qual bloco usar para escavar?);
   IF(%#idinho_blocoesc%=nothing);
    LOG(&6[Macro]&b[Escavex] &4Nenhum bloco selecionado para escavar.);
	 LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
	  KEYUP(forward);
	  KEYUP(back);
	  KEYUP(left);
	  KEYUP(right);
	  KEYUP(sneak);
	  KEYUP(jump);
	   UNSET(macroescidinho);
	    STOP;
   ENDIF;
    IF((%#idinho_blocoesc%=3)||(%#idinho_blocoesc%=12)||(%#idinho_blocoesc%=13)||(%#idinho_blocoesc%=82)||(%#idinho_blocoesc%=88));

	ELSE;
	 LOG(&6[Macro]&b[Escavex] &eVocê só pode escolher blocos que der para escavar.);
	  LOG(&eCOMO: Terra(3) Areia(12) Cascalho(13) Argila(82) Areia das almas(88).);
	   LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
	    KEYUP(forward);
		KEYUP(back);
		KEYUP(left);
		KEYUP(right);
		KEYUP(sneak);
		KEYUP(jump);
		 UNSET(macroescidinho);
		  STOP;
	ENDIF;

	DO;

	  ECHO("/pvp off");
	  PICK(%#idinho_idpa%);

	 DO(%#idinho_looptotal%);

	   IF(%DURABILITY%<=%#idinho_parep%);
	    LOG(&6[Macro]&b[Escavex] &eSua pá esta com menos de &4%#idinho_parep%&e de vida. vamos reparar!);
	     KEYUP(forward);
	     KEYUP(back);
	     KEYUP(left);
	     KEYUP(right);
	     KEYUP(sneak);
	     KEYUP(jump);
	      DO;
	       LOOK(west);
		    LOOK(,90);

				IF(%HEALTH%<=%#idinho_hphome%);
				 DO(2);
				  ECHO("/home %&idinho_homehp%");
				 LOOP;

				 LOG(&6[Macro]&b[Escavex] &eVocê estava com menos de &4%#idinho_hphome%HP&e.);
				  LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
				   KEYUP(forward);
				   KEYUP(back);
				   KEYUP(left);
				   KEYUP(right);
				   KEYUP(sneak);
				   KEYUP(jump);
				    UNSET(macroescidinho);
					 STOP;
				ENDIF;

	      UNTIL(%HITID%=%#idinho_blocodereparar%);

	     IF(%HITID%=%#idinho_blocodereparar%);
	      KEYUP(forward);
		   DO;
		    WAIT(200ms);
		     KEY(use);
			  WAIT(1);
			   ECHO(/bau);
			    WAIT(500ms);
				 GUI;

					IF(%HEALTH%<=%#idinho_hphome%);
					 DO(2);
					  ECHO("/home %&idinho_homehp%");
					 LOOP;

					 LOG(&6[Macro]&b[Escavex] &eVocê estava com menos de &4%#idinho_hphome%HP&e.);
					  LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
					   KEYUP(forward);
					   KEYUP(back);
					   KEYUP(left);
					   KEYUP(right);
					   KEYUP(sneak);
					   KEYUP(jump);
						UNSET(macroescidinho);
						 STOP;
					ENDIF;

		   UNTIL(%DURABILITY%>500);
		    LOG(&6[Macro] &b[Escavex] &eSua pá foi reparada com sucesso. vamos voltar a upar.);
	    ENDIF;
	   ENDIF;

	  DO(%#idinho_reptir%);
	   KEYUP(left);
	    KEYDOWN(right);
		 LOOK(north);
		  LOOK(,%#idinho_look%);
		   PICK(%#idinho_blocoesc%);
		    WAIT(%&idinho_delay%);
			 KEY(use);
			  WAIT(%&idinho_delay%);
			   PICK(%#idinho_idpa%);
			    KEY(attack);

				IF(%HEALTH%<=%#idinho_hphome%);
				 DO(2);
				  ECHO("/home %&idinho_homehp%");
				 LOOP;

				 LOG(&6[Macro]&b[Escavex] &eVocê estava com menos de &4%#idinho_hphome%HP&e.);
				  LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
				   KEYUP(forward);
				   KEYUP(back);
				   KEYUP(left);
				   KEYUP(right);
				   KEYUP(sneak);
				   KEYUP(jump);
				    UNSET(macroescidinho);
					 STOP;
				ENDIF;
	  LOOP;

	  DO(%#idinho_reptir%);
	   KEYUP(right);
	    KEYDOWN(left);
		 LOOK(north);
		  LOOK(,%#idinho_look%);
		   PICK(%#idinho_blocoesc%);
		    WAIT(%&idinho_delay%);
			 KEY(use);
			  WAIT(%&idinho_delay%);
			   PICK(%#idinho_idpa%);
			    KEY(attack);

				IF(%HEALTH%<=%#idinho_hphome%);
				 DO(2);
				  ECHO("/home %&idinho_homehp%");
				 LOOP;

				 LOG(&6[Macro]&b[Escavex] &eVocê estava com menos de &4%#idinho_hphome%HP&e.);
				  LOG(&6[Macro]&b[Escavex] &c(Desligada) &8&o#iDinhoBR);
				   KEYUP(forward);
				   KEYUP(back);
				   KEYUP(left);
				   KEYUP(right);
				   KEYUP(sneak);
				   KEYUP(jump);
				    UNSET(macroescidinho);
					 STOP;
				ENDIF;
	  LOOP;

	 LOOP;

	 KEYUP(forward);
	 KEYUP(back);
	 KEYUP(left);
	 KEYUP(right);
	 KEYUP(sneak);
	 KEYUP(jump);
	  GUI(inventory);
	   WAIT(200ms);
	    GETSLOTITEM(33,#stack)
	     WAIT(200ms);
		  GUI;

		 IF(%#stack%>=1);
		  DO();
		   LOOK(west);
		    LOOK(,90);
			 KEYDOWN(forward);
		  UNTIL(%HITID%=%#idinho_blocodereparar%);

		  IF(%HITID%=%#idinho_blocodereparar%);
		   KEYUP(forward);
		    WAIT(100ms);
			 LOOK(west);
			  LOOK(,-1);
			   GUI(inventory);
			    FOR(#itens,9,44);
			     GETSLOTITEM(%#itens%,#id);
			      IF((%#id%=403)||(%#id%=387)||(%#id%=57)||(%#id%=41)||(%#id%=42)||(%#id%=%#idinho_bloco%)||(%#id%=277)||(%#id%=278)||(%#id%=364)||(%#id%=384)||(%#id%=264));

				  ELSE;
				   SLOTCLICK(%#itens%,l,false);
				    WAIT(150ms);
				     SLOTCLICK(-999,l,false);
				  ENDIF;

			    NEXT;

				  GUI;

				  WAIT(100ms);
				   ECHO("/bau vip");
				    WAIT(1);
					 FOR(#itens,54,89);
					  GETSLOTITEM(%#itens%,#id);
					   IF((%#id%=387)||(%#id%=403));
					    SLOTCLICK(%#itens%,l,true);
						 WAIT(200ms);
					   ENDIF;

					 NEXT;

					 GUI;

		  ENDIF;
		 ENDIF;

	LOOP;

ENDIF;
}$$