OSDN Git Service

(root) / hengband / hengband.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
BCC++ 5.5.1で警告封じオプション -w- を外した場合のコンパイル警告の除去.
[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 #ifdef JP
1478 if (flags6 & (RF6_DARKNESS))        {if ((p_ptr->pclass != CLASS_NINJA) || (flags3 & (RF3_UNDEAD | RF3_HURT_LITE))) {vp[vn] =  "°Å°Ç";color[vn++] = TERM_L_DARK;} else { vp[vn] = "Á®¸÷";color[vn++] = TERM_YELLOW;}}
1479 #else
1480 if (flags6 & (RF6_DARKNESS))        {vp[vn] = ((p_ptr->pclass != CLASS_NINJA) || (flags3 & (RF3_UNDEAD | RF3_HURT_LITE))) ? "create darkness" : "create light";color[vn++] = TERM_L_DARK;}
1481 #endif
1482
1483 #ifdef JP
1484 if (flags6 & (RF6_TRAPS))           {vp[vn] = "¥È¥é¥Ã¥×";color[vn++] = TERM_BLUE;}
1485 #else
1486         if (flags6 & (RF6_TRAPS))           {vp[vn] = "create traps";color[vn++] = TERM_BLUE;}
1487 #endif
1488
1489 #ifdef JP
1490 if (flags6 & (RF6_FORGET))          {vp[vn] = "µ­²±¾Ãµî";color[vn++] = TERM_BLUE;}
1491 #else
1492         if (flags6 & (RF6_FORGET))          {vp[vn] = "cause amnesia";color[vn++] = TERM_BLUE;}
1493 #endif
1494
1495 #ifdef JP
1496 if (flags6 & (RF6_RAISE_DEAD))      {vp[vn] = "»à¼ÔÉü³è";color[vn++] = TERM_RED;}
1497 #else
1498         if (flags6 & (RF6_RAISE_DEAD))      {vp[vn] = "raise dead";color[vn++] = TERM_RED;}
1499 #endif
1500
1501 #ifdef JP
1502 if (flags6 & (RF6_S_MONSTER))       {vp[vn] = "¥â¥ó¥¹¥¿¡¼°ìÂξ¤´­";color[vn++] = TERM_SLATE;}
1503 #else
1504         if (flags6 & (RF6_S_MONSTER))       {vp[vn] = "summon a monster";color[vn++] = TERM_SLATE;}
1505 #endif
1506
1507 #ifdef JP
1508 if (flags6 & (RF6_S_MONSTERS))      {vp[vn] = "¥â¥ó¥¹¥¿¡¼Ê£¿ô¾¤´­";color[vn++] = TERM_L_WHITE;}
1509 #else
1510         if (flags6 & (RF6_S_MONSTERS))      {vp[vn] = "summon monsters";color[vn++] = TERM_L_WHITE;}
1511 #endif
1512
1513 #ifdef JP
1514 if (flags6 & (RF6_S_KIN))           {vp[vn] = "µß±ç¾¤´­";color[vn++] = TERM_ORANGE;}
1515 #else
1516         if (flags6 & (RF6_S_KIN))           {vp[vn] = "summon aid";color[vn++] = TERM_ORANGE;}
1517 #endif
1518
1519 #ifdef JP
1520 if (flags6 & (RF6_S_ANT))           {vp[vn] = "¥¢¥ê¾¤´­";color[vn++] = TERM_RED;}
1521 #else
1522         if (flags6 & (RF6_S_ANT))           {vp[vn] = "summon ants";color[vn++] = TERM_RED;}
1523 #endif
1524
1525 #ifdef JP
1526 if (flags6 & (RF6_S_SPIDER))        {vp[vn] = "¥¯¥â¾¤´­";color[vn++] = TERM_L_DARK;}
1527 #else
1528         if (flags6 & (RF6_S_SPIDER))        {vp[vn] = "summon spiders";color[vn++] = TERM_L_DARK;}
1529 #endif
1530
1531 #ifdef JP
1532 if (flags6 & (RF6_S_HOUND))         {vp[vn] = "¥Ï¥¦¥ó¥É¾¤´­";color[vn++] = TERM_L_UMBER;}
1533 #else
1534         if (flags6 & (RF6_S_HOUND))         {vp[vn] = "summon hounds";color[vn++] = TERM_L_UMBER;}
1535 #endif
1536
1537 #ifdef JP
1538 if (flags6 & (RF6_S_HYDRA))         {vp[vn] = "¥Ò¥É¥é¾¤´­";color[vn++] = TERM_L_GREEN;}
1539 #else
1540         if (flags6 & (RF6_S_HYDRA))         {vp[vn] = "summon hydras";color[vn++] = TERM_L_GREEN;}
1541 #endif
1542
1543 #ifdef JP
1544 if (flags6 & (RF6_S_ANGEL))         {vp[vn] = "Å·»È°ìÂξ¤´­";color[vn++] = TERM_YELLOW;}
1545 #else
1546         if (flags6 & (RF6_S_ANGEL))         {vp[vn] = "summon an angel";color[vn++] = TERM_YELLOW;}
1547 #endif
1548
1549 #ifdef JP
1550 if (flags6 & (RF6_S_DEMON))         {vp[vn] = "¥Ç¡¼¥â¥ó°ìÂξ¤´­";color[vn++] = TERM_L_RED;}
1551 #else
1552         if (flags6 & (RF6_S_DEMON))         {vp[vn] = "summon a demon";color[vn++] = TERM_L_RED;}
1553 #endif
1554
1555 #ifdef JP
1556 if (flags6 & (RF6_S_UNDEAD))        {vp[vn] = "¥¢¥ó¥Ç¥Ã¥É°ìÂξ¤´­";color[vn++] = TERM_L_DARK;}
1557 #else
1558         if (flags6 & (RF6_S_UNDEAD))        {vp[vn] = "summon an undead";color[vn++] = TERM_L_DARK;}
1559 #endif
1560
1561 #ifdef JP
1562 if (flags6 & (RF6_S_DRAGON))        {vp[vn] = "¥É¥é¥´¥ó°ìÂξ¤´­";color[vn++] = TERM_ORANGE;}
1563 #else
1564         if (flags6 & (RF6_S_DRAGON))        {vp[vn] = "summon a dragon";color[vn++] = TERM_ORANGE;}
1565 #endif
1566
1567 #ifdef JP
1568 if (flags6 & (RF6_S_HI_UNDEAD))     {vp[vn] = "¶¯ÎϤʥ¢¥ó¥Ç¥Ã¥É¾¤´­";color[vn++] = TERM_L_DARK;}
1569 #else
1570         if (flags6 & (RF6_S_HI_UNDEAD))     {vp[vn] = "summon Greater Undead";color[vn++] = TERM_L_DARK;}
1571 #endif
1572
1573 #ifdef JP
1574 if (flags6 & (RF6_S_HI_DRAGON))     {vp[vn] = "¸ÅÂå¥É¥é¥´¥ó¾¤´­";color[vn++] = TERM_ORANGE;}
1575 #else
1576         if (flags6 & (RF6_S_HI_DRAGON))     {vp[vn] = "summon Ancient Dragons";color[vn++] = TERM_ORANGE;}
1577 #endif
1578
1579 #ifdef JP
1580 if (flags6 & (RF6_S_CYBER))         {vp[vn] = "¥µ¥¤¥Ð¡¼¥Ç¡¼¥â¥ó¾¤´­";color[vn++] = TERM_UMBER;}
1581 #else
1582         if (flags6 & (RF6_S_CYBER))         {vp[vn] = "summon Cyberdemons";color[vn++] = TERM_UMBER;}
1583 #endif
1584
1585 #ifdef JP
1586 if (flags6 & (RF6_S_AMBERITES))     {vp[vn] = "¥¢¥ó¥Ð¡¼¤Î²¦Â²¾¤´­";color[vn++] = TERM_VIOLET;}
1587 #else
1588         if (flags6 & (RF6_S_AMBERITES))     {vp[vn] = "summon Lords of Amber";color[vn++] = TERM_VIOLET;}
1589 #endif
1590
1591 #ifdef JP
1592 if (flags6 & (RF6_S_UNIQUE))        {vp[vn] = "¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¾¤´­";color[vn++] = TERM_VIOLET;}
1593 #else
1594         if (flags6 & (RF6_S_UNIQUE))        {vp[vn] = "summon Unique Monsters";color[vn++] = TERM_VIOLET;}
1595 #endif
1596
1597
1598         /* Describe spells */
1599         if (vn)
1600         {
1601                 /* Note magic */
1602                 magic = TRUE;
1603
1604                 /* Intro */
1605                 if (breath)
1606                 {
1607 #ifdef JP
1608                         hooked_roff("¡¢¤Ê¤ª¤«¤Ä");
1609 #else
1610                         hooked_roff(", and is also");
1611 #endif
1612
1613                 }
1614                 else
1615                 {
1616 #ifdef JP
1617                         hooked_roff(format("%^s¤Ï", wd_he[msex]));
1618 #else
1619                         hooked_roff(format("%^s is", wd_he[msex]));
1620 #endif
1621
1622                 }
1623
1624 #ifdef JP
1625                 /* Adverb */
1626                 if (flags2 & (RF2_SMART)) hook_c_roff(TERM_YELLOW, "Ū³Î¤Ë");
1627
1628                 /* Verb Phrase */
1629                 hooked_roff("ËâË¡¤ò»È¤¦¤³¤È¤¬¤Ç¤­¡¢");
1630 #else
1631                 /* Verb Phrase */
1632                 hooked_roff(" magical, casting spells");
1633
1634                 /* Adverb */
1635                 if (flags2 & RF2_SMART) hook_c_roff(TERM_YELLOW, " intelligently");
1636 #endif
1637
1638
1639                 /* Scan */
1640                 for (n = 0; n < vn; n++)
1641                 {
1642                         /* Intro */
1643 #ifdef JP
1644                         if ( n != 0 ) hooked_roff("¡¢");
1645 #else
1646                         if (n == 0) hooked_roff(" which ");
1647                         else if (n < vn-1) hooked_roff(", ");
1648                         else hooked_roff(" or ");
1649 #endif
1650
1651
1652                         /* Dump */
1653                         hook_c_roff(color[n], vp[n]);
1654                 }
1655 #ifdef JP
1656                 hooked_roff("¤Î¼öʸ¤ò¾§¤¨¤ë¤³¤È¤¬¤¢¤ë");
1657 #endif
1658         }
1659
1660
1661         /* End the sentence about inate/other spells */
1662         if (breath || magic)
1663         {
1664                 /* Total casting */
1665                 m = r_ptr->r_cast_spell;
1666
1667                 /* Average frequency */
1668                 n = r_ptr->freq_spell;
1669
1670                 /* Describe the spell frequency */
1671                 if (m > 100 || know_everything)
1672                 {
1673 #ifdef JP
1674                         hooked_roff(format("(³ÎΨ:1/%d)", 100 / n));
1675 #else
1676                         hooked_roff(format("; 1 time in %d", 100 / n));
1677 #endif
1678
1679                 }
1680
1681                 /* Guess at the frequency */
1682                 else if (m)
1683                 {
1684                         n = ((n + 9) / 10) * 10;
1685 #ifdef JP
1686                         hooked_roff(format("(³ÎΨ:Ìó1/%d)", 100 / n));
1687 #else
1688                         hooked_roff(format("; about 1 time in %d", 100 / n));
1689 #endif
1690
1691                 }
1692
1693                 /* End this sentence */
1694 #ifdef JP
1695                 hooked_roff("¡£");
1696 #else
1697                 hooked_roff(".  ");
1698 #endif
1699
1700         }
1701
1702         /* Describe monster "toughness" */
1703         if (know_armour(r_idx))
1704         {
1705                 /* Armor */
1706 #ifdef JP
1707                 hooked_roff(format("%^s¤Ï AC%d ¤ÎËɸæÎϤÈ",
1708 #else
1709                 hooked_roff(format("%^s has an armor rating of %d",
1710 #endif
1711
1712                             wd_he[msex], r_ptr->ac));
1713
1714                 /* Maximized hitpoints */
1715                 if (flags1 & RF1_FORCE_MAXHP)
1716                 {
1717 #ifdef JP
1718                         hooked_roff(format(" %d ¤ÎÂÎÎϤ¬¤¢¤ë¡£",
1719 #else
1720                         hooked_roff(format(" and a life rating of %d.  ",
1721 #endif
1722
1723                                     r_ptr->hdice * r_ptr->hside));
1724                 }
1725
1726                 /* Variable hitpoints */
1727                 else
1728                 {
1729 #ifdef JP
1730                         hooked_roff(format(" %dd%d ¤ÎÂÎÎϤ¬¤¢¤ë¡£",
1731 #else
1732                         hooked_roff(format(" and a life rating of %dd%d.  ",
1733 #endif
1734
1735                                     r_ptr->hdice, r_ptr->hside));
1736                 }
1737         }
1738
1739
1740
1741         /* Collect special abilities. */
1742         vn = 0;
1743 #ifdef JP
1744 if (flags7 & (RF7_HAS_LITE_1 | RF7_HAS_LITE_2)) vp[vn++] = "¥À¥ó¥¸¥ç¥ó¤ò¾È¤é¤¹";
1745 #else
1746         if (flags7 & (RF7_HAS_LITE_1 | RF7_HAS_LITE_2)) vp[vn++] = "illuminate the dungeon";
1747 #endif
1748
1749 #ifdef JP
1750 if (flags2 & RF2_OPEN_DOOR) vp[vn++] = "¥É¥¢¤ò³«¤±¤ë";
1751 #else
1752         if (flags2 & RF2_OPEN_DOOR) vp[vn++] = "open doors";
1753 #endif
1754
1755 #ifdef JP
1756 if (flags2 & RF2_BASH_DOOR) vp[vn++] = "¥É¥¢¤òÂǤÁÇˤë";
1757 #else
1758         if (flags2 & RF2_BASH_DOOR) vp[vn++] = "bash down doors";
1759 #endif
1760
1761 #ifdef JP
1762 if (flags2 & RF2_PASS_WALL) vp[vn++] = "Êɤò¤¹¤êÈ´¤±¤ë";
1763 #else
1764         if (flags2 & RF2_PASS_WALL) vp[vn++] = "pass through walls";
1765 #endif
1766
1767 #ifdef JP
1768 if (flags2 & RF2_KILL_WALL) vp[vn++] = "Êɤò·¡¤ê¿Ê¤à";
1769 #else
1770         if (flags2 & RF2_KILL_WALL) vp[vn++] = "bore through walls";
1771 #endif
1772
1773 #ifdef JP
1774 if (flags2 & RF2_MOVE_BODY) vp[vn++] = "¼å¤¤¥â¥ó¥¹¥¿¡¼¤ò²¡¤·¤Î¤±¤ë";
1775 #else
1776         if (flags2 & RF2_MOVE_BODY) vp[vn++] = "push past weaker monsters";
1777 #endif
1778
1779 #ifdef JP
1780 if (flags2 & RF2_KILL_BODY) vp[vn++] = "¼å¤¤¥â¥ó¥¹¥¿¡¼¤òÅݤ¹";
1781 #else
1782         if (flags2 & RF2_KILL_BODY) vp[vn++] = "destroy weaker monsters";
1783 #endif
1784
1785 #ifdef JP
1786 if (flags2 & RF2_TAKE_ITEM) vp[vn++] = "¥¢¥¤¥Æ¥à¤ò½¦¤¦";
1787 #else
1788         if (flags2 & RF2_TAKE_ITEM) vp[vn++] = "pick up objects";
1789 #endif
1790
1791 #ifdef JP
1792 if (flags2 & RF2_KILL_ITEM) vp[vn++] = "¥¢¥¤¥Æ¥à¤ò²õ¤¹";
1793 #else
1794         if (flags2 & RF2_KILL_ITEM) vp[vn++] = "destroy objects";
1795 #endif
1796
1797
1798         /* Describe special abilities. */
1799         if (vn)
1800         {
1801                 /* Intro */
1802 #ifdef JP
1803                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
1804 #else
1805                 hooked_roff(format("%^s", wd_he[msex]));
1806 #endif
1807
1808
1809                 /* Scan */
1810                 for (n = 0; n < vn; n++)
1811                 {
1812                         /* Intro */
1813 #ifdef JP
1814                         if(n!=vn-1){
1815                           jverb(vp[n],jverb_buf,JVERB_AND);
1816                           hooked_roff(jverb_buf);
1817                           hooked_roff("¡¢");
1818                         }
1819                         else  hooked_roff(vp[n]);
1820 #else
1821                         if (n == 0) hooked_roff(" can ");
1822                         else if (n < vn-1) hooked_roff(", ");
1823                         else hooked_roff(" and ");
1824
1825                         /* Dump */
1826                         hooked_roff(vp[n]);
1827 #endif
1828
1829                 }
1830
1831                 /* End */
1832 #ifdef JP
1833                 hooked_roff("¤³¤È¤¬¤Ç¤­¤ë¡£");
1834 #else
1835                 hooked_roff(".  ");
1836 #endif
1837
1838         }
1839
1840
1841         /* Describe special abilities. */
1842         if (flags7 & (RF7_SELF_LITE_1 | RF7_SELF_LITE_2))
1843         {
1844 #ifdef JP
1845                 hooked_roff(format("%^s¤Ï¸÷¤Ã¤Æ¤¤¤ë¡£", wd_he[msex]));
1846 #else
1847                 hooked_roff(format("%^s illuminate the dungeon.  ", wd_he[msex]));
1848 #endif
1849
1850         }
1851         if (flags2 & RF2_INVISIBLE)
1852         {
1853 #ifdef JP
1854                 hooked_roff(format("%^s¤ÏÆ©ÌÀ¤ÇÌܤ˸«¤¨¤Ê¤¤¡£", wd_he[msex]));
1855 #else
1856                 hooked_roff(format("%^s is invisible.  ", wd_he[msex]));
1857 #endif
1858
1859         }
1860         if (flags2 & RF2_COLD_BLOOD)
1861         {
1862 #ifdef JP
1863                 hooked_roff(format("%^s¤ÏÎä·ìưʪ¤Ç¤¢¤ë¡£", wd_he[msex]));
1864 #else
1865                 hooked_roff(format("%^s is cold blooded.  ", wd_he[msex]));
1866 #endif
1867
1868         }
1869         if (flags2 & RF2_EMPTY_MIND)
1870         {
1871 #ifdef JP
1872                 hooked_roff(format("%^s¤Ï¥Æ¥ì¥Ñ¥·¡¼¤Ç¤Ï´¶ÃΤǤ­¤Ê¤¤¡£", wd_he[msex]));
1873 #else
1874                 hooked_roff(format("%^s is not detected by telepathy.  ", wd_he[msex]));
1875 #endif
1876
1877         }
1878         else if (flags2 & RF2_WEIRD_MIND)
1879         {
1880 #ifdef JP
1881                 hooked_roff(format("%^s¤Ï¤Þ¤ì¤Ë¥Æ¥ì¥Ñ¥·¡¼¤Ç´¶ÃΤǤ­¤ë¡£", wd_he[msex]));
1882 #else
1883                 hooked_roff(format("%^s is rarely detected by telepathy.  ", wd_he[msex]));
1884 #endif
1885
1886         }
1887         if (flags2 & RF2_MULTIPLY)
1888         {
1889 #ifdef JP
1890                 hook_c_roff(TERM_L_UMBER, format("%^s¤ÏÇúȯŪ¤ËÁý¿£¤¹¤ë¡£", wd_he[msex]));
1891 #else
1892                 hook_c_roff(TERM_L_UMBER, format("%^s breeds explosively.  ", wd_he[msex]));
1893 #endif
1894
1895         }
1896         if (flags2 & RF2_REGENERATE)
1897         {
1898 #ifdef JP
1899                 hook_c_roff(TERM_L_WHITE, format("%^s¤ÏÁÇÁ᤯ÂÎÎϤò²óÉü¤¹¤ë¡£", wd_he[msex]));
1900 #else
1901                 hook_c_roff(TERM_L_WHITE, format("%^s regenerates quickly.  ", wd_he[msex]));
1902 #endif
1903
1904         }
1905         if (flags7 & RF7_RIDING)
1906         {
1907 #ifdef JP
1908                 hook_c_roff(TERM_SLATE, format("%^s¤Ë¾è¤ë¤³¤È¤¬¤Ç¤­¤ë¡£", wd_he[msex]));
1909 #else
1910                 hook_c_roff(TERM_SLATE, format("%^s is suitable for riding.  ", wd_he[msex]));
1911 #endif
1912
1913         }
1914
1915
1916         /* Collect susceptibilities */
1917         vn = 0;
1918 #ifdef JP
1919         if (flags3 & RF3_HURT_ROCK) {vp[vn] = "´ä¤ò½üµî¤¹¤ë¤â¤Î";color[vn++] = TERM_UMBER;}
1920 #else
1921         if (flags3 & RF3_HURT_ROCK) {vp[vn] = "rock remover";color[vn++] = TERM_UMBER;}
1922 #endif
1923
1924 #ifdef JP
1925         if (flags3 & RF3_HURT_LITE) {vp[vn] = "ÌÀ¤ë¤¤¸÷";color[vn++] = TERM_YELLOW;}
1926 #else
1927         if (flags3 & RF3_HURT_LITE) {vp[vn] = "bright light";color[vn++] = TERM_YELLOW;}
1928 #endif
1929
1930 #ifdef JP
1931         if (flags3 & RF3_HURT_FIRE) {vp[vn] = "±ê";color[vn++] = TERM_RED;}
1932 #else
1933         if (flags3 & RF3_HURT_FIRE) {vp[vn] = "fire";color[vn++] = TERM_RED;}
1934 #endif
1935
1936 #ifdef JP
1937         if (flags3 & RF3_HURT_COLD) {vp[vn] = "Î䵤";color[vn++] = TERM_L_WHITE;}
1938 #else
1939         if (flags3 & RF3_HURT_COLD) {vp[vn] = "cold";color[vn++] = TERM_L_WHITE;}
1940 #endif
1941
1942
1943         /* Describe susceptibilities */
1944         if (vn)
1945         {
1946                 /* Intro */
1947 #ifdef JP
1948                 hooked_roff(format("%^s¤Ë¤Ï", wd_he[msex]));
1949 #else
1950                 hooked_roff(format("%^s", wd_he[msex]));
1951 #endif
1952
1953
1954                 /* Scan */
1955                 for (n = 0; n < vn; n++)
1956                 {
1957                         /* Intro */
1958 #ifdef JP
1959                         if ( n != 0 ) hooked_roff("¤ä");
1960 #else
1961                         if (n == 0) hooked_roff(" is hurt by ");
1962                         else if (n < vn-1) hooked_roff(", ");
1963                         else hooked_roff(" and ");
1964 #endif
1965
1966
1967                         /* Dump */
1968                         hook_c_roff(color[n], vp[n]);
1969                 }
1970
1971                 /* End */
1972 #ifdef JP
1973                 hooked_roff("¤Ç¥À¥á¡¼¥¸¤òÍ¿¤¨¤é¤ì¤ë¡£");
1974 #else
1975                 hooked_roff(".  ");
1976 #endif
1977
1978         }
1979
1980
1981         /* Collect immunities */
1982         vn = 0;
1983 #ifdef JP
1984         if (flags3 & RF3_IM_ACID) {vp[vn] = "»À";color[vn++] = TERM_GREEN;}
1985 #else
1986         if (flags3 & RF3_IM_ACID) {vp[vn] = "acid";color[vn++] = TERM_GREEN;}
1987 #endif
1988
1989 #ifdef JP
1990         if (flags3 & RF3_IM_ELEC) {vp[vn] = "°ðºÊ";color[vn++] = TERM_BLUE;}
1991 #else
1992         if (flags3 & RF3_IM_ELEC) {vp[vn] = "lightning";color[vn++] = TERM_BLUE;}
1993 #endif
1994
1995 #ifdef JP
1996         if (flags3 & RF3_IM_FIRE) {vp[vn] = "±ê";color[vn++] = TERM_RED;}
1997 #else
1998         if (flags3 & RF3_IM_FIRE) {vp[vn] = "fire";color[vn++] = TERM_RED;}
1999 #endif
2000
2001 #ifdef JP
2002         if (flags3 & RF3_IM_COLD) {vp[vn] = "Î䵤";color[vn++] = TERM_L_WHITE;}
2003 #else
2004         if (flags3 & RF3_IM_COLD) {vp[vn] = "cold";color[vn++] = TERM_L_WHITE;}
2005 #endif
2006
2007 #ifdef JP
2008         if (flags3 & RF3_IM_POIS) {vp[vn] = "ÆÇ";color[vn++] = TERM_L_GREEN;}
2009 #else
2010         if (flags3 & RF3_IM_POIS) {vp[vn] = "poison";color[vn++] = TERM_L_GREEN;}
2011 #endif
2012
2013
2014         /* Describe immunities */
2015         if (vn)
2016         {
2017                 /* Intro */
2018 #ifdef JP
2019                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2020 #else
2021                 hooked_roff(format("%^s", wd_he[msex]));
2022 #endif
2023
2024
2025                 /* Scan */
2026                 for (n = 0; n < vn; n++)
2027                 {
2028                         /* Intro */
2029 #ifdef JP
2030                         if ( n != 0 ) hooked_roff("¤È");
2031 #else
2032                         if (n == 0) hooked_roff(" resists ");
2033                         else if (n < vn-1) hooked_roff(", ");
2034                         else hooked_roff(" and ");
2035 #endif
2036
2037
2038                         /* Dump */
2039                         hook_c_roff(color[n], vp[n]);
2040                 }
2041
2042                 /* End */
2043 #ifdef JP
2044                 hooked_roff("¤ÎÂÑÀ­¤ò»ý¤Ã¤Æ¤¤¤ë¡£");
2045 #else
2046                 hooked_roff(".  ");
2047 #endif
2048
2049         }
2050
2051
2052         /* Collect resistances */
2053         vn = 0;
2054 #ifdef JP
2055 if (flags4 & RF4_BR_LITE) {vp[vn] = "Á®¸÷";color[vn++] = TERM_YELLOW;}
2056 #else
2057  if (flags4 & RF4_BR_LITE) {vp[vn] = "light";color[vn++] = TERM_YELLOW;}
2058 #endif
2059
2060 #ifdef JP
2061 if ((flags4 & RF4_BR_DARK) || (flags3 & RF3_ORC)) {vp[vn] = "°Å¹õ";color[vn++] = TERM_L_DARK;}
2062 #else
2063  if (flags4 & RF4_BR_DARK  || (flags3 & RF3_ORC)) {vp[vn] = "dark";color[vn++] = TERM_L_DARK;}
2064 #endif
2065
2066 #ifdef JP
2067 if (flags3 & RF3_RES_NETH) {vp[vn] = "ÃϹö";color[vn++] = TERM_L_DARK;}
2068 #else
2069  if (flags3 & RF3_RES_NETH) {vp[vn] = "nether";color[vn++] = TERM_L_DARK;}
2070 #endif
2071
2072 #ifdef JP
2073 if (flags3 & RF3_RES_WATE) {vp[vn] = "¿å";color[vn++] = TERM_BLUE;}
2074 #else
2075 if (flags3 & RF3_RES_WATE) {vp[vn] = "water";color[vn++] = TERM_BLUE;}
2076 #endif
2077
2078 #ifdef JP
2079 if (flags3 & RF3_RES_PLAS) {vp[vn] = "¥×¥é¥º¥Þ";color[vn++] = TERM_L_RED;}
2080 #else
2081  if (flags3 & RF3_RES_PLAS) {vp[vn] = "plasma";color[vn++] = TERM_L_RED;}
2082 #endif
2083
2084 #ifdef JP
2085 if (flags4 & RF4_BR_SHAR) {vp[vn] = "ÇËÊÒ";color[vn++] = TERM_L_UMBER;}
2086 #else
2087  if (flags4 & RF4_BR_SHAR) {vp[vn] = "shards";color[vn++] = TERM_L_UMBER;}
2088 #endif
2089
2090 #ifdef JP
2091 if (flags4 & RF4_BR_SOUN) {vp[vn] = "¹ì²»";color[vn++] = TERM_ORANGE;}
2092 #else
2093  if (flags4 & RF4_BR_SOUN) {vp[vn] = "sound";color[vn++] = TERM_ORANGE;}
2094 #endif
2095
2096 #ifdef JP
2097 if (flags4 & RF4_BR_CONF) {vp[vn] = "º®Íð";color[vn++] = TERM_L_UMBER;}
2098 #else
2099  if (flags4 & RF4_BR_CONF) {vp[vn] = "conf";color[vn++] = TERM_L_UMBER;}
2100 #endif
2101
2102 #ifdef JP
2103 if ((flags4 & RF4_BR_CHAO) || (r_idx == MON_STORMBRINGER)) {vp[vn] = "¥«¥ª¥¹";color[vn++] = TERM_VIOLET;}
2104 #else
2105 if ((flags4 & RF4_BR_CHAO) || (r_idx == MON_STORMBRINGER)) {vp[vn] = "chaos";color[vn++] = TERM_VIOLET;}
2106 #endif
2107
2108 #ifdef JP
2109 if (flags3 & RF3_RES_NEXU) {vp[vn] = "°ø²Ìº®Íð";color[vn++] = TERM_VIOLET;}
2110 #else
2111  if (flags3 & RF3_RES_NEXU) {vp[vn] = "nexus";color[vn++] = TERM_VIOLET;}
2112 #endif
2113
2114 #ifdef JP
2115 if (flags3 & RF3_RES_DISE) {vp[vn] = "Îô²½";color[vn++] = TERM_VIOLET;}
2116 #else
2117  if (flags3 & RF3_RES_DISE) {vp[vn] = "disenchantment";color[vn++] = TERM_VIOLET;}
2118 #endif
2119
2120 #ifdef JP
2121 if (flags4 & RF4_BR_WALL) {vp[vn] = "¥Õ¥©¡¼¥¹";color[vn++] = TERM_UMBER;}
2122 #else
2123  if (flags4 & RF4_BR_WALL) {vp[vn] = "sound";color[vn++] = TERM_UMBER;}
2124 #endif
2125
2126 #ifdef JP
2127 if (flags4 & RF4_BR_INER) {vp[vn] = "ÃÙÆß";color[vn++] = TERM_SLATE;}
2128 #else
2129  if (flags4 & RF4_BR_INER) {vp[vn] = "inertia";color[vn++] = TERM_SLATE;}
2130 #endif
2131
2132 #ifdef JP
2133 if (flags4 & RF4_BR_TIME) {vp[vn] = "»þ´ÖµÕž";color[vn++] = TERM_L_BLUE;}
2134 #else
2135  if (flags4 & RF4_BR_TIME) {vp[vn] = "time";color[vn++] = TERM_L_BLUE;}
2136 #endif
2137
2138 #ifdef JP
2139 if (flags4 & RF4_BR_GRAV) {vp[vn] = "½ÅÎÏ";color[vn++] = TERM_SLATE;}
2140 #else
2141  if (flags4 & RF4_BR_GRAV) {vp[vn] = "gravity";color[vn++] = TERM_SLATE;}
2142 #endif
2143
2144 #ifdef JP
2145 if (flags3 & RF3_RES_ALL) {vp[vn] = "¤¢¤é¤æ¤ë¹¶·â";color[vn++] = TERM_YELLOW;}
2146 #else
2147  if (flags3 & RF3_RES_ALL) {vp[vn] = "all";color[vn++] = TERM_YELLOW;}
2148 #endif
2149
2150 #ifdef JP
2151 if ((flags3 & RF3_RES_TELE) && !(r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È";color[vn++] = TERM_ORANGE;}
2152 #else
2153  if ((flags3 & RF3_RES_TELE) && !(r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "teleportation";color[vn++] = TERM_ORANGE;}
2154 #endif
2155
2156
2157         /* Describe resistances */
2158         if (vn)
2159         {
2160                 /* Intro */
2161 #ifdef JP
2162                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2163 #else
2164                 hooked_roff(format("%^s", wd_he[msex]));
2165 #endif
2166
2167
2168                 /* Scan */
2169                 for (n = 0; n < vn; n++)
2170                 {
2171                         /* Intro */
2172 #ifdef JP
2173                         if ( n != 0 ) hooked_roff("¤È");
2174 #else
2175                         if (n == 0) hooked_roff(" resists ");
2176                         else if (n < vn-1) hooked_roff(", ");
2177                         else hooked_roff(" and ");
2178 #endif
2179
2180
2181                         /* Dump */
2182                         hook_c_roff(color[n], vp[n]);
2183                 }
2184
2185                 /* End */
2186 #ifdef JP
2187                 hooked_roff("¤ÎÂÑÀ­¤ò»ý¤Ã¤Æ¤¤¤ë¡£");
2188 #else
2189                 hooked_roff(".  ");
2190 #endif
2191
2192         }
2193
2194
2195         if ((r_ptr->r_xtra1 & MR1_SINKA) || know_everything)
2196         {
2197                 if (r_ptr->next_r_idx)
2198                 {
2199 #ifdef JP
2200                         hooked_roff(format("%^s¤Ï·Ð¸³¤òÀѤà¤È¡¢", wd_he[msex]));
2201 #else
2202                         hooked_roff(format("%^s will evolve into ", wd_he[msex]));
2203 #endif
2204                         hook_c_roff(TERM_YELLOW, format("%s", r_name+r_info[r_ptr->next_r_idx].name));
2205 #ifdef JP
2206                         hooked_roff(format("¤Ë¿Ê²½¤¹¤ë¡£"));
2207 #else
2208                         hooked_roff(format(" when %s gets enugh experience.  ", wd_he[msex]));
2209 #endif
2210                 }
2211                 else if (!(r_ptr->flags1 & RF1_UNIQUE))
2212                 {
2213 #ifdef JP
2214                         hooked_roff(format("%s¤Ï¿Ê²½¤·¤Ê¤¤¡£", wd_he[msex]));
2215 #else
2216                         hooked_roff(format("%s won't evolve.  ", wd_he[msex]));
2217 #endif
2218                 }
2219         }
2220
2221         /* Collect non-effects */
2222         vn = 0;
2223 #ifdef JP
2224 if (flags3 & RF3_NO_STUN)  {vp[vn] = "Û¯Û°¤È¤·¤Ê¤¤";color[vn++] = TERM_ORANGE;}
2225 #else
2226  if (flags3 & RF3_NO_STUN)  {vp[vn] = "stunned";color[vn++] = TERM_ORANGE;}
2227 #endif
2228
2229 #ifdef JP
2230 if (flags3 & RF3_NO_FEAR)  {vp[vn] = "¶²Éݤò´¶¤¸¤Ê¤¤";color[vn++] = TERM_SLATE;}
2231 #else
2232  if (flags3 & RF3_NO_FEAR)  {vp[vn] = "frightened";color[vn++] = TERM_SLATE;}
2233 #endif
2234
2235 #ifdef JP
2236 if (flags3 & RF3_NO_CONF)  {vp[vn] = "º®Í𤷤ʤ¤";color[vn++] = TERM_L_UMBER;}
2237 #else
2238  if (flags3 & RF3_NO_CONF)  {vp[vn] = "confused";color[vn++] = TERM_L_UMBER;}
2239 #endif
2240
2241 #ifdef JP
2242 if (flags3 & RF3_NO_SLEEP) {vp[vn] = "̲¤é¤µ¤ì¤Ê¤¤";color[vn++] = TERM_BLUE;}
2243 #else
2244  if (flags3 & RF3_NO_SLEEP) {vp[vn] = "slept";color[vn++] = TERM_BLUE;}
2245 #endif
2246
2247 #ifdef JP
2248 if ((flags3 & RF3_RES_TELE) && (r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "¥Æ¥ì¥Ý¡¼¥È¤µ¤ì¤Ê¤¤";color[vn++] = TERM_ORANGE;}
2249 #else
2250  if ((flags3 & RF3_RES_TELE) && (r_ptr->flags1 & RF1_UNIQUE)) {vp[vn] = "teleported";color[vn++] = TERM_ORANGE;}
2251 #endif
2252
2253         /* Describe non-effects */
2254         if (vn)
2255         {
2256                 /* Intro */
2257 #ifdef JP
2258                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2259 #else
2260                 hooked_roff(format("%^s", wd_he[msex]));
2261 #endif
2262
2263
2264                 /* Scan */
2265                 for (n = 0; n < vn; n++)
2266                 {
2267                         /* Intro */
2268 #ifdef JP
2269                         if ( n != 0 ) hooked_roff("¤·¡¢");
2270 #else
2271                         if (n == 0) hooked_roff(" cannot be ");
2272                         else if (n < vn - 1) hooked_roff(", ");
2273                         else hooked_roff(" or ");
2274 #endif
2275
2276
2277                         /* Dump */
2278                         hook_c_roff(color[n], vp[n]);
2279                 }
2280
2281                 /* End */
2282 #ifdef JP
2283                 hooked_roff("¡£");
2284 #else
2285                 hooked_roff(".  ");
2286 #endif
2287
2288         }
2289
2290
2291         /* Do we know how aware it is? */
2292         if ((((int)r_ptr->r_wake * (int)r_ptr->r_wake) > r_ptr->sleep) ||
2293                   (r_ptr->r_ignore == MAX_UCHAR) ||
2294             (r_ptr->sleep == 0 && r_ptr->r_tkills >= 10) || know_everything)
2295         {
2296                 cptr act;
2297
2298                 if (r_ptr->sleep > 200)
2299                 {
2300 #ifdef JP
2301                         act = "¤ò̵»ë¤·¤¬¤Á¤Ç¤¢¤ë¤¬";
2302 #else
2303                         act = "prefers to ignore";
2304 #endif
2305
2306                 }
2307                 else if (r_ptr->sleep > 95)
2308                 {
2309 #ifdef JP
2310                         act = "¤ËÂФ·¤Æ¤Û¤È¤ó¤ÉÃí°Õ¤òʧ¤ï¤Ê¤¤¤¬";
2311 #else
2312                         act = "pays very little attention to";
2313 #endif
2314
2315                 }
2316                 else if (r_ptr->sleep > 75)
2317                 {
2318 #ifdef JP
2319                         act = "¤ËÂФ·¤Æ¤¢¤Þ¤êÃí°Õ¤òʧ¤ï¤Ê¤¤¤¬";
2320 #else
2321                         act = "pays little attention to";
2322 #endif
2323
2324                 }
2325                 else if (r_ptr->sleep > 45)
2326                 {
2327 #ifdef JP
2328                         act = "¤ò¸«²á¤´¤·¤¬¤Á¤Ç¤¢¤ë¤¬";
2329 #else
2330                         act = "tends to overlook";
2331 #endif
2332
2333                 }
2334                 else if (r_ptr->sleep > 25)
2335                 {
2336 #ifdef JP
2337                         act = "¤ò¤Û¤ó¤Î¾¯¤·¤Ï¸«¤Æ¤ª¤ê";
2338 #else
2339                         act = "takes quite a while to see";
2340 #endif
2341
2342                 }
2343                 else if (r_ptr->sleep > 10)
2344                 {
2345 #ifdef JP
2346                         act = "¤ò¤·¤Ð¤é¤¯¤Ï¸«¤Æ¤ª¤ê";
2347 #else
2348                         act = "takes a while to see";
2349 #endif
2350
2351                 }
2352                 else if (r_ptr->sleep > 5)
2353                 {
2354 #ifdef JP
2355                         act = "¤ò´öʬÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2356 #else
2357                         act = "is fairly observant of";
2358 #endif
2359
2360                 }
2361                 else if (r_ptr->sleep > 3)
2362                 {
2363 #ifdef JP
2364                         act = "¤òÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2365 #else
2366                         act = "is observant of";
2367 #endif
2368
2369                 }
2370                 else if (r_ptr->sleep > 1)
2371                 {
2372 #ifdef JP
2373                         act = "¤ò¤«¤Ê¤êÃí°Õ¿¼¤¯¸«¤Æ¤ª¤ê";
2374 #else
2375                         act = "is very observant of";
2376 #endif
2377
2378                 }
2379                 else if (r_ptr->sleep > 0)
2380                 {
2381 #ifdef JP
2382                         act = "¤ò·Ù²ü¤·¤Æ¤ª¤ê";
2383 #else
2384                         act = "is vigilant for";
2385 #endif
2386
2387                 }
2388                 else
2389                 {
2390 #ifdef JP
2391                         act = "¤ò¤«¤Ê¤ê·Ù²ü¤·¤Æ¤ª¤ê";
2392 #else
2393                         act = "is ever vigilant for";
2394 #endif
2395
2396                 }
2397
2398 #ifdef JP
2399                 hooked_roff(format("%^s¤Ï¿¯Æþ¼Ô%s¡¢ %d ¥Õ¥£¡¼¥ÈÀ褫¤é¿¯Æþ¼Ô¤Ëµ¤ÉÕ¤¯¤³¤È¤¬¤¢¤ë¡£",
2400                      wd_he[msex], act, 10 * r_ptr->aaf));
2401 #else
2402                 hooked_roff(format("%^s %s intruders, which %s may notice from %d feet.  ",
2403                             wd_he[msex], act, wd_he[msex], 10 * r_ptr->aaf));
2404 #endif
2405
2406         }
2407
2408
2409         /* Drops gold and/or items */
2410         if (drop_gold || drop_item)
2411         {
2412                 /* Intro */
2413 #ifdef JP
2414                 hooked_roff(format("%^s¤Ï", wd_he[msex]));
2415 #else
2416                 hooked_roff(format("%^s may carry", wd_he[msex]));
2417
2418                 /* No "n" needed */
2419                 sin = FALSE;
2420 #endif
2421
2422
2423                 /* Count maximum drop */
2424                 n = MAX(drop_gold, drop_item);
2425
2426                 /* One drop (may need an "n") */
2427                 if (n == 1)
2428                 {
2429 #ifdef JP
2430                         hooked_roff("°ì¤Ä¤Î");
2431 #else
2432                         hooked_roff(" a");
2433                         sin = TRUE;
2434 #endif
2435                 }
2436
2437                 /* Two drops */
2438                 else if (n == 2)
2439                 {
2440 #ifdef JP
2441                         hooked_roff("°ì¤Ä¤«Æó¤Ä¤Î");
2442 #else
2443                         hooked_roff(" one or two");
2444 #endif
2445
2446                 }
2447
2448                 /* Many drops */
2449                 else
2450                 {
2451 #ifdef JP
2452                         hooked_roff(format(" %d ¸Ä¤Þ¤Ç¤Î", n));
2453 #else
2454                         hooked_roff(format(" up to %d", n));
2455 #endif
2456
2457                 }
2458
2459
2460                 /* Great */
2461                 if (flags1 & RF1_DROP_GREAT)
2462                 {
2463 #ifdef JP
2464                         p = "ÆÃÊ̤Ê";
2465 #else
2466                         p = " exceptional";
2467 #endif
2468
2469                 }
2470
2471                 /* Good (no "n" needed) */
2472                 else if (flags1 & RF1_DROP_GOOD)
2473                 {
2474 #ifdef JP
2475                         p = "¾å¼Á¤Ê";
2476 #else
2477                         p = " good";
2478                         sin = FALSE;
2479 #endif
2480                 }
2481
2482                 /* Okay */
2483                 else
2484                 {
2485                         p = NULL;
2486                 }
2487
2488
2489                 /* Objects */
2490                 if (drop_item)
2491                 {
2492                         /* Handle singular "an" */
2493 #ifndef JP
2494                         if (sin) hooked_roff("n");
2495                         sin = FALSE;
2496 #endif
2497
2498                         /* Dump "object(s)" */
2499                         if (p) hooked_roff(p);
2500 #ifdef JP
2501                         hooked_roff("¥¢¥¤¥Æ¥à");
2502 #else
2503                         hooked_roff(" object");
2504                         if (n != 1) hooked_roff("s");
2505 #endif
2506
2507
2508                         /* Conjunction replaces variety, if needed for "gold" below */
2509 #ifdef JP
2510                         p = "¤ä";
2511 #else
2512                         p = " or";
2513 #endif
2514
2515                 }
2516
2517                 /* Treasures */
2518                 if (drop_gold)
2519                 {
2520 #ifndef JP
2521                         /* Cancel prefix */
2522                         if (!p) sin = FALSE;
2523
2524                         /* Handle singular "an" */
2525                         if (sin) hooked_roff("n");
2526                         sin = FALSE;
2527 #endif
2528
2529                         /* Dump "treasure(s)" */
2530                         if (p) hooked_roff(p);
2531 #ifdef JP
2532                         hooked_roff("ºâÊõ");
2533 #else
2534                         hooked_roff(" treasure");
2535                         if (n != 1) hooked_roff("s");
2536 #endif
2537
2538                 }
2539
2540                 /* End this sentence */
2541 #ifdef JP
2542                 hooked_roff("¤ò»ý¤Ã¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£");
2543 #else
2544                 hooked_roff(".  ");
2545 #endif
2546
2547         }
2548
2549
2550         /* Count the number of "known" attacks */
2551         for (n = 0, m = 0; m < 4; m++)
2552         {
2553                 /* Skip non-attacks */
2554                 if (!r_ptr->blow[m].method) continue;
2555                 if (r_ptr->blow[m].method == RBM_SHOOT) continue;
2556
2557                 /* Count known attacks */
2558                 if (r_ptr->r_blows[m] || know_everything) n++;
2559         }
2560
2561         /* Examine (and count) the actual attacks */
2562         for (r = 0, m = 0; m < 4; m++)
2563         {
2564                 int method, effect, d1, d2;
2565
2566                 /* Skip non-attacks */
2567                 if (!r_ptr->blow[m].method) continue;
2568                 if (r_ptr->blow[m].method == RBM_SHOOT) continue;
2569
2570                 /* Skip unknown attacks */
2571                 if (!r_ptr->r_blows[m] && !know_everything) continue;
2572
2573                 /* Extract the attack info */
2574                 method = r_ptr->blow[m].method;
2575                 effect = r_ptr->blow[m].effect;
2576                 d1 = r_ptr->blow[m].d_dice;
2577                 d2 = r_ptr->blow[m].d_side;
2578
2579                 /* No method yet */
2580                 p = NULL;
2581
2582                 /* Acquire the method */
2583                 switch (method)
2584                 {
2585 #ifdef JP
2586 case RBM_HIT:           p = "²¥¤ë"; break;
2587 #else
2588                         case RBM_HIT:           p = "hit"; break;
2589 #endif
2590
2591 #ifdef JP
2592 case RBM_TOUCH:         p = "¿¨¤ë"; break;
2593 #else
2594                         case RBM_TOUCH:         p = "touch"; break;
2595 #endif
2596
2597 #ifdef JP
2598 case RBM_PUNCH:         p = "¥Ñ¥ó¥Á¤¹¤ë"; break;
2599 #else
2600                         case RBM_PUNCH:         p = "punch"; break;
2601 #endif
2602
2603 #ifdef JP
2604 case RBM_KICK:          p = "½³¤ë"; break;
2605 #else
2606                         case RBM_KICK:          p = "kick"; break;
2607 #endif
2608
2609 #ifdef JP
2610 case RBM_CLAW:          p = "¤Ò¤Ã¤«¤¯"; break;
2611 #else
2612                         case RBM_CLAW:          p = "claw"; break;
2613 #endif
2614
2615 #ifdef JP
2616 case RBM_BITE:          p = "³ú¤à"; break;
2617 #else
2618                         case RBM_BITE:          p = "bite"; break;
2619 #endif
2620
2621 #ifdef JP
2622 case RBM_STING:         p = "»É¤¹"; break;
2623 #else
2624                         case RBM_STING:         p = "sting"; break;
2625 #endif
2626
2627 #ifdef JP
2628 case RBM_SLASH:         p = "»Â¤ë"; break;
2629 #else
2630                         case RBM_SLASH:         p = "slash"; break;
2631 #endif
2632
2633 #ifdef JP
2634 case RBM_BUTT:          p = "³Ñ¤ÇÆͤ¯"; break;
2635 #else
2636                         case RBM_BUTT:          p = "butt"; break;
2637 #endif
2638
2639 #ifdef JP
2640 case RBM_CRUSH:         p = "ÂÎÅö¤¿¤ê¤¹¤ë"; break;
2641 #else
2642                         case RBM_CRUSH:         p = "crush"; break;
2643 #endif
2644
2645 #ifdef JP
2646 case RBM_ENGULF:        p = "°û¤ß¹þ¤à"; break;
2647 #else
2648                         case RBM_ENGULF:        p = "engulf"; break;
2649 #endif
2650
2651 #ifdef JP
2652 case RBM_CHARGE:        p = "ÀÁµá½ñ¤ò¤è¤³¤¹"; break;
2653 #else
2654                         case RBM_CHARGE:        p = "charge";   break;
2655 #endif
2656
2657 #ifdef JP
2658 case RBM_CRAWL:         p = "ÂΤξå¤òÇ礤²ó¤ë"; break;
2659 #else
2660                         case RBM_CRAWL:         p = "crawl on you"; break;
2661 #endif
2662
2663 #ifdef JP
2664 case RBM_DROOL:         p = "¤è¤À¤ì¤ò¤¿¤é¤¹"; break;
2665 #else
2666                         case RBM_DROOL:         p = "drool on you"; break;
2667 #endif
2668
2669 #ifdef JP
2670 case RBM_SPIT:          p = "¤Ä¤Ð¤òÅǤ¯"; break;
2671 #else
2672                         case RBM_SPIT:          p = "spit"; break;
2673 #endif
2674
2675 #ifdef JP
2676 case RBM_EXPLODE:       p = "Çúȯ¤¹¤ë"; break;
2677 #else
2678                         case RBM_EXPLODE:       p = "explode"; break;
2679 #endif
2680
2681 #ifdef JP
2682 case RBM_GAZE:          p = "¤Ë¤é¤à"; break;
2683 #else
2684                         case RBM_GAZE:          p = "gaze"; break;
2685 #endif
2686
2687 #ifdef JP
2688 case RBM_WAIL:          p = "µã¤­¶«¤Ö"; break;
2689 #else
2690                         case RBM_WAIL:          p = "wail"; break;
2691 #endif
2692
2693 #ifdef JP
2694 case RBM_SPORE:         p = "˦»Ò¤òÈô¤Ð¤¹"; break;
2695 #else
2696                         case RBM_SPORE:         p = "release spores"; break;
2697 #endif
2698
2699                         case RBM_XXX4:          break;
2700 #ifdef JP
2701 case RBM_BEG:           p = "¶â¤ò¤»¤¬¤à"; break;
2702 #else
2703                         case RBM_BEG:           p = "beg"; break;
2704 #endif
2705
2706 #ifdef JP
2707 case RBM_INSULT:        p = "Éî¿«¤¹¤ë"; break;
2708 #else
2709                         case RBM_INSULT:        p = "insult"; break;
2710 #endif
2711
2712 #ifdef JP
2713 case RBM_MOAN:          p = "¤¦¤á¤¯"; break;
2714 #else
2715                         case RBM_MOAN:          p = "moan"; break;
2716 #endif
2717
2718 #ifdef JP
2719 case RBM_SHOW:          p = "²Î¤¦"; break;
2720 #else
2721                         case RBM_SHOW:          p = "sing"; break;
2722 #endif
2723
2724                 }
2725
2726
2727                 /* Default effect */
2728                 q = NULL;
2729
2730                 /* Acquire the effect */
2731                 switch (effect)
2732                 {
2733 #ifdef JP
2734 case RBE_SUPERHURT:
2735 case RBE_HURT:          q = "¹¶·â¤¹¤ë"; break;
2736 #else
2737                         case RBE_SUPERHURT:
2738                         case RBE_HURT:          q = "attack"; break;
2739 #endif
2740
2741 #ifdef JP
2742 case RBE_POISON:        q = "ÆǤò¤¯¤é¤ï¤¹"; break;
2743 #else
2744                         case RBE_POISON:        q = "poison"; break;
2745 #endif
2746
2747 #ifdef JP
2748 case RBE_UN_BONUS:      q = "Îô²½¤µ¤»¤ë"; break;
2749 #else
2750                         case RBE_UN_BONUS:      q = "disenchant"; break;
2751 #endif
2752
2753 #ifdef JP
2754 case RBE_UN_POWER:      q = "ËâÎϤòµÛ¤¤¼è¤ë"; break;
2755 #else
2756                         case RBE_UN_POWER:      q = "drain charges"; break;
2757 #endif
2758
2759 #ifdef JP
2760 case RBE_EAT_GOLD:      q = "¶â¤òÅð¤à"; break;
2761 #else
2762                         case RBE_EAT_GOLD:      q = "steal gold"; break;
2763 #endif
2764
2765 #ifdef JP
2766 case RBE_EAT_ITEM:      q = "¥¢¥¤¥Æ¥à¤òÅð¤à"; break;
2767 #else
2768                         case RBE_EAT_ITEM:      q = "steal items"; break;
2769 #endif
2770
2771 #ifdef JP
2772 case RBE_EAT_FOOD:      q = "¤¢¤Ê¤¿¤Î¿©ÎÁ¤ò¿©¤Ù¤ë"; break;
2773 #else
2774                         case RBE_EAT_FOOD:      q = "eat your food"; break;
2775 #endif
2776
2777 #ifdef JP
2778 case RBE_EAT_LITE:      q = "ÌÀ¤«¤ê¤òµÛ¼ý¤¹¤ë"; break;
2779 #else
2780                         case RBE_EAT_LITE:      q = "absorb light"; break;
2781 #endif
2782
2783 #ifdef JP
2784 case RBE_ACID:          q = "»À¤òÈô¤Ð¤¹"; break;
2785 #else
2786                         case RBE_ACID:          q = "shoot acid"; break;
2787 #endif
2788
2789 #ifdef JP
2790 case RBE_ELEC:          q = "´¶ÅŤµ¤»¤ë"; break;
2791 #else
2792                         case RBE_ELEC:          q = "electrocute"; break;
2793 #endif
2794
2795 #ifdef JP
2796 case RBE_FIRE:          q = "dz¤ä¤¹"; break;
2797 #else
2798                         case RBE_FIRE:          q = "burn"; break;
2799 #endif
2800
2801 #ifdef JP
2802 case RBE_COLD:          q = "Åà¤é¤»¤ë"; break;
2803 #else
2804                         case RBE_COLD:          q = "freeze"; break;
2805 #endif
2806
2807 #ifdef JP
2808 case RBE_BLIND:         q = "ÌÕÌܤˤ¹¤ë"; break;
2809 #else
2810                         case RBE_BLIND:         q = "blind"; break;
2811 #endif
2812
2813 #ifdef JP
2814 case RBE_CONFUSE:       q = "º®Í𤵤»¤ë"; break;
2815 #else
2816                         case RBE_CONFUSE:       q = "confuse"; break;
2817 #endif
2818
2819 #ifdef JP
2820 case RBE_TERRIFY:       q = "¶²Éݤµ¤»¤ë"; break;
2821 #else
2822                         case RBE_TERRIFY:       q = "terrify"; break;
2823 #endif
2824
2825 #ifdef JP
2826 case RBE_PARALYZE:      q = "Ëãá㤵¤»¤ë"; break;
2827 #else
2828                         case RBE_PARALYZE:      q = "paralyze"; break;
2829 #endif
2830
2831 #ifdef JP
2832 case RBE_LOSE_STR:      q = "ÏÓÎϤò¸º¾¯¤µ¤»¤ë"; break;
2833 #else
2834                         case RBE_LOSE_STR:      q = "reduce strength"; break;
2835 #endif
2836
2837 #ifdef JP
2838 case RBE_LOSE_INT:      q = "ÃÎǽ¤ò¸º¾¯¤µ¤»¤ë"; break;
2839 #else
2840                         case RBE_LOSE_INT:      q = "reduce intelligence"; break;
2841 #endif
2842
2843 #ifdef JP
2844 case RBE_LOSE_WIS:      q = "¸­¤µ¤ò¸º¾¯¤µ¤»¤ë"; break;
2845 #else
2846                         case RBE_LOSE_WIS:      q = "reduce wisdom"; break;
2847 #endif
2848
2849 #ifdef JP
2850 case RBE_LOSE_DEX:      q = "´ïÍѤµ¤ò¸º¾¯¤µ¤»¤ë"; break;
2851 #else
2852                         case RBE_LOSE_DEX:      q = "reduce dexterity"; break;
2853 #endif
2854
2855 #ifdef JP
2856 case RBE_LOSE_CON:      q = "Âѵ×ÎϤò¸º¾¯¤µ¤»¤ë"; break;
2857 #else
2858                         case RBE_LOSE_CON:      q = "reduce constitution"; break;
2859 #endif
2860
2861 #ifdef JP
2862 case RBE_LOSE_CHR:      q = "Ì¥ÎϤò¸º¾¯¤µ¤»¤ë"; break;
2863 #else
2864                         case RBE_LOSE_CHR:      q = "reduce charisma"; break;
2865 #endif
2866
2867 #ifdef JP
2868 case RBE_LOSE_ALL:      q = "Á´¥¹¥Æ¡¼¥¿¥¹¤ò¸º¾¯¤µ¤»¤ë"; break;
2869 #else
2870                         case RBE_LOSE_ALL:      q = "reduce all stats"; break;
2871 #endif
2872
2873 #ifdef JP
2874 case RBE_SHATTER:       q = "Ê´ºÕ¤¹¤ë"; break;
2875 #else
2876                         case RBE_SHATTER:       q = "shatter"; break;
2877 #endif
2878
2879 #ifdef JP
2880 case RBE_EXP_10:        q = "·Ð¸³Ãͤò¸º¾¯(10d6+)¤µ¤»¤ë"; break;
2881 #else
2882                         case RBE_EXP_10:        q = "lower experience (by 10d6+)"; break;
2883 #endif
2884
2885 #ifdef JP
2886 case RBE_EXP_20:        q = "·Ð¸³Ãͤò¸º¾¯(20d6+)¤µ¤»¤ë"; break;
2887 #else
2888                         case RBE_EXP_20:        q = "lower experience (by 20d6+)"; break;
2889 #endif
2890
2891 #ifdef JP
2892 case RBE_EXP_40:        q = "·Ð¸³Ãͤò¸º¾¯(40d6+)¤µ¤»¤ë"; break;
2893 #else
2894                         case RBE_EXP_40:        q = "lower experience (by 40d6+)"; break;
2895 #endif
2896
2897 #ifdef JP
2898 case RBE_EXP_80:        q = "·Ð¸³Ãͤò¸º¾¯(80d6+)¤µ¤»¤ë"; break;
2899 #else
2900                         case RBE_EXP_80:        q = "lower experience (by 80d6+)"; break;
2901 #endif
2902
2903 #ifdef JP
2904 case RBE_DISEASE:       q = "ɵ¤¤Ë¤¹¤ë"; break;
2905 #else
2906                         case RBE_DISEASE:       q = "disease"; break;
2907 #endif
2908
2909 #ifdef JP
2910 case RBE_TIME:      q = "»þ´Ö¤òµÕÌá¤ê¤µ¤»¤ë"; break;
2911 #else
2912                         case RBE_TIME:      q = "time"; break;
2913 #endif
2914
2915 #ifdef JP
2916 case RBE_EXP_VAMP:  q = "À¸Ì¿ÎϤòµÛ¼ý¤¹¤ë"; break;
2917 #else
2918                         case RBE_EXP_VAMP:  q = "drain life force"; break;
2919 #endif
2920
2921 #ifdef JP
2922 case RBE_DR_MANA:  q = "ËâÎϤòÃ¥¤¦"; break;
2923 #else
2924                         case RBE_DR_MANA:  q = "drain mana force"; break;
2925 #endif
2926
2927                 }
2928
2929
2930 #ifdef JP
2931                 if ( r == 0 ) hooked_roff( format("%^s¤Ï", wd_he[msex]) );
2932
2933                 /***¼ã´³É½¸½¤òÊѹ¹ ita ***/
2934
2935                         /* Describe damage (if known) */
2936                 if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
2937                   {
2938                     
2939                     /* Display the damage */
2940                     hooked_roff(format(" %dd%d ", d1, d2));
2941                     hooked_roff("¤Î¥À¥á¡¼¥¸¤Ç");
2942                   }
2943                 /* Hack -- force a method */
2944                 if (!p) p = "²¿¤«´ñ̯¤Ê¤³¤È¤ò¤¹¤ë";
2945
2946                 /* Describe the method */
2947                 /* XX¤·¤ÆYY¤·/XX¤·¤ÆYY¤¹¤ë/XX¤·/XX¤¹¤ë */
2948                 if(q) jverb( p ,jverb_buf, JVERB_TO);
2949                 else if(r!=n-1) jverb( p ,jverb_buf, JVERB_AND);
2950                 else strcpy(jverb_buf, p);
2951
2952                 hooked_roff(jverb_buf);
2953
2954                 /* Describe the effect (if any) */
2955                 if (q)
2956                 {
2957                   if(r!=n-1) jverb( q,jverb_buf, JVERB_AND);
2958                   else strcpy(jverb_buf,q); 
2959                   hooked_roff(jverb_buf);
2960                 }
2961                 if(r!=n-1) hooked_roff("¡¢");
2962 #else
2963                 /* Introduce the attack description */
2964                 if (!r)
2965                 {
2966                         hooked_roff(format("%^s can ", wd_he[msex]));
2967                 }
2968                 else if (r < n-1)
2969                 {
2970                         hooked_roff(", ");
2971                 }
2972                 else
2973                 {
2974                         hooked_roff(", and ");
2975                 }
2976
2977
2978                 /* Hack -- force a method */
2979                 if (!p) p = "do something weird";
2980
2981                 /* Describe the method */
2982                 hooked_roff(p);
2983
2984
2985                 /* Describe the effect (if any) */
2986                 if (q)
2987                 {
2988                         /* Describe the attack type */
2989                         hooked_roff(" to ");
2990                         hooked_roff(q);
2991
2992                         /* Describe damage (if known) */
2993                         if (d1 && d2 && (know_everything || know_damage(r_idx, m)))
2994                         {
2995                                 /* Display the damage */
2996                                 hooked_roff(" with damage");
2997                                 hooked_roff(format(" %dd%d", d1, d2));
2998                         }
2999                 }
3000 #endif
3001
3002
3003
3004                 /* Count the attacks as printed */
3005                 r++;
3006         }
3007
3008         /* Finish sentence above */
3009         if (r)
3010         {
3011 #ifdef JP
3012                 hooked_roff("¡£");
3013 #else
3014                 hooked_roff(".  ");
3015 #endif
3016
3017         }
3018
3019         /* Notice lack of attacks */
3020         else if (flags1 & RF1_NEVER_BLOW)
3021         {
3022 #ifdef JP
3023                 hooked_roff(format("%^s¤ÏʪÍýŪ¤Ê¹¶·âÊýË¡¤ò»ý¤¿¤Ê¤¤¡£", wd_he[msex]));
3024 #else
3025                 hooked_roff(format("%^s has no physical attacks.  ", wd_he[msex]));
3026 #endif
3027
3028         }
3029
3030         /* Or describe the lack of knowledge */
3031         else
3032         {
3033 #ifdef JP
3034                 hooked_roff(format("%s¹¶·â¤Ë¤Ä¤¤¤Æ¤Ï²¿¤âÃΤé¤Ê¤¤¡£", wd_his[msex]));
3035 #else
3036                 hooked_roff(format("Nothing is known about %s attack.  ", wd_his[msex]));
3037 #endif
3038
3039         }
3040
3041
3042         /*
3043          * Notice "Quest" monsters, but only if you
3044          * already encountered the monster.
3045          */
3046         if ((flags1 & RF1_QUESTOR) && ((r_ptr->r_sights) && (r_ptr->max_num) && ((r_idx == MON_OBERON) || (r_idx == MON_SERPENT))))
3047         {
3048 #ifdef JP
3049                 hook_c_roff(TERM_VIOLET, "¤¢¤Ê¤¿¤Ï¤³¤Î¥â¥ó¥¹¥¿¡¼¤ò»¦¤·¤¿¤¤¤È¤¤¤¦¶¯¤¤Íß˾¤ò´¶¤¸¤Æ¤¤¤ë...");
3050 #else
3051                 hook_c_roff(TERM_VIOLET, "You feel an intense desire to kill this monster...  ");
3052 #endif
3053
3054         }
3055
3056         else if (flags7 & RF7_GUARDIAN)
3057         {
3058 #ifdef JP
3059                 hook_c_roff(TERM_L_RED, "¤³¤Î¥â¥ó¥¹¥¿¡¼¤Ï¥À¥ó¥¸¥ç¥ó¤Î¼ç¤Ç¤¢¤ë¡£");
3060 #else
3061                 hook_c_roff(TERM_L_RED, "This monster is the master of a dungeon.");
3062 #endif
3063
3064         }
3065
3066
3067         /* All done */
3068         hooked_roff("\n");
3069
3070 }
3071
3072
3073
3074 /*
3075  * Hack -- Display the "name" and "attr/chars" of a monster race
3076  */
3077 void roff_top(int r_idx)
3078 {
3079         monster_race    *r_ptr = &r_info[r_idx];
3080
3081         byte            a1, a2;
3082         char            c1, c2;
3083
3084
3085         /* Access the chars */
3086         c1 = r_ptr->d_char;
3087         c2 = r_ptr->x_char;
3088
3089         /* Access the attrs */
3090         a1 = r_ptr->d_attr;
3091         a2 = r_ptr->x_attr;
3092
3093
3094         /* Clear the top line */
3095         Term_erase(0, 0, 255);
3096
3097         /* Reset the cursor */
3098         Term_gotoxy(0, 0);
3099
3100 #ifndef JP
3101         /* A title (use "The" for non-uniques) */
3102         if (!(r_ptr->flags1 & RF1_UNIQUE))
3103         {
3104                 Term_addstr(-1, TERM_WHITE, "The ");
3105         }
3106 #endif
3107
3108         /* Dump the name */
3109         Term_addstr(-1, TERM_WHITE, (r_name + r_ptr->name));
3110
3111         /* Append the "standard" attr/char info */
3112         Term_addstr(-1, TERM_WHITE, " ('");
3113         Term_addch(a1, c1);
3114         if (use_bigtile && (a1 & 0x80)) Term_addch(255, -1);
3115         Term_addstr(-1, TERM_WHITE, "')");
3116
3117         /* Append the "optional" attr/char info */
3118         Term_addstr(-1, TERM_WHITE, "/('");
3119         Term_addch(a2, c2);
3120         if (use_bigtile && (a2 & 0x80)) Term_addch(255, -1);
3121         Term_addstr(-1, TERM_WHITE, "'):");
3122
3123         /* Wizards get extra info */
3124         if (p_ptr->wizard)
3125         {
3126                 char buf[6];
3127
3128                 sprintf(buf, "%d", r_idx);
3129
3130                 Term_addstr(-1, TERM_WHITE, " (");
3131                 Term_addstr(-1, TERM_L_BLUE, buf);
3132                 Term_addch(TERM_WHITE, ')');
3133         }
3134 }
3135
3136
3137
3138 /*
3139  * Hack -- describe the given monster race at the top of the screen
3140  */
3141 void screen_roff(int r_idx, int mode)
3142 {
3143         /* Flush messages */
3144         msg_print(NULL);
3145
3146         /* Begin recall */
3147         Term_erase(0, 1, 255);
3148
3149         hook_c_roff = c_roff;
3150
3151         /* Recall monster */
3152         roff_aux(r_idx, mode);
3153
3154         /* Describe monster */
3155         roff_top(r_idx);
3156 }
3157
3158
3159
3160
3161 /*
3162  * Hack -- describe the given monster race in the current "term" window
3163  */
3164 void display_roff(int r_idx)
3165 {
3166         int y;
3167
3168         /* Erase the window */
3169         for (y = 0; y < Term->hgt; y++)
3170         {
3171                 /* Erase the line */
3172                 Term_erase(0, y, 255);
3173         }
3174
3175         /* Begin recall */
3176         Term_gotoxy(0, 1);
3177
3178         hook_c_roff = c_roff;
3179
3180         /* Recall monster */
3181         roff_aux(r_idx, 0);
3182
3183         /* Describe monster */
3184         roff_top(r_idx);
3185 }
3186
3187
3188
3189 /*
3190  * Hack -- output description of the given monster race
3191  */
3192 void output_monster_spoiler(int r_idx, void (*roff_func)(byte attr, cptr str))
3193 {
3194         hook_c_roff = roff_func;
3195
3196         /* Recall monster */
3197         roff_aux(r_idx, 0x03);
3198 }
3199
3200
3201 bool monster_quest(int r_idx)
3202 {
3203         monster_race *r_ptr = &r_info[r_idx];
3204
3205         /* Random quests are in the dungeon */
3206         if (r_ptr->flags8 & RF8_WILD_ONLY) return FALSE;
3207
3208         /* No random quests for aquatic monsters */
3209         if (r_ptr->flags7 & RF7_AQUATIC) return FALSE;
3210
3211         /* No random quests for multiplying monsters */
3212         if (r_ptr->flags2 & RF2_MULTIPLY) return FALSE;
3213
3214         /* No quests to kill friendly monsters */
3215         if (r_ptr->flags7 & RF7_FRIENDLY) return FALSE;
3216
3217         return TRUE;
3218 }
3219
3220
3221 bool monster_dungeon(int r_idx)
3222 {
3223         monster_race *r_ptr = &r_info[r_idx];
3224
3225         if (!(r_ptr->flags8 & RF8_WILD_ONLY))
3226                 return TRUE;
3227         else
3228         {
3229                 dungeon_info_type *d_ptr = &d_info[dungeon_type];
3230                 if ((d_ptr->mflags8 & RF8_WILD_MOUNTAIN) &&
3231                     (r_ptr->flags8 & RF8_WILD_MOUNTAIN)) return TRUE;
3232                 return FALSE;
3233         }
3234 }
3235
3236
3237 bool monster_ocean(int r_idx)
3238 {
3239         monster_race *r_ptr = &r_info[r_idx];
3240
3241         if (r_ptr->flags8 & RF8_WILD_OCEAN)
3242                 return TRUE;
3243         else
3244                 return FALSE;
3245 }
3246
3247
3248 bool monster_shore(int r_idx)
3249 {
3250         monster_race *r_ptr = &r_info[r_idx];
3251
3252         if (r_ptr->flags8 & RF8_WILD_SHORE)
3253                 return TRUE;
3254         else
3255                 return FALSE;
3256 }
3257
3258
3259 static bool monster_waste(int r_idx)
3260 {
3261         monster_race *r_ptr = &r_info[r_idx];
3262
3263         if (r_ptr->flags8 & (RF8_WILD_WASTE | RF8_WILD_ALL))
3264                 return TRUE;
3265         else
3266                 return FALSE;
3267 }
3268
3269
3270 bool monster_town(int r_idx)
3271 {
3272         monster_race *r_ptr = &r_info[r_idx];
3273
3274         if (r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
3275                 return TRUE;
3276         else
3277                 return FALSE;
3278 }
3279
3280
3281 bool monster_wood(int r_idx)
3282 {
3283         monster_race *r_ptr = &r_info[r_idx];
3284
3285         if (r_ptr->flags8 & (RF8_WILD_WOOD | RF8_WILD_ALL))
3286                 return TRUE;
3287         else
3288                 return FALSE;
3289 }
3290
3291
3292 bool monster_volcano(int r_idx)
3293 {
3294         monster_race *r_ptr = &r_info[r_idx];
3295
3296         if (r_ptr->flags8 & RF8_WILD_VOLCANO)
3297                 return TRUE;
3298         else
3299                 return FALSE;
3300 }
3301
3302
3303 bool monster_mountain(int r_idx)
3304 {
3305         monster_race *r_ptr = &r_info[r_idx];
3306
3307         if (r_ptr->flags8 & RF8_WILD_MOUNTAIN)
3308                 return TRUE;
3309         else
3310                 return FALSE;
3311 }
3312
3313
3314 bool monster_grass(int r_idx)
3315 {
3316         monster_race *r_ptr = &r_info[r_idx];
3317
3318         if (r_ptr->flags8 & (RF8_WILD_GRASS | RF8_WILD_ALL))
3319                 return TRUE;
3320         else
3321                 return FALSE;
3322 }
3323
3324
3325 bool monster_deep_water(int r_idx)
3326 {
3327         monster_race *r_ptr = &r_info[r_idx];
3328
3329         if (!monster_dungeon(r_idx)) return FALSE;
3330
3331         if (r_ptr->flags7 & RF7_AQUATIC)
3332                 return TRUE;
3333         else
3334                 return FALSE;
3335 }
3336
3337
3338 bool monster_shallow_water(int r_idx)
3339 {
3340         monster_race *r_ptr = &r_info[r_idx];
3341
3342         if (!monster_dungeon(r_idx)) return FALSE;
3343
3344         if (r_ptr->flags2 & RF2_AURA_FIRE)
3345                 return FALSE;
3346         else
3347                 return TRUE;
3348 }
3349
3350
3351 bool monster_lava(int r_idx)
3352 {
3353         monster_race *r_ptr = &r_info[r_idx];
3354
3355         if (!monster_dungeon(r_idx)) return FALSE;
3356
3357         if (((r_ptr->flags3 & RF3_IM_FIRE) ||
3358              (r_ptr->flags7 & RF7_CAN_FLY)) &&
3359             !(r_ptr->flags3 & RF3_AURA_COLD))
3360                 return TRUE;
3361         else
3362                 return FALSE;
3363 }
3364
3365
3366 monster_hook_type get_monster_hook(void)
3367 {
3368         if (!dun_level && !p_ptr->inside_quest)
3369         {
3370                 switch (wilderness[p_ptr->wilderness_y][p_ptr->wilderness_x].terrain)
3371                 {
3372                 case TERRAIN_TOWN:
3373                         return (monster_hook_type)monster_town;
3374                 case TERRAIN_DEEP_WATER:
3375                         return (monster_hook_type)monster_ocean;
3376                 case TERRAIN_SHALLOW_WATER:
3377                 case TERRAIN_SWAMP:
3378                         return (monster_hook_type)monster_shore;
3379                 case TERRAIN_DIRT:
3380                 case TERRAIN_DESERT:
3381                         return (monster_hook_type)monster_waste;
3382                 case TERRAIN_GRASS:
3383                         return (monster_hook_type)monster_grass;
3384                 case TERRAIN_TREES:
3385                         return (monster_hook_type)monster_wood;
3386                 case TERRAIN_SHALLOW_LAVA:
3387                 case TERRAIN_DEEP_LAVA:
3388                         return (monster_hook_type)monster_volcano;
3389                 case TERRAIN_MOUNTAIN:
3390                         return (monster_hook_type)monster_mountain;
3391                 default:
3392                         return (monster_hook_type)monster_dungeon;
3393                 }
3394         }
3395         else
3396         {
3397                 return (monster_hook_type)monster_dungeon;
3398         }
3399 }
3400
3401
3402 monster_hook_type get_monster_hook2(int y, int x)
3403 {
3404         /* Set the monster list */
3405         switch (cave[y][x].feat)
3406         {
3407         case FEAT_SHAL_WATER:
3408                 return (monster_hook_type)monster_shallow_water;
3409         case FEAT_DEEP_WATER:
3410                 return (monster_hook_type)monster_deep_water;
3411         case FEAT_DEEP_LAVA:
3412         case FEAT_SHAL_LAVA:
3413                 return (monster_hook_type)monster_lava;
3414         default:
3415                 return NULL;
3416         }
3417 }
3418
3419
3420 void set_friendly(monster_type *m_ptr)
3421 {
3422         m_ptr->smart |= SM_FRIENDLY;
3423 }
3424
3425 void set_pet(monster_type *m_ptr)
3426 {
3427         /* Check for quest completion */
3428         check_quest_completion(m_ptr);
3429
3430         m_ptr->smart |= SM_PET;
3431         if (!(r_info[m_ptr->r_idx].flags3 & (RF3_EVIL | RF3_GOOD)))
3432                 m_ptr->sub_align = SUB_ALIGN_NEUTRAL;
3433 }
3434
3435 /*
3436  * Makes the monster hostile towards the player
3437  */
3438 void set_hostile(monster_type *m_ptr)
3439 {
3440         if (p_ptr->inside_battle) return;
3441         m_ptr->smart &= ~SM_PET;
3442         m_ptr->smart &= ~SM_FRIENDLY;
3443 }
3444
3445
3446 /*
3447  * Anger the monster
3448  */
3449 void anger_monster(monster_type *m_ptr)
3450 {
3451         if (p_ptr->inside_battle) return;
3452         if (is_friendly(m_ptr))
3453         {
3454                 char m_name[80];
3455
3456                 monster_desc(m_name, m_ptr, 0);
3457 #ifdef JP
3458 msg_format("%^s¤ÏÅܤä¿¡ª", m_name);
3459 #else
3460                 msg_format("%^s gets angry!", m_name);
3461 #endif
3462
3463                 set_hostile(m_ptr);
3464
3465                 chg_virtue(V_INDIVIDUALISM, 1);
3466                 chg_virtue(V_HONOUR, -1);
3467                 chg_virtue(V_JUSTICE, -1);
3468                 chg_virtue(V_COMPASSION, -1);
3469         }
3470 }
3471
3472
3473 /*
3474  * Check if monster can cross terrain
3475  */
3476 bool monster_can_cross_terrain(byte feat, monster_race *r_ptr)
3477 {
3478         /* Pit */
3479         if (feat == FEAT_DARK_PIT)
3480         {
3481                 if (r_ptr->flags7 & RF7_CAN_FLY)
3482                         return TRUE;
3483                 else
3484                         return FALSE;
3485         }
3486         /* Deep water */
3487         if (feat == FEAT_DEEP_WATER)
3488         {
3489                 if ((r_ptr->flags7 & RF7_AQUATIC) ||
3490                     (r_ptr->flags7 & RF7_CAN_FLY) ||
3491                     (r_ptr->flags7 & RF7_CAN_SWIM))
3492                         return TRUE;
3493                 else
3494                         return FALSE;
3495         }
3496         /* Shallow water */
3497         else if (feat == FEAT_SHAL_WATER)
3498         {
3499                 if (!(r_ptr->flags2 & RF2_AURA_FIRE) ||
3500                     (r_ptr->flags7 & RF7_AQUATIC) ||
3501                     (r_ptr->flags7 & RF7_CAN_FLY) ||
3502                     (r_ptr->flags7 & RF7_CAN_SWIM))
3503                         return TRUE;
3504                 else
3505                         return FALSE;
3506         }
3507         /* Aquatic monster */
3508         else if ((r_ptr->flags7 & RF7_AQUATIC) &&
3509                     !(r_ptr->flags7 & RF7_CAN_FLY))
3510         {
3511                 return FALSE;
3512         }
3513         /* Lava */
3514         else if ((feat == FEAT_SHAL_LAVA) ||
3515             (feat == FEAT_DEEP_LAVA))
3516         {
3517                 if ((r_ptr->flags3 & RF3_IM_FIRE) ||
3518                     (r_ptr->flags7 & RF7_CAN_FLY))
3519                         return TRUE;
3520                 else
3521                         return FALSE;
3522         }
3523
3524         return TRUE;
3525 }
3526
3527
3528 /*
3529  * Strictly check if monster can enter the grid
3530  */
3531 bool monster_can_enter(int y, int x, monster_race *r_ptr)
3532 {
3533         cave_type *c_ptr = &cave[y][x];
3534         byte feat = c_ptr->feat;
3535
3536         /* Player or other monster */
3537         if ((y == py) && (x == px)) return FALSE;
3538         if (c_ptr->m_idx) return FALSE;
3539
3540         /* Permanent wall */
3541         if ((c_ptr->feat >= FEAT_PERM_EXTRA) &&
3542             (c_ptr->feat <= FEAT_PERM_SOLID))
3543                 return FALSE;
3544
3545         /* Can fly over the Pattern */
3546         if ((c_ptr->feat >= FEAT_PATTERN_START) &&
3547             (c_ptr->feat <= FEAT_PATTERN_XTRA2))
3548         {
3549             if (!(r_ptr->flags7 & RF7_CAN_FLY))
3550                     return FALSE;
3551             else
3552                     return TRUE;
3553         }
3554
3555         /* Can fly over mountain on the surface */
3556         if (feat == FEAT_MOUNTAIN)
3557         {
3558             if (!dun_level && 
3559                 ((r_ptr->flags7 & RF7_CAN_FLY) ||
3560                  (r_ptr->flags8 & RF8_WILD_MOUNTAIN)))
3561                     return TRUE;
3562             else
3563                     return FALSE;
3564         }
3565
3566         /* Cannot enter wall without pass wall ability */
3567         if (!cave_floor_grid(c_ptr) && !(r_ptr->flags2 & RF2_PASS_WALL))
3568                 return FALSE;
3569
3570         /* Pit */
3571         if (feat == FEAT_DARK_PIT)
3572         {
3573                 if (r_ptr->flags7 & RF7_CAN_FLY)
3574                         return TRUE;
3575                 else
3576                         return FALSE;
3577         }
3578         /* Deep water */
3579         if (feat == FEAT_DEEP_WATER)
3580         {
3581                 if ((r_ptr->flags7 & RF7_AQUATIC) ||
3582                     (r_ptr->flags7 & RF7_CAN_FLY) ||
3583                     (r_ptr->flags7 & RF7_CAN_SWIM))
3584                         return TRUE;
3585                 else
3586                         return FALSE;
3587         }
3588         /* Shallow water */
3589         else if (feat == FEAT_SHAL_WATER)
3590         {
3591                 if (!(r_ptr->flags2 & RF2_AURA_FIRE) ||
3592                     (r_ptr->flags7 & RF7_AQUATIC) ||
3593                     (r_ptr->flags7 & RF7_CAN_FLY) ||
3594                     (r_ptr->flags7 & RF7_CAN_SWIM))
3595                         return TRUE;
3596                 else
3597                         return FALSE;
3598         }
3599         /* Aquatic monster */
3600         else if ((r_ptr->flags7 & RF7_AQUATIC) &&
3601                     !(r_ptr->flags7 & RF7_CAN_FLY))
3602         {
3603                 return FALSE;
3604         }
3605         /* Lava */
3606         else if ((feat == FEAT_SHAL_LAVA) ||
3607             (feat == FEAT_DEEP_LAVA))
3608         {
3609                 if ((r_ptr->flags3 & RF3_IM_FIRE) ||
3610                     (r_ptr->flags7 & RF7_CAN_FLY))
3611                         return TRUE;
3612                 else
3613                         return FALSE;
3614         }
3615
3616         return TRUE;
3617 }
3618
3619
3620
3621 /*
3622  * Check if two monsters are enemies
3623  */
3624 bool are_enemies(monster_type *m_ptr, monster_type *n_ptr)
3625 {
3626         monster_race *r_ptr = &r_info[m_ptr->r_idx];
3627         monster_race *s_ptr = &r_info[n_ptr->r_idx];
3628
3629         if (p_ptr->inside_battle)
3630         {
3631                 if (is_pet(m_ptr) || is_pet(n_ptr)) return FALSE;
3632                 return TRUE;
3633         }
3634
3635         if ((r_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL))
3636             && (s_ptr->flags8 & (RF8_WILD_TOWN | RF8_WILD_ALL)))
3637         {
3638                 if (!is_pet(m_ptr) && !is_pet(n_ptr)) return FALSE;
3639         }
3640
3641         /* Friendly vs. opposite aligned normal or pet */
3642         if (m_ptr->sub_align != n_ptr->sub_align)
3643         {
3644                 if (((m_ptr->sub_align & SUB_ALIGN_EVIL) &&
3645                           (n_ptr->sub_align & SUB_ALIGN_GOOD)) ||
3646                          ((m_ptr->sub_align & SUB_ALIGN_GOOD) &&
3647                           (n_ptr->sub_align & SUB_ALIGN_EVIL)))
3648                 {
3649                         if (!(m_ptr->mflag2 & MFLAG_CHAMELEON) || !(n_ptr->mflag2 & MFLAG_CHAMELEON)) return TRUE;
3650                 }
3651         }
3652
3653         /* Hostile vs. non-hostile */
3654         if (is_hostile(m_ptr) != is_hostile(n_ptr))
3655         {
3656                 return TRUE;
3657         }
3658
3659         /* Default */
3660         return FALSE;
3661 }
3662
3663
3664 /*
3665  * Is the monster "alive"?
3666  *
3667  * Used to determine the message to print for a killed monster.
3668  * ("dies", "destroyed")
3669  */
3670 bool monster_living(monster_race *r_ptr)
3671 {
3672         /* Non-living, undead, or demon */
3673         if (r_ptr->flags3 & (RF3_DEMON | RF3_UNDEAD | RF3_NONLIVING))
3674                 return FALSE;
3675         else
3676                 return TRUE;
3677 }
変愚蛮怒のメインリポジトリです
About OSDN
Find Software
Develop Software
Help