//#include "dungeon.h"

static bool is_evil_god(int god)

static bool is_evil_god(god_type god)

static bool is_good_god(int god)

static bool is_good_god(god_type god)

#include <sstream>
#include <iomanip>

    std::string result;

    std::ostringstream result;

    {
        char buf[20];
        snprintf(buf, sizeof buf, "| %5ld ", turn );
        result += buf;
    }

        result << "| " << std::setw(5) << turn << " ";

        result += "| ";
        std::string placename = short_place_name(packed_place);
        while ( placename.length() < 7 )
            placename += ' ';
        result += placename;
        result += " | ";

        result << "| " << std::setw(7) << std::left
               << short_place_name(packed_place) << " | ";

        char buf[200];

            snprintf(buf, sizeof buf, "HP: %d/%d [%s]", 
                     first, second, name.c_str());

            result << "HP: " << first << "/" << second
                   << " [" << name << "]";

            snprintf(buf, sizeof buf, "Mana: %d/%d", first, second);

            result << "Mana: " << first << "/" << second;

            snprintf(buf, sizeof buf, "Reached %d max hit points", first);

            result << "Reached " << first << " max hit points";

            snprintf(buf, sizeof buf, "Reached %d max mana", first);

            result << "Reached " << first << " max mana";

            snprintf(buf, sizeof buf, "Reached XP level %d. %s", first, 
                     name.c_str());

            result << "Reached XP level " << first << ". " << name;

            snprintf(buf, sizeof buf, "Entered %s",
                     place_name(packed_place, true, true).c_str());

            result << "Entered " << place_name(packed_place, true, true);

            snprintf(buf, sizeof buf, "Learned a level %d spell: %s",
                     spell_difficulty(static_cast<spell_type>(first)),
                     spell_title(static_cast<spell_type>(first)));

            result << "Learned a level "
                   << spell_difficulty(static_cast<spell_type>(first))
                   << " spell: "
                   << spell_title(static_cast<spell_type>(first));

            snprintf(buf, sizeof buf, "Became a worshipper of %s",
                     god_name(first, true));

            result << "Became a worshipper of " << god_name(first, true);

            snprintf(buf, sizeof buf, "Fell from the grace of %s",
                     god_name(first));

            result << "Fell from the grace of " << god_name(first);

            snprintf(buf, sizeof buf, "Was forgiven by %s",
                     god_name(first));

            result << "Was forgiven by " << god_name(first);

            snprintf(buf, sizeof buf, "Received a gift from %s",
                     god_name(first));

            result << "Received a gift from " << god_name(first);

            if (desc.length() > 0)
                snprintf(buf, sizeof buf, "Identified %s (%s)",
                         name.c_str(), desc.c_str());
            else
                snprintf(buf, sizeof buf, "Identified %s", name.c_str());

            result << "Identified " << name;
            if ( !desc.empty() )
                result << " (" << desc << ")";

            snprintf(buf, sizeof buf, "Got %s", name.c_str());

            result << "Got " << name;

            snprintf(buf, sizeof buf, "Reached skill %d in %s",
                     second, skill_name(first));

            result << "Reached skill " << second
                   << " in " << skill_name(first);

            snprintf(buf, sizeof buf, "Noticed %s", name.c_str() );

            result << "Noticed " << name;

            snprintf(buf, sizeof buf, "Defeated %s", name.c_str());

            result << "Defeated " << name;

            snprintf(buf, sizeof buf, "%s changed form", name.c_str() );

            result << name << " changed form";

            snprintf(buf, sizeof buf, "Acquired %s's %s power", 
                     god_name(first),
                     number_to_ordinal(real_god_power(first, second)+1));

            result << "Acquired " << god_name(first) << "'s "
                   << number_to_ordinal(real_god_power(first, second)+1)
                   << " power";

            snprintf(buf, sizeof buf, "Gained mutation: %s",
                     mutation_name(first, second == 0 ? 1 : second));

            result << "Gained mutation: "
                   << mutation_name(first, second == 0 ? 1 : second);

            snprintf(buf, sizeof buf, "Lost mutation: %s",
                     mutation_name(first, second == 3 ? 3 : second+1));

            result << "Lost mutation: "
                   << mutation_name(first, second == 3 ? 3 : second+1);

            snprintf(buf, sizeof buf, "%s", name.c_str());

            result << name;

            snprintf(buf, sizeof buf, "%s", name.c_str());

            result << name;

            snprintf(buf, sizeof buf,
                     "Buggy note description: unknown note type");

            result << "Buggy note description: unknown note type";

        result += buf;

    return result;

    return result.str();

                char branch_finale[500];

                snprintf(branch_finale, sizeof branch_finale,
                         "reached %s.", level.c_str());
                mark_milestone("branch-finale", branch_finale);

                std::ostringstream branch_finale;
                branch_finale << "reached " << level << ".";
                mark_milestone("branch-finale", branch_finale.str());

