snprintf( info, INFO_SIZE, "%s is marked for following.",
                      ptr_monam( fmenv, DESC_CAP_THE ) );
            mpr( info, MSGCH_DIAGNOSTICS );

            mprf(MSGCH_DIAGNOSTICS, "%s is marked for following.",
                 ptr_monam( fmenv, DESC_CAP_THE ) );

        strcpy(info, "You feel a");
        strcat(info, (enhanced < -2)  ? "n extraordinarily" :
                     (enhanced == -2) ? "n extremely" :
                     (enhanced == 2)  ? " strong" :
                     (enhanced > 2)   ? " huge"
                                      : "");
        strcat(info, (enhanced < 0) ? " numb sensation."
                                    : " surge of power!");
        mpr(info);

        mprf("You feel a%s %s",
             (enhanced < -2)  ? "n extraordinarily" :
             (enhanced == -2) ? "n extremely" :
             (enhanced == 2)  ? " strong" :
             (enhanced > 2)   ? " huge"
                              : "",
             (enhanced < 0) ? " numb sensation."
                            : " surge of power!");

    snprintf( info, INFO_SIZE, "Spell #%d, power=%d", spc2, powc );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Spell #%d, power=%d", spc2, powc );

        strcpy(info, "You detect ");
        strcat(info, (detect_traps(powc) > 0) ? "some traps!" : "nothing.");
        mpr(info);

        mprf("You detect %s",
             (detect_traps(powc) > 0) ? "some traps!" : "nothing.");

    snprintf( info, INFO_SIZE, "Sptype: %d, failure1: %d, failure2: %d", 
              sp_type, old_fail, spec_effect );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Sptype: %d, failure1: %d, failure2: %d", 
         sp_type, old_fail, spec_effect );

                snprintf( info, INFO_SIZE, "Sparks fly from your %s!", 
                          your_hand(true) );
                mpr(info);

                mprf("Sparks fly from your %s!", your_hand(true) );

                snprintf( info, INFO_SIZE, "Wisps of smoke drift from your %s.",
                          your_hand(true));
                mpr(info);

                mprf("Wisps of smoke drift from your %s.", your_hand(true));

                snprintf( info, INFO_SIZE, "Smoke pours from your %s!", 
                          your_hand(true));
                mpr(info);

                mprf("Smoke pours from your %s!", your_hand(true));

                snprintf( info, INFO_SIZE, "Your %s glow momentarily.", 
                          your_hand(true) );
                mpr(info);

                mprf("Your %s glow momentarily.", your_hand(true) );

                snprintf( info, INFO_SIZE, "Your %s glow momentarily.", 
                          your_hand(true));
                mpr(info);

                mprf("Your %s glow momentarily.", your_hand(true));

                snprintf( info, INFO_SIZE, "Sparks fly from your %s!",
                          your_hand(true));
                mpr(info);

                mprf("Sparks fly from your %s!", your_hand(true));

                snprintf( info, INFO_SIZE, "Wisps of smoke drift from your %s.",
                          your_hand(true));
                mpr(info);

                mprf("Wisps of smoke drift from your %s.", your_hand(true));

                snprintf( info, INFO_SIZE, "Smoke pours from your %s!",
                          your_hand(true) );
                mpr(info);

                mprf("Smoke pours from your %s!", your_hand(true) );

                snprintf( info, INFO_SIZE, "Wisps of condensation drift from your %s.",
                          your_hand(true));
                mpr(info);

                mprf("Wisps of condensation drift from your %s.",
                     your_hand(true));

                snprintf( info, INFO_SIZE,"Your %s feel numb with cold.",
                          your_hand(true));
                mpr(info);

                mprf("Your %s feel numb with cold.", your_hand(true));

                snprintf( info, INFO_SIZE,"Freezing gasses pour from your %s!",
                          your_hand(true));
                mpr(info);

                mprf("Freezing gasses pour from your %s!", your_hand(true));

                snprintf( info, INFO_SIZE,"Sand pours from your %s.", 
                          your_hand(true));
                mpr(info);

                mprf("Sand pours from your %s.", your_hand(true));

                strcpy(info, "Your ");
                strcat(info, (you.species == SP_NAGA)    ? "underbelly feels" :
                             (you.species == SP_CENTAUR) ? "hooves feel"
                                                         : "feet feel");
                strcat(info, " warm.");
                mpr(info);

                mprf("Your %s warm.",
                     (you.species == SP_NAGA)    ? "underbelly feels" :
                     (you.species == SP_CENTAUR) ? "hooves feel"
                                                 : "feet feel");

                snprintf( info, INFO_SIZE, "Wisps of vapour drift from your %s.",
                          your_hand(true));
                mpr(info);

                mprf("Wisps of vapour drift from your %s.", your_hand(true));

                snprintf( info, INFO_SIZE, "Sparks of electricity dance between your %s.",
                          your_hand(true));
                mpr(info);

                mprf("Sparks of electricity dance between your %s.",
                     your_hand(true));

                snprintf( info, INFO_SIZE, "The wind %s around you!",
                                                 silenced(you.x_pos, you.y_pos) ? "whips" : "howls");
                            mpr(info);

                mprf("The wind %s around you!",
                     silenced(you.x_pos, you.y_pos) ? "whips" : "howls");

                snprintf( info, INFO_SIZE, "Noxious gasses pour from your %s!",
                          your_hand(true));
                mpr(info);

                mprf("Noxious gasses pour from your %s!", your_hand(true));

                snprintf( info, INFO_SIZE, "Venomous gasses pour from your %s!",
                          your_hand(true));
                mpr(info);

                mprf("Venomous gasses pour from your %s!", your_hand(true));

                snprintf( info, INFO_SIZE, "Wisps of poison gas drift from your %s.",
                          your_hand(true) );
                mpr(info);

                mprf("Wisps of poison gas drift from your %s.",
                     your_hand(true));

                snprintf( info, INFO_SIZE, "Noxious gasses pour from your %s!",
                          your_hand(true) );
                mpr(info);

                mprf("Noxious gasses pour from your %s!", your_hand(true) );

                snprintf( info, INFO_SIZE, "Venomous gasses pour from your %s!",
                          your_hand(true));
                mpr(info);

                mprf("Venomous gasses pour from your %s!", your_hand(true));

    snprintf( info, INFO_SIZE, "You can memorise %d more level%s of spells.",
             avail_levels, (avail_levels > 1) ? "s" : "" );

    mpr( info );

    mprf("You can memorise %d more level%s of spells.",
         avail_levels, (avail_levels > 1) ? "s" : "" );

    int temp_rand1 = random2(3);
    int temp_rand2 = random2(4);

    const int temp_rand1 = random2(3);
    const int temp_rand2 = random2(4);

    snprintf(info, INFO_SIZE, "This spell is %s %s to %s.",
             ((chance >= 80) ? "very" :
              (chance >= 60) ? "quite" :
              (chance >= 45) ? "rather" :
              (chance >= 30) ? "somewhat"
              : "not that"),
             ((temp_rand1 == 0) ? "difficult" :
              (temp_rand1 == 1) ? "tricky" :
              "challenging"),
             ((temp_rand2 == 0) ? "memorise" :
              (temp_rand2 == 1) ? "commit to memory" :
              (temp_rand2 == 2) ? "learn" :
              "absorb"));
    mpr(info);

    mprf("This spell is %s %s to %s.",
         ((chance >= 80) ? "very" :
          (chance >= 60) ? "quite" :
          (chance >= 45) ? "rather" :
          (chance >= 30) ? "somewhat"
                         : "not that"),
         ((temp_rand1 == 0) ? "difficult" :
          (temp_rand1 == 1) ? "tricky"
                            : "challenging"),
         ((temp_rand2 == 0) ? "memorise" :
          (temp_rand2 == 1) ? "commit to memory" :
          (temp_rand2 == 2) ? "learn"
                            : "absorb"));

        snprintf( info, INFO_SIZE, 
                  "Evoke which spell from the rod ([a-%c] spell [?*] list)? ",
                  'a' + num_spells - 1 );

        mprf(MSGCH_PROMPT,
             "Evoke which spell from the rod ([a-%c] spell [?*] list)? ",
             'a' + num_spells - 1 );

    snprintf(info, INFO_SIZE, "The dungeon %s!", (sil ? "shakes" : "rumbles"));
    mpr(info, (sil? MSGCH_PLAIN : MSGCH_SOUND));

    mprf((sil ? MSGCH_PLAIN : MSGCH_SOUND),
         "The dungeon %s!", (sil ? "shakes" : "rumbles"));

        snprintf( info, INFO_SIZE, "You detect %s secret door%s.", 
                 (found > 1) ? "some" : "a", (found > 1) ? "s" : "" );
        mpr( info );

        mprf("You detect %s secret door%s.", 
             (found > 1) ? "some" : "a", (found > 1) ? "s" : "" );

        snprintf( info, INFO_SIZE, "Your %s feel slithery!", your_hand(true));
        mpr(info);

        mprf("Your %s feel slithery!", your_hand(true));

        snprintf( info, INFO_SIZE, "You create %s snake%s!",
                how_many > 1 ? "some" : "a", how_many > 1 ? "s" : "");

        mprf("You create %s snake%s!",
             how_many > 1 ? "some" : "a", how_many > 1 ? "s" : "");

        snprintf( info, INFO_SIZE, "Your %s feel slithery!", your_hand(true));

        mprf("Your %s feel slithery!", your_hand(true));

    mpr(info);
    return;

    int happy;

    happy = (random2(pow) > 5);

    const bool happy = (random2(pow) > 5);

        strcpy(info, "A dragon appears.");
        if (!happy)
            strcat(info, " It doesn't look very happy.");

        mprf("A dragon appears.%s",
             happy ? "" : " It doesn't look very happy.");

        strcpy(info, "Nothing happens.");
    mpr(info);

        mprf("Nothing happens.");

        snprintf( info, INFO_SIZE, "%s potion%s you are carrying explode%s!",
            pcount > 1 ? "Some" : "A",
            pcount > 1 ? "s" : "",
            pcount > 1 ? "" : "s");
        mpr(info);

        mprf("%s potion%s you are carrying explode%s!",
             pcount > 1 ? "Some" : "A",
             pcount > 1 ? "s" : "",
             pcount > 1 ? "" : "s");

            strcpy( info, ptr_monam( &(menv[mon]), DESC_CAP_THE ) );
            strcat( info, " is struck by lightning." );
            mpr( info );

            mprf( "%s is struck by lightning.",
                  ptr_monam( &(menv[mon]), DESC_CAP_THE));

    snprintf( info, INFO_SIZE, "Arcs: %d Damage: %d", num_targs, dam );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Arcs: %d Damage: %d", num_targs, dam );

            bool plural = coinflip();
            snprintf( info, INFO_SIZE, "%s blue arc%s ground%s harmlessly %s you.",
                plural ? "Some" : "A",
                plural ? "s" : "",
                plural ? " themselves" : "s itself",
                plural ? "around" : (coinflip() ? "beside" :
                                     coinflip() ? "behind" : "before")
                );
            mpr(info);

            const bool plural = coinflip();
            mprf("%s blue arc%s ground%s harmlessly %s you.",
                 plural ? "Some" : "A",
                 plural ? "s" : "",
                 plural ? " themselves" : "s itself",
                 plural ? "around" : (coinflip() ? "beside" :
                                      coinflip() ? "behind" : "before"));

        strcpy(info, "Space bends around ");
        strcat(info, ptr_monam(defender, DESC_NOCAP_THE));
        strcat(info, ".");
        mpr(info);

        mprf("Space bends around %s.",
             ptr_monam(defender, DESC_NOCAP_THE));

        strcpy(info, "Space warps horribly around ");
        strcat(info, ptr_monam( defender, DESC_NOCAP_THE ));
        strcat(info, "!");
        mpr(info);

        mprf("Space warps horribly around %s!",
             ptr_monam( defender, DESC_NOCAP_THE ));

        snprintf( info, INFO_SIZE, "Wisps of steam play over your %s!", 
                  your_hand(true) );
        mpr(info);

        mprf("Wisps of steam play over your %s!", your_hand(true) );

    snprintf( info, INFO_SIZE, "%s sways back and forth.", ptr_monam( &(menv[mon]), DESC_CAP_THE ));
    mpr(info);

    mprf("%s sways back and forth.", ptr_monam( &(menv[mon]), DESC_CAP_THE ));

            snprintf( info, INFO_SIZE, "The sk%s explodes into sharp fragments of bone!",
                    (menv[mon].type == MONS_FLYING_SKULL) ? "ull" : "eleton");

            mprf("The %s explodes into sharp fragments of bone!",
                 (menv[mon].type == MONS_FLYING_SKULL) ? "skull" : "skeleton");

            // monster isn't susceptable. -- bwr 

            // monster isn't susceptible. -- bwr 

        snprintf( info, INFO_SIZE, "%s seems to be unnaturally hard.",
                  (grid == DNGN_PERMAROCK_WALL) ? "That wall" 
                                                : "The dungeon floor" );
        explode = false;

        mprf("%s seems to be unnaturally hard.",
             (grid == DNGN_PERMAROCK_WALL) ? "That wall" 
                                           : "The dungeon floor");

        {
            snprintf( info, INFO_SIZE, "The %s explodes!", what);
            mpr(info);
        }

            mprf("The %s explodes!", what);

            snprintf( info, INFO_SIZE, "%s twitches.",
                      ptr_monam( &(menv[ mon ]), DESC_CAP_THE ) );
            mpr( info );

            mprf("%s twitches.", ptr_monam( &(menv[ mon ]), DESC_CAP_THE));

            snprintf( info, INFO_SIZE, "You pull the item%s to yourself.",
                                 (mitm[ item ].quantity > 1) ? "s" : "" );
            mpr( info );

            mprf("You pull the item%s to yourself.",
                 (mitm[ item ].quantity > 1) ? "s" : "" );

            strcpy( info, (summoned == 1) ? "An icy figure forms "
                                          : "Some icy figures form " );
            strcat( info, "before you!" );
            mpr( info );

            mprf("%s before you!",
                 (summoned == 1) ? "An icy figure forms "
                                 : "Some icy figures form ");

        snprintf( info, INFO_SIZE, "Target square (%d,%d)", plox[0], plox[1] );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS, "Target square (%d,%d)", plox[0], plox[1] );

        snprintf( info, INFO_SIZE, "Scattered target square (%d,%d)", plox[0], plox[1] );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS,
             "Scattered target square (%d,%d)", plox[0], plox[1] );

    snprintf( info, INFO_SIZE, "Target square (%d,%d)", plox[0], plox[1] );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Target square (%d,%d)", plox[0], plox[1] );

            if (!success)
                mpr("You hear a dull thud.", MSGCH_SOUND);

            if (success)
                mprf(MSGCH_SOUND, "You hear a %svoice call your name.",
                     (see_grid( plox[0], plox[1] ) ? "distant " : "") );

            {
                snprintf( info, INFO_SIZE, "You hear a %svoice call your name.",
                          (see_grid( plox[0], plox[1] ) ? "distant " : "") );
                mpr( info , MSGCH_SOUND );
            }

                mprf(MSGCH_SOUND, "You hear a dull thud.");

    snprintf( info, INFO_SIZE, "Mass for abomination: %d", total_mass);
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Mass for abomination: %d", total_mass);

    snprintf( info, INFO_SIZE, "Mass including power bonus: %d", total_mass);
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Mass including power bonus: %d", total_mass);

                strcpy(info, "The light passes through ");
                strcat(info, ptr_monam( monster, DESC_NOCAP_THE ));
                strcat(info, ".");
                mpr(info);

                mprf("The light passes through %s.",
                     ptr_monam( monster, DESC_NOCAP_THE ));

            snprintf( info, INFO_SIZE, "You freeze %s.", 
                      ptr_monam( monster, DESC_NOCAP_THE ));
            mpr(info);

            mprf("You freeze %s.", ptr_monam( monster, DESC_NOCAP_THE ));

            strcpy(info, "You draw life from ");
            strcat(info, ptr_monam( monster, DESC_NOCAP_THE ));
            strcat(info, ".");
            mpr(info);

            mprf("You draw life from %s.", ptr_monam(monster, DESC_NOCAP_THE));

    strcpy(info, "You feel life coursing from ");
    strcat(info, ptr_monam( monster, DESC_NOCAP_THE ));
    strcat(info, " into your body!");
    mpr(info);

    mprf("You feel life coursing from %s into your body!",
         ptr_monam( monster, DESC_NOCAP_THE ));

    strcpy(info, "You ");
    strcat(info, (flavour == BEAM_FIRE)        ? "burn" :
                 (flavour == BEAM_COLD)        ? "freeze" :
                 (flavour == BEAM_MISSILE)     ? "crush" :
                 (flavour == BEAM_ELECTRICITY) ? "zap"
                                               : "______");
    strcat(info, " ");
    strcat(info, ptr_monam( monster, DESC_NOCAP_THE ));
    strcat(info, ".");
    mpr(info);

    mprf("You %s %s.",
         (flavour == BEAM_FIRE)        ? "burn" :
         (flavour == BEAM_COLD)        ? "freeze" :
         (flavour == BEAM_MISSILE)     ? "crush" :
         (flavour == BEAM_ELECTRICITY) ? "zap"
                                       : "______",
         ptr_monam( monster, DESC_NOCAP_THE ));

        snprintf( info, INFO_SIZE, "Some Thing%s answered your call!", 
                  (numsc + big_things > 1) ? "s" : "" );
        mpr(info);

        mprf("Some Thing%s answered your call!",
             (numsc + big_things > 1) ? "s" : "" );

        strcpy(info, "You heal ");
        strcat(info, ptr_monam( monster, DESC_NOCAP_THE ));
        strcat(info, ".");
        mpr(info);

        mprf("You heal %s.", ptr_monam( monster, DESC_NOCAP_THE ));

    snprintf( info, INFO_SIZE, "Your %s begin to glow %s.",
              your_hand(true), (you.confusing_touch ? "brighter" : "red") ); 

    mprf("Your %s begin to glow %s.",
         your_hand(true), (you.confusing_touch ? "brighter" : "red") ); 

    mpr( info ); 

                    snprintf( info, INFO_SIZE, "You have %strouble swinging %s.",

                    mprf(MSGCH_WARN, "You have %strouble swinging %s.",

                    snprintf( info, INFO_SIZE, "You'd be more effective with "

                    mprf(MSGCH_WARN, "You'd be more effective with "

                {
                    snprintf( info, INFO_SIZE, "Wielding %s is %s awkward.", 
                              wepstr, (you.dex < 7) ? "fairly" : "a little" );
                }

                    mprf(MSGCH_WARN, "Wielding %s is %s awkward.",
                         wepstr, (you.dex < 7) ? "fairly" : "a little" );

                {
                    snprintf( info, INFO_SIZE, "You'd be more effective with "

                    mprf(MSGCH_WARN, "You'd be more effective with "

                }

            mpr( info, MSGCH_WARN );

        strcpy( info, "Your low throwing skill limits the effectiveness of ");
        strcat( info, wepstr );
        mpr( info, MSGCH_WARN );

        mprf(MSGCH_WARN,
             "Your low throwing skill limits the effectiveness of %s.",
             wepstr);

    snprintf( info, INFO_SIZE, "Exercised %s * %d for %d xp.", 
             skill_name(exsk), skill_inc, skill_change );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf( MSGCH_DIAGNOSTICS, "Exercised %s * %d for %d xp.", 
          skill_name(exsk), skill_inc, skill_change );

        if (you.skills[exsk] == 27) {
            snprintf( info, INFO_SIZE, "You have mastered %s!", 
                      skill_name( exsk ) );

        if (you.skills[exsk] == 27)
        {
            mprf(MSGCH_INTRINSIC_GAIN,
                 "You have mastered %s!", skill_name( exsk ) );

        else if (you.skills[exsk] == 1) {
            snprintf( info, INFO_SIZE, "You have gained %s skill!", 
                      skill_name( exsk ) );

        else if (you.skills[exsk] == 1)
        {
            mprf(MSGCH_INTRINSIC_GAIN,
                 "You have gained %s skill!", skill_name( exsk ) );

        else {
            snprintf( info, INFO_SIZE, "Your %s skill increases to level %d!", 
                      skill_name( exsk ), you.skills[exsk] );

        else
        {
            mprf(MSGCH_INTRINSIC_GAIN, "Your %s skill increases to level %d!",
                 skill_name( exsk ), you.skills[exsk] );

        mpr( info, MSGCH_INTRINSIC_GAIN );

    ShopInfo &si = stashes.get_shop(env.shop[shoppy].x, env.shop[shoppy].y);

    ShopInfo &si = stashes.get_shop(env.shop[shoppy].x, env.shop[shoppy].y);

    strcpy(info, "You kneel at the altar of ");
    strcat(info, god_name(which_god));
    strcat(info, ".");
    mpr(info);

    mprf("You kneel at the altar of %s.", god_name(which_god));

    snprintf( info, INFO_SIZE, "Power: %d, player's MR: %d, target: %d, roll: %d", 
             ench_power, player_res_magic(), mrchance, mrch2 ); 
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS,
         "Power: %d, player's MR: %d, target: %d, roll: %d", 
         ench_power, player_res_magic(), mrchance, mrch2 ); 

    snprintf( info, INFO_SIZE, "gain_exp: %d", exp_gained );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "gain_exp: %d", exp_gained );

            snprintf( info, INFO_SIZE, "Welcome back to level %d!",
                      you.experience_level );
            mpr(info, MSGCH_INTRINSIC_GAIN);

            mprf(MSGCH_INTRINSIC_GAIN,
                 "Welcome back to level %d!", you.experience_level );

            snprintf( info, INFO_SIZE, "You are now a level %d %s!", 
                      you.experience_level, you.class_name );
            mpr(info, MSGCH_INTRINSIC_GAIN);

            mprf(MSGCH_INTRINSIC_GAIN, "You are now a level %d %s!",
                 you.experience_level, you.class_name );

void display_char_status(void)

void display_char_status()

        snprintf( info, INFO_SIZE, "You are %s poisoned.",
                  (you.poisoning > 10) ? "extremely" :
                  (you.poisoning > 5)  ? "very" :
                  (you.poisoning > 3)  ? "quite"
                                    : "mildly" );
        mpr(info);

        mprf("You are %s poisoned.",
             (you.poisoning > 10) ? "extremely" :
             (you.poisoning > 5)  ? "very" :
             (you.poisoning > 3)  ? "quite"
                                  : "mildly" );

        snprintf( info, INFO_SIZE, "You are %sdiseased.",
                  (you.disease > 120) ? "badly " :
                  (you.disease >  40) ? ""
                                      : "mildly " );
        mpr(info);

        mprf("You are %sdiseased.",
             (you.disease > 120) ? "badly " :
             (you.disease >  40) ? ""
                                 : "mildly " );

        snprintf( info, INFO_SIZE, "Your flesh is rotting%s",
                  (you.rotting > 15) ? " before your eyes!":
                  (you.rotting > 8)  ? " away quickly.":
                  (you.rotting > 4)  ? " badly."
             : ((you.species == SP_GHOUL && you.rotting > 0)
                        ? " faster than usual." : ".") );
        mpr(info);

        mprf("Your flesh is rotting%s",
             (you.rotting > 15) ? " before your eyes!" :
             (you.rotting > 8)  ? " away quickly." :
             (you.rotting > 4)  ? " badly." :
             ((you.species == SP_GHOUL && you.rotting) ?
              " faster than usual." : ".") );

    // prints a contamination message

        snprintf( info, INFO_SIZE, "Your hands are glowing %s red.",
                  (you.confusing_touch > 40) ? "an extremely bright" :
                  (you.confusing_touch > 20) ? "bright"
                                             : "a soft" );
        mpr(info);

        mprf("Your hands are glowing %s red.",
             (you.confusing_touch > 40) ? "an extremely bright" :
             (you.confusing_touch > 20) ? "bright"
                                        : "a soft" );

        snprintf( info, INFO_SIZE, "You have a %sbond with your blade.",
                  (you.sure_blade > 15) ? "strong " :
                  (you.sure_blade >  5) ? ""
                                        : "weak " );
        mpr(info);

        mprf("You have a %sbond with your blade.",
             (you.sure_blade > 15) ? "strong " :
             (you.sure_blade >  5) ? ""
                                   : "weak " );

    snprintf( info, INFO_SIZE,
              "Your %s speed is %s%s%s.",
              // order is important for these:
              (swim)    ? "swimming" :
              (water)   ? "wading" :
              (fly)     ? "flying" :
              (lev)     ? "levitating" 
                        : "movement", 

              (water && !swim)  ? "uncertain and " :
              (!water && swift) ? "aided by the wind" : "",

    mprf( "Your %s speed is %s%s%s.",
          // order is important for these:
          (swim)    ? "swimming" :
          (water)   ? "wading" :
          (fly)     ? "flying" :
          (lev)     ? "levitating" 
                    : "movement", 
          (water && !swim)  ? "uncertain and " :
          (!water && swift) ? "aided by the wind" : "",

              (!water && swift) ? ((move_cost >= 10) ? ", but still "
                                                     :  " and ") 
                                : "",

          (!water && swift) ? ((move_cost >= 10) ? ", but still "
                                                 : " and ")
                            : "",

              (move_cost <   8) ? "very quick" :
              (move_cost <  10) ? "quick" :
              (move_cost == 10) ? "average" :
              (move_cost <  13) ? "slow" 
                                : "very slow" );
    mpr(info);

          (move_cost <   8) ? "very quick" :
          (move_cost <  10) ? "quick" :
          (move_cost == 10) ? "average" :
          (move_cost <  13) ? "slow" 
                            : "very slow" );

    snprintf( info, INFO_SIZE, 
              "%s given your current equipment.",
              (to_hit <   1) ? "You are completely incapable of fighting" :
              (to_hit <   5) ? "Hitting even clumsy monsters is extremely awkward" :
              (to_hit <  10) ? "Hitting average monsters is awkward" :
              (to_hit <  15) ? "Hitting average monsters is difficult" :
              (to_hit <  20) ? "Hitting average monsters is hard" :
              (to_hit <  30) ? "Very agile monsters are a bit awkward to hit" :
              (to_hit <  45) ? "Very agile monsters are a bit difficult to hit" :
              (to_hit <  60) ? "Very agile monsters are a bit hard to hit" :
              (to_hit < 100) ? "You feel comfortable with your ability to fight" 
              : "You feel confident with your ability to fight" );
    

    mprf("%s given your current equipment.",
         (to_hit <   1) ? "You are completely incapable of fighting" :
         (to_hit <   5) ? "Hitting even clumsy monsters is extremely awkward" :
         (to_hit <  10) ? "Hitting average monsters is awkward" :
         (to_hit <  15) ? "Hitting average monsters is difficult" :
         (to_hit <  20) ? "Hitting average monsters is hard" :
         (to_hit <  30) ? "Very agile monsters are a bit awkward to hit" :
         (to_hit <  45) ? "Very agile monsters are a bit difficult to hit" :
         (to_hit <  60) ? "Very agile monsters are a bit hard to hit" :
         (to_hit < 100) ? "You feel comfortable with your ability to fight" 
                        : "You feel confident with your ability to fight" );

    char str_pass[INFO_SIZE];
    snprintf( str_pass, INFO_SIZE, " (%d)", to_hit );
    strncat( info, str_pass, INFO_SIZE );

    mprf("To-hit: %d", to_hit);

    mpr(info);
    

    snprintf(info, INFO_SIZE, "You are %s resistant to magic.",
             (mr <  10) ? "not" :
             (mr <  30) ? "slightly" :
             (mr <  60) ? "somewhat" :
             (mr <  90) ? "quite" :
             (mr < 120) ? "very" :
             (mr < 140) ? "extremely" :
             "incredibly");
    mpr(info);

    mprf("You are %s resistant to magic.",
         (mr <  10) ? "not" :
         (mr <  30) ? "slightly" :
         (mr <  60) ? "somewhat" :
         (mr <  90) ? "quite" :
         (mr < 120) ? "very" :
         (mr < 140) ? "extremely"
                    : "incredibly");

    snprintf( info, INFO_SIZE, "You feel %sstealthy.",
              (ustealth <  10) ? "extremely un" :
              (ustealth <  20) ? "very un" :
              (ustealth <  30) ? "un" :
              (ustealth <  50) ? "fairly " :
              (ustealth <  80) ? "" :
              (ustealth < 120) ? "quite " :
              (ustealth < 160) ? "very " : 
              (ustealth < 200) ? "extremely " 
              : "incredibly " );

    mprf("You feel %sstealthy.",
         (ustealth <  10) ? "extremely un" :
         (ustealth <  20) ? "very un" :
         (ustealth <  30) ? "un" :
         (ustealth <  50) ? "fairly " :
         (ustealth <  80) ? "" :
         (ustealth < 120) ? "quite " :
         (ustealth < 160) ? "very " : 
         (ustealth < 200) ? "extremely " 
                          : "incredibly " );

    snprintf( str_pass, INFO_SIZE, " (%d)", ustealth );
    strncat( info, str_pass, INFO_SIZE );

    mprf("stealth: %d", ustealth);

    mpr( info );    

    memset( print_it, ' ', sizeof(print_it) );

        snprintf( info, INFO_SIZE, "change: %d  radiation: %d", 
                 change, change + you.magic_contamination );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS, "change: %d  radiation: %d", 
             change, change + you.magic_contamination );

                strcpy(info, (new_level == 4) ?
                    "Your entire body has taken on an eerie glow!" :
                    "You are engulfed in a nimbus of crackling magics!");

                mpr( (new_level == 4) ?
                     "Your entire body has taken on an eerie glow!" :
                     "You are engulfed in a nimbus of crackling magics!");

                snprintf( info, INFO_SIZE, "You are %s with residual magics%c",
                    (new_level == 3) ? "practically glowing" :
                    (new_level == 2) ? "heavily infused"
                                     : "contaminated",
                    (new_level == 3) ? '!' : '.');

                mprf("You are %s with residual magics%s",
                     (new_level == 3) ? "practically glowing" :
                     (new_level == 2) ? "heavily infused"
                                      : "contaminated",
                     (new_level == 3) ? "!" : ".");

            mpr(info);

    snprintf( info, INFO_SIZE, "You feel %s contaminated with magical energies.", 
              (change < 0) ? "less" : "more" );
    mpr( info, (change > 0) ? MSGCH_WARN : MSGCH_RECOVERY );

    mprf((change > 0) ? MSGCH_WARN : MSGCH_RECOVERY,
         "You feel %s contaminated with magical energies.", 
         (change > 0) ? "more" : "less" );

        snprintf( info, INFO_SIZE, "You are %spoisoned.",
                  (old_value > 0) ? "more " : "" );

        mpr( info );

        mprf("You are %spoisoned.", (old_value > 0) ? "more " : "" );

        snprintf( info, INFO_SIZE, "You are %sconfused.", 
                  (old_value > 0) ? "more " : "" );

        mpr( info );

        mprf("You are %sconfused.", (old_value > 0) ? "more " : "" );

        snprintf( info, INFO_SIZE, "You feel your flesh %s away!",
                  (you.rotting) ? "rotting" : "start to rot" );
        mpr( info, MSGCH_WARN );

        mprf(MSGCH_WARN, "You feel your flesh %s away!",
             (you.rotting) ? "rotting" : "start to rot" );

    snprintf( info, INFO_SIZE, "checking resistance: flavour=%d", flavour );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "checking resistance: flavour=%d", flavour );

        snprintf( info, INFO_SIZE, "Your %s burn!", your_hand(true) );
        mpr( info );

        mprf("Your %s burn!", your_hand(true) );

            snprintf( info, INFO_SIZE, "%s you are carrying %s fire!",
                      (num_dest > 1) ? "Some of the scrolls" : "A scroll",
                      (num_dest > 1) ? "catch" : "catches" );

            mprf("%s you are carrying %s fire!",
                 (num_dest > 1) ? "Some of the scrolls" : "A scroll",
                 (num_dest > 1) ? "catch" : "catches" );

            snprintf( info, INFO_SIZE, "%s you are carrying %s and %s!",
                      (num_dest > 1) ? "Some of the potions" : "A potion",
                      (num_dest > 1) ? "freeze" : "freezes",
                      (num_dest > 1) ? "shatter" : "shatters" );

            mprf("%s you are carrying %s and %s!",
                 (num_dest > 1) ? "Some of the potions" : "A potion",
                 (num_dest > 1) ? "freeze" : "freezes",
                 (num_dest > 1) ? "shatter" : "shatters" );

            snprintf( info, INFO_SIZE, "Some of your food is covered with spores!" );

            mprf("Some of your food is covered with spores!");

            snprintf( info, INFO_SIZE, "%s you are carrying %s destroyed!",
                      (num_dest > 1) ? "Some items" : "An item",
                      (num_dest > 1) ? "were" : "was" );

            mprf("%s you are carrying %s destroyed!",
                 (num_dest > 1) ? "Some items" : "An item",
                 (num_dest > 1) ? "were" : "was" );

        mpr( info );    // XXX: should this be in a channel?

    snprintf( info, INFO_SIZE, "You are now a level %d %s!", 
             you.experience_level, you.class_name );
    mpr( info, MSGCH_WARN );

    mprf(MSGCH_WARN,
         "You are now a level %d %s!", you.experience_level, you.class_name);

        snprintf( info, INFO_SIZE, "You lose %ld experience points.",
                  exp_drained );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS, "You lose %ld experience points.",exp_drained);

        snprintf( info, INFO_SIZE, 
                  "Potential bug: Unexpectedly high damage = %d", dam );
        mpr( info, MSGCH_DANGER );

        mprf(MSGCH_DANGER,
             "Potential bug: Unexpectedly high damage = %d", dam );

            snprintf( info, INFO_SIZE, "Damage: %d; Hit points: %d", dam, you.hp );
            mpr( info, MSGCH_DIAGNOSTICS );
#endif // DEBUG_DIAGNOSTICS

            mprf(MSGCH_DIAGNOSTICS, "Damage: %d; Hit points: %d", dam, you.hp);
#endif

        strncpy(spec_buff, species_name(you.species, you.experience_level), 80);

        strncpy(spec_buff,
                species_name(you.species, you.experience_level), 80);

    snprintf( info, INFO_SIZE, "levels: %d", j );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "levels: %d", j );

                strcpy(info, "You hear a loud \"Zot\"!");

                mpr("You hear a loud \"Zot\"!");

                strcpy(info, "You hear a distant \"Zot\"!");
            mpr(info);

                mpr("You hear a distant \"Zot\"!");

    snprintf( info, INFO_SIZE, "Mon #%d casts %s (#%d)", monster_index(monster),
             mons_spell_name( spell_cast ), spell_cast );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Mon #%d casts %s (#%d)",
         monster_index(monster), mons_spell_name( spell_cast ), spell_cast);

        mpr( info );

        mpr(info);

            if (!silent)

            if (death_message)

                mpr(info, MSGCH_MONSTER_DAMAGE, MDAM_DEAD);

            if (death_message)
                mpr(info, MSGCH_MONSTER_DAMAGE, MDAM_DEAD);

            snprintf( info, INFO_SIZE, "%s is skipping movement in order to follow.",
                      ptr_monam( monster, DESC_CAP_THE ) );
            mpr( info, MSGCH_DIAGNOSTICS );

            mprf(MSGCH_DIAGNOSTICS,
                 "%s is skipping movement in order to follow.",
                 ptr_monam( monster, DESC_CAP_THE ) );

    snprintf( info, INFO_SIZE, 
              "Power: %d, monster's MR: %d, target: %d, roll: %d", 
              pow, mrs, mrchance, mrch2 );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS,
         "Power: %d, monster's MR: %d, target: %d, roll: %d", 
         pow, mrs, mrchance, mrch2 );

            snprintf( info, INFO_SIZE, "poison damage: %d", dam );
            mpr( info, MSGCH_DIAGNOSTICS );

            mprf(MSGCH_DIAGNOSTICS, "poison damage: %d", dam );

                snprintf( info, INFO_SIZE, 
                          "You need at least %d Runes to enter this place.",
                          NUMBER_OF_RUNES_NEEDED );
                mpr(info);

                mprf( "You need at least %d Runes to enter this place.",
                      NUMBER_OF_RUNES_NEEDED );

        snprintf( info, INFO_SIZE, "You avoid triggering a%s trap.",
                                    pbolt.name.c_str() );
        mpr(info);

        mprf( "You avoid triggering a%s trap.", pbolt.name.c_str() );

    snprintf( info, INFO_SIZE, "Input %s%s trigger key: ",
               keymap? 
                    (keymc == KC_DEFAULT? "default " :
                     keymc == KC_LEVELMAP? "level-map " :
                                           "targeting ") :
                    "",
              (keymap ? "keymap" : "macro") );

    mprf(MSGCH_PROMPT, "Input %s%s trigger key: ",
         keymap ? (keymc == KC_DEFAULT  ? "default " :
                   keymc == KC_LEVELMAP ? "level-map "
                                        : "targeting ")
                : "",
         (keymap ? "keymap" : "macro") );

    mpr( info, MSGCH_PROMPT );

        snprintf( info, INFO_SIZE, "Current Action: %s", 
                  (vtostr( mapref[key] )).c_str() );
        mpr( info, MSGCH_WARN );

        mprf(MSGCH_WARN, "Current Action: %s", vtostr(mapref[key]).c_str());

            snprintf( info, INFO_SIZE, "There is a %s staircase leading down here.",
                     (grid == DNGN_ROCK_STAIRS_DOWN) ? "rock" : "stone" );
            mpr(info);

            mprf("There is a %s staircase leading down here.",
                 (grid == DNGN_ROCK_STAIRS_DOWN) ? "rock" : "stone" );

            snprintf( info, INFO_SIZE, "There is a %s staircase leading upwards here.",
                     (grid == DNGN_ROCK_STAIRS_UP) ? "rock" : "stone" );
            mpr(info);

            mprf("There is a %s staircase leading upwards here.",
                 (grid == DNGN_ROCK_STAIRS_UP) ? "rock" : "stone" );

                snprintf( info, INFO_SIZE, "There is an entrance to %s here.", shop_name(you.x_pos, you.y_pos));
                mpr(info);

                mprf("There is an entrance to %s here.",
                     shop_name(you.x_pos, you.y_pos));

        strcpy(info, "You see here ");  // remember 'an'.
        strcat(info, item_show[counter_max]);
        strcat(info, ".");
        mpr(info);

        mprf("You see here %s.", item_show[counter_max]);  // remember 'an'.

                snprintf( info, INFO_SIZE, "Pick up %s? (y/n/a/*?g,/q)",
                          mitm[o].name(DESC_NOCAP_A).c_str() );
                mpr( info, MSGCH_PROMPT );

                mprf(MSGCH_PROMPT, "Pick up %s? (y/n/a/*?g,/q)",
                     mitm[o].name(DESC_NOCAP_A).c_str() );

            snprintf( info, INFO_SIZE, "You pick up %d gold piece%s.", 
                     quant_got, (quant_got > 1) ? "s" : "" );
            mpr(info);

            mprf("You pick up %d gold piece%s.",
                 quant_got, (quant_got > 1) ? "s" : "" );

    snprintf( info, INFO_SIZE, "turns: %d", turns );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "turns: %d", turns );

        snprintf( info, INFO_SIZE, 
                  "mon #%d: range %d; long %d; pos (%d,%d); targ %d(%d,%d); flags %ld", 
                  m, range, long_time, mon->x, mon->y, 
                  mon->foe, mon->target_x, mon->target_y, mon->flags );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS,
             "mon #%d: range %d; long %d; "
             "pos (%d,%d); targ %d(%d,%d); flags %ld", 
             m, range, long_time, mon->x, mon->y, 
             mon->foe, mon->target_x, mon->target_y, mon->flags );

                snprintf(info, INFO_SIZE, "shifted to (%d,%d)", mon->x, mon->y);
                mpr( info, MSGCH_DIAGNOSTICS );

                mprf(MSGCH_DIAGNOSTICS, "shifted to (%d,%d)", mon->x, mon->y);

        snprintf( info, INFO_SIZE, "moved to (%d,%d)", mon->x, mon->y );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS, "moved to (%d,%d)", mon->x, mon->y );

    snprintf( info, INFO_SIZE, "total monsters on level = %d", mons_total );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "total monsters on level = %d", mons_total );

        snprintf( info, INFO_SIZE, "This wand has %d charge%s left.",
                 you.inv[item_slot].plus, 
                 (you.inv[item_slot].plus == 1) ? "" : "s" );
        mpr(info);

        mprf("This wand has %d charge%s left.",
             you.inv[item_slot].plus, 
             (you.inv[item_slot].plus == 1) ? "" : "s" );

