Add Doxygen comment to monster1.c.

[hengband/hengband.git] / src / monster1.c

/*!
 * @file monster1.c
 * @brief ¥â¥ó¥¹¥¿¡¼¾ðÊó¤Îµ­½Ò / describe monsters (using monster memory)
 * @date 2013/12/11
 * @author
 * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
 * This software may be copied and distributed for educational, research,
 * and not for profit purposes provided that this copyright and statement
 * are included in all such copies.  Other copyrights may also apply.
 * 2014 Deskull rearranged comment for Doxygen.
 */

#include "angband.h"


/*
 * Pronoun arrays, by gender.
 */
static cptr wd_he[3] =
#ifdef JP
{ "¤½¤ì", "Èà", "Èà½÷" };
#else
{ "it", "he", "she" };
#endif

static cptr wd_his[3] =
#ifdef JP
{ "¤½¤ì¤Î", "Èà¤Î", "Èà½÷¤Î" };
#else
{ "its", "his", "her" };
#endif



/*!
 * ±Ñ¸ì¤ÎÊ£¿ô·Ïµ­½ÒÍÑ¥Þ¥¯¥í / Pluralizer.  Args(count, singular, plural)
 */
#define plural(c,s,p) \
    (((c) == 1) ? (s) : (p))



/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¤ÎAC¾ðÊó¤òÆÀ¤ë¤³¤È¤¬¤Ç¤­¤ë¤«¤òÊÖ¤¹ / Determine if the "armor" is known
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @return Ũ¤ÎAC¤òÃΤë¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤Æ¤¤¤ë¤Ê¤éTRUE¤òÊÖ¤¹
 * @details
 * The higher the level, the fewer kills needed.
 */
static bool know_armour(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        s32b level = r_ptr->level;

        s32b kills = r_ptr->r_tkills;

        if (cheat_know) return (TRUE);

        /* Normal monsters */
        if (kills > 304 / (4 + level)) return (TRUE);

        /* Skip non-uniques */
        if (!(r_ptr->flags1 & RF1_UNIQUE)) return (FALSE);

        /* Unique monsters */
        if (kills > 304 / (38 + (5 * level) / 4)) return (TRUE);

        /* Assume false */
        return (FALSE);
}


/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¤ÎÂÇ·â°ÒÎϤòÃΤ뤳¤È¤¬¤Ç¤­¤ë¤«¤É¤¦¤«¤òÊÖ¤¹
 * Determine if the "damage" of the given attack is known
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @param i ³Îǧ¤·¤¿¤¤¹¶·â¼êÈÖ
 * @return Ũ¤Î¥À¥á¡¼¥¸¥À¥¤¥¹¤òÃΤë¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤Æ¤¤¤ë¤Ê¤éTRUE¤òÊÖ¤¹
 * @details
 * <pre>
 * the higher the level of the monster, the fewer the attacks you need,
 * the more damage an attack does, the more attacks you need
 * </pre>
 */
static bool know_damage(int r_idx, int i)
{
        monster_race *r_ptr = &r_info[r_idx];

        s32b level = r_ptr->level;

        s32b a = r_ptr->r_blows[i];

        s32b d1 = r_ptr->blow[i].d_dice;
        s32b d2 = r_ptr->blow[i].d_side;

        s32b d = d1 * d2;

        if (d >= ((4+level)*MAX_UCHAR)/80) d = ((4+level)*MAX_UCHAR-1)/80;

        /* Normal monsters */
        if ((4 + level) * a > 80 * d) return (TRUE);

        /* Skip non-uniques */
        if (!(r_ptr->flags1 & RF1_UNIQUE)) return (FALSE);

        /* Unique monsters */
        if ((4 + level) * (2 * a) > 80 * d) return (TRUE);

        /* Assume false */
        return (FALSE);
}


/*
 * Prepare hook for c_roff(). It will be changed for spoiler generation in wizard1.c.
 */
void (*hook_c_roff)(byte attr, cptr str) = c_roff;

static void hooked_roff(cptr str)
{
        /* Spawn */
        hook_c_roff(TERM_WHITE, str);
}


/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¤Î»×¤¤½Ð¾ðÊó¤òɽ¼¨¤¹¤ë
 * Hack -- display monster information using "hooked_roff()"
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @param mode ɽ¼¨¥ª¥×¥·¥ç¥ó
 * @return ¤Ê¤·
 * @details
 * This function should only be called with the cursor placed at the
 * left edge of the screen, on a cleared line, in which the recall is
 * to take place.  One extra blank line is left after the recall.
 */
