script for converting free runs into dice

cli_execute("/aa none");

//cli_execute("run dice mp thingy.ash");
//note that this won't work for you because custom outfits.
//edit accordingly if you want to use it.

int elemental_count = 0;
boolean elchecktrified = false;
if(get_property("_dicey_mp_runs").to_int() == 0 && get_property("_alotted_snojo_bander_runs").to_int() == 0){
	cli_execute("familiar bandersnatch");
	cli_execute("equip familiar kill screen");
	cli_execute("outfit dice mp");
	cli_execute("acquire 11 insani tea");
	cli_execute("acquire 11 concoction of clumsiness");
	cli_execute("acquire 11 ancient medicinal herbs");
	if(have_effect($effect[polka of plenty]) > 0){
		cli_execute("shrug polka of plenty");
		cli_execute("cast ode to booze");
	}
	if(have_effect($effect[insani tea]) == 0){
		cli_execute("use 1 insani tea");
	}
	if(have_effect($effect[clumsy]) == 0){
		cli_execute("shrug ancient fortitude");
		cli_execute("use 1 concoction of clumsiness");
		cli_execute("chew 1 ancient medicinal herbs");
	}
	//this is how many bander runs we're able to use here. this preference should only be set once/day.
	set_property("_alotted_snojo_bander_runs", ((Numeric_Modifier("Familiar Weight") + familiar_weight( my_familiar() ) ) / 5) - get_property("_banderRunaways").to_int());
	cli_execute("cast cannelloni cocoon");
//	bjorn_stuff();
}

//this block is for if the script needs to be rerun after aborting for some stupid reason.
if(get_property("_dicey_mp_runs").to_int() > 0 && get_property("_dicey_mp_runs").to_int()  < (get_property("_alotted_snojo_bander_runs").to_int() - 1)){
	cli_execute("familiar bandersnatch");
	cli_execute("equip familiar kill screen");
	cli_execute("outfit dice mp");
	if(have_effect($effect[polka of plenty]) > 0){
		cli_execute("shrug polka of plenty");
		cli_execute("cast ode to booze");
	}
	if(have_effect($effect[insani tea]) == 0){
		cli_execute("use 1 insani tea");
	}
	if(have_effect($effect[clumsy]) == 0){
		cli_execute("shrug ancient fortitude");
		cli_execute("use 1 concoction of clumsiness");
		cli_execute("chew 1 ancient medicinal herbs");
	}
	cli_execute("cast cannelloni cocoon");
//	bjorn_stuff();
}

//this block adventures until we've used all but one of our free runs. off-by-one errors are scary, so the last free run remains unused. timer 1 check makes script abort if a turn is spent.
while(get_property("_dicey_mp_runs").to_int() < (get_property("_alotted_snojo_bander_runs").to_int() - 1) && get_property("_banderRunaways").to_int() < (Numeric_Modifier("Familiar Weight") + familiar_weight( my_familiar() ) ) / 5 && have_effect($effect[timer 1]) > 0 ){
	visit_url("adventure.php?snarfblat=460");
	elchecktrified = false;
	elemental_count = 0;
	foreach i in last_monster().random_modifiers{
		if(i == "foul-mouthed" || i == "filthy" || i == "hot" || i == "wet" || i == "haunted"){
			//these each do some percent of your maxhp in damage, seemingly bounded from above by 2% if you have 90% elemental resistance, each round.
			elemental_count++;
		}
		if(i == "electrified"){
			//monster is full of mp and pain.
			elchecktrified = true;
		}
		if(i == "hilarious"){
			//monster breaks mafia's tracking of free runs. this has like a 1/buhjillion chance of wasting a free run (by incrementing twice) if the runaway message has no salad in it.
			set_property("_banderRunaways", get_property("_banderRunaways").to_int()+1);
		}
	}
	if(!elchecktrified){
		visit_url("fight.php?action=runaway");
	}
	else{
		visit_url("fight.php?action=macro&macrotext=while !hppercentbelow " + (elemental_count * 2 + 20).to_string() +";attack;endwhile;runaway;");
	}
	set_property("_dicey_mp_runs",get_property("_dicey_mp_runs").to_int()+1);
	cli_execute("cast cannelloni cocoon");
//	bjorn_stuff();
	cli_execute("/cast * dice");
}

if(have_effect($effect[timer 1]) == 0){
	abort("dice is fucked");
}

if(have_effect($effect[ode to booze]) > 0){
	cli_execute("shrug ode to booze");
	cli_execute("cast polka of plenty");
}

if(have_effect($effect[insani tea]) > 0){
	cli_execute("shrug insani tea");
	cli_execute("shrug clumsy");
}