Pasted

import <clanhop.ash>;
import <DinseyQuests.ash>;
import <manaburn.ash>;
import <pvploot.ash>;
import <Detective Solver.ash>;
 
void get_gene_tonics() {
    string campground; int no_to_make;
    campground = visit_url("campground.php?action=workshed");
    no_to_make = 3 - to_int(get_property("_dnaPotionsMade"));
    
    if (campground.contains_text("genelab.gif") && no_to_make > 0 && length(get_property("dnaSyringe")) > 0) {
        while (no_to_make > 0) {
            visit_url("campground.php?action=dnapotion");
            no_to_make = no_to_make - 1;
        }
    }
}
 
void use_papier_mache() {
    item it;
    it = $item[papier-m&acirc;ch&eacute; glob];
    
    if (item_amount($item[papier-m&acirc;ch&eacute; glob]) >= 277) {
        create(item_amount($item[papier-m&acirc;ch&eacute; glob]) / 277, $item[papier-m&acirc;ch&eacute; trophy pi&ntilde;ata]);
        use(item_amount($item[papier-m&acirc;ch&eacute; trophy pi&ntilde;ata]), $item[papier-m&acirc;ch&eacute; trophy pi&ntilde;ata]);
    }
}
 
void checkForGoodies() {
    buffer warroom = visit_url("clan_war.php");
    string pattern = "Bags of Goodies:<\\/td><td align=left><b>(\\d+?)<\\/b><\\/td><\\/tr>";
    matcher goodie_bags = create_matcher(pattern, warroom);
    
    if (find(goodie_bags)) {
        if (group(goodie_bags, 1) == 0) {
            // Get new goodiebag 
            print("No goodie bags left, purchasing goodie bag.", "green");
            visit_url("clan_war.php?action=Yep.&goodies=1&oatmeal=&cinderblocks=&grunts=&flyers=&recliners=&archers=");
        }
    }
}
 
void check_clan() {
    string current_clan; string vip_lounge;
 
    // Chips
    if (visit_url("clan_rumpus.php").contains_text("A Snack Machine") && to_int(get_property("_chipBags")) < 3) {
        for i from 1 to 3 - to_int(get_property("_chipBags")) {
            switch (i) {
                case 1:
                    cli_execute("chips ennui");
                    break;
                case 2:
                    cli_execute("chips wintergreen");
                    break;
                case 3:
                    cli_execute("chips radium");
                    break;
                default:
            }
        }
    }
    
    // VIP Room actions
    if (item_amount($item[Clan VIP Lounge Key]) > 0 && (!to_boolean(get_property("_olympicSwimmingPool")) || !to_boolean(get_property("_lookingGlass")))) {
        vip_lounge = visit_url("clan_viplounge.php?whichfloor=2");
        // No need to clanjump if the items are in the current clan
        current_clan = get_clan_name();
        if (!vip_lounge.contains_text("vippool.gif") || !vip_lounge.contains_text("lookingglass.gif")) {
            clanhop("Bonus Adventures from Hell");
        }
        // Swimming pool
        if (!to_boolean(get_property("_olympicSwimmingPool"))) {
            cli_execute("swim laps");
        }
        // Drink me potion
        if (!to_boolean(get_property("_lookingGlass"))) {
            visit_url("clan_viplounge.php?action=lookingglass&whichfloor=2");
        }
        // Go home
        if (current_clan != get_clan_name()) {
            clanhop(current_clan);
        }
    }
}
 
void check_chateau() {
    string chateau;
    if (!to_boolean(get_property("_chateauDeskHarvested")) && to_boolean(get_property("chateauAvailable"))) {
        chateau = visit_url("place.php?whichplace=chateau");
        if (chateau.contains_text("chateau_desk1")) {
            visit_url("place.php?whichplace=chateau&action=chateau_desk1");
        }
        else if (chateau.contains_text("chateau_desk2")) {
            visit_url("place.php?whichplace=chateau&action=chateau_desk2");
        }
        else if (chateau.contains_text("chateau_desk3")) {
            visit_url("place.php?whichplace=chateau&action=chateau_desk3");
        }
    }
}
 
void check_elemental_planes() {
    item[slot] velvet_items;
    velvet_items[$slot[hat]] = $item[smooth velvet hat];
    velvet_items[$slot[shirt]] = $item[smooth velvet shirt];
    velvet_items[$slot[pants]] = $item[smooth velvet pants];
    velvet_items[$slot[acc1]] = $item[smooth velvet hanky];
    velvet_items[$slot[acc2]] = $item[smooth velvet socks];
    velvet_items[$slot[acc3]] = $item[smooth velvet pocket square];
    
    boolean have_all_velvet; have_all_velvet = true;
    slot slt;
    
    if (to_boolean((get_property("stenchAirportAlways"))) || to_boolean((get_property("_stenchAirportToday")))) {
        get_garbage();
    }
    if (to_boolean((get_property("hotAirportAlways"))) || to_boolean((get_property("_hotAirportToday")))) {
        if (!to_boolean(get_property("_infernoDiscoVisited"))) {
            foreach slt in velvet_items {
                if (!(can_equip(velvet_items[slt]) && available_amount(velvet_items[slt]) > 0)) {
                    have_all_velvet = false;
                    break;
                }
            }
            if (have_all_velvet) {
                cli_execute("checkpoint");
                foreach slt in velvet_items {
                    if (!have_equipped(velvet_items[slt])) {
                        equip(slt, velvet_items[slt]);
                    }
                }
                visit_url("place.php?whichplace=airport_hot&action=airport4_zone1");
                run_choice(7);
                cli_execute("outfit checkpoint");
            }
        }
    }
}
 
