wait(10);
/*
// This is a comment. Anything you type behind a // will not be executed

// This script assumes you have the associated combat script saved as a macro. It will not work otherwise
// This script assumes that you have the correct potion buffs turned on as a mood, bc it doesn't do them itself.

// First, we want to do eating and drinking, so we want to eat all of the thanksgiving food
void acquire_to_price(int qty, item it, int price)
{
    // Reimplement acquire to check item price before buying
    int missing_qt = qty - item_amount(it);
    if (missing_qt > 0)
    {
        buy(missing_qt, it, price);
    }
}
int count;

// Food setup

// First, we need to make sure we acquire and consume the relevant food
acquire_to_price(1, $item[candied sweet potatoes] , 10000);
acquire_to_price(1, $item[green bean casserole] , 10000);
acquire_to_price(1, $item[baked stuffing] , 10000);
acquire_to_price(1, $item[cranberry cylinder] , 10000);
acquire_to_price(1, $item[thanksgiving turkey] , 10000);
acquire_to_price(1, $item[mince pie] , 10000);
acquire_to_price(1, $item[mashed potatoes] , 10000);
acquire_to_price(1, $item[warm gravy] , 10000);
acquire_to_price(1, $item[bread roll] , 10000);
cli_execute("acquire candied sweet potatoes");
cli_execute("acquire green bean casserole");
cli_execute("acquire baked stuffing");
cli_execute("acquire cranberry cylinder");
cli_execute("acquire thanksgiving turkey");
cli_execute("acquire mince pie");
cli_execute("acquire mashed potatoes");
cli_execute("acquire warm gravy");
cli_execute("acquire bread roll");
// Prep for overeating
cli_execute("equip pantsgiving");
cli_execute("acquire 3 mayodiol");
cli_execute("acquire 5 mayozapine");

cli_execute("use 2 milk of mag");
cli_execute("use mayozapine");
cli_execute("eat candied sweet potatoes");
cli_execute("use mayozapine");
cli_execute("eat green bean casserole");
cli_execute("use mayozapine");
cli_execute("eat baked stuffing");
cli_execute("use mayozapine");
cli_execute("eat cranberry cylinder");
cli_execute("use mayozapine");
cli_execute("eat thanksgiving turkey");
cli_execute("use mayodiol");
cli_execute("eat mince pie");
cli_execute("use mayodiol");
cli_execute("eat mashed potatoes");
cli_execute("use mayodiol");
cli_execute("eat warm gravy");
cli_execute("use mayozapine");
cli_execute("eat bread roll");

// Buff Setup
// LOV Tunnel Bullshit. This is the place where I suspect something might go wrong.
string LOV = visit_url("place.php?whichplace=town_wrong&action=townwrong_tunnel");
LOV = visit_url("choice.php?pwd=&whichchoice=1222&option=1");

LOV = visit_url("choice.php?pwd=&whichchoice=1223&option=2");
LOV = visit_url("choice.php?pwd=&whichchoice=1224&option=2");

LOV = visit_url("choice.php?pwd=&whichchoice=1225&option=2");
LOV = visit_url("choice.php?pwd=&whichchoice=1226&option=2");

LOV = visit_url("choice.php?pwd=&whichchoice=1227&option=2");
LOV = visit_url("choice.php?pwd=&whichchoice=1228&option=1");

// Clan fortune teller
cli_execute("fortune buff meat");

count = 0;
while (count < 3) {
    cli_execute("terminal enhance meat");
    count += 1;

count = 0;
while (count < 3) {
    cli_execute("terminal enhance meat");
    count += 1;
}
cli_execute("terminal educate digitize");
cli_execute("terminal educate extract");

// Use the Buy!Sell! Buff for the first time
cli_execute("use Uncle Greenspan's Bathroom Finance Guide");
 */
cli_execute("use bittycar meatcar");

// Familiar setup
cli_execute("familiar cornbeefadon");
cli_execute("acquire box of familiar jacks");
cli_execute("use box of familiar jacks"); // Acquires the amulet coin

cli_execute("familiar robortender");
cli_execute("use moveable feast");
cli_execute("equip amulet coin");
cli_execute("acquire newark");
cli_execute("acquire single entendre");
cli_execute("acquire feliz navidad");
cli_execute("acquire hell in a bucket");
cli_execute("robo feliz navidad, newark, single entendre, hell in a bucket");

cli_execute("familiar reanimator");

// Do the equipment
cli_execute("equip crumpled felt fedora");
cli_execute("equip buddy bjorn");
cli_execute("bjornify golden monkey");
cli_execute("equip haiku katana");
cli_execute("equip half a Purse");
cli_execute("equip pantsgiving");
cli_execute("equip acc1 mafia pointer finger ring");
cli_execute("equip acc2 cheap sunglasses");
cli_execute("equip acc3 belt of Loathing");

// Sweet synthesize
count = 0;
while (count < 12) {
    cli_execute("synthesize greed");
    count += 1;
}
cli_execute("use 3 mojo filter");
cli_execute("chew 6 handful of smith");

// Ensure that we have opened the box of raindoh
cli_execute("acquire 4d camera");

cli_execute("/aa barf1");

// Do the fax for embezzler
if (get_property("_photocopyUsed")=="false" && can_faxbot($monster[Knob Goblin Embezzler])) {
     faxbot($monster[Knob Goblin Embezzler]);
     visit_url("clan_viplounge.php?preaction=receivefax&whichfloor=2", true);
     cli_execute("use photocopied");
}

cli_execute("/aa barf2");
// Set back to normal fam
cli_execute("familiar robortender");
cli_execute("equip amulet coin");

count = 0;
while(count < 5)
{
    cli_execute("use box full of monster");
    count += 1;
}
cli_execute("/aa barf3");
cli_execute("use shaking 4d camera");
cli_execute("/aa barf4");
// Now there are no free fights intended here, so we should have spent 5 box turns, 1 camera turn, 1 fax turn, for 7 turns with pantsgiving on so far.

while(true)
{
    if (mp_cost($skill[summon party favor]) < my_mp())
    {
        cli_execute("cast summon party favor");
    }
    if (have_effect($effect[Buy! Sell! Buy! Sell!]) == 0)
    {
        // TODO we could do some dumb stuff with the black box to force the 200% to occur then
        cli_execute("use Uncle Greenspan's Bathroom Finance Guide");
    }

    if (my_fullness() < fullness_limit())
    {
        cli_execute("acquire Mayozapine");
        cli_execute("use Mayozapine");
        cli_execute("acquire jumping horseradish");
        cli_execute("eat jumping horseradish");
    }
    if (my_fullness() == 17)
    {
        cli_execute("equip great wolf pants");
        cli_execute("/a barf5");
    }
    adventure(1, $location[Barf Mountain]);}
}
// This should eventually give an error when out of turns.