OSDN Git Service

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