alchemy.c

Go to the documentation of this file.

/*
 * Crossfire -- cooperative multi-player graphical RPG and adventure game
 *
 * Copyright (c) 1999-2014 Mark Wedel and the Crossfire Development Team
 * Copyright (c) 1992 Frank Tore Johansen
 *
 * Crossfire is free software and comes with ABSOLUTELY NO WARRANTY. You are
 * welcome to redistribute it under certain conditions. For details, please
 * see COPYING and LICENSE.
 *
 * The authors can be reached via e-mail at <crossfire@metalforge.org>.
 */
 
/* March 96 - Laid down original code. -b.t. thomas@astro.psu.edu */
 
#include "global.h"
 
#include <assert.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
 
#include "object.h"
#include "shop.h"
#include "skills.h"
#include "spells.h"
#include "sproto.h"
 
#if 0
#define ALCHEMY_DEBUG
#endif
 
#if 0
#define EXTREME_ALCHEMY_DEBUG
#endif
 
static const char *const cauldron_effect [] = {
    "vibrates briefly",
    "produces a cloud of steam",
    "emits bright flames",
    "pours forth heavy black smoke",
    "emits sparks",
    "shoots out small flames",
    "whines painfully",
    "hiccups loudly",
    "wheezes",
    "burps",
    "shakes",
    "rattles",
    "makes chugging sounds",
    "smokes heavily for a while"
};
 
 
static int is_defined_recipe(const recipe *rp, const object *cauldron);
static const recipe *find_recipe(const recipelist *fl, int formula, object *ingredients);
static int content_recipe_value(object *op);
static int numb_ob_inside(const object *op);
static void alchemy_failure_effect(object *op, object *cauldron, const recipe *rp, int danger);
static object *attempt_recipe(object *caster, object *cauldron, int ability, const recipe *rp, int nbatches, int ignore_cauldron);
static int calc_alch_danger(object *caster, object *cauldron, const recipe *rp);
static object *make_item_from_recipe(object *cauldron, const recipe *rp);
static void remove_contents(object *first_ob, object *save_item);
static void adjust_product(object *item, int lvl, int yield);
static object *find_transmution_ob(object *first_ingred, const recipe *rp, size_t *rp_arch_index, int create_item);
static void attempt_do_alchemy(object *caster, object *cauldron);
 
static const char *cauldron_sound(void) {
    int size = sizeof(cauldron_effect)/sizeof(char *);
 
    return cauldron_effect[rndm(0, size-1)];
}
 
static float chance_fn(int diff) {
    if (diff > 10)
        return MAX(.01, .3 - (diff - 10) * .03);
 
    if (diff > -10)
        return .5 + .02 * (float)(-diff);
 
    return MIN(.95, .70 + (-diff - 10) * .01);
}
 
static float recipe_chance(const recipe *rp, const object *skill, const object *cauldron) {
    assert(rp);
    assert(skill);
    assert(cauldron);
 
    const int cauldron_add_skill = (cauldron->magic + 1) / 2;
    const int eff_skill = skill->level + cauldron_add_skill;
    return chance_fn(rp->diff - eff_skill);
}
 
