bool compare_monsters_attitude( const monsters *m1, const monsters *m2 );

#ifndef USE_TILE

#endif

static std::string _get_monster_name(const monsters *mon, bool list_a = false)

static std::string _get_monster_name(const monster_pane_info& m,
                                     int count)

    const monsters *mon = m.m_mon;

    if (adj && list_a)
    {
        desc = (mon->is_named() ? "the " : "a ") + desc;
        list_a = false;
    }

    std::string monpane_desc;
    int col;
    m.to_string(count, monpane_desc, col);

    if (mons_is_mimic(mon->type))
    {
        if (list_a)
            desc += "a ";
        desc += "mimic";
    }
    else

    if (count == 1)

        desc += mon->name(list_a ? DESC_NOCAP_A : DESC_PLAIN);
        if (!(mon->mname).empty())

        if (!mon->is_named())

            desc += " (";
            desc += mons_type_name(mon->type, DESC_PLAIN);
            desc += ")";

            desc = ((!adj && is_vowel(monpane_desc[0])) ? "an "
                                                        : "a ")
                   + desc;

        else if (adj)
            desc = "the " + desc;

    desc += monpane_desc;

static bool _compare_monsters_attitude( const monsters *m1, const monsters *m2 )

bool compare_monsters_attitude( const monsters *m1, const monsters *m2 )

static void _get_visible_monsters(std::vector<std::string>& describe)

// If past is true, the messages should be printed in the past tense
// because they're needed for the morgue dump.
std::string mpr_monster_list(bool past)

    std::vector<const monsters*> mons;

    // Get monsters via the monster_pane_info, sorted by difficulty.
    std::vector<monster_pane_info> mons;
    get_monster_pane_info(mons);

    // monster check
    for (radius_iterator ri(you.pos(), LOS_RADIUS); ri; ++ri )

    std::string msg = "";
    if (mons.empty())

        if ( mgrd(*ri) != NON_MONSTER )
        {
            const monsters *mon = &menv[mgrd(*ri)];
            if (player_monster_visible(mon)
                && !mons_is_submerged(mon)
                && (!mons_is_mimic(mon->type)
                    || testbits(mon->flags, MF_KNOWN_MIMIC)))
            {
                mons.push_back(mon);
            }
        }
    }

        msg  = "There ";
        msg += (past ? "were" : "are");
        msg += " no monsters in sight!";

    if (mons.empty())
        return;

        return (msg);
    }

    std::sort( mons.begin(), mons.end(), _compare_monsters_attitude );

    std::sort(mons.begin(), mons.end(), monster_pane_info::less_than_wrapper);
    std::vector<std::string> describe;

    int size = mons.size();
    for (int i = 0; i < size; ++i)

    for (unsigned int i = 0; i < mons.size(); ++i)

        if (i > 0 && _compare_monsters_attitude(mons[i-1], mons[i]))

        if (i > 0 && monster_pane_info::less_than(mons[i-1], mons[i]))

            if (count == 1)
                describe.push_back(_get_monster_name(mons[i-1], true).c_str());
            else
            {
                describe.push_back(number_in_words(count) + " "
                                   + pluralise(_get_monster_name(mons[i-1]).c_str()));
            }

            describe.push_back(_get_monster_name(mons[i-1], count).c_str());

    }
    // handle last monster
    if (mons.size() == 1
        || _compare_monsters_attitude(mons[size-2], mons[size-1]))
    {
        describe.push_back(_get_monster_name(mons[size-1], true).c_str());
    }
    else
    {
        describe.push_back(number_in_words(count) + " "
                           + pluralise(_get_monster_name(mons[size-1]).c_str()));

}
// If past is true, the messages should be printed in the past tense
// because they're needed for the morgue dump.
std::string mpr_monster_list(bool past)
{
    std::vector<std::string> describe;
    _get_visible_monsters(describe);
    std::string msg = "";
    if (describe.empty())
    {
        msg  = "There ";
        msg += (past ? "were" : "are");
        msg += " no monsters in sight!";

        return (msg);
    }

    describe.push_back(_get_monster_name(mons[mons.size()-1], count).c_str());

#ifndef USE_TILE

    if ( mtype == MONS_RAKSHASA_FAKE )

    if (mtype == MONS_RAKSHASA_FAKE)

    if ( m1type == MONS_RAKSHASA_FAKE )

    if (m1type == MONS_RAKSHASA_FAKE)

    if ( m2type == MONS_RAKSHASA_FAKE )

    if (m2type == MONS_RAKSHASA_FAKE)

#ifndef USE_TILE

#endif

#ifndef USE_TILE

void full_describe_view(void);

// Internals:
// Menu items have meaningful tags. 'i' means item and 'm' means monster.
//
void _full_describe_view()

// TODO: Allow sorting of items lists.
void full_describe_view()

    std::vector<monsters*> list_mons;

    std::vector<const monsters*> list_mons;

    // Iterate over viewport and get all the items and monsters in view.
    // TODO: Allow sorting of monster and items lists.

    // Iterate over viewport and get all the itemsin view.

            const int mid = mgrd(p);

            if (mid != NON_MONSTER && player_monster_visible(&menv[mid]))
                list_mons.push_back(&menv[mid]);

    // Get monsters via the monster_pane_info, sorted by difficulty.
    std::vector<monster_pane_info> mons;
    get_monster_pane_info(mons);
    std::sort(mons.begin(), mons.end(), monster_pane_info::less_than_wrapper);
    for (unsigned int i = 0; i < mons.size(); i++)
        list_mons.push_back(mons[i].m_mon);

            // (g) A goblin (hostile) wielding an orcish dagger

            // (A) An angel (neutral), wielding a glowing long sword

        	_full_describe_view();
        	//TODO: Check if this is neccesary
        	//force_redraw = true;

        	full_describe_view();

            else
                desc += " (hostile)";

        mpr(mpr_monster_list().c_str());

        full_describe_view();