OSDN Git Service

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