static void attempt_do_alchemy(object *caster, object *cauldron) {
    const recipelist *fl;
    const recipe *rp = NULL;
    float success_chance;
    int numb, ability = 1;
    int formula = 0;
    object *item, *skop;
 
    if (caster->type != PLAYER)
        return; /* only players for now */
 
    /* if no ingredients, no formula! lets forget it */
    if (!(formula = content_recipe_value(cauldron))) {
        draw_ext_info_format(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                             "The %s is empty.",
                             cauldron->name);
        return;
    }
 
    numb = numb_ob_inside(cauldron);
    if ((fl = get_formulalist(numb))) {
        if (QUERY_FLAG(caster, FLAG_WIZ)) {
            rp = find_recipe(fl, formula, cauldron->inv);
            if (rp != NULL) {
#ifdef ALCHEMY_DEBUG
                if (strcmp(rp->title, "NONE"))
                    LOG(llevDebug, "WIZ got formula: %s of %s\n", rp->arch_name[0], rp->title);
                else
                    LOG(llevDebug, "WIZ got formula: %s (nbatches:%d)\n", rp->arch_name[0], formula/rp->index);
#endif
                attempt_recipe(caster, cauldron, ability, rp, formula/rp->index, !is_defined_recipe(rp, cauldron));
            } else
                LOG(llevDebug, "WIZ couldn't find formula for ingredients.\n");
            return;
        } /* End of WIZ alchemy */
 
        /* find the recipe */
        rp = find_recipe(fl, formula, cauldron->inv);
        if (rp != NULL) {
            uint64_t value_ingredients;
            uint64_t value_item;
            int attempt_shadow_alchemy;
 
            /* the caster gets an increase in ability based on thier skill lvl */
            if (rp->skill != NULL) {
                skop = find_skill_by_name(caster, rp->skill);
                if (!skop) {
                    draw_ext_info(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_MISSING,
                                  "You do not have the proper skill for this recipe");
                } else {
                    ability += skop->level*((4.0+cauldron->magic)/4.0);
                }
            } else {
                LOG(llevDebug, "Recipe %s has NULL skill!\n", rp->title);
                return;
            }
 
            if (rp->cauldron == NULL) {
                LOG(llevDebug, "Recipe %s has NULL cauldron!\n", rp->title);
                return;
            }
 
            if (rp->min_level != 0 && skop->level < rp->min_level) {
                draw_ext_info(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                    "You aren't skilled enough to try this recipe.");
                return;
            }
 
            /* determine value of ingredients */
            value_ingredients = 0;
            FOR_INV_PREPARE(cauldron, tmp)
                value_ingredients += price_base(tmp);
            FOR_INV_FINISH();
 
            attempt_shadow_alchemy = !is_defined_recipe(rp, cauldron);
 
            /* create the object **FIRST**, then decide whether to keep it. */
            if ((item = attempt_recipe(caster, cauldron, ability, rp, formula/rp->index, attempt_shadow_alchemy)) != NULL) {
                /*  compute base chance of recipe success */
                success_chance = recipe_chance(rp, skop, cauldron);
 
#ifdef ALCHEMY_DEBUG
                LOG(llevDebug, "percent success chance =  %f ab%d / diff%d*lev%d\n", success_chance, ability, rp->diff, item->level);
#endif
 
                value_item = price_base(item);
                if (attempt_shadow_alchemy && value_item > value_ingredients) {
#ifdef ALCHEMY_DEBUG
#ifndef WIN32
                    LOG(llevDebug, "Forcing failure for shadow alchemy recipe because price of ingredients (%llu) is less than price of result (%llu).\n", value_ingredients, value_item);
#else
                    LOG(llevDebug, "Forcing failure for shadow alchemy recipe because price of ingredients (%I64d) is less than price of result (%I64d).\n", value_ingredients, value_item);
#endif
#endif
                /* roll the dice */
                } else if (random_roll(0, 101, caster, PREFER_LOW) <= 100.0*success_chance) {
                    change_exp(caster, rp->exp, rp->skill, SK_EXP_NONE);
                    return;
                }
            }
        }
    }
    /* if we get here, we failed!! */
    alchemy_failure_effect(caster, cauldron, rp, calc_alch_danger(caster, cauldron, rp));
}
 
static int content_recipe_value(object *op) {
    char name[MAX_BUF];
    int tval = 0, formula = 0;
 
    FOR_INV_PREPARE(op, tmp) {
        tval = 0;
        safe_strncpy(name, tmp->name, sizeof(name));
        if (tmp->title)
            snprintf(name, sizeof(name), "%s %s", tmp->name, tmp->title);
        tval = (strtoint(name)*NROF(tmp));
#ifdef ALCHEMY_DEBUG
        LOG(llevDebug, "Got ingredient %d %s(%d)\n", NROF(tmp), name, tval);
#endif
        formula += tval;
    } FOR_INV_FINISH();
#ifdef ALCHEMY_DEBUG
    LOG(llevDebug, " Formula value=%d\n", formula);
#endif
    return formula;
}
 
