Eagle scepter

BUILD/phylums/banish.dat

@@ -0,0 +1,12 @@
+dude	loc:The Black Forest
+dude	loc:Twin Peak
+dude	loc:The Red Zeppelin;sniffed:Red Butler;item:Glark Cable>2
+dude	loc:Whitey's Grove;quest:questL11Palindome<=3
+beast	loc:The Hidden Park
+beast	loc:Inside the Palindome;quest:questL11Palindome<=3
+beast	loc:The Penultimate Fantasy Airship
+undead	loc:The Haunted Library
+undead	loc:The Haunted Wine Cellar
+undead	loc:The Haunted Boiler Room
+undead	loc:The Middle Chamber
+construct	loc:Noob Cave

BUILD/phylums/header.txt

@@ -0,0 +1 @@
+# See auto_check_conditions for conditional options

RELEASE/data/autoscend_phylums.txt

@@ -0,0 +1,17 @@
+# THIS FILE IS GENERATED BY BUILD/assemble.sh
+# DO NOT EDIT THIS FILE DIRECTLY. EDIT THE .DAT FILES IN THE /BUILD/ FOLDER THEN RUN assemble.sh
+
+# See auto_check_conditions for conditional options
+banish	0	dude	loc:The Black Forest
+banish	1	dude	loc:Twin Peak
+banish	2	dude	loc:The Red Zeppelin;sniffed:Red Butler;item:Glark Cable>2
+banish	3	dude	loc:Whitey's Grove;quest:questL11Palindome<=3
+banish	4	beast	loc:The Hidden Park
+banish	5	beast	loc:Inside the Palindome;quest:questL11Palindome<=3
+banish	6	beast	loc:The Penultimate Fantasy Airship
+banish	7	undead	loc:The Haunted Library
+banish	8	undead	loc:The Haunted Wine Cellar
+banish	9	undead	loc:The Haunted Boiler Room
+banish	10	undead	loc:The Middle Chamber
+banish	11	construct	loc:Noob Cave
+

RELEASE/data/autoscend_settings.txt

@@ -69,3 +69,4 @@ post	6	auto_wandOfNagamar	boolean	Do we need to get a Wand of Nagamar in this as
 pre	0	auto_getSteelOrgan_initialize	boolean	When we initialize an ascension this will be copied to auto_getSteelOrgan
 
 sharing	0	auto_disableExcavator	boolean	When set to true will disable automatically sending spading data via the Extractor script
+

RELEASE/scripts/autoscend.ash

@@ -1398,7 +1398,7 @@ boolean adventureFailureHandler()
 		}
 	}
 
-	if(last_monster() == $monster[Crate] && (in_wereprof() && !($location[Noob Cave].turns_spent < 8))) //want 7 turns of Noob Cave in Wereprof for Smashed Scientific Equipment
+	if(last_monster() == $monster[Crate] && !(get_property("screechDelay").to_boolean()) && (in_wereprof() && !($location[Noob Cave].turns_spent < 8))) //want 7 turns of Noob Cave in Wereprof for Smashed Scientific Equipment
 	{
 		if(get_property("auto_newbieOverride").to_boolean())
 		{

RELEASE/scripts/autoscend/auto_bedtime.ash

@@ -725,6 +725,7 @@ boolean doBedtime()
 	}
 
 	//We are committing to end of day now...
+	auto_scepterRollover(); //Use the rest of the August Scepter's charges
 	getSpaceJelly();
 	while(acquireHermitItem($item[11-leaf Clover]));
 

RELEASE/scripts/autoscend/auto_familiar.ash

@@ -419,6 +419,8 @@ boolean autoChooseFamiliar(location place)
 			}
 		}
 	}