static void roff_aux(int r_idx, int mode)
{
        monster_race    *r_ptr = &r_info[r_idx];

        bool            old = FALSE;

        int             m, n, r;

        cptr            p, q;

#ifdef JP
        char            jverb_buf[64];
#else
        bool            sin = FALSE;
#endif
        int             msex = 0;

        bool nightmare = ironman_nightmare && !(mode & 0x02);
        int speed = nightmare ? r_ptr->speed + 5 : r_ptr->speed;

        bool            breath = FALSE;
        bool            magic = FALSE;
        bool            reinforce = FALSE;

        u32b            flags1;
        u32b            flags2;
        u32b            flags3;
        u32b            flags4;
        u32b            flags5;
        u32b            flags6;
        u32b            flags7;
        u32b            flagsr;

        byte drop_gold, drop_item;

        int             vn = 0;
        byte            color[96];
        cptr            vp[96];

        bool know_everything = FALSE;

        /* Obtain a copy of the "known" number of drops */
        drop_gold = r_ptr->r_drop_gold;
        drop_item = r_ptr->r_drop_item;

        /* Obtain a copy of the "known" flags */
        flags1 = (r_ptr->flags1 & r_ptr->r_flags1);
        flags2 = (r_ptr->flags2 & r_ptr->r_flags2);
        flags3 = (r_ptr->flags3 & r_ptr->r_flags3);
        flags4 = (r_ptr->flags4 & r_ptr->r_flags4);
        flags5 = (r_ptr->flags5 & r_ptr->r_flags5);
        flags6 = (r_ptr->flags6 & r_ptr->r_flags6);
        flags7 = (r_ptr->flags7 & r_ptr->flags7);
        flagsr = (r_ptr->flagsr & r_ptr->r_flagsr);

        for(n = 0; n < 6; n++)
        {
                if(r_ptr->reinforce_id[n] > 0) reinforce = TRUE;
        }

        /* cheat_know or research_mon() */
        if (cheat_know || (mode & 0x01))
                know_everything = TRUE;

        /* Cheat -- Know everything */
        if (know_everything)
        {
                /* Hack -- maximal drops */
                drop_gold = drop_item =
                (((r_ptr->flags1 & RF1_DROP_4D2) ? 8 : 0) +
                 ((r_ptr->flags1 & RF1_DROP_3D2) ? 6 : 0) +
                 ((r_ptr->flags1 & RF1_DROP_2D2) ? 4 : 0) +
                 ((r_ptr->flags1 & RF1_DROP_1D2) ? 2 : 0) +
                 ((r_ptr->flags1 & RF1_DROP_90)  ? 1 : 0) +
                 ((r_ptr->flags1 & RF1_DROP_60)  ? 1 : 0));

                /* Hack -- but only "valid" drops */
                if (r_ptr->flags1 & RF1_ONLY_GOLD) drop_item = 0;
                if (r_ptr->flags1 & RF1_ONLY_ITEM) drop_gold = 0;

                /* Hack -- know all the flags */
                flags1 = r_ptr->flags1;
                flags2 = r_ptr->flags2;
                flags3 = r_ptr->flags3;
                flags4 = r_ptr->flags4;
                flags5 = r_ptr->flags5;
                flags6 = r_ptr->flags6;
                flagsr = r_ptr->flagsr;
        }


        /* Extract a gender (if applicable) */
        if (r_ptr->flags1 & RF1_FEMALE) msex = 2;
        else if (r_ptr->flags1 & RF1_MALE) msex = 1;

        /* Assume some "obvious" flags */
        if (r_ptr->flags1 & RF1_UNIQUE)  flags1 |= (RF1_UNIQUE);
        if (r_ptr->flags1 & RF1_QUESTOR) flags1 |= (RF1_QUESTOR);
        if (r_ptr->flags1 & RF1_MALE)    flags1 |= (RF1_MALE);
        if (r_ptr->flags1 & RF1_FEMALE)  flags1 |= (RF1_FEMALE);

        /* Assume some "creation" flags */
        if (r_ptr->flags1 & RF1_FRIENDS) flags1 |= (RF1_FRIENDS);
        if (r_ptr->flags1 & RF1_ESCORT)  flags1 |= (RF1_ESCORT);
        if (r_ptr->flags1 & RF1_ESCORTS) flags1 |= (RF1_ESCORTS);

        /* Killing a monster reveals some properties */
        if (r_ptr->r_tkills || know_everything)
        {
                /* Know "race" flags */
                if (r_ptr->flags3 & RF3_ORC)      flags3 |= (RF3_ORC);
                if (r_ptr->flags3 & RF3_TROLL)    flags3 |= (RF3_TROLL);
                if (r_ptr->flags3 & RF3_GIANT)    flags3 |= (RF3_GIANT);
                if (r_ptr->flags3 & RF3_DRAGON)   flags3 |= (RF3_DRAGON);
                if (r_ptr->flags3 & RF3_DEMON)    flags3 |= (RF3_DEMON);
                if (r_ptr->flags3 & RF3_UNDEAD)   flags3 |= (RF3_UNDEAD);
                if (r_ptr->flags3 & RF3_EVIL)     flags3 |= (RF3_EVIL);
                if (r_ptr->flags3 & RF3_GOOD)     flags3 |= (RF3_GOOD);
                if (r_ptr->flags3 & RF3_ANIMAL)   flags3 |= (RF3_ANIMAL);
                if (r_ptr->flags3 & RF3_AMBERITE) flags3 |= (RF3_AMBERITE);
                if (r_ptr->flags2 & RF2_HUMAN)    flags2 |= (RF2_HUMAN);

                /* Know 'quantum' flag */
                if (r_ptr->flags2 & RF2_QUANTUM)  flags2 |= (RF2_QUANTUM);

                /* Know "forced" flags */
                if (r_ptr->flags1 & RF1_FORCE_DEPTH) flags1 |= (RF1_FORCE_DEPTH);
                if (r_ptr->flags1 & RF1_FORCE_MAXHP) flags1 |= (RF1_FORCE_MAXHP);
        }

        /* For output_monster_spoiler() */
        if (mode & 0x02)
        {
                /* Nothing to do */
        }
        else

        /* Treat uniques differently */
        if (flags1 & RF1_UNIQUE)
        {
                /* Hack -- Determine if the unique is "dead" */
                bool dead = (r_ptr->max_num == 0) ? TRUE : FALSE;

                /* We've been killed... */
                if (r_ptr->r_deaths)
                {
                        /* Killed ancestors */
                        hooked_roff(format(_("%^s¤Ï¤¢¤Ê¤¿¤ÎÀèÁĤò %d ¿ÍÁò¤Ã¤Æ¤¤¤ë", "%^s has slain %d of your ancestors"),
                                           wd_he[msex], r_ptr->r_deaths));

                        /* But we've also killed it */
                        if (dead)
                        {
                                hooked_roff(format(
                                        _("¤¬¡¢¤¹¤Ç¤ËµØƤ¤Á¤Ï²Ì¤¿¤·¤Æ¤¤¤ë¡ª", 
                                         (", but you have avenged %s!  ", plural(r_ptr->r_deaths, "him", "them")))));
                        }

                        /* Unavenged (ever) */
                        else
                        {
                                hooked_roff(format(
                                        _("¤Î¤Ë¡¢¤Þ¤ÀµØƤ¤Á¤ò²Ì¤¿¤·¤Æ¤¤¤Ê¤¤¡£", 
                                         (", who %s unavenged.  ", plural(r_ptr->r_deaths, "remains", "remain")))));
                        }

                        /* Start a new line */
                        hooked_roff("\n");
                }

                /* Dead unique who never hurt us */
                else if (dead)
                {
                        hooked_roff(_("¤¢¤Ê¤¿¤Ï¤³¤ÎµØŨ¤ò¤¹¤Ç¤ËÁò¤êµî¤Ã¤Æ¤¤¤ë¡£", "You have slain this foe.  "));

                        /* Start a new line */
                        hooked_roff("\n");
                }
        }

        /* Not unique, but killed us */
        else if (r_ptr->r_deaths)
        {
                /* Dead ancestors */
                hooked_roff(
                        _(format("¤³¤Î¥â¥ó¥¹¥¿¡¼¤Ï¤¢¤Ê¤¿¤ÎÀèÁĤò %d ¿ÍÁò¤Ã¤Æ¤¤¤ë", r_ptr->r_deaths),
                          format("%d of your ancestors %s been killed by this creature, ", r_ptr->r_deaths, plural(r_ptr->r_deaths, "has", "have"))));

                /* Some kills this life */
                if (r_ptr->r_pkills)
                {
                        hooked_roff(format(
                                _("¤¬¡¢¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂΤÏÅݤ·¤Æ¤¤¤ë¡£", 
                                 "and you have exterminated at least %d of the creatures.  "), r_ptr->r_pkills));
                }

                /* Some kills past lives */
                else if (r_ptr->r_tkills)
                {
                        hooked_roff(format(
                                _("¤¬¡¢¤¢¤Ê¤¿¤ÎÀèÁĤϤ³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂΤÏÅݤ·¤Æ¤¤¤ë¡£", 
                                  "and your ancestors have exterminated at least %d of the creatures.  "), r_ptr->r_tkills));
                }

                /* No kills */
                else
                {
                        hooked_roff(format(
                                _("¤¬¡¢¤Þ¤À%s¤òÅݤ·¤¿¤³¤È¤Ï¤Ê¤¤¡£", 
                                  "and %s is not ever known to have been defeated.  "), wd_he[msex]));
                }

                /* Start a new line */
                hooked_roff("\n");
        }

        /* Normal monsters */
        else
        {
                /* Killed some this life */
                if (r_ptr->r_pkills)
                {
                        hooked_roff(format(
                                _("¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂΤϻ¦¤·¤Æ¤¤¤ë¡£",
                                  "You have killed at least %d of these creatures.  "), r_ptr->r_pkills));
                }

                /* Killed some last life */
                else if (r_ptr->r_tkills)
                {
                        hooked_roff(format(
                                _("¤¢¤Ê¤¿¤ÎÀèÁĤϤ³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂΤϻ¦¤·¤Æ¤¤¤ë¡£", 
                                  "Your ancestors have killed at least %d of these creatures.  "), r_ptr->r_tkills));
                }

                /* Killed none */
                else
                {
                        hooked_roff(_("¤³¤Î¥â¥ó¥¹¥¿¡¼¤òÅݤ·¤¿¤³¤È¤Ï¤Ê¤¤¡£", "No battles to the death are recalled.  "));
                }

                /* Start a new line */
                hooked_roff("\n");
        }

        /* Descriptions */
        {
                cptr tmp = r_text + r_ptr->text;

                if (tmp[0])
                {
                        /* Dump it */
                        hooked_roff(tmp);

                        /* Start a new line */
                        hooked_roff("\n");
                }
        }

        if (r_idx == MON_KAGE)
        {
                /* All done */
                hooked_roff("\n");

                return;
        }

        /* Nothing yet */
        old = FALSE;

        /* Describe location */
        if (r_ptr->level == 0)
        {
                hooked_roff(format(_("%^s¤ÏÄ®¤Ë½»¤ß", "%^s lives in the town"), wd_he[msex]));
                old = TRUE;
        }
        else if (r_ptr->r_tkills || know_everything)
        {
                if (depth_in_feet)
                {
                        hooked_roff(format(
                                _("%^s¤ÏÄ̾ïÃϲ¼ %d ¥Õ¥£¡¼¥È¤Ç½Ð¸½¤·", "%^s is normally found at depths of %d feet"),
                                  wd_he[msex], r_ptr->level * 50));
                }
                else
                {
                        hooked_roff(format(
                                _("%^s¤ÏÄ̾ïÃϲ¼ %d ³¬¤Ç½Ð¸½¤·", "%^s is normally found on dungeon level %d"),
                                  wd_he[msex], r_ptr->level));
                }
                old = TRUE;
        }


        /* Describe movement */
        if (r_idx == MON_CHAMELEON)
        {
                hooked_roff(_("¡¢Â¾¤Î¥â¥ó¥¹¥¿¡¼¤Ë²½¤±¤ë¡£", "and can take the shape of other monster."));
                return;
        }
        else
        {
                /* Introduction */
                if (old)
                {
                        hooked_roff(_("¡¢", ", and "));
                }
                else
                {
                        hooked_roff(format(_("%^s¤Ï", "%^s "), wd_he[msex]));
                        old = TRUE;
                }
#ifndef JP
                hooked_roff("moves");
#endif

                /* Random-ness */
                if ((flags1 & RF1_RAND_50) || (flags1 & RF1_RAND_25))
                {
                        /* Adverb */
                        if ((flags1 & RF1_RAND_50) && (flags1 & RF1_RAND_25))
                        {
                                hooked_roff(_("¤«¤Ê¤ê", " extremely"));
                        }
                        else if (flags1 & RF1_RAND_50)
                        {
                                hooked_roff(_("´öʬ", " somewhat"));
                        }
                        else if (flags1 & RF1_RAND_25)
                        {
                                hooked_roff(_("¾¯¡¹", " a bit"));
                        }

                        /* Adjective */
                        hooked_roff(_("ÉÔµ¬Â§¤Ë", " erratically"));

                        /* Hack -- Occasional conjunction */
                        if (speed != 110) hooked_roff(_("¡¢¤«¤Ä", ", and"));
                }

                /* Speed */
                if (speed > 110)
                {
                        if (speed > 139) hook_c_roff(TERM_RED, _("¿®¤¸Æñ¤¤¤Û¤É", " incredibly"));
                        else if (speed > 134) hook_c_roff(TERM_ORANGE, _("ÌÔÎõ¤Ë", " extremely"));
                        else if (speed > 129) hook_c_roff(TERM_ORANGE, _("Èó¾ï¤Ë", " very"));
                        else if (speed > 124) hook_c_roff(TERM_UMBER, _("¤«¤Ê¤ê", " fairly"));
                        else if (speed < 120) hook_c_roff(TERM_L_UMBER, _("¤ä¤ä", " somewhat"));
                        hook_c_roff(TERM_L_RED, _("ÁÇÁ᤯", " quickly"));
                }
                else if (speed < 110)
                {
                        if (speed < 90) hook_c_roff(TERM_L_GREEN, _("¿®¤¸Æñ¤¤¤Û¤É", " incredibly"));
                        else if (speed < 95) hook_c_roff(TERM_BLUE, _("Èó¾ï¤Ë", " very"));
                        else if (speed < 100) hook_c_roff(TERM_BLUE, _("¤«¤Ê¤ê", " fairly"));
                        else if (speed > 104) hook_c_roff(TERM_GREEN, _("¤ä¤ä", " somewhat"));
                        hook_c_roff(TERM_L_BLUE, _("¤æ¤Ã¤¯¤ê¤È", " slowly"));
                }
                else
                {
                        hooked_roff(_("ÉáÄ̤ή¤µ¤Ç", " at normal speed"));
                }
#ifdef JP
                hooked_roff("Æ°¤¤¤Æ¤¤¤ë");
#endif
        }

        /* The code above includes "attack speed" */
        if (flags1 & RF1_NEVER_MOVE)
        {
                /* Introduce */
                if (old)
                {
                        hooked_roff(_("¡¢¤·¤«¤·", ", but "));
                }
                else
                {
                        hooked_roff(format(_("%^s¤Ï", "%^s "), wd_he[msex]));
                        old = TRUE;
                }

                /* Describe */
                hooked_roff(_("¿¯Æþ¼Ô¤òÄÉÀפ·¤Ê¤¤", "does not deign to chase intruders"));
        }

        /* End this sentence */
        if (old)
        {
                hooked_roff(_("¡£", ".  "));
                old = FALSE;
        }


        /* Describe experience if known */
        if (r_ptr->r_tkills || know_everything)
        {
                /* Introduction */
#ifdef JP
                hooked_roff("¤³¤Î");
#else
                if (flags1 & RF1_UNIQUE)
                {
                        hooked_roff("Killing this");
                }
                else
                {
                        hooked_roff("A kill of this");
                }
#endif


                /* Describe the "quality" */
                if (flags2 & RF2_ELDRITCH_HORROR) hook_c_roff(TERM_VIOLET, _("¶¸µ¤¤òͶ¤¦", " sanity-blasting"));/*nuke me*/
                if (flags3 & RF3_ANIMAL)          hook_c_roff(TERM_L_GREEN, _("¼«Á³³¦¤Î", " natural"));
                if (flags3 & RF3_EVIL)            hook_c_roff(TERM_L_DARK, _("¼Ù°­¤Ê¤ë", " evil"));
                if (flags3 & RF3_GOOD)            hook_c_roff(TERM_YELLOW, _("Á±ÎɤÊ", " good"));
                if (flags3 & RF3_UNDEAD)          hook_c_roff(TERM_VIOLET, _("¥¢¥ó¥Ç¥Ã¥É¤Î", " undead"));
                if (flags3 & RF3_AMBERITE)        hook_c_roff(TERM_VIOLET, _("¥¢¥ó¥Ð¡¼¤Î²¦Â²¤Î", " Amberite"));

                if ((flags3 & (RF3_DRAGON | RF3_DEMON | RF3_GIANT | RF3_TROLL | RF3_ORC)) || (flags2 & (RF2_QUANTUM | RF2_HUMAN)))
                {
                /* Describe the "race" */
                        if (flags3 & RF3_DRAGON)   hook_c_roff(TERM_ORANGE, _("¥É¥é¥´¥ó", " dragon"));
                        if (flags3 & RF3_DEMON)    hook_c_roff(TERM_VIOLET, _("¥Ç¡¼¥â¥ó", " demon"));
                        if (flags3 & RF3_GIANT)    hook_c_roff(TERM_L_UMBER, _("¥¸¥ã¥¤¥¢¥ó¥È", " giant"));
                        if (flags3 & RF3_TROLL)    hook_c_roff(TERM_BLUE, _("¥È¥í¥ë", " troll"));
                        if (flags3 & RF3_ORC)      hook_c_roff(TERM_UMBER, _("¥ª¡¼¥¯", " orc"));
                        if (flags2 & RF2_HUMAN)    hook_c_roff(TERM_L_WHITE, _("¿Í´Ö", " human"));
                        if (flags2 & RF2_QUANTUM)  hook_c_roff(TERM_VIOLET, _("ÎÌ»ÒÀ¸Êª", " quantum creature"));
                }
                else
                {
                        hooked_roff(_("¥â¥ó¥¹¥¿¡¼", " creature"));
                }

#ifdef JP
                hooked_roff("¤òÅݤ¹¤³¤È¤Ï");
#endif
                /* Group some variables */
                {
                        long i, j;

#ifdef JP
                        i = p_ptr->lev;
                        hooked_roff(format(" %lu ¥ì¥Ù¥ë¤Î¥­¥ã¥é¥¯¥¿¤Ë¤È¤Ã¤Æ", (long)i));

                        i = (long)r_ptr->mexp * r_ptr->level / (p_ptr->max_plv+2);
                        j = ((((long)r_ptr->mexp * r_ptr->level % (p_ptr->max_plv+2)) *
                               (long)1000 / (p_ptr->max_plv+2) + 5) / 10);

                        hooked_roff(format(" Ìó%ld.%02ld ¥Ý¥¤¥ó¥È¤Î·Ð¸³¤È¤Ê¤ë¡£",
                                (long)i, (long)j ));
#else
                        /* calculate the integer exp part */
                        i = (long)r_ptr->mexp * r_ptr->level / (p_ptr->max_plv+2);

                        /* calculate the fractional exp part scaled by 100, */
                        /* must use long arithmetic to avoid overflow  */
                        j = ((((long)r_ptr->mexp * r_ptr->level % (p_ptr->max_plv+2)) *
                               (long)1000 / (p_ptr->max_plv+2) + 5) / 10);

                        /* Mention the experience */
                        hooked_roff(format(" is worth about %ld.%02ld point%s",
                                    (long)i, (long)j,
                                    (((i == 1) && (j == 0)) ? "" : "s")));

                        /* Take account of annoying English */
                        p = "th";
                        i = p_ptr->lev % 10;
                        if ((p_ptr->lev / 10) == 1) /* nothing */;
                        else if (i == 1) p = "st";
                        else if (i == 2) p = "nd";
                        else if (i == 3) p = "rd";

                        /* Take account of "leading vowels" in numbers */
                        q = "";
                        i = p_ptr->lev;
                        if ((i == 8) || (i == 11) || (i == 18)) q = "n";

                        /* Mention the dependance on the player's level */
                        hooked_roff(format(" for a%s %lu%s level character.  ",
                                    q, (long)i, p));
#endif

                }
        }

        if ((flags2 & RF2_AURA_FIRE) && (flags2 & RF2_AURA_ELEC) && (flags3 & RF3_AURA_COLD))
        {
                hook_c_roff(TERM_VIOLET, format(
                        _("%^s¤Ï±ê¤Èɹ¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by flames, ice and electricity.  "), wd_he[msex]));
        }
        else if ((flags2 & RF2_AURA_FIRE) && (flags2 & RF2_AURA_ELEC))
        {
                hook_c_roff(TERM_L_RED, format(
                        _("%^s¤Ï±ê¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by flames and electricity.  "), wd_he[msex]));
        }
        else if ((flags2 & RF2_AURA_FIRE) && (flags3 & RF3_AURA_COLD))
        {
                hook_c_roff(TERM_BLUE, format(
                        _("%^s¤Ï±ê¤Èɹ¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by flames and ice.  "), wd_he[msex]));
        }
        else if ((flags3 & RF3_AURA_COLD) && (flags2 & RF2_AURA_ELEC))
        {
                hook_c_roff(TERM_L_GREEN, format(
                        _("%^s¤Ïɹ¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by ice and electricity.  "), wd_he[msex]));
        }
        else if (flags2 & RF2_AURA_FIRE)
        {
                hook_c_roff(TERM_RED, format(
                        _("%^s¤Ï±ê¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by flames.  "), wd_he[msex]));
        }
        else if (flags3 & RF3_AURA_COLD)
        {
                hook_c_roff(TERM_BLUE, format(
                        _("%^s¤Ïɹ¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by ice.  "), wd_he[msex]));
        }
        else if (flags2 & RF2_AURA_ELEC)
        {
                hook_c_roff(TERM_L_BLUE, format(
                        _("%^s¤Ï¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by electricity.  "), wd_he[msex]));
        }

        if (flags2 & RF2_REFLECTING)
                hooked_roff(format(_("%^s¤ÏÌð¤Î¼öʸ¤òÄ·¤ÍÊÖ¤¹¡£", "%^s reflects bolt spells.  "), wd_he[msex]));

        /* Describe escorts */
        if ((flags1 & RF1_ESCORT) || (flags1 & RF1_ESCORTS) || reinforce)
        {
                hooked_roff(format(
                        _("%^s¤ÏÄ̾ï¸î±Ò¤òȼ¤Ã¤Æ¸½¤ì¤ë¡£", "%^s usually appears with escorts.  "), wd_he[msex]));

                if(reinforce)
                {
                        hooked_roff(_("¸î±Ò¤Î¹½À®¤Ï", "These escorts"));
                        if((flags1 & RF1_ESCORT) || (flags1 & RF1_ESCORTS))
                        {
                                hooked_roff(_("¾¯¤Ê¤¯¤È¤â", " at the least"));
                        }
#ifndef JP
                        hooked_roff(" contain ");
#endif                  
                        for(n = 0; n < 6; n++)
                        {
                                if(r_ptr->reinforce_id[n] && r_ptr->reinforce_dd[n] && r_ptr->reinforce_ds[n])
                                {
                                        monster_race *rf_ptr = &r_info[r_ptr->reinforce_id[n]];
                                        if(rf_ptr->flags1 & RF1_UNIQUE)
                                        {
                                                hooked_roff(format(_("¡¢%s", ", %s"), r_name + rf_ptr->name));
                                        }
                                        else
                                        {
#ifdef JP
                                                hooked_roff(format("¡¢ %dd%d ÂΤÎ%s", r_ptr->reinforce_dd[n], r_ptr->reinforce_ds[n],
                                                        r_name + rf_ptr->name));
#else
                                                bool plural = (r_ptr->reinforce_dd[n] * r_ptr->reinforce_ds[n] > 1);
                                                char name[80];
                                                strcpy(name, r_name + rf_ptr->name);
                                                if(plural) plural_aux(name);
                                                hooked_roff(format(",%dd%d %s", r_ptr->reinforce_dd[n], r_ptr->reinforce_ds[n], name));
#endif
                                        }
                                }
                        }
                        hooked_roff(_("¤ÇÀ®¤êΩ¤Ã¤Æ¤¤¤ë¡£", "."));
                }
        }

        /* Describe friends */
        else if (flags1 & RF1_FRIENDS)
        {
                hooked_roff(format(_("%^s¤ÏÄ̾ｸÃĤǸ½¤ì¤ë¡£", "%^s usually appears in groups.  "), wd_he[msex]));
        }


        /* Collect inate attacks */
        vn = 0;
        if (flags4 & RF4_SHRIEK)  { vp[vn] = _("ÈáÌĤǽõ¤±¤òµá¤á¤ë", "shriek for help"); color[vn++] = TERM_L_WHITE; }
        if (flags4 & RF4_ROCKET)  { vp[vn] = _("¥í¥±¥Ã¥È¤òȯ¼Í¤¹¤ë", "shoot a rocket"); color[vn++] = TERM_UMBER; }
        if (flags4 & RF4_SHOOT) { vp[vn] = _("¼Í·â¤ò¤¹¤ë", "fire an arrow"); color[vn++] = TERM_UMBER; }
        if (flags6 & (RF6_SPECIAL)) { vp[vn] = _("ÆÃÊ̤ʹÔÆ°¤ò¤¹¤ë", "do something"); color[vn++] = TERM_VIOLET; }

        /* Describe inate attacks */
        if (vn)
        {
                /* Intro */
                hooked_roff(format(_("%^s¤Ï", "%^s"), wd_he[msex]));


                /* Scan */
                for (n = 0; n < vn; n++)
                {
#ifdef JP
                        if (n != vn - 1)
                        {
                                jverb(vp[n], jverb_buf, JVERB_OR);
                                hook_c_roff(color[n], jverb_buf);
                                hook_c_roff(color[n], "¤ê");
                                hooked_roff("¡¢");
                        }
                        else hook_c_roff(color[n], vp[n]);
#else
                        /* Intro */
                        if (n == 0) hooked_roff(" may ");
                        else if (n < vn - 1) hooked_roff(", ");
                        else hooked_roff(" or ");

                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
#endif

                }

                /* End */
                hooked_roff(_("¤³¤È¤¬¤¢¤ë¡£", ".  "));
        }


        /* Collect breaths */
        vn = 0;
        if (flags4 & (RF4_BR_ACID))             { vp[vn] = _("»À", "acid"); color[vn++] = TERM_GREEN; }
        if (flags4 & (RF4_BR_ELEC))             { vp[vn] = _("°ðºÊ", "lightning"); color[vn++] = TERM_BLUE; }
        if (flags4 & (RF4_BR_FIRE))             { vp[vn] = _("²Ð±ê", "fire"); color[vn++] = TERM_RED; }
        if (flags4 & (RF4_BR_COLD))             { vp[vn] = _("Î䵤", "frost"); color[vn++] = TERM_L_WHITE; }
        if (flags4 & (RF4_BR_POIS))             { vp[vn] = _("ÆÇ", "poison"); color[vn++] = TERM_L_GREEN; }
        if (flags4 & (RF4_BR_NETH))             { vp[vn] = _("ÃϹö", "nether"); color[vn++] = TERM_L_DARK; }
        if (flags4 & (RF4_BR_LITE))             { vp[vn] = _("Á®¸÷", "light"); color[vn++] = TERM_YELLOW; }
        if (flags4 & (RF4_BR_DARK))             { vp[vn] = _("°Å¹õ", "darkness"); color[vn++] = TERM_L_DARK; }
        if (flags4 & (RF4_BR_CONF))             { vp[vn] = _("º®Íð", "confusion"); color[vn++] = TERM_L_UMBER; }
        if (flags4 & (RF4_BR_SOUN))             { vp[vn] = _("¹ì²»", "sound"); color[vn++] = TERM_ORANGE; }
        if (flags4 & (RF4_BR_CHAO))             { vp[vn] = _("¥«¥ª¥¹", "chaos"); color[vn++] = TERM_VIOLET; }
        if (flags4 & (RF4_BR_DISE))             { vp[vn] = _("Îô²½", "disenchantment"); color[vn++] = TERM_VIOLET; }
        if (flags4 & (RF4_BR_NEXU))             { vp[vn] = _("°ø²Ìº®Íð", "nexus"); color[vn++] = TERM_VIOLET; }
        if (flags4 & (RF4_BR_TIME))             { vp[vn] = _("»þ´ÖµÕž", "time"); color[vn++] = TERM_L_BLUE; }
        if (flags4 & (RF4_BR_INER))             { vp[vn] = _("ÃÙÆß", "inertia"); color[vn++] = TERM_SLATE; }
        if (flags4 & (RF4_BR_GRAV))             { vp[vn] = _("½ÅÎÏ", "gravity"); color[vn++] = TERM_SLATE; }
        if (flags4 & (RF4_BR_SHAR))             { vp[vn] = _("ÇËÊÒ", "shards"); color[vn++] = TERM_L_UMBER; }
        if (flags4 & (RF4_BR_PLAS))             { vp[vn] = _("¥×¥é¥º¥Þ", "plasma"); color[vn++] = TERM_L_RED; }
        if (flags4 & (RF4_BR_WALL))             { vp[vn] = _("¥Õ¥©¡¼¥¹", "force"); color[vn++] = TERM_UMBER; }
        if (flags4 & (RF4_BR_MANA))             { vp[vn] = _("ËâÎÏ", "mana"); color[vn++] = TERM_L_BLUE; }
        if (flags4 & (RF4_BR_NUKE))             { vp[vn] = _("Êü¼ÍÀ­ÇÑ´þʪ", "toxic waste"); color[vn++] = TERM_L_GREEN; }
        if (flags4 & (RF4_BR_DISI))             { vp[vn] = _("ʬ²ò", "disintegration"); color[vn++] = TERM_SLATE; }

        /* Describe breaths */
        if (vn)
        {
                /* Note breath */
                breath = TRUE;

                /* Intro */
                hooked_roff(format(_("%^s¤Ï", "%^s"), wd_he[msex]));

                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if ( n != 0 ) hooked_roff("¤ä");
#else
                        if (n == 0) hooked_roff(" may breathe ");
                        else if (n < vn-1) hooked_roff(", ");
                        else hooked_roff(" or ");
#endif


                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
                }
#ifdef JP
                hooked_roff("¤Î¥Ö¥ì¥¹¤òÅǤ¯¤³¤È¤¬¤¢¤ë");
#endif
        }


        /* Collect spells */
        vn = 0;
        if (flags5 & (RF5_BA_ACID))         { vp[vn] = _("¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë", "produce acid balls"); color[vn++] = TERM_GREEN; }
        if (flags5 & (RF5_BA_ELEC))         { vp[vn] = _("¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë", "produce lightning balls"); color[vn++] = TERM_BLUE; }
        if (flags5 & (RF5_BA_FIRE))         { vp[vn] = _("¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë", "produce fire balls"); color[vn++] = TERM_RED; }
        if (flags5 & (RF5_BA_COLD))         { vp[vn] = _("¥¢¥¤¥¹¡¦¥Ü¡¼¥ë", "produce frost balls"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_BA_POIS))         { vp[vn] = _("°­½­±À", "produce poison balls"); color[vn++] = TERM_L_GREEN; }
        if (flags5 & (RF5_BA_NETH))         { vp[vn] = _("ÃϹöµå", "produce nether balls"); color[vn++] = TERM_L_DARK; }
        if (flags5 & (RF5_BA_WATE))         { vp[vn] = _("¥¦¥©¡¼¥¿¡¼¡¦¥Ü¡¼¥ë", "produce water balls"); color[vn++] = TERM_BLUE; }
        if (flags4 & (RF4_BA_NUKE))         { vp[vn] = _("Êü¼Íǽµå", "produce balls of radiation"); color[vn++] = TERM_L_GREEN; }
        if (flags5 & (RF5_BA_MANA))         { vp[vn] = _("ËâÎϤÎÍò", "invoke mana storms"); color[vn++] = TERM_L_BLUE; }
        if (flags5 & (RF5_BA_DARK))         { vp[vn] = _("°Å¹õ¤ÎÍò", "invoke darkness storms"); color[vn++] = TERM_L_DARK; }
        if (flags5 & (RF5_BA_LITE))         { vp[vn] = _("¥¹¥¿¡¼¥Ð¡¼¥¹¥È", "invoke starburst"); color[vn++] = TERM_YELLOW; }
        if (flags4 & (RF4_BA_CHAO))         { vp[vn] = _("½ã¥í¥°¥ë¥¹", "invoke raw Logrus"); color[vn++] = TERM_VIOLET; }
        if (flags6 & (RF6_HAND_DOOM))       { vp[vn] = _("ÇËÌǤμê", "invoke the Hand of Doom"); color[vn++] = TERM_VIOLET; }
        if (flags6 & (RF6_PSY_SPEAR))       { vp[vn] = _("¸÷¤Î·õ", "psycho-spear"); color[vn++] = TERM_YELLOW; }
        if (flags5 & (RF5_DRAIN_MANA))      { vp[vn] = _("ËâÎϵۼý", "drain mana"); color[vn++] = TERM_SLATE; }
        if (flags5 & (RF5_MIND_BLAST))      { vp[vn] = _("Àº¿À¹¶·â", "cause mind blasting"); color[vn++] = TERM_L_RED; }
        if (flags5 & (RF5_BRAIN_SMASH))     { vp[vn] = _("Ǿ¹¶·â", "cause brain smashing"); color[vn++] = TERM_RED; }
        if (flags5 & (RF5_CAUSE_1))         { vp[vn] = _("·Ú½ý¡Ü¼ö¤¤", "cause light wounds and cursing"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_CAUSE_2))         { vp[vn] = _("½Å½ý¡Ü¼ö¤¤", "cause serious wounds and cursing"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_CAUSE_3))         { vp[vn] = _("Ã×Ì¿½ý¡Ü¼ö¤¤", "cause critical wounds and cursing"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_CAUSE_4))         { vp[vn] = _("È빦¤òÆͤ¯", "cause mortal wounds"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_BO_ACID))         { vp[vn] = _("¥¢¥·¥Ã¥É¡¦¥Ü¥ë¥È", "produce acid bolts"); color[vn++] = TERM_GREEN; }
        if (flags5 & (RF5_BO_ELEC))         { vp[vn] = _("¥µ¥ó¥À¡¼¡¦¥Ü¥ë¥È", "produce lightning bolts"); color[vn++] = TERM_BLUE; }
        if (flags5 & (RF5_BO_FIRE))         { vp[vn] = _("¥Õ¥¡¥¤¥¢¡¦¥Ü¥ë¥È", "produce fire bolts"); color[vn++] = TERM_RED; }
        if (flags5 & (RF5_BO_COLD))         { vp[vn] = _("¥¢¥¤¥¹¡¦¥Ü¥ë¥È", "produce frost bolts"); color[vn++] = TERM_L_WHITE; }
        if (flags5 & (RF5_BO_NETH))         { vp[vn] = _("ÃϹö¤ÎÌð", "produce nether bolts"); color[vn++] = TERM_L_DARK; }
        if (flags5 & (RF5_BO_WATE))         { vp[vn] = _("¥¦¥©¡¼¥¿¡¼¡¦¥Ü¥ë¥È", "produce water bolts"); color[vn++] = TERM_BLUE; }
        if (flags5 & (RF5_BO_MANA))         { vp[vn] = _("ËâÎϤÎÌð", "produce mana bolts"); color[vn++] = TERM_L_BLUE; }
        if (flags5 & (RF5_BO_PLAS))         { vp[vn] = _("¥×¥é¥º¥Þ¡¦¥Ü¥ë¥È", "produce plasma bolts"); color[vn++] = TERM_L_RED; }
        if (flags5 & (RF5_BO_ICEE))         { vp[vn] = _("¶Ë´¨¤ÎÌð", "produce ice bolts"); color[vn++] = TERM_WHITE; }
        if (flags5 & (RF5_MISSILE))         { vp[vn] = _("¥Þ¥¸¥Ã¥¯¥ß¥µ¥¤¥ë", "produce magic missiles"); color[vn++] = TERM_SLATE; }
        if (flags5 & (RF5_SCARE))           { vp[vn] = _("¶²ÉÝ", "terrify"); color[vn++] = TERM_SLATE; }
        if (flags5 & (RF5_BLIND))           { vp[vn] = _("Ìܤ¯¤é¤Þ¤·", "blind"); color[vn++] = TERM_L_DARK; }
        if (flags5 & (RF5_CONF))            { vp[vn] = _("º®Íð", "confuse"); color[vn++] = TERM_L_UMBER; }
        if (flags5 & (RF5_SLOW))            { vp[vn] = _("¸ºÂ®", "slow"); color[vn++] = TERM_UMBER; }
        if (flags5 & (RF5_HOLD))            { vp[vn] = _("Ëãáã", "paralyze"); color[vn++] = TERM_RED; }
        if (flags6 & (RF6_HASTE))           { vp[vn] = _("²Ã®", "haste-self"); color[vn++] = TERM_L_GREEN; }
        if (flags6 & (RF6_HEAL))            { vp[vn] = _("¼£Ìþ", "heal-self"); color[vn++] = TERM_WHITE; }
        if (flags6 & (RF6_INVULNER))        { vp[vn] = _("̵Ũ²½", "make invulnerable"); color[vn++] = TERM_WHITE; }
        if (flags4 & RF4_DISPEL)            { vp[vn] = _("ËâÎϾõî", "dispel-magic"); color[vn++] = TERM_L_WHITE; }
        if (flags6 & (RF6_BLINK))           { vp[vn] = _("¥·¥ç¡¼¥È¥Æ¥ì¥Ý¡¼¥È", "blink-self"); color[vn++] = TERM_UMBER; }
        if (flags6 & (RF6_TPORT))           { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È", "teleport-self"); color[vn++] = TERM_ORANGE; }
        if (flags6 & (RF6_WORLD))           { vp[vn] = _("»þ¤ò»ß¤á¤ë", "stop the time"); color[vn++] = TERM_L_BLUE; }
        if (flags6 & (RF6_TELE_TO))         { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È¥Ð¥Ã¥¯", "teleport to"); color[vn++] = TERM_L_UMBER; }
        if (flags6 & (RF6_TELE_AWAY))       { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È¥¢¥¦¥§¥¤", "teleport away"); color[vn++] = TERM_UMBER; }
        if (flags6 & (RF6_TELE_LEVEL))      { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È¡¦¥ì¥Ù¥ë", "teleport level"); color[vn++] = TERM_ORANGE; }

        if (flags6 & (RF6_DARKNESS))
        {
                if ((p_ptr->pclass != CLASS_NINJA) || (r_ptr->flags3 & (RF3_UNDEAD | RF3_HURT_LITE)) || (r_ptr->flags7 & RF7_DARK_MASK))
                {
                        vp[vn] = _("°Å°Ç", "create darkness"); color[vn++] = TERM_L_DARK;
                }
                else
                {
                        vp[vn] = _("Á®¸÷", "create light"); color[vn++] = TERM_YELLOW;
                }
        }

        if (flags6 & (RF6_TRAPS))           { vp[vn] = _("¥È¥é¥Ã¥×", "create traps"); color[vn++] = TERM_BLUE; }
        if (flags6 & (RF6_FORGET))          { vp[vn] = _("µ­²±¾Ãµî", "cause amnesia"); color[vn++] = TERM_BLUE; }
        if (flags6 & (RF6_RAISE_DEAD))      { vp[vn] = _("»à¼ÔÉü³è", "raise dead"); color[vn++] = TERM_RED; }
        if (flags6 & (RF6_S_MONSTER))       { vp[vn] = _("¥â¥ó¥¹¥¿¡¼°ìÂξ¤´­", "summon a monster"); color[vn++] = TERM_SLATE; }
        if (flags6 & (RF6_S_MONSTERS))      { vp[vn] = _("¥â¥ó¥¹¥¿¡¼Ê£¿ô¾¤´­", "summon monsters"); color[vn++] = TERM_L_WHITE; }
        if (flags6 & (RF6_S_KIN))           { vp[vn] = _("µß±ç¾¤´­", "summon aid"); color[vn++] = TERM_ORANGE; }
        if (flags6 & (RF6_S_ANT))           { vp[vn] = _("¥¢¥ê¾¤´­", "summon ants"); color[vn++] = TERM_RED; }
        if (flags6 & (RF6_S_SPIDER))        { vp[vn] = _("¥¯¥â¾¤´­", "summon spiders"); color[vn++] = TERM_L_DARK; }
        if (flags6 & (RF6_S_HOUND))         { vp[vn] = _("¥Ï¥¦¥ó¥É¾¤´­", "summon hounds"); color[vn++] = TERM_L_UMBER; }
        if (flags6 & (RF6_S_HYDRA))         { vp[vn] = _("¥Ò¥É¥é¾¤´­", "summon hydras"); color[vn++] = TERM_L_GREEN; }
        if (flags6 & (RF6_S_ANGEL))         { vp[vn] = _("Å·»È°ìÂξ¤´­", "summon an angel"); color[vn++] = TERM_YELLOW; }
        if (flags6 & (RF6_S_DEMON))         { vp[vn] = _("¥Ç¡¼¥â¥ó°ìÂξ¤´­", "summon a demon"); color[vn++] = TERM_L_RED; }
        if (flags6 & (RF6_S_UNDEAD))        { vp[vn] = _("¥¢¥ó¥Ç¥Ã¥É°ìÂξ¤´­", "summon an undead"); color[vn++] = TERM_L_DARK; }
        if (flags6 & (RF6_S_DRAGON))        { vp[vn] = _("¥É¥é¥´¥ó°ìÂξ¤´­", "summon a dragon"); color[vn++] = TERM_ORANGE; }
        if (flags6 & (RF6_S_HI_UNDEAD))     { vp[vn] = _("¶¯ÎϤʥ¢¥ó¥Ç¥Ã¥É¾¤´­", "summon Greater Undead"); color[vn++] = TERM_L_DARK; }
        if (flags6 & (RF6_S_HI_DRAGON))     { vp[vn] = _("¸ÅÂå¥É¥é¥´¥ó¾¤´­", "summon Ancient Dragons"); color[vn++] = TERM_ORANGE; }    
        if (flags6 & (RF6_S_CYBER))         { vp[vn] = _("¥µ¥¤¥Ð¡¼¥Ç¡¼¥â¥ó¾¤´­", "summon Cyberdemons"); color[vn++] = TERM_UMBER; }
        if (flags6 & (RF6_S_AMBERITES))     { vp[vn] = _("¥¢¥ó¥Ð¡¼¤Î²¦Â²¾¤´­", "summon Lords of Amber"); color[vn++] = TERM_VIOLET; }
        if (flags6 & (RF6_S_UNIQUE))        { vp[vn] = _("¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¾¤´­", "summon Unique Monsters"); color[vn++] = TERM_VIOLET; }


        /* Describe spells */
        if (vn)
        {
                /* Note magic */
                magic = TRUE;

                /* Intro */
                if (breath)
                {
                        hooked_roff(_("¡¢¤Ê¤ª¤«¤Ä", ", and is also"));
                }
                else
                {
                        hooked_roff(format(_("%^s¤Ï", "%^s is"), wd_he[msex]));
                }

#ifdef JP
                /* Adverb */
                if (flags2 & (RF2_SMART)) hook_c_roff(TERM_YELLOW, "Ū³Î¤Ë");

                /* Verb Phrase */
                hooked_roff("ËâË¡¤ò»È¤¦¤³¤È¤¬¤Ç¤­¡¢");
#else
                /* Verb Phrase */
                hooked_roff(" magical, casting spells");

                /* Adverb */
                if (flags2 & RF2_SMART) hook_c_roff(TERM_YELLOW, " intelligently");
#endif


                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if ( n != 0 ) hooked_roff("¡¢");
#else
                        if (n == 0) hooked_roff(" which ");
                        else if (n < vn-1) hooked_roff(", ");
                        else hooked_roff(" or ");
#endif


                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
                }
#ifdef JP
                hooked_roff("¤Î¼öʸ¤ò¾§¤¨¤ë¤³¤È¤¬¤¢¤ë");
#endif
        }


        /* End the sentence about inate/other spells */
        if (breath || magic)
        {
                /* Total casting */
                m = r_ptr->r_cast_spell;

                /* Average frequency */
                n = r_ptr->freq_spell;

                /* Describe the spell frequency */
                if (m > 100 || know_everything)
                {
                        hooked_roff(format(
                                _("(³ÎΨ:1/%d)", "; 1 time in %d"), 100 / n));
                }

                /* Guess at the frequency */
                else if (m)
                {
                        n = ((n + 9) / 10) * 10;
                        hooked_roff(format(
                                _("(³ÎΨ:Ìó1/%d)", "; about 1 time in %d"), 100 / n));
                }

                /* End this sentence */
                hooked_roff(_("¡£", ".  "));
        }

        /* Describe monster "toughness" */
        if (know_armour(r_idx))
        {
                /* Armor */
                hooked_roff(format(
                        _("%^s¤Ï AC%d ¤ÎËɸæÎϤÈ", "%^s has an armor rating of %d"),
                            wd_he[msex], r_ptr->ac));

                /* Maximized hitpoints */
                if ((flags1 & RF1_FORCE_MAXHP) || (r_ptr->hside == 1))
                {
                        u32b hp = r_ptr->hdice * (nightmare ? 2 : 1) * r_ptr->hside;
                        hooked_roff(format(
                                _(" %d ¤ÎÂÎÎϤ¬¤¢¤ë¡£", " and a life rating of %d.  "),
                                    (s16b)MIN(30000, hp)));
                }

                /* Variable hitpoints */
                else
                {
                        hooked_roff(format(
                                _(" %dd%d ¤ÎÂÎÎϤ¬¤¢¤ë¡£", " and a life rating of %dd%d.  "),
                                    r_ptr->hdice * (nightmare ? 2 : 1), r_ptr->hside));
                }
        }



        /* Collect special abilities. */
        vn = 0;
        if (flags7 & (RF7_HAS_LITE_1 | RF7_HAS_LITE_2)) { vp[vn] = _("¥À¥ó¥¸¥ç¥ó¤ò¾È¤é¤¹", "illuminate the dungeon");     color[vn++] = TERM_WHITE; }
        if (flags7 & (RF7_HAS_DARK_1 | RF7_HAS_DARK_2)) { vp[vn] = _("¥À¥ó¥¸¥ç¥ó¤ò°Å¤¯¤¹¤ë", "darken the dungeon");   color[vn++] = TERM_L_DARK; }
        if (flags2 & RF2_OPEN_DOOR) { vp[vn] = _("¥É¥¢¤ò³«¤±¤ë", "open doors"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_BASH_DOOR) { vp[vn] = _("¥É¥¢¤òÂǤÁÇˤë", "bash down doors"); color[vn++] = TERM_WHITE; }
        if (flags7 & RF7_CAN_FLY)  { vp[vn] = _("¶õ¤òÈô¤Ö", "fly"); color[vn++] = TERM_WHITE; }
        if (flags7 & RF7_CAN_SWIM)   { vp[vn] = _("¿å¤òÅϤë", "swim"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_PASS_WALL) { vp[vn] = _("Êɤò¤¹¤êÈ´¤±¤ë", "pass through walls"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_KILL_WALL) { vp[vn] = _("Êɤò·¡¤ê¿Ê¤à", "bore through walls"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_MOVE_BODY) { vp[vn] = _("¼å¤¤¥â¥ó¥¹¥¿¡¼¤ò²¡¤·¤Î¤±¤ë", "push past weaker monsters"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_KILL_BODY) { vp[vn] = _("¼å¤¤¥â¥ó¥¹¥¿¡¼¤òÅݤ¹", "destroy weaker monsters"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_TAKE_ITEM) { vp[vn] = _("¥¢¥¤¥Æ¥à¤ò½¦¤¦", "pick up objects"); color[vn++] = TERM_WHITE; }
        if (flags2 & RF2_KILL_ITEM) { vp[vn] = _("¥¢¥¤¥Æ¥à¤ò²õ¤¹", "destroy objects"); color[vn++] = TERM_WHITE; }


        /* Describe special abilities. */
        if (vn)
        {
                /* Intro */
                hooked_roff(format(_("%^s¤Ï", "%^s"), wd_he[msex]));

                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if (n != vn - 1)
                        {
                                jverb(vp[n], jverb_buf, JVERB_AND);
                                hook_c_roff(color[n], jverb_buf);
                                hooked_roff("¡¢");
                        }
                        else hook_c_roff(color[n], vp[n]);
#else
                        if (n == 0) hooked_roff(" can ");
                        else if (n < vn - 1) hooked_roff(", ");
                        else hooked_roff(" and ");

                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
#endif

                }

                /* End */
                hooked_roff(_("¤³¤È¤¬¤Ç¤­¤ë¡£", ".  "));

        }
        
        /* Aquatic */
        if (flags7 & RF7_AQUATIC)
        {
                hooked_roff(format(_("%^s¤Ï¿åÃæ¤ËÀ³¤ó¤Ç¤¤¤ë¡£", "%^s lives in water.  "), wd_he[msex]));
        }

        /* Describe special abilities. */
        if (flags7 & (RF7_SELF_LITE_1 | RF7_SELF_LITE_2))
        {
                hooked_roff(format(_("%^s¤Ï¸÷¤Ã¤Æ¤¤¤ë¡£", "%^s is shining.  "), wd_he[msex]));
        }
        if (flags7 & (RF7_SELF_DARK_1 | RF7_SELF_DARK_2))
        {
                hook_c_roff(TERM_L_DARK, format(_("%^s¤Ï°Å¹õ¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", "%^s is surrounded by darkness.  "), wd_he[msex]));
        }
        if (flags2 & RF2_INVISIBLE)
        {
                hooked_roff(format(_("%^s¤ÏÆ©ÌÀ¤ÇÌܤ˸«¤¨¤Ê¤¤¡£", "%^s is invisible.  "), wd_he[msex]));
        }
        if (flags2 & RF2_COLD_BLOOD)
        {
                hooked_roff(format(_("%^s¤ÏÎä·ìưʪ¤Ç¤¢¤ë¡£", "%^s is cold blooded.  "), wd_he[msex]));
        }
        if (flags2 & RF2_EMPTY_MIND)
        {
                hooked_roff(format(_("%^s¤Ï¥Æ¥ì¥Ñ¥·¡¼¤Ç¤Ï´¶ÃΤǤ­¤Ê¤¤¡£", "%^s is not detected by telepathy.  "), wd_he[msex]));
        }
        else if (flags2 & RF2_WEIRD_MIND)
        {
                hooked_roff(format(_("%^s¤Ï¤Þ¤ì¤Ë¥Æ¥ì¥Ñ¥·¡¼¤Ç´¶ÃΤǤ­¤ë¡£", "%^s is rarely detected by telepathy.  "), wd_he[msex]));
        }
        if (flags2 & RF2_MULTIPLY)
        {
                hook_c_roff(TERM_L_UMBER, format(_("%^s¤ÏÇúȯŪ¤ËÁý¿£¤¹¤ë¡£", "%^s breeds explosively.  "), wd_he[msex]));
        }
        if (flags2 & RF2_REGENERATE)
        {
                hook_c_roff(TERM_L_WHITE, format(_("%^s¤ÏÁÇÁ᤯ÂÎÎϤò²óÉü¤¹¤ë¡£", "%^s regenerates quickly.  "), wd_he[msex]));
        }
        if (flags7 & RF7_RIDING)
        {
                hook_c_roff(TERM_SLATE, format(_("%^s¤Ë¾è¤ë¤³¤È¤¬¤Ç¤­¤ë¡£", "%^s is suitable for riding.  "), wd_he[msex]));
        }


        /* Collect susceptibilities */
        vn = 0;
        if (flags3 & RF3_HURT_ROCK) { vp[vn] = _("´ä¤ò½üµî¤¹¤ë¤â¤Î", "rock remover"); color[vn++] = TERM_UMBER; }
        if (flags3 & RF3_HURT_LITE) { vp[vn] = _("ÌÀ¤ë¤¤¸÷", "bright light"); color[vn++] = TERM_YELLOW; }
        if (flags3 & RF3_HURT_FIRE) { vp[vn] = _("±ê", "fire"); color[vn++] = TERM_RED; }
        if (flags3 & RF3_HURT_COLD) { vp[vn] = _("Î䵤", "cold"); color[vn++] = TERM_L_WHITE; }


        /* Describe susceptibilities */
        if (vn)
        {
                /* Intro */
                hooked_roff(format(_("%^s¤Ë¤Ï", "%^s"), wd_he[msex]));

                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if ( n != 0 ) hooked_roff("¤ä");
#else
                        if (n == 0) hooked_roff(" is hurt by ");
                        else if (n < vn-1) hooked_roff(", ");
                        else hooked_roff(" and ");
#endif


                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
                }

                /* End */
                hooked_roff(_("¤Ç¥À¥á¡¼¥¸¤òÍ¿¤¨¤é¤ì¤ë¡£", ".  "));
        }


        /* Collect immunities */
        vn = 0;
        if (flagsr & RFR_IM_ACID) { vp[vn] = _("»À", "acid"); color[vn++] = TERM_GREEN; }
        if (flagsr & RFR_IM_ELEC) { vp[vn] = _("°ðºÊ", "lightning"); color[vn++] = TERM_BLUE; }
        if (flagsr & RFR_IM_FIRE) { vp[vn] = _("±ê", "fire"); color[vn++] = TERM_RED; }
        if (flagsr & RFR_IM_COLD) { vp[vn] = _("Î䵤", "cold"); color[vn++] = TERM_L_WHITE; }
        if (flagsr & RFR_IM_POIS) { vp[vn] = _("ÆÇ", "poison"); color[vn++] = TERM_L_GREEN; }


        /* Collect resistances */
        if (flagsr & RFR_RES_LITE) { vp[vn] = _("Á®¸÷", "light"); color[vn++] = TERM_YELLOW; }
        if (flagsr & RFR_RES_DARK) { vp[vn] = _("°Å¹õ", "dark"); color[vn++] = TERM_L_DARK; }
        if (flagsr & RFR_RES_NETH) { vp[vn] = _("ÃϹö", "nether"); color[vn++] = TERM_L_DARK; }
        if (flagsr & RFR_RES_WATE) { vp[vn] = _("¿å", "water"); color[vn++] = TERM_BLUE; }
        if (flagsr & RFR_RES_PLAS) { vp[vn] = _("¥×¥é¥º¥Þ", "plasma"); color[vn++] = TERM_L_RED; }
        if (flagsr & RFR_RES_SHAR) { vp[vn] = _("ÇËÊÒ", "shards"); color[vn++] = TERM_L_UMBER; }
        if (flagsr & RFR_RES_SOUN) { vp[vn] = _("¹ì²»", "sound"); color[vn++] = TERM_ORANGE; }
        if (flagsr & RFR_RES_CHAO) { vp[vn] = _("¥«¥ª¥¹", "chaos"); color[vn++] = TERM_VIOLET; }
        if (flagsr & RFR_RES_NEXU) { vp[vn] = _("°ø²Ìº®Íð", "nexus"); color[vn++] = TERM_VIOLET; }
        if (flagsr & RFR_RES_DISE) { vp[vn] = _("Îô²½", "disenchantment"); color[vn++] = TERM_VIOLET; }
        if (flagsr & RFR_RES_WALL) { vp[vn] = _("¥Õ¥©¡¼¥¹", "force"); color[vn++] = TERM_UMBER; }
        if (flagsr & RFR_RES_INER) { vp[vn] = _("ÃÙÆß", "inertia"); color[vn++] = TERM_SLATE; }
        if (flagsr & RFR_RES_TIME) { vp[vn] = _("»þ´ÖµÕž", "time"); color[vn++] = TERM_L_BLUE; }
        if (flagsr & RFR_RES_GRAV) { vp[vn] = _("½ÅÎÏ", "gravity"); color[vn++] = TERM_SLATE; }
        if (flagsr & RFR_RES_ALL) { vp[vn] = _("¤¢¤é¤æ¤ë¹¶·â", "all"); color[vn++] = TERM_YELLOW; }
        if ((flagsr & RFR_RES_TELE) && !(r_ptr->flags1 & RF1_UNIQUE)) { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È", "teleportation"); color[vn++] = TERM_ORANGE; }

        /* Describe immunities and resistances */
        if (vn)
        {
                /* Intro */
                hooked_roff(format(_("%^s¤Ï", "%^s"), wd_he[msex]));

                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if ( n != 0 ) hooked_roff("¤È");
#else
                        if (n == 0) hooked_roff(" resists ");
                        else if (n < vn-1) hooked_roff(", ");
                        else hooked_roff(" and ");
#endif


                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
                }

                /* End */
                hooked_roff(_("¤ÎÂÑÀ­¤ò»ý¤Ã¤Æ¤¤¤ë¡£", ".  "));
        }


        if ((r_ptr->r_xtra1 & MR1_SINKA) || know_everything)
        {
                if (r_ptr->next_r_idx)
                {
                        hooked_roff(format(_("%^s¤Ï·Ð¸³¤òÀѤà¤È¡¢", "%^s will evolve into "), wd_he[msex]));
                        hook_c_roff(TERM_YELLOW, format("%s", r_name+r_info[r_ptr->next_r_idx].name));
                        hooked_roff(format(
                                _(("¤Ë¿Ê²½¤¹¤ë¡£"), 
                                  (" when %s gets enugh experience.  ", wd_he[msex]))));
                }
                else if (!(r_ptr->flags1 & RF1_UNIQUE))
                {
                        hooked_roff(format(_("%s¤Ï¿Ê²½¤·¤Ê¤¤¡£", "%s won't evolve.  "), wd_he[msex]));
                }
        }

        /* Collect non-effects */
        vn = 0;
        if (flags3 & RF3_NO_STUN)  { vp[vn] = _("Û¯Û°¤È¤·¤Ê¤¤", "stunned"); color[vn++] = TERM_ORANGE; }
        if (flags3 & RF3_NO_FEAR)  { vp[vn] = _("¶²Éݤò´¶¤¸¤Ê¤¤", "frightened"); color[vn++] = TERM_SLATE; }
        if (flags3 & RF3_NO_CONF)  { vp[vn] = _("º®Í𤷤ʤ¤", "confused"); color[vn++] = TERM_L_UMBER; }
        if (flags3 & RF3_NO_SLEEP) { vp[vn] = _("̲¤é¤µ¤ì¤Ê¤¤", "slept"); color[vn++] = TERM_BLUE; }
        if ((flagsr & RFR_RES_TELE) && (r_ptr->flags1 & RF1_UNIQUE)) { vp[vn] = _("¥Æ¥ì¥Ý¡¼¥È¤µ¤ì¤Ê¤¤", "teleported"); color[vn++] = TERM_ORANGE; }

        /* Describe non-effects */
        if (vn)
        {
                /* Intro */
                hooked_roff(format(
                        _("%^s¤Ï", "%^s"), wd_he[msex]));

                /* Scan */
                for (n = 0; n < vn; n++)
                {
                        /* Intro */
#ifdef JP
                        if ( n != 0 ) hooked_roff("¤·¡¢");
#else
                        if (n == 0) hooked_roff(" cannot be ");
                        else if (n < vn - 1) hooked_roff(", ");
                        else hooked_roff(" or ");
#endif


                        /* Dump */
                        hook_c_roff(color[n], vp[n]);
                }

                /* End */
                hooked_roff(_("¡£", ".  "));
        }


        /* Do we know how aware it is? */
        if ((((int)r_ptr->r_wake * (int)r_ptr->r_wake) > r_ptr->sleep) ||
                  (r_ptr->r_ignore == MAX_UCHAR) ||
            (r_ptr->sleep == 0 && r_ptr->r_tkills >= 10) || know_everything)
        {
                cptr act;

                if (r_ptr->sleep > 200)
                {
                        act = _("¤ò̵»ë¤·¤¬¤Á¤Ç¤¢¤ë¤¬", "prefers to ignore");
                }
                else if (r_ptr->sleep > 95)
                {
                        act = _("¤ËÂФ·¤Æ¤Û¤È¤ó¤ÉÃí°Õ¤òʧ¤ï¤Ê¤¤¤¬", "pays very little attention to");
                }
                else if (r_ptr->sleep > 75)
                {
                        act = _("¤ËÂФ·¤Æ¤¢¤Þ¤êÃí°Õ¤òʧ¤ï¤Ê¤¤¤¬", "pays little attention to");
                }
                else if (r_ptr->sleep > 45)
                {
                        act = _("¤ò¸«²á¤´¤·¤¬¤Á¤Ç¤¢¤ë¤¬", "tends to overlook");
                }
                else if (r_ptr->sleep > 25)
                {
                        act = _("¤ò¤Û¤ó¤Î¾¯¤·¤Ï¸«¤Æ¤ª¤ê", "takes quite a while to see");
                }
                else if (r_ptr->sleep > 10)
                {
                        act = _("¤ò¤·¤Ð¤é¤¯¤Ï¸«¤Æ¤ª¤ê", "takes a while to see");
                }
                else if (r_ptr->sleep > 5)
                {
                        act = _("¤ò´öʬÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê", "is fairly observant of");
                }
                else if (r_ptr->sleep > 3)
                {
                        act = _("¤òÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê", "is observant of");
                }
                else if (r_ptr->sleep > 1)
                {
                        act = _("¤ò¤«¤Ê¤êÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê", "is very observant of");
                }
                else if (r_ptr->sleep > 0)
                {
                        act = _("¤ò·Ù²ü¤·¤Æ¤ª¤ê", "is vigilant for");
                }
                else
                {
                        act = _("¤ò¤«¤Ê¤ê·Ù²ü¤·¤Æ¤ª¤ê", "is ever vigilant for");
                }

                hooked_roff(
                        _(format("%^s¤Ï¿¯Æþ¼Ô%s¡¢ %d ¥Õ¥£¡¼¥ÈÀ褫¤é¿¯Æþ¼Ô¤Ëµ¤ÉÕ¤¯¤³¤È¤¬¤¢¤ë¡£", wd_he[msex], act, 10 * r_ptr->aaf),
                          format("%^s %s intruders, which %s may notice from %d feet.  ", wd_he[msex], act, wd_he[msex], 10 * r_ptr->aaf)));
        }


        /* Drops gold and/or items */
        if (drop_gold || drop_item)
        {
                /* Intro */
                hooked_roff(format(
                        _("%^s¤Ï", "%^s may carry"), wd_he[msex]));
#ifndef JP
                /* No "n" needed */
                sin = FALSE;
#endif


                /* Count maximum drop */
                n = MAX(drop_gold, drop_item);

                /* One drop (may need an "n") */
                if (n == 1)
                {
                        hooked_roff(_("°ì¤Ä¤Î", " a"));
#ifndef JP
                        sin = TRUE;
#endif
                }

                /* Two drops */
                else if (n == 2)
                {
                        hooked_roff(
                                _("°ì¤Ä¤«Æó¤Ä¤Î", " one or two"));
                }

                /* Many drops */
                else
                {
                        hooked_roff(format(
                                _(" %d ¸Ä¤Þ¤Ç¤Î", " up to %d"), n));
                }


                /* Great */
                if (flags1 & RF1_DROP_GREAT)
                {
                        p = _("ÆÃÊ̤Ê", " exceptional");
                }

                /* Good (no "n" needed) */
                else if (flags1 & RF1_DROP_GOOD)
                {
                        p = _("¾å¼Á¤Ê", " good");
#ifndef JP
                        sin = FALSE;
#endif
                }

                /* Okay */
                else
                {
                        p = NULL;
                }


                /* Objects */
                if (drop_item)
                {
                        /* Handle singular "an" */
#ifndef JP
                        if (sin) hooked_roff("n");
                        sin = FALSE;
#endif

                        /* Dump "object(s)" */
                        if (p) hooked_roff(p);
                        hooked_roff(
                                _("¥¢¥¤¥Æ¥à", " object"));

#ifndef JP
                        if (n != 1) hooked_roff("s");
#endif

                        /* Conjunction replaces variety, if needed for "gold" below */
                        p = _("¤ä", " or");
                }

                /* Treasures */
                if (drop_gold)
                {
#ifndef JP
                        /* Cancel prefix */
                        if (!p) sin = FALSE;

                        /* Handle singular "an" */
                        if (sin) hooked_roff("n");
                        sin = FALSE;
#endif

                        /* Dump "treasure(s)" */
                        if (p) hooked_roff(p);
                        hooked_roff(_("ºâÊõ", " treasure"));
#ifndef JP
                        if (n != 1) hooked_roff("s");
#endif

                }

                /* End this sentence */
                hooked_roff(_("¤ò»ý¤Ã¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£", ".  "));
        }


        /* Count the number of "known" attacks */
        for (n = 0, m = 0; m < 4; m++)
        {
                /* Skip non-attacks */
                if (!r_ptr->blow[m].method) continue;
                if (r_ptr->blow[m].method == RBM_SHOOT) continue;

                /* Count known attacks */
                if (r_ptr->r_blows[m] || know_everything) n++;
        }

        /* Examine (and count) the actual attacks */
        for (r = 0, m = 0; m < 4; m++)
        {
                int method, effect, d1, d2;

                /* Skip non-attacks */
                if (!r_ptr->blow[m].method) continue;
                if (r_ptr->blow[m].method == RBM_SHOOT) continue;

                /* Skip unknown attacks */
                if (!r_ptr->r_blows[m] && !know_everything) continue;

                /* Extract the attack info */
                method = r_ptr->blow[m].method;
                effect = r_ptr->blow[m].effect;
                d1 = r_ptr->blow[m].d_dice;
                d2 = r_ptr->blow[m].d_side;

                /* No method yet */
                p = NULL;

                /* Acquire the method */
                switch (method)
                {
                        case RBM_HIT:           p = _("²¥¤ë", "hit"); break;
                        case RBM_TOUCH:         p = _("¿¨¤ë", "touch"); break;
                        case RBM_PUNCH:         p = _("¥Ñ¥ó¥Á¤¹¤ë", "punch"); break;
                        case RBM_KICK:          p = _("½³¤ë", "kick"); break;
                        case RBM_CLAW:          p = _("¤Ò¤Ã¤«¤¯", "claw"); break;
                        case RBM_BITE:          p = _("³ú¤à", "bite"); break;
                        case RBM_STING:         p = _("»É¤¹", "sting"); break;
                        case RBM_SLASH:         p = _("»Â¤ë", "slash"); break;
                        case RBM_BUTT:          p = _("³Ñ¤ÇÆͤ¯", "butt"); break;
                        case RBM_CRUSH:         p = _("ÂÎÅö¤¿¤ê¤¹¤ë", "crush"); break;
                        case RBM_ENGULF:        p = _("°û¤ß¹þ¤à", "engulf"); break;
                        case RBM_CHARGE:        p = _("ÀÁµá½ñ¤ò¤è¤³¤¹", "charge"); break;
                        case RBM_CRAWL:         p = _("ÂΤξå¤òÇ礤²ó¤ë", "crawl on you"); break;
                        case RBM_DROOL:         p = _("¤è¤À¤ì¤ò¤¿¤é¤¹", "drool on you"); break;
                        case RBM_SPIT:          p = _("¤Ä¤Ð¤òÅǤ¯", "spit"); break;
                        case RBM_EXPLODE:       p = _("Çúȯ¤¹¤ë", "explode"); break;
                        case RBM_GAZE:          p = _("¤Ë¤é¤à", "gaze"); break;
                        case RBM_WAIL:          p = _("µã¤­¶«¤Ö", "wail"); break;
                        case RBM_SPORE:         p = _("˦»Ò¤òÈô¤Ð¤¹", "release spores"); break;
                        case RBM_XXX4:          break;
                        case RBM_BEG:           p = _("¶â¤ò¤»¤¬¤à", "beg"); break;
                        case RBM_INSULT:        p = _("Éî¿«¤¹¤ë", "insult"); break;
                        case RBM_MOAN:          p = _("¤¦¤á¤¯", "moan"); break;
                        case RBM_SHOW:          p = _("²Î¤¦", "sing"); break;
                }


                /* Default effect */
                q = NULL;

                /* Acquire the effect */
                switch (effect)
                {
                        case RBE_SUPERHURT:
                        case RBE_HURT:          q = _("¹¶·â¤¹¤ë", "attack"); break;
                        case RBE_POISON:        q = _("ÆǤò¤¯¤é¤ï¤¹", "poison"); break;
                        case RBE_UN_BONUS:      q = _("Îô²½¤µ¤»¤ë", "disenchant"); break;
                        case RBE_UN_POWER:      q = _("½¼Å¶ËâÎϤòµÛ¼ý¤¹¤ë", "drain charges"); break;
                        case RBE_EAT_GOLD:      q = _("¶â¤òÅð¤à", "steal gold"); break;
                        case RBE_EAT_ITEM:      q = _("¥¢¥¤¥Æ¥à¤òÅð¤à", "steal items"); break;
                        case RBE_EAT_FOOD:      q = _("¤¢¤Ê¤¿¤Î¿©ÎÁ¤ò¿©¤Ù¤ë", "eat your food"); break;
                        case RBE_EAT_LITE:      q = _("ÌÀ¤«¤ê¤òµÛ¼ý¤¹¤ë", "absorb light"); break;
                        case RBE_ACID:          q = _("»À¤òÈô¤Ð¤¹", "shoot acid"); break;
                        case RBE_ELEC:          q = _("´¶ÅŤµ¤»¤ë", "electrocute"); break;
                        case RBE_FIRE:          q = _("dz¤ä¤¹", "burn"); break;
                        case RBE_COLD:          q = _("Åà¤é¤»¤ë", "freeze"); break;
                        case RBE_BLIND:         q = _("ÌÕÌܤˤ¹¤ë", "blind"); break;
                        case RBE_CONFUSE:       q = _("º®Í𤵤»¤ë", "confuse"); break;
                        case RBE_TERRIFY:       q = _("¶²Éݤµ¤»¤ë", "terrify"); break;
                        case RBE_PARALYZE:      q = _("Ëãá㤵¤»¤ë", "paralyze"); break;
                        case RBE_LOSE_STR:      q = _("ÏÓÎϤò¸º¾¯¤µ¤»¤ë", "reduce strength"); break;
                        case RBE_LOSE_INT:      q = _("ÃÎǽ¤ò¸º¾¯¤µ¤»¤ë", "reduce intelligence"); break;
                        case RBE_LOSE_WIS:      q = _("¸­¤µ¤ò¸º¾¯¤µ¤»¤ë", "reduce wisdom"); break;
                        case RBE_LOSE_DEX:      q = _("´ïÍѤµ¤ò¸º¾¯¤µ¤»¤ë", "reduce dexterity"); break;
                        case RBE_LOSE_CON:      q = _("Âѵ×ÎϤò¸º¾¯¤µ¤»¤ë", "reduce constitution"); break;
                        case RBE_LOSE_CHR:      q = _("Ì¥ÎϤò¸º¾¯¤µ¤»¤ë", "reduce charisma"); break;
                        case RBE_LOSE_ALL:      q = _("Á´¥¹¥Æ¡¼¥¿¥¹¤ò¸º¾¯¤µ¤»¤ë", "reduce all stats"); break;
                        case RBE_SHATTER:       q = _("Ê´ºÕ¤¹¤ë", "shatter"); break;
                        case RBE_EXP_10:        q = _("·Ð¸³Ãͤò¸º¾¯(10d6+)¤µ¤»¤ë", "lower experience (by 10d6+)"); break;
                        case RBE_EXP_20:        q = _("·Ð¸³Ãͤò¸º¾¯(20d6+)¤µ¤»¤ë", "lower experience (by 20d6+)"); break;
                        case RBE_EXP_40:        q = _("·Ð¸³Ãͤò¸º¾¯(40d6+)¤µ¤»¤ë", "lower experience (by 40d6+)"); break;
                        case RBE_EXP_80:        q = _("·Ð¸³Ãͤò¸º¾¯(80d6+)¤µ¤»¤ë", "lower experience (by 80d6+)"); break;
                        case RBE_DISEASE:       q = _("ɵ¤¤Ë¤¹¤ë", "disease"); break;
                        case RBE_TIME:      q = _("»þ´Ö¤òµÕÌá¤ê¤µ¤»¤ë", "time"); break;
                        case RBE_DR_LIFE:   q = _("À¸Ì¿ÎϤòµÛ¼ý¤¹¤ë", "drain life"); break;
                        case RBE_DR_MANA:   q = _("ËâÎϤòÃ¥¤¦", "drain mana force"); break;
                        case RBE_INERTIA:   q = _("¸ºÂ®¤µ¤»¤ë", "slow"); break;
                        case RBE_STUN:      q = _("Û¯Û°¤È¤µ¤»¤ë", "stun"); break;
                }


#ifdef JP
                if ( r == 0 ) hooked_roff( format("%^s¤Ï", wd_he[msex]) );

                /***¼ã´³É½¸½¤òÊѹ¹ ita ***/

                        /* Describe damage (if known) */
                if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
                  {
                    
                    /* Display the damage */
                    hooked_roff(format(" %dd%d ", d1, d2));
                    hooked_roff("¤Î¥À¥á¡¼¥¸¤Ç");
                  }
                /* Hack -- force a method */
                if (!p) p = "²¿¤«´ñ̯¤Ê¤³¤È¤ò¤¹¤ë";

                /* Describe the method */
                /* XX¤·¤ÆYY¤·/XX¤·¤ÆYY¤¹¤ë/XX¤·/XX¤¹¤ë */
                if(q) jverb( p ,jverb_buf, JVERB_TO);
                else if(r!=n-1) jverb( p ,jverb_buf, JVERB_AND);
                else strcpy(jverb_buf, p);

                hooked_roff(jverb_buf);

                /* Describe the effect (if any) */
                if (q)
                {
                  if(r!=n-1) jverb( q,jverb_buf, JVERB_AND);
                  else strcpy(jverb_buf,q); 
                  hooked_roff(jverb_buf);
                }
                if(r!=n-1) hooked_roff("¡¢");
#else
                /* Introduce the attack description */
                if (!r)
                {
                        hooked_roff(format("%^s can ", wd_he[msex]));
                }
                else if (r < n-1)
                {
                        hooked_roff(", ");
                }
                else
                {
                        hooked_roff(", and ");
                }


                /* Hack -- force a method */
                if (!p) p = "do something weird";

                /* Describe the method */
                hooked_roff(p);


                /* Describe the effect (if any) */
                if (q)
                {
                        /* Describe the attack type */
                        hooked_roff(" to ");
                        hooked_roff(q);

                        /* Describe damage (if known) */
                        if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
                        {
                                /* Display the damage */
                                hooked_roff(" with damage");
                                hooked_roff(format(" %dd%d", d1, d2));
                        }
                }
#endif



                /* Count the attacks as printed */
                r++;
        }

        /* Finish sentence above */
        if (r)
        {
                hooked_roff(_("¡£", ".  "));
        }

        /* Notice lack of attacks */
        else if (flags1 & RF1_NEVER_BLOW)
        {
                hooked_roff(format(
                        _("%^s¤ÏʪÍýŪ¤Ê¹¶·âÊýË¡¤ò»ý¤¿¤Ê¤¤¡£",
                          "%^s has no physical attacks.  "), wd_he[msex]));
        }

        /* Or describe the lack of knowledge */
        else
        {
                hooked_roff(format(
                        _("%s¹¶·â¤Ë¤Ä¤¤¤Æ¤Ï²¿¤âÃΤé¤Ê¤¤¡£",
                          "Nothing is known about %s attack.  "), wd_his[msex]));
        }


        /*
         * Notice "Quest" monsters, but only if you
         * already encountered the monster.
         */
        if ((flags1 & RF1_QUESTOR) && ((r_ptr->r_sights) && (r_ptr->max_num) && ((r_idx == MON_OBERON) || (r_idx == MON_SERPENT))))
        {
                hook_c_roff(TERM_VIOLET, 
                        _("¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò»¦¤·¤¿¤¤¤È¤¤¤¦¶¯¤¤Íß˾¤ò´¶¤¸¤Æ¤¤¤ë...",
                          "You feel an intense desire to kill this monster...  "));
        }

        else if (flags7 & RF7_GUARDIAN)
        {
                hook_c_roff(TERM_L_RED, 
                        _("¤³¤Î¥â¥ó¥¹¥¿¡¼¤Ï¥À¥ó¥¸¥ç¥ó¤Î¼ç¤Ç¤¢¤ë¡£",
                          "This monster is the master of a dungeon."));
        }


        /* All done */
        hooked_roff("\n");

}


/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¾ðÊó¤Î¥Ø¥Ã¥À¤òµ­½Ò¤¹¤ë
 * Hack -- Display the "name" and "attr/chars" of a monster race
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @return ¤Ê¤·
 */
void roff_top(int r_idx)
{
        monster_race    *r_ptr = &r_info[r_idx];

        byte            a1, a2;
        char            c1, c2;


        /* Access the chars */
        c1 = r_ptr->d_char;
        c2 = r_ptr->x_char;

        /* Access the attrs */
        a1 = r_ptr->d_attr;
        a2 = r_ptr->x_attr;


        /* Clear the top line */
        Term_erase(0, 0, 255);

        /* Reset the cursor */
        Term_gotoxy(0, 0);

#ifndef JP
        /* A title (use "The" for non-uniques) */
        if (!(r_ptr->flags1 & RF1_UNIQUE))
        {
                Term_addstr(-1, TERM_WHITE, "The ");
        }
#endif

        /* Dump the name */
        Term_addstr(-1, TERM_WHITE, (r_name + r_ptr->name));

        /* Append the "standard" attr/char info */
        Term_addstr(-1, TERM_WHITE, " ('");
        Term_add_bigch(a1, c1);
        Term_addstr(-1, TERM_WHITE, "')");

        /* Append the "optional" attr/char info */
        Term_addstr(-1, TERM_WHITE, "/('");
        Term_add_bigch(a2, c2);
        Term_addstr(-1, TERM_WHITE, "'):");

        /* Wizards get extra info */
        if (p_ptr->wizard)
        {
                char buf[6];

                sprintf(buf, "%d", r_idx);

                Term_addstr(-1, TERM_WHITE, " (");
                Term_addstr(-1, TERM_L_BLUE, buf);
                Term_addch(TERM_WHITE, ')');
        }
}



/*!
 * @brief  ¥â¥ó¥¹¥¿¡¼¾ðÊó¤Îɽ¼¨¤È¶¦¤Ë²èÌ̤ò°ì»þ¾Ãµî¤¹¤ë¥µ¥Ö¥ë¡¼¥Á¥ó /
 * Hack -- describe the given monster race at the top of the screen
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @param mode ɽ¼¨¥ª¥×¥·¥ç¥ó
 * @return ¤Ê¤·
 */
void screen_roff(int r_idx, int mode)
{
        /* Flush messages */
        msg_print(NULL);

        /* Begin recall */
        Term_erase(0, 1, 255);

        hook_c_roff = c_roff;

        /* Recall monster */
        roff_aux(r_idx, mode);

        /* Describe monster */
        roff_top(r_idx);
}




/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¾ðÊó¤Î¸½ºß¤Î¥¦¥£¥ó¥É¥¦¤Ëɽ¼¨¤¹¤ë /
 * Hack -- describe the given monster race in the current "term" window
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @return ¤Ê¤·
 */
void display_roff(int r_idx)
{
        int y;

        /* Erase the window */
        for (y = 0; y < Term->hgt; y++)
        {
                /* Erase the line */
                Term_erase(0, y, 255);
        }

        /* Begin recall */
        Term_gotoxy(0, 1);

        hook_c_roff = c_roff;

        /* Recall monster */
        roff_aux(r_idx, 0);

        /* Describe monster */
        roff_top(r_idx);
}


/*!
 * @brief ¥â¥ó¥¹¥¿¡¼¾ÜºÙ¾ðÊó¤ò¼«Æ°¥¹¥Ý¥¤¥é¡¼¸þ¤±¤Ë½ÐÎϤ¹¤ë /
 * Hack -- output description of the given monster race
 * @param r_idx ¥â¥ó¥¹¥¿¡¼¤Î¼ï²ID
 * @param roff_func ½ÐÎϽèÍý¤ò¹Ô¤¦´Ø¿ô¥Ý¥¤¥ó¥¿
 * @return ¤Ê¤·
 */
void output_monster_spoiler(int r_idx, void (*roff_func)(byte attr, cptr str))
{
        hook_c_roff = roff_func;

        /* Recall monster */
        roff_aux(r_idx, 0x03);
}


bool mon_hook_dungeon(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (!(r_ptr->flags8 & RF8_WILD_ONLY))
                return TRUE;
        else
        {
                dungeon_info_type *d_ptr = &d_info[dungeon_type];
                if ((d_ptr->mflags8 & RF8_WILD_MOUNTAIN) &&
                    (r_ptr->flags8 & RF8_WILD_MOUNTAIN)) return TRUE;
                return FALSE;
        }
}


static bool mon_hook_ocean(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & RF8_WILD_OCEAN)
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_shore(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & RF8_WILD_SHORE)
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_waste(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & (RF8_WILD_WASTE | RF8_WILD_ALL))
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_town(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_wood(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & (RF8_WILD_WOOD | RF8_WILD_ALL))
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_volcano(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & RF8_WILD_VOLCANO)
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_mountain(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & RF8_WILD_MOUNTAIN)
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_grass(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (r_ptr->flags8 & (RF8_WILD_GRASS | RF8_WILD_ALL))
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_deep_water(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (!mon_hook_dungeon(r_idx)) return FALSE;

        if (r_ptr->flags7 & RF7_AQUATIC)
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_shallow_water(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (!mon_hook_dungeon(r_idx)) return FALSE;

        if (r_ptr->flags2 & RF2_AURA_FIRE)
                return FALSE;
        else
                return TRUE;
}


static bool mon_hook_lava(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (!mon_hook_dungeon(r_idx)) return FALSE;

        if (((r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK) ||
             (r_ptr->flags7 & RF7_CAN_FLY)) &&
            !(r_ptr->flags3 & RF3_AURA_COLD))
                return TRUE;
        else
                return FALSE;
}


static bool mon_hook_floor(int r_idx)
{
        monster_race *r_ptr = &r_info[r_idx];

        if (!(r_ptr->flags7 & RF7_AQUATIC) ||
            (r_ptr->flags7 & RF7_CAN_FLY))
                return TRUE;
        else
                return FALSE;
}


monster_hook_type get_monster_hook(void)
{
        if (!dun_level && !p_ptr->inside_quest)
        {
                switch (wilderness[p_ptr->wilderness_y][p_ptr->wilderness_x].terrain)
                {
                case TERRAIN_TOWN:
                        return (monster_hook_type)mon_hook_town;
                case TERRAIN_DEEP_WATER:
                        return (monster_hook_type)mon_hook_ocean;
                case TERRAIN_SHALLOW_WATER:
                case TERRAIN_SWAMP:
                        return (monster_hook_type)mon_hook_shore;
                case TERRAIN_DIRT:
                case TERRAIN_DESERT:
                        return (monster_hook_type)mon_hook_waste;
                case TERRAIN_GRASS:
                        return (monster_hook_type)mon_hook_grass;
                case TERRAIN_TREES:
                        return (monster_hook_type)mon_hook_wood;
                case TERRAIN_SHALLOW_LAVA:
                case TERRAIN_DEEP_LAVA:
                        return (monster_hook_type)mon_hook_volcano;
                case TERRAIN_MOUNTAIN:
                        return (monster_hook_type)mon_hook_mountain;
                default:
                        return (monster_hook_type)mon_hook_dungeon;
                }
        }
        else
        {
                return (monster_hook_type)mon_hook_dungeon;
        }
}


monster_hook_type get_monster_hook2(int y, int x)
{
        feature_type *f_ptr = &f_info[cave[y][x].feat];

        /* Set the monster list */

        /* Water */
        if (have_flag(f_ptr->flags, FF_WATER))
        {
                /* Deep water */
                if (have_flag(f_ptr->flags, FF_DEEP))
                {
                        return (monster_hook_type)mon_hook_deep_water;
                }

                /* Shallow water */
                else
                {
                        return (monster_hook_type)mon_hook_shallow_water;
                }
        }

        /* Lava */
        else if (have_flag(f_ptr->flags, FF_LAVA))
        {
                return (monster_hook_type)mon_hook_lava;
        }

        else return (monster_hook_type)mon_hook_floor;
}


void set_friendly(monster_type *m_ptr)
{
        m_ptr->smart |= SM_FRIENDLY;
}

void set_pet(monster_type *m_ptr)
{
        if (!is_pet(m_ptr)) check_pets_num_and_align(m_ptr, TRUE);

        /* Check for quest completion */
        check_quest_completion(m_ptr);

        m_ptr->smart |= SM_PET;
        if (!(r_info[m_ptr->r_idx].flags3 & (RF3_EVIL | RF3_GOOD)))
                m_ptr->sub_align = SUB_ALIGN_NEUTRAL;
}

/*
 * Makes the monster hostile towards the player
 */
void set_hostile(monster_type *m_ptr)
{
        if (p_ptr->inside_battle) return;

        if (is_pet(m_ptr)) check_pets_num_and_align(m_ptr, FALSE);

        m_ptr->smart &= ~SM_PET;
        m_ptr->smart &= ~SM_FRIENDLY;
}


/*
 * Anger the monster
 */
void anger_monster(monster_type *m_ptr)
{
        if (p_ptr->inside_battle) return;
        if (is_friendly(m_ptr))
        {
                char m_name[80];

                monster_desc(m_name, m_ptr, 0);
#ifdef JP
msg_format("%^s¤ÏÅܤä¿¡ª", m_name);
#else
                msg_format("%^s gets angry!", m_name);
#endif

                set_hostile(m_ptr);

                chg_virtue(V_INDIVIDUALISM, 1);
                chg_virtue(V_HONOUR, -1);
                chg_virtue(V_JUSTICE, -1);
                chg_virtue(V_COMPASSION, -1);
        }
}


/*
 * Check if monster can cross terrain
 */
bool monster_can_cross_terrain(s16b feat, monster_race *r_ptr, u16b mode)
{
        feature_type *f_ptr = &f_info[feat];

        /* Pattern */
        if (have_flag(f_ptr->flags, FF_PATTERN))
        {
                if (!(mode & CEM_RIDING))
                {
                        if (!(r_ptr->flags7 & RF7_CAN_FLY)) return FALSE;
                }
                else
                {
                        if (!(mode & CEM_P_CAN_ENTER_PATTERN)) return FALSE;
                }
        }

        /* "CAN" flags */
        if (have_flag(f_ptr->flags, FF_CAN_FLY) && (r_ptr->flags7 & RF7_CAN_FLY)) return TRUE;
        if (have_flag(f_ptr->flags, FF_CAN_SWIM) && (r_ptr->flags7 & RF7_CAN_SWIM)) return TRUE;
        if (have_flag(f_ptr->flags, FF_CAN_PASS))
        {
                if ((r_ptr->flags2 & RF2_PASS_WALL) && (!(mode & CEM_RIDING) || p_ptr->pass_wall)) return TRUE;
        }

        if (!have_flag(f_ptr->flags, FF_MOVE)) return FALSE;

        /* Some monsters can walk on mountains */
        if (have_flag(f_ptr->flags, FF_MOUNTAIN) && (r_ptr->flags8 & RF8_WILD_MOUNTAIN)) return TRUE;

        /* Water */
        if (have_flag(f_ptr->flags, FF_WATER))
        {
                if (!(r_ptr->flags7 & RF7_AQUATIC))
                {
                        /* Deep water */
                        if (have_flag(f_ptr->flags, FF_DEEP)) return FALSE;

                        /* Shallow water */
                        else if (r_ptr->flags2 & RF2_AURA_FIRE) return FALSE;
                }
        }

        /* Aquatic monster into non-water? */
        else if (r_ptr->flags7 & RF7_AQUATIC) return FALSE;

        /* Lava */
        if (have_flag(f_ptr->flags, FF_LAVA))
        {
                if (!(r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK)) return FALSE;
        }

        return TRUE;
}


/*
 * Strictly check if monster can enter the grid
 */
bool monster_can_enter(int y, int x, monster_race *r_ptr, u16b mode)
{
        cave_type *c_ptr = &cave[y][x];

        /* Player or other monster */
        if (player_bold(y, x)) return FALSE;
        if (c_ptr->m_idx) return FALSE;

        return monster_can_cross_terrain(c_ptr->feat, r_ptr, mode);
}


/*
 * Check if this monster has "hostile" alignment (aux)
 */
static bool check_hostile_align(byte sub_align1, byte sub_align2)
{
        if (sub_align1 != sub_align2)
        {
                if (((sub_align1 & SUB_ALIGN_EVIL) && (sub_align2 & SUB_ALIGN_GOOD)) ||
                        ((sub_align1 & SUB_ALIGN_GOOD) && (sub_align2 & SUB_ALIGN_EVIL)))
                        return TRUE;
        }

        /* Non-hostile alignment */
        return FALSE;
}


/*
 * Check if two monsters are enemies
 */
bool are_enemies(monster_type *m_ptr, monster_type *n_ptr)
{
        monster_race *r_ptr = &r_info[m_ptr->r_idx];
        monster_race *s_ptr = &r_info[n_ptr->r_idx];

        if (p_ptr->inside_battle)
        {
                if (is_pet(m_ptr) || is_pet(n_ptr)) return FALSE;
                return TRUE;
        }

        if ((r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
            && (s_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL)))
        {
                if (!is_pet(m_ptr) && !is_pet(n_ptr)) return FALSE;
        }

        /* Friendly vs. opposite aligned normal or pet */
        if (check_hostile_align(m_ptr->sub_align, n_ptr->sub_align))
        {
                if (!(m_ptr->mflag2 & MFLAG2_CHAMELEON) || !(n_ptr->mflag2 & MFLAG2_CHAMELEON)) return TRUE;
        }

        /* Hostile vs. non-hostile */
        if (is_hostile(m_ptr) != is_hostile(n_ptr))
        {
                return TRUE;
        }

        /* Default */
        return FALSE;
}


/*
 * Check if this monster race has "hostile" alignment
 * If user is player, m_ptr == NULL.
 */
bool monster_has_hostile_align(monster_type *m_ptr, int pa_good, int pa_evil, monster_race *r_ptr)
{
        byte sub_align1 = SUB_ALIGN_NEUTRAL;
        byte sub_align2 = SUB_ALIGN_NEUTRAL;

        if (m_ptr) /* For a monster */
        {
                sub_align1 = m_ptr->sub_align;
        }
        else /* For player */
        {
                if (p_ptr->align >= pa_good) sub_align1 |= SUB_ALIGN_GOOD;
                if (p_ptr->align <= pa_evil) sub_align1 |= SUB_ALIGN_EVIL;
        }

        /* Racial alignment flags */
        if (r_ptr->flags3 & RF3_EVIL) sub_align2 |= SUB_ALIGN_EVIL;
        if (r_ptr->flags3 & RF3_GOOD) sub_align2 |= SUB_ALIGN_GOOD;

        if (check_hostile_align(sub_align1, sub_align2)) return TRUE;

        /* Non-hostile alignment */
        return FALSE;
}


/*
 * Is the monster "alive"?
 *
 * Used to determine the message to print for a killed monster.
 * ("dies", "destroyed")
 */
bool monster_living(monster_race *r_ptr)
{
        /* Non-living, undead, or demon */
        if (r_ptr->flags3 & (RF3_DEMON | RF3_UNDEAD | RF3_NONLIVING))
                return FALSE;
        else
                return TRUE;
}


/*
 * Is this monster declined to be questor or bounty?
 */
bool no_questor_or_bounty_uniques(int r_idx)
{
        switch (r_idx)
        {
        /*
         * Decline them to be questor or bounty because they use
         * special motion "split and combine"
         */
        case MON_BANORLUPART:
        case MON_BANOR:
        case MON_LUPART:
                return TRUE;
        default:
                return FALSE;
        }
}