static int numb_ob_inside(const object *op) {
    int o_number = 0;
 
    FOR_INV_PREPARE(op, tmp)
        o_number++;
    FOR_INV_FINISH();
#ifdef ALCHEMY_DEBUG
    LOG(llevDebug, "numb_ob_inside(%s): found %d ingredients\n", op->name, o_number);
#endif
    return o_number;
}
 
static object *attempt_recipe(object *caster, object *cauldron, int ability, const recipe *rp, int nbatches, int ignore_cauldron) {
    object *item = NULL, *skop;
    /* this should be passed to this fctn, not effiecent cpu use this way */
    int batches = abs(nbatches);
 
    /* is the cauldron the right type? */
    if (!ignore_cauldron && (strcmp(rp->cauldron, cauldron->arch->name) != 0)) {
        draw_ext_info(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_ERROR,
                      "You are not using the proper facilities for this formula.");
        return NULL;
    }
 
    skop = find_skill_by_name(caster, rp->skill);
    /* does the caster have the skill? */
    if (!skop)
        return NULL;
 
    /* code required for this recipe, search the caster */
    if (rp->keycode) {
        object *tmp;
 
        tmp = object_find_by_type_and_slaying(caster, FORCE, rp->keycode);
        if (tmp == NULL) { /* failure--no code found */
            draw_ext_info(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_ERROR,
                          "You know the ingredients, but not the technique.  Go learn how to do this recipe.");
            return NULL;
        }
    }
 
#ifdef EXTREME_ALCHEMY_DEBUG
    LOG(llevDebug, "attempt_recipe(): got %d nbatches\n", nbatches);
    LOG(llevDebug, "attempt_recipe(): using recipe %s\n", rp->title ? rp->title : "unknown");
#endif
 
    if ((item = make_item_from_recipe(cauldron, rp)) != NULL) {
        remove_contents(cauldron->inv, item);
        /* adj lvl, nrof on caster level */
        adjust_product(item, ability, rp->yield ? (rp->yield*batches) : batches);
 
        if (item->type == POTION) {
            item->level = MAX(item->level, skop->level);
        }
 
        if (!item->env && (item = object_insert_in_ob(item, cauldron)) == NULL) {
            draw_ext_info(NDI_UNIQUE, 0, caster, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                          "Nothing happened.");
        } else {
            draw_ext_info_format(NDI_UNIQUE, 0, caster,
                                 MSG_TYPE_SKILL, MSG_TYPE_SKILL_SUCCESS,
                                 "The %s %s.",
                                 cauldron->name, cauldron_sound());
        }
    }
    return item;
}
 
static void adjust_product(object *item, int adjust, int yield) {
    int nrof = 1;
 
    if (!yield)
        yield = 1;
    if (adjust <= 0)
        adjust = 1; /* lets avoid div by zero! */
    if (item->nrof) {
        nrof = (1.0-1.0/(adjust/10.0+1.0))*(rndm(0, yield-1)+rndm(0, yield-1)+rndm(0, yield-1))+1;
        if (nrof > yield)
            nrof = yield;
        item->nrof = nrof;
    }
}
 
static object *make_item_from_recipe(object *cauldron, const recipe *rp) {
    const artifact *art = NULL;
    object *item = NULL;
    size_t rp_arch_index;
 
    if (rp == NULL)
        return (object *)NULL;
 
    /* Find the appropriate object to transform...*/
    if ((item = find_transmution_ob(cauldron->inv, rp, &rp_arch_index, 1)) == NULL) {
        LOG(llevDebug, "make_alchemy_item(): failed to create alchemical object.\n");
        return (object *)NULL;
    }
 
    /* If item is already in container, we need to remove its weight, since it can change later on. */
    if (item->env != NULL)
        object_sub_weight(cauldron, item->weight*NROF(item));
 
