boolean fold(item doodad) {
if(available_amount(doodad) > 0) return true;
foreach other in get_related(doodad, "fold")
if(available_amount(other) > 0)
return cli_execute("fold "+doodad);
return false;
}
boolean equip_stuff() {
equip($slot[hat], $item[training helmet]);
equip($slot[weapon], $item[bottle-rocket crossbow]);
equip($slot[off-hand], $item[kol con 13 snowglobe]);
equip($slot[back], $item[buddy bjorn]);
if (fold($item[makeshift garbage shirt])) {
equip($slot[shirt], $item[makeshift garbage shirt]);
} else {
print_html("<font color=008000>No suitable shirt creatable</font>");
}
equip($slot[pants], $item[pantsgiving]);
equip($slot[acc1], $item[mr. cheeng's spectacles]); // '
equip($slot[acc2], $item[time-twitching toolbelt]);
equip($slot[acc3], $item[mafia thumb ring]);
use_familiar($familiar[Ms. Puck Man]);
equip($slot[familiar], $item[mayflower bouquet]);
return true;
}
familiar select_bjorn_familiar() {
string[familiar] property_of_familiar;
int[familiar] no_of_drops_familiar;
property_of_familiar[$familiar[garbage fire]] = "_garbageFireDropsCrown";
property_of_familiar[$familiar[grim brother]] = "_grimFairyTaleDropsCrown";
property_of_familiar[$familiar[grimstone golem]] = "_grimstoneMaskDropsCrown";
property_of_familiar[$familiar[trick-or-treating tot]] = "_hoardedCandyDropsCrown";
property_of_familiar[$familiar[optimistic candle]] = "_optimisticCandleDropsCrown";
property_of_familiar[$familiar[adventurous spelunker]] = "_oreDropsCrown";
property_of_familiar[$familiar[twitching space critter]] = "_spaceFurDropsCrown";
property_of_familiar[$familiar[machine elf]] = "_abstractionDropsCrown";
no_of_drops_familiar[$familiar[garbage fire]] = 3;
no_of_drops_familiar[$familiar[grim brother]] = 2;
no_of_drops_familiar[$familiar[grimstone golem]] = 1;
no_of_drops_familiar[$familiar[trick-or-treating tot]] = 3;
no_of_drops_familiar[$familiar[optimistic candle]] = 3;
no_of_drops_familiar[$familiar[adventurous spelunker]] = 6;
no_of_drops_familiar[$familiar[twitching space critter]] = 1;
no_of_drops_familiar[$familiar[machine elf]] = 25;
foreach fam in property_of_familiar {
if (to_int(get_property(property_of_familiar[fam])) < no_of_drops_familiar[fam]) {
return fam;
}
}
return $familiar[none];
}
void equip_in_bjorn() {
familiar fam;
fam = select_bjorn_familiar();
if (fam == $familiar[none]) {
equip($slot[back], $item[protonic accelerator pack]);
} else {
if (my_bjorned_familiar() != fam) {
bjornify_familiar(fam);
}
}
}
boolean god_lobster_fights(int fights_to_run) {
# check which values to put in run_choice
familiar fam = my_familiar();
int i = 0;
if (use_familiar($familiar[god lobster])) {
while (to_int(get_property("_godLobsterFights")) < 3 && i < fights_to_run) {
visit_url("main.php?fightgodlobster=1");
if (available_amount($item[god lobster's crown]) <= 0) { // '
run_choice(0);
} else {
run_choice(1);
}
i = i + 1;
}
use_familiar(fam);
}
return to_boolean(i != 0);
}
boolean adventure_at_location(int fights_to_run) {
int i = 0;
// Snojo
while (to_int(get_property("_snojoFreeFights")) < 10 && i < fights_to_run) {
adv1($location[The X-32-F Combat Training Snowman],-1,"");
i = i + 1;
}
// The Neverending Party
# Figure out how to deal with the noncombats
while (to_int(get_property("_neverendingPartyFreeTurns")) < 10 && i < fights_to_run) {
adv1($location[The Neverending Party],-1,"");
i = i + 1;
}
return to_boolean(i != 0);
}
boolean adventure_in_tunnels(int fights_to_run) {
int i = 0;
familiar fam = my_familiar();
cli_execute("checkpoint");
equip($slot[back], $item[protonic accelerator pack]);
equip($slot[acc2], $item[mr. screege's spectacles]); // '
equip($slot[familiar], $item[mayflower bouquet]);
if (available_amount($item[pantogram pants]) > 0) {
equip($slot[pants], $item[pantogram pants]);
} else {
equip($slot[pants], $item[greatest american pants]);
}
if (use_familiar($familiar[machine elf])) {
while (to_int(get_property("_machineTunnelsAdv")) < 5 && i < fights_to_run) {
adv1($location[The Deep Machine Tunnels],-1,"");
i = i + 1;
}
use_familiar(fam);
cli_execute("outfit checkpoint");
}
return to_boolean(i != 0);
}
boolean eldritch_tentacles(int fights_to_run) {
int i = 0;
if (!to_boolean(get_property("_eldritchHorrorEvoked")) && i < fights_to_run) {
use_skill(1, $skill[evoke eldritch horror]);
i = i + 1;
}
if (!to_boolean(get_property("_eldritchTentacleFought")) && i < fights_to_run) {
visit_url("place.php?whichplace=forestvillage&action=fv_scientist");
run_choice(1);
i = i + 1;
}
return to_boolean(i != 0);
}
boolean love_tunnel() {
if (!to_boolean(get_property("_loveTunnelUsed")) && to_boolean(get_property("loveTunnelAvailable"))) {
visit_url("place.php?whichplace=town_wrong&action=townwrong_tunnel");
run_choice(1);
run_choice(1);
visit_url("choice.php");
// 1 = Eardigan, 2 = Epaulettes, 3 = Earring
run_choice(3);
run_choice(1);
visit_url("choice.php");
// 1 = Lovebotamy, 2 = Open Heart Surgery, 3 = Wandering Eye Surgery
run_choice(2);
run_choice(1);
// 1 = Enamorang, 2 = Emotionizer, 3 = Extraterrestrial Chocolate, 4 = Echinacea Bouquet, 5 = Elephant, 6 = 2 pieces of toast
run_choice(1);
}
return true;
}
boolean witchess_fights(int fights_to_run) {
int i = 0;
int choice_adv;
if(to_int(get_property("_witchessFights")) < 5 && i < fights_to_run) {
// Witchess Knight or Ox?
choice_adv = to_int(get_property("_witchessFights")) != 4 ? 1936 : 1937;
if (choice_adv == 1937) {
use_skill(1, $skill[Frigidalmatian]);
if (my_primestat() == $stat[muscle]) {
equip($slot[weapon], $item[stainless steel shillelagh]);
}
}
visit_url("campground.php?action=witchess");
run_choice(1);
visit_url("choice.php?option=1&pwd=" + my_hash() + "&whichchoice=1182&piece=" + to_string(choice_adv), false);
run_combat();
i = i + 1;
if (have_effect($effect[frigidalmatian]) > 0) {
cli_execute("shrug frigidalmatian");
equip($slot[weapon], $item[bottle-rocket crossbow]);
}
}
return to_boolean(i != 0);
}
boolean infernal_seals(int fights_to_run) {
item item_to_use = $item[depleted uranium seal figurine];
int i = 0;
int max_summons = 5 + to_int(item_amount($item[claw of the infernal seal]) > 0)*5;
item prev_weapon = equipped_item($slot[weapon]);
if(to_int(get_property("_sealsSummoned")) < max_summons && i < fights_to_run && my_class() == $class[seal clubber]) {
if (item_amount($item[imbued seal-blubber candle]) == 0) {
if (available_amount($item[powdered sealbone]) == 0) {
if (item_amount($item[figurine of an ancient seal]) == 0) {
hermit(1, $item[figurine of an ancient seal]);
}
item_to_use = $item[figurine of an ancient seal];
retrieve_item(3, $item[seal-blubber candle]);
} else {
retrieve_item(1, $item[imbued seal-blubber candle]);
}
}
if (item_type(equipped_item($slot[weapon])) != "club") {
equip($slot[weapon], $item[stainless steel shillelagh]);
}
use(1, item_to_use);
equip($slot[weapon], prev_weapon);
i = i + 1;
}
return to_boolean(i != 0);
}
void burn_free_fights() {
equip_stuff();
equip_in_bjorn();
#while (god_lobster_fights(1)) { equip_in_bjorn(); }
if (love_tunnel()) { equip_in_bjorn(); }
while (adventure_at_location(1)) { equip_in_bjorn(); }
while (eldritch_tentacles(1)) { equip_in_bjorn(); }
while (witchess_fights(1)) { equip_in_bjorn(); }
while (infernal_seals(1)) { equip_in_bjorn(); }
if (adventure_in_tunnels(6)) {}
}
void main() {
burn_free_fights();
}
Comments