first actual ASH script I wrote.

//autoattack should be free running from everything that isn't in the caldera,
//killing everything in the caldera,
//and aborting on special monsters.


string[int][location] spading_combats ;
file_to_map("yay_buckets.txt", spading_combats) ;
int lights_out = total_turns_played()%37 ;
int current_turn = turns_played() ;
int boop = 0;

print("hippies dead: "+get_property("hippiesDefeated"));
while( current_turn == turns_played() & boop < 5){
	if(have_effect($effect[Drenched in Lava]) == 0){
		adv1($location[The Bubblin' Caldera],0,"");
	}
	if(lights_out == 0){
		adv1($location[The Haunted Ballroom],0,"");
	}
	foreach i in $locations[ The Deep Dark Jungle, The Haunted Bedroom, Pandamonium Slums, The Battlefield (Frat Uniform), The Bubblin' Caldera] {
		adv1(i,0,"");
		if( i.get_location_monsters() contains last_monster() ){
			spading_combats[current_turn][i] = last_monster().manuel_name;
			boop += 1;
		}
		else{
			print(last_monster()+" isn\'t in "+i);
			//breaks on wieners, semi-rares, and demonNames among other things.
			map_to_file(spading_combats,"yay_buckets.txt");
			abort("horrible data saved, yay!");
		}
	}
}
if(current_turn == turns_played()-1 & boop == 5){
	map_to_file(spading_combats,"yay_buckets.txt");
}

//> ash string[int][location] spading_spading ; file_to_map("yay_buckets.txt", spading_spading); string blarg = ""; foreach i,j in spading_spading {blarg += spading_spading[i][j]+"~" ; } print(blarg);