OpenATSongSlot.ash

//Will not uneffect the ode to booze.
void main()
{
	effect [int] songs;
	songs[count(songs)] = $effect[The Moxious Madrigal];
	songs[count(songs)] = $effect[The Magical Mojomuscular Melody];
	songs[count(songs)] = $effect[Cletus's Canticle of Celerity];
	songs[count(songs)] = $effect[Power Ballad of the Arrowsmith];
	songs[count(songs)] = $effect[Polka of Plenty];
	songs[count(songs)] = $effect[Jackasses' Symphony of Destruction];
	songs[count(songs)] = $effect[Fat Leon's Phat Loot Lyric];
	songs[count(songs)] = $effect[Brawnee's Anthem of Absorption];
	songs[count(songs)] = $effect[Psalm of Pointiness];
	songs[count(songs)] = $effect[Stevedave's Shanty of Superiority];
	songs[count(songs)] = $effect[Aloysius' Antiphon of Aptitude];
	songs[count(songs)] = $effect[The Sonata of Sneakiness];
	songs[count(songs)] = $effect[Carlweather's Cantata of Confrontation];
	songs[count(songs)] = $effect[Ur-Kel's Aria of Annoyance];
	songs[count(songs)] = $effect[Dirge of Dreadfulness];
	songs[count(songs)] = $effect[The Ballad of Richie Thingfinder];
	songs[count(songs)] = $effect[Benetton's Medley of Diversity];
	songs[count(songs)] = $effect[Elron's Explosive Etude];
	songs[count(songs)] = $effect[Chorale of Companionship];
	songs[count(songs)] = $effect[Prelude of Precision];
	songs[count(songs)] = $effect[Donho's Bubbly Ballad];
	songs[count(songs)] = $effect[Cringle's Curative Carol];
	songs[count(songs)] = $effect[Inigo's Incantation of Inspiration]; //'
	songs[count(songs)] = $effect[Paul's Passionate Pop Song]; //'


	int songs_active = 0;
	effect min_song;
	int min_song_amount = 0;

	foreach i in songs
	{
		effect e = songs[i];
		if (have_effect(e) > 0)
		{
			songs_active = songs_active + 1;
			if (have_effect(e) < min_song_amount || min_song_amount == 0)
			{
				min_song = e;
				min_song_amount = have_effect(e);
			}
		}
	}
	int song_limit = 3;
	if (have_skill($skill[Mariachi Memory]))
		song_limit = 4;
	if (songs_active >= song_limit)
	{
		cli_execute("uneffect " + min_song);
	}
	//print("You have " + songs_active + " songs active. Lowest is " + min_song + " with " + min_song_amount + " turns.");
}