#include "spl-book.h"

void xom_is_stimulated(int maxinterestingness, const std::string& message,
                       bool force_message)
{
    if (you.religion != GOD_XOM)
        return;

    const char *message_array[6];
    for (int i = 0; i < 6; ++i)
        message_array[i] = message.c_str();
    _xom_is_stimulated(maxinterestingness, message_array, force_message);
}

        // During tension, Xom may briefly forget about being bored.
        if (_xom_is_bored() && x_chance_in_y(chance-1, 4))

        // If Xom is bored the chances for Xom acting are reversed.
        if (you.gift_timeout == 0 && x_chance_in_y(5-chance,5))
        {
            xom_acts(abs(you.piety - MAX_PIETY/2), tension);
            return;
        }
        else if (you.gift_timeout <= 1 && x_chance_in_y(chance-1, 4))

            you.gift_timeout += random2(chance*20);

            // During tension, Xom may briefly forget about being bored.
            const int interest = random2(chance*15);
            if (interest > 0)
            {
                if (interest < 25)
                    simple_god_message(" is interested.");
                else
                    simple_god_message(" is intrigued.");
                you.gift_timeout += interest;

            mprf(MSGCH_DIAGNOSTICS,
                 "tension %d (chance: %d) -> increase interest to %d",
                 tension, chance, you.gift_timeout);

                mprf(MSGCH_DIAGNOSTICS,
                     "tension %d (chance: %d) -> increase interest to %d",
                     tension, chance, you.gift_timeout);

            }

void xom_is_stimulated(int maxinterestingness, const std::string& message,
                       bool force_message)

// Picks 100 random grids from the level and checks whether they've been
// marked as seen (explored) or known (mapped). If seen_only is true
// grids only "seen" via magic mapping don't count.
// Returns the estimated percentage value of exploration.
static int _exploration_estimate(bool seen_only = false)

    if (you.religion != GOD_XOM)
        return;

    int seen  = 0;
    int total = 0;
    int tries = 0;
    do
    {
        tries++;
        coord_def pos = random_in_bounds();
        if (!seen_only && is_terrain_known(pos) || is_terrain_seen(pos))
        {
            seen++;
            total++;
            continue;
        }

    const char *message_array[6];

        bool open = true;
        if (grid_is_solid(grd(pos)) && grd(pos) != DNGN_CLOSED_DOOR)
        {
            open = false;
            for (adjacent_iterator ai(pos); ai; ++ai)
            {
                if (map_bounds(*ai) && (!grid_is_opaque(grd(*ai))
                                        || grd(*ai) == DNGN_CLOSED_DOOR))
                {
                    open = true;
                    break;
                }
            }
        }
        if (open)
            total++;
    }
    while (total < 100 && tries < 1000);

    for (int i = 0; i < 6; ++i)
        message_array[i] = message.c_str();

#ifdef DEBUG_XOM
    mprf(MSGCH_DIAGNOSTICS,
         "exploration estimate (%s): %d out of %d grids seen",
         seen_only ? "explored" : "mapped", seen, total);
#endif
    // If we didn't get any qualifying grids, there are probably so few
    // of them you've already seen them all.
    if (total == 0)
        return 100;
    if (total < 100)
        seen *= 100/total;

    _xom_is_stimulated(maxinterestingness, message_array, force_message);

    return (seen);

static void _xom_makes_you_cast_random_spell(int sever, int tension)

static bool _xom_makes_you_cast_random_spell(int sever, int tension)

        if (spell == SPELL_MAGIC_MAPPING)
        {
            // If the level is already mostly explored, there's
            // a chance we might try something else.
            const int explored = _exploration_estimate();
            if (explored > 80 && x_chance_in_y(explored, 100))
                return (false);
        }

    // Don't attempt to cast spells the undead cannot memorise.
    if (you_cannot_memorise(spell))
        return (false);

    return (true);

        {
            _xom_makes_you_cast_random_spell(sever, tension);
            done = true;
        }

            done = _xom_makes_you_cast_random_spell(sever, tension);

    else if (x_chance_in_y(11, sever) && (you.level_type != LEVEL_ABYSS))

    else if (x_chance_in_y(11, sever) && you.level_type != LEVEL_ABYSS)

        // This is not very interesting if the level is already fully
        // explored (presumably cleared). Even then, it may occasionally
        // happen.
        const int explored = _exploration_estimate(true);
        if (explored >= 80 && x_chance_in_y(explored, 120))
            return (false);

    else if (you.species != SP_MUMMY || transform_changed_physiology())

    else if (you.species != SP_MUMMY && !player_mutation_level(MUT_BEAK)
             || transform_changed_physiology())

        else if ((!nasty || coinflip())
                 && x_chance_in_y(7, sever) && you.level_type != LEVEL_ABYSS)

        else if (x_chance_in_y(7, sever) && you.level_type != LEVEL_ABYSS)

            // This is not particularly exciting if the level is already fully
            // explored (presumably cleared). If Xom is feeling nasty this
            // is likelier to happen if the level is unexplored.
            const int explored = _exploration_estimate(true);
            if (nasty && explored >= 50 && coinflip()
                || explored >= 80 + random2(20))
            {
                done = false;
                continue;
            }

    if (!suppress_msg)
        mpr( "You feel aware of your surroundings." );

    const bool wizard_map = map_radius == 1000 && you.wizard;
    for ( radius_iterator ri(you.pos(), map_radius, true, false); ri; ++ri )

    const bool wizard_map = (you.wizard && map_radius == 1000);
    bool did_map = false;
    for (radius_iterator ri(you.pos(), map_radius, true, false); ri; ++ri)

        if (!wizard_map && is_terrain_known(*ri))

        if (!wizard_map && (is_terrain_known(*ri) || is_terrain_seen(*ri)))

            for ( adjacent_iterator ai(*ri); ai; ++ai )

            for (adjacent_iterator ai(*ri); ai; ++ai)

        if (open > 0)

        if (open)

            did_map = true;

    return (true);

    if (!suppress_msg)
    {
        mpr(did_map ? "You feel aware of your surroundings."
                    : "You feel momentarily disoriented.");
    }
    return (did_map);

        {

        }

        mpr("The scroll reassembles itself in your hands!");

        mprf("The scroll reassembles itself in your %s!",
             your_hand(true).c_str());

        if (player_can_smell())

        if (you.species == SP_MUMMY)
            mpr("Your bandages flutter.");
        else // if (player_can_smell())

        else if (you.species == SP_MUMMY)
            mpr("Your bandages flutter.");
        else // currently not ever used
            canned_msg(MSG_NOTHING_HAPPENS);

        mprf("Your %s",
             (temp_rand == 0) ? "ears itch!" :
             (temp_rand == 1) ? "brain hurts!"
                              : "nose twitches suddenly!");

        if (player_mutation_level(MUT_BEAK) || one_chance_in(3))
            mpr("Your brain hurts!");
        else if (you.species == SP_MUMMY || coinflip())
            mpr("Your ears itch!");
        else
            mpr("Your nose twitches suddenly!");

* ?fear don't turn allies hostile anymore.