Kolmafia Barf Mountain Farming Bot Script

import <zlib.ash>

void main() {
    // Log run on server
    visit_url( "http://www.[logging_server]...?name="+my_name()+"&meat="+my_meat()+"&cmeat="+my_closet_meat() );

    // Summon Daily Clipart Items
    cli_execute("create 1 ultrafondue");
    cli_execute("create 1 bucket of wine");
    cli_execute("create 1 bucket of wine");

    // (Near-)Optimal diets from http://www.houeland.com/kol/diets (may change)
    if (my_fullness()==0) {
        cli_execute("acquire 3 spectral pickle");
        cli_execute("acquire 1 ultrafondue");

        cli_execute("acquire 1 milk of magnesium");
        cli_execute("use 1 milk of magnesium");

        cli_execute("eat 3 spectral pickle");
        cli_execute("eat 1 ultrafondue");
    }
    if (my_inebriety()==0) {
        cli_execute("acquire 9 plain old beer");
        cli_execute("make 9 Paint A Vulgar Pitcher");
        cli_execute("acquire 1 pumpkin beer");
        cli_execute("cast 2 ode to booze");

        // Beer Barrel Polka
        visit_url( "choice.php?whichchoice=1100&pwd&option=4" );

        cli_execute("drink 9 Paint A Vulgar Pitcher");
        cli_execute("drink 1 pumpkin beer");
    }
    if (my_spleen_use()==0) {
        cli_execute("acquire 5 prismatic wad");
        cli_execute("chew 5 prismatic wad");
    }

    // Daily Deck of Card draws
    cli_execute("play Mickey");
    cli_execute("play Island");
    cli_execute("play Recall");

    // Collect 3 FunFunds from Maintenance Tunnels
    visit_url( "place.php?whichplace=airport_stench&action=airport3_tunnels" );
    visit_url( "choice.php?whichchoice=1067&option=6" );

    // Collect 1000 meat from Chateau
    visit_url( "place.php?whichplace=chateau&action=chateau_desk1" );

    // Collect Volcoin
    cli_execute("outfit Velvet");
    visit_url( "place.php?whichplace=airport_hot&action=airport4_zone1" );
    visit_url( "choice.php?whichchoice=1090&option=7" );

    // Set adventure farming mood
    cli_execute("mood clear");
    if (have_skill($skill[The Polka of Plenty])) cli_execute("trigger lose_effect, Polka of Plenty, cast 1 Polka of Plenty");
    if (have_skill($skill[Fat Leon's Phat Loot Lyric])) cli_execute("trigger lose_effect, Fat Leon's Phat Loot Lyric, cast 1 Fat Leon's Phat Loot Lyric");
    if (have_skill($skill[Leash of Linguini])) cli_execute("trigger lose_effect, Leash of Linguini, cast 1 Leash of Linguini");
    if (have_skill($skill[Empathy of the Newt])) cli_execute("trigger lose_effect, Empathy, cast 1 Empathy of the Newt");
    cli_execute("trigger lose_effect, How to Scam Tourists, use 1 How to Avoid Scams");
    cli_execute("trigger lose_effect, Wasabi Sinuses, use 1 Knob Goblin nasal spray");
    cli_execute("trigger lose_effect, Heavy Petting, use 1 Knob Goblin pet-buffing spray");
    cli_execute("trigger lose_effect, Merry Smithsness, use 1 Flaskfull of Hollow");

    cli_execute("outfit Farming Gear");
    while (my_adventures()>0) {
        adventure(1, $location[Barf Mountain]);
        // Eat 1-fullness food, if granted extra fullness from Pantsgiving
        if (fullness_limit()-my_fullness()>0) {}
            cli_execute("eat 1 dinner roll");
        }
    }

    // Nightcap
    cli_execute("outfit Resting Gear");
    cli_execute("cast 1 ode to booze");
    cli_execute("drink 1 bucket of wine");

    // Burn remaining mana
    cli_execute("cast * Summon Party Favor");

    // Log end of run on server
    visit_url( "http://www.[logging_server]...?name="+my_name()+"&meat="+my_meat()+"&cmeat="+my_closet_meat() );
}