static bool affix_weapon_enchantment( void )

static bool affix_weapon_enchantment()

    strcpy(info, you.inv[wpn].name(DESC_CAP_YOUR).c_str());

            // Get the name before it changes.
            const std::string iname =
                you.inv[you.equip[EQ_WEAPON]].name(DESC_CAP_YOUR);

                const std::string iname =
                    you.inv[you.equip[EQ_WEAPON]].name(DESC_CAP_YOUR);

    strcpy(info, "The book opens to a page covered in ");

    char wc[30];

    char wc[40];

    strcat( info, wc );
    strcat( info, "." );
    mpr( info );

    
    mprf("The book opens to a page covered in %s.", wc);

    char skname[30];

    strcpy(skname, skill_name(you.inv[sc_read_2].plus));

    const int skill = you.inv[sc_read_2].plus;

    strcpy(info, "This is a manual of ");
    strcat(info, skname);
    strcat(info, "!");
    mpr(info);

    const char* skname = skill_name(skill);
    mprf("This is a manual of %s!", skname);

    strcpy(info, "You read about ");
    strcat(info, strlwr(skname));
    strcat(info, ".");
    mpr(info);

    mprf("You read about %s.", skname);

    exercise( you.inv[sc_read_2].plus, 500 );

    exercise(skill, 500);

        strcpy(info, "You feel");
        strcat(info, (!player_is_levitating()) ? " very" : " more");
        strcat(info, " buoyant.");
        mpr(info);

        mprf("You feel %s buoyant.",
             (!player_is_levitating()) ? " very" : " more");

            snprintf( info, INFO_SIZE, "You feel %s nauseous.",
                        (pot_eff == POT_POISON) ? "slightly" : "quite" );
            mpr(info);

            mprf("You feel %s nauseous.",
                 (pot_eff == POT_POISON) ? "slightly" : "quite" );

            snprintf( info, INFO_SIZE, "That liquid tasted %s nasty...",
                        (pot_eff == POT_POISON) ? "very" : "extremely" );
            mpr(info);

            mprf("That liquid tasted %s nasty...",
                 (pot_eff == POT_POISON) ? "very" : "extremely" );

        snprintf( info, INFO_SIZE, "%s shouts:", mon_name );
        mpr( info, MSGCH_TALK );
        mpr( buff, MSGCH_TALK );

        mprf(MSGCH_TALK, "%s shouts:", mon_name );
        mprf(MSGCH_TALK, "%s", buff );

        snprintf( info, INFO_SIZE, "%s shouts, \"%s\"", mon_name, buff );
        mpr( info, MSGCH_TALK );

        mprf(MSGCH_TALK, "%s shouts, \"%s\"", mon_name, buff );

        snprintf( info, INFO_SIZE, "%s %s:", mon_name, voice );
        mpr( info, MSGCH_TALK );
        mpr( buff, MSGCH_TALK );

        mprf(MSGCH_TALK, "%s %s:", mon_name, voice );
        mprf(MSGCH_TALK, "%s",  buff);

        snprintf( info, INFO_SIZE, "%s %s, \"%s\"", mon_name, voice, buff );
        mpr( info, MSGCH_TALK );

        mprf(MSGCH_TALK, "%s %s, \"%s\"", mon_name, voice, buff );

                strcpy(info, "That beef jerky was ");
                strcat(info, (one_chance_in(4)) ? "jerk-a-riffic"
                                                : "delicious");
                strcat(info, "!");
                mpr(info);

                mprf("That beef jerky was %s!",
                     one_chance_in(4) ? "jerk-a-riffic"
                                      : "delicious");

                strcpy(info, "Mmmm... Yummy ");
                strcat(info, (item_type == FOOD_APPLE)   ? "apple." :
                             (item_type == FOOD_PEAR)    ? "pear." :
                             (item_type == FOOD_APRICOT) ? "apricot."
                                                         : "fruit.");
                mpr(info);

                mprf("Mmmm... Yummy %s.",
                     (item_type == FOOD_APPLE)   ? "apple." :
                     (item_type == FOOD_PEAR)    ? "pear." :
                     (item_type == FOOD_APRICOT) ? "apricot."
                                                 : "fruit.");

                snprintf(info, INFO_SIZE, "Mmm... %s", SysEnv.crawl_pizza);

                mprf("Mmm... %s.", SysEnv.crawl_pizza);

                snprintf(info, INFO_SIZE, "Mmm... %s",
                             (temp_rand == 0) ? "Ham and pineapple." :
                             (temp_rand == 2) ? "Vegetable." :
                             (temp_rand == 3) ? "Pepperoni." :
                             (temp_rand == 4) ? "Yeuchh - Anchovies!" :
                             (temp_rand == 5) ? "Cheesy." :
                             (temp_rand == 6) ? "Supreme." :
                             (temp_rand == 7) ? "Super Supreme!"
                                              : "Chicken.");

                mprf("Mmm... %s",
                     (temp_rand == 0) ? "Ham and pineapple." :
                     (temp_rand == 2) ? "Vegetable." :
                     (temp_rand == 3) ? "Pepperoni." :
                     (temp_rand == 4) ? "Yeuchh - Anchovies!" :
                     (temp_rand == 5) ? "Cheesy." :
                     (temp_rand == 6) ? "Supreme." :
                     (temp_rand == 7) ? "Super Supreme!"
                                      : "Chicken.");

            mpr(info);

            strcpy(info, "Mmm... ");

            strcat(info, (temp_rand == 0) ? "Cheddar" :
                         (temp_rand == 1) ? "Edam" :
                         (temp_rand == 2) ? "Wensleydale" :
                         (temp_rand == 3) ? "Camembert" :
                         (temp_rand == 4) ? "Goat cheese" :
                         (temp_rand == 5) ? "Fruit cheese" :
                         (temp_rand == 6) ? "Mozzarella" :
                         (temp_rand == 7) ? "Sheep cheese"
                                          : "Yak cheese");
            strcat(info, ".");
            mpr(info);

            mprf("Mmm...%s.",
                 (temp_rand == 0) ? "Cheddar" :
                 (temp_rand == 1) ? "Edam" :
                 (temp_rand == 2) ? "Wensleydale" :
                 (temp_rand == 3) ? "Camembert" :
                 (temp_rand == 4) ? "Goat cheese" :
                 (temp_rand == 5) ? "Fruit cheese" :
                 (temp_rand == 6) ? "Mozzarella" :
                 (temp_rand == 7) ? "Sheep cheese"
                                  : "Yak cheese");

        snprintf( info, INFO_SIZE, "arrival time: %d", val );
        mpr( info, MSGCH_DIAGNOSTICS ); 

        mprf(MSGCH_DIAGNOSTICS, "arrival time: %d", val );

        snprintf( info, INFO_SIZE, "Ghost file \"%s\" seems to be invalid.",
                  cha_fil.c_str());
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS,
             "Ghost file \"%s\" seems to be invalid.", cha_fil.c_str());

        strcpy(info, "Your ");

        strcat(info, (temp_rand == 0) ? "ears itch."   :
                     (temp_rand == 1) ? "brain hurts!"
                                      : "nose twitches suddenly!");
        mpr(info);

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

                snprintf( info, INFO_SIZE, 
                          "acquirement: iteration = %d, best_spell = %d",
                          iteration, best_spell );
                mpr( info, MSGCH_DIAGNOSTICS );

                mprf(MSGCH_DIAGNOSTICS,
                     "acquirement: iteration = %d, best_spell = %d",
                     iteration, best_spell );

        snprintf( info, INFO_SIZE, "Delay type: %d (%s), duration: %d", 
                  delay.type, delay_name(delay.type), delay.duration ); 
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS, "Delay type: %d (%s), duration: %d", 
             delay.type, delay_name(delay.type), delay.duration ); 

        snprintf(info, INFO_SIZE, "You finish %s the corpse into pieces.",
                 (you.species == SP_TROLL ||
                  you.species == SP_GHOUL) ? "ripping" : "chopping" );
        mpr(info);

        mprf("You finish %s the corpse into pieces.",
             (you.species==SP_TROLL || you.species == SP_GHOUL) ? "ripping"
                                                                : "chopping");

            snprintf( info, INFO_SIZE, "You drop %s.",
                      quant_name(you.inv[delay.parm1], delay.parm2,
                                 DESC_NOCAP_A).c_str());
            mpr(info);

            mprf("You drop %s.", quant_name(you.inv[delay.parm1], delay.parm2,
                                            DESC_NOCAP_A).c_str());

            snprintf( info, INFO_SIZE, "An altar grows from the floor %s!",
                      (you.species == SP_NAGA || you.species == SP_CENTAUR)
                      ? "before you" : "at your feet");
            mpr(info);

            mprf("An altar grows from the floor %s!",
                 (you.species == SP_NAGA || you.species == SP_CENTAUR)
                 ? "before you" : "at your feet");

            snprintf( info, INFO_SIZE, "Old value: %d (0x%04x)", *ptr, *ptr );

            mprf("Old value: %d (0x%04x)", *ptr, *ptr );

            snprintf( info, INFO_SIZE, "Old value: %ld (0x%08lx)", *ptr, *ptr );

            mprf("Old value: %ld (0x%08lx)", *ptr, *ptr );

        mpr( info );

            snprintf( info, INFO_SIZE, "cloud type: %d delay: %d", 
                     env.cloud[ env.cgrid[steth_x][steth_y] ].type,
                     env.cloud[ env.cgrid[steth_x][steth_y] ].decay );
            mpr( info, MSGCH_DIAGNOSTICS );

            mprf(MSGCH_DIAGNOSTICS, "cloud type: %d delay: %d", 
                 env.cloud[ env.cgrid[steth_x][steth_y] ].type,
                 env.cloud[ env.cgrid[steth_x][steth_y] ].decay );

            snprintf( info, INFO_SIZE, "item grid = %d", igrd[steth_x][steth_y] );
            mpr( info, MSGCH_DIAGNOSTICS );

            mprf(MSGCH_DIAGNOSTICS, "item grid = %d", igrd[steth_x][steth_y] );

    snprintf( info, INFO_SIZE, "%s (id #%d; type=%d loc=(%d,%d) align=%s)",
              monam( &menv[i], menv[i].number, menv[i].type, true,
                     DESC_CAP_THE ),
              i, menv[i].type,
              menv[i].x, menv[i].y,
              ((menv[i].attitude == ATT_FRIENDLY) ? "friendly" :
               (menv[i].attitude == ATT_HOSTILE)  ? "hostile" :
               (menv[i].attitude == ATT_NEUTRAL)  ? "neutral" 
                                                  : "unknown alignment") );

    mprf(MSGCH_DIAGNOSTICS, "%s (id #%d; type=%d loc=(%d,%d) align=%s)",
         monam( &menv[i], menv[i].number, menv[i].type, true, DESC_CAP_THE ),
         i, menv[i].type, menv[i].x, menv[i].y,
         ((menv[i].attitude == ATT_FRIENDLY) ? "friendly" :
          (menv[i].attitude == ATT_HOSTILE)  ? "hostile" :
          (menv[i].attitude == ATT_NEUTRAL)  ? "neutral" 
                                             : "unknown alignment") );

    mpr( info, MSGCH_DIAGNOSTICS );

    snprintf( info, INFO_SIZE,"HD=%d HP=%d/%d AC=%d EV=%d MR=%d SP=%d energy=%d num=%d flags=%04lx",
             menv[i].hit_dice, 
             menv[i].hit_points, menv[i].max_hit_points, 
             menv[i].ac, menv[i].ev,
             mons_resist_magic( &menv[i] ),
             menv[i].speed, menv[i].speed_increment,
             menv[i].number, menv[i].flags );

    mprf(MSGCH_DIAGNOSTICS,
         "HD=%d HP=%d/%d AC=%d EV=%d MR=%d SP=%d energy=%d num=%d flags=%04lx",
         menv[i].hit_dice, 
         menv[i].hit_points, menv[i].max_hit_points, 
         menv[i].ac, menv[i].ev,
         mons_resist_magic( &menv[i] ),
         menv[i].speed, menv[i].speed_increment,
         menv[i].number, menv[i].flags );

    mpr( info, MSGCH_DIAGNOSTICS );

    snprintf( info, INFO_SIZE, "hab=%s beh=%s(%d) foe=%s(%d) mem=%d target=(%d,%d)", 
             ((hab == DNGN_DEEP_WATER)            ? "water" :
              (hab == DNGN_LAVA)                  ? "lava" 
                                                  : "floor"),
             ((menv[i].behaviour == BEH_SLEEP)    ? "sleep" :
              (menv[i].behaviour == BEH_WANDER)   ? "wander" :
              (menv[i].behaviour == BEH_SEEK)     ? "seek" :
              (menv[i].behaviour == BEH_FLEE)     ? "flee" :
              (menv[i].behaviour == BEH_CORNERED) ? "cornered" 
                                                  : "unknown"), 
             menv[i].behaviour,
             ((menv[i].foe == MHITYOU)            ? "you" :
              (menv[i].foe == MHITNOT)            ? "none" :
              (menv[menv[i].foe].type == -1)      ? "unassigned monster" 
              : monam( &menv[menv[i].foe],
                       menv[menv[i].foe].number, menv[menv[i].foe].type,
                       true, DESC_PLAIN )),
             menv[i].foe, 
             menv[i].foe_memory, 
             menv[i].target_x, menv[i].target_y );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS,
         "hab=%s beh=%s(%d) foe=%s(%d) mem=%d target=(%d,%d)", 
         ((hab == DNGN_DEEP_WATER)            ? "water" :
          (hab == DNGN_LAVA)                  ? "lava" 
                                              : "floor"),
         ((menv[i].behaviour == BEH_SLEEP)    ? "sleep" :
          (menv[i].behaviour == BEH_WANDER)   ? "wander" :
          (menv[i].behaviour == BEH_SEEK)     ? "seek" :
          (menv[i].behaviour == BEH_FLEE)     ? "flee" :
          (menv[i].behaviour == BEH_CORNERED) ? "cornered" 
                                              : "unknown"), 
         menv[i].behaviour,
         ((menv[i].foe == MHITYOU)            ? "you" :
          (menv[i].foe == MHITNOT)            ? "none" :
          (menv[menv[i].foe].type == -1)      ? "unassigned monster" 
          : monam( &menv[menv[i].foe], menv[menv[i].foe].number,
                   menv[menv[i].foe].type, true, DESC_PLAIN )),
         menv[i].foe, 
         menv[i].foe_memory,          
         menv[i].target_x, menv[i].target_y );

    snprintf( info, INFO_SIZE, "resist: fire=%d cold=%d elec=%d pois=%d neg=%d",
              mons_res_fire( &menv[i] ),
              mons_res_cold( &menv[i] ),
              mons_res_elec( &menv[i] ),
              mons_res_poison( &menv[i] ),
              mons_res_negative_energy( &menv[i] ) );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "resist: fire=%d cold=%d elec=%d pois=%d neg=%d",
         mons_res_fire( &menv[i] ),
         mons_res_cold( &menv[i] ),
         mons_res_elec( &menv[i] ),
         mons_res_poison( &menv[i] ),
         mons_res_negative_energy( &menv[i] ) );

    snprintf( info, INFO_SIZE, "    item #%d:  base: %d; sub: %d; plus: %d; plus2: %d; special: %ld",
             num, item.base_type, item.sub_type, 

    mprf("    item #%d:  base: %d; sub: %d; plus: %d; plus2: %d; special: %ld",
         num, item.base_type, item.sub_type,

    mpr( info );
    snprintf( info, INFO_SIZE, "    quant: %d; colour: %d; ident: 0x%08lx; ident_type: %d",
             item.quantity, item.colour, item.flags,
             get_ident_type( item.base_type, item.sub_type ) );

    mprf("    quant: %d; colour: %d; ident: 0x%08lx; ident_type: %d",
         item.quantity, item.colour, item.flags,
         get_ident_type( item.base_type, item.sub_type ) );

    mpr( info );
    snprintf( info, INFO_SIZE, "    x: %d; y: %d; link: %d",
             item.x, item.y, item.link );
    mpr( info );

    mprf("    x: %d; y: %d; link: %d", item.x, item.y, item.link );

                    snprintf( info, INFO_SIZE, "Item position incorrect at (%d,%d)!", x, y);
                    mpr( info, MSGCH_WARN );

                    mprf(MSGCH_WARN,"Item position incorrect at (%d,%d)!",x,y);

                    snprintf( info, INFO_SIZE, "Potential INFINITE STACK at (%d, %d)", x, y);
                    mpr( info, MSGCH_WARN );

                    mprf(MSGCH_WARN,
                         "Potential INFINITE STACK at (%d, %d)", x, y);

            snprintf( info, INFO_SIZE, "igrd(%d,%d) = %d", mitm[i].x, mitm[i].y, 
                     igrd[ mitm[i].x ][ mitm[i].y ] );
            mpr( info );

            mprf("igrd(%d,%d) = %d",
                 mitm[i].x, mitm[i].y, igrd[ mitm[i].x ][ mitm[i].y ] );

                        snprintf( info, INFO_SIZE, "Held by monster #%d: %s at (%d,%d)", 
                                 j, ptr_monam( &menv[j], DESC_CAP_A ),
                                 menv[j].x, menv[j].y );
                        mpr( info );

                        mprf("Held by monster #%d: %s at (%d,%d)", 
                             j, ptr_monam( &menv[j], DESC_CAP_A ),
                             menv[j].x, menv[j].y );

            mpr( "Program bug detected!", MSGCH_WARN );
            snprintf( info, INFO_SIZE,
                      "Buggy monster detected: monster #%d; position (%d,%d)",
                      i, monster->x, monster->y );
            mpr( info, MSGCH_WARN );

            mprf( MSGCH_WARN, "Program bug detected!" );
            mprf( MSGCH_WARN,
                  "Buggy monster detected: monster #%d; position (%d,%d)",
                  i, monster->x, monster->y );

        snprintf( info, INFO_SIZE, "Found: %s", mutation_name( mutation, 1 ) );
        mpr( info );

        mprf("Found: %s", mutation_name( mutation, 1 ) );

        int levels = debug_prompt_for_int( "How many levels? ", false );

        const int levels = debug_prompt_for_int( "How many levels? ", false );

    snprintf( info, INFO_SIZE, "%c - %s", input_2, 
              spell_title( get_spell_by_letter(input_2) ) );

    mprf("%c - %s", input_2, spell_title( get_spell_by_letter(input_2) ) );

    mpr(info);

    {
        snprintf( info, INFO_SIZE, "%c - %s", input_1, spell_title(spell) );
        mpr(info);
    }

        mprf("%c - %s", input_1, spell_title(spell) );

    snprintf( info, INFO_SIZE, "%c - %s", input_1, 
              get_ability_name_by_index( index_1 ) );

    mprf("%c - %s", input_1, get_ability_name_by_index( index_1 ) );

    mpr(info);

    snprintf( info, INFO_SIZE, "%c - %s", input_2, 
              get_ability_name_by_index( index_1 ) );

    mprf("%c - %s", input_2, get_ability_name_by_index( index_1 ) );

    mpr(info);

    {
        snprintf( info, INFO_SIZE, "%c - %s", input_1, 
                  get_ability_name_by_index( index_2 ) );
        mpr(info);
    }

        mprf("%c - %s", input_1, get_ability_name_by_index( index_2 ) );

    snprintf( info, INFO_SIZE, "zapping:  power=%d", power ); 
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "zapping: power=%d", power ); 

    snprintf( info, INFO_SIZE, "Player damage: rolled=%d; after AC=%d",
              roll, hurted );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS,
         "Player damage: rolled=%d; after AC=%d", roll, hurted );

    snprintf( info, INFO_SIZE, "Damage: %d", hurted );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Damage: %d", hurted );

        snprintf( info, INFO_SIZE, "HD: %d; pow: %d", 
                  mon->hit_dice, beam.ench_power );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS,
             "HD: %d; pow: %d", mon->hit_dice, beam.ench_power );

        snprintf( info, INFO_SIZE, "HD: %d; pow: %d", 
                  mon->hit_dice, beam.ench_power );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf(MSGCH_DIAGNOSTICS,
             "HD: %d; pow: %d", mon->hit_dice, beam.ench_power );

    snprintf( info, INFO_SIZE, 
              "explosion at (%d, %d) : t=%d c=%d f=%d hit=%d dam=%dd%d",
              beam.target_x, beam.target_y, 
              beam.type, beam.colour, beam.flavour, 
              beam.hit, beam.damage.num, beam.damage.size );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS,
         "explosion at (%d, %d) : t=%d c=%d f=%d hit=%d dam=%dd%d",
         beam.target_x, beam.target_y, 
         beam.type, beam.colour, beam.flavour, 
         beam.hit, beam.damage.num, beam.damage.size );

            snprintf( info, INFO_SIZE, "randart val: %d", randart_value( you.inv[i] ) ); 
            mpr( info );

            mprf("randart val: %d", randart_value(you.inv[i])); 

            snprintf( info, INFO_SIZE, "Congratulations, your piety went from %d to %d!",
                    old_piety, you.piety);
            mpr(info);

            mprf("Congratulations, your piety went from %d to %d!",
                 old_piety, you.piety);

        snprintf( info, INFO_SIZE, 
                  "Cost level: %d  Skill points: %d  Next cost level: %d", 
                  you.skill_cost_level, you.total_skill_points,
                  skill_cost_needed( you.skill_cost_level + 1 ) );
        mpr( info );

        mprf( "Cost level: %d  Skill points: %d  Next cost level: %d", 
              you.skill_cost_level, you.total_skill_points,
              skill_cost_needed( you.skill_cost_level + 1 ) );

            snprintf( info, INFO_SIZE, "item:%3d link:%3d cl:%3d ty:%3d pl:%3d pl2:%3d sp:%3ld q:%3d",
                     i, mitm[i].link, 
                     mitm[i].base_type, mitm[i].sub_type,
                     mitm[i].plus, mitm[i].plus2, mitm[i].special, 
                     mitm[i].quantity );
            mpr(info);

            mprf("item:%3d link:%3d cl:%3d ty:%3d pl:%3d pl2:%3d "
                 "sp:%3ld q:%3d",
                 i, mitm[i].link, 
                 mitm[i].base_type, mitm[i].sub_type,
                 mitm[i].plus, mitm[i].plus2, mitm[i].special, 
                 mitm[i].quantity );

        strcpy(info, "igrid:");
        mpr(info);

        mpr("igrid:");

                    snprintf( info, INFO_SIZE, "%3d at (%2d,%2d), cl:%3d ty:%3d pl:%3d pl2:%3d sp:%3ld q:%3d", 
                             igrd[i][j], i, j,
                             mitm[i].base_type, mitm[i].sub_type,
                             mitm[i].plus, mitm[i].plus2, mitm[i].special, 
                             mitm[i].quantity );
                    mpr(info);

                    mprf("%3d at (%2d,%2d), cl:%3d ty:%3d pl:%3d pl2:%3d "
                         "sp:%3ld q:%3d", 
                         igrd[i][j], i, j,
                         mitm[i].base_type, mitm[i].sub_type,
                         mitm[i].plus, mitm[i].plus2, mitm[i].special, 
                         mitm[i].quantity );

