src/monster1.c

   1 /* File: monster1.c */
   2
   3 /*
   4  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
   5  *
   6  * This software may be copied and distributed for educational, research,
   7  * and not for profit purposes provided that this copyright and statement
   8  * are included in all such copies.  Other copyrights may also apply.
   9  */
  10
  11 /* Purpose: describe monsters (using monster memory) */
  12
  13 #include "angband.h"
  14
  15
  16 /*
  17  * Pronoun arrays, by gender.
  18  */
  19 static cptr wd_he[3] =
  20 #ifdef JP
  21 { "¤½¤ì", "Èà", "Èà½÷" };
  22 #else
  23 { "it", "he", "she" };
  24 #endif
  25
  26 static cptr wd_his[3] =
  27 #ifdef JP
  28 { "¤½¤ì¤Î", "Èà¤Î", "Èà½÷¤Î" };
  29 #else
  30 { "its", "his", "her" };
  31 #endif
  32
  33
  34
  35 /*
  36  * Pluralizer.  Args(count, singular, plural)
  37  */
  38 #define plural(c,s,p) \
  39     (((c) == 1) ? (s) : (p))
  40
  41
  42
  43
  44
  45
  46 /*
  47  * Determine if the "armor" is known
  48  * The higher the level, the fewer kills needed.
  49  */
  50 static bool know_armour(int r_idx)
  51 {
  52         monster_race *r_ptr = &r_info[r_idx];
  53
  54         s32b level = r_ptr->level;
  55
  56         s32b kills = r_ptr->r_tkills;
  57
  58         if (cheat_know) return (TRUE);
  59
  60         /* Normal monsters */
  61         if (kills > 304 / (4 + level)) return (TRUE);
  62
  63         /* Skip non-uniques */
  64         if (!(r_ptr->flags1 & RF1_UNIQUE)) return (FALSE);
  65
  66         /* Unique monsters */
  67         if (kills > 304 / (38 + (5 * level) / 4)) return (TRUE);
  68
  69         /* Assume false */
  70         return (FALSE);
  71 }
  72
  73
  74 /*
  75  * Determine if the "damage" of the given attack is known
  76  * the higher the level of the monster, the fewer the attacks you need,
  77  * the more damage an attack does, the more attacks you need
  78  */
  79 static bool know_damage(int r_idx, int i)
  80 {
  81         monster_race *r_ptr = &r_info[r_idx];
  82
  83         s32b level = r_ptr->level;
  84
  85         s32b a = r_ptr->r_blows[i];
  86
  87         s32b d1 = r_ptr->blow[i].d_dice;
  88         s32b d2 = r_ptr->blow[i].d_side;
  89
  90         s32b d = d1 * d2;
  91
  92         if (d >= ((4+level)*MAX_UCHAR)/80) d = ((4+level)*MAX_UCHAR-1)/80;
  93
  94         /* Normal monsters */
  95         if ((4 + level) * a > 80 * d) return (TRUE);
  96
  97         /* Skip non-uniques */
  98         if (!(r_ptr->flags1 & RF1_UNIQUE)) return (FALSE);
  99
 100         /* Unique monsters */
 101         if ((4 + level) * (2 * a) > 80 * d) return (TRUE);
 102
 103         /* Assume false */
 104         return (FALSE);
 105 }
 106
 107
 108 /*
 109  * Prepare hook for c_roff(). It will be changed for spoiler generation in wizard1.c.
 110  */
 111 void (*hook_c_roff)(byte attr, cptr str) = c_roff;
 112
 113 static void hooked_roff(cptr str)
 114 {
 115         /* Spawn */
 116         hook_c_roff(TERM_WHITE, str);
 117 }
 118
 119
 120 /*
 121  * Hack -- display monster information using "hooked_roff()"
 122  *
 123  * This function should only be called with the cursor placed at the
 124  * left edge of the screen, on a cleared line, in which the recall is
 125  * to take place.  One extra blank line is left after the recall.
 126  */
 127 static void roff_aux(int r_idx, int mode)
 128 {
 129         monster_race    *r_ptr = &r_info[r_idx];
 130
 131         bool            old = FALSE;
 132
 133         int             m, n, r;
 134
 135         cptr            p, q;
 136
 137 #ifdef JP
 138         char            jverb_buf[64];
 139 #else
 140         bool            sin = FALSE;
 141 #endif
 142         int             msex = 0;
 143
 144         bool nightmare = ironman_nightmare && !(mode & 0x02);
 145         int speed = nightmare ? r_ptr->speed + 5 : r_ptr->speed;
 146
 147         bool            breath = FALSE;
 148         bool            magic = FALSE;
 149
 150         u32b            flags1;
 151         u32b            flags2;
 152         u32b            flags3;
 153         u32b            flags4;
 154         u32b            flags5;
 155         u32b            flags6;
 156         u32b            flags7;
 157         u32b            flagsr;
 158
 159         byte drop_gold, drop_item;
 160
 161         int             vn = 0;
 162         byte            color[96];
 163         cptr            vp[96];
 164
 165         bool know_everything = FALSE;
 166
 167         /* Obtain a copy of the "known" number of drops */
 168         drop_gold = r_ptr->r_drop_gold;
 169         drop_item = r_ptr->r_drop_item;
 170
 171         /* Obtain a copy of the "known" flags */
 172         flags1 = (r_ptr->flags1 & r_ptr->r_flags1);
 173         flags2 = (r_ptr->flags2 & r_ptr->r_flags2);
 174         flags3 = (r_ptr->flags3 & r_ptr->r_flags3);
 175         flags4 = (r_ptr->flags4 & r_ptr->r_flags4);
 176         flags5 = (r_ptr->flags5 & r_ptr->r_flags5);
 177         flags6 = (r_ptr->flags6 & r_ptr->r_flags6);
 178         flags7 = (r_ptr->flags7 & r_ptr->flags7);
 179         flagsr = (r_ptr->flagsr & r_ptr->r_flagsr);
 180
 181         /* cheat_know or research_mon() */
 182         if (cheat_know || (mode & 0x01))
 183                 know_everything = TRUE;
 184
 185         /* Cheat -- Know everything */
 186         if (know_everything)
 187         {
 188                 /* Hack -- maximal drops */
 189                 drop_gold = drop_item =
 190                 (((r_ptr->flags1 & RF1_DROP_4D2) ? 8 : 0) +
 191                  ((r_ptr->flags1 & RF1_DROP_3D2) ? 6 : 0) +
 192                  ((r_ptr->flags1 & RF1_DROP_2D2) ? 4 : 0) +
 193                  ((r_ptr->flags1 & RF1_DROP_1D2) ? 2 : 0) +
 194                  ((r_ptr->flags1 & RF1_DROP_90)  ? 1 : 0) +
 195                  ((r_ptr->flags1 & RF1_DROP_60)  ? 1 : 0));
 196
 197                 /* Hack -- but only "valid" drops */
 198                 if (r_ptr->flags1 & RF1_ONLY_GOLD) drop_item = 0;
 199                 if (r_ptr->flags1 & RF1_ONLY_ITEM) drop_gold = 0;
 200
 201                 /* Hack -- know all the flags */
 202                 flags1 = r_ptr->flags1;
 203                 flags2 = r_ptr->flags2;
 204                 flags3 = r_ptr->flags3;
 205                 flags4 = r_ptr->flags4;
 206                 flags5 = r_ptr->flags5;
 207                 flags6 = r_ptr->flags6;
 208                 flagsr = r_ptr->flagsr;
 209         }
 210
 211
 212         /* Extract a gender (if applicable) */
 213         if (r_ptr->flags1 & RF1_FEMALE) msex = 2;
 214         else if (r_ptr->flags1 & RF1_MALE) msex = 1;
 215
 216         /* Assume some "obvious" flags */
 217         if (r_ptr->flags1 & RF1_UNIQUE)  flags1 |= (RF1_UNIQUE);
 218         if (r_ptr->flags1 & RF1_QUESTOR) flags1 |= (RF1_QUESTOR);
 219         if (r_ptr->flags1 & RF1_MALE)    flags1 |= (RF1_MALE);
 220         if (r_ptr->flags1 & RF1_FEMALE)  flags1 |= (RF1_FEMALE);
 221
 222         /* Assume some "creation" flags */
 223         if (r_ptr->flags1 & RF1_FRIENDS) flags1 |= (RF1_FRIENDS);
 224         if (r_ptr->flags1 & RF1_ESCORT)  flags1 |= (RF1_ESCORT);
 225         if (r_ptr->flags1 & RF1_ESCORTS) flags1 |= (RF1_ESCORTS);
 226
 227         /* Killing a monster reveals some properties */
 228         if (r_ptr->r_tkills || know_everything)
 229         {
 230                 /* Know "race" flags */
 231                 if (r_ptr->flags3 & RF3_ORC)      flags3 |= (RF3_ORC);
 232                 if (r_ptr->flags3 & RF3_TROLL)    flags3 |= (RF3_TROLL);
 233                 if (r_ptr->flags3 & RF3_GIANT)    flags3 |= (RF3_GIANT);
 234                 if (r_ptr->flags3 & RF3_DRAGON)   flags3 |= (RF3_DRAGON);
 235                 if (r_ptr->flags3 & RF3_DEMON)    flags3 |= (RF3_DEMON);
 236                 if (r_ptr->flags3 & RF3_UNDEAD)   flags3 |= (RF3_UNDEAD);
 237                 if (r_ptr->flags3 & RF3_EVIL)     flags3 |= (RF3_EVIL);
 238                 if (r_ptr->flags3 & RF3_GOOD)     flags3 |= (RF3_GOOD);
 239                 if (r_ptr->flags3 & RF3_ANIMAL)   flags3 |= (RF3_ANIMAL);
 240                 if (r_ptr->flags3 & RF3_AMBERITE) flags3 |= (RF3_AMBERITE);
 241                 if (r_ptr->flags2 & RF2_HUMAN)    flags2 |= (RF2_HUMAN);
 242
 243                 /* Know 'quantum' flag */
 244                 if (r_ptr->flags2 & RF2_QUANTUM)  flags2 |= (RF2_QUANTUM);
 245
 246                 /* Know "forced" flags */
 247                 if (r_ptr->flags1 & RF1_FORCE_DEPTH) flags1 |= (RF1_FORCE_DEPTH);
 248                 if (r_ptr->flags1 & RF1_FORCE_MAXHP) flags1 |= (RF1_FORCE_MAXHP);
 249         }
 250
 251         /* For output_monster_spoiler() */
 252         if (mode & 0x02)
 253         {
 254                 /* Nothing to do */
 255         }
 256         else
 257
 258         /* Treat uniques differently */
 259         if (flags1 & RF1_UNIQUE)
 260         {
 261                 /* Hack -- Determine if the unique is "dead" */
 262                 bool dead = (r_ptr->max_num == 0) ? TRUE : FALSE;
 263
 264                 /* We've been killed... */
 265                 if (r_ptr->r_deaths)
 266                 {
 267                         /* Killed ancestors */
 268 #ifdef JP
 269                         hooked_roff(format("%^s¤Ï¤¢¤Ê¤¿¤ÎÀèÁÄ¤ò %d ¿ÍÁò¤Ã¤Æ¤¤¤ë",
 270                                            wd_he[msex], r_ptr->r_deaths));
 271 #else
 272                         hooked_roff(format("%^s has slain %d of your ancestors",
 273                                            wd_he[msex], r_ptr->r_deaths));
 274 #endif
 275
 276
 277                         /* But we've also killed it */
 278                         if (dead)
 279                         {
 280 #ifdef JP
 281                                 hooked_roff(format("¤¬¡¢¤¹¤Ç¤ËµØÆ¤¤Á¤Ï²Ì¤¿¤·¤Æ¤¤¤ë¡ª"));
 282 #else
 283                                 hooked_roff(format(", but you have avenged %s!  ",
 284                                             plural(r_ptr->r_deaths, "him", "them")));
 285 #endif
 286
 287                         }
 288
 289                         /* Unavenged (ever) */
 290                         else
 291                         {
 292 #ifdef JP
 293                                 hooked_roff(format("¤Î¤Ë¡¢¤Þ¤ÀµØÆ¤¤Á¤ò²Ì¤¿¤·¤Æ¤¤¤Ê¤¤¡£"));
 294 #else
 295                                 hooked_roff(format(", who %s unavenged.  ",
 296                                             plural(r_ptr->r_deaths, "remains", "remain")));
 297 #endif
 298
 299                         }
 300
 301                         /* Start a new line */
 302                         hooked_roff("\n");
 303                 }
 304
 305                 /* Dead unique who never hurt us */
 306                 else if (dead)
 307                 {
 308 #ifdef JP
 309                         hooked_roff("¤¢¤Ê¤¿¤Ï¤³¤ÎµØÅ¨¤ò¤¹¤Ç¤ËÁò¤êµî¤Ã¤Æ¤¤¤ë¡£");
 310 #else
 311                         hooked_roff("You have slain this foe.  ");
 312 #endif
 313
 314                         /* Start a new line */
 315                         hooked_roff("\n");
 316                 }
 317         }
 318
 319         /* Not unique, but killed us */
 320         else if (r_ptr->r_deaths)
 321         {
 322                 /* Dead ancestors */
 323 #ifdef JP
 324                 hooked_roff(format("¤³¤Î¥â¥ó¥¹¥¿¡¼¤Ï¤¢¤Ê¤¿¤ÎÀèÁÄ¤ò %d ¿ÍÁò¤Ã¤Æ¤¤¤ë",
 325                             r_ptr->r_deaths ));
 326 #else
 327                 hooked_roff(format("%d of your ancestors %s been killed by this creature, ",
 328                             r_ptr->r_deaths, plural(r_ptr->r_deaths, "has", "have")));
 329 #endif
 330
 331
 332                 /* Some kills this life */
 333                 if (r_ptr->r_pkills)
 334                 {
 335 #ifdef JP
 336                         hooked_roff(format("¤¬¡¢¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂÎ¤ÏÅÝ¤·¤Æ¤¤¤ë¡£", r_ptr->r_pkills));
 337 #else
 338                         hooked_roff(format("and you have exterminated at least %d of the creatures.  ", r_ptr->r_pkills));
 339 #endif
 340
 341                 }
 342
 343                 /* Some kills past lives */
 344                 else if (r_ptr->r_tkills)
 345                 {
 346 #ifdef JP
 347                         hooked_roff(format("¤¬¡¢%s¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂÎ¤ÏÅÝ¤·¤Æ¤¤¤ë¡£",
 348                                     "¤¢¤Ê¤¿¤ÎÀèÁÄ", r_ptr->r_tkills));
 349 #else
 350                         hooked_roff(format("and %s have exterminated at least %d of the creatures.  ",
 351                                     "your ancestors", r_ptr->r_tkills));
 352 #endif
 353
 354                 }
 355
 356                 /* No kills */
 357                 else
 358                 {
 359 #ifdef JP
 360                         hooked_roff(format("¤¬¡¢¤Þ¤À%s¤òÅÝ¤·¤¿¤³¤È¤Ï¤Ê¤¤¡£", wd_he[msex]));
 361 #else
 362                         hooked_roff(format("and %s is not ever known to have been defeated.  ", wd_he[msex]));
 363 #endif
 364
 365                 }
 366
 367                 /* Start a new line */
 368                 hooked_roff("\n");
 369         }
 370
 371         /* Normal monsters */
 372         else
 373         {
 374                 /* Killed some this life */
 375                 if (r_ptr->r_pkills)
 376                 {
 377 #ifdef JP
 378                         hooked_roff(format("¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂÎ¤Ï»¦¤·¤Æ¤¤¤ë¡£", r_ptr->r_pkills));
 379 #else
 380                         hooked_roff(format("You have killed at least %d of these creatures.  ", r_ptr->r_pkills));
 381 #endif
 382
 383                 }
 384
 385                 /* Killed some last life */
 386                 else if (r_ptr->r_tkills)
 387                 {
 388 #ifdef JP
 389                         hooked_roff(format("¤¢¤Ê¤¿¤ÎÀèÁÄ¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò¾¯¤Ê¤¯¤È¤â %d ÂÎ¤Ï»¦¤·¤Æ¤¤¤ë¡£", r_ptr->r_tkills));
 390 #else
 391                         hooked_roff(format("Your ancestors have killed at least %d of these creatures.  ", r_ptr->r_tkills));
 392 #endif
 393
 394                 }
 395
 396                 /* Killed none */
 397                 else
 398                 {
 399 #ifdef JP
 400                         hooked_roff("¤³¤Î¥â¥ó¥¹¥¿¡¼¤òÅÝ¤·¤¿¤³¤È¤Ï¤Ê¤¤¡£");
 401 #else
 402                         hooked_roff("No battles to the death are recalled.  ");
 403 #endif
 404                 }
 405
 406                 /* Start a new line */
 407                 hooked_roff("\n");
 408         }
 409
 410         /* Descriptions */
 411         {
 412                 cptr tmp = r_text + r_ptr->text;
 413
 414                 if (tmp[0])
 415                 {
 416                         /* Dump it */
 417                         hooked_roff(tmp);
 418
 419                         /* Start a new line */
 420                         hooked_roff("\n");
 421                 }
 422         }
 423
 424         if (r_idx == MON_KAGE)
 425         {
 426                 /* All done */
 427                 hooked_roff("\n");
 428
 429                 return;
 430         }
 431
 432         /* Nothing yet */
 433         old = FALSE;
 434
 435         /* Describe location */
 436         if (r_ptr->level == 0)
 437         {
 438 #ifdef JP
 439                 hooked_roff(format("%^s¤ÏÄ®¤Ë½»¤ß", wd_he[msex]));
 440 #else
 441                 hooked_roff(format("%^s lives in the town", wd_he[msex]));
 442 #endif
 443
 444                 old = TRUE;
 445         }
 446         else if (r_ptr->r_tkills || know_everything)
 447         {
 448                 if (depth_in_feet)
 449                 {
 450 #ifdef JP
 451                         hooked_roff(format("%^s¤ÏÄÌ¾ïÃÏ²¼ %d ¥Õ¥£¡¼¥È¤Ç½Ð¸½¤·",
 452 #else
 453                         hooked_roff(format("%^s is normally found at depths of %d feet",
 454 #endif
 455
 456                                     wd_he[msex], r_ptr->level * 50));
 457                 }
 458                 else
 459                 {
 460 #ifdef JP
 461                         hooked_roff(format("%^s¤ÏÄÌ¾ïÃÏ²¼ %d ³¬¤Ç½Ð¸½¤·",
 462 #else
 463                         hooked_roff(format("%^s is normally found on dungeon level %d",
 464 #endif
 465
 466                                     wd_he[msex], r_ptr->level));
 467                 }
 468                 old = TRUE;
 469         }
 470
 471
 472         /* Describe movement */
 473         if (r_idx == MON_CHAMELEON)
 474         {
 475 #ifdef JP
 476                 hooked_roff("¡¢Â¾¤Î¥â¥ó¥¹¥¿¡¼¤Ë²½¤±¤ë¡£");
 477 #else
 478                 hooked_roff("and can take the shape of other monster.");
 479 #endif
 480                 return;
 481         }
 482         else
 483         {
 484                 /* Introduction */
 485                 if (old)
 486                 {
 487 #ifdef JP
 488                         hooked_roff("¡¢");
 489 #else
 490                         hooked_roff(", and ");
 491 #endif
 492
 493                 }
 494                 else
 495                 {
 496 #ifdef JP
 497                         hooked_roff(format("%^s¤Ï", wd_he[msex]));
 498 #else
 499                         hooked_roff(format("%^s ", wd_he[msex]));
 500 #endif
 501
 502                         old = TRUE;
 503                 }
 504 #ifndef JP
 505                 hooked_roff("moves");
 506 #endif
 507
 508                 /* Random-ness */
 509                 if ((flags1 & RF1_RAND_50) || (flags1 & RF1_RAND_25))
 510                 {
 511                         /* Adverb */
 512                         if ((flags1 & RF1_RAND_50) && (flags1 & RF1_RAND_25))
 513                         {
 514 #ifdef JP
 515                                 hooked_roff("¤«¤Ê¤ê");
 516 #else
 517                                 hooked_roff(" extremely");
 518 #endif
 519
 520                         }
 521                         else if (flags1 & RF1_RAND_50)
 522                         {
 523 #ifdef JP
 524                                 hooked_roff("´öÊ¬");
 525 #else
 526                                 hooked_roff(" somewhat");
 527 #endif
 528
 529                         }
 530                         else if (flags1 & RF1_RAND_25)
 531                         {
 532 #ifdef JP
 533                                 hooked_roff("¾¯¡¹");
 534 #else
 535                                 hooked_roff(" a bit");
 536 #endif
 537
 538                         }
 539
 540                         /* Adjective */
 541 #ifdef JP
 542                         hooked_roff("ÉÔµ¬Â§¤Ë");
 543 #else
 544                         hooked_roff(" erratically");
 545 #endif
 546
 547
 548                         /* Hack -- Occasional conjunction */
 549 #ifdef JP
 550                         if (speed != 110) hooked_roff("¡¢¤«¤Ä");
 551 #else
 552                         if (speed != 110) hooked_roff(", and");
 553 #endif
 554
 555                 }
 556
 557                 /* Speed */
 558                 if (speed > 110)
 559                 {
 560 #ifdef JP
 561                         if (speed > 139) hook_c_roff(TERM_RED, "¿®¤¸Æñ¤¤¤Û¤É");
 562                         else if (speed > 134) hook_c_roff(TERM_ORANGE, "ÌÔÎõ¤Ë");
 563                         else if (speed > 129) hook_c_roff(TERM_ORANGE, "Èó¾ï¤Ë");
 564                         else if (speed > 124) hook_c_roff(TERM_UMBER, "¤«¤Ê¤ê");
 565                         else if (speed < 120) hook_c_roff(TERM_L_UMBER, "¤ä¤ä");
 566                         hook_c_roff(TERM_L_RED, "ÁÇÁá¤¯");
 567 #else
 568                         if (speed > 139) hook_c_roff(TERM_RED, " incredibly");
 569                         else if (speed > 134) hook_c_roff(TERM_ORANGE, " extremely");
 570                         else if (speed > 129) hook_c_roff(TERM_ORANGE, " very");
 571                         else if (speed > 124) hook_c_roff(TERM_UMBER, " fairly");
 572                         else if (speed < 120) hook_c_roff(TERM_L_UMBER, " somewhat");
 573                         hook_c_roff(TERM_L_RED, " quickly");
 574 #endif
 575
 576                 }
 577                 else if (speed < 110)
 578                 {
 579 #ifdef JP
 580                         if (speed < 90) hook_c_roff(TERM_L_GREEN, "¿®¤¸Æñ¤¤¤Û¤É");
 581                         else if (speed < 95) hook_c_roff(TERM_BLUE, "Èó¾ï¤Ë");
 582                         else if (speed < 100) hook_c_roff(TERM_BLUE, "¤«¤Ê¤ê");
 583                         else if (speed > 104) hook_c_roff(TERM_GREEN, "¤ä¤ä");
 584                         hook_c_roff(TERM_L_BLUE, "¤æ¤Ã¤¯¤ê¤È");
 585 #else
 586                         if (speed < 90) hook_c_roff(TERM_L_GREEN, " incredibly");
 587                         else if (speed < 95) hook_c_roff(TERM_BLUE, " very");
 588                         else if (speed < 100) hook_c_roff(TERM_BLUE, " fairly");
 589                         else if (speed > 104) hook_c_roff(TERM_GREEN, " somewhat");
 590                         hook_c_roff(TERM_L_BLUE, " slowly");
 591 #endif
 592
 593                 }
 594                 else
 595                 {
 596 #ifdef JP
 597                         hooked_roff("ÉáÄÌ¤ÎÂ®¤µ¤Ç");
 598 #else
 599                         hooked_roff(" at normal speed");
 600 #endif
 601
 602                 }
 603 #ifdef JP
 604                 hooked_roff("Æ°¤¤¤Æ¤¤¤ë");
 605 #endif
 606         }
 607
 608         /* The code above includes "attack speed" */
 609         if (flags1 & RF1_NEVER_MOVE)
 610         {
 611                 /* Introduce */
 612                 if (old)
 613                 {
 614 #ifdef JP
 615                         hooked_roff("¡¢¤·¤«¤·");
 616 #else
 617                         hooked_roff(", but ");
 618 #endif
 619
 620                 }
 621                 else
 622                 {
 623 #ifdef JP
 624                         hooked_roff(format("%^s¤Ï", wd_he[msex]));
 625 #else
 626                         hooked_roff(format("%^s ", wd_he[msex]));
 627 #endif
 628
 629                         old = TRUE;
 630                 }
 631
 632                 /* Describe */
 633 #ifdef JP
 634                 hooked_roff("¿¯Æþ¼Ô¤òÄÉÀ×¤·¤Ê¤¤");
 635 #else
 636                 hooked_roff("does not deign to chase intruders");
 637 #endif
 638
 639         }
 640
 641         /* End this sentence */
 642         if (old)
 643         {
 644 #ifdef JP
 645                 hooked_roff("¡£");
 646 #else
 647                 hooked_roff(".  ");
 648 #endif
 649
 650                 old = FALSE;
 651         }
 652
 653
 654         /* Describe experience if known */
 655         if (r_ptr->r_tkills || know_everything)
 656         {
 657                 /* Introduction */
 658 #ifdef JP
 659                 hooked_roff("¤³¤Î");
 660 #else
 661                 if (flags1 & RF1_UNIQUE)
 662                 {
 663                         hooked_roff("Killing this");
 664                 }
 665                 else
 666                 {
 667                         hooked_roff("A kill of this");
 668                 }
 669 #endif
 670
 671
 672                 /* Describe the "quality" */
 673 #ifdef JP
 674 if (flags2 & RF2_ELDRITCH_HORROR) hook_c_roff(TERM_VIOLET, "¶¸µ¤¤òÍ¶¤¦");/*nuke me*/
 675 #else
 676                 if (flags2 & RF2_ELDRITCH_HORROR) hook_c_roff(TERM_VIOLET, " sanity-blasting");
 677 #endif
 678
 679 #ifdef JP
 680 if (flags3 & RF3_ANIMAL)          hook_c_roff(TERM_L_GREEN, "¼«Á³³¦¤Î");
 681 #else
 682                 if (flags3 & RF3_ANIMAL)          hook_c_roff(TERM_L_GREEN, " natural");
 683 #endif
 684
 685 #ifdef JP
 686 if (flags3 & RF3_EVIL)            hook_c_roff(TERM_L_DARK, "¼Ù°¤Ê¤ë");
 687 #else
 688                 if (flags3 & RF3_EVIL)            hook_c_roff(TERM_L_DARK, " evil");
 689 #endif
 690
 691 #ifdef JP
 692 if (flags3 & RF3_GOOD)            hook_c_roff(TERM_YELLOW, "Á±ÎÉ¤Ê");
 693 #else
 694                 if (flags3 & RF3_GOOD)            hook_c_roff(TERM_YELLOW, " good");
 695 #endif
 696
 697 #ifdef JP
 698 if (flags3 & RF3_UNDEAD)          hook_c_roff(TERM_VIOLET, "¥¢¥ó¥Ç¥Ã¥É¤Î");
 699 #else
 700                 if (flags3 & RF3_UNDEAD)          hook_c_roff(TERM_VIOLET, " undead");
 701 #endif
 702 #ifdef JP
 703 if (flags3 & RF3_AMBERITE)        hook_c_roff(TERM_VIOLET, "¥¢¥ó¥Ð¡¼¤Î²¦Â²¤Î");
 704 #else
 705                 if (flags3 & RF3_AMBERITE)        hook_c_roff(TERM_VIOLET, " Amberite");
 706 #endif
 707
 708
 709         if ((flags3 & (RF3_DRAGON | RF3_DEMON | RF3_GIANT | RF3_TROLL | RF3_ORC)) || (flags2 & (RF2_QUANTUM | RF2_HUMAN)))
 710         {
 711         /* Describe the "race" */
 712 #ifdef JP
 713      if (flags3 & RF3_DRAGON)   hook_c_roff(TERM_ORANGE, "¥É¥é¥´¥ó");
 714 #else
 715                      if (flags3 & RF3_DRAGON)   hook_c_roff(TERM_ORANGE, " dragon");
 716 #endif
 717
 718 #ifdef JP
 719 if (flags3 & RF3_DEMON)    hook_c_roff(TERM_VIOLET, "¥Ç¡¼¥â¥ó");
 720 #else
 721                 if (flags3 & RF3_DEMON)    hook_c_roff(TERM_VIOLET, " demon");
 722 #endif
 723
 724 #ifdef JP
 725 if (flags3 & RF3_GIANT)    hook_c_roff(TERM_L_UMBER, "¥¸¥ã¥¤¥¢¥ó¥È");
 726 #else
 727                 if (flags3 & RF3_GIANT)    hook_c_roff(TERM_L_UMBER, " giant");
 728 #endif
 729
 730 #ifdef JP
 731 if (flags3 & RF3_TROLL)    hook_c_roff(TERM_BLUE, "¥È¥í¥ë");
 732 #else
 733                 if (flags3 & RF3_TROLL)    hook_c_roff(TERM_BLUE, " troll");
 734 #endif
 735
 736 #ifdef JP
 737 if (flags3 & RF3_ORC)      hook_c_roff(TERM_UMBER, "¥ª¡¼¥¯");
 738 #else
 739                 if (flags3 & RF3_ORC)      hook_c_roff(TERM_UMBER, " orc");
 740 #endif
 741
 742 #ifdef JP
 743 if (flags2 & RF2_HUMAN) hook_c_roff(TERM_L_WHITE, "¿Í´Ö");
 744 #else
 745                 if (flags2 & RF2_HUMAN) hook_c_roff(TERM_L_WHITE, " human");
 746 #endif
 747
 748 #ifdef JP
 749 if (flags2 & RF2_QUANTUM)  hook_c_roff(TERM_VIOLET, "ÎÌ»ÒÀ¸Êª");
 750 #else
 751                 if (flags2 & RF2_QUANTUM)  hook_c_roff(TERM_VIOLET, " quantum creature");
 752 #endif
 753
 754         }
 755 #ifdef JP
 756 else                            hooked_roff("¥â¥ó¥¹¥¿¡¼");
 757 #else
 758                 else                            hooked_roff(" creature");
 759 #endif
 760
 761
 762 #ifdef JP
 763                 hooked_roff("¤òÅÝ¤¹¤³¤È¤Ï");
 764 #endif
 765                 /* Group some variables */
 766                 {
 767                         long i, j;
 768
 769 #ifdef JP
 770                         i = p_ptr->lev;
 771                         hooked_roff(format(" %lu ¥ì¥Ù¥ë¤Î¥¥ã¥é¥¯¥¿¤Ë¤È¤Ã¤Æ", (long)i));
 772
 773                         i = (long)r_ptr->mexp * r_ptr->level / (p_ptr->max_plv+2);
 774                         j = ((((long)r_ptr->mexp * r_ptr->level % (p_ptr->max_plv+2)) *
 775                                (long)1000 / (p_ptr->max_plv+2) + 5) / 10);
 776
 777                         hooked_roff(format(" Ìó%ld.%02ld ¥Ý¥¤¥ó¥È¤Î·Ð¸³¤È¤Ê¤ë¡£",
 778                                 (long)i, (long)j ));
 779 #else
 780                         /* calculate the integer exp part */
 781                         i = (long)r_ptr->mexp * r_ptr->level / (p_ptr->max_plv+2);
 782
 783                         /* calculate the fractional exp part scaled by 100, */
 784                         /* must use long arithmetic to avoid overflow  */
 785                         j = ((((long)r_ptr->mexp * r_ptr->level % (p_ptr->max_plv+2)) *
 786                                (long)1000 / (p_ptr->max_plv+2) + 5) / 10);
 787
 788                         /* Mention the experience */
 789                         hooked_roff(format(" is worth about %ld.%02ld point%s",
 790                                     (long)i, (long)j,
 791                                     (((i == 1) && (j == 0)) ? "" : "s")));
 792
 793                         /* Take account of annoying English */
 794                         p = "th";
 795                         i = p_ptr->lev % 10;
 796                         if ((p_ptr->lev / 10) == 1) /* nothing */;
 797                         else if (i == 1) p = "st";
 798                         else if (i == 2) p = "nd";
 799                         else if (i == 3) p = "rd";
 800
 801                         /* Take account of "leading vowels" in numbers */
 802                         q = "";
 803                         i = p_ptr->lev;
 804                         if ((i == 8) || (i == 11) || (i == 18)) q = "n";
 805
 806                         /* Mention the dependance on the player's level */
 807                         hooked_roff(format(" for a%s %lu%s level character.  ",
 808                                     q, (long)i, p));
 809 #endif
 810
 811                 }
 812         }
 813
 814         if ((flags2 & RF2_AURA_FIRE) && (flags2 & RF2_AURA_ELEC) && (flags3 & RF3_AURA_COLD))
 815         {
 816 #ifdef JP
 817                 hook_c_roff(TERM_VIOLET, format("%^s¤Ï±ê¤ÈÉ¹¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 818 #else
 819                 hook_c_roff(TERM_VIOLET, format("%^s is surrounded by flames, ice and electricity.  ", wd_he[msex]));
 820 #endif
 821         }
 822         else if ((flags2 & RF2_AURA_FIRE) && (flags2 & RF2_AURA_ELEC))
 823         {
 824 #ifdef JP
 825                 hook_c_roff(TERM_L_RED, format("%^s¤Ï±ê¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 826 #else
 827                 hook_c_roff(TERM_L_RED, format("%^s is surrounded by flames and electricity.  ", wd_he[msex]));
 828 #endif
 829         }
 830         else if ((flags2 & RF2_AURA_FIRE) && (flags3 & RF3_AURA_COLD))
 831         {
 832 #ifdef JP
 833                 hook_c_roff(TERM_BLUE, format("%^s¤Ï±ê¤ÈÉ¹¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 834 #else
 835                 hook_c_roff(TERM_BLUE, format("%^s is surrounded by flames and ice.  ", wd_he[msex]));
 836 #endif
 837         }
 838         else if ((flags3 & RF3_AURA_COLD) && (flags2 & RF2_AURA_ELEC))
 839         {
 840 #ifdef JP
 841                 hook_c_roff(TERM_L_GREEN, format("%^s¤ÏÉ¹¤È¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 842 #else
 843                 hook_c_roff(TERM_L_GREEN, format("%^s is surrounded by ice and electricity.  ", wd_he[msex]));
 844 #endif
 845         }
 846         else if (flags2 & RF2_AURA_FIRE)
 847         {
 848 #ifdef JP
 849                 hook_c_roff(TERM_RED, format("%^s¤Ï±ê¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 850 #else
 851                 hook_c_roff(TERM_RED, format("%^s is surrounded by flames.  ", wd_he[msex]));
 852 #endif
 853         }
 854         else if (flags3 & RF3_AURA_COLD)
 855         {
 856 #ifdef JP
 857                 hook_c_roff(TERM_BLUE, format("%^s¤ÏÉ¹¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 858 #else
 859                 hook_c_roff(TERM_BLUE, format("%^s is surrounded by ice.  ", wd_he[msex]));
 860 #endif
 861         }
 862         else if (flags2 & RF2_AURA_ELEC)
 863         {
 864 #ifdef JP
 865                 hook_c_roff(TERM_L_BLUE, format("%^s¤Ï¥¹¥Ñ¡¼¥¯¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
 866 #else
 867                 hook_c_roff(TERM_L_BLUE, format("%^s is surrounded by electricity.  ", wd_he[msex]));
 868 #endif
 869         }
 870
 871         if (flags2 & RF2_REFLECTING)
 872         {
 873 #ifdef JP
 874                 hooked_roff(format("%^s¤ÏÌð¤Î¼öÊ¸¤òÄ·¤ÍÊÖ¤¹¡£", wd_he[msex]));
 875 #else
 876                 hooked_roff(format("%^s reflects bolt spells.  ", wd_he[msex]));
 877 #endif
 878
 879         }
 880
 881         /* Describe escorts */
 882         if ((flags1 & RF1_ESCORT) || (flags1 & RF1_ESCORTS))
 883         {
 884 #ifdef JP
 885                 hooked_roff(format("%^s¤ÏÄÌ¾ï¸î±Ò¤òÈ¼¤Ã¤Æ¸½¤ì¤ë¡£",
 886 #else
 887                 hooked_roff(format("%^s usually appears with escorts.  ",
 888 #endif
 889
 890                             wd_he[msex]));
 891         }
 892
 893         /* Describe friends */
 894         else if (flags1 & RF1_FRIENDS)
 895         {
 896 #ifdef JP
 897                 hooked_roff(format("%^s¤ÏÄÌ¾ï½¸ÃÄ¤Ç¸½¤ì¤ë¡£",
 898 #else
 899                 hooked_roff(format("%^s usually appears in groups.  ",
 900 #endif
 901
 902                             wd_he[msex]));
 903         }
 904
 905
 906         /* Collect inate attacks */
 907         vn = 0;
 908 #ifdef JP
 909         if (flags4 & RF4_SHRIEK)  {vp[vn] = "ÈáÌÄ¤Ç½õ¤±¤òµá¤á¤ë";color[vn++] = TERM_L_WHITE;}
 910 #else
 911         if (flags4 & RF4_SHRIEK)  {vp[vn] = "shriek for help";color[vn++] = TERM_L_WHITE;}
 912 #endif
 913
 914 #ifdef JP
 915         if (flags4 & RF4_ROCKET)  {vp[vn] = "¥í¥±¥Ã¥È¤òÈ¯¼Í¤¹¤ë";color[vn++] = TERM_UMBER;}
 916 #else
 917         if (flags4 & RF4_ROCKET)  {vp[vn] = "shoot a rocket";color[vn++] = TERM_UMBER;}
 918 #endif
 919
 920 #ifdef JP
 921         if (flags4 & RF4_SHOOT) {vp[vn] = "¼Í·â¤ò¤¹¤ë";color[vn++] = TERM_UMBER;}
 922 #else
 923         if (flags4 & RF4_SHOOT) {vp[vn] = "fire an arrow";color[vn++] = TERM_UMBER;}
 924 #endif
 925
 926 #ifdef JP
 927         if (flags6 & (RF6_SPECIAL)) {vp[vn] = "ÆÃÊÌ¤Ê¹ÔÆ°¤ò¤¹¤ë";color[vn++] = TERM_VIOLET;}
 928 #else
 929         if (flags6 & (RF6_SPECIAL)) {vp[vn] = "do something";color[vn++] = TERM_VIOLET;}
 930 #endif
 931
 932         /* Describe inate attacks */
 933         if (vn)
 934         {
 935                 /* Intro */
 936 #ifdef JP
 937                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
 938 #else
 939                 hooked_roff(format("%^s", wd_he[msex]));
 940 #endif
 941
 942
 943                 /* Scan */
 944                 for (n = 0; n < vn; n++)
 945                 {
 946 #ifdef JP
 947                         if (n != vn - 1)
 948                         {
 949                                 jverb(vp[n], jverb_buf, JVERB_OR);
 950                                 hook_c_roff(color[n], jverb_buf);
 951                                 hook_c_roff(color[n], "¤ê");
 952                                 hooked_roff("¡¢");
 953                         }
 954                         else hook_c_roff(color[n], vp[n]);
 955 #else
 956                         /* Intro */
 957                         if (n == 0) hooked_roff(" may ");
 958                         else if (n < vn - 1) hooked_roff(", ");
 959                         else hooked_roff(" or ");
 960
 961                         /* Dump */
 962                         hook_c_roff(color[n], vp[n]);
 963 #endif
 964
 965                 }
 966
 967                 /* End */
 968 #ifdef JP
 969                 hooked_roff("¤³¤È¤¬¤¢¤ë¡£");
 970 #else
 971                 hooked_roff(".  ");
 972 #endif
 973
 974         }
 975
 976
 977         /* Collect breaths */
 978         vn = 0;
 979 #ifdef JP
 980         if (flags4 & (RF4_BR_ACID))             {vp[vn] = "»À";color[vn++] = TERM_GREEN;}
 981 #else
 982         if (flags4 & (RF4_BR_ACID))             {vp[vn] = "acid";color[vn++] = TERM_GREEN;}
 983 #endif
 984
 985 #ifdef JP
 986         if (flags4 & (RF4_BR_ELEC))             {vp[vn] = "°ðºÊ";color[vn++] = TERM_BLUE;}
 987 #else
 988         if (flags4 & (RF4_BR_ELEC))             {vp[vn] = "lightning";color[vn++] = TERM_BLUE;}
 989 #endif
 990
 991 #ifdef JP
 992         if (flags4 & (RF4_BR_FIRE))             {vp[vn] = "²Ð±ê";color[vn++] = TERM_RED;}
 993 #else
 994         if (flags4 & (RF4_BR_FIRE))             {vp[vn] = "fire";color[vn++] = TERM_RED;}
 995 #endif
 996
 997 #ifdef JP
 998         if (flags4 & (RF4_BR_COLD))             {vp[vn] = "Îäµ¤";color[vn++] = TERM_L_WHITE;}
 999 #else
1000         if (flags4 & (RF4_BR_COLD))             {vp[vn] = "frost";color[vn++] = TERM_L_WHITE;}
1001 #endif
1002
1003 #ifdef JP
1004         if (flags4 & (RF4_BR_POIS))             {vp[vn] = "ÆÇ";color[vn++] = TERM_L_GREEN;}
1005 #else
1006         if (flags4 & (RF4_BR_POIS))             {vp[vn] = "poison";color[vn++] = TERM_L_GREEN;}
1007 #endif
1008
1009 #ifdef JP
1010         if (flags4 & (RF4_BR_NETH))             {vp[vn] = "ÃÏ¹ö";color[vn++] = TERM_L_DARK;}
1011 #else
1012         if (flags4 & (RF4_BR_NETH))             {vp[vn] = "nether";color[vn++] = TERM_L_DARK;}
1013 #endif
1014
1015 #ifdef JP
1016         if (flags4 & (RF4_BR_LITE))             {vp[vn] = "Á®¸÷";color[vn++] = TERM_YELLOW;}
1017 #else
1018         if (flags4 & (RF4_BR_LITE))             {vp[vn] = "light";color[vn++] = TERM_YELLOW;}
1019 #endif
1020
1021 #ifdef JP
1022         if (flags4 & (RF4_BR_DARK))             {vp[vn] = "°Å¹õ";color[vn++] = TERM_L_DARK;}
1023 #else
1024         if (flags4 & (RF4_BR_DARK))             {vp[vn] = "darkness";color[vn++] = TERM_L_DARK;}
1025 #endif
1026
1027 #ifdef JP
1028         if (flags4 & (RF4_BR_CONF))             {vp[vn] = "º®Íð";color[vn++] = TERM_L_UMBER;}
1029 #else
1030         if (flags4 & (RF4_BR_CONF))             {vp[vn] = "confusion";color[vn++] = TERM_L_UMBER;}
1031 #endif
1032
1033 #ifdef JP
1034         if (flags4 & (RF4_BR_SOUN))             {vp[vn] = "¹ì²»";color[vn++] = TERM_ORANGE;}
1035 #else
1036         if (flags4 & (RF4_BR_SOUN))             {vp[vn] = "sound";color[vn++] = TERM_ORANGE;}
1037 #endif
1038
1039 #ifdef JP
1040         if (flags4 & (RF4_BR_CHAO))             {vp[vn] = "¥«¥ª¥¹";color[vn++] = TERM_VIOLET;}
1041 #else
1042         if (flags4 & (RF4_BR_CHAO))             {vp[vn] = "chaos";color[vn++] = TERM_VIOLET;}
1043 #endif
1044
1045 #ifdef JP
1046         if (flags4 & (RF4_BR_DISE))             {vp[vn] = "Îô²½";color[vn++] = TERM_VIOLET;}
1047 #else
1048         if (flags4 & (RF4_BR_DISE))             {vp[vn] = "disenchantment";color[vn++] = TERM_VIOLET;}
1049 #endif
1050
1051 #ifdef JP
1052         if (flags4 & (RF4_BR_NEXU))             {vp[vn] = "°ø²Ìº®Íð";color[vn++] = TERM_VIOLET;}
1053 #else
1054         if (flags4 & (RF4_BR_NEXU))             {vp[vn] = "nexus";color[vn++] = TERM_VIOLET;}
1055 #endif
1056
1057 #ifdef JP
1058         if (flags4 & (RF4_BR_TIME))             {vp[vn] = "»þ´ÖµÕÅ¾";color[vn++] = TERM_L_BLUE;}
1059 #else
1060         if (flags4 & (RF4_BR_TIME))             {vp[vn] = "time";color[vn++] = TERM_L_BLUE;}
1061 #endif
1062
1063 #ifdef JP
1064         if (flags4 & (RF4_BR_INER))             {vp[vn] = "ÃÙÆß";color[vn++] = TERM_SLATE;}
1065 #else
1066         if (flags4 & (RF4_BR_INER))             {vp[vn] = "inertia";color[vn++] = TERM_SLATE;}
1067 #endif
1068
1069 #ifdef JP
1070         if (flags4 & (RF4_BR_GRAV))             {vp[vn] = "½ÅÎÏ";color[vn++] = TERM_SLATE;}
1071 #else
1072         if (flags4 & (RF4_BR_GRAV))             {vp[vn] = "gravity";color[vn++] = TERM_SLATE;}
1073 #endif
1074
1075 #ifdef JP
1076         if (flags4 & (RF4_BR_SHAR))             {vp[vn] = "ÇËÊÒ";color[vn++] = TERM_L_UMBER;}
1077 #else
1078         if (flags4 & (RF4_BR_SHAR))             {vp[vn] = "shards";color[vn++] = TERM_L_UMBER;}
1079 #endif
1080
1081 #ifdef JP
1082         if (flags4 & (RF4_BR_PLAS))             {vp[vn] = "¥×¥é¥º¥Þ";color[vn++] = TERM_L_RED;}
1083 #else
1084         if (flags4 & (RF4_BR_PLAS))             {vp[vn] = "plasma";color[vn++] = TERM_L_RED;}
1085 #endif
1086
1087 #ifdef JP
1088         if (flags4 & (RF4_BR_WALL))             {vp[vn] = "¥Õ¥©¡¼¥¹";color[vn++] = TERM_UMBER;}
1089 #else
1090         if (flags4 & (RF4_BR_WALL))             {vp[vn] = "force";color[vn++] = TERM_UMBER;}
1091 #endif
1092
1093 #ifdef JP
1094         if (flags4 & (RF4_BR_MANA))             {vp[vn] = "ËâÎÏ";color[vn++] = TERM_L_BLUE;}
1095 #else
1096         if (flags4 & (RF4_BR_MANA))             {vp[vn] = "mana";color[vn++] = TERM_L_BLUE;}
1097 #endif
1098
1099 #ifdef JP
1100         if (flags4 & (RF4_BR_NUKE))             {vp[vn] = "Êü¼ÍÀÇÑ´þÊª";color[vn++] = TERM_L_GREEN;}
1101 #else
1102         if (flags4 & (RF4_BR_NUKE))             {vp[vn] = "toxic waste";color[vn++] = TERM_L_GREEN;}
1103 #endif
1104
1105 #ifdef JP
1106         if (flags4 & (RF4_BR_DISI))             {vp[vn] = "Ê¬²ò";color[vn++] = TERM_SLATE;}
1107 #else
1108         if (flags4 & (RF4_BR_DISI))             {vp[vn] = "disintegration";color[vn++] = TERM_SLATE;}
1109 #endif
1110
1111
1112         /* Describe breaths */
1113         if (vn)
1114         {
1115                 /* Note breath */
1116                 breath = TRUE;
1117
1118                 /* Intro */
1119 #ifdef JP
1120                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
1121 #else
1122                 hooked_roff(format("%^s", wd_he[msex]));
1123 #endif
1124
1125
1126                 /* Scan */
1127                 for (n = 0; n < vn; n++)
1128                 {
1129                         /* Intro */
1130 #ifdef JP
1131                         if ( n != 0 ) hooked_roff("¤ä");
1132 #else
1133                         if (n == 0) hooked_roff(" may breathe ");
1134                         else if (n < vn-1) hooked_roff(", ");
1135                         else hooked_roff(" or ");
1136 #endif
1137
1138
1139                         /* Dump */
1140                         hook_c_roff(color[n], vp[n]);
1141                 }
1142 #ifdef JP
1143                 hooked_roff("¤Î¥Ö¥ì¥¹¤òÅÇ¤¯¤³¤È¤¬¤¢¤ë");
1144 #endif
1145         }
1146
1147
1148         /* Collect spells */
1149         vn = 0;
1150 #ifdef JP
1151 if (flags5 & (RF5_BA_ACID))         {vp[vn] = "¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë";color[vn++] = TERM_GREEN;}
1152 #else
1153         if (flags5 & (RF5_BA_ACID))         {vp[vn] = "produce acid balls";color[vn++] = TERM_GREEN;}
1154 #endif
1155
1156 #ifdef JP
1157 if (flags5 & (RF5_BA_ELEC))         {vp[vn] = "¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë";color[vn++] = TERM_BLUE;}
1158 #else
1159         if (flags5 & (RF5_BA_ELEC))         {vp[vn] = "produce lightning balls";color[vn++] = TERM_BLUE;}
1160 #endif
1161
1162 #ifdef JP
1163 if (flags5 & (RF5_BA_FIRE))         {vp[vn] = "¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë";color[vn++] = TERM_RED;}
1164 #else
1165         if (flags5 & (RF5_BA_FIRE))         {vp[vn] = "produce fire balls";color[vn++] = TERM_RED;}
1166 #endif
1167
1168 #ifdef JP
1169 if (flags5 & (RF5_BA_COLD))         {vp[vn] = "¥¢¥¤¥¹¡¦¥Ü¡¼¥ë";color[vn++] = TERM_L_WHITE;}
1170 #else
1171         if (flags5 & (RF5_BA_COLD))         {vp[vn] = "produce frost balls";color[vn++] = TERM_L_WHITE;}
1172 #endif
1173
1174 #ifdef JP
1175 if (flags5 & (RF5_BA_POIS))         {vp[vn] = "°½±À";color[vn++] = TERM_L_GREEN;}
1176 #else
1177         if (flags5 & (RF5_BA_POIS))         {vp[vn] = "produce poison balls";color[vn++] = TERM_L_GREEN;}
1178 #endif
1179
1180 #ifdef JP
1181 if (flags5 & (RF5_BA_NETH))         {vp[vn] = "ÃÏ¹öµå";color[vn++] = TERM_L_DARK;}
1182 #else
1183         if (flags5 & (RF5_BA_NETH))         {vp[vn] = "produce nether balls";color[vn++] = TERM_L_DARK;}
1184 #endif
1185
1186 #ifdef JP
1187 if (flags5 & (RF5_BA_WATE))         {vp[vn] = "¥¦¥©¡¼¥¿¡¼¡¦¥Ü¡¼¥ë";color[vn++] = TERM_BLUE;}
1188 #else
1189         if (flags5 & (RF5_BA_WATE))         {vp[vn] = "produce water balls";color[vn++] = TERM_BLUE;}
1190 #endif
1191
1192 #ifdef JP
1193 if (flags4 & (RF4_BA_NUKE))         {vp[vn] = "Êü¼ÍÇ½µå";color[vn++] = TERM_L_GREEN;}
1194 #else
1195         if (flags4 & (RF4_BA_NUKE))         {vp[vn] = "produce balls of radiation";color[vn++] = TERM_L_GREEN;}
1196 #endif
1197
1198 #ifdef JP
1199 if (flags5 & (RF5_BA_MANA))         {vp[vn] = "ËâÎÏ¤ÎÍò";color[vn++] = TERM_L_BLUE;}
1200 #else
1201         if (flags5 & (RF5_BA_MANA))         {vp[vn] = "invoke mana storms";color[vn++] = TERM_L_BLUE;}
1202 #endif
1203
1204 #ifdef JP
1205 if (flags5 & (RF5_BA_DARK))         {vp[vn] = "°Å¹õ¤ÎÍò";color[vn++] = TERM_L_DARK;}
1206 #else
1207         if (flags5 & (RF5_BA_DARK))         {vp[vn] = "invoke darkness storms";color[vn++] = TERM_L_DARK;}
1208 #endif
1209
1210 #ifdef JP
1211 if (flags5 & (RF5_BA_LITE))         {vp[vn] = "¥¹¥¿¡¼¥Ð¡¼¥¹¥È";color[vn++] = TERM_YELLOW;}
1212 #else
1213         if (flags5 & (RF5_BA_LITE))         {vp[vn] = "invoke starburst";color[vn++] = TERM_YELLOW;}
1214 #endif
1215
1216 #ifdef JP
1217 if (flags4 & (RF4_BA_CHAO))         {vp[vn] = "½ã¥í¥°¥ë¥¹";color[vn++] = TERM_VIOLET;}
1218 #else
1219         if (flags4 & (RF4_BA_CHAO))         {vp[vn] = "invoke raw Logrus";color[vn++] = TERM_VIOLET;}
1220 #endif
1221
1222 #ifdef JP
1223 if (flags6 & (RF6_HAND_DOOM))       {vp[vn] = "ÇËÌÇ¤Î¼ê";color[vn++] = TERM_VIOLET;}
1224 #else
1225         if (flags6 & (RF6_HAND_DOOM))       {vp[vn] = "invoke the Hand of Doom";color[vn++] = TERM_VIOLET;}
1226 #endif
1227
1228 #ifdef JP
1229 if (flags6 & (RF6_PSY_SPEAR))            {vp[vn] = "¸÷¤Î·õ";color[vn++] = TERM_YELLOW;}
1230 #else
1231         if (flags6 & (RF6_PSY_SPEAR))            {vp[vn] = "psycho-spear";color[vn++] = TERM_YELLOW;}
1232 #endif
1233
1234 #ifdef JP
1235 if (flags5 & (RF5_DRAIN_MANA))      {vp[vn] = "ËâÎÏµÛ¼ý";color[vn++] = TERM_SLATE;}
1236 #else
1237         if (flags5 & (RF5_DRAIN_MANA))      {vp[vn] = "drain mana";color[vn++] = TERM_SLATE;}
1238 #endif
1239
1240 #ifdef JP
1241 if (flags5 & (RF5_MIND_BLAST))      {vp[vn] = "Àº¿À¹¶·â";color[vn++] = TERM_L_RED;}
1242 #else
1243         if (flags5 & (RF5_MIND_BLAST))      {vp[vn] = "cause mind blasting";color[vn++] = TERM_L_RED;}
1244 #endif
1245
1246 #ifdef JP
1247 if (flags5 & (RF5_BRAIN_SMASH))     {vp[vn] = "Ç¾¹¶·â";color[vn++] = TERM_RED;}
1248 #else
1249         if (flags5 & (RF5_BRAIN_SMASH))     {vp[vn] = "cause brain smashing";color[vn++] = TERM_RED;}
1250 #endif
1251
1252 #ifdef JP
1253 if (flags5 & (RF5_CAUSE_1))         {vp[vn] = "·Ú½ý¡Ü¼ö¤¤";color[vn++] = TERM_L_WHITE;}
1254 #else
1255         if (flags5 & (RF5_CAUSE_1))         {vp[vn] = "cause light wounds and cursing";color[vn++] = TERM_L_WHITE;}
1256 #endif
1257
1258 #ifdef JP
1259 if (flags5 & (RF5_CAUSE_2))         {vp[vn] = "½Å½ý¡Ü¼ö¤¤";color[vn++] = TERM_L_WHITE;}
1260 #else
1261         if (flags5 & (RF5_CAUSE_2))         {vp[vn] = "cause serious wounds and cursing";color[vn++] = TERM_L_WHITE;}
1262 #endif
1263
1264 #ifdef JP
1265 if (flags5 & (RF5_CAUSE_3))         {vp[vn] = "Ã×Ì¿½ý¡Ü¼ö¤¤";color[vn++] = TERM_L_WHITE;}
1266 #else
1267         if (flags5 & (RF5_CAUSE_3))         {vp[vn] = "cause critical wounds and cursing";color[vn++] = TERM_L_WHITE;}
1268 #endif
1269
1270 #ifdef JP
1271 if (flags5 & (RF5_CAUSE_4))         {vp[vn] = "Èë¹¦¤òÆÍ¤¯";color[vn++] = TERM_L_WHITE;}
1272 #else
1273         if (flags5 & (RF5_CAUSE_4))         {vp[vn] = "cause mortal wounds";color[vn++] = TERM_L_WHITE;}
1274 #endif
1275
1276 #ifdef JP
1277 if (flags5 & (RF5_BO_ACID))         {vp[vn] = "¥¢¥·¥Ã¥É¡¦¥Ü¥ë¥È";color[vn++] = TERM_GREEN;}
1278 #else
1279         if (flags5 & (RF5_BO_ACID))         {vp[vn] = "produce acid bolts";color[vn++] = TERM_GREEN;}
1280 #endif
1281
1282 #ifdef JP
1283 if (flags5 & (RF5_BO_ELEC))         {vp[vn] = "¥µ¥ó¥À¡¼¡¦¥Ü¥ë¥È";color[vn++] = TERM_BLUE;}
1284 #else
1285         if (flags5 & (RF5_BO_ELEC))         {vp[vn] = "produce lightning bolts";color[vn++] = TERM_BLUE;}
1286 #endif
1287
1288 #ifdef JP
1289 if (flags5 & (RF5_BO_FIRE))         {vp[vn] = "¥Õ¥¡¥¤¥¢¡¦¥Ü¥ë¥È";color[vn++] = TERM_RED;}
1290 #else
1291         if (flags5 & (RF5_BO_FIRE))         {vp[vn] = "produce fire bolts";color[vn++] = TERM_RED;}
1292 #endif
1293
1294 #ifdef JP
1295 if (flags5 & (RF5_BO_COLD))         {vp[vn] = "¥¢¥¤¥¹¡¦¥Ü¥ë¥È";color[vn++] = TERM_L_WHITE;}
1296 #else
1297         if (flags5 & (RF5_BO_COLD))         {vp[vn] = "produce frost bolts";color[vn++] = TERM_L_WHITE;}
1298 #endif
1299
1300 #ifdef JP
1301 if (flags5 & (RF5_BO_NETH))         {vp[vn] = "ÃÏ¹ö¤ÎÌð";color[vn++] = TERM_L_DARK;}
1302 #else
1303         if (flags5 & (RF5_BO_NETH))         {vp[vn] = "produce nether bolts";color[vn++] = TERM_L_DARK;}
1304 #endif
1305
1306 #ifdef JP
1307 if (flags5 & (RF5_BO_WATE))         {vp[vn] = "¥¦¥©¡¼¥¿¡¼¡¦¥Ü¥ë¥È";color[vn++] = TERM_BLUE;}
1308 #else
1309         if (flags5 & (RF5_BO_WATE))         {vp[vn] = "produce water bolts";color[vn++] = TERM_BLUE;}
1310 #endif
1311
1312 #ifdef JP
1313 if (flags5 & (RF5_BO_MANA))         {vp[vn] = "ËâÎÏ¤ÎÌð";color[vn++] = TERM_L_BLUE;}
1314 #else
1315         if (flags5 & (RF5_BO_MANA))         {vp[vn] = "produce mana bolts";color[vn++] = TERM_L_BLUE;}
1316 #endif
1317
1318 #ifdef JP
1319 if (flags5 & (RF5_BO_PLAS))         {vp[vn] = "¥×¥é¥º¥Þ¡¦¥Ü¥ë¥È";color[vn++] = TERM_L_RED;}
1320 #else
1321         if (flags5 & (RF5_BO_PLAS))         {vp[vn] = "produce plasma bolts";color[vn++] = TERM_L_RED;}
1322 #endif
1323
1324 #ifdef JP
1325 if (flags5 & (RF5_BO_ICEE))         {vp[vn] = "¶Ë´¨¤ÎÌð";color[vn++] = TERM_WHITE;}
1326 #else
1327         if (flags5 & (RF5_BO_ICEE))         {vp[vn] = "produce ice bolts";color[vn++] = TERM_WHITE;}
1328 #endif
1329
1330 #ifdef JP
1331 if (flags5 & (RF5_MISSILE))         {vp[vn] = "¥Þ¥¸¥Ã¥¯¥ß¥µ¥¤¥ë";color[vn++] = TERM_SLATE;}
1332 #else
1333         if (flags5 & (RF5_MISSILE))         {vp[vn] = "produce magic missiles";color[vn++] = TERM_SLATE;}
1334 #endif
1335
1336 #ifdef JP
1337 if (flags5 & (RF5_SCARE))           {vp[vn] = "¶²ÉÝ";color[vn++] = TERM_SLATE;}
1338 #else
1339         if (flags5 & (RF5_SCARE))           {vp[vn] = "terrify";color[vn++] = TERM_SLATE;}
1340 #endif
1341
1342 #ifdef JP
1343 if (flags5 & (RF5_BLIND))           {vp[vn] = "ÌÜ¤¯¤é¤Þ¤·";color[vn++] = TERM_L_DARK;}
1344 #else
1345         if (flags5 & (RF5_BLIND))           {vp[vn] = "blind";color[vn++] = TERM_L_DARK;}
1346 #endif
1347
1348 #ifdef JP
1349 if (flags5 & (RF5_CONF))            {vp[vn] = "º®Íð";color[vn++] = TERM_L_UMBER;}
1350 #else
1351         if (flags5 & (RF5_CONF))            {vp[vn] = "confuse";color[vn++] = TERM_L_UMBER;}
1352 #endif
1353
1354 #ifdef JP
1355 if (flags5 & (RF5_SLOW))            {vp[vn] = "¸ºÂ®";color[vn++] = TERM_UMBER;}
1356 #else
1357         if (flags5 & (RF5_SLOW))            {vp[vn] = "slow";color[vn++] = TERM_UMBER;}
1358 #endif
1359
1360 #ifdef JP
1361 if (flags5 & (RF5_HOLD))            {vp[vn] = "Ëãáã";color[vn++] = TERM_RED;}
1362 #else
1363         if (flags5 & (RF5_HOLD))            {vp[vn] = "paralyze";color[vn++] = TERM_RED;}
1364 #endif
1365
1366 #ifdef JP
1367 if (flags6 & (RF6_HASTE))           {vp[vn] = "²ÃÂ®";color[vn++] = TERM_L_GREEN;}
1368 #else
1369         if (flags6 & (RF6_HASTE))           {vp[vn] = "haste-self";color[vn++] = TERM_L_GREEN;}
1370 #endif
1371
1372 #ifdef JP
1373 if (flags6 & (RF6_HEAL))            {vp[vn] = "¼£Ìþ";color[vn++] = TERM_WHITE;}
1374 #else
1375         if (flags6 & (RF6_HEAL))            {vp[vn] = "heal-self";color[vn++] = TERM_WHITE;}
1376 #endif
1377
1378 #ifdef JP
1379         if (flags6 & (RF6_INVULNER))        {vp[vn] = "ÌµÅ¨²½";color[vn++] = TERM_WHITE;}
1380 #else
1381         if (flags6 & (RF6_INVULNER))        {vp[vn] = "make invulnerable";color[vn++] = TERM_WHITE;}
1382 #endif
1383
1384 #ifdef JP
1385 if (flags4 & RF4_DISPEL)    {vp[vn] = "ËâÎÏ¾Ãµî";color[vn++] = TERM_L_WHITE;}
1386 #else
1387         if (flags4 & RF4_DISPEL)    {vp[vn] = "dispel-magic";color[vn++] = TERM_L_WHITE;}
1388 #endif
1389
1390 #ifdef JP
1391 if (flags6 & (RF6_BLINK))           {vp[vn] = "¥·¥ç¡¼¥È¥Æ¥ì¥Ý¡¼¥È";color[vn++] = TERM_UMBER;}
1392 #else
1393         if (flags6 & (RF6_BLINK))           {vp[vn] = "blink-self";color[vn++] = TERM_UMBER;}
1394 #endif
1395
1396 #ifdef JP
1397 if (flags6 & (RF6_TPORT))           {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È";color[vn++] = TERM_ORANGE;}
1398 #else
1399         if (flags6 & (RF6_TPORT))           {vp[vn] = "teleport-self";color[vn++] = TERM_ORANGE;}
1400 #endif
1401
1402 #ifdef JP
1403 if (flags6 & (RF6_WORLD))            {vp[vn] = "»þ¤ò»ß¤á¤ë";color[vn++] = TERM_L_BLUE;}
1404 #else
1405         if (flags6 & (RF6_WORLD))            {vp[vn] = "stop the time";color[vn++] = TERM_L_BLUE;}
1406 #endif
1407
1408 #ifdef JP
1409 if (flags6 & (RF6_TELE_TO))         {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È¥Ð¥Ã¥¯";color[vn++] = TERM_L_UMBER;}
1410 #else
1411         if (flags6 & (RF6_TELE_TO))         {vp[vn] = "teleport to";color[vn++] = TERM_L_UMBER;}
1412 #endif
1413
1414 #ifdef JP
1415 if (flags6 & (RF6_TELE_AWAY))       {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È¥¢¥¦¥§¥¤";color[vn++] = TERM_UMBER;}
1416 #else
1417         if (flags6 & (RF6_TELE_AWAY))       {vp[vn] = "teleport away";color[vn++] = TERM_UMBER;}
1418 #endif
1419
1420 #ifdef JP
1421 if (flags6 & (RF6_TELE_LEVEL))      {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È¡¦¥ì¥Ù¥ë";color[vn++] = TERM_ORANGE;}
1422 #else
1423         if (flags6 & (RF6_TELE_LEVEL))      {vp[vn] = "teleport level";color[vn++] = TERM_ORANGE;}
1424 #endif
1425
1426         if (flags6 & (RF6_DARKNESS))
1427         {
1428                 if ((p_ptr->pclass != CLASS_NINJA) || (r_ptr->flags3 & (RF3_UNDEAD | RF3_HURT_LITE)) || (r_ptr->flags7 & RF7_DARK_MASK))
1429                 {
1430 #ifdef JP
1431                         vp[vn] =  "°Å°Ç"; color[vn++] = TERM_L_DARK;
1432 #else
1433                         vp[vn] = "create darkness"; color[vn++] = TERM_L_DARK;
1434 #endif
1435                 }
1436                 else
1437                 {
1438 #ifdef JP
1439                         vp[vn] = "Á®¸÷"; color[vn++] = TERM_YELLOW;
1440 #else
1441                         vp[vn] = "create light"; color[vn++] = TERM_YELLOW;
1442 #endif
1443                 }
1444         }
1445
1446 #ifdef JP
1447 if (flags6 & (RF6_TRAPS))           {vp[vn] = "¥È¥é¥Ã¥×";color[vn++] = TERM_BLUE;}
1448 #else
1449         if (flags6 & (RF6_TRAPS))           {vp[vn] = "create traps";color[vn++] = TERM_BLUE;}
1450 #endif
1451
1452 #ifdef JP
1453 if (flags6 & (RF6_FORGET))          {vp[vn] = "µ²±¾Ãµî";color[vn++] = TERM_BLUE;}
1454 #else
1455         if (flags6 & (RF6_FORGET))          {vp[vn] = "cause amnesia";color[vn++] = TERM_BLUE;}
1456 #endif
1457
1458 #ifdef JP
1459 if (flags6 & (RF6_RAISE_DEAD))      {vp[vn] = "»à¼ÔÉü³è";color[vn++] = TERM_RED;}
1460 #else
1461         if (flags6 & (RF6_RAISE_DEAD))      {vp[vn] = "raise dead";color[vn++] = TERM_RED;}
1462 #endif
1463
1464 #ifdef JP
1465 if (flags6 & (RF6_S_MONSTER))       {vp[vn] = "¥â¥ó¥¹¥¿¡¼°ìÂÎ¾¤´";color[vn++] = TERM_SLATE;}
1466 #else
1467         if (flags6 & (RF6_S_MONSTER))       {vp[vn] = "summon a monster";color[vn++] = TERM_SLATE;}
1468 #endif
1469
1470 #ifdef JP
1471 if (flags6 & (RF6_S_MONSTERS))      {vp[vn] = "¥â¥ó¥¹¥¿¡¼Ê£¿ô¾¤´";color[vn++] = TERM_L_WHITE;}
1472 #else
1473         if (flags6 & (RF6_S_MONSTERS))      {vp[vn] = "summon monsters";color[vn++] = TERM_L_WHITE;}
1474 #endif
1475
1476 #ifdef JP
1477 if (flags6 & (RF6_S_KIN))           {vp[vn] = "µß±ç¾¤´";color[vn++] = TERM_ORANGE;}
1478 #else
1479         if (flags6 & (RF6_S_KIN))           {vp[vn] = "summon aid";color[vn++] = TERM_ORANGE;}
1480 #endif
1481
1482 #ifdef JP
1483 if (flags6 & (RF6_S_ANT))           {vp[vn] = "¥¢¥ê¾¤´";color[vn++] = TERM_RED;}
1484 #else
1485         if (flags6 & (RF6_S_ANT))           {vp[vn] = "summon ants";color[vn++] = TERM_RED;}
1486 #endif
1487
1488 #ifdef JP
1489 if (flags6 & (RF6_S_SPIDER))        {vp[vn] = "¥¯¥â¾¤´";color[vn++] = TERM_L_DARK;}
1490 #else
1491         if (flags6 & (RF6_S_SPIDER))        {vp[vn] = "summon spiders";color[vn++] = TERM_L_DARK;}
1492 #endif
1493
1494 #ifdef JP
1495 if (flags6 & (RF6_S_HOUND))         {vp[vn] = "¥Ï¥¦¥ó¥É¾¤´";color[vn++] = TERM_L_UMBER;}
1496 #else
1497         if (flags6 & (RF6_S_HOUND))         {vp[vn] = "summon hounds";color[vn++] = TERM_L_UMBER;}
1498 #endif
1499
1500 #ifdef JP
1501 if (flags6 & (RF6_S_HYDRA))         {vp[vn] = "¥Ò¥É¥é¾¤´";color[vn++] = TERM_L_GREEN;}
1502 #else
1503         if (flags6 & (RF6_S_HYDRA))         {vp[vn] = "summon hydras";color[vn++] = TERM_L_GREEN;}
1504 #endif
1505
1506 #ifdef JP
1507 if (flags6 & (RF6_S_ANGEL))         {vp[vn] = "Å·»È°ìÂÎ¾¤´";color[vn++] = TERM_YELLOW;}
1508 #else
1509         if (flags6 & (RF6_S_ANGEL))         {vp[vn] = "summon an angel";color[vn++] = TERM_YELLOW;}
1510 #endif
1511
1512 #ifdef JP
1513 if (flags6 & (RF6_S_DEMON))         {vp[vn] = "¥Ç¡¼¥â¥ó°ìÂÎ¾¤´";color[vn++] = TERM_L_RED;}
1514 #else
1515         if (flags6 & (RF6_S_DEMON))         {vp[vn] = "summon a demon";color[vn++] = TERM_L_RED;}
1516 #endif
1517
1518 #ifdef JP
1519 if (flags6 & (RF6_S_UNDEAD))        {vp[vn] = "¥¢¥ó¥Ç¥Ã¥É°ìÂÎ¾¤´";color[vn++] = TERM_L_DARK;}
1520 #else
1521         if (flags6 & (RF6_S_UNDEAD))        {vp[vn] = "summon an undead";color[vn++] = TERM_L_DARK;}
1522 #endif
1523
1524 #ifdef JP
1525 if (flags6 & (RF6_S_DRAGON))        {vp[vn] = "¥É¥é¥´¥ó°ìÂÎ¾¤´";color[vn++] = TERM_ORANGE;}
1526 #else
1527         if (flags6 & (RF6_S_DRAGON))        {vp[vn] = "summon a dragon";color[vn++] = TERM_ORANGE;}
1528 #endif
1529
1530 #ifdef JP
1531 if (flags6 & (RF6_S_HI_UNDEAD))     {vp[vn] = "¶¯ÎÏ¤Ê¥¢¥ó¥Ç¥Ã¥É¾¤´";color[vn++] = TERM_L_DARK;}
1532 #else
1533         if (flags6 & (RF6_S_HI_UNDEAD))     {vp[vn] = "summon Greater Undead";color[vn++] = TERM_L_DARK;}
1534 #endif
1535
1536 #ifdef JP
1537 if (flags6 & (RF6_S_HI_DRAGON))     {vp[vn] = "¸ÅÂå¥É¥é¥´¥ó¾¤´";color[vn++] = TERM_ORANGE;}
1538 #else
1539         if (flags6 & (RF6_S_HI_DRAGON))     {vp[vn] = "summon Ancient Dragons";color[vn++] = TERM_ORANGE;}
1540 #endif
1541
1542 #ifdef JP
1543 if (flags6 & (RF6_S_CYBER))         {vp[vn] = "¥µ¥¤¥Ð¡¼¥Ç¡¼¥â¥ó¾¤´";color[vn++] = TERM_UMBER;}
1544 #else
1545         if (flags6 & (RF6_S_CYBER))         {vp[vn] = "summon Cyberdemons";color[vn++] = TERM_UMBER;}
1546 #endif
1547
1548 #ifdef JP
1549 if (flags6 & (RF6_S_AMBERITES))     {vp[vn] = "¥¢¥ó¥Ð¡¼¤Î²¦Â²¾¤´";color[vn++] = TERM_VIOLET;}
1550 #else
1551         if (flags6 & (RF6_S_AMBERITES))     {vp[vn] = "summon Lords of Amber";color[vn++] = TERM_VIOLET;}
1552 #endif
1553
1554 #ifdef JP
1555 if (flags6 & (RF6_S_UNIQUE))        {vp[vn] = "¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¾¤´";color[vn++] = TERM_VIOLET;}
1556 #else
1557         if (flags6 & (RF6_S_UNIQUE))        {vp[vn] = "summon Unique Monsters";color[vn++] = TERM_VIOLET;}
1558 #endif
1559
1560
1561         /* Describe spells */
1562         if (vn)
1563         {
1564                 /* Note magic */
1565                 magic = TRUE;
1566
1567                 /* Intro */
1568                 if (breath)
1569                 {
1570 #ifdef JP
1571                         hooked_roff("¡¢¤Ê¤ª¤«¤Ä");
1572 #else
1573                         hooked_roff(", and is also");
1574 #endif
1575
1576                 }
1577                 else
1578                 {
1579 #ifdef JP
1580                         hooked_roff(format("%^s¤Ï", wd_he[msex]));
1581 #else
1582                         hooked_roff(format("%^s is", wd_he[msex]));
1583 #endif
1584
1585                 }
1586
1587 #ifdef JP
1588                 /* Adverb */
1589                 if (flags2 & (RF2_SMART)) hook_c_roff(TERM_YELLOW, "Åª³Î¤Ë");
1590
1591                 /* Verb Phrase */
1592                 hooked_roff("ËâË¡¤ò»È¤¦¤³¤È¤¬¤Ç¤¡¢");
1593 #else
1594                 /* Verb Phrase */
1595                 hooked_roff(" magical, casting spells");
1596
1597                 /* Adverb */
1598                 if (flags2 & RF2_SMART) hook_c_roff(TERM_YELLOW, " intelligently");
1599 #endif
1600
1601
1602                 /* Scan */
1603                 for (n = 0; n < vn; n++)
1604                 {
1605                         /* Intro */
1606 #ifdef JP
1607                         if ( n != 0 ) hooked_roff("¡¢");
1608 #else
1609                         if (n == 0) hooked_roff(" which ");
1610                         else if (n < vn-1) hooked_roff(", ");
1611                         else hooked_roff(" or ");
1612 #endif
1613
1614
1615                         /* Dump */
1616                         hook_c_roff(color[n], vp[n]);
1617                 }
1618 #ifdef JP
1619                 hooked_roff("¤Î¼öÊ¸¤ò¾§¤¨¤ë¤³¤È¤¬¤¢¤ë");
1620 #endif
1621         }
1622
1623
1624         /* End the sentence about inate/other spells */
1625         if (breath || magic)
1626         {
1627                 /* Total casting */
1628                 m = r_ptr->r_cast_spell;
1629
1630                 /* Average frequency */
1631                 n = r_ptr->freq_spell;
1632
1633                 /* Describe the spell frequency */
1634                 if (m > 100 || know_everything)
1635                 {
1636 #ifdef JP
1637                         hooked_roff(format("(³ÎÎ¨:1/%d)", 100 / n));
1638 #else
1639                         hooked_roff(format("; 1 time in %d", 100 / n));
1640 #endif
1641
1642                 }
1643
1644                 /* Guess at the frequency */
1645                 else if (m)
1646                 {
1647                         n = ((n + 9) / 10) * 10;
1648 #ifdef JP
1649                         hooked_roff(format("(³ÎÎ¨:Ìó1/%d)", 100 / n));
1650 #else
1651                         hooked_roff(format("; about 1 time in %d", 100 / n));
1652 #endif
1653
1654                 }
1655
1656                 /* End this sentence */
1657 #ifdef JP
1658                 hooked_roff("¡£");
1659 #else
1660                 hooked_roff(".  ");
1661 #endif
1662
1663         }
1664
1665         /* Describe monster "toughness" */
1666         if (know_armour(r_idx))
1667         {
1668                 /* Armor */
1669 #ifdef JP
1670                 hooked_roff(format("%^s¤Ï AC%d ¤ÎËÉ¸æÎÏ¤È",
1671 #else
1672                 hooked_roff(format("%^s has an armor rating of %d",
1673 #endif
1674
1675                             wd_he[msex], r_ptr->ac));
1676
1677                 /* Maximized hitpoints */
1678                 if ((flags1 & RF1_FORCE_MAXHP) || (r_ptr->hside == 1))
1679                 {
1680                         u32b hp = r_ptr->hdice * (nightmare ? 2 : 1) * r_ptr->hside;
1681 #ifdef JP
1682                         hooked_roff(format(" %d ¤ÎÂÎÎÏ¤¬¤¢¤ë¡£",
1683 #else
1684                         hooked_roff(format(" and a life rating of %d.  ",
1685 #endif
1686                                     (s16b)MIN(30000, hp)));
1687                 }
1688
1689                 /* Variable hitpoints */
1690                 else
1691                 {
1692 #ifdef JP
1693                         hooked_roff(format(" %dd%d ¤ÎÂÎÎÏ¤¬¤¢¤ë¡£",
1694 #else
1695                         hooked_roff(format(" and a life rating of %dd%d.  ",
1696 #endif
1697                                     r_ptr->hdice * (nightmare ? 2 : 1), r_ptr->hside));
1698                 }
1699         }
1700
1701
1702
1703         /* Collect special abilities. */
1704         vn = 0;
1705 #ifdef JP
1706         if (flags7 & (RF7_HAS_LITE_1 | RF7_HAS_LITE_2)) { vp[vn] = "¥À¥ó¥¸¥ç¥ó¤ò¾È¤é¤¹";     color[vn++] = TERM_WHITE; }
1707 #else
1708         if (flags7 & (RF7_HAS_LITE_1 | RF7_HAS_LITE_2)) { vp[vn] = "illuminate the dungeon"; color[vn++] = TERM_WHITE; }
1709 #endif
1710
1711 #ifdef JP
1712         if (flags7 & (RF7_HAS_DARK_1 | RF7_HAS_DARK_2)) { vp[vn] = "¥À¥ó¥¸¥ç¥ó¤ò°Å¤¯¤¹¤ë";   color[vn++] = TERM_L_DARK; }
1713 #else
1714         if (flags7 & (RF7_HAS_DARK_1 | RF7_HAS_DARK_2)) { vp[vn] = "darken the dungeon";     color[vn++] = TERM_L_DARK; }
1715 #endif
1716
1717 #ifdef JP
1718         if (flags2 & RF2_OPEN_DOOR) { vp[vn] = "¥É¥¢¤ò³«¤±¤ë"; color[vn++] = TERM_WHITE; }
1719 #else
1720         if (flags2 & RF2_OPEN_DOOR) { vp[vn] = "open doors"; color[vn++] = TERM_WHITE; }
1721 #endif
1722
1723 #ifdef JP
1724         if (flags2 & RF2_BASH_DOOR) { vp[vn] = "¥É¥¢¤òÂÇ¤ÁÇË¤ë"; color[vn++] = TERM_WHITE; }
1725 #else
1726         if (flags2 & RF2_BASH_DOOR) { vp[vn] = "bash down doors"; color[vn++] = TERM_WHITE; }
1727 #endif
1728
1729 #ifdef JP
1730         if (flags2 & RF2_PASS_WALL) { vp[vn] = "ÊÉ¤ò¤¹¤êÈ´¤±¤ë"; color[vn++] = TERM_WHITE; }
1731 #else
1732         if (flags2 & RF2_PASS_WALL) { vp[vn] = "pass through walls"; color[vn++] = TERM_WHITE; }
1733 #endif
1734
1735 #ifdef JP
1736         if (flags2 & RF2_KILL_WALL) { vp[vn] = "ÊÉ¤ò·¡¤ê¿Ê¤à"; color[vn++] = TERM_WHITE; }
1737 #else
1738         if (flags2 & RF2_KILL_WALL) { vp[vn] = "bore through walls"; color[vn++] = TERM_WHITE; }
1739 #endif
1740
1741 #ifdef JP
1742         if (flags2 & RF2_MOVE_BODY) { vp[vn] = "¼å¤¤¥â¥ó¥¹¥¿¡¼¤ò²¡¤·¤Î¤±¤ë"; color[vn++] = TERM_WHITE; }
1743 #else
1744         if (flags2 & RF2_MOVE_BODY) { vp[vn] = "push past weaker monsters"; color[vn++] = TERM_WHITE; }
1745 #endif
1746
1747 #ifdef JP
1748         if (flags2 & RF2_KILL_BODY) { vp[vn] = "¼å¤¤¥â¥ó¥¹¥¿¡¼¤òÅÝ¤¹"; color[vn++] = TERM_WHITE; }
1749 #else
1750         if (flags2 & RF2_KILL_BODY) { vp[vn] = "destroy weaker monsters"; color[vn++] = TERM_WHITE; }
1751 #endif
1752
1753 #ifdef JP
1754         if (flags2 & RF2_TAKE_ITEM) { vp[vn] = "¥¢¥¤¥Æ¥à¤ò½¦¤¦"; color[vn++] = TERM_WHITE; }
1755 #else
1756         if (flags2 & RF2_TAKE_ITEM) { vp[vn] = "pick up objects"; color[vn++] = TERM_WHITE; }
1757 #endif
1758
1759 #ifdef JP
1760         if (flags2 & RF2_KILL_ITEM) { vp[vn] = "¥¢¥¤¥Æ¥à¤ò²õ¤¹"; color[vn++] = TERM_WHITE; }
1761 #else
1762         if (flags2 & RF2_KILL_ITEM) { vp[vn] = "destroy objects"; color[vn++] = TERM_WHITE; }
1763 #endif
1764
1765
1766         /* Describe special abilities. */
1767         if (vn)
1768         {
1769                 /* Intro */
1770 #ifdef JP
1771                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
1772 #else
1773                 hooked_roff(format("%^s", wd_he[msex]));
1774 #endif
1775
1776
1777                 /* Scan */
1778                 for (n = 0; n < vn; n++)
1779                 {
1780                         /* Intro */
1781 #ifdef JP
1782                         if (n != vn - 1)
1783                         {
1784                                 jverb(vp[n], jverb_buf, JVERB_AND);
1785                                 hook_c_roff(color[n], jverb_buf);
1786                                 hooked_roff("¡¢");
1787                         }
1788                         else hook_c_roff(color[n], vp[n]);
1789 #else
1790                         if (n == 0) hooked_roff(" can ");
1791                         else if (n < vn - 1) hooked_roff(", ");
1792                         else hooked_roff(" and ");
1793
1794                         /* Dump */
1795                         hook_c_roff(color[n], vp[n]);
1796 #endif
1797
1798                 }
1799
1800                 /* End */
1801 #ifdef JP
1802                 hooked_roff("¤³¤È¤¬¤Ç¤¤ë¡£");
1803 #else
1804                 hooked_roff(".  ");
1805 #endif
1806
1807         }
1808
1809
1810         /* Describe special abilities. */
1811         if (flags7 & (RF7_SELF_LITE_1 | RF7_SELF_LITE_2))
1812         {
1813 #ifdef JP
1814                 hooked_roff(format("%^s¤Ï¸÷¤Ã¤Æ¤¤¤ë¡£", wd_he[msex]));
1815 #else
1816                 hooked_roff(format("%^s is shining.  ", wd_he[msex]));
1817 #endif
1818
1819         }
1820         if (flags7 & (RF7_SELF_DARK_1 | RF7_SELF_DARK_2))
1821         {
1822 #ifdef JP
1823                 hook_c_roff(TERM_L_DARK, format("%^s¤Ï°Å¹õ¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë¡£", wd_he[msex]));
1824 #else
1825                 hook_c_roff(TERM_L_DARK, format("%^s is surrounded by darkness.  ", wd_he[msex]));
1826 #endif
1827
1828         }
1829         if (flags2 & RF2_INVISIBLE)
1830         {
1831 #ifdef JP
1832                 hooked_roff(format("%^s¤ÏÆ©ÌÀ¤ÇÌÜ¤Ë¸«¤¨¤Ê¤¤¡£", wd_he[msex]));
1833 #else
1834                 hooked_roff(format("%^s is invisible.  ", wd_he[msex]));
1835 #endif
1836
1837         }
1838         if (flags2 & RF2_COLD_BLOOD)
1839         {
1840 #ifdef JP
1841                 hooked_roff(format("%^s¤ÏÎä·ìÆ°Êª¤Ç¤¢¤ë¡£", wd_he[msex]));
1842 #else
1843                 hooked_roff(format("%^s is cold blooded.  ", wd_he[msex]));
1844 #endif
1845
1846         }
1847         if (flags2 & RF2_EMPTY_MIND)
1848         {
1849 #ifdef JP
1850                 hooked_roff(format("%^s¤Ï¥Æ¥ì¥Ñ¥·¡¼¤Ç¤Ï´¶ÃÎ¤Ç¤¤Ê¤¤¡£", wd_he[msex]));
1851 #else
1852                 hooked_roff(format("%^s is not detected by telepathy.  ", wd_he[msex]));
1853 #endif
1854
1855         }
1856         else if (flags2 & RF2_WEIRD_MIND)
1857         {
1858 #ifdef JP
1859                 hooked_roff(format("%^s¤Ï¤Þ¤ì¤Ë¥Æ¥ì¥Ñ¥·¡¼¤Ç´¶ÃÎ¤Ç¤¤ë¡£", wd_he[msex]));
1860 #else
1861                 hooked_roff(format("%^s is rarely detected by telepathy.  ", wd_he[msex]));
1862 #endif
1863
1864         }
1865         if (flags2 & RF2_MULTIPLY)
1866         {
1867 #ifdef JP
1868                 hook_c_roff(TERM_L_UMBER, format("%^s¤ÏÇúÈ¯Åª¤ËÁý¿£¤¹¤ë¡£", wd_he[msex]));
1869 #else
1870                 hook_c_roff(TERM_L_UMBER, format("%^s breeds explosively.  ", wd_he[msex]));
1871 #endif
1872
1873         }
1874         if (flags2 & RF2_REGENERATE)
1875         {
1876 #ifdef JP
1877                 hook_c_roff(TERM_L_WHITE, format("%^s¤ÏÁÇÁá¤¯ÂÎÎÏ¤ò²óÉü¤¹¤ë¡£", wd_he[msex]));
1878 #else
1879                 hook_c_roff(TERM_L_WHITE, format("%^s regenerates quickly.  ", wd_he[msex]));
1880 #endif
1881
1882         }
1883         if (flags7 & RF7_RIDING)
1884         {
1885 #ifdef JP
1886                 hook_c_roff(TERM_SLATE, format("%^s¤Ë¾è¤ë¤³¤È¤¬¤Ç¤¤ë¡£", wd_he[msex]));
1887 #else
1888                 hook_c_roff(TERM_SLATE, format("%^s is suitable for riding.  ", wd_he[msex]));
1889 #endif
1890
1891         }
1892
1893
1894         /* Collect susceptibilities */
1895         vn = 0;
1896 #ifdef JP
1897         if (flags3 & RF3_HURT_ROCK) {vp[vn] = "´ä¤ò½üµî¤¹¤ë¤â¤Î";color[vn++] = TERM_UMBER;}
1898 #else
1899         if (flags3 & RF3_HURT_ROCK) {vp[vn] = "rock remover";color[vn++] = TERM_UMBER;}
1900 #endif
1901
1902 #ifdef JP
1903         if (flags3 & RF3_HURT_LITE) {vp[vn] = "ÌÀ¤ë¤¤¸÷";color[vn++] = TERM_YELLOW;}
1904 #else
1905         if (flags3 & RF3_HURT_LITE) {vp[vn] = "bright light";color[vn++] = TERM_YELLOW;}
1906 #endif
1907
1908 #ifdef JP
1909         if (flags3 & RF3_HURT_FIRE) {vp[vn] = "±ê";color[vn++] = TERM_RED;}
1910 #else
1911         if (flags3 & RF3_HURT_FIRE) {vp[vn] = "fire";color[vn++] = TERM_RED;}
1912 #endif
1913
1914 #ifdef JP
1915         if (flags3 & RF3_HURT_COLD) {vp[vn] = "Îäµ¤";color[vn++] = TERM_L_WHITE;}
1916 #else
1917         if (flags3 & RF3_HURT_COLD) {vp[vn] = "cold";color[vn++] = TERM_L_WHITE;}
1918 #endif
1919
1920
1921         /* Describe susceptibilities */
1922         if (vn)
1923         {
1924                 /* Intro */
1925 #ifdef JP
1926                 hooked_roff(format("%^s¤Ë¤Ï", wd_he[msex]));
1927 #else
1928                 hooked_roff(format("%^s", wd_he[msex]));
1929 #endif
1930
1931
1932                 /* Scan */
1933                 for (n = 0; n < vn; n++)
1934                 {
1935                         /* Intro */
1936 #ifdef JP
1937                         if ( n != 0 ) hooked_roff("¤ä");
1938 #else
1939                         if (n == 0) hooked_roff(" is hurt by ");
1940                         else if (n < vn-1) hooked_roff(", ");
1941                         else hooked_roff(" and ");
1942 #endif
1943
1944
1945                         /* Dump */
1946                         hook_c_roff(color[n], vp[n]);
1947                 }
1948
1949                 /* End */
1950 #ifdef JP
1951                 hooked_roff("¤Ç¥À¥á¡¼¥¸¤òÍ¿¤¨¤é¤ì¤ë¡£");
1952 #else
1953                 hooked_roff(".  ");
1954 #endif
1955
1956         }
1957
1958
1959         /* Collect immunities */
1960         vn = 0;
1961 #ifdef JP
1962         if (flagsr & RFR_IM_ACID) {vp[vn] = "»À";color[vn++] = TERM_GREEN;}
1963 #else
1964         if (flagsr & RFR_IM_ACID) {vp[vn] = "acid";color[vn++] = TERM_GREEN;}
1965 #endif
1966
1967 #ifdef JP
1968         if (flagsr & RFR_IM_ELEC) {vp[vn] = "°ðºÊ";color[vn++] = TERM_BLUE;}
1969 #else
1970         if (flagsr & RFR_IM_ELEC) {vp[vn] = "lightning";color[vn++] = TERM_BLUE;}
1971 #endif
1972
1973 #ifdef JP
1974         if (flagsr & RFR_IM_FIRE) {vp[vn] = "±ê";color[vn++] = TERM_RED;}
1975 #else
1976         if (flagsr & RFR_IM_FIRE) {vp[vn] = "fire";color[vn++] = TERM_RED;}
1977 #endif
1978
1979 #ifdef JP
1980         if (flagsr & RFR_IM_COLD) {vp[vn] = "Îäµ¤";color[vn++] = TERM_L_WHITE;}
1981 #else
1982         if (flagsr & RFR_IM_COLD) {vp[vn] = "cold";color[vn++] = TERM_L_WHITE;}
1983 #endif
1984
1985 #ifdef JP
1986         if (flagsr & RFR_IM_POIS) {vp[vn] = "ÆÇ";color[vn++] = TERM_L_GREEN;}
1987 #else
1988         if (flagsr & RFR_IM_POIS) {vp[vn] = "poison";color[vn++] = TERM_L_GREEN;}
1989 #endif
1990
1991
1992         /* Collect resistances */
1993 #ifdef JP
1994         if (flagsr & RFR_RES_LITE) {vp[vn] = "Á®¸÷";color[vn++] = TERM_YELLOW;}
1995 #else
1996         if (flagsr & RFR_RES_LITE) {vp[vn] = "light";color[vn++] = TERM_YELLOW;}
1997 #endif
1998
1999 #ifdef JP
2000         if (flagsr & RFR_RES_DARK) {vp[vn] = "°Å¹õ";color[vn++] = TERM_L_DARK;}
2001 #else
2002         if (flagsr & RFR_RES_DARK) {vp[vn] = "dark";color[vn++] = TERM_L_DARK;}
2003 #endif
2004
2005 #ifdef JP
2006         if (flagsr & RFR_RES_NETH) {vp[vn] = "ÃÏ¹ö";color[vn++] = TERM_L_DARK;}
2007 #else
2008         if (flagsr & RFR_RES_NETH) {vp[vn] = "nether";color[vn++] = TERM_L_DARK;}
2009 #endif
2010
2011 #ifdef JP
2012         if (flagsr & RFR_RES_WATE) {vp[vn] = "¿å";color[vn++] = TERM_BLUE;}
2013 #else
2014         if (flagsr & RFR_RES_WATE) {vp[vn] = "water";color[vn++] = TERM_BLUE;}
2015 #endif
2016
2017 #ifdef JP
2018         if (flagsr & RFR_RES_PLAS) {vp[vn] = "¥×¥é¥º¥Þ";color[vn++] = TERM_L_RED;}
2019 #else
2020         if (flagsr & RFR_RES_PLAS) {vp[vn] = "plasma";color[vn++] = TERM_L_RED;}
2021 #endif
2022
2023 #ifdef JP
2024         if (flagsr & RFR_RES_SHAR) {vp[vn] = "ÇËÊÒ";color[vn++] = TERM_L_UMBER;}
2025 #else
2026         if (flagsr & RFR_RES_SHAR) {vp[vn] = "shards";color[vn++] = TERM_L_UMBER;}
2027 #endif
2028
2029 #ifdef JP
2030         if (flagsr & RFR_RES_SOUN) {vp[vn] = "¹ì²»";color[vn++] = TERM_ORANGE;}
2031 #else
2032         if (flagsr & RFR_RES_SOUN) {vp[vn] = "sound";color[vn++] = TERM_ORANGE;}
2033 #endif
2034
2035 #ifdef JP
2036         if (flagsr & RFR_RES_CHAO) {vp[vn] = "¥«¥ª¥¹";color[vn++] = TERM_VIOLET;}
2037 #else
2038         if (flagsr & RFR_RES_CHAO) {vp[vn] = "chaos";color[vn++] = TERM_VIOLET;}
2039 #endif
2040
2041 #ifdef JP
2042         if (flagsr & RFR_RES_NEXU) {vp[vn] = "°ø²Ìº®Íð";color[vn++] = TERM_VIOLET;}
2043 #else
2044         if (flagsr & RFR_RES_NEXU) {vp[vn] = "nexus";color[vn++] = TERM_VIOLET;}
2045 #endif
2046
2047 #ifdef JP
2048         if (flagsr & RFR_RES_DISE) {vp[vn] = "Îô²½";color[vn++] = TERM_VIOLET;}
2049 #else
2050         if (flagsr & RFR_RES_DISE) {vp[vn] = "disenchantment";color[vn++] = TERM_VIOLET;}
2051 #endif
2052
2053 #ifdef JP
2054         if (flagsr & RFR_RES_WALL) {vp[vn] = "¥Õ¥©¡¼¥¹";color[vn++] = TERM_UMBER;}
2055 #else
2056         if (flagsr & RFR_RES_WALL) {vp[vn] = "force";color[vn++] = TERM_UMBER;}
2057 #endif
2058
2059 #ifdef JP
2060         if (flagsr & RFR_RES_INER) {vp[vn] = "ÃÙÆß";color[vn++] = TERM_SLATE;}
2061 #else
2062         if (flagsr & RFR_RES_INER) {vp[vn] = "inertia";color[vn++] = TERM_SLATE;}
2063 #endif
2064
2065 #ifdef JP
2066         if (flagsr & RFR_RES_TIME) {vp[vn] = "»þ´ÖµÕÅ¾";color[vn++] = TERM_L_BLUE;}
2067 #else
2068         if (flagsr & RFR_RES_TIME) {vp[vn] = "time";color[vn++] = TERM_L_BLUE;}
2069 #endif
2070
2071 #ifdef JP
2072         if (flagsr & RFR_RES_GRAV) {vp[vn] = "½ÅÎÏ";color[vn++] = TERM_SLATE;}
2073 #else
2074         if (flagsr & RFR_RES_GRAV) {vp[vn] = "gravity";color[vn++] = TERM_SLATE;}
2075 #endif
2076
2077 #ifdef JP
2078         if (flagsr & RFR_RES_ALL) {vp[vn] = "¤¢¤é¤æ¤ë¹¶·â";color[vn++] = TERM_YELLOW;}
2079 #else
2080         if (flagsr & RFR_RES_ALL) {vp[vn] = "all";color[vn++] = TERM_YELLOW;}
2081 #endif
2082
2083 #ifdef JP
2084         if ((flagsr & RFR_RES_TELE) && !(r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È";color[vn++] = TERM_ORANGE;}
2085 #else
2086         if ((flagsr & RFR_RES_TELE) && !(r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "teleportation";color[vn++] = TERM_ORANGE;}
2087 #endif
2088
2089
2090         /* Describe immunities and resistances */
2091         if (vn)
2092         {
2093                 /* Intro */
2094 #ifdef JP
2095                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2096 #else
2097                 hooked_roff(format("%^s", wd_he[msex]));
2098 #endif
2099
2100
2101                 /* Scan */
2102                 for (n = 0; n < vn; n++)
2103                 {
2104                         /* Intro */
2105 #ifdef JP
2106                         if ( n != 0 ) hooked_roff("¤È");
2107 #else
2108                         if (n == 0) hooked_roff(" resists ");
2109                         else if (n < vn-1) hooked_roff(", ");
2110                         else hooked_roff(" and ");
2111 #endif
2112
2113
2114                         /* Dump */
2115                         hook_c_roff(color[n], vp[n]);
2116                 }
2117
2118                 /* End */
2119 #ifdef JP
2120                 hooked_roff("¤ÎÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡£");
2121 #else
2122                 hooked_roff(".  ");
2123 #endif
2124
2125         }
2126
2127
2128         if ((r_ptr->r_xtra1 & MR1_SINKA) || know_everything)
2129         {
2130                 if (r_ptr->next_r_idx)
2131                 {
2132 #ifdef JP
2133                         hooked_roff(format("%^s¤Ï·Ð¸³¤òÀÑ¤à¤È¡¢", wd_he[msex]));
2134 #else
2135                         hooked_roff(format("%^s will evolve into ", wd_he[msex]));
2136 #endif
2137                         hook_c_roff(TERM_YELLOW, format("%s", r_name+r_info[r_ptr->next_r_idx].name));
2138 #ifdef JP
2139                         hooked_roff(format("¤Ë¿Ê²½¤¹¤ë¡£"));
2140 #else
2141                         hooked_roff(format(" when %s gets enugh experience.  ", wd_he[msex]));
2142 #endif
2143                 }
2144                 else if (!(r_ptr->flags1 & RF1_UNIQUE))
2145                 {
2146 #ifdef JP
2147                         hooked_roff(format("%s¤Ï¿Ê²½¤·¤Ê¤¤¡£", wd_he[msex]));
2148 #else
2149                         hooked_roff(format("%s won't evolve.  ", wd_he[msex]));
2150 #endif
2151                 }
2152         }
2153
2154         /* Collect non-effects */
2155         vn = 0;
2156 #ifdef JP
2157         if (flags3 & RF3_NO_STUN)  {vp[vn] = "Û¯Û°¤È¤·¤Ê¤¤";color[vn++] = TERM_ORANGE;}
2158 #else
2159         if (flags3 & RF3_NO_STUN)  {vp[vn] = "stunned";color[vn++] = TERM_ORANGE;}
2160 #endif
2161
2162 #ifdef JP
2163         if (flags3 & RF3_NO_FEAR)  {vp[vn] = "¶²ÉÝ¤ò´¶¤¸¤Ê¤¤";color[vn++] = TERM_SLATE;}
2164 #else
2165         if (flags3 & RF3_NO_FEAR)  {vp[vn] = "frightened";color[vn++] = TERM_SLATE;}
2166 #endif
2167
2168 #ifdef JP
2169         if (flags3 & RF3_NO_CONF)  {vp[vn] = "º®Íð¤·¤Ê¤¤";color[vn++] = TERM_L_UMBER;}
2170 #else
2171         if (flags3 & RF3_NO_CONF)  {vp[vn] = "confused";color[vn++] = TERM_L_UMBER;}
2172 #endif
2173
2174 #ifdef JP
2175         if (flags3 & RF3_NO_SLEEP) {vp[vn] = "Ì²¤é¤µ¤ì¤Ê¤¤";color[vn++] = TERM_BLUE;}
2176 #else
2177         if (flags3 & RF3_NO_SLEEP) {vp[vn] = "slept";color[vn++] = TERM_BLUE;}
2178 #endif
2179
2180 #ifdef JP
2181         if ((flagsr & RFR_RES_TELE) && (r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È¤µ¤ì¤Ê¤¤";color[vn++] = TERM_ORANGE;}
2182 #else
2183         if ((flagsr & RFR_RES_TELE) && (r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "teleported";color[vn++] = TERM_ORANGE;}
2184 #endif
2185
2186         /* Describe non-effects */
2187         if (vn)
2188         {
2189                 /* Intro */
2190 #ifdef JP
2191                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2192 #else
2193                 hooked_roff(format("%^s", wd_he[msex]));
2194 #endif
2195
2196
2197                 /* Scan */
2198                 for (n = 0; n < vn; n++)
2199                 {
2200                         /* Intro */
2201 #ifdef JP
2202                         if ( n != 0 ) hooked_roff("¤·¡¢");
2203 #else
2204                         if (n == 0) hooked_roff(" cannot be ");
2205                         else if (n < vn - 1) hooked_roff(", ");
2206                         else hooked_roff(" or ");
2207 #endif
2208
2209
2210                         /* Dump */
2211                         hook_c_roff(color[n], vp[n]);
2212                 }
2213
2214                 /* End */
2215 #ifdef JP
2216                 hooked_roff("¡£");
2217 #else
2218                 hooked_roff(".  ");
2219 #endif
2220
2221         }
2222
2223
2224         /* Do we know how aware it is? */
2225         if ((((int)r_ptr->r_wake * (int)r_ptr->r_wake) > r_ptr->sleep) ||
2226                   (r_ptr->r_ignore == MAX_UCHAR) ||
2227             (r_ptr->sleep == 0 && r_ptr->r_tkills >= 10) || know_everything)
2228         {
2229                 cptr act;
2230
2231                 if (r_ptr->sleep > 200)
2232                 {
2233 #ifdef JP
2234                         act = "¤òÌµ»ë¤·¤¬¤Á¤Ç¤¢¤ë¤¬";
2235 #else
2236                         act = "prefers to ignore";
2237 #endif
2238
2239                 }
2240                 else if (r_ptr->sleep > 95)
2241                 {
2242 #ifdef JP
2243                         act = "¤ËÂÐ¤·¤Æ¤Û¤È¤ó¤ÉÃí°Õ¤òÊ§¤ï¤Ê¤¤¤¬";
2244 #else
2245                         act = "pays very little attention to";
2246 #endif
2247
2248                 }
2249                 else if (r_ptr->sleep > 75)
2250                 {
2251 #ifdef JP
2252                         act = "¤ËÂÐ¤·¤Æ¤¢¤Þ¤êÃí°Õ¤òÊ§¤ï¤Ê¤¤¤¬";
2253 #else
2254                         act = "pays little attention to";
2255 #endif
2256
2257                 }
2258                 else if (r_ptr->sleep > 45)
2259                 {
2260 #ifdef JP
2261                         act = "¤ò¸«²á¤´¤·¤¬¤Á¤Ç¤¢¤ë¤¬";
2262 #else
2263                         act = "tends to overlook";
2264 #endif
2265
2266                 }
2267                 else if (r_ptr->sleep > 25)
2268                 {
2269 #ifdef JP
2270                         act = "¤ò¤Û¤ó¤Î¾¯¤·¤Ï¸«¤Æ¤ª¤ê";
2271 #else
2272                         act = "takes quite a while to see";
2273 #endif
2274
2275                 }
2276                 else if (r_ptr->sleep > 10)
2277                 {
2278 #ifdef JP
2279                         act = "¤ò¤·¤Ð¤é¤¯¤Ï¸«¤Æ¤ª¤ê";
2280 #else
2281                         act = "takes a while to see";
2282 #endif
2283
2284                 }
2285                 else if (r_ptr->sleep > 5)
2286                 {
2287 #ifdef JP
2288                         act = "¤ò´öÊ¬Ãí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2289 #else
2290                         act = "is fairly observant of";
2291 #endif
2292
2293                 }
2294                 else if (r_ptr->sleep > 3)
2295                 {
2296 #ifdef JP
2297                         act = "¤òÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2298 #else
2299                         act = "is observant of";
2300 #endif
2301
2302                 }
2303                 else if (r_ptr->sleep > 1)
2304                 {
2305 #ifdef JP
2306                         act = "¤ò¤«¤Ê¤êÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2307 #else
2308                         act = "is very observant of";
2309 #endif
2310
2311                 }
2312                 else if (r_ptr->sleep > 0)
2313                 {
2314 #ifdef JP
2315                         act = "¤ò·Ù²ü¤·¤Æ¤ª¤ê";
2316 #else
2317                         act = "is vigilant for";
2318 #endif
2319
2320                 }
2321                 else
2322                 {
2323 #ifdef JP
2324                         act = "¤ò¤«¤Ê¤ê·Ù²ü¤·¤Æ¤ª¤ê";
2325 #else
2326                         act = "is ever vigilant for";
2327 #endif
2328
2329                 }
2330
2331 #ifdef JP
2332                 hooked_roff(format("%^s¤Ï¿¯Æþ¼Ô%s¡¢ %d ¥Õ¥£¡¼¥ÈÀè¤«¤é¿¯Æþ¼Ô¤Ëµ¤ÉÕ¤¯¤³¤È¤¬¤¢¤ë¡£",
2333                      wd_he[msex], act, 10 * r_ptr->aaf));
2334 #else
2335                 hooked_roff(format("%^s %s intruders, which %s may notice from %d feet.  ",
2336                             wd_he[msex], act, wd_he[msex], 10 * r_ptr->aaf));
2337 #endif
2338
2339         }
2340
2341
2342         /* Drops gold and/or items */
2343         if (drop_gold || drop_item)
2344         {
2345                 /* Intro */
2346 #ifdef JP
2347                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2348 #else
2349                 hooked_roff(format("%^s may carry", wd_he[msex]));
2350
2351                 /* No "n" needed */
2352                 sin = FALSE;
2353 #endif
2354
2355
2356                 /* Count maximum drop */
2357                 n = MAX(drop_gold, drop_item);
2358
2359                 /* One drop (may need an "n") */
2360                 if (n == 1)
2361                 {
2362 #ifdef JP
2363                         hooked_roff("°ì¤Ä¤Î");
2364 #else
2365                         hooked_roff(" a");
2366                         sin = TRUE;
2367 #endif
2368                 }
2369
2370                 /* Two drops */
2371                 else if (n == 2)
2372                 {
2373 #ifdef JP
2374                         hooked_roff("°ì¤Ä¤«Æó¤Ä¤Î");
2375 #else
2376                         hooked_roff(" one or two");
2377 #endif
2378
2379                 }
2380
2381                 /* Many drops */
2382                 else
2383                 {
2384 #ifdef JP
2385                         hooked_roff(format(" %d ¸Ä¤Þ¤Ç¤Î", n));
2386 #else
2387                         hooked_roff(format(" up to %d", n));
2388 #endif
2389
2390                 }
2391
2392
2393                 /* Great */
2394                 if (flags1 & RF1_DROP_GREAT)
2395                 {
2396 #ifdef JP
2397                         p = "ÆÃÊÌ¤Ê";
2398 #else
2399                         p = " exceptional";
2400 #endif
2401
2402                 }
2403
2404                 /* Good (no "n" needed) */
2405                 else if (flags1 & RF1_DROP_GOOD)
2406                 {
2407 #ifdef JP
2408                         p = "¾å¼Á¤Ê";
2409 #else
2410                         p = " good";
2411                         sin = FALSE;
2412 #endif
2413                 }
2414
2415                 /* Okay */
2416                 else
2417                 {
2418                         p = NULL;
2419                 }
2420
2421
2422                 /* Objects */
2423                 if (drop_item)
2424                 {
2425                         /* Handle singular "an" */
2426 #ifndef JP
2427                         if (sin) hooked_roff("n");
2428                         sin = FALSE;
2429 #endif
2430
2431                         /* Dump "object(s)" */
2432                         if (p) hooked_roff(p);
2433 #ifdef JP
2434                         hooked_roff("¥¢¥¤¥Æ¥à");
2435 #else
2436                         hooked_roff(" object");
2437                         if (n != 1) hooked_roff("s");
2438 #endif
2439
2440
2441                         /* Conjunction replaces variety, if needed for "gold" below */
2442 #ifdef JP
2443                         p = "¤ä";
2444 #else
2445                         p = " or";
2446 #endif
2447
2448                 }
2449
2450                 /* Treasures */
2451                 if (drop_gold)
2452                 {
2453 #ifndef JP
2454                         /* Cancel prefix */
2455                         if (!p) sin = FALSE;
2456
2457                         /* Handle singular "an" */
2458                         if (sin) hooked_roff("n");
2459                         sin = FALSE;
2460 #endif
2461
2462                         /* Dump "treasure(s)" */
2463                         if (p) hooked_roff(p);
2464 #ifdef JP
2465                         hooked_roff("ºâÊõ");
2466 #else
2467                         hooked_roff(" treasure");
2468                         if (n != 1) hooked_roff("s");
2469 #endif
2470
2471                 }
2472
2473                 /* End this sentence */
2474 #ifdef JP
2475                 hooked_roff("¤ò»ý¤Ã¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£");
2476 #else
2477                 hooked_roff(".  ");
2478 #endif
2479
2480         }
2481
2482
2483         /* Count the number of "known" attacks */
2484         for (n = 0, m = 0; m < 4; m++)
2485         {
2486                 /* Skip non-attacks */
2487                 if (!r_ptr->blow[m].method) continue;
2488                 if (r_ptr->blow[m].method == RBM_SHOOT) continue;
2489
2490                 /* Count known attacks */
2491                 if (r_ptr->r_blows[m] || know_everything) n++;
2492         }
2493
2494         /* Examine (and count) the actual attacks */
2495         for (r = 0, m = 0; m < 4; m++)
2496         {
2497                 int method, effect, d1, d2;
2498
2499                 /* Skip non-attacks */
2500                 if (!r_ptr->blow[m].method) continue;
2501                 if (r_ptr->blow[m].method == RBM_SHOOT) continue;
2502
2503                 /* Skip unknown attacks */
2504                 if (!r_ptr->r_blows[m] && !know_everything) continue;
2505
2506                 /* Extract the attack info */
2507                 method = r_ptr->blow[m].method;
2508                 effect = r_ptr->blow[m].effect;
2509                 d1 = r_ptr->blow[m].d_dice;
2510                 d2 = r_ptr->blow[m].d_side;
2511
2512                 /* No method yet */
2513                 p = NULL;
2514
2515                 /* Acquire the method */
2516                 switch (method)
2517                 {
2518 #ifdef JP
2519 case RBM_HIT:           p = "²¥¤ë"; break;
2520 #else
2521                         case RBM_HIT:           p = "hit"; break;
2522 #endif
2523
2524 #ifdef JP
2525 case RBM_TOUCH:         p = "¿¨¤ë"; break;
2526 #else
2527                         case RBM_TOUCH:         p = "touch"; break;
2528 #endif
2529
2530 #ifdef JP
2531 case RBM_PUNCH:         p = "¥Ñ¥ó¥Á¤¹¤ë"; break;
2532 #else
2533                         case RBM_PUNCH:         p = "punch"; break;
2534 #endif
2535
2536 #ifdef JP
2537 case RBM_KICK:          p = "½³¤ë"; break;
2538 #else
2539                         case RBM_KICK:          p = "kick"; break;
2540 #endif
2541
2542 #ifdef JP
2543 case RBM_CLAW:          p = "¤Ò¤Ã¤«¤¯"; break;
2544 #else
2545                         case RBM_CLAW:          p = "claw"; break;
2546 #endif
2547
2548 #ifdef JP
2549 case RBM_BITE:          p = "³ú¤à"; break;
2550 #else
2551                         case RBM_BITE:          p = "bite"; break;
2552 #endif
2553
2554 #ifdef JP
2555 case RBM_STING:         p = "»É¤¹"; break;
2556 #else
2557                         case RBM_STING:         p = "sting"; break;
2558 #endif
2559
2560 #ifdef JP
2561 case RBM_SLASH:         p = "»Â¤ë"; break;
2562 #else
2563                         case RBM_SLASH:         p = "slash"; break;
2564 #endif
2565
2566 #ifdef JP
2567 case RBM_BUTT:          p = "³Ñ¤ÇÆÍ¤¯"; break;
2568 #else
2569                         case RBM_BUTT:          p = "butt"; break;
2570 #endif
2571
2572 #ifdef JP
2573 case RBM_CRUSH:         p = "ÂÎÅö¤¿¤ê¤¹¤ë"; break;
2574 #else
2575                         case RBM_CRUSH:         p = "crush"; break;
2576 #endif
2577
2578 #ifdef JP
2579 case RBM_ENGULF:        p = "°û¤ß¹þ¤à"; break;
2580 #else
2581                         case RBM_ENGULF:        p = "engulf"; break;
2582 #endif
2583
2584 #ifdef JP
2585 case RBM_CHARGE:        p = "ÀÁµá½ñ¤ò¤è¤³¤¹"; break;
2586 #else
2587                         case RBM_CHARGE:        p = "charge";   break;
2588 #endif
2589
2590 #ifdef JP
2591 case RBM_CRAWL:         p = "ÂÎ¤Î¾å¤òÇç¤¤²ó¤ë"; break;
2592 #else
2593                         case RBM_CRAWL:         p = "crawl on you"; break;
2594 #endif
2595
2596 #ifdef JP
2597 case RBM_DROOL:         p = "¤è¤À¤ì¤ò¤¿¤é¤¹"; break;
2598 #else
2599                         case RBM_DROOL:         p = "drool on you"; break;
2600 #endif
2601
2602 #ifdef JP
2603 case RBM_SPIT:          p = "¤Ä¤Ð¤òÅÇ¤¯"; break;
2604 #else
2605                         case RBM_SPIT:          p = "spit"; break;
2606 #endif
2607
2608 #ifdef JP
2609 case RBM_EXPLODE:       p = "ÇúÈ¯¤¹¤ë"; break;
2610 #else
2611                         case RBM_EXPLODE:       p = "explode"; break;
2612 #endif
2613
2614 #ifdef JP
2615 case RBM_GAZE:          p = "¤Ë¤é¤à"; break;
2616 #else
2617                         case RBM_GAZE:          p = "gaze"; break;
2618 #endif
2619
2620 #ifdef JP
2621 case RBM_WAIL:          p = "µã¤¶«¤Ö"; break;
2622 #else
2623                         case RBM_WAIL:          p = "wail"; break;
2624 #endif
2625
2626 #ifdef JP
2627 case RBM_SPORE:         p = "Ë¦»Ò¤òÈô¤Ð¤¹"; break;
2628 #else
2629                         case RBM_SPORE:         p = "release spores"; break;
2630 #endif
2631
2632                         case RBM_XXX4:          break;
2633 #ifdef JP
2634 case RBM_BEG:           p = "¶â¤ò¤»¤¬¤à"; break;
2635 #else
2636                         case RBM_BEG:           p = "beg"; break;
2637 #endif
2638
2639 #ifdef JP
2640 case RBM_INSULT:        p = "Éî¿«¤¹¤ë"; break;
2641 #else
2642                         case RBM_INSULT:        p = "insult"; break;
2643 #endif
2644
2645 #ifdef JP
2646 case RBM_MOAN:          p = "¤¦¤á¤¯"; break;
2647 #else
2648                         case RBM_MOAN:          p = "moan"; break;
2649 #endif
2650
2651 #ifdef JP
2652 case RBM_SHOW:          p = "²Î¤¦"; break;
2653 #else
2654                         case RBM_SHOW:          p = "sing"; break;
2655 #endif
2656
2657                 }
2658
2659
2660                 /* Default effect */
2661                 q = NULL;
2662
2663                 /* Acquire the effect */
2664                 switch (effect)
2665                 {
2666 #ifdef JP
2667 case RBE_SUPERHURT:
2668 case RBE_HURT:          q = "¹¶·â¤¹¤ë"; break;
2669 #else
2670                         case RBE_SUPERHURT:
2671                         case RBE_HURT:          q = "attack"; break;
2672 #endif
2673
2674 #ifdef JP
2675 case RBE_POISON:        q = "ÆÇ¤ò¤¯¤é¤ï¤¹"; break;
2676 #else
2677                         case RBE_POISON:        q = "poison"; break;
2678 #endif
2679
2680 #ifdef JP
2681 case RBE_UN_BONUS:      q = "Îô²½¤µ¤»¤ë"; break;
2682 #else
2683                         case RBE_UN_BONUS:      q = "disenchant"; break;
2684 #endif
2685
2686 #ifdef JP
2687 case RBE_UN_POWER:      q = "ËâÎÏ¤òµÛ¤¤¼è¤ë"; break;
2688 #else
2689                         case RBE_UN_POWER:      q = "drain charges"; break;
2690 #endif
2691
2692 #ifdef JP
2693 case RBE_EAT_GOLD:      q = "¶â¤òÅð¤à"; break;
2694 #else
2695                         case RBE_EAT_GOLD:      q = "steal gold"; break;
2696 #endif
2697
2698 #ifdef JP
2699 case RBE_EAT_ITEM:      q = "¥¢¥¤¥Æ¥à¤òÅð¤à"; break;
2700 #else
2701                         case RBE_EAT_ITEM:      q = "steal items"; break;
2702 #endif
2703
2704 #ifdef JP
2705 case RBE_EAT_FOOD:      q = "¤¢¤Ê¤¿¤Î¿©ÎÁ¤ò¿©¤Ù¤ë"; break;
2706 #else
2707                         case RBE_EAT_FOOD:      q = "eat your food"; break;
2708 #endif
2709
2710 #ifdef JP
2711 case RBE_EAT_LITE:      q = "ÌÀ¤«¤ê¤òµÛ¼ý¤¹¤ë"; break;
2712 #else
2713                         case RBE_EAT_LITE:      q = "absorb light"; break;
2714 #endif
2715
2716 #ifdef JP
2717 case RBE_ACID:          q = "»À¤òÈô¤Ð¤¹"; break;
2718 #else
2719                         case RBE_ACID:          q = "shoot acid"; break;
2720 #endif
2721
2722 #ifdef JP
2723 case RBE_ELEC:          q = "´¶ÅÅ¤µ¤»¤ë"; break;
2724 #else
2725                         case RBE_ELEC:          q = "electrocute"; break;
2726 #endif
2727
2728 #ifdef JP
2729 case RBE_FIRE:          q = "Ç³¤ä¤¹"; break;
2730 #else
2731                         case RBE_FIRE:          q = "burn"; break;
2732 #endif
2733
2734 #ifdef JP
2735 case RBE_COLD:          q = "Åà¤é¤»¤ë"; break;
2736 #else
2737                         case RBE_COLD:          q = "freeze"; break;
2738 #endif
2739
2740 #ifdef JP
2741 case RBE_BLIND:         q = "ÌÕÌÜ¤Ë¤¹¤ë"; break;
2742 #else
2743                         case RBE_BLIND:         q = "blind"; break;
2744 #endif
2745
2746 #ifdef JP
2747 case RBE_CONFUSE:       q = "º®Íð¤µ¤»¤ë"; break;
2748 #else
2749                         case RBE_CONFUSE:       q = "confuse"; break;
2750 #endif
2751
2752 #ifdef JP
2753 case RBE_TERRIFY:       q = "¶²ÉÝ¤µ¤»¤ë"; break;
2754 #else
2755                         case RBE_TERRIFY:       q = "terrify"; break;
2756 #endif
2757
2758 #ifdef JP
2759 case RBE_PARALYZE:      q = "Ëãáã¤µ¤»¤ë"; break;
2760 #else
2761                         case RBE_PARALYZE:      q = "paralyze"; break;
2762 #endif
2763
2764 #ifdef JP
2765 case RBE_LOSE_STR:      q = "ÏÓÎÏ¤ò¸º¾¯¤µ¤»¤ë"; break;
2766 #else
2767                         case RBE_LOSE_STR:      q = "reduce strength"; break;
2768 #endif
2769
2770 #ifdef JP
2771 case RBE_LOSE_INT:      q = "ÃÎÇ½¤ò¸º¾¯¤µ¤»¤ë"; break;
2772 #else
2773                         case RBE_LOSE_INT:      q = "reduce intelligence"; break;
2774 #endif
2775
2776 #ifdef JP
2777 case RBE_LOSE_WIS:      q = "¸¤µ¤ò¸º¾¯¤µ¤»¤ë"; break;
2778 #else
2779                         case RBE_LOSE_WIS:      q = "reduce wisdom"; break;
2780 #endif
2781
2782 #ifdef JP
2783 case RBE_LOSE_DEX:      q = "´ïÍÑ¤µ¤ò¸º¾¯¤µ¤»¤ë"; break;
2784 #else
2785                         case RBE_LOSE_DEX:      q = "reduce dexterity"; break;
2786 #endif
2787
2788 #ifdef JP
2789 case RBE_LOSE_CON:      q = "ÂÑµ×ÎÏ¤ò¸º¾¯¤µ¤»¤ë"; break;
2790 #else
2791                         case RBE_LOSE_CON:      q = "reduce constitution"; break;
2792 #endif
2793
2794 #ifdef JP
2795 case RBE_LOSE_CHR:      q = "Ì¥ÎÏ¤ò¸º¾¯¤µ¤»¤ë"; break;
2796 #else
2797                         case RBE_LOSE_CHR:      q = "reduce charisma"; break;
2798 #endif
2799
2800 #ifdef JP
2801 case RBE_LOSE_ALL:      q = "Á´¥¹¥Æ¡¼¥¿¥¹¤ò¸º¾¯¤µ¤»¤ë"; break;
2802 #else
2803                         case RBE_LOSE_ALL:      q = "reduce all stats"; break;
2804 #endif
2805
2806 #ifdef JP
2807 case RBE_SHATTER:       q = "Ê´ºÕ¤¹¤ë"; break;
2808 #else
2809                         case RBE_SHATTER:       q = "shatter"; break;
2810 #endif
2811
2812 #ifdef JP
2813 case RBE_EXP_10:        q = "·Ð¸³ÃÍ¤ò¸º¾¯(10d6+)¤µ¤»¤ë"; break;
2814 #else
2815                         case RBE_EXP_10:        q = "lower experience (by 10d6+)"; break;
2816 #endif
2817
2818 #ifdef JP
2819 case RBE_EXP_20:        q = "·Ð¸³ÃÍ¤ò¸º¾¯(20d6+)¤µ¤»¤ë"; break;
2820 #else
2821                         case RBE_EXP_20:        q = "lower experience (by 20d6+)"; break;
2822 #endif
2823
2824 #ifdef JP
2825 case RBE_EXP_40:        q = "·Ð¸³ÃÍ¤ò¸º¾¯(40d6+)¤µ¤»¤ë"; break;
2826 #else
2827                         case RBE_EXP_40:        q = "lower experience (by 40d6+)"; break;
2828 #endif
2829
2830 #ifdef JP
2831 case RBE_EXP_80:        q = "·Ð¸³ÃÍ¤ò¸º¾¯(80d6+)¤µ¤»¤ë"; break;
2832 #else
2833                         case RBE_EXP_80:        q = "lower experience (by 80d6+)"; break;
2834 #endif
2835
2836 #ifdef JP
2837 case RBE_DISEASE:       q = "ÉÂµ¤¤Ë¤¹¤ë"; break;
2838 #else
2839                         case RBE_DISEASE:       q = "disease"; break;
2840 #endif
2841
2842 #ifdef JP
2843 case RBE_TIME:      q = "»þ´Ö¤òµÕÌá¤ê¤µ¤»¤ë"; break;
2844 #else
2845                         case RBE_TIME:      q = "time"; break;
2846 #endif
2847
2848 #ifdef JP
2849 case RBE_EXP_VAMP:  q = "À¸Ì¿ÎÏ¤òµÛ¼ý¤¹¤ë"; break;
2850 #else
2851                         case RBE_EXP_VAMP:  q = "drain life force"; break;
2852 #endif
2853
2854 #ifdef JP
2855 case RBE_DR_MANA:  q = "ËâÎÏ¤òÃ¥¤¦"; break;
2856 #else
2857                         case RBE_DR_MANA:  q = "drain mana force"; break;
2858 #endif
2859
2860 #ifdef JP
2861                         case RBE_INERTIA:  q = "¸ºÂ®¤µ¤»¤ë"; break;
2862                         case RBE_STUN:     q = "Û¯Û°¤È¤µ¤»¤ë"; break;
2863 #else
2864                         case RBE_INERTIA:  q = "slow"; break;
2865                         case RBE_STUN:     q = "stun"; break;
2866 #endif
2867                 }
2868
2869
2870 #ifdef JP
2871                 if ( r == 0 ) hooked_roff( format("%^s¤Ï", wd_he[msex]) );
2872
2873                 /***¼ã´³É½¸½¤òÊÑ¹¹ ita ***/
2874
2875                         /* Describe damage (if known) */
2876                 if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
2877                   {
2878
2879                     /* Display the damage */
2880                     hooked_roff(format(" %dd%d ", d1, d2));
2881                     hooked_roff("¤Î¥À¥á¡¼¥¸¤Ç");
2882                   }
2883                 /* Hack -- force a method */
2884                 if (!p) p = "²¿¤«´ñÌ¯¤Ê¤³¤È¤ò¤¹¤ë";
2885
2886                 /* Describe the method */
2887                 /* XX¤·¤ÆYY¤·/XX¤·¤ÆYY¤¹¤ë/XX¤·/XX¤¹¤ë */
2888                 if(q) jverb( p ,jverb_buf, JVERB_TO);
2889                 else if(r!=n-1) jverb( p ,jverb_buf, JVERB_AND);
2890                 else strcpy(jverb_buf, p);
2891
2892                 hooked_roff(jverb_buf);
2893
2894                 /* Describe the effect (if any) */
2895                 if (q)
2896                 {
2897                   if(r!=n-1) jverb( q,jverb_buf, JVERB_AND);
2898                   else strcpy(jverb_buf,q);
2899                   hooked_roff(jverb_buf);
2900                 }
2901                 if(r!=n-1) hooked_roff("¡¢");
2902 #else
2903                 /* Introduce the attack description */
2904                 if (!r)
2905                 {
2906                         hooked_roff(format("%^s can ", wd_he[msex]));
2907                 }
2908                 else if (r < n-1)
2909                 {
2910                         hooked_roff(", ");
2911                 }
2912                 else
2913                 {
2914                         hooked_roff(", and ");
2915                 }
2916
2917
2918                 /* Hack -- force a method */
2919                 if (!p) p = "do something weird";
2920
2921                 /* Describe the method */
2922                 hooked_roff(p);
2923
2924
2925                 /* Describe the effect (if any) */
2926                 if (q)
2927                 {
2928                         /* Describe the attack type */
2929                         hooked_roff(" to ");
2930                         hooked_roff(q);
2931
2932                         /* Describe damage (if known) */
2933                         if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
2934                         {
2935                                 /* Display the damage */
2936                                 hooked_roff(" with damage");
2937                                 hooked_roff(format(" %dd%d", d1, d2));
2938                         }
2939                 }
2940 #endif
2941
2942
2943
2944                 /* Count the attacks as printed */
2945                 r++;
2946         }
2947
2948         /* Finish sentence above */
2949         if (r)
2950         {
2951 #ifdef JP
2952                 hooked_roff("¡£");
2953 #else
2954                 hooked_roff(".  ");
2955 #endif
2956
2957         }
2958
2959         /* Notice lack of attacks */
2960         else if (flags1 & RF1_NEVER_BLOW)
2961         {
2962 #ifdef JP
2963                 hooked_roff(format("%^s¤ÏÊªÍýÅª¤Ê¹¶·âÊýË¡¤ò»ý¤¿¤Ê¤¤¡£", wd_he[msex]));
2964 #else
2965                 hooked_roff(format("%^s has no physical attacks.  ", wd_he[msex]));
2966 #endif
2967
2968         }
2969
2970         /* Or describe the lack of knowledge */
2971         else
2972         {
2973 #ifdef JP
2974                 hooked_roff(format("%s¹¶·â¤Ë¤Ä¤¤¤Æ¤Ï²¿¤âÃÎ¤é¤Ê¤¤¡£", wd_his[msex]));
2975 #else
2976                 hooked_roff(format("Nothing is known about %s attack.  ", wd_his[msex]));
2977 #endif
2978
2979         }
2980
2981
2982         /*
2983          * Notice "Quest" monsters, but only if you
2984          * already encountered the monster.
2985          */
2986         if ((flags1 & RF1_QUESTOR) && ((r_ptr->r_sights) && (r_ptr->max_num) && ((r_idx == MON_OBERON) || (r_idx == MON_SERPENT))))
2987         {
2988 #ifdef JP
2989                 hook_c_roff(TERM_VIOLET, "¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò»¦¤·¤¿¤¤¤È¤¤¤¦¶¯¤¤ÍßË¾¤ò´¶¤¸¤Æ¤¤¤ë...");
2990 #else
2991                 hook_c_roff(TERM_VIOLET, "You feel an intense desire to kill this monster...  ");
2992 #endif
2993
2994         }
2995
2996         else if (flags7 & RF7_GUARDIAN)
2997         {
2998 #ifdef JP
2999                 hook_c_roff(TERM_L_RED, "¤³¤Î¥â¥ó¥¹¥¿¡¼¤Ï¥À¥ó¥¸¥ç¥ó¤Î¼ç¤Ç¤¢¤ë¡£");
3000 #else
3001                 hook_c_roff(TERM_L_RED, "This monster is the master of a dungeon.");
3002 #endif
3003
3004         }
3005
3006
3007         /* All done */
3008         hooked_roff("\n");
3009
3010 }
3011
3012
3013
3014 /*
3015  * Hack -- Display the "name" and "attr/chars" of a monster race
3016  */
3017 void roff_top(int r_idx)
3018 {
3019         monster_race    *r_ptr = &r_info[r_idx];
3020
3021         byte            a1, a2;
3022         char            c1, c2;
3023
3024
3025         /* Access the chars */
3026         c1 = r_ptr->d_char;
3027         c2 = r_ptr->x_char;
3028
3029         /* Access the attrs */
3030         a1 = r_ptr->d_attr;
3031         a2 = r_ptr->x_attr;
3032
3033
3034         /* Clear the top line */
3035         Term_erase(0, 0, 255);
3036
3037         /* Reset the cursor */
3038         Term_gotoxy(0, 0);
3039
3040 #ifndef JP
3041         /* A title (use "The" for non-uniques) */
3042         if (!(r_ptr->flags1 & RF1_UNIQUE))
3043         {
3044                 Term_addstr(-1, TERM_WHITE, "The ");
3045         }
3046 #endif
3047
3048         /* Dump the name */
3049         Term_addstr(-1, TERM_WHITE, (r_name + r_ptr->name));
3050
3051         /* Append the "standard" attr/char info */
3052         Term_addstr(-1, TERM_WHITE, " ('");
3053         Term_add_bigch(a1, c1);
3054         Term_addstr(-1, TERM_WHITE, "')");
3055
3056         /* Append the "optional" attr/char info */
3057         Term_addstr(-1, TERM_WHITE, "/('");
3058         Term_add_bigch(a2, c2);
3059         Term_addstr(-1, TERM_WHITE, "'):");
3060
3061         /* Wizards get extra info */
3062         if (p_ptr->wizard)
3063         {
3064                 char buf[6];
3065
3066                 sprintf(buf, "%d", r_idx);
3067
3068                 Term_addstr(-1, TERM_WHITE, " (");
3069                 Term_addstr(-1, TERM_L_BLUE, buf);
3070                 Term_addch(TERM_WHITE, ')');
3071         }
3072 }
3073
3074
3075
3076 /*
3077  * Hack -- describe the given monster race at the top of the screen
3078  */
3079 void screen_roff(int r_idx, int mode)
3080 {
3081         /* Flush messages */
3082         msg_print(NULL);
3083
3084         /* Begin recall */
3085         Term_erase(0, 1, 255);
3086
3087         hook_c_roff = c_roff;
3088
3089         /* Recall monster */
3090         roff_aux(r_idx, mode);
3091
3092         /* Describe monster */
3093         roff_top(r_idx);
3094 }
3095
3096
3097
3098
3099 /*
3100  * Hack -- describe the given monster race in the current "term" window
3101  */
3102 void display_roff(int r_idx)
3103 {
3104         int y;
3105
3106         /* Erase the window */
3107         for (y = 0; y < Term->hgt; y++)
3108         {
3109                 /* Erase the line */
3110                 Term_erase(0, y, 255);
3111         }
3112
3113         /* Begin recall */
3114         Term_gotoxy(0, 1);
3115
3116         hook_c_roff = c_roff;
3117
3118         /* Recall monster */
3119         roff_aux(r_idx, 0);
3120
3121         /* Describe monster */
3122         roff_top(r_idx);
3123 }
3124
3125
3126
3127 /*
3128  * Hack -- output description of the given monster race
3129  */
3130 void output_monster_spoiler(int r_idx, void (*roff_func)(byte attr, cptr str))
3131 {
3132         hook_c_roff = roff_func;
3133
3134         /* Recall monster */
3135         roff_aux(r_idx, 0x03);
3136 }
3137
3138
3139 bool mon_hook_dungeon(int r_idx)
3140 {
3141         monster_race *r_ptr = &r_info[r_idx];
3142
3143         if (!(r_ptr->flags8 & RF8_WILD_ONLY))
3144                 return TRUE;
3145         else
3146         {
3147                 dungeon_info_type *d_ptr = &d_info[dungeon_type];
3148                 if ((d_ptr->mflags8 & RF8_WILD_MOUNTAIN) &&
3149                     (r_ptr->flags8 & RF8_WILD_MOUNTAIN)) return TRUE;
3150                 return FALSE;
3151         }
3152 }
3153
3154
3155 static bool mon_hook_ocean(int r_idx)
3156 {
3157         monster_race *r_ptr = &r_info[r_idx];
3158
3159         if (r_ptr->flags8 & RF8_WILD_OCEAN)
3160                 return TRUE;
3161         else
3162                 return FALSE;
3163 }
3164
3165
3166 static bool mon_hook_shore(int r_idx)
3167 {
3168         monster_race *r_ptr = &r_info[r_idx];
3169
3170         if (r_ptr->flags8 & RF8_WILD_SHORE)
3171                 return TRUE;
3172         else
3173                 return FALSE;
3174 }
3175
3176
3177 static bool mon_hook_waste(int r_idx)
3178 {
3179         monster_race *r_ptr = &r_info[r_idx];
3180
3181         if (r_ptr->flags8 & (RF8_WILD_WASTE | RF8_WILD_ALL))
3182                 return TRUE;
3183         else
3184                 return FALSE;
3185 }
3186
3187
3188 static bool mon_hook_town(int r_idx)
3189 {
3190         monster_race *r_ptr = &r_info[r_idx];
3191
3192         if (r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
3193                 return TRUE;
3194         else
3195                 return FALSE;
3196 }
3197
3198
3199 static bool mon_hook_wood(int r_idx)
3200 {
3201         monster_race *r_ptr = &r_info[r_idx];
3202
3203         if (r_ptr->flags8 & (RF8_WILD_WOOD | RF8_WILD_ALL))
3204                 return TRUE;
3205         else
3206                 return FALSE;
3207 }
3208
3209
3210 static bool mon_hook_volcano(int r_idx)
3211 {
3212         monster_race *r_ptr = &r_info[r_idx];
3213
3214         if (r_ptr->flags8 & RF8_WILD_VOLCANO)
3215                 return TRUE;
3216         else
3217                 return FALSE;
3218 }
3219
3220
3221 static bool mon_hook_mountain(int r_idx)
3222 {
3223         monster_race *r_ptr = &r_info[r_idx];
3224
3225         if (r_ptr->flags8 & RF8_WILD_MOUNTAIN)
3226                 return TRUE;
3227         else
3228                 return FALSE;
3229 }
3230
3231
3232 static bool mon_hook_grass(int r_idx)
3233 {
3234         monster_race *r_ptr = &r_info[r_idx];
3235
3236         if (r_ptr->flags8 & (RF8_WILD_GRASS | RF8_WILD_ALL))
3237                 return TRUE;
3238         else
3239                 return FALSE;
3240 }
3241
3242
3243 static bool mon_hook_deep_water(int r_idx)
3244 {
3245         monster_race *r_ptr = &r_info[r_idx];
3246
3247         if (!mon_hook_dungeon(r_idx)) return FALSE;
3248
3249         if (r_ptr->flags7 & RF7_AQUATIC)
3250                 return TRUE;
3251         else
3252                 return FALSE;
3253 }
3254
3255
3256 static bool mon_hook_shallow_water(int r_idx)
3257 {
3258         monster_race *r_ptr = &r_info[r_idx];
3259
3260         if (!mon_hook_dungeon(r_idx)) return FALSE;
3261
3262         if (r_ptr->flags2 & RF2_AURA_FIRE)
3263                 return FALSE;
3264         else
3265                 return TRUE;
3266 }
3267
3268
3269 static bool mon_hook_lava(int r_idx)
3270 {
3271         monster_race *r_ptr = &r_info[r_idx];
3272
3273         if (!mon_hook_dungeon(r_idx)) return FALSE;
3274
3275         if (((r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK) ||
3276              (r_ptr->flags7 & RF7_CAN_FLY)) &&
3277             !(r_ptr->flags3 & RF3_AURA_COLD))
3278                 return TRUE;
3279         else
3280                 return FALSE;
3281 }
3282
3283
3284 static bool mon_hook_floor(int r_idx)
3285 {
3286         monster_race *r_ptr = &r_info[r_idx];
3287
3288         if (!(r_ptr->flags7 & RF7_AQUATIC) ||
3289             (r_ptr->flags7 & RF7_CAN_FLY))
3290                 return TRUE;
3291         else
3292                 return FALSE;
3293 }
3294
3295
3296 monster_hook_type get_monster_hook(void)
3297 {
3298         if (!dun_level && !p_ptr->inside_quest)
3299         {
3300                 switch (wilderness[p_ptr->wilderness_y][p_ptr->wilderness_x].terrain)
3301                 {
3302                 case TERRAIN_TOWN:
3303                         return (monster_hook_type)mon_hook_town;
3304                 case TERRAIN_DEEP_WATER:
3305                         return (monster_hook_type)mon_hook_ocean;
3306                 case TERRAIN_SHALLOW_WATER:
3307                 case TERRAIN_SWAMP:
3308                         return (monster_hook_type)mon_hook_shore;
3309                 case TERRAIN_DIRT:
3310                 case TERRAIN_DESERT:
3311                         return (monster_hook_type)mon_hook_waste;
3312                 case TERRAIN_GRASS:
3313                         return (monster_hook_type)mon_hook_grass;
3314                 case TERRAIN_TREES:
3315                         return (monster_hook_type)mon_hook_wood;
3316                 case TERRAIN_SHALLOW_LAVA:
3317                 case TERRAIN_DEEP_LAVA:
3318                         return (monster_hook_type)mon_hook_volcano;
3319                 case TERRAIN_MOUNTAIN:
3320                         return (monster_hook_type)mon_hook_mountain;
3321                 default:
3322                         return (monster_hook_type)mon_hook_dungeon;
3323                 }
3324         }
3325         else
3326         {
3327                 return (monster_hook_type)mon_hook_dungeon;
3328         }
3329 }
3330
3331
3332 monster_hook_type get_monster_hook2(int y, int x)
3333 {
3334         feature_type *f_ptr = &f_info[cave[y][x].feat];
3335
3336         /* Set the monster list */
3337
3338         /* Water */
3339         if (have_flag(f_ptr->flags, FF_WATER))
3340         {
3341                 /* Deep water */
3342                 if (have_flag(f_ptr->flags, FF_DEEP))
3343                 {
3344                         return (monster_hook_type)mon_hook_deep_water;
3345                 }
3346
3347                 /* Shallow water */
3348                 else
3349                 {
3350                         return (monster_hook_type)mon_hook_shallow_water;
3351                 }
3352         }
3353
3354         /* Lava */
3355         else if (have_flag(f_ptr->flags, FF_LAVA))
3356         {
3357                 return (monster_hook_type)mon_hook_lava;
3358         }
3359
3360         else return (monster_hook_type)mon_hook_floor;
3361 }
3362
3363
3364 void set_friendly(monster_type *m_ptr)
3365 {
3366         m_ptr->smart |= SM_FRIENDLY;
3367 }
3368
3369 void set_pet(monster_type *m_ptr)
3370 {
3371         if (!is_pet(m_ptr)) check_pets_num_and_align(m_ptr, TRUE);
3372
3373         /* Check for quest completion */
3374         check_quest_completion(m_ptr);
3375
3376         m_ptr->smart |= SM_PET;
3377         if (!(r_info[m_ptr->r_idx].flags3 & (RF3_EVIL | RF3_GOOD)))
3378                 m_ptr->sub_align = SUB_ALIGN_NEUTRAL;
3379 }
3380
3381 /*
3382  * Makes the monster hostile towards the player
3383  */
3384 void set_hostile(monster_type *m_ptr)
3385 {
3386         if (p_ptr->inside_battle) return;
3387
3388         if (is_pet(m_ptr)) check_pets_num_and_align(m_ptr, FALSE);
3389
3390         m_ptr->smart &= ~SM_PET;
3391         m_ptr->smart &= ~SM_FRIENDLY;
3392 }
3393
3394
3395 /*
3396  * Anger the monster
3397  */
3398 void anger_monster(monster_type *m_ptr)
3399 {
3400         if (p_ptr->inside_battle) return;
3401         if (is_friendly(m_ptr))
3402         {
3403                 char m_name[80];
3404
3405                 monster_desc(m_name, m_ptr, 0);
3406 #ifdef JP
3407 msg_format("%^s¤ÏÅÜ¤Ã¤¿¡ª", m_name);
3408 #else
3409                 msg_format("%^s gets angry!", m_name);
3410 #endif
3411
3412                 set_hostile(m_ptr);
3413
3414                 chg_virtue(V_INDIVIDUALISM, 1);
3415                 chg_virtue(V_HONOUR, -1);
3416                 chg_virtue(V_JUSTICE, -1);
3417                 chg_virtue(V_COMPASSION, -1);
3418         }
3419 }
3420
3421
3422 /*
3423  * Check if monster can cross terrain
3424  */
3425 bool monster_can_cross_terrain(s16b feat, monster_race *r_ptr, u16b mode)
3426 {
3427         feature_type *f_ptr = &f_info[feat];
3428
3429         /* Pattern */
3430         if (have_flag(f_ptr->flags, FF_PATTERN))
3431         {
3432                 if (!(mode & CEM_RIDING))
3433                 {
3434                         if (!(r_ptr->flags7 & RF7_CAN_FLY)) return FALSE;
3435                 }
3436                 else
3437                 {
3438                         if (!(mode & CEM_P_CAN_ENTER_PATTERN)) return FALSE;
3439                 }
3440         }
3441
3442         /* "CAN" flags */
3443         if (have_flag(f_ptr->flags, FF_CAN_FLY) && (r_ptr->flags7 & RF7_CAN_FLY)) return TRUE;
3444         if (have_flag(f_ptr->flags, FF_CAN_SWIM) && (r_ptr->flags7 & RF7_CAN_SWIM)) return TRUE;
3445         if (have_flag(f_ptr->flags, FF_CAN_PASS))
3446         {
3447                 if ((r_ptr->flags2 & RF2_PASS_WALL) && (!(mode & CEM_RIDING) || p_ptr->pass_wall)) return TRUE;
3448         }
3449
3450         if (!have_flag(f_ptr->flags, FF_MOVE)) return FALSE;
3451
3452         /* Some monsters can walk on mountains */
3453         if (have_flag(f_ptr->flags, FF_MOUNTAIN) && (r_ptr->flags8 & RF8_WILD_MOUNTAIN)) return TRUE;
3454
3455         /* Water */
3456         if (have_flag(f_ptr->flags, FF_WATER))
3457         {
3458                 if (!(r_ptr->flags7 & RF7_AQUATIC))
3459                 {
3460                         /* Deep water */
3461                         if (have_flag(f_ptr->flags, FF_DEEP)) return FALSE;
3462
3463                         /* Shallow water */
3464                         else if (r_ptr->flags2 & RF2_AURA_FIRE) return FALSE;
3465                 }
3466         }
3467
3468         /* Aquatic monster into non-water? */
3469         else if (r_ptr->flags7 & RF7_AQUATIC) return FALSE;
3470
3471         /* Lava */
3472         if (have_flag(f_ptr->flags, FF_LAVA))
3473         {
3474                 if (!(r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK)) return FALSE;
3475         }
3476
3477         return TRUE;
3478 }
3479
3480
3481 /*
3482  * Strictly check if monster can enter the grid
3483  */
3484 bool monster_can_enter(int y, int x, monster_race *r_ptr, u16b mode)
3485 {
3486         cave_type *c_ptr = &cave[y][x];
3487
3488         /* Player or other monster */
3489         if (player_bold(y, x)) return FALSE;
3490         if (c_ptr->m_idx) return FALSE;
3491
3492         return monster_can_cross_terrain(c_ptr->feat, r_ptr, mode);
3493 }
3494
3495
3496 /*
3497  * Check if this monster has "hostile" alignment (aux)
3498  */
3499 static bool check_hostile_align(byte sub_align1, byte sub_align2)
3500 {
3501         if (sub_align1 != sub_align2)
3502         {
3503                 if (((sub_align1 & SUB_ALIGN_EVIL) && (sub_align2 & SUB_ALIGN_GOOD)) ||
3504                         ((sub_align1 & SUB_ALIGN_GOOD) && (sub_align2 & SUB_ALIGN_EVIL)))
3505                         return TRUE;
3506         }
3507
3508         /* Non-hostile alignment */
3509         return FALSE;
3510 }
3511
3512
3513 /*
3514  * Check if two monsters are enemies
3515  */
3516 bool are_enemies(monster_type *m_ptr, monster_type *n_ptr)
3517 {
3518         monster_race *r_ptr = &r_info[m_ptr->r_idx];
3519         monster_race *s_ptr = &r_info[n_ptr->r_idx];
3520
3521         if (p_ptr->inside_battle)
3522         {
3523                 if (is_pet(m_ptr) || is_pet(n_ptr)) return FALSE;
3524                 return TRUE;
3525         }
3526
3527         if ((r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
3528             && (s_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL)))
3529         {
3530                 if (!is_pet(m_ptr) && !is_pet(n_ptr)) return FALSE;
3531         }
3532
3533         /* Friendly vs. opposite aligned normal or pet */
3534         if (check_hostile_align(m_ptr->sub_align, n_ptr->sub_align))
3535         {
3536                 if (!(m_ptr->mflag2 & MFLAG2_CHAMELEON) || !(n_ptr->mflag2 & MFLAG2_CHAMELEON)) return TRUE;
3537         }
3538
3539         /* Hostile vs. non-hostile */
3540         if (is_hostile(m_ptr) != is_hostile(n_ptr))
3541         {
3542                 return TRUE;
3543         }
3544
3545         /* Default */
3546         return FALSE;
3547 }
3548
3549
3550 /*
3551  * Check if this monster race has "hostile" alignment
3552  * If user is player, m_ptr == NULL.
3553  */
3554 bool monster_has_hostile_align(monster_type *m_ptr, int pa_good, int pa_evil, monster_race *r_ptr)
3555 {
3556         byte sub_align1 = SUB_ALIGN_NEUTRAL;
3557         byte sub_align2 = SUB_ALIGN_NEUTRAL;
3558
3559         if (m_ptr) /* For a monster */
3560         {
3561                 sub_align1 = m_ptr->sub_align;
3562         }
3563         else /* For player */
3564         {
3565                 if (p_ptr->align >= pa_good) sub_align1 |= SUB_ALIGN_GOOD;
3566                 if (p_ptr->align <= pa_evil) sub_align1 |= SUB_ALIGN_EVIL;
3567         }
3568
3569         /* Racial alignment flags */
3570         if (r_ptr->flags3 & RF3_EVIL) sub_align2 |= SUB_ALIGN_EVIL;
3571         if (r_ptr->flags3 & RF3_GOOD) sub_align2 |= SUB_ALIGN_GOOD;
3572
3573         if (check_hostile_align(sub_align1, sub_align2)) return TRUE;
3574
3575         /* Non-hostile alignment */
3576         return FALSE;
3577 }
3578
3579
3580 /*
3581  * Is the monster "alive"?
3582  *
3583  * Used to determine the message to print for a killed monster.
3584  * ("dies", "destroyed")
3585  */
3586 bool monster_living(monster_race *r_ptr)
3587 {
3588         /* Non-living, undead, or demon */
3589         if (r_ptr->flags3 & (RF3_DEMON | RF3_UNDEAD | RF3_NONLIVING))
3590                 return FALSE;
3591         else
3592                 return TRUE;
3593 }
3594
3595
3596 /*
3597  * Is this monster declined to be questor or bounty?
3598  */
3599 bool no_questor_or_bounty_uniques(int r_idx)
3600 {
3601         switch (r_idx)
3602         {
3603         /*
3604          * Decline them to be questor or bounty because they use
3605          * special motion "split and combine"
3606          */
3607         case MON_BANORLUPART:
3608         case MON_BANOR:
3609         case MON_LUPART:
3610                 return TRUE;
3611         default:
3612                 return FALSE;
3613         }
3614 }