simple_god_message(" delivers you corpses!");

        simple_god_message(corpses_generated > 1 ? " delivers you corpses!"
                                                 : " delivers you a corpse!");

void offer_corpse(int corpse);

void offer_and_butcher_corpse(int corpse);

bool god_likes_fresh_corpses(god_type god);

    if (god_likes_butchery(which_god))

    if (god_likes_fresh_corpses(which_god))

        snprintf(info, INFO_SIZE, "you butcher corpses while praying%s",
                 verbose ? " (press <w>pc</w> to do so)" : "");

        snprintf(info, INFO_SIZE, "you sacrifice fresh corpses%s",
                 verbose ? " (by standing over them and <w>p</w>raying)" : "");

            move_item_to_grid( &thing_created, you.pos() );

            move_item_to_grid(&thing_created, you.pos());

    if (god_likes_butchery(god))

    if (god_likes_fresh_corpses(god) || god_likes_butchery(god))

    // Beoghites and Nemelexites offer the items they're standing on.

    // Gods that like fresh corpses, Beoghites and Nemelexites offer the
    // items they're standing on.

        && (you.religion == GOD_BEOGH ||  you.religion == GOD_NEMELEX_XOBEH))

        && (god_likes_fresh_corpses(you.religion)
            || you.religion == GOD_BEOGH || you.religion == GOD_NEMELEX_XOBEH))

        case DID_DEDICATED_BUTCHERY:  // a.k.a. field sacrifice

        case DID_DEDICATED_BUTCHERY:

                piety_change = -10;
                penance = 10;

                piety_change = -level;
                penance = level;

            case GOD_OKAWARU:
            case GOD_MAKHLEB:
            case GOD_TROG:
            case GOD_LUGONU:
                simple_god_message(" accepts your offering.");
                retval = true;
                if (random2(level + 10) > 5)
                    piety_change = 1;
                break;

                // killing only disapproved during prayer

                // Killing is only disapproved of during prayer.

                // Holy gods are easier to please this way

                // Holy gods are easier to please this way.

                // Holy gods are easier to please this way

                // Holy gods are easier to please this way.

    if (god_likes_fresh_corpses(god))
        return (true);

    if (god_likes_fresh_corpses(god))
    {
        return (item.base_type == OBJ_CORPSES
                    && item.sub_type == CORPSE_BODY
                    && !food_is_rotten(item));
    }

// out of 20 arrows, etc.) Does not modify the actual item in any way.