//#include "dungeon.h"

//#include "dungeon.h"

//#include "dungeon.h"

#include <stdlib.h>

    std::string description;
    description.reserve(200);
    clrscr();

    std::ostringstream description;

    description = ptr_monam( &mons, DESC_CAP_A );
    description += "$$";

    description << ptr_monam( &mons, DESC_CAP_A ) << "$$";

    description += getLongDescription(ptr_monam(&mons, DESC_PLAIN));

    description << getLongDescription(ptr_monam(&mons, DESC_PLAIN));

        // (missing) case 423 - MONS_ANOTHER_LAVA_THING ??? 15jan2000 {dlb}
        //                      no entry in m_list.h 17jan200 {dlb}
        //          monster has no stats!
        // mv: changed ANOTHER_LAVA_THING to SALAMANDER, added stats and
        //     description
        // (missing) case 250 - MONS_PROGRAM_BUG ??? 16jan2000 {dlb}

            description += "$It smells great!";

            description << "It smells great!";

            description += "$It stinks.";

            description << "It stinks.";

/* ******************************************************************
// the tunneling worm is no more ...
// not until it can be re-implemented safely {dlb}
    case MONS_TUNNELING_WORM:
    case MONS_WORM_TAIL:
        description += "A gargantuan worm, its huge maw capable of crushing rock into dust with little trouble.";
        break;
****************************************************************** */

            description += "It smells horrible.";

            description << "It smells horrible.";

        description << "The embalmed and undead corpse of an ancient ruler.";
        break;

        description += "The embalmed and undead corpse of an ancient ";
        if (mons.type == MONS_GREATER_MUMMY)
            description += "ruler";
        else
            description += "servant of darkness";
        description += ".";

        description << "The embalmed and undead corpse of an ancient "
            "servant of darkness.";

            description += "These nagas are "

            description << "These nagas are "

            description += "It looks strong and aggressive.";

            description << "It looks strong and aggressive.";

            description += "An eldritch nimbus trails its motions.";

            description << "An eldritch nimbus trails its motions.";

            description += "It bears scars of many past battles.";

            description << "It bears scars of many past battles.";

            description = "It is particularly attractive.";

            description << "It is particularly attractive.";

            description = "It is strange and repulsive.";

            description << "It is strange and repulsive.";

        if (you.is_undead == US_ALIVE)
            description += " It wants to drink your blood! ";
        break;

        if (you.is_undead == US_ALIVE)
            description += " It wants to drink your blood! ";
        break;

            description += " It wants to drink your blood! ";

            description << " It wants to drink your blood! ";

            description += "It has come for your soul!";

            description << "It has come for your soul!";

    case MONS_ELF: 

        description << "This one is just a common soldier.";
        break;
        

        description << "This soldier has learned some magic.";
        break;
        

        description << "This one bears the scars of battles past.";
        break;
        

        description << "Mana crackles between this one's long fingers.";
        break;
        

        description << "This one is a mage specialized in the ancient "
            "art of summoning servants of destruction.";
        break;
        

        description << "This one is a mage specialized in the ancient "
            "art of hurling energies of destruction.";
        break;
        

        description << "This one is a servant of the deep elves' god.";
        break;
        

        description <<
            "This one is an exalted servant of the deep elves' god.";
        break;
        

        description <<
            "This mage specialized in demonology, and is marked heavily "
            "from long years in contact with unnatural demonic forces.";
        break;
        

        description << "This one likes destructive magics more than most, "
            "and is better at them.";
        break;
        

        description << "This mighty spellcaster draws power from Hell.";
        break;
        

        switch (mons.type)
        {
        case MONS_DEEP_ELF_SOLDIER:
            description += "This one is just common soldier.";
            break;
        case MONS_DEEP_ELF_FIGHTER:
            description += "This soldier has learned some magic.";
            break;
        case MONS_DEEP_ELF_KNIGHT:
            description += "This one bears the scars of battles past.";
            break;
        case MONS_DEEP_ELF_MAGE:
            description += "Mana crackles between this one's long fingers.";
            break;
        case MONS_DEEP_ELF_SUMMONER:
        case MONS_DEEP_ELF_CONJURER:
            description += "This one is a mage specialized in the ancient art ";
            if (mons.type == MONS_DEEP_ELF_SUMMONER)
                description += "of summoning servants";
            else
                description += "of hurling energies";
            description += " of destruction.";
            break;
        case MONS_DEEP_ELF_PRIEST:
            description += "This one is a servant of the deep elves' god.";
            break;
        case MONS_DEEP_ELF_HIGH_PRIEST:
            description +=
                "This one is an exalted servant of the deep elves' god.";
            break;
        case MONS_DEEP_ELF_DEMONOLOGIST:
            description +=
                "This mage specialized in demonology, and is marked heavily "
                "from long years in contact with unnatural demonic forces.";
            break;
        case MONS_DEEP_ELF_ANNIHILATOR:
            description += "This one likes destructive magics more than most, "
                "and is better at them.";
            break;
        case MONS_DEEP_ELF_SORCERER:
            description += "This mighty spellcaster draws power from Hell.";
            break;
        case MONS_DEEP_ELF_DEATH_MAGE:
            description += "A strong negative aura surrounds this one.";
            break;

        description << "A strong negative aura surrounds this one.";
        break;

        case MONS_ELF:
            // These are only possible from polymorphing or shapeshifting.
            description += "This one is remarkably plain looking.";
            break;
        }

    case MONS_ELF:
        // These are only possible from polymorphing or shapeshifting.
        description << "This one is remarkably plain looking.";

        description += describe_draconian( &mons );

        description << describe_draconian( &mons );

        description += "The apparition of ";
        description += ghost_description(mons);
        description += ".$";

        description << "The apparition of " << ghost_description(mons) << ".$";

        description += describe_demon(mons);

        description << describe_demon(mons);

            description += "He smells terrible.";

            description << "He smells terrible.";

        description += "A vile creature with an elongated head, spiked tail "
            "and wicked six-fingered claws. Its awesome strength is matched by "
            "its umbrage at being transported to this backwater dimension. ";

        description << "A vile creature with an elongated head, spiked tail "
            "and wicked six-fingered claws. Its awesome strength is matched "
            "by its umbrage at being transported to this backwater dimension.";

        description += "If this monster is a \"program bug\", then it's "

        description << "If this monster is a \"program bug\", then it's "

        // onocentaur - donkey

        for (int i = 0; i < 6; i++)

        for (int i = 0; i < NUM_MONSTER_SPELL_SLOTS; i++)

                    description += "$$Monster Spells:$";

                    description << "$$Monster Spells:$";

                snprintf( info, INFO_SIZE, "    %d: %s (%d)$", i, 
                          mons_spell_name( hspell_pass[i] ),
                          hspell_pass[i] );
                description += info;

                description << "    " << i << ": "
                            << mons_spell_name(hspell_pass[i])
                            << " (" << static_cast<int>(hspell_pass[i])
                            << ")$";

                description += "$Monster Inventory:$";

                description << "$Monster Inventory:$";

            // duplicate it, because we're going to change it
            item_def item = mitm[ mons.inv[i] ];
            set_ident_flags( item, ISFLAG_IDENT_MASK );
            snprintf( info, INFO_SIZE, "    %d: %s$", i,
                      item.name(DESC_NOCAP_A).c_str() );
            description += info;

            description << "    " << i
                        << mitm[mons.inv[i]].name(DESC_NOCAP_A, false, true);

    print_description(description);

    clrscr();
    print_description(description.str());

    char tmp_buff[ INFO_SIZE ];

    std::ostringstream gstr;

    const ghost_demon &ghost = *mons.ghost;

    const ghost_demon &ghost = *(mons.ghost);

    // stats are required anyways, all that matters is whether

    // stats aren't required anyways, all that matters is whether

    snprintf( tmp_buff, sizeof(tmp_buff), 
              "%s the %s, a%s %s%s%s",
              ghost.name.c_str(), 
            skill_title( ghost.values[GVAL_BEST_SKILL], 
                ghost.values[GVAL_SKILL_LEVEL],
                ghost.values[GVAL_SPECIES], 
                str, dex, GOD_NO_GOD ), 
            (ghost.values[GVAL_EXP_LEVEL] <  4) ? " weakling" :
            (ghost.values[GVAL_EXP_LEVEL] <  7) ? "n average" :
            (ghost.values[GVAL_EXP_LEVEL] < 11) ? "n experienced" :
            (ghost.values[GVAL_EXP_LEVEL] < 16) ? " powerful" :
            (ghost.values[GVAL_EXP_LEVEL] < 22) ? " mighty" :
            (ghost.values[GVAL_EXP_LEVEL] < 26) ? " great" :
            (ghost.values[GVAL_EXP_LEVEL] < 27) ? "n awesomely powerful"
            : " legendary", 
            ( concise? get_species_abbrev(ghost.values[GVAL_SPECIES]) :
                species_name( ghost.values[GVAL_SPECIES], 
                    ghost.values[GVAL_EXP_LEVEL] ) ),
              
            ( concise? "" : " " ),
              
            ( concise? get_class_abbrev(ghost.values[GVAL_CLASS]) :
                get_class_name( ghost.values[GVAL_CLASS] ) ) );

    gstr << ghost.name << " the "
         << skill_title( ghost.values[GVAL_BEST_SKILL], 
                         ghost.values[GVAL_SKILL_LEVEL],
                         ghost.values[GVAL_SPECIES], 
                         str, dex, GOD_NO_GOD )
         << ", a"
         << ((ghost.values[GVAL_EXP_LEVEL] <  4) ? " weakling" :
             (ghost.values[GVAL_EXP_LEVEL] <  7) ? "n average" :
             (ghost.values[GVAL_EXP_LEVEL] < 11) ? "n experienced" :
             (ghost.values[GVAL_EXP_LEVEL] < 16) ? " powerful" :
             (ghost.values[GVAL_EXP_LEVEL] < 22) ? " mighty" :
             (ghost.values[GVAL_EXP_LEVEL] < 26) ? " great" :
             (ghost.values[GVAL_EXP_LEVEL] < 27) ? "n awesomely powerful"
                                                 : " legendary")
         << " ";
    if ( concise )
        gstr << get_species_abbrev(ghost.values[GVAL_SPECIES])
             << get_class_abbrev(ghost.values[GVAL_CLASS]);
    else
        gstr << species_name(ghost.values[GVAL_SPECIES], 
                             ghost.values[GVAL_EXP_LEVEL])
             << " "
             << get_class_name(ghost.values[GVAL_CLASS]);

    return std::string(tmp_buff);

    return gstr.str();

    char buf[200];

    // The power could be either passive or an active ability.
    // Determine which.
    const ability_type abil = god_abilities[god][numpower];

    std::ostringstream buf;

        strcpy(buf, pmsg);

        buf << pmsg;            // complete sentence given

        snprintf(buf, sizeof buf, "You can %s.", pmsg);
    std::string cost;

        buf << "You can " << pmsg << ".";
    // this might be ABIL_NON_ABILITY for passive abilities
    const ability_type abil = god_abilities[god][numpower];

        cost = "(" + make_cost_description(get_ability_def(abil)) + ")";
        cost = std::string(79 - strlen(buf) - cost.length(), ' ') + cost;

        const int spacesleft = 79 - buf.str().length();
        const std::string cost =
            "(" + make_cost_description(get_ability_def(abil)) + ")";
        buf << std::setw(spacesleft) << cost;

    // Produce a 79 character string with cost right justified:
    cprintf( "%s%s\n", buf, cost.c_str() );

    cprintf( "%s\n", buf.str().c_str() );

        cprintf(EOL EOL "Granted powers :                                                         (Cost)" EOL);

        cprintf(EOL EOL "Granted powers:                                                          (Cost)" EOL);

    // in and got the case wrong.

    // in and got the case wrong.)