Initial archaeologist's spade support

RELEASE/scripts/autoscend.ash

@@ -1,4 +1,4 @@
-since r28969; // add council text for Adventurer Meats World
+since r28969;	// feat: archaeologist's spade
 
 /***
 	autoscend_header.ash must be first import

RELEASE/scripts/autoscend/auto_bedtime.ash

@@ -750,6 +750,8 @@ boolean doBedtime()
 	//We are committing to end of day now...
 	getSpaceJelly();
 	while(acquireHermitItem($item[11-leaf Clover]));
+
+	auto_burnRemainingSpadeDigs(); // use archaeologist spade
 
 	januaryToteAcquire($item[Makeshift Garbage Shirt]);		//doubles stat gains in the LOV tunnel. also keep leftover charges for tomorrow.
 	loveTunnelAcquire(true, $stat[none], true, 3, true, 1);

RELEASE/scripts/autoscend/auto_post_adv.ash

@@ -145,6 +145,33 @@ boolean auto_post_adventure()
 		}
 	}
 
+	//assuming we're on the orchard sidequest if we're adventuring there
+	if(auto_haveArchaeologistSpade() && auto_spadeDigsRemaining() > 0) 
+	{
+		//the scent glands are the only droppable items in their respective areas, so it's guaranteed from spade
+		if(my_location() == $location[The Hatching Chamber] && item_amount($item[Filthworm Hatchling Scent Gland]) == 0) 
+		{
+			auto_spadeDigItem();
+		}
+		else if(my_location() == $location[The Feeding Chamber] && item_amount($item[Filthworm Drone Scent Gland]) == 0)
+		{
+			auto_spadeDigItem();
+		}
+		else if(my_location() == $location[The Royal Guard Chamber] && item_amount($item[Filthworm Royal Guard Scent Gland]) == 0)
+		{
+			auto_spadeDigItem();
+		}
+		else if(my_location() == $location[Sonofa Beach] && item_amount($item[barrel of gunpowder]) < 5) 
+		{
+			//dig until we should have 5 barrels or we're out of digs
+			int barrelCount = item_amount($item[barrel of gunpowder]);
+			int digsRemaining = auto_spadeDigsRemaining();
+			for x from (barrelCount + 1) to min(5, digsRemaining) by 1 {
+				auto_spadeDigItem();
+			}
+		}
+	}
+
 	if (my_location() == $location[The Old Landfill] && item_amount($item[funky junk key]) > 0) {
 		// got a key drop, reset the tracking property.
 		set_property("auto_junkspritesencountered", 0);

RELEASE/scripts/autoscend/autoscend_header.ash

@@ -704,6 +704,12 @@ int auto_heartstoneKillRemaining();
 int auto_heartstoneLuckRemaining();
 int auto_heartstonePalsRemaining();
 int auto_heartstoneStunRemaining();
+boolean auto_haveArchaeologistSpade();
+int auto_spadeDigsRemaining();
+boolean auto_spadeDigItem();
+boolean auto_spadeDigAncient();
+boolean auto_spadeDigSkeleton();
+boolean auto_burnRemainingSpadeDigs();
 
 
 ########################################################################################################

RELEASE/scripts/autoscend/iotms/mr2026.ash

@@ -132,3 +132,103 @@ int auto_heartstoneStunRemaining()
 
 	return 5-to_int(get_property("_heartstoneStunUsed"));
 }
+
+boolean auto_haveArchaeologistSpade()
+{
+	if(auto_is_valid($item[Archaeologist's Spade]) && available_amount($item[Archaeologist's Spade]) > 0 )
+	{
+		return true;
+	}
+	return false;
+}
+
+int auto_spadeDigsRemaining()
+{
+	if (!auto_haveArchaeologistSpade()) { return 0;}
+
+	return 11-to_int(get_property("_archSpadeDigs"));
+}
+
+boolean auto_spadeDigItem()
+{
+	item SPADE = $item[Archaeologist's Spade];
+	int choice_adv_num = 1596;
+	int choice_num = 1;
+	string choice_url = "choice.php?pwd&whichchoice=" + choice_adv_num + "&option=" + choice_num;
+	string use_url = "inv_use.php?pwd&which=3&whichitem="+SPADE.id;
+
+	int n_digs = auto_spadeDigsRemaining();
+	if (n_digs > 0)
+	{
+		visit_url(use_url);
+		buffer result = visit_url(choice_url);
+		int[item] drops = extract_items(result);
+		item my_drop = $item[none];
+		int total_items_dropped = 0;
+		foreach it,n in drops
+		{
+			my_drop = it;
+			total_items_dropped += n;
+		}
+		if (total_items_dropped!=1)
+		{
+			auto_log_error("Seem to have got "+total_items_dropped+" from spade dig nearby, expecting 1.");
+			handleTracker(SPADE, my_location(), "Dig up something nearby reported "+total_items_dropped+" drops", "auto_otherstuff");
+			return total_items_dropped != 0;
+		}
+		if (n_digs > auto_spadeDigsRemaining()) // check we actually have fewer digs left now before returning
+		{
+			handleTracker(SPADE, "Dig up something nearby - "+my_location(), my_drop, "auto_otherstuff");
+			return true;
+		}
+		handleTracker(SPADE, "FAILED: Dig up something nearby", "auto_otherstuff");
+	}
+	return false;
+}
+
+boolean auto_spadeDigAncient()
+{
+	item SPADE = $item[Archaeologist's Spade];
+	int choice_adv_num = 1596;
+	int choice_num = 2;
+	string choice_url = "choice.php?pwd&whichchoice=" + choice_adv_num + "&option=" + choice_num;
+	string use_url = "inv_use.php?pwd&which=3&whichitem="+SPADE.id;
+	int n_digs = auto_spadeDigsRemaining();
+	if (n_digs > 0)
+	{
+		visit_url(use_url);
+		visit_url(choice_url);
+		if (n_digs > auto_spadeDigsRemaining()) // check we actually have fewer digs left now before returning
+		{
+			handleTracker(SPADE, "Dig up something ancient", "auto_otherstuff");
+			return true;
+		}
+	}
+	return false;
+}
+
+boolean auto_spadeDigSkeleton()
+{
+	item SPADE = $item[Archaeologist's Spade];
+	int choice_adv_num = 1596;
+	int choice_num = 3;
+	string choice_url = "choice.php?pwd&whichchoice=" + choice_adv_num + "&option=" + choice_num;
+	string use_url = "inv_use.php?pwd&which=3&whichitem="+SPADE.id;
+
+	int n_digs = auto_spadeDigsRemaining();
+	if (n_digs > 0)
+	{
+
+	}
+	return false;
+}
+
+boolean auto_burnRemainingSpadeDigs()
+{
+	int n_digs = auto_spadeDigsRemaining();
+	for (int ii = 0 ; ii < n_digs ; ii++)
+	{
+		auto_spadeDigAncient();
+	}
+	return auto_spadeDigsRemaining()==0;
+}

RELEASE/scripts/autoscend/quests/level_12.ash

@@ -902,6 +902,10 @@ boolean L12_filthworms()
 	{
 		auto_log_info("We're going to yellow ray the stench glands.");
 	}
+	else if(auto_haveArchaeologistSpade() && auto_spadeDigsRemaining() >= 3) 
+	{
+		auto_log_info("Will dig up stench glands with Archaeologist's Spade if we don't get it in combat");
+	}
 	else if(item_drop_modifier() < 900.0)	//could not guarentee stealing. check if it should be delayed otherwise buff item drops instead
 	{
 		if(have_effect($effect[Everything Looks Yellow]) > 0 && have_effect($effect[Everything Looks Yellow]) <= 100)