Macro / Keybind mod - ACFB Organizer

$${ IF(org); LOG("&3[MathCraft] &6Organizador &4[OFF]"); LOG("&3[MathCraft] &4Preenchimento finalizado no bau &6%#bau%"); UNSET(org); STOP(); ELSE; LOG("&3[MathCraft] &6Organizador &a[ON]"); LOG("&3[MathCraft] &4Para desligar pressione %KEYNAME%"); LOG(""); SET(org); ENDIF; PROMPT(#linha,$$?,"Preencher qual linha? (Bloco de apoio = 6 linha)"); IF(%#linha%<1); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(Numero de linhas invalido)"); UNSET(org); STOP(); ENDIF; UNSET(apoio); IF(%#linha%=6); SET(apoio); ENDIF; #linhas=9*(%#linha%-1); #linhas=9*(%#linha%-1); PROMPT(#baus,$$?,"Preencher quantos baus?"); IF(%#baus%<1); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(Numeros de baus invalido)"); UNSET(org); STOP(); ENDIF; IF(%#baus%>100); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(Exedeu o limite de baus)"); LOG("&3[MathCraft] &6A macro possui suporte para apenas 100 baus"); UNSET(org); STOP(); ENDIF; PROMPT(#iniciar,$$?,"Iniciar o preenchimento de qual bau?"); IF(%#iniciar%<1); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(Numero do bau invalido)"); UNSET(org); STOP(); ENDIF; #total=%#iniciar%+%#baus%; IF(%#total%>101); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(Bau inexistente selecionado para ser preencher)"); UNSET(org); STOP(); ENDIF; PROMPT(#bloco,$$i,"Preencher com qual bloco?"); IF(%#bloco%<1); LOG("&3[MathCraft] &6Organizador &4[OFF] &6(ID do bloco invalido)"); UNSET(org); STOP(); ENDIF; IF(%#bloco%=81); #sloti=7+%#linhas%; #slotf=8+%#linhas%; ELSE; IF(%#bloco%=12); #sloti=4+%#linhas%; #slotf=6+%#linhas%; ELSE; #sloti=0+%#linhas%; #slotf=3+%#linhas%; ENDIF; ENDIF; IF(apoio); ELSE; PROMPT(#pack,$$?,"Quantos packs sera colocado na linha?"); PROMPT(#packr,$$?,"Quantos itens avulsos sera colocado na linha?"); ENDIF; #stackb=0; #inutil=0; #testgui=0; GUI(Inventory); DO; INC(#testgui); IF(%#testgui%=100); GUI(Inventory); #testgui=0; ENDIF; IFMATCHES(%GUI%,GUIINVENTORY); BREAK; ENDIF; LOOP; FOR(#slot,9,44); GETSLOTITEM(%#slot%,#id,#stack); IF(%#id%=%#bloco%); #stackb=%#stackb%+%#stack%; IF(apoio); #pbaus=%#stack%/5; #resto=%#stack%-(%#pbaus%*5); #inutil=%#resto%+%#inutil%; ENDIF; ENDIF; NEXT; GUI(); DO; IFMATCHES(%GUI%,NONE); BREAK; ENDIF; LOOP; IF(%#packr%=0); #packrc=0; ELSE; #packd=64/%#packr%; IF(%#packd%>=1); #packrc=64; IF(%#packd%>=2); #packrc=32; IF(%#packd%>=4); #packrc=16; IF(%#packd%>=8); #packrc=8; IF(%#packd%>=16); #packrc=4; IF(%#packd%>=32); #packrc=2; IF(%#packd%>=64); #packrc=1; ENDIF; ENDIF; ENDIF; ENDIF; ENDIF; ENDIF; ENDIF; ENDIF; LOG("%#packrc%"); #blocos=0; #titens=0; #tbaus=0; IF(apoio); LOG("#blocos=5"); #blocos=5; ELSE; LOG("#blocos=(%#pack%*64)+%#packrc%"); #blocos=(%#pack%*64)+%#packrc%; ENDIF; LOG("#titens=%#blocos%*%#baus%"); #titens=%#blocos%*%#baus%; LOG("%#titens%"); LOG("#tbaus=(%#stackb%-%#inutil%)/%#blocos%"); #tbaus=(%#stackb%-%#inutil%)/%#blocos%; LOG("%#tbaus%"); IF(%#tbaus%=1); &tbaus=; ELSE; &tbaus=s; ENDIF; LOG("&3>> &6Com essa quantidade de blocos e possivel preencher &4%#tbaus% &6bau%&tbaus%"); LOG(""); LOG("%#stackb%<%#titens%"); IF(%#stackb%<%#titens%); LOG("&3[MathCraft] &4Itens no inventario insuficientes para completar &6%#baus%&4!"); LOG("&3[MathCraft] &4OBS: Os itens avulsos sao contados como packs completos para evitar bugs!"); LOG("&3[MathCraft] &6Organizador &4[OFF]"); UNSET(org); STOP(); ENDIF; IFMATCHES(%DIRECTION%,N); &fbau = NORTH; &ebau = WEST; &dbau = EAST; &abau = SOUTH; ENDIF; IFMATCHES(%DIRECTION%,S); &fbau = SOUTH; &ebau = EAST; &dbau = WEST; &abau = NORTH; ENDIF; IFMATCHES(%DIRECTION%,W); &fbau = WEST; &ebau = SOUTH; &dbau = NORTH; &abau = EAST; ENDIF; IFMATCHES(%DIRECTION%,E); &fbau = EAST; &ebau = NORTH; &dbau = SOUTH; &abau = WEST; ENDIF; #bausa=0; #bau=0; UNSET(break); FOR(#ladob,1,4); IF(break); BREAK; ELSE; IF(#ladob=1); LOOK(%&fbau%); &ladob=%&fbau%; ENDIF; IF(#ladob=2); LOOK(%&dbau%); &ladob=%&dbau%; ENDIF; IF(#ladob=3); LOOK(%&abau%); &ladob=%&abau%; ENDIF; IF(#ladob=4); LOOK(%&ebau%); &ladob=%&ebau%; ENDIF; FOR(#linhab,1,5); IF(break); BREAK; ELSE; LOOK(%&ladob%); WAIT(100ms); IF(#linhab=1); LOOK(-40,-30); ENDIF; IF(#linhab=2); LOOK(-40,-15); ENDIF; IF(#linhab=3); LOOK(-40,); ENDIF; IF(#linhab=4); LOOK(-40,+25); ENDIF; IF(#linhab=5); LOOK(-40,+35); ENDIF; FOR(#colunab,1,5); INC(#bau); IF(#colunab=1); ELSE; WAIT(100ms); LOOK(+20,); ENDIF; UNSET(breakl); #tpack=0; IF(%#bau%>=%#iniciar%); INC(#bausa); WAIT(100ms); #testgui=0; KEY(Use); DO; INC(#testgui); IF(%#testgui%=100); KEY(Use); #testgui=0; ENDIF; IFMATCHES(%GUI%,GUICHEST); BREAK; ENDIF; LOOP; FOR(#slot,54,89); IF(apoio); GETSLOTITEM(%#slot%,#id,#stack); IF(%#stack%>=5); SLOTCLICK(%#slot%,l,false); WAIT(100ms); DO; SLOTCLICK(53,r,false); GETSLOTITEM(53,#idl,#stackl); WAIT(50ms); IF(%#stackl%=5); BREAK; ENDIF; LOOP; WAIT(200ms); SLOTCLICK(%#slot%,l,false); WAIT(500ms); BREAK; ENDIF; ELSE; BREAK; ENDIF; NEXT; IF(apoio); ELSE; FOR(#slotl,%#sloti%,%#slotf%); IF(breakl); BREAK; ELSE; FOR(#slot,54,89); GETSLOTITEM(%#slot%,#id,#stack); IF(%#id%=%#bloco%); IF(%#stack%=64); IF(%#tpack%<%#pack%); SLOTCLICK(%#slot%,l,false); WAIT(100ms); SLOTCLICK(%#slotl%,l,false); INC(#tpack); BREAK; ENDIF; ENDIF; IF(%#tpack%=%#pack%); IF(%#packr%=0); #tpack=0; SET(breakl); BREAK; ELSE; IF(%#stack%>=%#packr%); SLOTCLICK(%#slot%,l,false); WAIT(100ms); DO; SLOTCLICK(%#slotl%,r,false); GETSLOTITEM(%#slotl%,#idl,#stackl); WAIT(50ms); IF(%#stackl%=%#packr%); BREAK; ENDIF; LOOP; WAIT(200ms); SLOTCLICK(%#slot%,l,false); #tpack=0; SET(breakl); WAIT(500ms); BREAK; ENDIF; ENDIF; ENDIF; ENDIF; NEXT; ENDIF; NEXT; ENDIF; ENDIF; GUI(); DO; IFMATCHES(%GUI%,NONE); BREAK; ENDIF; LOOP; IF(%#bausa%=%#baus%); SET(break); BREAK; ENDIF; WAIT(100ms); NEXT; ENDIF; NEXT; ENDIF; NEXT; LOG("&3[MathCraft] &6Preenchimento finalizado no bau &b%#bau%"); LOG("&3[MathCraft] &6Organizador &4[OFF]"); LOG(""); UNSET(org); }$$