    /* Find the appropriate artifact template...*/
    if (strcmp(rp->title, "NONE")) {
        int item_power_delta = 0;
        if ((art = locate_recipe_artifact(rp, rp_arch_index)) == NULL) {
            LOG(llevError, "make_alchemy_item(): failed to locate recipe artifact.\n");
            LOG(llevDebug, "  --requested recipe: %s of %s.\n", rp->arch_name[0], rp->title);
            return (object *)NULL;
        }
        transmute_materialname(item, art->item);
        if (rp->transmute) {
            /* If we change an item, then we must keep the item power.
             * Else this allows for instance using a helmet+5 (item power 5) for a
             * helmet of Xebinon, giving a helmet of Xebinon+5 with item power 0. */
            item_power_delta = item->item_power - item->arch->clone.item_power;
        }
        give_artifact_abilities(item, art->item);
        item->item_power += item_power_delta;
        if (is_identified(item)) {
            /* artifacts are generated unidentified, so if the item is identified we must give it its real properties. */
            object_give_identified_properties(item);
        }
    }
    if (item->env != NULL)
        object_add_weight(cauldron, item->weight*NROF(item));
 
    if (QUERY_FLAG(cauldron, FLAG_CURSED))
        SET_FLAG(item, FLAG_CURSED);
    if (QUERY_FLAG(cauldron, FLAG_DAMNED))
        SET_FLAG(item, FLAG_DAMNED);
 
    return item;
}
 
static object *find_transmution_ob(object *first_ingred, const recipe *rp, size_t *rp_arch_index, int create_item) {
    object *item = NULL;
 
    *rp_arch_index = 0;
 
    if (rp->transmute) { /* look for matching ingredient/prod archs */
        item = first_ingred;
        FOR_OB_AND_BELOW_PREPARE(item) {
            size_t i;
 
            for (i = 0; i < rp->arch_names; i++) {
                /* Items with titles are skipped to avoid shadow alchemy ability stacking. */
                if (strcmp(item->arch->name, rp->arch_name[i]) == 0 && !(item->title)) {
                    *rp_arch_index = i;
                    break;
                }
            }
            if (i < rp->arch_names)
                break;
        } FOR_OB_AND_BELOW_FINISH();
    }
 
    /* failed, create a fresh object. Note no nrof>1 because that would
     * allow players to create massive amounts of artifacts easily */
    if (create_item && (!item || item->nrof > 1)) {
        *rp_arch_index = RANDOM()%rp->arch_names;
        item = create_archetype(rp->arch_name[*rp_arch_index]);
    }
 
#ifdef ALCHEMY_DEBUG
    LOG(llevDebug, "recipe calls for%stransmution.\n", rp->transmute ? " " : " no ");
    if (item != NULL) {
        LOG(llevDebug, " find_transmutable_ob(): returns arch %s(sp:%d)\n", item->arch->name, item->stats.sp);
    }
#endif
 
    return item;
}
 
static void alchemy_failure_effect(object *op, object *cauldron, const recipe *rp, int danger) {
    int level = 0;
 
    if (!op || !cauldron)
        return;
 
    if (rp && rp->failure_arch) {
        object *failure = create_archetype(rp->failure_arch);
        if (!failure) {
            LOG(llevError, "invalid failure_arch %s for recipe %s\n", rp->failure_arch, rp->title);
            return;
        }
 
        remove_contents(cauldron->inv, NULL);
 
        object_insert_in_ob(failure, cauldron);
        if (rp->failure_message) {
            draw_ext_info(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE, rp->failure_message);
        }
        return;
    }
 
    if (danger > 1)
        level = random_roll(1, danger, op, PREFER_LOW);
 
#ifdef ALCHEMY_DEBUG
    LOG(llevDebug, "Alchemy_failure_effect(): using level=%d\n", level);
#endif
 
    /* possible outcomes based on level */
    if (level < 25) {         /* INGREDIENTS USED/SLAGGED */
        object *item = NULL;
 
        if (rndm(0, 2)) { /* slag created */
            object *tmp;
            int weight = 0;
            uint16_t material = M_STONE;
 
            FOR_INV_PREPARE(cauldron, inv) { /* slag has coadded ingredient properties */
                weight += inv->weight;
                if (!(material&inv->material))
                    material |= inv->material;
            } FOR_INV_FINISH();
            tmp = create_archetype("rock");
            tmp->weight = weight;
            tmp->value = 0;
            tmp->material = material;
            tmp->materialname = add_string("stone");
            free_string(tmp->name);
            tmp->name = add_string("slag");
            if (tmp->name_pl)
                free_string(tmp->name_pl);
            tmp->name_pl = add_string("slags");
            item = object_insert_in_ob(tmp, cauldron);
            CLEAR_FLAG(tmp, FLAG_CAN_ROLL);
            CLEAR_FLAG(tmp, FLAG_NO_PICK);
            tmp->move_block = 0;
        }
        remove_contents(cauldron->inv, item);
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                             "The %s %s.",
                             cauldron->name, cauldron_sound());
        return;
    } else if (level < 40) {                 /* MAKE TAINTED ITEM */
        object *tmp = NULL;
 
        /*
         * Note by Nicolas Weeger 2010-09-26
         * This is an incorrect part.
         * Calling again attempt_recipe in case of failure will apply again the artifact
         * combination to the item.
         * This leads to items with eg 100% resist, or more.
         * So use the actual item in the cauldron, don't retry the recipe.
         * This should fix bug #2020224: buggy(?) crafting yields.
         *
        if (!rp)
            if ((rp = get_random_recipe((recipelist *)NULL)) == NULL)
                return;
         */
 
        if ((tmp = cauldron->inv)) /*attempt_recipe(op, cauldron, 1, rp, -1, 0)))*/ {
            if (!QUERY_FLAG(tmp, FLAG_CURSED)) { /* curse it */
                SET_FLAG(tmp, FLAG_CURSED);
                CLEAR_FLAG(tmp, FLAG_KNOWN_CURSED);
                CLEAR_FLAG(tmp, FLAG_IDENTIFIED);
            }
 
            /* the apply code for potions already deals with cursed
             * potions, so any code here is basically ignored.
             */
            if (tmp->type == FOOD) {
                tmp->stats.hp = random_roll(0, 149, op, PREFER_LOW);
            }
            tmp->value = 0; /* unsaleable item */
 
            /* change stats downward */
            do {
                change_attr_value(&tmp->stats, rndm(0, 6), -1*(rndm(1, 3)));
            } while (rndm(0, 2));
        }
        return;
    }
#if 0
    /*
    Note: this does not work as expected...
    At this point there is only one item in the cauldron, and get_formulalist(0) will return
    the first formula list for recipes with 1 ingredient.
    So disable this, and just use the next case.
     */
 
    if (level == 40) {                   /* MAKE RANDOM RECIPE */
        recipelist *fl;
        int numb = numb_ob_inside(cauldron);
 
        fl = get_formulalist(numb-1); /* take a lower recipe list */
        if (fl && (rp = get_random_recipe(fl)))
            /* even though random, don't grant user any EXP for it */
            (void)attempt_recipe(op, cauldron, 1, rp, -1, 0);
        else
            alchemy_failure_effect(op, cauldron, rp, level-1);
        return;
 
    } else
