Crimbo 15

# based on http://pastebin.com/raw/kz1JnSdK by PeKaJe
# name this c15totals.ash, put in the relay folder

boolean [location] locationban = $locations[The Mines, The Jungle, The Ice Caves, The Temple Ruins, Hell, The Snake Pit, The Spider Hole, The Ancient Burial Ground, The Beehive, The Crashed U. F. O., The City of Goooold, LOLmec's Lair, Yomama's Throne,
Dreadsylvanian Woods,Dreadsylvanian Village,Dreadsylvanian Castle,
Trick-or-Treating,Spectral Pickle Factory,Lollipop Forest,Fudge Mountain,The Crimbonium Mining Camp,WarBear Fortress (First Level),
WarBear Fortress (Second Level),WarBear Fortress (Third Level),Crimbo Town Toy Factory (2012),Elf Alley,CRIMBCO cubicles,CRIMBCO WC,
Crimbo Town Toy Factory (2009),The Don's Crimbo Compound,Atomic Crimbo Toy Factory,Old Crimbo Town Toy Factory,
Sinister Dodecahedron,Crimbo Town Toy Factory (2007),Simple Tool-Making Cave,Spooky Fright Factory,Crimborg Collective Factory,
Crimbo Town Toy Factory (2005),Market Square\, 28 Days Later,The Mall of Loathing\, 28 Days Later,
Wrong Side of the Tracks\, 28 Days Later,The Icy Peak in The Recent Past,Shivering Timbers,A Skeleton Invasion!,
The Cannon Museum,Grim Grimacite Site,A Pile of Old Servers,The Haunted Sorority House,
A Stinking Abyssal Portal,A Scorching Abyssal Portal,A Terrifying Abyssal Portal,A Freezing Abyssal Portal,
An Unsettling Abyssal Portal,A Yawning Abyssal Portal,The Space Odyssey Discotheque,The Spirit World,
Some Scattered Smoking Debris,A Crater Full of Space Beasts,The Cave Before Time,An Illicit Bohemian Party,
Moonshiners' Woods,The Roman Forum,The Post-Mall,The Rowdy Saloon,The Spooky Old Abandoned Mine,Globe Theatre Main Stage
];
boolean ignoresea = true;

boolean [monster] monsterban = $monsters[angry piñata,slime1,slime2,slime3,slime4,slime5];

void main()
{
	boolean [string] done_green, done_red;
	foreach mon in $monsters[]
	{
		done_green[mon.to_string()] = false;
		done_red[mon.to_string()] = false;
	}
	foreach mon in monsterban
	{
		done_green[mon.to_string()] = true;
		done_red[mon.to_string()] = true;
	}
	string page = visit_url();
	string [int, int] totals = group_string(page, "<tr><td style=.border-bottom: 1px solid black.><b>(.*?)</b></td><td style=.border-bottom: 1px solid black. align=.center.>(X|&nbsp;)</td><td style=.border-bottom: 1px solid black. align=.center.>(X|&nbsp;)</td></tr>");
	foreach i in totals
	{
		if( totals[i][2] == "X" )
			done_green[entity_encode(totals[i][1])] = true;
		if( totals[i][3] == "X" )
			done_red[entity_encode(totals[i][1])] = true;
	}
	matcher m;
	m = create_matcher("<tr><td style=.border-bottom: 1px solid black.><b>(.*?)</b></td><td style=.border-bottom: 1px solid black. align=.center.>(X|&nbsp;)</td><td style=.border-bottom: 1px solid black. align=.center.>(X|&nbsp;)</td></tr>", page);
	page = replace_all(m, "");
	string newtable;
	foreach loc in $locations[]
	{
		if ( ignoresea && loc.environment == "underwater" ) continue;
		if( count( get_location_monsters( loc ) ) > 0 && !( locationban contains loc ) )
		{
			boolean skip = true;
			foreach mon in get_location_monsters( loc )
			{
				int rate = appearance_rates( loc )[mon];
				if ( rate == -1 || rate == 0 ) continue;
				if ( !done_green[mon.to_string()] || !done_red[mon.to_string()] ) skip = false;
			}
			if ( skip ) continue;
			newtable += "<tr><td colspan=\"3\" style=\"border-bottom: 1px solid black\" align=\"center\"><b>" + loc.to_string() + "</b></td></tr>";
			foreach mon in get_location_monsters( loc )
			{
				int rate = appearance_rates( loc )[mon];
				if ( rate == -1 || rate == 0 ) continue;
				newtable += "<tr><td style=\"border-bottom: 1px solid black; border-left: 1px solid black\"><b>" + mon.to_string() + "</b></td><td style=\"border-bottom: 1px solid black; border-right: 1px solid black; border-left: 1px solid black\" align=\"center\">" + done_green[mon.to_string()] + "</td><td style=\"border-bottom: 1px solid black; border-right: 1px solid black\" align=\"center\">" + done_red[mon.to_string()] + "</td></tr>";
			}
		}
	}
	newtable = replace_string(newtable, ">false<", ">&nbsp;<");
	newtable = replace_string(newtable, ">true<", ">X<");
	page = replace_string(page, "<tr><td><b>Total", newtable + "<tr><td><b>Total");
	write(page);
}