cast_twisted(powc, BEH_FRIENDLY, you.pet_target);

        cast_twisted_resurrection(powc, BEH_FRIENDLY, you.pet_target);

void cast_twisted(int power, beh_type corps_beh, int corps_hit);

void cast_twisted_resurrection(int pow, beh_type corps_beh,
                               unsigned short corps_hit);

void cast_twisted(int power, beh_type corps_beh, int corps_hit)

void cast_twisted_resurrection(int pow, beh_type corps_beh,
                               unsigned short corps_hit)

    int total_mass = 0;
    int num_corpses = 0;
    monster_type type_resurr = MONS_ABOMINATION_SMALL;
    char colour;
    unsigned char rotted = 0;

    int total_mass = 0;
    int num_corpses = 0;
    int rotted = 0;

            total_mass += mons_weight( mitm[objl].plus );

            total_mass += mons_weight(mitm[objl].plus);

            destroy_item( objl );

            destroy_item(objl);

    // the average will be approximately 10 * power (or about 1000

    // the average will be approximately 10 * pow (or about 1000

    total_mass += roll_dice( 20, power );

    total_mass += roll_dice(20, pow);

    if (total_mass < 400 + roll_dice( 2, 500 )

    if (total_mass < 400 + roll_dice(2, 500)

    if (total_mass > 500 + roll_dice( 3, 1000 ))
        type_resurr = MONS_ABOMINATION_LARGE;

    monster_type mon =
        (total_mass > 500 + roll_dice(3, 1000)) ? MONS_ABOMINATION_LARGE
                                                : MONS_ABOMINATION_SMALL;

    if (rotted == num_corpses)
        colour = BROWN;
    else if (rotted >= random2( num_corpses ))
        colour = RED;
    else
        colour = LIGHTRED;

    char colour = (rotted == num_corpses)          ? BROWN :
                  (rotted >= random2(num_corpses)) ? RED
                                                   : LIGHTRED;
    int monster = create_monster(
                      mgen_data(mon, corps_beh, 0,
                      you.pos(), corps_hit, 0, MONS_PROGRAM_BUG, 0,
                      colour));

    mgen_data mg( type_resurr, corps_beh, 0,
                  you.pos(), corps_hit, 0, MONS_PROGRAM_BUG, 0,
                  colour );

    if (monster == -1)
    {
        mpr("The corpses collapse into a pulpy mess.");
        return;
    }

    int mon = create_monster(mg);

    // This was probably intended, but it's really boring. (jpeg)
    // Use menv[mon].number instead (set in create_monster()).
//    menv[mon].colour = colour;
    mpr("The heap of corpses melds into an agglomeration of writhing flesh!");

    if (mon == -1)
        mpr("The corpses collapse into a pulpy mess.");
    else

    if (mon == MONS_ABOMINATION_LARGE)

        // This was probably intended, but it's really boring. (jpeg)
        // Use menv[mon].number instead (set in create_monster()).
//        menv[mon].colour = colour;
        mpr("The heap of corpses melds into an agglomeration of writhing flesh!");
        if (type_resurr == MONS_ABOMINATION_LARGE)
        {
            menv[mon].hit_dice = 8 + total_mass / ((colour == LIGHTRED) ? 500 :

        menv[monster].hit_dice = 8 + total_mass / ((colour == LIGHTRED) ? 500 :

            if (menv[mon].hit_dice > 30)
                menv[mon].hit_dice = 30;

        if (menv[monster].hit_dice > 30)
            menv[monster].hit_dice = 30;

            // XXX: No convenient way to get the hit dice size right now.
            menv[mon].hit_points = hit_points( menv[mon].hit_dice, 2, 5 );
            menv[mon].max_hit_points = menv[mon].hit_points;

        // XXX: No convenient way to get the hit dice size right now.
        menv[monster].hit_points = hit_points(menv[monster].hit_dice, 2, 5);
        menv[monster].max_hit_points = menv[monster].hit_points;

            if (colour == LIGHTRED)
                menv[mon].ac += total_mass / 1000;
        }

        if (colour == LIGHTRED)
            menv[monster].ac += total_mass / 1000;

}                               // end cast_twisted()

}