this_step += stepping)

         this_step += stepping)

int num_blood_potions_from_corpse( int mons_class, int chunk_type = -1 );

            age = 2000;

            age = 2500;

int num_blood_potions_from_corpse(int mons_class, int chunk_type)
{
    if (chunk_type == -1)
        chunk_type = mons_corpse_effect(mons_class);
    // Max. amount is about one third of the max. amount for chunks.
    const int max_chunks = mons_weight( mons_class ) / 150;

// Maybe potions should automatically merge into those already on the floor,
// or the player's inventory.

    // Max. amount is about one third of the max. amount for chunks.
    int pot_quantity = max_chunks/3;
        pot_quantity = stepdown_value( pot_quantity, 2, 2, 6, 6 );
    // Halve number of potions obtained from contaminated chunk type corpses.
    if (chunk_type == CE_CONTAMINATED)
        pot_quantity /= 2;
    if (pot_quantity < 1)
        pot_quantity = 1;
    return (pot_quantity);
}
// If autopickup is active, the potions are auto-picked up after creation.

    // Max. amount is about one third of the max. amount for chunks.
    const int max_chunks = mons_weight( mons_class ) / 150;
    item.quantity  = 1 + random2( max_chunks/3 );
    item.quantity  = stepdown_value( item.quantity, 2, 2, 6, 6 );
    // Lower number of potions obtained from contaminated chunk type corpses.
    if (mons_corpse_effect( mons_class ) == CE_CONTAMINATED)
    {
        item.quantity /= (random2(3) + 1);

        if (item.quantity < 1)
            item.quantity = 1;
    }

    item.quantity = num_blood_potions_from_corpse(mons_class);

    // freshly killed: age = 200 --> potion timer = 2000 --> fresh !blood
    init_stack_blood_potions(item, (item.special - 100) * 15 + 500);

    // freshly killed: age = 200 --> potion timer = 2500 --> fresh !blood
    init_stack_blood_potions(item, (item.special - 100) * 20 + 500);

            int value = 1000;

            int value = 800;

                value += 500;

                value += 200;

static void _heal_from_food(int hp_amt, int mp_amt, bool unrot,
                            bool restore_str);

static void _heal_from_food(int hp_amt, int mp_amt = 0, bool unrot = false,
                            bool restore_str = false);

    mprf("satiated_amount: %d", satiated_amount);

                                !one_chance_in(3), false);

                                !one_chance_in(3));

// Here are some values for nutrition (quantity * 1000) and duration:
//    max_chunks      quantity    duration
//     1               1           1
//     2               1           1
//     3               1           2
//     4               1           2
//     5               1           2
//     6               2           3
//     7               2           3
//     8               2           3
//     9               2           4
//    10               2           4
//    12               3           5
//    15               3           5
//    20               4           6
//    25               4           6
//    30               5           7

    // This is the exact formula of corpse nutrition for chunk lovers.

    // Duration depends on corpse weight.

    int chunk_amount     = 1 + max_chunks/2;
        chunk_amount     = stepdown_value( chunk_amount, 4, 4, 12, 12 );

    int chunk_amount     = 1 + max_chunks/3;
        chunk_amount     = stepdown_value( chunk_amount, 6, 6, 12, 12 );

    int food_value       = CHUNK_BASE_NUTRITION;
//    int mass             = CHUNK_BASE_NUTRITION * chunk_amount;
    const int duration   = 1 + chunk_amount/2;

    // Add 1 for the artificial extra call at the start of draining.
    const int duration   = 1 + chunk_amount;
    // Use number of potions per corpse to calculate total nutrition, which
    // then gets distributed over the entire duration.
    int food_value = CHUNK_BASE_NUTRITION
                     * num_blood_potions_from_corpse(mons_type, chunk_type);

        {

            int hp_amt = 1 + you.experience_level/2;

            if (!end_feeding)

            // Human may give a bit of healing during feeding as long as
            // the corpse is still fairly fresh.
            if (corpse.special > 150)

                if (start_feeding)
                    mpr("This warm blood tastes really delicious!");

                int hp_amt = 1 + you.experience_level/3;

                // Human blood gives extra healing during feeding.
                if (hp_amt >= duration)
                    hp_amt /= duration;
                else if (x_chance_in_y(hp_amt, duration))
                    hp_amt = 1;

                if (!end_feeding)
                {
                    if (start_feeding)
                        mpr("This warm blood tastes really delicious!");

                _heal_from_food(hp_amt, 0, one_chance_in(duration/2),
                                one_chance_in(duration));
            }
            else
            {
                // Give the remainder of healing at the end.
                if (hp_amt > duration)

                    if (hp_amt >= duration)
                        hp_amt /= duration;
                    else if (x_chance_in_y(hp_amt, duration))
                        hp_amt = 1;
                    _heal_from_food(hp_amt);
                }
                else

                    _heal_from_food(hp_amt % duration, 0,
                                    one_chance_in(duration/2),
                                    one_chance_in(duration));

                    // Give the remainder of healing at the end.
                    if (hp_amt > duration)
                        _heal_from_food(hp_amt % duration);

        }

        {

            if (end_feeding)

            // Elven blood gives a bit of mana at the end of feeding, but
            // only from fairly fresh corpses.
            if (corpse.special > 150)

                // Elven blood gives mana at the end of feeding.
                const int mp_amt = 1 + random2(3);
                _heal_from_food(1, mp_amt, one_chance_in(duration/2),
                                one_chance_in(duration));

                if (end_feeding)
                {
                    const int mp_amt = 1 + random2(3);
                    _heal_from_food(1, mp_amt);
                }
                else if (start_feeding)
                    mpr("This warm blood tastes magically delicious!");

            else if (start_feeding)
                mpr("This warm blood tastes magically delicious!");

        }

                    else if (end_feeding)
                        _heal_from_food(1, 0, one_chance_in(duration), false);

                    else if (end_feeding && corpse.special > 150)
                        _heal_from_food(1);

                    food_value = CHUNK_BASE_NUTRITION/2;

                    food_value /= 2;

                    else if (end_feeding)
                        _heal_from_food(1, 0, one_chance_in(duration), false);

                    else if (end_feeding && corpse.special > 150)
                        _heal_from_food(1);

                    make_hungry(CHUNK_BASE_NUTRITION/2, false);

                    make_hungry(food_value/2, false);

                    food_value = CHUNK_BASE_NUTRITION/2;

                    food_value /= 2;

                    if (end_feeding)
                        _heal_from_food(1, 0, false, false);

                    // Sometimes heal by one hp.
                    if (end_feeding && corpse.special > 150 && coinflip())
                        _heal_from_food(1);

                    food_value = CHUNK_BASE_NUTRITION/2;

                    food_value /= 2;

                    if (end_feeding)
                        _heal_from_food(1, 0, false, false);

                    // No healing from bad mutagenic blood.

    else
        mprf("feeding finished: %d turns", duration);

    int chunk_amount     = 1 + max_chunks/2;
        chunk_amount     = stepdown_value( chunk_amount, 4, 4, 12, 12 );

    int duration = 1 + max_chunks/3;
        duration = stepdown_value( duration, 6, 6, 12, 12 );

    start_delay( DELAY_FEED_VAMPIRE, chunk_amount/2,
                 (int) invent, slot );

    start_delay( DELAY_FEED_VAMPIRE, duration, (int) invent, slot );