#endif
        if (level < 45) {                 /* INFURIATE NPC's */
        /* this is kind of kludgy I know...*/
        object_set_enemy(cauldron, op);
        monster_npc_call_help(cauldron);
        object_set_enemy(cauldron, NULL);
 
        alchemy_failure_effect(op, cauldron, rp, level-5);
        return;
    } else if (level < 50) {                 /* MINOR EXPLOSION/FIREBALL */
        object *tmp;
 
        remove_contents(cauldron->inv, NULL);
        switch (rndm(0, 2)) {
        case 0:
            tmp = create_archetype("bomb");
            tmp->stats.dam = random_roll(1, level, op, PREFER_LOW);
            tmp->stats.hp = random_roll(1, level, op, PREFER_LOW);
            draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                                 "The %s creates a bomb!",
                                 cauldron->name);
            break;
 
        default:
            tmp = create_archetype("fireball");
            tmp->stats.dam = random_roll(1, level, op, PREFER_LOW)/5+1;
            tmp->stats.hp = random_roll(1, level, op, PREFER_LOW)/10+2;
            draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                                 "The %s erupts in flame!",
                                 cauldron->name);
            break;
        }
        object_insert_in_map_at(tmp, op->map, NULL, 0, cauldron->x, cauldron->y);
        return;
    } else if (level < 60) {                 /* CREATE MONSTER */
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                             "The %s %s.", cauldron->name, cauldron_sound());
        remove_contents(cauldron->inv, NULL);
        return;
    } else if (level < 80) {                 /* MAJOR FIRE */
        object *fb = create_archetype(SP_MED_FIREBALL);
 
        remove_contents(cauldron->inv, NULL);
        fire_arch_from_position(cauldron, cauldron, cauldron->x, cauldron->y, 0, fb);
        object_free_drop_inventory(fb);
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                             "The %s erupts in flame!",
                             cauldron->name);
        return;
    } else if (level < 100) {                /* WHAMMY the CAULDRON */
        if (!QUERY_FLAG(cauldron, FLAG_CURSED)) {
            SET_FLAG(cauldron, FLAG_CURSED);
            CLEAR_FLAG(cauldron, FLAG_KNOWN_CURSED);
            CLEAR_FLAG(cauldron, FLAG_IDENTIFIED);
        } else
            cauldron->magic--;
        cauldron->magic -= random_roll(0, 4, op, PREFER_LOW);
        if (rndm(0, 1)) {
            remove_contents(cauldron->inv, NULL);
            draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                                 "Your %s turns darker then makes a gulping sound!",
                                 cauldron->name);
        } else
            draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                                 "Your %s becomes darker.",
                                 cauldron->name);
        return;
    } else if (level < 110) {                /* SUMMON EVIL MONSTERS */
        object *tmp = get_random_mon(level/5);
 
        remove_contents(cauldron->inv, NULL);
        if (!tmp)
            alchemy_failure_effect(op, cauldron, rp, level);
        else if (summon_hostile_monsters(cauldron, random_roll(1, 10, op, PREFER_LOW), tmp->arch->name))
            draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                                 "The %s %s and then pours forth monsters!",
                                 cauldron->name, cauldron_sound());
        return;
    } else if (level < 150) {                /* COMBO EFFECT */
        int roll = rndm(1, 3);
        while (roll) {
            alchemy_failure_effect(op, cauldron, rp, level-39);
            roll--;
        }
        return;
    } else if (level == 151) {               /* CREATE RANDOM ARTIFACT */
        object *tmp;
 
        /* this is meant to be better than prior possiblity,
         * in this one, we allow *any *valid alchemy artifact
           * to be made (rather than only those on the given
         * formulalist) */
        if (!rp)
            rp = get_random_recipe((recipelist *)NULL);
        if (rp && (tmp = create_archetype(rp->arch_name[RANDOM()%rp->arch_names]))) {
            generate_artifact(tmp, random_roll(1, op->level/2+1, op, PREFER_HIGH)+1);
            if ((tmp = object_insert_in_ob(tmp, cauldron))) {
                remove_contents(cauldron->inv, tmp);
                draw_ext_info_format(NDI_UNIQUE, 0, op,
                                     MSG_TYPE_SKILL, MSG_TYPE_SKILL_SUCCESS,
                                     "The %s %s.",
                                     cauldron->name, cauldron_sound());
            }
        }
        return;
    } else {                /* MANA STORM - watch out!! */
        object *tmp = create_archetype(LOOSE_MANA);
        draw_ext_info(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_FAILURE,
                      "You unwisely release potent forces!");
        remove_contents(cauldron->inv, NULL);
        cast_magic_storm(op, tmp, level);
        return;
    }
}
 
