The Wiki for Tale 8 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.
If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.
Guild:Newfy/Macro
< Guild:Newfy
Jump to navigation
Jump to search
Revision as of 20:02, 18 March 2019 by Brad (talk | contribs) (Brad moved page Newfy/Macro to Guild:Newfy/Macro: Changing namespace)
dofile("screen_reader_common.inc");
dofile("ui_utils.inc");
-- Initial values
compound_type = 6;
attrib_reqs = {
{5,-1},
{8,1},
{7,1}
};
max_essences = 5;
compound_reqs = {
-- {"Test",1,15},
{"Geb",2,4},
{"Maat",2,7},
{"Set",3,7},
{"Osiris",2,10},
{"Thoth",3,10},
{"Ra",2,13}
};
mods = {
[3]={"3",[-1]="-3"},
[4]={"++",[-1]="--"},
[6]={"6",[-1]="-6"},
[7]={"+++",[-1]="---"},
[9]={"9",[-1]="-9"},
[10]={"++++",[-1]="----"},
[12]={"12",[-1]="-12"},
[13]={"+++++",[-1]="-----"},
[15]={"15",[-1]="-15"},
};
attribs = {
"Ar","As","Bi","Sa","So","Sp","Sw","To"
};
herb_list = {
"Allbright","Aloe","Altar's Blessing","Anansi","Apiphenalm","Apothecary's Scythe","Asafoetida","Artemisia","Asane","Ashoka","Azure Tristeria","Banto","Bay Tree",
"Bee Balm","Beetle Leaf","Beggar's Button","Bhilawa","Bilimbi","Bitter Florian","Black Pepper Plant","Blessed Mariae","Bleubillae","Blood Balm","Blood Blossom",
"Blooded Harebell","Blood Root","Bloodwort","Blueberry Tea Tree","Bluebottle Clover","Blue Damia","Blue Tarafern","Blushing Blossom","Brassy Caltrops",
"Brown Muskerro","Buckler-Leaf","Bull's Blood","Burnt Tarragon","Butterroot","Butterfly Damia","Calabash","Camelmint","Caraway","Cardamom","Cassia","Chaffa",
"Chatinabrae","Chives","Chukkah","Cicada Bean","Cinnamon","Cinquefoil","Cirallis","Clingroot","Common Basil","Common Rosemary","Common Sage","Corsacia","Covage",
"Crampbark","Cranesbill","Creeping Black Nightshade","Creeping Thyme","Crimson Clover","Crimson Lettuce","Crimson Nightshade","Crimson Pipeweed","Crimson WindLeaf",
"Crumpled Leaf Basil","Curly Sage","Cyan Cressida","DaggerLeaf","Dalchini","Dameshood","Dank Mullien","Dark Ochoa","Dark Radish","Deadly Catsclaw","Deadwood Tree",
"Death's Piping","Dewplant","Digweed","Discorea","Drapeau D'or","Dusty Blue Sage","Dwarf Hogweed","Dwarf Wild Lettuce","Earth Apple","Elegia","Enchanter's Plant",
"Finlow","Fire Allspice","Fire Lily","FivesLeaf","Flaming Skirret","Flander's Blossom","Fleabane","Fool's Agar","Fumitory","Garcinia","Garlic Chives",
"Ginger Root","Ginger Tarragon","Ginseng Root","Glechoma","Gnemnon","Gokhru","Golden Dubloons","Golden Gladalia","Golden Sellia","Golden Sun","Golden Sweetgrass",
"Golden Thyme","Gynura","Harebell","Harrow","Hazlewort","Headache Tree","Heartsease","Hogweed","Homesteader Palm","Honey Mint","Houseleek","Hyssop","Ice Blossom",
"Ice Mint","Ilex","Indigo Damia","Ipomoea","Jagged Dewcup","Jaivanti","Jaiyanti","Joy of the Mountain","Jugwort","Katako Root","Khokali","King's Coin","Lamae",
"Larkspur","Lavender Navarre","Lavender Scented Thyme","Lemon Basil","Lemondrop","Lemon Grass","Lilia","Liquorice","Lungclot","Lythrum","Mahonia","Malice Weed",
"Mandrake Root","Maragosa","Mariae","Meadowsweet","Medicago","Mindanao","Miniature Bamboo","Miniature Lamae","Mirabellis Fern","Moon Aloe","Morpha","Motherwort",
"Mountain Mint","Myristica","Myrrh","Naranga","Nubian Liquorice","Octec's Grace","Opal Harebell","Orange Niali","Orange Sweetgrass","Orris","Pale Dhamasa",
"Pale Ochoa","Pale Russet","Pale Skirret","Panoe","Paradise Lily","Patchouli","Peppermint","Pippali","Pitcher Plant","Primula","Prisniparni","Pulmonaria Opal",
"Purple Tintiri","Quamash","Red Pepper Plant","Revivia","Rhubarb","Royal Rosemary","Rubia","Rubydora","Sacred Palm","Sagar Ghota","Sandalwood","Sandy Dustweed",
"Satsatchi","Scaley Hardwood","Schisandra","Shrubby Basil","Shrub Sage","Shyama","Shyamalata","Sickly Root","Silvertongue Damia","Skirret","Sky Gladalia",
"Soapwort","Sorrel","Spinach","Spinnea","Squill","Steel Bladegrass","Stickler Hedge","Strawberry Tea","Strychnos","Sugar Cane","Sweetflower","Sweetgrass",
"Sweet Groundmaple","Sweetsop","Tagetese","Tamarask","Tangerine Dream","Thunder Plant","Thyme","Tiny Clover","Trilobe","Tristeria","True Tarragon","Tsangto",
"Tsatso","Turtle's Shell","Umber Basil","Upright Ochoa","Vanilla Tea Tree","Verdant Squill","Verdant Two-Lobe","Wasabi","Weeping Patala","Whitebelly",
"White Pepper Plant","Wild Garlic","Wild Lettuce","Wild Onion","Wild Yam","Wood Sage","Xanat","Xanosi","Yava","Yellow Gentian","Yellow Tristeria","Yigory",
"Zanthoxylum",
}
herbs = {};
for i=1,#herb_list do
herbs[herb_list[i]] = 1;
end
resin_list = {
"Anaxi","Arconis","Ash Palm","Beetlenut","Bloodbark","Bottle Tree","Bramble Hedge","BroadLeaf Palm","ButterLeaf Tree","Cerulean Blue","Chakkanut Tree","Chicory",
"Cinnar","Coconut Palm","Cricklewood","Delta Palm","Elephantia","Feather Tree","Fern Palm","Folded Birch","Giant Cricklewood","Hawthorn","Hokkaido","Kaeshra",
"Locust Palm","Miniature Fern Palm","Mini Palmetto","Monkey Palm","Oil Palm","Oleaceae","Orrorin","Passam","Phoenix Palm","Pratyeka Tree","Ranyahn","Razor Palm",
"Red Maple","Royal Palm","Savaka","Spiked Fishtree","Spindle Tree","Stout Palm","Tapacae Miralis","Tiny Oil Palm","Towering Palm","Trilobellia","Umbrella Palm",
"Windriver Palm"
}
resins = {};
for i=1,#resin_list do
resins[resin_list[i]] = 1;
end
chem_data = {
{"Aloe","52","8 Vegetable, 2 Worm","6","1","0","1","-1","0","-1","-1","-1"},
{"Altar's Blessing","39","4 Worm, 5 Vegetable, 1 Wood","6","0","0","-1","0","0","-1","1","-1"},
{"Anansi","79","9 Fish, 1 Mineral","6","0","-1","3","0","-2","-3","0","1"},
{"Anaxi","14","8 Wood, 2 Grain","6","-2","2","-1","0","3","0","0","0"},
{"Arconis","82","10 Fish","6","0","0","0","0","-3","0","-1","-2"},
{"Asafoetida","39","4 Worm, 5 Vegetable, 1 Wood","6","0","-1","0","0","-1","-1","-1","0"},
{"Asane","67","3 Vegetable, 7 Mineral","6","-1","1","1","-1","0","0","-1","-1"},
{"Ash Palm","80","10 Fish","6","-2","3","2","1","0","0","0","-1"},
{"Ashoka","39","9 Grain, 1 Worm","6","0","1","0","0","0","0","-1","-1"},
{"Bee Balm","50","5 Mineral, 5 Grain","6","0","-1","-1","1","-1","1","-1","1"},
{"Beetle Leaf","7","7 Wood, 3 Rock","6","1","0","-1","0","-1","-1","-1","0"},
{"Beetlenut","75","5 Fish, 5 Mineral","6","1","3","0","-2","-1","2","0","0"},
{"Black Pepper Plant","48","6 Vegetable, 4 Grain","6","-2","0","0","0","-3","0","0","-1"},
{"Bloodbark","40","5 Worm, 5 Vegetable","6","-1","0","0","0","-3","2","0","3"},
{"Blue Damia","27","7 Grain, 3 Worm","6","0","0","3","0","-2","2","-3","-1"},
{"Blue Tarafern","70","10 Mineral","6","-1","2","-2","3","0","1","0","0"},
{"Bluebottle Clover","5","5 Wood, 5 Rock","6","2","0","-1","0","0","1","-3","0"},
{"Bottle Tree","1","9 Rock, 1 Wood","6","2","1","0","0","-1","0","0","-2"},
{"Bramble Hedge","22","6 Grain, 4 Wood","6","0","0","-2","-1","2","-3","0","0"},
{"Broadleaf Palm","16","6 Worm, 4 Wood","6","-1","2","-2","-3","0","0","1","0"},
{"Buckler-leaf","26","6 Grain, 4 Worm","6","-3","0","2","1","3","0","-1","0"},
{"Butterleaf Tree","11","9 Wood, 1 Worm","6","1","-2","-1","-3","0","0","0","0"},
{"Cardamom","63","7 Vegetable, 3 Mineral","6","-3","0","0","0","2","3","0","-1"},
{"Cerulean Blue","10","10 Wood","6","0","-2","-1","0","0","2","1","0"},
{"Chaffa","50","5 Grain, 5 Mineral","6","0","0","-1","0","1","-1","-1","0"},
{"Chakkanut Tree","61","9 Vegetable, 1 Mineral","6","-1","-2","0","0","0","0","1","-3"},
{"Chatinabrae","27","7 Grain, 3 Worm","6","-1","0","-1","1","1","0","-1","-1"},
{"Chicory","58","7 Mineral, 3 Grain","6","-3","-1","1","0","2","0","-2","0"},
{"Chives","42","4 Vegetable, 6 Grain","6","3","-1","0","0","1","-2","0","-3"},
{"Cicada Bean","87","1 Mineral, 9 Grey","3","-1","0","0","0","0","1","-1","1"},
{"Cinnamon","3","7 Rock, 3 Wood","6","0","-2","2","0","0","0","-1","-3"},
{"Cinnar","30","10 Grain","6","0","2","0","-1","0","-2","0","-3"},
{"Cinquefoil","21","7 Grain, 3 Rock","6","0","0","1","0","1","-1","-1","1"},
{"Coconut Palm","78","9 Fish, 1 Vegetable","6","-1","0","0","2","-3","0","0","-2"},
{"Common Basil","32","1 Vegetable, 8 Grain, 1 Worm","6","1","1","-1","-1","1","0","-1","0"},
{"Common Rosemary","73","6 Fish, 1 Mineral, 3 Vegetable","6","0","0","0","1","1","1","-1","-1"},
{"Common Sage","46","6 Vegetable, 3 Grain, 1 Wood","6","1","1","0","1","-1","0","-1","-1"},
{"Covage","22","6 Grain, 4 Wood","6","0","-3","0","2","3","-2","-1","0"},
{"Crampbark","63","3 Mineral, 7 Vegetable","6","0","0","-3","-1","2","-2","0","0"},
{"Cricklewood","40","5 Worm, 5 Vegetable","6","-1","-2","0","0","3","1","0","0"},
{"Delta Palm","41","5 Grain, 4 Vegetable, 1 Worm","6","-1","2","0","0","0","1","-1","0"},
{"Elephantia","88","9 Grey, 1 Mineral","3","0","0","-3","-2","3","0","1","-1"},
{"Feather Tree","24","7 Grain, 3 Wood","6","-1","-3","0","2","-2","1","0","0"},
{"Fern Palm","49","4 Mineral, 3 Vegetable, 3 Wood","6","0","0","0","-3","2","0","-1","-1"},
{"Folded Birch","79","9 Fish, 1 Mineral","6","-3","-1","0","0","-2","1","1","0"},
{"Giant Cricklewood","29","9 Grain, 1 Worm","6","0","-2","-3","-1","3","2","0","1"},
{"Hawthorn","30","10 Grain","6","0","1","0","-3","-1","0","-1","0"},
{"Hokkaido","48","6 Vegetable, 4 Grain","6","0","-2","0","1","-1","0","0","1"},
{"Kaeshra","43","6 Grain, 3 Vegetable, 1 Mineral","6","-3","0","2","0","0","0","-1","0"},
{"Locust Palm","53","8 Vegetable, 1 Grain, 1 Worm","6","-2","1","0","-1","0","3","2","-3"},
{"Mini Palmetto","1","9 Rock, 1 Wood","6","1","-3","-2","0","-1","0","2","0"},
{"Miniature Fern Palm","70","10 Mineral","6","-1","1","-2","0","0","0","0","0"},
{"Monkey Palm","47","6 Vegetable, 3 Grain, 1 Worm","6","2","-2","0","0","0","3","0","-1"},
{"Oil Palm","77","7 Fish, 3 Mineral","6","1","0","3","0","-2","0","0","-1"},
{"Oleaceae","14","8 Wood, 2 Grain","6","-3","-1","1","0","0","0","-2","2"},
{"Orrorin","52","8 Vegetable, 2 Worm","6","0","0","-3","0","-1","-2","0","0"},
{"Passam","48","6 Vegetable, 4 Grain","6","-3","-2","-1","0","0","1","0","2"},
{"Phoenix Palm","5","5 Rock, 5 Wood","6","2","-3","0","0","-2","0","1","-1"},
{"Powdered Amethyst","85","1 Mineral, 1 Vegetable, 8 Grey","3","0","1","0","-1","3","0","1","-1"},
{"Powdered Amethyst","85","1 Mineral, 1 Vegetable, 8 Grey","3","0","1","0","-1","3","0","0","-1"},
{"Powdered Aqua Pearl","73","3 Fish, 7 Mineral","6","-1","0","0","0","1","0","-1","0"},
{"Powdered Beige Pearl","79","9 Fish, 1 Mineral","6","0","1","-1","-1","0","0","-1","-1"},
{"Powdered Black Pearl","30","10 Grain","6","-1","1","0","0","-1","0","-1","1"},
{"Powdered Citrine","45","5 Grain, 5 Vegetable","6","-2","3","0","-1","-3","2","1","0"},
{"Powdered Coral Pearl","68","2 Vegetable, 8 Mineral","6","0","0","-1","1","0","1","-1","0"},
{"Powdered Diamond","63","7 Vegetable, 3 Mineral","6","0","-1","0","2","0","-3","1","-2"},
{"Powdered Emerald","88","9 Grey, 1 Mineral","3","0","1","-2","0","-1","2","1","-3"},
{"Powdered Garnet","90","10 Grey","3","0","2","0","1","-2","0","-3","-1"},
{"Powdered Garnet","90","10 Grey","3","0","2","0","1","-1","0","-3","-2"},
{"Powdered Jade","8","2 Rock, 8 Wood","6","0","2","-1","3","0","-2","1","-3"},
{"Powdered Lapis","25","5 Grain, 5 Worm","6","3","0","0","0","-1","-3","1","-2"},
{"Powdered Opal","82","10 Fish","6","0","0","-1","0","-2","-3","1","1"},
{"Powdered Pink Pearl","71","1 Fish, 9 Mineral","6","0","-1","0","-1","0","0","-1","1"},
{"Powdered Quartz","61","9 Vegetable, 1 Mineral","6","-3","0","-2","1","0","-1","1","1"},
{"Powdered Ruby","70","10 Mineral","6","3","-1","0","0","-2","0","2","0"},
{"Powdered Sapphire","27","7 Grain, 3 Worm","6","-3","-1","-2","0","0","0","1","1"},
{"Powdered Smoke Pearl","23","3 Grain, 7 Worm","6","0","-1","0","1","0","0","-1","-1"},
{"Powdered Sunstone","13","7 Wood, 3 Worm","6","3","0","-3","0","-1","-2","1","0"},
{"Powdered Topaz","10","10 Wood","6","0","0","1","0","0","-2","0","0"},
{"Powdered Turquoise","64","6 Vegetable, 4 Mineral","6","0","0","-2","1","-3","0","0","1"},
{"Powdered White Pearl","6","4 Rock, 6 Wood","6","0","1","-1","-1","0","0","-1","1"},
{"Pratyeka Tree","20","5 Grain, 5 Wood","6","-1","-3","0","-2","0","0","0","2"},
{"Ranyahn","68","8 Mineral, 2 Vegetable","6","-2","1","0","0","3","2","-1","-3"},
{"Razor Palm","34","9 Grain, 1 Mineral","6","3","-2","0","0","1","-1","-3","2"},
{"Red Maple","74","4 Fish, 6 Mineral","6","0","-2","0","-3","0","-1","1","0"},
{"Royal Palm","41","5 Grain, 4 Vegetable, 1 Worm","6","3","0","-1","1","0","-3","0","0"},
{"Salts Of Aluminum","19","9 Worm, 1 Wood","6","0","1","-2","0","2","0","0","-1"},
{"Salts Of Antimony","66","9 Mineral, 1 Grain","6","-1","0","0","0","2","0","-2","1"},
{"Salts Of Copper","8","2 Rock, 8 Wood","6","0","-1","0","2","0","0","3","-1"},
{"Salts Of Gold","30","10 Grain","6","-1","-3","0","-2","0","1","1","1"},
{"Salts Of Iron","52","8 Vegetable, 2 Worm","6","-1","0","0","1","-2","0","2","3"},
{"Salts Of Lead","40","5 Worm, 5 Vegetable","6","0","0","0","1","-2","0","0","1"},
{"Salts Of Lithium","82","10 Fish","6","0","0","1","0","0","-1","-3","0"},
{"Salts Of Magnesium","16","6 Worm, 4 Wood","6","1","3","0","0","2","0","-2","-1"},
{"Salts Of Platinum","10","10 Wood","6","0","0","-1","-2","0","2","-3","0"},
{"Salts Of Silver","21","9 Worm, 1 Grain","6","0","-3","-1","2","-2","0","1","0"},
{"Salts Of Strontium","34","9 Grain, 1 Mineral","6","3","-2","0","0","-1","-3","1","2"},
{"Salts Of Tin","21","9 Worm, 1 Grain","6","0","0","-2","-3","-1","2","1","0"},
{"Salts Of Titanium","57","9 Vegetable, 1 Grain","6","-1","0","0","-3","0","3","-2","0"},
{"Salts Of Tungsten","12","9 Wood, 1 Grain","6","0","-2","0","0","3","-1","1","0"},
{"Salts Of Zinc","35","7 Worm, 3 Mineral","6","0","0","-3","0","0","-2","0","1"},
{"Savaka","0","10 Rock","6","-1","0","0","0","2","0","-2","1"},
{"Spiked Fishtree","46","6 Grain, 4 Mineral","6","-3","-1","1","0","0","0","3","0"},
{"Spindle Tree","80","10 Fish","6","3","2","-3","0","1","0","-2","-1"},
{"Stout Palm","76","6 Fish, 4 Mineral","6","0","0","-2","1","-1","2","0","0"},
{"Tapacae Miralis","24","4 Grain, 6 Worm","6","1","0","-2","-1","-3","0","3","0"},
{"Tiny Oil Palm","13","7 Wood, 3 Worm","6","0","-2","3","-1","0","1","0","0"},
{"Towering Palm","90","10 Grey","3","-3","2","0","0","-1","-2","3","1"},
{"Trilobellia","57","9 Vegetable, 1 Grain","6","2","-2","0","0","-1","0","-3","1"},
{"Umbrella Palm","45","5 Grain, 5 Vegetable","6","-1","0","-3","-2","0","0","2","1"},
{"Windriver Palm","65","5 Vegetable, 5 Mineral","6","0","0","1","2","-2","0","-1","3"},
};
function color(s)
if herbs[s] then
return 0x80D080ff;
elseif resins[s] then
return 0xD0D080ff;
else
return 0x808080ff;
end
end
solve_result = {};
solve_tooltip = {};
solve_lists = {};
dp = {};
dp_count = 0;
function addResult(s, tip)
local index = #solve_result+1;
solve_result[index] = s;
solve_tooltip[index] = tip;
end
function key_from_vars(vars)
local r = 0;
local i;
for i=1,#vars do
r = r*100;
r = r + vars[i]+50;
end
return r;
end
-- value is a list of essence indices
function cache(left, index, key, value)
if not dp[left] then
dp[left] = {};
end
if not dp[left][index] then
dp[left][index] = {};
end
if not dp[left][index][key] then
dp[left][index][key] = {};
end
dp[left][index][key][#dp[left][index][key]+1] = value;
end
function iscached(left, index, key)
if not dp[left] then
return nil;
end
if not dp[left][index] then
return nil;
end
return dp[left][index][key];
end
-- returns a list of lists
function getcache(left, index, key)
if not dp[left] then
return nil;
end
if not dp[left][index] then
return nil;
end
if not dp[left][index][key] then
return nil;
end
if dp[left][index][key][1][1] == 0 then
return nil;
end
return dp[left][index][key];
end
function dodp(left, index, vars)
if (index > #chem_data) then
return nil;
end
if (left == 0) then
error 'assert';
end
local key=key_from_vars(vars);
if iscached(left, index, key) then
--lsPrintln("cached: " .. left .. "," .. index .. "," .. vars[1]);
return getcache(left, index, key);
end
--lsPrintln("uncach: " .. left .. "," .. index .. "," .. vars[1]);
dp_count = dp_count + 1;
if (dp_count % 5000) == 0 then
statusScreen("Solving... Searched " .. dp_count .. "...");
end
local i;
local j;
-- Try not using this index
local ret = dodp(left, index+1, vars);
if ret then
for i=1, #ret do
-- cache results of not using this one into this index
cache(left, index, key, ret[i]);
end
end
-- Try using this index
local newvars = {};
for i=1, compound_reqs[compound_type][2] do
newvars[i] = vars[i] + chem_data[index][4 + attrib_reqs[i][1]];
end
if (left == 1) then
-- check it
local good = true;
for i=1, compound_reqs[compound_type][2] do
local sign = attrib_reqs[i][2];
if newvars[i]*sign < compound_reqs[compound_type][3] then
good = nil;
end
end
if good then
cache(left, index, key, {index});
end
else
-- Check if possible
local possible=true;
for i=1, compound_reqs[compound_type][2] do
local sign = attrib_reqs[i][2];
if vars[i]*sign + left*3 < compound_reqs[compound_type][3] then
possible = nil;
end
end
if not possible then
-- not searching below
else
local ret = dodp(left-1, index+1, newvars);
if ret then
for i=1, #ret do
local tail = ret[i];
local newlist = {index};
for j=1, #tail do
newlist[j+1] = tail[j];
end
cache(left, index, key, newlist);
end
end
end
end
if not iscached(left, index, key) then
cache(left, index, key, {0});
if not iscached(left, index, key) then
error 'assert 2';
end
end
return getcache(left, index, key);
end
function solve()
local i, j;
solve_result = {};
solve_tooltip = {};
solve_lists = {};
dp = {};
dp_count = 0;
local vars = {};
for i=1, compound_reqs[compound_type][2] do
vars[#vars+1] = 0;
end
local ret = dodp(max_essences, 1, vars);
if ret then
solve_lists = ret;
addResult("Searched: " .. dp_count .. " Found: " .. #ret, nil);
local s = "";
for i=1, compound_reqs[compound_type][2] do
s = s .. attribs[attrib_reqs[i][1]] .. " " .. mods[compound_reqs[compound_type][3]][attrib_reqs[i][2]];
if not (i == compound_reqs[compound_type][2]) then
s = s .. " || ";
end
end
if false then
local head = s;
for i=1, #ret do
local s = "";
local list = ret[i];
for j=1, #list do
local index = list[j];
s = s .. chem_data[index][1];
if not (j == #list) then
s = s .. " || ";
end
end
lsPrintln("| " .. head .. " || " .. s .. " |");
if false then
local combined = s;
local tip = "";
for j=1, #list do
local index = list[j];
s = " " .. chem_data[index][1] .. " (" .. chem_data[index][3] .. ")";
tip = tip .. s;
if not (j == #list) then
tip = tip .. "\n";
end
lsPrintln(s);
end
--addResult(combined, tip);
end
end
end
else
addResult("Searched: " .. dp_count, nil);
addResult("No solution was found", nil);
end
end
function doit()
local selected = {};
local chem_cache = nil;
local scale = 25/16.0;
z = 1;
tip = "";
while 1 do
lsSetCamera(0, 0, lsScreenX*scale, lsScreenY*scale);
local maxX = lsScreenX*scale;
local maxY = lsScreenY*scale;
for i=1,#compound_reqs do
x = (i-1)*60;
if compound_type == i then
lsPrint(x, 5, z, 1, 1, 0xFFFFFFff, compound_reqs[i][1]);
elseif lsButtonText(x, 5, z, 60, 0xFFFFFFff, compound_reqs[i][1]) then
compound_type = i
end
end
x=10;
y=32;
for i=1, compound_reqs[compound_type][2] do
attrib_reqs[i][1] = lsDropdown("ChemDropDown" .. i, x, y, z, 50,
attrib_reqs[i][1], attribs);
if lsButtonText(x+50, y, z, 100, 0xFFFFFFff, mods[compound_reqs[compound_type][3]][attrib_reqs[i][2]]) then
attrib_reqs[i][2] = -attrib_reqs[i][2];
end
y=y+26;
end
y = y+5;
if lsButtonText(0, y, z, 100, 0xFFFFFFff, "Solve") then
statusScreen("Solving... (this may take a while)");
statusScreen("Solving... (this may take a while)");
solve();
statusScreen("Done solving, generating ingredient browser...");
statusScreen("Done solving, generating ingredient browser...");
selected = {};
chem_cache = nil;
end
y=y+30;
if false then
if lsButtonText(0, y, z, 400, 0xFFFFFFff, "Generate all to console") then
statusScreen("Working... (this will take ages");
for a11=1, 8 do
attrib_reqs[1][1]=a11;
for a12=-1,1,2 do
attrib_reqs[1][2]=a12;
for a21=attrib_reqs[1][1]+1, 8 do
attrib_reqs[2][1]=a21;
for a22=-1,1,2 do
attrib_reqs[2][2]=a22;
local s = "";
for i=1, compound_reqs[compound_type][2] do
s = s .. attribs[attrib_reqs[i][1]] .. " " .. mods[compound_reqs[compound_type][3]][attrib_reqs[i][2]];
if not (i == compound_reqs[compound_type][2]) then
s = s .. ", ";
end
end
statusScreen("Solving " .. s);
solve();
end
end
end
end
end
end
y=y+45;
local max_solutions = #solve_result;
if max_solutions > 30 then
max_solutions = 30;
end
for i=1, max_solutions do
if solve_tooltip[i] then
if lsButtonText(10, y, z, maxX - 12, 0xFFFFFFff, solve_result[i]) then
tip = solve_tooltip[i];
end
else
lsPrint(10, y, z, 1, 1, 0xFFFFFFff, solve_result[i]);
end
y=y+26;
end
if tip then
lsPrintWrapped(150, 32, z+1, maxX - 150, 0.7, 0.7, 0xFFFFFFff, tip);
end
-- heirarchical display
for i=#selected, 1, -1 do
if lsButtonText(165, 32+(i-1)*26, z, maxX - 165, color(chem_data[selected[i]][1]), chem_data[selected[i]][1] .. " (" .. chem_data[selected[i]][3] .. ")") then
-- remove it
for j=i, #selected-1 do
selected[j] = selected[j+1];
end
selected[#selected] = nil;
chem_cache = nil;
end
end
local build_cache = false;
if not chem_cache then
build_cache = true;
chem_cache = {};
end
lsScrollAreaBegin("ChemDataScrollArea", 5, y, z-1, 318, maxY - y);
y = 0;
-- reduce recipes to those that are valid
local ingredient_recipe_count = {};
if build_cache then
for j=1, #solve_lists do
-- check if recipe matches current list
local this_valid = true;
for ii=1, #selected do
local found=false;
for k=1, max_essences do
if selected[ii] == solve_lists[j][k] then
found = true;
end
end
if not found then
this_valid = false;
end
end
if this_valid then
for k=1, max_essences do
local idx = solve_lists[j][k];
if ingredient_recipe_count[idx] then
ingredient_recipe_count[idx] = ingredient_recipe_count[idx] + 1;
else
ingredient_recipe_count[idx] = 1;
end
end
end
end
for j=1, #selected do
ingredient_recipe_count[selected[j]] = nil;
end
end
clear_cache = false;
for i=1, #chem_data do
if build_cache then
local skip=false;
recipe_count = ingredient_recipe_count[i];
if (#solve_lists > 0) and (recipe_count == #solve_lists) then
selected[#selected+1] = i;
clear_cache = true;
recipe_count = nil
end
chem_cache[i] = recipe_count;
else
recipe_count = chem_cache[i];
end
if recipe_count then
if lsButtonText(0, y, z, 300, color(chem_data[i][1]), chem_data[i][1] .. " (" .. recipe_count .. ")") then
selected[#selected+1] = i;
clear_cache = true;
end
y = y + 26;
end
end
if clear_cache then
chem_cache = nil;
end
lsScrollAreaEnd(y);
if (maxX < 465) or (maxY < 400) then
lsPrint(10, maxY-30, z+3, 0.7, 0.7, 0x801010ff, "You may need to resize this window to see everything.");
end
if lsButtonText(maxX - 72, maxY - 26*3, z, 70, 0xFFFFFFff, "Font +") then
scale = scale * 4/5;
end
if lsButtonText(maxX - 72, maxY - 26*2, z, 70, 0xFFFFFFff, "Font -") then
scale = scale * 5/4;
end
if lsButtonText(maxX - 142, maxY - 26, z, 140, 0xFFFFFFff, "Menu (slow)") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(25);
end
end