Inventory Manager (tinyfugue)
Jump to navigation
Jump to search
Contents
Overview
Tinyfugue macros to manage and easily restock farming supplies.
Inventory Management Tools
/restock
Buys any items that are running low.
/def restock = \ /supplies %;\ /repeat -2 1 /buylow %;
/display_totals
Formatted Inventory Results
/def display_totals = \
/test echo(pad("+============",-13,"===",3,"=+=",3,"============",-12,"===",3,"=+=",3,"===========",-11,"===",3,"=+=",3,"==========",-10,"===",3,"=+=",3,"==========",-10,"===",3,"=+",2)) %;\
/test echo(pad("| Fertilizer",-13,"Qty",3," | ",3,"Neutralizer",-12,"Qty",3," | ",3,"Water",-11,"Qty",3," | ",3,"Air",-10,"Qty",3," | ",3,"Pesticide",-10,"Qty",3," |",2)) %;\
/test echo(pad("| ----------",-13,"---",3," | ",3,"-----------",-12,"---",3," | ",3,"----------",-11,"---",3," | ",3,"---------",-10,"---",3," | ",3,"--------",-10,"---",3," |",2)) %;\
/test echo(pad("| Happy Ed's",-13,%{happy_tot},3," | ",3,"Cowville",-12,%{cowville_tot},3," | ",3,"Gulf Mex",-11,%{mexico_tot},3," | ",3,"Genlab",-10,%{genlab_tot},3," | ",3,"Hunch",-10,%{hunch_tot},3," |",2)) %;\
/test echo(pad("| Alphabet",-13,%{alphabet_tot},3," | ",3,"Derthalas",-12,%{derthalas_tot},3," | ",3,"Wayhaven",-11,%{wayhaven_tot},3," | ",3,"Ryogi-Pei",-10,%{ryogi_tot},3," | ",3,"Ant Cave",-10,%{antcave_tot},3," |",2)) %;\
/test echo(pad("| Hippie",-13,%{hippie_tot},3," | ",3,"Garou",-12,%{garou_tot},3," | ",3,"Atlantis",-11,%{atlantis_tot},3," | ",3,"Serinth",-10,%{serinth_tot},3," | ",3,"Faralain",-10,%{murus_tot},3," |",2)) %;\
/test echo(pad("| Smurfy",-13,%{smurfy_tot},3," | ",3,"Burns Brand",-12,%{burns_tot},3," | ",3,"R'lyeh",-11,%{rlyeh_tot},3," | ",3,"Detroit",-10,%{detroit_tot},3," | ",3,"Perplexus",-10,%{perplexus_tot},3," |",2)) %;\
/test echo(pad("+============",-13,"===",3,"=+=",3,"============",-12,"===",3,"=+=",3,"===========",-11,"===",3,"=+=",3,"==========",-10,"===",3,"=+=",3,"==========",-10,"===",3,"=+",2)) %;\
/supplies
Lists inventory of farming supplies.
/def supplies = \ /set happy_tot 0 %;\ /set alphabet_tot 0 %;\ /set smurfy_tot 0 %;\ /set hippie_tot 0 %;\ /set cowville_tot 0 %;\ /set derthalas_tot 0 %;\ /set garou_tot 0 %;\ /set burns_tot 0 %;\ /set mexico_tot 0 %;\ /set wayhaven_tot 0 %;\ /set atlantis_tot 0 %;\ /set rlyeh_tot 0 %;\ /set genlab_tot 0 %;\ /set ryogi_tot 0 %;\ /set serinth_tot 0 %;\ /set detroit_tot 0 %;\ /set hunch_tot 0 %;\ /set antcave_tot 0 %;\ /set murus_tot 0 %;\ /set perplexus_tot 0 %;\ /send i %;\ /repeat -1 1 /display_totals %;
/buylow
Buys any item that is below 5 (full)
/def buylow = \
/if (%{happy_tot} <5) /send buy happy ed %; /endif %;\
/if ({alphabet_tot} <5) /send buy alphabet%;/endif %;\
/if ({smurfy_tot} <5) /send buy smurfy%;/endif %;\
/if ({hippie_tot} <5) /send buy hippie%;/endif %;\
/if ({cowville_tot} <5) /send buy cowville%;/endif %;\
/if ({derthalas_tot} <5) /send buy der'thalas%;/endif %;\
/if ({garou_tot} <5) /send buy garou%;/endif %;\
/if ({burns_tot} <5) /send buy burns%;/endif %;\
/if ({mexico_tot} <5) /send buy gulf of mexico%;/endif %;\
/if ({wayhaven_tot} <5) /send buy wayhaven%;/endif %;\
/if ({rlyeh_tot} <5) /send buy r'lyeh%;/endif %;\
/if ({genlab_tot} <5) /send buy genlab%;/endif %;\
/if ({ryogi_tot} <5) /send buy ryogi%;/endif %;\
/if ({serinth_tot} <5) /send buy serinth%;/endif %;\
/if ({detroit_tot} <5) /send buy detroit%;/endif %;\
/if ({hunch_tot} <5) /send buy hunch%;/endif %;\
/if ({antcave_tot} <5) /send buy ant cave%;/endif %;\
/if ({murus_tot} <5) /send buy murus faralain%;/endif %;\
/if ({perplexus_tot} <5) /send buy mount perplexus%;/endif %;\
/if ({atlantis_tot} <5) /send buy atlantis%;/endif %;\
swoop all %;
Inventory Parsers
/def -p50 -mregexp -t"(\d)(.*)A bag of (.*) fertilizer \((.*)\)\." = \
/set fert_name %{P3} %;\
/set fert_name_tot 0 %;\
/if ({P4} =~ "somewhat empty") /set fert_name_tot $[(fert_name_tot + 1)*%{P1}] %; /endif %;\
/if ({P4} =~ "half-full") /set fert_name_tot $[(fert_name_tot + 2)*%{P1}] %; /endif %;\
/if ({P4} =~ "somewhat full") /set fert_name_tot $[(fert_name_tot + 3)*%{P1}] %; /endif %;\
/if ({P4} =~ "almost full") /set fert_name_tot $[(fert_name_tot + 4)*%{P1}] %; /endif %;\
/if ({P4} =~ "full") /set fert_name_tot $[(fert_name_tot + 5)*%{P1}] %; /endif %;\
/if ({P3} =~ "Happy Ed's") /set happy_tot $[happy_tot + fert_name_tot]%; /endif %;\
/if ({P3} =~ "alphabet") /set alphabet_tot $[alphabet_tot + fert_name_tot]%; /endif %;\
/if ({P3} =~ "hippie") /set hippie_tot $[hippie_tot + fert_name_tot]%; /endif %;\
/if ({P3} =~ "smurfy") /set smurfy_tot $[smurfy_tot + fert_name_tot]%; /endif %;\
/def -p50 -mregexp -t"(\d)(.*)A barrel of (.*) neutralizer \((.*)\)\." = \
/set neut_name %{P3} %;\
/set neut_name_tot 0 %;\
/if ({P4} =~ "somewhat empty") /set neut_name_tot $[(neut_name_tot + 1)*%{P1}] %; /endif %;\
/if ({P4} =~ "half-full") /set neut_name_tot $[(neut_name_tot + 2)*%{P1}] %; /endif %;\
/if ({P4} =~ "somewhat full") /set neut_name_tot $[(neut_name_tot + 3)*%{P1}] %; /endif %;\
/if ({P4} =~ "almost full") /set neut_name_tot $[(neut_name_tot + 4)*%{P1}] %; /endif %;\
/if ({P4} =~ "full") /set neut_name_tot $[(neut_name_tot + 5)*%{P1}] %; /endif %;\
/if ({P3} =~ "Cowville") /set cowville_tot $[cowville_tot + neut_name_tot]%; /endif %;\
/if ({P3} =~ "Der'thalas") /set derthalas_tot $[derthalas_tot + neut_name_tot]%; /endif %;\
/if ({P3} =~ "Garou") /set garou_tot $[garou_tot + neut_name_tot]%; /endif %;\
/if ({P3} =~ "Burns brand") /set burns_tot $[burns_tot + neut_name_tot]%; /endif %;\
/def -p50 -mregexp -t"(\d)(.*)A (barrel of|conch filled with) (.*) water \((.*)\)\." = \
/set water_name %{P4} %;\
/set water_name_tot 0 %;\
/if ({P5} =~ "somewhat empty") /set water_name_tot $[(water_name_tot + 1)*%{P1}] %; /endif %;\
/if ({P5} =~ "half-full") /set water_name_tot $[(water_name_tot + 2)*%{P1}] %; /endif %;\
/if ({P5} =~ "somewhat full") /set water_name_tot $[(water_name_tot + 3)*%{P1}] %; /endif %;\
/if ({P5} =~ "almost full") /set water_name_tot $[(water_name_tot + 4)*%{P1}] %; /endif %;\
/if ({P5} =~ "full") /set water_name_tot $[(water_name_tot + 5)*%{P1}] %; /endif %;\
/if ({P4} =~ "Gulf of Mexico") /set mexico_tot $[mexico_tot + water_name_tot]%; /endif %;\
/if ({P4} =~ "Wayhaven") /set wayhaven_tot $[wayhaven_tot + water_name_tot]%; /endif %;\
/if ({P4} =~ "Atlantis") /set atlantis_tot $[atlantis_tot + water_name_tot]%; /endif %;\
/if ({P4} =~ "R'lyeh") /set rlyeh_tot $[rlyeh_tot + water_name_tot]%; /endif %;\
/def -p50 -mregexp -t"(\d)(.*)A tank of (.*) air \((.*)\)\." = \
/set air_name %{P3} %;\
/set air_name_tot 0 %;\
/if ({P4} =~ "somewhat empty") /set air_name_tot $[(air_name_tot + 1)*%{P1}] %; /endif %;\
/if ({P4} =~ "half-full") /set air_name_tot $[(air_name_tot + 2)*%{P1}] %; /endif %;\
/if ({P4} =~ "somewhat full") /set air_name_tot $[(air_name_tot + 3)*%{P1}] %; /endif %;\
/if ({P4} =~ "almost full") /set air_name_tot $[(air_name_tot + 4)*%{P1}] %; /endif %;\
/if ({P4} =~ "full") /set air_name_tot $[(air_name_tot + 5)*%{P1}] %; /endif %;\
/if ({P3} =~ "Genlab") /set genlab_tot $[genlab_tot + air_name_tot]%; /endif %;\
/if ({P3} =~ "Ryogi-Pei") /set ryogi_tot $[ryogi_tot + air_name_tot]%; /endif %;\
/if ({P3} =~ "Serinth") /set serinth_tot $[serinth_tot + air_name_tot]%; /endif %;\
/if ({P3} =~ "Detroit") /set detroit_tot $[detroit_tot + air_name_tot]%; /endif %;\
/def -p50 -mregexp -t"(\d)(.*)A barrel of (.*) pesticide \((.*)\)\." = \
/set pest_name %{P3} %;\
/set pest_name_tot 0 %;\
/if ({P4} =~ "somewhat empty") /set pest_name_tot $[(pest_name_tot + 1)*%{P1}] %; /endif %;\
/if ({P4} =~ "half-full") /set pest_name_tot $[(pest_name_tot + 2)*%{P1}] %; /endif %;\
/if ({P4} =~ "somewhat full") /set pest_name_tot $[(pest_name_tot + 3)*%{P1}] %; /endif %;\
/if ({P4} =~ "almost full") /set pest_name_tot $[(pest_name_tot + 4)*%{P1}] %; /endif %;\
/if ({P4} =~ "full") /set pest_name_tot $[(pest_name_tot + 5)*%{P1}] %; /endif %;\
/if ({P3} =~ "Hunch") /set hunch_tot $[hunch_tot + pest_name_tot]%; /endif %;\
/if ({P3} =~ "Ant Cave") /set antcave_tot $[antcave_tot + pest_name_tot]%; /endif %;\
/if ({P3} =~ "Murus Faralain") /set murus_tot $[murus_tot + pest_name_tot]%; /endif %;\
/if ({P3} =~ "Mount Perplexus") /set perplexus_tot $[perplexus_tot + pest_name_tot]%; /endif %;\