+
+	famChoice = auto_forceEagle(); // force Patriotic Eagle if we have a >0 combats until we can screech again
 
 	// Gremlins have special familiar handling.
 	if ($locations[Next to that Barrel with Something Burning in it, Out By that Rusted-Out Car, Over Where the Old Tires Are, Near an Abandoned Refrigerator] contains place) {
@@ -703,7 +705,7 @@ void preAdvUpdateFamiliar(location place)
 	{
 		handleFamiliar(get_property("auto_100familiar").to_familiar());			//do not break 100 familiar runs
 	}
-	
+
 	//familiar requirement to adventure in a zone, override everything else.
 	if(place == $location[The Deep Machine Tunnels])
 	{

RELEASE/scripts/autoscend/auto_powerlevel.ash

@@ -52,6 +52,26 @@ boolean LX_attemptPowerLevel()
 		set_property("auto_powerLevelAdvCount", 0);
 		return true;		//restart the main loop to give those quests a chance to run now that the softblock is released.
 	}
+
+	if(get_property("screechDelay").to_boolean())
+	{
+		auto_log_warning("Patriotic Eagle's screech banished something we need and we can't adventure anywhere else");
+		if(get_property("screechCombats").to_int() > 0)
+		{
+			if(LX_getDigitalKey() || LX_getStarKey())
+			{
+				//If we still need the Digital Key or Star Key burn turns to get them
+				return true;
+			}
+			else
+			{
+				//Nothing else to do but go here
+				autoAdv($location[Noob Cave]);
+			}
+		}
+		set_property("screechDelay", false);
+		return true;
+	}
 
 	if(in_robot())
 	{

RELEASE/scripts/autoscend/auto_pre_adv.ash

@@ -353,10 +353,10 @@ boolean auto_pre_adventure()
 	}
 
 	// this calls the appropriate provider for +combat or -combat depending on the zone we are about to adventure in..
-	boolean burningDelay = ((auto_voteMonster(true) || isOverdueDigitize() || auto_sausageGoblin() || auto_backupTarget() || auto_voidMonster()) && place == solveDelayZone());
-	boolean gettingLucky = (have_effect($effect[Lucky!]) > 0 && zone_hasLuckyAdventure(place));
+	boolean burningDelay = auto_burningDelay();
+	boolean gettingLucky = auto_gettingLucky();
 	boolean forcedNonCombat = auto_haveQueuedForcedNonCombat();
-	boolean zoneQueueIgnored = (burningDelay || gettingLucky || forcedNonCombat);
+	boolean zoneQueueIgnored = auto_queueIgnore();
 	generic_t combatModifier = zone_combatMod(place);
 	if (combatModifier._boolean && !zoneQueueIgnored) {
 		acquireCombatMods(combatModifier._int, true);
@@ -408,8 +408,14 @@ boolean auto_pre_adventure()
 				adjustForYellowRayIfPossible(mon);
 				zoneHasWantedMonsters = true;
 			}
+			if(auto_wantToBanish(monster_phylum(mon), place))
+			{
+				// attempt to prepare for banishing, but if we can not try free running
+				boolean canBanish = adjustForBanishIfPossible(monster_phylum(mon), place);
+				zoneHasUnwantedMonsters = true;
+			}
 			boolean wantToBanish  = auto_wantToBanish(mon, place);
-			boolean wantToFreeRun = auto_wantToFreeRun(mon, place);
+			boolean wantToFreeRun = auto_wantToFreeRun(mon, place) || auto_forceFreeRun(false);
 			if(wantToBanish || wantToFreeRun)
 			{
 				// attempt to prepare for banishing, but if we can not try free running

RELEASE/scripts/autoscend/auto_util.ash

@@ -500,6 +500,31 @@ boolean isBanished(monster enemy)
 	return (banishedMonsters() contains enemy);
 }
 
+int[phylum] banishedPhyla()
+{
+	int[phylum] retval;
+	string[int] data = split_string(get_property("banishedPhyla"), ":");
+
+	if(get_property("banishedPhyla") == "")
+	{
+		return retval;
+	}
+
+	int i=0;
+	while(i<count(data))
+	{
+		retval[to_phylum(data[i])] = to_int(data[i+2]);
+		i += 3;
+	}
+
+	return retval;
+}
+
+boolean isBanishedPhyla(phylum monsterPhylum)
+{
+	return (banishedPhyla() contains monsterPhylum);
+}
+
 int autoCraft(string mode, int count, item item1, item item2)
 {
 	if((mode == "combine") && !knoll_available())
@@ -693,13 +718,31 @@ boolean auto_wantToBanish(monster enemy, location loc)
 	return monstersToBanish[enemy];
 }
 
+boolean auto_wantToBanish(phylum enemyphylum, location loc)
+{
+	location locCache = my_location();
+	set_location(loc);
+	boolean [phylum] phylumToBanish = auto_getPhylum("banish");
+	set_location(locCache);
+	return phylumToBanish[enemyphylum];
+}
+
 boolean canBanish(monster enemy, location loc)
 {
 	return banisherCombatString(enemy, loc) != "";
 }
 
+boolean canBanish(phylum enemyphylum, location loc)
+{
+	return banisherCombatString(enemyphylum, loc) != "";
+}
+
 boolean adjustForBanish(string combat_string)
 {
+	if(combat_string == "skill" + $skill[%fn\, Release the Patriotic Screech!])
+	{
+		return use_familiar($familiar[Patriotic Eagle]);
+	}
 	if(combat_string == "skill " + $skill[Throw Latte on Opponent])
 	{
 		return autoEquip($item[latte lovers member\'s mug]);
@@ -775,6 +818,32 @@ boolean adjustForBanishIfPossible(monster enemy, location loc)
 	return false;
 }
 
+boolean adjustForBanishIfPossible(phylum enemyphylum, location loc)
+{
+	if(canBanish(enemyphylum, loc))
+	{
+		string banish_string = banisherCombatString(enemyphylum, loc);
+		auto_log_info("Adjusting to have phylum banisher available for " + enemyphylum + ": " + banish_string, "blue");
+		return adjustForBanish(banish_string);
+	}
+	return false;
+}
+
+boolean auto_forceFreeRun(boolean combat)
+{
+	if(get_property("auto_forceFreeRun").to_boolean() && combat)
+	{
+		set_property("auto_forceFreeRun", false); //want to reset as soon as we see it as true while in combat
+		return true;
+	}
+	if(get_property("auto_forceFreeRun").to_boolean())
+	{
+		//don't need to reset it because we haven't taken a turn to freeRun yet
+		return true;
+	}
+	return false;
+}
+
 boolean auto_wantToFreeRun(monster enemy, location loc)
 {
 	if(appearance_rates(loc)[enemy] <= 0)
@@ -1072,6 +1141,10 @@ boolean adjustForSniffingIfPossible(monster target)
 	{
 		return autoEquip($item[cursed monkey\'s paw]);
 	}
+	if(sniffer == $skill[%fn, fire a Red, White and Blue Blast])
+	{
+		handleFamiliar($familiar[Patriotic Eagle]);
+	}
 	if(sniffer != $skill[none])
 	{
 		return acquireMP(sniffer.mp_cost());
@@ -1759,7 +1832,32 @@ boolean isFreeMonster(monster mon, location loc)
 	return false;
 }
 
+boolean auto_burningDelay()
+{
+	if((auto_voteMonster(true) || isOverdueDigitize() || auto_sausageGoblin() || auto_backupTarget() || auto_voidMonster()) && my_location() == solveDelayZone())
+	{
+		return true;
+	}
+	return false;
+}
 
+boolean auto_gettingLucky()
+{
+	if(have_effect($effect[Lucky!]) > 0 && zone_hasLuckyAdventure(my_location()))
+	{
+		return true;
+	}
+	return false;
+}
+
+boolean auto_queueIgnore()
+{
+	if(auto_burningDelay() || auto_gettingLucky() || auto_haveQueuedForcedNonCombat())
+	{
+		return true;
+	}
+	return false;
+}
 
 boolean auto_deleteMail(kmailObject msg)
 {
@@ -3315,6 +3413,8 @@ boolean auto_check_conditions(string conds)
 					return true;
 				if(get_property("motifMonster").to_monster() == check_sniffed)
 					return true;
+				if(get_property("rwbMonster").to_monster() == check_sniffed)
+					return true;
 				return false;
 			// data: Doesn't matter, but put something so I don't have to support dataless conditions
 			// True when you expect a protonic ghost report
@@ -3398,6 +3498,27 @@ boolean [monster] auto_getMonsters(string category)
 	return res;
 }
 
+boolean [phylum] auto_getPhylum(string category)
+{
+	boolean [phylum] res;
+	string [string,int,string] phylum_text;
+	if(!file_to_map("autoscend_phylums.txt", phylum_text))
+		auto_log_error("Could not load autoscend_phylums.txt. This is bad!");
+	foreach i,name,conds in phylum_text[category]
+	{
+		phylum thisPhylum = name.to_phylum();
+		if(thisPhylum == $phylum[none])
+		{
+			auto_log_warning('"' + name + '" does not convert to a phylum properly!', "red");
+			continue;
+		}
+		if(!auto_check_conditions(conds))
+			continue;
+		res[thisPhylum] = true;
+	}
+	return res;
+}
+
 boolean auto_wantToSniff(monster enemy, location loc)
 {
 	location locCache = my_location();

RELEASE/scripts/autoscend/autoscend_header.ash

@@ -524,6 +524,7 @@ void auto_buyFrom2002MrStore();
 void auto_useBlackMonolith();
 boolean auto_haveAugustScepter();
 void auto_scepterSkills();
+void auto_scepterRollover();
 void auto_lostStomach();
 boolean auto_haveBofa();
 boolean auto_canHabitat();
@@ -532,6 +533,12 @@ int auto_habitatFightsLeft();
 monster auto_habitatMonster();
 boolean auto_canCircadianRhythm();
 boolean auto_circadianRhythmTarget(monster target);
+boolean auto_haveEagle();
+string activeCitZoneMod();
+boolean auto_citizenZonePrep(string goal);
+boolean auto_getCitizenZone(location loc);
+boolean auto_getCitizenZone(string goal);
+familiar auto_forceEagle();
 boolean auto_haveJillOfAllTrades();
 void auto_handleJillOfAllTrades();
 boolean auto_haveBurningLeaves();
@@ -1701,6 +1708,8 @@ boolean loopHandlerDelayAll();
 string reverse(string s);
 int[monster] banishedMonsters();
 boolean isBanished(monster enemy);
+int[phylum] banishedPhyla();
+boolean isBanishedPhyla(phylum monsterPhylum);
 int autoCraft(string mode, int count, item item1, item item2);
 int internalQuestStatus(string prop);
 boolean canYellowRay(monster target);
@@ -1709,9 +1718,13 @@ float[monster] auto_combat_appearance_rates(location place, boolean queue);
 float[monster] auto_combat_appearance_rates(location place);
 boolean[string] auto_banishesUsedAt(location loc);
 boolean auto_wantToBanish(monster enemy, location loc);
+boolean auto_wantToBanish(phylum enemyphylum, location loc);
 boolean canBanish(monster enemy, location loc);
+boolean canBanish(phylum enemyphylum, location loc);
 boolean adjustForBanish(string combat_string);
 boolean adjustForBanishIfPossible(monster enemy, location loc);
+boolean adjustForBanishIfPossible(phylum enemyphylum, location loc);
+boolean auto_forceFreeRun(boolean combat);
 boolean auto_wantToFreeRun(monster enemy, location loc);
 boolean canFreeRun(monster enemy, location loc);
 string freeRunCombatStringPreBanish(monster enemy, location loc, boolean inCombat);
@@ -1763,6 +1776,9 @@ float MLDamageToMonsterMultiplier();
 int freeCrafts();
 boolean isFreeMonster(monster mon);
 boolean isFreeMonster(monster mon, location loc);
+boolean auto_burningDelay();
+boolean auto_gettingLucky();
+boolean auto_queueIgnore();
 boolean auto_deleteMail(kmailObject msg);
 boolean LX_summonMonster();
 boolean canSummonMonster(monster mon);
@@ -1821,6 +1837,7 @@ boolean auto_can_equip(item it);
 boolean auto_can_equip(item it, slot s);
 boolean auto_check_conditions(string conds);
 boolean [monster] auto_getMonsters(string category);
+boolean [phylum] auto_getPhylum(string category);
 boolean auto_wantToSniff(monster enemy, location loc);
 boolean auto_wantToYellowRay(monster enemy, location loc);
 boolean auto_wantToReplace(monster enemy, location loc);

RELEASE/scripts/autoscend/combat/auto_combat_default_stage1.ash

@@ -259,6 +259,12 @@ string auto_combatDefaultStage1(int round, monster enemy, string text)
 		handleTracker($skill[%fn\, spit on them!], enemy, "auto_otherstuff");
 		return useSkill($skill[%fn\, spit on them!], true);
 	}
+
+	//[Patriotic Eagle] familiar skill that gives a useful buff
+	if (canUse($skill[%fn\, let\'s pledge allegiance to a Zone]))
+	{
+		return useSkill($skill[%fn\, let\'s pledge allegiance to a Zone], true);
+	}
 
 	//duplicate turns the enemy from a single enemy into a mob containing 2 copies of this enemy. Doubling their stats and doubling their drops
 	if(canUse($skill[Duplicate]) && (get_property("_sourceTerminalDuplicateUses").to_int() == 0) && !inAftercore() && !in_nuclear())