bnanv

$${
	if(autoputv4);
		log("&d{MACRO} &6AutoPUT &c[OFF]");

		unset(autoputv4);
		keyup(back);
		keyup(sneak);
		stop();
		else;
		log("&d{MACRO} &6AutoPUT &a[ON]");

		#tic2=%@#tic2%;
		set(autoputv4);

		PROMPT(#itemid,$$i,"ID do item que será usado:");		if(%#itemid%=0);unset(autoputv4);stop();endif;
		PROMPT(#nlado,$$?,"Comprimento:");						if(%#nlado%=0);unset(autoputv4);stop();endif;
		PROMPT(#nlado1,$$?,"Largura:");							if(%#nlado1%=0);unset(autoputv4);stop();endif;
		log("&d{MACRO} &6Deixe o inventório aberto!");
		#nladox=%#nlado%;
		#nlado1x=%#nlado1%
		#calc1=%#lado%/2;
		#calc2=%#calc1%*2;
		#ih45=%#lado%-%#calc1%;
		#nposy=%POSY%;
		#nlado=%#nlado%-1;
		#impvar=%#nlado1%;
		#nlado1=%#nlado1%/2;
		#imp=%#impvar%-(%#nlado1%*2);
		if(%#imp%=1);#nlado1=%#nlado1%+1;endif;

		&dir = %DIRECTION%;

		ifmatches(%&dir%,N);&dir=NORTH;endif;
		ifmatches(%&dir%,S);&dir=SOUTH;endif;
		ifmatches(%&dir%,E);&dir=EAST;endif;
		ifmatches(%&dir%,W);&dir=WEST;endif;

		set(ftpass);

		gui(inventory);
		wait(800ms);

		#dims=%#nladox%*%#nlado1x%;
		#tpacks=%#dims%/64;
		&tpacks=;
		if(%#tpacks%!=0);&tpacks="%#tpacks% packs e ";endif;
		#trest=%#dims%-(#tpacks*64);
		if(%#trest%!=0);&trest="%#trest% blocos";else;&trest=;endif;
		#stack=0;
		#stackx=0;
		gui(inventory);
		wait(1);
		for(#capac,9,44);
		getslotitem(%#capac%,#id,#stack);
		if(%#id%=%#itemid%);#stackx=%#stackx%+%#stack%;endif;
		next;

		if(%#dims%>%#stackx%);
			gui();
			log("&d{MACRO} &cOps! &6Total de itens no inventário insuficiente. :(");
			log("&d{MACRO} &6Para esse tamanho são necessários &9%&tpacks%%&trest%.");
			log("&d{MACRO} &6AutoPUT &c[OFF]");
			unset(autoputv4);
			stop();
		endif;

		log("&d{MACRO} &6Área de dimensões &9%#nladox% &6por &9%#nlado1x%&6.");
		log("&d{MACRO} &6Total de blocos: &9%#dims% &6blocos. ");

		for(#nii,1,%#nlado1%);
			for(#ucris,1,2);

				if(%#nposy%!=%POSY%);
					log("&d{MACRO} &cOps! 6Parece que você caiu ou foi pra cima :(.");
					log("&d{MACRO} &6AutoPUT &c[OFF]");
					unset(autoputv4);stop();
				endif;

				getslot(%#itemid%,#i);
				if(%#i%<36);
				slotclick(%#i%,l,true);
				endif;
				if(%#i%=-1);unset(autoputv4);log("&d{MACRO} &6Acabaram os itens :/ &c[OFF]");log("&d{MACRO} &6AutoPUT &c[OFF]");stop();endif;
				if((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=1));
					else;

					if(%#ucris%=1);
						&loc=+90;
						&loc2=+22;	&loc3=-22;
						&loc4=-50;	&loc5=+50;
						&loc6=-18;	&loc7=+18;
					endif;

					if(%#ucris%=2);
						&loc=-90;
						&loc2=-22;	&loc3=+22;
						&loc4=+50;	&loc5=-50;
						&loc6=+18;	&loc7=-18;
					endif;

					&dir=%DIRECTION%;
					ifmatches(%&dir%,N);&dir=NORTH;endif;
					ifmatches(%&dir%,S);&dir=SOUTH;endif;
					ifmatches(%&dir%,E);&dir=EAST;endif;
					ifmatches(%&dir%,W);&dir=WEST;endif;

					if(ftpass);
						#nlado=%#nlado%-1;
					endif;

					do(%#nlado%);
						look(%&dir%);
						#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
						wait(50ms);
						do;
							keydown(back);
							pick(%#itemid%);
							key(use);
						until((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1)|(%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1));
						keyup(back);
					loop;

					if(ftpass);
						#nlado=%#nlado%-1;
						unset(ftpass);
					endif;

					look(%&loc%,);
					wait(50ms);

					#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
					do;
						keydown(back);
						pick(%#itemid%);
						key(use);
					until(((%XPOS%=%#nposx1%+1)|(%XPOS%=%#nposx1%-1))|((%ZPOS%=%#nposx2%+1)|(%ZPOS%=%#nposx2%-1)));

					wait(10ms);
					keyup(back);
					wait(50ms);
					look(%&loc4%,);
					wait(150ms);
					pick(%#itemid%);
					key(use);
					wait(150ms);
					look(%&loc2%,);
					wait(150ms);
					pick(%#itemid%);
					key(use);
					wait(150ms);
					look(%&loc%,);
					look(%&loc3%,);
					look(%&loc5%,);

					if(((%#ucris%=1)&&(%#nlado1%=%#nii%)&&(%#imp%=1))|((%#ucris%=2)&&(%#nlado1%=%#nii%)&&(%#imp%=0)));
						else;
						#nposx1 = %XPOS%; #nposx2 = %ZPOS%;
							do;
								keydown(back);
							until((%XPOS%=%#nposx1%+2)|(%XPOS%=%#nposx1%-2)|(%ZPOS%=%#nposx2%+2)|(%ZPOS%=%#nposx2%-2));
						keyup(back);
						wait(150ms);
						look(%&loc6%,);
						wait(150ms);
						pick(%#itemid%);
						key(use);
						wait(150ms);
						look(%&loc7%,);
					endif;
				endif;
			next;
		next;

		#tic2=%@#tic2%-%#tic2%;
		#tich=%#tic2%/3600;
        #ticm=(%#tic2%/60)-(%#tich%*60);
        #tics=(%#tic2%)-(%#ticm%*60);

        if(%#tich%>1);&tch="&9%#tich% &6horas, ";else;&tch="&9%#tich% &6hora, ";endif;
        if(%#ticm%>1);&tcm="&9%#ticm% &6minutos e ";else;&tcm="&9%#ticm% &6minuto e ";endif;
        if(%#tics%>1);&tcs="&9%#tics% &6segundos";else;&tcs="&9%#tics% &6segundo";endif;

        if(%#tich%<1);&tch=;endif;
        if(%#ticm%<1);&tcm=;endif;
        if(%#tics%<1);&tcs=;endif;

		keyup(back);
		gui();
		log(&d{MACRO} &6Tempo gasto: %&tch%%&tcm%%&tcs%);
		log("&d{MACRO} &6AutoPUT &c[OFF]");

		unset(autoputv4);
		stop();
	endif;
}$$