// out of 20 arrows, etc.).  Does not modify the actual item in any way.

    // item_value() multiplies by quantity.
    const int value = item_value(item) / item.quantity;
    switch (you.religion)

    if (god_likes_fresh_corpses(you.religion))
    {
        if (x_chance_in_y(13, 19))
        {
            gain_piety(1);
            relative_piety_gain = PIETY_SOME;
        }
    }
    else

    case GOD_SHINING_ONE:
        gain_piety(1);
        relative_piety_gain = PIETY_SOME;
        break;

        switch (you.religion)
        {
        case GOD_SHINING_ONE:
            gain_piety(1);
            relative_piety_gain = PIETY_SOME;
            break;

    case GOD_BEOGH:
    {
        const int item_orig = item.orig_monnum - 1;

        case GOD_BEOGH:
        {
            const int item_orig = item.orig_monnum - 1;

        int chance = 4;

            int chance = 4;

        if (item_orig == MONS_SAINT_ROKA)
            chance += 12;
        else if (item_orig == MONS_ORC_HIGH_PRIEST)
            chance += 8;
        else if (item_orig == MONS_ORC_PRIEST)
            chance += 4;

            if (item_orig == MONS_SAINT_ROKA)
                chance += 12;
            else if (item_orig == MONS_ORC_HIGH_PRIEST)
                chance += 8;
            else if (item_orig == MONS_ORC_PRIEST)
                chance += 4;

        if (food_is_rotten(item))
            chance--;
        else if (item.sub_type == CORPSE_SKELETON)
            chance -= 2;

            if (food_is_rotten(item))
                chance--;
            else if (item.sub_type == CORPSE_SKELETON)
                chance -= 2;

        if (x_chance_in_y(chance, 20))
        {
            gain_piety(1);
            relative_piety_gain = PIETY_SOME;

            if (x_chance_in_y(chance, 20))
            {
                gain_piety(1);
                relative_piety_gain = PIETY_SOME;
            }
            break;

        break;
    }

    case GOD_NEMELEX_XOBEH:
        if (you.attribute[ATTR_CARD_COUNTDOWN] && x_chance_in_y(value, 800))

        case GOD_NEMELEX_XOBEH:

            you.attribute[ATTR_CARD_COUNTDOWN]--;

            // item_value() multiplies by quantity.
            const int value = item_value(item) / item.quantity;
            if (you.attribute[ATTR_CARD_COUNTDOWN] && x_chance_in_y(value, 800))
            {
                you.attribute[ATTR_CARD_COUNTDOWN]--;

            mprf(MSGCH_DIAGNOSTICS, "Countdown down to %d",
                 you.attribute[ATTR_CARD_COUNTDOWN]);

                mprf(MSGCH_DIAGNOSTICS, "Countdown down to %d",
                     you.attribute[ATTR_CARD_COUNTDOWN]);

        }
        // Nemelex piety gain is fairly fast... at least
        // when you have low piety.
        if (item.base_type == OBJ_CORPSES && one_chance_in(2 + you.piety/50)
            || x_chance_in_y(value/2 + 1, 30 + you.piety/2))
        {
            if (is_artefact(item))
            {
                gain_piety(2);
                relative_piety_gain = PIETY_LOTS;

            else

            // Nemelex piety gain is fairly fast... at least when you
            // have low piety.
            if (item.base_type == OBJ_CORPSES && one_chance_in(2 + you.piety/50)
                || x_chance_in_y(value/2 + 1, 30 + you.piety/2))

                gain_piety(1);
                relative_piety_gain = PIETY_SOME;

                if (is_artefact(item))
                {
                    gain_piety(2);
                    relative_piety_gain = PIETY_LOTS;
                }
                else
                {
                    gain_piety(1);
                    relative_piety_gain = PIETY_SOME;
                }

        }

        if (item.base_type == OBJ_FOOD && item.sub_type == FOOD_CHUNK
            || is_blood_potion(item))
        {
            // Count chunks and blood potions towards decks of Summoning.
            you.sacrifice_value[OBJ_CORPSES] += value;
        }
        else if (item.base_type == OBJ_CORPSES)
        {

            if (item.base_type == OBJ_FOOD && item.sub_type == FOOD_CHUNK
                || is_blood_potion(item))
            {
                // Count chunks and blood potions towards decks of
                // Summoning.
                you.sacrifice_value[OBJ_CORPSES] += value;
            }
            else if (item.base_type == OBJ_CORPSES)
            {

            mprf(MSGCH_DIAGNOSTICS, "Corpse mass is %d",
                 item_mass(item));

                mprf(MSGCH_DIAGNOSTICS, "Corpse mass is %d",
                     item_mass(item));

            you.sacrifice_value[item.base_type] += item_mass(item);

                you.sacrifice_value[item.base_type] += item_mass(item);
            }
            else
                you.sacrifice_value[item.base_type] += value;
            break;

        else
            you.sacrifice_value[item.base_type] += value;
        break;

    default:
        break;

        default:
            break;
        }

        if (you.religion == GOD_SHINING_ONE)

        if (god_likes_fresh_corpses(you.religion))
            simple_god_message(" only cares about fresh corpses!");
        else if (you.religion == GOD_SHINING_ONE)

bool god_likes_butchery(god_type god)

bool god_likes_fresh_corpses(god_type god)

            || god == GOD_LUGONU
            || (god == GOD_KIKUBAAQUDGHA && you.piety >= piety_breakpoint(4)));

            || god == GOD_LUGONU);
}
bool god_likes_butchery(god_type god)
{
    return (god == GOD_KIKUBAAQUDGHA && you.piety >= piety_breakpoint(4));

void offer_corpse(int corpse)

void offer_and_butcher_corpse(int corpse)

    // dedicated butchery. Uh, call it a feature.

    // dedicated butchery.  Uh, call it a feature.

        "interrupt_offer_corpse = interrupt_butcher, hungry",

    if (can_sac && !rotten)

    if (can_sac)

        start_delay(DELAY_OFFER_CORPSE, 0, corpse_id);
        // Kiku torments if you butcher a corpse while praying.
        if (you.religion == GOD_KIKUBAAQUDGHA
            && you.piety >= piety_breakpoint(4))

        if (!rotten)

            simple_god_message(" inflicts torment against the living!");
            torment(TORMENT_KIKUBAAQUDGHA, you.pos());
            you.piety -= 8 + random2(4); // 8 to 12

            offer_and_butcher_corpse(corpse_id);
            // Kikubaaqudgha torments if you butcher a fresh corpse
            // while praying.
            if (you.religion == GOD_KIKUBAAQUDGHA
                && you.piety >= piety_breakpoint(4))
            {
                simple_god_message(" inflicts torment against the living!");
                torment(TORMENT_KIKUBAAQUDGHA, you.pos());
                you.piety -= 8 + random2(4); // 8 to 12
            }

        else
            simple_god_message(" refuses to accept that mouldy sacrifice!");

        if (can_sac && rotten)
        {
            simple_god_message(coinflip() ? " refuses to accept that"
                                            " mouldy sacrifice!"
                                          : " demands fresh blood!",
                               you.religion);
        }

        int work_req = 4 - mitm[corpse_id].plus2;
        if (work_req < 0)
            work_req = 0;

        int work_req = std::max(0, 4 - mitm[corpse_id].plus2);

    ABIL_KIKU_RECEIVE_CORPSE = 130,         //  130

    ABIL_KIKU_RECEIVE_CORPSES = 130,        //  130

    DELAY_OFFER_CORPSE,

static std::string _religion_help( god_type god )

static std::string _religion_help(god_type god)

        break;
    case GOD_BEOGH:
        result += "You can pray to sacrifice all orcish remains on your "
                  "square. Inscribe orcish remains with !p, !* or =p to avoid "
                  "sacrificing them accidentally.";

    if (god_likes_butchery(god))

    if (god_likes_fresh_corpses(god))

        result += "You can sacrifice corpses by dissecting"
                  " them during prayer.";

        result += "You can pray to sacrifice all fresh corpses on your "
                  "square. Inscribe fresh corpses with !p, !* or =p to avoid "
                  "sacrificing them accidentally.";

    case DELAY_OFFER_CORPSE:

        // Corpse keeps track of work in plus2 field, see handle_delay(). -- bwr

        // Corpse keeps track of work in plus2 field, see handle_delay(). - bwr

                || you.delay_queue[i].type == DELAY_BOTTLE_BLOOD
                || you.delay_queue[i].type == DELAY_OFFER_CORPSE)

                || you.delay_queue[i].type == DELAY_BOTTLE_BLOOD)

    return (delay == DELAY_BUTCHER || delay == DELAY_BOTTLE_BLOOD
            || delay == DELAY_OFFER_CORPSE);

    return (delay == DELAY_BUTCHER || delay == DELAY_BOTTLE_BLOOD);

            || you.delay_queue[i].type == DELAY_BOTTLE_BLOOD
            || you.delay_queue[i].type == DELAY_OFFER_CORPSE)

            || you.delay_queue[i].type == DELAY_BOTTLE_BLOOD)

            if (you.duration[DUR_PRAYER]
                && god_hates_butchery(you.religion))
            {

            if (you.duration[DUR_PRAYER])

            }

    else if (delay.type == DELAY_BUTCHER || delay.type == DELAY_BOTTLE_BLOOD
             || delay.type == DELAY_OFFER_CORPSE)

    else if (delay.type == DELAY_BUTCHER || delay.type == DELAY_BOTTLE_BLOOD)

                    if (delay.type == DELAY_OFFER_CORPSE)
                    {
                        // Don't attempt to offer a rotten corpse.
                        _pop_delay();
                        // Chain onto the next delay.
                        handle_delay();
                        return;
                    }

        }
        else if (delay.type == DELAY_OFFER_CORPSE)
        {
#ifdef DEBUG_DIAGNOSTICS
            mprf("Corpse %d no longer valid!", delay.parm1);
#endif
            // Don't attempt to offer an invalid item.
            _pop_delay();
            // Chain onto the next delay.
            handle_delay();
            return;

    case DELAY_OFFER_CORPSE:
    {
        if (!you.duration[DUR_PRAYER])
        {
            stop_delay();
            return;
        }

        if (food_is_rotten(mitm[delay.parm1]))
        {
            simple_god_message(coinflip() ? " refuses to accept that"
                                            " mouldy sacrifice!"
                                          : " demands fresh blood!",
                               you.religion);
            _pop_delay();
            // Chain onto the next delay.
            handle_delay();
        }
        else
        {
            offer_corpse(delay.parm1);
            StashTrack.update_stash(); // Don't stash-track this corpse anymore.
        }
        // If we were interrupted while butchering (by poisoning, for
        // example) then resumed butchering and finished, swap back from
        // butchering tool if appropriate.
        if (you.delay_queue.size() == 1)
            handle_interrupted_swap(true);
        break;
    }

    "jewellery_on", "memorise", "butcher", "bottle_blood", "offer_corpse",
    "weapon_swap", "passwall", "drop_item", "multidrop", "ascending_stairs",

    "jewellery_on", "memorise", "butcher", "bottle_blood", "weapon_swap",
    "passwall", "drop_item", "multidrop", "ascending_stairs",

LUARET1(you_god_likes_fresh_corpses, boolean,
        lua_isstring(ls, 1) ?
        god_likes_fresh_corpses(str_to_god(lua_tostring(ls, 1))) :
        god_likes_fresh_corpses(you.religion))

    { "god_likes_butchery",  you_god_likes_butchery  },
    { "can_consume_corpses", you_can_consume_corpses },

    { "god_likes_fresh_corpses",  you_god_likes_fresh_corpses },
    { "god_likes_butchery",       you_god_likes_butchery },
    { "can_consume_corpses",      you_can_consume_corpses },

    "nothing", "open_doors", "starting_equipment",
    "weapons_armour", "magic_items"

    "nothing", "open_doors", "starting_equipment", "weapons_armour",
    "magic_items"

static const char *_monuse_to_str(mon_itemuse_type ityp)

static const char *_monuse_to_str(mon_itemuse_type utyp)

    return _monuse_names[ityp];

    return _monuse_names[utyp];

    }
    return (0);
}
static const char *_moneat_names[] =
{
    "nothing", "items", "corpses", "food"
};
static const char *_moneat_to_str(mon_itemeat_type etyp)
{
    COMPILE_CHECK(ARRAYSZ(_moneat_names) == NUM_MONEAT, c1);
    return _moneat_names[etyp];
}
MDEF(meat)
{
    if (const monsterentry *me = mons->find_monsterentry())
    {
        PLUARET(string, _moneat_to_str(me->gmon_eat));

    { "meat", l_mons_meat },

    { ABIL_KIKU_RECEIVE_CORPSE, ABIL_NON_ABILITY,
      ABIL_NON_ABILITY, ABIL_NON_ABILITY, ABIL_NON_ABILITY },

    { ABIL_KIKU_RECEIVE_CORPSES, ABIL_NON_ABILITY, ABIL_NON_ABILITY,
      ABIL_NON_ABILITY, ABIL_NON_ABILITY },

    { ABIL_KIKU_RECEIVE_CORPSE, "Recieve Corpses", 5, 0, 1000, 2, ABFLAG_NONE },

    { ABIL_KIKU_RECEIVE_CORPSES, "Receive Corpses", 5, 0, 1000, 2, ABFLAG_NONE },

    case ABIL_KIKU_RECEIVE_CORPSE:

    case ABIL_KIKU_RECEIVE_CORPSES:

    case ABIL_KIKU_RECEIVE_CORPSE:

    case ABIL_KIKU_RECEIVE_CORPSES: