FindInvestments.ash

import DicsLibrary.ash

float m = 0.5;
int total,amount;
item [int] list,list2;
int [item] exclude;
// IotMs tradeable in their usable form.
	exclude[$item[Little Geneticist DNA-Splicing Lab]]=1;
	exclude[$item[portable Mayo Clinic]]=1;
	exclude[$item[Platinum Yendorian Express Card]]=1;
	exclude[$item[spooky putty sheet]]=1;
	exclude[$item[BittyCar MeatCar]]=1;
	exclude[$item[Chroner cross]]=1;
	exclude[$item[time shuriken]]=2;
	exclude[$item[antique tacklebox]]=1;
	exclude[$item[little red book]]=1;
// Familiar hatchlings I don't have in my terrarium
	exclude[$item[bad penguin egg]]=1;
for i from 1800 to 1899 // dusty animal bones
	exclude[to_item(i)] = 1;

foreach it in $items[] {
	if ( it.to_slot() == $slot[familiar] )
		exclude[it] = 2;
	else if ( UsableEquipAmount(it) > 0 )
		exclude[it] = UsableEquipAmount(it);
	if (total_amount(it)-max(UsableEquipAmount(it),0)>0) {
		amount = total_amount(it)-exclude[it];
		if ( itemValue(it)*amount >m*mall_price($item[Mr. Accessory]) && mall_price(it)*amount>m*mall_price($item[Mr. Accessory]) && itemValue(it)*amount>m*mall_price($item[Mr. Accessory]) )
			list[list.count()]=it;
	}
}

foreach it in exclude
	if (min(exclude[it],total_amount(it))>0) {
		amount = min(exclude[it],total_amount(it));
		if ( itemValue(it)*amount>m*mall_price($item[Mr. Accessory]) && mall_price(it)*amount>m*mall_price($item[Mr. Accessory]) && itemValue(it)*amount>m*mall_price($item[Mr. Accessory]) )
			list2[list2.count()]=it;
	}

sort list by -(total_amount(value)-exclude[value])*itemValue(value);
sort list2 by -min(exclude[value],total_amount(value))*itemValue(value);

foreach it in list {
	total=total+itemValue(list[it])*(total_amount(list[it])-exclude[list[it]]);
	print_html((total_amount(list[it])-exclude[list[it]])* itemValue(list[it])+" : "+(total_amount(list[it])-exclude[list[it]])+" "+list[it]+" for "+itemValue(list[it])+" each.");
}
print_html("Total Investments: "+total); print_html(".");

total=0;
foreach it in list2 {
	total=total+itemValue(list2[it])*min(exclude[list2[it]],total_amount(list2[it]));
	print_html(itemValue(list2[it])*min(exclude[list2[it]],total_amount(list2[it]))+" : "+min(exclude[list2[it]],total_amount(list2[it]))+" "+list2[it]+" for "+itemValue(list2[it])+" each.");
}
print_html("Total Excluded: "+total);