import <zlib.ash>;

string readablenum(int source) {
   buffer cr;
   cr.append(to_string(source));
   if (cr.length() > 3) for i from 1 to floor((cr.length()-1) / 3.0)
      cr.insert(cr.length()-(i*3)-(i-1),",");
   return to_string(cr);
}

record entry {
  familiar thing;
  int price;
  int amount;
};
entry[int] all;
record famrec
{
	string name;
	string type;
	int larva;
};
famrec[int] fams;
file_to_map( "familiars.txt" , fams );
int get_price(item it) {
   if (historical_age(it) > 6 || historical_price(it) < 1 || historical_price(it) > 5000000)
      return max(0,mall_price(it));
    else return max(0,historical_price(it));
   return 0;
}

//update prices
cli_execute("update prices http://zachbardon.com/mafiatools/updateprices.php?action=getmap");


//thanks to Bale for noticing that nontradeable autosellables were being ignored...
int total;
foreach fam in $familiars[]
{
	if( have_familiar( fam ) )
	{
		all[to_int( fam )].thing = fam;
		all[to_int( fam )].price = get_price( fams[fam.to_int()].larva.to_item() );
	}
}
foreach it in all
{
	total += all[it].price;
}
sort all by -value.price;

writeln("<center><b><font size=5>Networth.ash Relay Version</font></b></center><br>" );

writeln("<center><table>");
writeln("<tr><td align=\"right\"><b>Total:</b><td align=\"right\"><b>" + readablenum(total) + "</b></td></tr>");
writeln("</table></center><br>");

writeln("<center><table border=\"1\" cellpadding=\"4\">");
writeln("<tr><th>Item Name</th><th>Unit Price</th></tr>");

foreach num,rec in all {
   write("<tr>");
   write("<td>" + rec.thing + "</td>");
   write("<td align=\"right\">" + readablenum(rec.price) + "</td>");
   writeln("</tr>");
}

writeln("</table></center>");