vint min;
effect lowest;
int[effect] dur;
int turns_to_spend;

void update_lowest(){
	foreach i in $effects[Ur-Kel's Aria of Annoyance, Fat Leon's Phat Loot Lyric, Pride of the Puffin, Drescher's Annoying Noise, Leash of Linguini, Singer's Faithful Ocelot,Empathy,Ruthlessly Efficient,Jingle Jangle Jingle, Blood Bond]{
		dur[i] = have_effect(i);
		if(min >= dur[i]){
			min = dur[i];
			lowest = i;
		}
	}
}

void one_drum_machine(){
	if(my_soulsauce() > 50 ){
		cli_execute("/sf 10");
	}

	min = have_effect($effect[Leash of Linguini]);
	update_lowest();

	while(my_mp() * 2 > my_maxmp()){
		switch(lowest){
			case $effect[Ur-Kel's Aria of Annoyance] :
				cli_execute("/cast 10 ur-kel's aria of annoyance");
				break;
			case $effect[fat leon's phat loot lyric] :
				cli_execute("/cast 10 phat loot");
				break;
			case $effect[pride of the puffin] :
				cli_execute("/cast 10 pride of the puffin");
				break;
			case $effect[drescher's annoying noise] :
				cli_execute("/cast 5 drescher's annoying noise");
				break;
			case $effect[leash of linguini] :
				cli_execute("/cast 10 leash of linguini");
				break;
			case $effect[singer's faithful ocelot] :
				cli_execute("/cast 10 singer's faithful ocelot");
				break;
			case $effect[empathy] :
				cli_execute("/cast 10 empathy of the newt");
				break;
			case $effect[ruthlessly efficient] :
				cli_execute("/cast 10 ruthless efficiency");
				break;
			case $effect[jingle jangle jingle] :
				cli_execute("/cast 10 jingle bells");
				break;
			case $effect[blood bond] :
				cli_execute("/cast 10 blood bond");
				break;
		
		}
		update_lowest();
		if(my_hp()* 2 < my_maxhp()){
			cli_execute("/cast cannelloni cocoon");
		}
	}


	if(my_hp()* 2 < my_maxhp()){
		cli_execute("/cast cannelloni cocoon");
	}
	cli_execute("use 1 drum machine");
}
cli_execute("refresh all");

if(my_fullness() == 0){
	cli_execute("/familiar stooper");
	cli_execute("genie effect got milk");
	cli_execute("genie effect got milk");
	cli_execute("acquire 69 devil hair pasta");
	cli_execute("acquire 69 mojo filter");
	if(available_amount($item[mayoflex]) <69)
	cli_execute("/buy 69 mayoflex");
	if(available_amount($item[mayodiol]) <69)
	cli_execute("/buy 69 mayonex");
	for i from 1 to 21{
		cli_execute("/use mayodiol");
		cli_execute("/eat devil hair pasta");
	}
	for i from 1 to 15{
		cli_execute("/use mayoflex");
		cli_execute("/eat devil hair pasta");
	}
	for i from 1 to 15{
		sweet_synthesis($item[Milk studs],$item[Milk studs]);
	}
	for i from 1 to 3{
		cli_execute("/use mojo filter");
	}
	for i from 1 to 3{
		sweet_synthesis($item[Milk studs],$item[Milk studs]);
	}
}



if(fullness_limit() < 17){
	cli_execute("/familiar feather boa constrictor");
	cli_execute("/outfit tcrs boa");
	for j from 1 to 55{
		one_drum_machine();
	}

	cli_execute("refresh all");

	if(my_fullness() < fullness_limit()){
		cli_execute("/familiar stooper");
		cli_execute("/use mayoflex");
		cli_execute("/eat devil hair pasta");
		cli_execute("/familiar feather boa constrictor");
		one_drum_machine();
		cli_execute("/familiar stooper");
		cli_execute("/use mayoflex");
		cli_execute("/eat devil hair pasta");
		cli_execute("/equip accessory1 mafia pinky ring");
		cli_execute("cast ode to booze; genie effect refined palate; drink frosty's frosty mug; drink spooky mushroom wine;");
		
	}
}


cli_execute("refresh all");
cli_execute("/outfit tcrs boa");
cli_execute("/familiar feather boa constrictor");
cli_execute("/equip p plexiglass");

for j from 1 to my_adventures(){
	one_drum_machine();
}

cli_execute("/familiar disembodied hand");
cli_execute("/outfit tcrs rollover");
cli_execute("breakfast");
cli_execute("run tcrs potion effectiveness.ash");