static void remove_contents(object *first_ob, object *save_item) {
    object *tmp;
 
    tmp = first_ob;
    FOR_OB_AND_BELOW_PREPARE(tmp) {
        if (tmp != save_item) {
            if (tmp->inv)
                remove_contents(tmp->inv, NULL);
            object_remove(tmp);
            object_free_drop_inventory(tmp);
        }
    } FOR_OB_AND_BELOW_FINISH();
}
 
static int calc_alch_danger(object *caster, object *cauldron, const recipe *rp) {
    int danger = 0;
 
    /* Knowing alchemy skill reduces yer risk */
    danger -= caster->chosen_skill ? caster->chosen_skill->level : caster->level;
 
    /* better cauldrons reduce risk */
    danger -= cauldron->magic;
 
    /* Higher Int, lower the risk */
    danger -= 3*(caster->stats.Int-15);
 
    /* Ingredients. */
    FOR_INV_PREPARE(cauldron, item) {
        /* Nicolas Weeger: no reason why this is the case.
         danger += item->weight / 100;
         */
        danger++;
        if (QUERY_FLAG(item, FLAG_CURSED) || QUERY_FLAG(item, FLAG_DAMNED))
            danger += 5;
    } FOR_INV_FINISH();
 
    if (rp == NULL)
        danger += 110;
    else
        danger += rp->diff*3;
 
    /* Using a bad device is *majorly *stupid */
    if (QUERY_FLAG(cauldron, FLAG_CURSED))
        danger += 80;
    if (QUERY_FLAG(cauldron, FLAG_DAMNED))
        danger += 200;
 
#ifdef ALCHEMY_DEBUG
    LOG(llevDebug, "calc_alch_danger() returned danger=%d\n", danger);
#endif
 
    return danger;
}
 
static int is_defined_recipe(const recipe *rp, const object *cauldron) {
    uint32_t batches_in_cauldron;
    const linked_char *ingredient;
    int number;
 
    /* check for matching number of ingredients */
    number = 0;
    for (ingredient = rp->ingred; ingredient != NULL; ingredient = ingredient->next)
        number++;
    FOR_INV_PREPARE(cauldron, ob)
        number--;
    FOR_INV_FINISH();
    if (number != 0)
        return 0;
 
    /* check for matching ingredients */
    batches_in_cauldron = 0;
    for (ingredient = rp->ingred; ingredient != NULL; ingredient = ingredient->next) {
        uint32_t nrof;
        const char *name;
        int ok;
 
        /* determine and remove nrof from name */
        name = ingredient->name;
        nrof = 0;
        while (isdigit(*name)) {
            nrof = 10*nrof+(*name-'0');
            name++;
        }
        if (nrof == 0)
            nrof = 1;
        while (*name == ' ')
            name++;
 
        /* find the current ingredient in the cauldron */
        ok = 0;
        FOR_INV_PREPARE(cauldron, ob) {
            char name_ob[MAX_BUF];
            const char *name2;
 
            if (ob->title == NULL)
                name2 = ob->name;
            else {
                snprintf(name_ob, sizeof(name_ob), "%s %s", ob->name, ob->title);
                name2 = name_ob;
            }
 
            if (strcmp(name2, name) == 0) {
                if (ob->nrof%nrof == 0) {
                    uint32_t batches;
 
                    batches = ob->nrof/nrof;
                    if (batches_in_cauldron == 0) {
                        batches_in_cauldron = batches;
                        ok = 1;
                    } else if (batches_in_cauldron == batches)
                        ok = 1;
                }
                break;
            }
        } FOR_INV_FINISH();
        if (!ok)
            return(0);
    }
 
    return(1);
}
 
