MrEdge73's Item Handling Script Suite!

Closeting Gate 1 stuff...
Using 4 pile of candy...
You acquire marzipan skull (3)
You acquire Angry Farmer candy (6)
You acquire Tasty Fun Good rice candy (2)
You acquire Yummy Tummy bean (4)
Finished using 4 pile of candy.
Closeting Gate 2 stuff...

You have a 11.111112% chance of passing the Gate One Test with the items in your closet.
To have a 100% of passing Gate One you need one of each of the following items: 
Angry Farmer candy, Black No. 2, Mick's IcyVapoHotness Rub, adder bladder, gremlin juice, pygmy pygment, super-spiky hair gel, thin black candle
You currently have these items in your closet: 
wussiness potion

import <MrEdge73's Support Script -- Item Lists (Beta).ash>
// '

// meatpermp logic stolen from SmartStasis.ash, will use the UniversalRecovery value if set.
float meatpermp;
if (get_property("_meatpermp") != "") 
    meatpermp = to_float(get_property("_meatpermp"));
else {
    meatpermp = 8;  // seltzer base calc
    if (my_primestat() == $stat[mysticality] || (my_class() == $class[accordion thief] && my_level() > 8))
	meatpermp = 100.0 / (1.5 * to_float(my_level()) + 5); // mmj calc if available
 }


// starfish restores int((X+3)/2) to (X+3), where X is the weight of the familiar.
// slimeling has a greater range, but maybe the same mean?
float slimeling_mp(item ItemToFeed) 
{

    // stuff with no power is not feedable. this probably ought to check for other unfeedable items.
    if (get_power(ItemToFeed) >= 1)
	// starfish mean is .75(wt + 3)
	// number of charges is power/10 plus-or-minus 1, which is an average of power/10
	// (except for items with power < 10, which give either 0 or 1 charges, or a mean of .5
	return (.75 * (familiar_weight( $familiar[Slimeling]) + 3) *  max(get_power(ItemToFeed) / 10, .5));

return 0;

}

void main() {

    // let's check out the Hardcore junk list

    LoadHardCoreList();
    

    print("With a " + to_string(familiar_weight( $familiar[Slimeling])) + " lb slimeling, and MP worth " + to_string(meatpermp) + "...");
    print("A slimeling charge is worth " + to_string( .75 * (familiar_weight( $familiar[Slimeling]) + 3)) + " MP");

    foreach i in Auto_Sell
    {
	int price= autosell_price (i);
	if ((price / meatpermp) <= slimeling_mp(i))
	    print(to_string(i) + " autosells for " + to_string(price) + " but is worth " + to_string(slimeling_mp(i)) + " MP or " + to_string(slimeling_mp(i) * meatpermp) + " meat.");
	
	
    }
}