// mallcuppa by darkcodelagsniper 
void harvest_teatree(boolean silent) {
    #int[item] campground = get_campground();
    item [int] cuppas;
    float pricetotal;
    int shaketree;
    item tea;
    string cuppacmd; string cuppaconfirm;
    
    if (!to_boolean(get_property("_pottedTeaTreeUsed")) && get_campground() contains $item[potted tea tree]) {
        for i from 8601 to 8637 {
            tea = to_item(i);
            cuppas[count (cuppas)] = tea;
            pricetotal += get_price(tea, 0.5);
        }
        
        sort cuppas by -get_price(value, 0.5);
        shaketree = pricetotal * 3 / 37;
        
        #if (!silent) {
            print("Avg value from shaking the tree is " + shaketree + " meat","blue");
            print("Best tea is " + cuppas[0] + " at " + historical_price(cuppas[0]) + " meat","blue");
        #}
        
        if (shaketree > historical_price(cuppas[0])) {
            cuppacmd = "shake";
            cuppaconfirm = "Shake teatree?";
        } else {
            cuppacmd = cuppas[0].to_string().substring(6);
            cuppaconfirm = "Pick " + cuppacmd + " from teatree?";
        }
        
        if (silent || user_confirm(cuppaconfirm)) {
            cli_execute("teatree " + cuppacmd);
        }
    }
}
 
void use_fire_starting_kit() {
    // Fire-starting kit
    if (item_amount($item[CSA fire-starting kit]) >= 1 && !to_boolean(get_property("_fireStartingKitUsed"))) {
        if (hippy_stone_broken()) {
            set_property("choiceAdventure595", 1);
        } else {
            set_property("choiceAdventure595", 2);
        }
        use(1, $item[CSA fire-starting kit]);
        set_property("choiceAdventure595", 0);
    }
}
 
void pull_stuff() {
    int[item] max_to_pull; string current_clan;
    
    if (my_name() == "ereinion") {
        current_clan = get_clan_name();
        max_to_pull[$item[jekyllin hide belt]] = 3;
        max_to_pull[$item[hypnodisk]] = 1;
        
        if (current_clan != "Hardcore Oxygenation") {
            clanhop("Hardcore Oxygenation");
        }
        batch_open();
        foreach it in max_to_pull {
            if (stash_amount(it) > 0) {
                take_stash(min(max_to_pull[it], stash_amount(it)), it);
            }
        }
        batch_close();
        // Go home
        if (current_clan != get_clan_name()) {
            clanhop(current_clan);
        }
    }
}
 
void main() {
    // Stuff we always do
    if (item_amount($item[personal massager]) > 0) {
        print ("Putting " + item_amount($item[personal massager]) + " " + ((item_amount($item[personal massager]) > 1)? to_plural($item[personal massager]) : to_string($item[personal massager])) + ".", "blue");
        put_display(item_amount($item[personal massager]), $item[personal massager]);
    }
    set_property("allowNonMoodBurning", "true");
    if (my_name() == "ereinion" && can_interact()) {
        set_property("allowNonMoodBurning", "false");
    }
    
    // Stuff to do when out of ronin
    if (can_interact()) {// && !to_boolean(get_property("breakfastCompleted"))) {
        // BittyCar
        if (item_amount($item[BittyCar MeatCar]) >= 1 && get_property("_bittycar") != "meatcar") {
            use(1, $item[BittyCar MeatCar]);
        } else if (item_amount($item[BittyCar SoulCar]) >= 1 && get_property("_bittycar") == "") {
            use(1, $item[BittyCar SoulCar]);
        }
        
        // Deck of Every Card
        if (item_amount($item[Deck of Every Card]) > 0) {  // && my_name() != "ereinion") {
            switch (to_int(get_property("_deckCardsDrawn"))) {
                // Kan trekke tre kort
                case 0:
                    cli_execute("play 1952 mickey mantle");
                // Kan trekke to
                case 1: case 2: case 3: case 4:  case 5:
                  cli_execute("play ancestral recall");
                // Kan trekke eittcase 6:
                case 7: case 8: case 9: case 10:
                  cli_execute("play island");
                default:
            }
        }
        
        // Trade yeti skins
        if (is_accessible($coinmaster[The Trapper])  && item_amount($item[yeti fur]) >  0) {
            buy ($coinmaster[The Trapper], item_amount($item[yeti fur]), $item[yak skin]);
        }
        
        use_fire_starting_kit();
        check_chateau();
        check_clan();
        
        // Summoning
        if (have_skill($skill[Summon Annoyance])) {
            use_skill(1, $skill[Summon Annoyance]);
        }
        
        // Rainbow Gravitation & Summon Clip Art
        if (my_name() == "ereinion" || my_name() == "algen" || my_name() == "the conqueror worm") {
            cli_execute("call Profitable summons.ash");
            if (my_name() == "ereinion") {
                cli_execute("call Rainbow Gravitation.ash");
            }
        }
        
        if (to_boolean(get_property("hasDetectiveSchool"))) {
            solveAllCases(false);
        }
        // Harvest teatree
        harvest_teatree(false);
        
        // Restock goodie bags
        if (get_clan_name() == "'); drop table clans;--") {
            checkForGoodies();
        }
        
        // Pull stuff
        pull_stuff();
        
        check_elemental_planes();
        get_gene_tonics();
        
        // Demand sandwich
        if (my_path() == "Avatar of Boris") {
            use_skill(3, $skill[Demand Sandwich]);
        }
        
        // Restock stolen items
        main@pvploot();
    }
}