static const recipe *find_recipe(const recipelist *fl, int formula, object *ingredients) {
    const recipe *rp;
    const recipe *result;       /* winning recipe, or NULL if no recipe found */
    int recipes_matching; /* total number of matching recipes so far */
    int transmute_found;  /* records whether a transmuting recipe was found so far */
    size_t rp_arch_index;
 
#ifdef EXTREME_ALCHEMY_DEBUG
    LOG(llevDebug, "looking for formula %d:\n", formula);
#endif
    result = NULL;
    recipes_matching = 0;
    transmute_found = 0;
    for (rp = fl->items; rp != NULL; rp = rp->next) {
        /* check if recipe matches at all */
        if (formula%rp->index != 0) {
#ifdef EXTREME_ALCHEMY_DEBUG
            LOG(llevDebug, " formula %s of %s (%d) does not match\n", rp->arch_name[0], rp->title, rp->index);
#endif
            continue;
        }
 
        if (rp->transmute && find_transmution_ob(ingredients, rp, &rp_arch_index, 0) != NULL) {
#ifdef EXTREME_ALCHEMY_DEBUG
            LOG(llevDebug, " formula %s of %s (%d) is a matching transmuting formula\n", rp->arch_name[rp_arch_index], rp->title, rp->index);
#endif
            /* transmution recipe with matching base ingredient */
            if (!transmute_found) {
                transmute_found = 1;
                recipes_matching = 0;
            }
        } else if (transmute_found) {
#ifdef EXTREME_ALCHEMY_DEBUG
            LOG(llevDebug, " formula %s of %s (%d) matches but is not a matching transmuting formula\n", rp->arch_name[0], rp->title, rp->index);
#endif
            /* "normal" recipe found after previous transmution recipe => ignore this recipe */
            continue;
        }
#ifdef EXTREME_ALCHEMY_DEBUG
        else {
            LOG(llevDebug, " formula %s of %s (%d) matches\n", rp->arch_name[0], rp->title, rp->index);
        }
#endif
 
        if (rndm(0, recipes_matching) == 0)
            result = rp;
 
        recipes_matching++;
    }
 
    if (result == NULL) {
#ifdef ALCHEMY_DEBUG
        LOG(llevDebug, "couldn't find formula for ingredients.\n");
#endif
        return NULL;
    }
 
#ifdef ALCHEMY_DEBUG
    if (strcmp(result->title, "NONE") != 0)
        LOG(llevDebug, "got formula: %s of %s (nbatches:%d)\n", result->arch_name[0], result->title, formula/result->index);
    else
        LOG(llevDebug, "got formula: %s (nbatches:%d)\n", result->arch_name[0], formula/result->index);
#endif
    return result;
}
 
int use_alchemy(object *op) {
    object *unpaid_cauldron = NULL;
    object *unpaid_item = NULL;
    int did_alchemy = 0;
    char name[MAX_BUF];
 
    if (QUERY_FLAG(op, FLAG_WIZ))
        draw_ext_info(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_DM, "Note: alchemy in wizard-mode.\n");
 
    FOR_MAP_PREPARE(op->map, op->x, op->y, tmp) {
        if (QUERY_FLAG(tmp, FLAG_IS_CAULDRON)) {
            if (QUERY_FLAG(tmp, FLAG_UNPAID)) {
                unpaid_cauldron = tmp;
                continue;
            }
            unpaid_item = object_find_by_flag(tmp, FLAG_UNPAID);
            if (unpaid_item != NULL)
                continue;
 
            attempt_do_alchemy(op, tmp);
            if (QUERY_FLAG(tmp, FLAG_APPLIED))
                esrv_send_inventory(op, tmp);
            did_alchemy = 1;
        }
    } FOR_MAP_FINISH();
    if (unpaid_cauldron) {
        query_base_name(unpaid_cauldron, 0, name, MAX_BUF);
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_ERROR,
                             "You must pay for your %s first!",
                             name);
    } else if (unpaid_item) {
        query_base_name(unpaid_item, 0, name, MAX_BUF);
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_SKILL, MSG_TYPE_SKILL_ERROR,
                             "You must pay for your %s first!",
                             name);
    }
 
    return did_alchemy;
}