Macro / Keybind mod - ACFB Calculator

$${ PROMPT(#compb,$$?,"Qual o comprimento em blocos uteis da plantacao?"); PROMPT(#largb,$$?,"Qual a largura em blocos uteis da plantacao?"); #compt=(%#compb%-1)/4; #largt=(%#largb%-1)/4; LOG(""); LOG("&3[MathCraft] &6Para o tamanho de sua plantacao e necessario:"); IF(%#compt%=1); &compt=; ELSE; &compt=s; ENDIF; IF(%#largt%=1); &largt=; ELSE; &largt=s; ENDIF; LOG("&3>> &6%#compt% torre%&compt% de comprimento"); LOG("&3>> &6%#largt% torre%&largt% de comprimento"); LOG(""); #andares=; PROMPT(#andares,$$?,"Quantos andares?"); IF(%#andares%<1); STOP(); ENDIF; PROMPT(#comp,$$?,"Qual o comprimento?"); IF(%#comp%<1); STOP(); ENDIF; PROMPT(#larg,$$?,"Qual a largura?"); IF(%#larg%<1); STOP(); ENDIF; #torres=%#larg%*%#comp%; IF(%#torres%>101); LOG("&3[MathCraft] &6A macro possui suporte para apenas 100 baus (101 torres)"); LOG("&3[MathCraft] &4A contrucao e impossivel!"); STOP(); ENDIF; &ferramenta=; PROMPT(&ferramenta,$$?,"Utilizara ferramenta para quebrar o bloco da base? (S/N)"); IFMATCHES(%&ferramenta%,^[N|n]); #andaresl=32; ELSE; #andaresl=27; ENDIF; #contl=; #contlsob=; UNSET(verl); IF(%#andares%>%#andaresl%); #contl=%#andares%/%#andaresl%; #contlsob=%#andares%-(%#contl%*%#andaresl%); SET(verl); ENDIF; IF(%#contlsob%>0); IF(%#contl%>3); LOG("&3[MathCraft] &4Itens necessarios ultrapassaram o limite do inventario!"); STOP(); ENDIF; ELSE; IF(%#contl%>4); LOG("&3[MathCraft] &4Itens necessarios ultrapassaram o limite do inventario!"); STOP(); ENDIF; ENDIF; #timeandares=%#andares%*26; #timetorres=%#torres%*%#timeandares%; #baus=(%#comp%*%#larg%)-1; #timebaus=%#baus%*37; #baus=(%#comp%*%#larg%)-1; #contapoio=(%#torres%*5)+2; #packapoio=%#contapoio%/64; #sobapoio=%#contapoio%-(%#packapoio%*64); IF(%#packapoio%=1); &packsapoio=; ELSE; &packsapoio=s; ENDIF; IF(%#sobapoio%=1); &sobrasapoio=; ELSE; &sobrasapoio=s; ENDIF; #contbase=%#andares%*7*%#torres%; #cont12=%#andares%*5*%#torres%; #cont81=%#andares%*4*%#torres%; #packbase=%#contbase%/64; #sobbase=%#contbase%-(%#packbase%*64); #pack12=%#cont12%/64; #sob12=%#cont12%-(%#pack12%*64); #pack81=%#cont81%/64; #sob81=%#cont81%-(%#pack81%*64); IF(%#packbase%=1); &packsbase=; ELSE; &packsbase=s; ENDIF; IF(%#pack12%=1); &packs12=; ELSE; &packs12=s; ENDIF; IF(%#pack81%=1); &packs81=; ELSE; &packs81=s; ENDIF; IF(%#sobbase%=1); &sobrasbase=; ELSE; &sobrasbase=s; ENDIF; IF(%#sob12%=1); &sobras12=; ELSE; &sobras12=s; ENDIF; IF(%#sob81%=1); &sobras81=; ELSE; &sobras81=s; ENDIF; IF(%#andares%=1); &andares=; ELSE; &andares=es; ENDIF; IF(%#tandares%=1); &tandares=; ELSE; &tandares=es; ENDIF; #tandares=%#andares%*%#torres%; IF(%#tandares%=%#andares%); ELSE; LOG("&3-----------------------------------------------------"); LOG("&3>> &4Itens necessarios para a contrucao de &6%#tandares% &4andar%&tandares% (tudo):"); LOG("&3>> &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base"); LOG("&3>> &6%#pack12% pack%&packs12% + %#sob12% sand%&sobras12% (Areia%&sobras12%)"); LOG("&3>> &6%#pack81% pack%&packs81% + %#sob81% cactu%&sobras81% (Cacto%&sobras81%)"); LOG("&3>> &6%#packapoio% pack%&packsapoio% + %#sobapoio% bloco%&sobrasapoio% da base para apoio"); ENDIF; #contbase=%#andares%*7; #cont12=%#andares%*5; #cont81=%#andares%*4; #packbase=%#contbase%/64; #sobbase=%#contbase%-(%#packbase%*64); #pack12=%#cont12%/64; #sob12=%#cont12%-(%#pack12%*64); #pack81=%#cont81%/64; #sob81=%#cont81%-(%#pack81%*64); IF(%#packbase%=1); &packsbase=; ELSE; &packsbase=s; ENDIF; IF(%#pack12%=1); &packs12=; ELSE; &packs12=s; ENDIF; IF(%#pack81%=1); &packs81=; ELSE; &packs81=s; ENDIF; IF(%#sobbase%=1); &sobrasbase=; ELSE; &sobrasbase=s; ENDIF; IF(%#sob12%=1); &sobras12=; ELSE; &sobras12=s; ENDIF; IF(%#sob81%=1); &sobras81=; ELSE; &sobras81=s; ENDIF; IF(%#andares%=1); &andares=; ELSE; &andares=es; ENDIF; LOG("&3-----------------------------------------------------"); LOG("&3>> &4Itens necessarios para a contrucao de &6%#andares% &4andar%&andares%:"); LOG("&3>> &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base"); LOG("&3>> &6%#pack12% pack%&packs12% + %#sob12% sand%&sobras12% (Areia%&sobras12%)"); LOG("&3>> &6%#pack81% pack%&packs81% + %#sob81% cactu%&sobras81% (Cacto%&sobras81%)"); &linha1b=; &linha2b=; &linha3b=; &linha4b=; &linhaextrab=; #contbase=%#andares%*7; #cont12=%#andares%*5; #cont81=%#andares%*4; IF(verl); #contbase=%#andaresl%*7; #cont12=%#andaresl%*5; #cont81=%#andaresl%*4; #packbase=%#contbase%/64; #sobbase=%#contbase%-(%#packbase%*64); #pack12=%#cont12%/64; #sob12=%#cont12%-(%#pack12%*64); #pack81=%#cont81%/64; #sob81=%#cont81%-(%#pack81%*64); IF(%#packbase%=1); &packsbase=; ELSE; &packsbase=s; ENDIF; IF(%#pack12%=1); &packs12=; ELSE; &packs12=s; ENDIF; IF(%#pack81%=1); &packs81=; ELSE; &packs81=s; ENDIF; IF(%#sobbase%=1); &sobrasbase=; ELSE; &sobrasbase=s; ENDIF; IF(%#sob12%=1); &sobras12=; ELSE; &sobras12=s; ENDIF; IF(%#sob81%=1); &sobras81=; ELSE; &sobras81=s; ENDIF; ENDIF; SET(logl); LOG("&3-----------------------------------------------------"); LOG("&3>> &4Seu inventario deve estar exatamente assim:"); LOG("&3>> &4HOTBAR: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%"); &linha1b=&3>> &41: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%; IF(%#contl%>1); LOG("&3>> &4LINHAS DO INVENTARIO:"); LOG("&3>> &41: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%"); &linha2b=&3>> &42: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%; UNSET(logl); IF(%#contl%>2); LOG("&3>> &42: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%"); &linha3b=&3>> &43: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%; IF(%#contl%>3); LOG("&3>> &43: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%"); &linha4b=&3>> &44: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%; ENDIF; ENDIF; ENDIF; IF(%#contlsob%>0); #contbase=%#contlsob%*7; #cont12=%#contlsob%*5; #cont81=%#contlsob%*4; #packbase=%#contbase%/64; #sobbase=%#contbase%-(%#packbase%*64); #pack12=%#cont12%/64; #sob12=%#cont12%-(%#pack12%*64); #pack81=%#cont81%/64; #sob81=%#cont81%-(%#pack81%*64); IF(%#packbase%=1); &packsbase=; ELSE; &packsbase=s; ENDIF; IF(%#pack12%=1); &packs12=; ELSE; &packs12=s; ENDIF; IF(%#pack81%=1); &packs81=; ELSE; &packs81=s; ENDIF; IF(%#sobbase%=1); &sobrasbase=; ELSE; &sobrasbase=s; ENDIF; IF(%#sob12%=1); &sobras12=; ELSE; &sobras12=s; ENDIF; IF(%#sob81%=1); &sobras81=; ELSE; &sobras81=s; ENDIF; IF(logl); LOG("&3>> &4LINHAS DO INVENTARIO:"); ENDIF; LOG("&3>> &4%#contl%: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%"); #contl2=%#contl%+1; &linhaextrab=&3>> &4%#contl2%: &6%#packbase% pack%&packsbase% + %#sobbase% bloco%&sobrasbase% da base / %#pack12% pack%&packs12% + %#sob12% areia%&sobras12% / %#pack81% pack%&packs81% + %#sob81% cacto%&sobras81%; ENDIF; LOG(""); LOG("&3>> &4OBS: O inventario inicial deve conter 2 blocos de apoio no ultimo slot do inventario!"); IF(%#baus%=1); &baus=; ELSE; &baus=s; ENDIF; IF(%#baus%=0); LOG("&3-----------------------------------------------------"); ELSE; LOG("&3-----------------------------------------------------"); LOG("&3>> &4LINHAS DOS BAUS:"); IFMATCHES(%&linha1b%,^[&]); LOG(%&linha1b%); ENDIF; IFMATCHES(%&linha2b%,^[&]); LOG(%&linha2b%); ENDIF; IFMATCHES(%&linha3b%,^[&]); LOG(%&linha3b%); ENDIF; IFMATCHES(%&linha4b%,^[&]); LOG(%&linha4b%); ENDIF; IFMATCHES(%&linhaextrab%,^[&]); LOG(%&linhaextrab%); ENDIF; LOG(""); LOG("&3>> &6Necessita-se de &4%#baus% &6bau%&baus%"); LOG("&3>> &4OBS: Cada bau devera conter 5 blocos de apoio no seu ultimo slot!"); LOG("&3-----------------------------------------------------"); ENDIF; #limite=0; #limite=255-(%#andares%*4); LOG("&3>> &6A contrucao pode ser contruida no maximo &4Y = %#limite%"); IF(%#limite%<1); LOG("&3[MathCraft] &4A contrucao e impossivel!"); ENDIF; #timetotal=%#timetorres%+%#timebaus%; #timex=%#timetotal%/60; #times=%#timetotal%-(%#timex%*60); #timeh=%#timex%/60; #timem=%#timex%-(%#timeh%*60); LOG(""); LOG("&3[MathCraft] &6Tempo TOTAL de construcao: &4%#timeh%:%#timem%:%#times%"); LOG("&4OBS: Tempo calculado em condicoes sem lag e sem delay!"); }$$