Function erode_obj

src/trap.c:170–354

Generic erode-item function. * "ostr", if non-null, is an alternate string to print instead of the * object's name. * "type" is an ERODE_* value for the erosion type * "flags" is an or-ed list of EF_* flags * * Returns an erosion return value (ER_*) */

 * Returns an erosion return value (ER_*)
 */
int
erode_obj(
    struct obj *otmp,
    const char *ostr,
    int type,
    int ef_flags)
{
    static NEARDATA const char
        *const action[] = { "smoulder", "rust", "rot", "corrode", "crack" },
        *const msg[] = { "burnt", "rusted", "rotten", "corroded", "cracked" },
        *const bythe[] = { "heat", "oxidation", "decay", "corrosion",
                           "impact" }; /* this could use improvement... */
    boolean vulnerable = FALSE, is_primary = TRUE,
            check_grease = (ef_flags & EF_GREASE) ? TRUE : FALSE,
            print = (ef_flags & EF_VERBOSE) ? TRUE : FALSE,
            crackers = FALSE, /* True: different feedback if otmp destroyed */
            uvictim, vismon, visobj;
    int erosion, cost_type;
    struct monst *victim;

    if (!otmp)
        return ER_NOTHING;

    victim = carried(otmp) ? &gy.youmonst
             : mcarried(otmp) ? otmp->ocarry
               : (struct monst *) 0;
    uvictim = (victim == &gy.youmonst);
    vismon = victim && (victim != &gy.youmonst) && canseemon(victim);
    /* Is gb.bhitpos correct here? Ugh. */
    visobj = (!victim && cansee(gb.bhitpos.x, gb.bhitpos.y)
              && (!is_pool(gb.bhitpos.x, gb.bhitpos.y)
                  || (next2u(gb.bhitpos.x,gb.bhitpos.y) && Underwater)));

    switch (type) {
    case ERODE_BURN:
        if (uvictim && inventory_resistance_check(AD_FIRE))
            return ER_NOTHING;
        vulnerable = is_flammable(otmp);
        check_grease = FALSE;
        cost_type = COST_BURN;
        break;
    case ERODE_RUST:
        vulnerable = is_rustprone(otmp);
        cost_type = COST_RUST;
        break;
    case ERODE_ROT:
        vulnerable = is_rottable(otmp);
        check_grease = FALSE;
        is_primary = FALSE;
        cost_type = COST_ROT;
        break;
    case ERODE_CORRODE:
        if (uvictim && inventory_resistance_check(AD_ACID))
            return ER_NOTHING;
        vulnerable = is_corrodeable(otmp);
        is_primary = FALSE;
        cost_type = COST_CORRODE;
        break;