static int toggle_flag( bool* flag, const char* flagname )

static bool toggle_flag( bool* flag, const char* flagname )

    char buf[INFO_SIZE];

    sprintf( buf, "%s is now %s.", flagname,
             (*flag) ? "on" : "off" );
    mpr(buf);

    mprf( "%s is now %s.", flagname, (*flag) ? "on" : "off" );

    snprintf( info, INFO_SIZE, "You are a level %d %s %s.",
              you.experience_level,
              species_name(you.species,you.experience_level),
              you.class_name);
    mpr(info);

    mprf("You are a level %d %s %s.",
         you.experience_level, species_name(you.species,you.experience_level),
         you.class_name);

        snprintf( info, INFO_SIZE,
                  "Level %d requires %ld experience (%d point%s to go!)",
                  you.experience_level + 1, 
                  exp_needed(you.experience_level + 2) + 1,
                  xp_needed, 
                  (xp_needed > 1) ? "s" : "");
        mpr(info);

        mprf( "Level %d requires %ld experience (%d point%s to go!)",
              you.experience_level + 1, 
              exp_needed(you.experience_level + 2) + 1,
              xp_needed, 
              (xp_needed > 1) ? "s" : "");

        make_time_string( curr, buff, sizeof(buff) );
        snprintf( info, INFO_SIZE, "Play time: %s (%ld turns)", 
                  buff, you.num_turns );

        mpr( info );

        mprf("Play time: %s (%ld turns)",
             make_time_string(curr, buff, sizeof buff), you.num_turns );

        snprintf( info, INFO_SIZE, "Your %s stop glowing.", your_hand(true) );
        mpr( info, MSGCH_DURATION );

        mprf(MSGCH_DURATION, "Your %s stop glowing.", your_hand(true) );

    snprintf( info, INFO_SIZE, "stealth: %d", stealth );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "stealth: %d", stealth );

        snprintf( info, INFO_SIZE, "Number of monsters present: %d", ig2 );
        mpr( info, MSGCH_DIAGNOSTICS );
        snprintf( info, INFO_SIZE, "Number of clouds present: %d", env.cloud_no );
        mpr( info, MSGCH_DIAGNOSTICS );

        mprf( MSGCH_DIAGNOSTICS, "Number of monsters present: %d", ig2);
        mprf( MSGCH_DIAGNOSTICS, "Number of clouds present: %d", env.cloud_no);

            mprf("You breathe fire%c", (power < 15)?'.':'!');

            snprintf( info, INFO_SIZE, "You breathe fire%c", (power < 15)?'.':'!');
            mpr(info);

    snprintf( info, INFO_SIZE, "Cost: mp=%d; hp=%d; food=%d; piety=%d",
              abil.mp_cost, abil.hp_cost, food_cost, piety_cost );
    mpr( info, MSGCH_DIAGNOSTICS );

    mprf(MSGCH_DIAGNOSTICS, "Cost: mp=%d; hp=%d; food=%d; piety=%d",
         abil.mp_cost, abil.hp_cost, food_cost, piety_cost );