OSDN Git Service

[Refactor] #37353 自己分析処理を selfinfo.c/h に分離。 / Separate self knoledge spells to selfin...
authorDeskull <deskull@users.sourceforge.jp>
Thu, 6 Sep 2018 22:57:06 +0000 (07:57 +0900)
committerDeskull <deskull@users.sourceforge.jp>
Thu, 6 Sep 2018 22:57:06 +0000 (07:57 +0900)
src/cmd6.c
src/do-spell.c
src/externs.h
src/mutation.c
src/selfinfo.c [new file with mode: 0644]
src/selfinfo.h [new file with mode: 0644]
src/spells2.c
src/wizard2.c

index ecd16c9..42e656c 100644 (file)
@@ -53,6 +53,7 @@
  */
 
 #include "angband.h"
+#include "selfinfo.h"
 
 
 /*!
index 15d8800..e4ddcf7 100644 (file)
@@ -7,6 +7,7 @@
  */
 
 #include "angband.h"
+#include "selfinfo.h"
 
 
 /*!
index 2d622c6..a5a139f 100644 (file)
@@ -1103,7 +1103,6 @@ extern void seal_of_mirror(HIT_POINT dam);
 
 /* spells2.c */
 extern void message_pain(MONSTER_IDX m_idx, HIT_POINT dam);
-extern void self_knowledge(void);
 extern bool detect_traps(POSITION range, bool known);
 extern bool detect_doors(POSITION range);
 extern bool detect_stairs(POSITION range);
@@ -1201,7 +1200,6 @@ extern bool control_one_demon(int dir, int plev);
 extern bool charm_animal(int dir, int plev);
 extern bool mindblast_monsters(HIT_POINT dam);
 extern s32b flag_cost(object_type *o_ptr, int plusses);
-extern void report_magics(void);
 extern bool teleport_swap(int dir);
 extern bool item_tester_hook_recharge(object_type *o_ptr);
 extern bool project_hook(int typ, int dir, HIT_POINT dam, BIT_FLAGS flg);
index 98d8348..aa4ec13 100644 (file)
@@ -12,6 +12,7 @@
  */
 
 #include "angband.h"
+#include "selfinfo.h"
 
 /*!
  * @brief プレイヤーに突然変異を与える
diff --git a/src/selfinfo.c b/src/selfinfo.c
new file mode 100644 (file)
index 0000000..0ec977f
--- /dev/null
@@ -0,0 +1,1817 @@
+/*!\r
+ * @file selfinfo.c\r
+ * @brief \8e©\8cÈ\95ª\90Í\8f\88\97\9d/ Self knowledge\r
+ * @date 2018/09/07\r
+ * @author\r
+ * <pre>\r
+ * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\r
+ * This software may be copied and distributed for educational, research,\r
+ * and not for profit purposes provided that this copyright and statement\r
+ * are included in all such copies.  Other copyrights may also apply.\r
+ * </pre>\r
+ * 2018 Deskull\r
+ * @details\r
+ * spell2s.c\82©\82ç\95ª\97£\r
+ */\r
+\r
+#include "angband.h"\r
+\r
+/*!\r
+ * @brief \8e©\8cÈ\95ª\90Í\8f\88\97\9d(Nethack\82©\82ç\82Ì\83A\83C\83f\83A) / self-knowledge... idea from nethack.\r
+ * @return \82È\82µ\r
+ * @details\r
+ * <pre>\r
+ * Useful for determining powers and\r
+ * resistences of items.  It saves the screen, clears it, then starts listing\r
+ * attributes, a screenful at a time.  (There are a LOT of attributes to\r
+ * list.  It will probably take 2 or 3 screens for a powerful character whose\r
+ * using several artifacts...) -CFT\r
+ *\r
+ * It is now a lot more efficient. -BEN-\r
+ *\r
+ * See also "identify_fully()".\r
+ *\r
+ * XXX XXX XXX Use the "show_file()" method, perhaps.\r
+ * </pre>\r
+ */\r
+void self_knowledge(void)\r
+{\r
+       int i = 0, j, k;\r
+\r
+       int v_nr = 0;\r
+       char v_string [8] [128];\r
+       char s_string [6] [128];\r
+\r
+       u32b flgs[TR_FLAG_SIZE];\r
+\r
+       object_type *o_ptr;\r
+\r
+       char Dummy[80];\r
+       char buf[2][80];\r
+\r
+       cptr info[220];\r
+\r
+       int plev = p_ptr->lev;\r
+\r
+       int percent;\r
+\r
+       for (j = 0; j < TR_FLAG_SIZE; j++)\r
+               flgs[j] = 0L;\r
+\r
+       p_ptr->knowledge |= (KNOW_STAT | KNOW_HPRATE);\r
+\r
+       strcpy(Dummy, "");\r
+\r
+       percent = (int)(((long)p_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) /\r
+               (2 * p_ptr->hitdie +\r
+               ((PY_MAX_LEVEL - 1+3) * (p_ptr->hitdie + 1))));\r
+\r
+       sprintf(Dummy, _("\8c»\8dÝ\82Ì\91Ì\97Í\83\89\83\93\83N : %d/100", "Your current Life Rating is %d/100."), percent);\r
+       strcpy(buf[0], Dummy);\r
+       info[i++] = buf[0];\r
+       info[i++] = "";\r
+\r
+       chg_virtue(V_KNOWLEDGE, 1);\r
+       chg_virtue(V_ENLIGHTEN, 1);\r
+\r
+       /* Acquire item flags from equipment */\r
+       for (k = INVEN_RARM; k < INVEN_TOTAL; k++)\r
+       {\r
+               u32b tflgs[TR_FLAG_SIZE];\r
+\r
+               o_ptr = &inventory[k];\r
+\r
+               /* Skip non-objects */\r
+               if (!o_ptr->k_idx) continue;\r
+\r
+               /* Extract the flags */\r
+               object_flags(o_ptr, tflgs);\r
+\r
+               /* Extract flags */\r
+               for (j = 0; j < TR_FLAG_SIZE; j++)\r
+                       flgs[j] |= tflgs[j];\r
+       }\r
+\r
+       info[i++] = _("\94\\97Í\82Ì\8dÅ\91å\92l", "Limits of maximum stats");\r
+\r
+       for (v_nr = 0; v_nr < 6; v_nr++)\r
+       {\r
+               char stat_desc[80];\r
+\r
+               sprintf(stat_desc, "%s 18/%d", stat_names[v_nr], p_ptr->stat_max_max[v_nr]-18);\r
+\r
+               strcpy(s_string[v_nr], stat_desc);\r
+\r
+               info[i++] = s_string[v_nr];\r
+       }\r
+       info[i++] = "";\r
+\r
+       sprintf(Dummy, _("\8c»\8dÝ\82Ì\91®\90« : %s(%ld)", "Your alighnment : %s(%ld)"), your_alignment(), (long int)p_ptr->align);\r
+       strcpy(buf[1], Dummy);\r
+       info[i++] = buf[1];\r
+       for (v_nr = 0; v_nr < 8; v_nr++)\r
+       {\r
+               char vir_name [20];\r
+               char vir_desc[80];\r
+               int tester = p_ptr->virtues[v_nr];\r
+       \r
+               strcpy(vir_name, virtue[(p_ptr->vir_types[v_nr])-1]);\r
\r
+               sprintf(vir_desc, _("\82¨\82Á\82Æ\81B%s\82Ì\8fî\95ñ\82È\82µ\81B", "Oops. No info about %s."), vir_name);\r
+               if (tester < -100)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\91Î\8bÉ (%d)", "You are the polar opposite of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < -80)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\91å\93G (%d)", "You are an arch-enemy of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < -60)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\8b­\93G (%d)", "You are a bitter enemy of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < -40)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\93G (%d)", "You are an enemy of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < -20)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\8dß\8eÒ (%d)", "You have sinned against %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 0)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\96À\93¹\8eÒ (%d)", "You have strayed from the path of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester == 0)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\92\86\97§\8eÒ (%d)", "You are neutral to %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 20)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\8f¬\93¿\8eÒ (%d)", "You are somewhat virtuous in %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 40)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\92\86\93¿\8eÒ (%d)", "You are virtuous in %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 60)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\8d\82\93¿\8eÒ (%d)", "You are very virtuous in %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 80)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\94e\8eÒ (%d)", "You are a champion of %s (%d)."),\r
+                               vir_name, tester);\r
+               else if (tester < 100)\r
+                       sprintf(vir_desc, _("[%s]\82Ì\88Ì\91å\82È\94e\8eÒ (%d)", "You are a great champion of %s (%d)."),\r
+                               vir_name, tester);\r
+               else\r
+                       sprintf(vir_desc, _("[%s]\82Ì\8bï\8c»\8eÒ (%d)", "You are the living embodiment of %s (%d)."),\r
+                               vir_name, tester);\r
+       \r
+               strcpy(v_string[v_nr], vir_desc);\r
+       \r
+               info[i++] = v_string[v_nr];\r
+       }\r
+       info[i++] = "";\r
+       \r
+       /* Racial powers... */\r
+       if (p_ptr->mimic_form)\r
+       {\r
+               switch (p_ptr->mimic_form)\r
+               {\r
+                       case MIMIC_DEMON:\r
+                       case MIMIC_DEMON_LORD:\r
+                       sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\92n\8d\96\82©\89Î\89\8a\82Ì\83u\83\8c\83X\82ð\93f\82­\82±\82Æ\82ª\82Å\82«\82é\81B(%d MP)", \r
+                                                       "You can nether breathe, dam. %d (cost %d)."), 3 * plev, 10+plev/3);\r
+\r
+                               info[i++] = Dummy;\r
+                       break;\r
+               case MIMIC_VAMPIRE:\r
+                       if (plev > 1)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í\93G\82©\82ç %d-%d HP \82Ì\90\96½\97Í\82ð\8bz\8eû\82Å\82«\82é\81B(%d MP)", \r
+                                                               "You can steal life from a foe, dam. %d-%d (cost %d)."),\r
+                                   plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               }\r
+       }\r
+       else\r
+       {\r
+       switch (p_ptr->prace)\r
+       {\r
+               case RACE_NIBELUNG:\r
+               case RACE_DWARF:\r
+                       if (plev > 4)\r
+                       info[i++] = _("\82 \82È\82½\82Íã©\82Æ\83h\83A\82Æ\8aK\92i\82ð\8a´\92m\82Å\82«\82é\81B(5 MP)", "You can find traps, doors and stairs (cost 5).");\r
+                       break;\r
+               case RACE_HOBBIT:\r
+                       if (plev > 14)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\90H\97¿\82ð\90\90¬\82Å\82«\82é\81B(10 MP)", "You can produce food (cost 10).");\r
+                       }\r
+                       break;\r
+               case RACE_GNOME:\r
+                       if (plev > 4)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í\94Í\88Í %d \88È\93à\82É\83e\83\8c\83|\81[\83g\82Å\82«\82é\81B(%d MP)", "You can teleport, range %d (cost %d)."),\r
+                                   (1 + plev), (5 + (plev / 5)));\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_HALF_ORC:\r
+                       if (plev > 2)\r
+                               info[i++] = _("\82 \82È\82½\82Í\8b°\95|\82ð\8f\9c\8b\8e\82Å\82«\82é\81B(5 MP)", "You can remove fear (cost 5).");\r
+                       break;\r
+               case RACE_HALF_TROLL:\r
+                       if (plev > 9)\r
+                               info[i++] = _("\82 \82È\82½\82Í\8b\96\\89»\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(12 MP) ", "You enter berserk fury (cost 12).");\r
+                       break;\r
+               case RACE_AMBERITE:\r
+                       if (plev > 29)\r
+                               info[i++] = _("\82 \82È\82½\82Í\83V\83\83\83h\83E\83V\83t\83g\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(50 MP)", "You can Shift Shadows (cost 50).");\r
+\r
+                       if (plev > 39)\r
+                               info[i++] = _("\82 \82È\82½\82Í\81u\83p\83^\81[\83\93\81v\82ð\90S\82É\95`\82¢\82Ä\95à\82­\82±\82Æ\82ª\82Å\82«\82é\81B(75 MP)", "You can mentally Walk the Pattern (cost 75).");\r
+\r
+                       break;\r
+               case RACE_BARBARIAN:\r
+                       if (plev > 7)\r
+                               info[i++] = _("\82 \82È\82½\82Í\8b\96\\89»\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(10 MP) ", "You can enter berserk fury (cost 10).");\r
+\r
+                       break;\r
+               case RACE_HALF_OGRE:\r
+                       if (plev > 24)\r
+                               info[i++] = _("\82 \82È\82½\82Í\94\9a\94­\82Ì\83\8b\81[\83\93\82ð\8ed\8a|\82¯\82é\82±\82Æ\82ª\82Å\82«\82é\81B(35 MP)", "You can set an Explosive Rune (cost 35).");\r
+\r
+                       break;\r
+               case RACE_HALF_GIANT:\r
+                       if (plev > 19)\r
+                               info[i++] = _("\82 \82È\82½\82Í\90Î\82Ì\95Ç\82ð\89ó\82·\82±\82Æ\82ª\82Å\82«\82é\81B(10 MP)", "You can break stone walls (cost 10).");\r
+                       break;\r
+               case RACE_HALF_TITAN:\r
+                       if (plev > 34)\r
+                               info[i++] = _("\82 \82È\82½\82Í\83\82\83\93\83X\83^\81[\82ð\83X\83L\83\83\83\93\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(20 MP)", "You can probe monsters (cost 20).");\r
+                       break;\r
+               case RACE_CYCLOPS:\r
+                       if (plev > 19)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\8aâ\90Î\82ð\93\8a\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B(15 MP)", \r
+                                                        "You can throw a boulder, dam. %d (cost 15)."), 3 * plev);\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_YEEK:\r
+                       if (plev > 14)\r
+                               info[i++] = _("\82 \82È\82½\82Í\8b°\95|\82ð\8cÄ\82Ñ\8bN\82±\82·\8b©\82Ñ\90º\82ð\94­\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(15 MP)", "You can make a terrifying scream (cost 15).");\r
+                       break;\r
+               case RACE_KLACKON:\r
+                       if (plev > 8)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\8e_\82ð\90\81\82«\82©\82¯\82é\82±\82Æ\82ª\82Å\82«\82é\81B(9 MP)", "You can spit acid, dam. %d (cost 9)."), plev);\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_KOBOLD:\r
+                       if (plev > 11)\r
+                       {\r
+                               sprintf(Dummy,\r
+                                               _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\93Å\96î\82ð\93\8a\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B(8 MP)", "You can throw a dart of poison, dam. %d (cost 8)."), plev);\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_DARK_ELF:\r
+                       if (plev > 1)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83}\83W\83b\83N\81E\83~\83T\83C\83\8b\82Ì\8eô\95\82ð\8eg\82¦\82é\81B(2 MP)", "You can cast a Magic Missile, dam %d (cost 2)."),\r
+                                   (3 + ((plev-1) / 5)));\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_DRACONIAN:\r
+                       sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83u\83\8c\83X\82ð\93f\82­\82±\82Æ\82ª\82Å\82«\82é\81B(%d MP)", "You can breathe, dam. %d (cost %d)."), 2 * plev, plev);\r
+                       info[i++] = Dummy;\r
+                       break;\r
+               case RACE_MIND_FLAYER:\r
+                       if (plev > 14)\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\90¸\90_\8dU\8c\82\82ð\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(12 MP)", "You can mind blast your enemies, dam %d (cost 12)."), plev);\r
+                       info[i++] = Dummy;\r
+                       break;\r
+               case RACE_IMP:\r
+                       if (plev > 29)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83t\83@\83C\83A\81E\83{\81[\83\8b\82Ì\8eô\95\82ð\8eg\82¦\82é\81B(15 MP)", "You can cast a Fire Ball, dam. %d (cost 15)."), plev);\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       else if (plev > 8)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83t\83@\83C\83A\81E\83{\83\8b\83g\82Ì\8eô\95\82ð\8eg\82¦\82é\81B(15 MP)", "You can cast a Fire Bolt, dam. %d (cost 15)."), plev);\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_GOLEM:\r
+                       if (plev > 19)\r
+                               info[i++] = _("\82 \82È\82½\82Í d20+30 \83^\81[\83\93\82Ì\8aÔ\94§\82ð\90Î\82É\95Ï\89»\82³\82¹\82ç\82ê\82é\81B(15 MP)", "You can turn your skin to stone, dur d20+30 (cost 15).");\r
+                       break;\r
+               case RACE_ZOMBIE:\r
+               case RACE_SKELETON:\r
+                       if (plev > 29)\r
+                               info[i++] = _("\82 \82È\82½\82Í\8e¸\82Á\82½\8co\8c±\92l\82ð\89ñ\95\9c\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(30 MP)", "You can restore lost experience (cost 30).");\r
+                       break;\r
+               case RACE_VAMPIRE:\r
+                       if (plev > 1)\r
+                       {\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í\93G\82©\82ç %d-%d HP \82Ì\90\96½\97Í\82ð\8bz\8eû\82Å\82«\82é\81B(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),\r
+                                   plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));\r
+                               info[i++] = Dummy;\r
+                       }\r
+                       break;\r
+               case RACE_SPECTRE:\r
+                       if (plev > 3)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8b\83\82«\8b©\82ñ\82Å\93G\82ð\8b°\95|\82³\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B(3 MP)", "You can wail to terrify your enemies (cost 3).");\r
+                       }\r
+                       break;\r
+               case RACE_SPRITE:\r
+                       if (plev > 11)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\93G\82ð\96°\82ç\82¹\82é\96\82\96@\82Ì\95²\82ð\93\8a\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B(12 MP)", "You can throw magical dust which induces sleep (cost 12).");\r
+                       }\r
+                       break;\r
+               case RACE_DEMON:\r
+                       sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\92n\8d\96\82©\89Î\89\8a\82Ì\83u\83\8c\83X\82ð\93f\82­\82±\82Æ\82ª\82Å\82«\82é\81B(%d MP)", \r
+                                               "You can breathe nether, dam. %d (cost %d)."), 3 * plev, 10+plev/3);\r
+\r
+                       info[i++] = Dummy;\r
+                       break;\r
+               case RACE_KUTAR:\r
+                       if (plev > 19)\r
+                               info[i++] = _("\82 \82È\82½\82Í d20+30 \83^\81[\83\93\82Ì\8aÔ\89¡\82É\90L\82Ñ\82é\82±\82Æ\82ª\82Å\82«\82é\81B(15 MP)", "You can expand horizontally, dur d20+30 (cost 15).");\r
+                       break;\r
+               case RACE_ANDROID:\r
+                       if (plev < 10)\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83\8c\83C\83K\83\93\82ð\8c\82\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(7 MP)", "You can fire a ray gun with damage %d (cost 7)."), \r
+                                       (plev + 1) / 2);\r
+                       else if (plev < 25)\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83u\83\89\83X\83^\81[\82ð\8c\82\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(13 MP)", "You can fire a blaster with damage %d (cost 13)."), plev);\r
+                       else if (plev < 35)\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83o\83Y\81[\83J\82ð\8c\82\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(26 MP)", "You can fire a bazooka with damage %d (cost 26)."), plev * 2);\r
+                       else if (plev < 45)\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83r\81[\83\80\83L\83\83\83m\83\93\82ð\8c\82\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(40 MP)", \r
+                                               "You can fire a beam cannon with damage %d (cost 40)."), plev * 2);\r
+                       else\r
+                               sprintf(Dummy, _("\82 \82È\82½\82Í %d \83_\83\81\81[\83W\82Ì\83\8d\83P\83b\83g\82ð\8c\82\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(60 MP)", \r
+                                               "You can fire a rocket with damage %d (cost 60)."), plev * 5);\r
+\r
+                       info[i++] = Dummy;\r
+                       break;\r
+               default:\r
+                       break;\r
+       }\r
+       }\r
+\r
+       switch(p_ptr->pclass)\r
+       {\r
+               case CLASS_WARRIOR:\r
+                       if (plev > 39)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\83\89\83\93\83_\83\80\82È\95û\8cü\82É\91Î\82µ\82Ä\90\94\89ñ\8dU\8c\82\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(75 MP)", \r
+                                                       "You can attack some random directions at a time (cost 75).");\r
+                       }\r
+                       break;\r
+               case CLASS_HIGH_MAGE:\r
+                       if (p_ptr->realm1 == REALM_HEX) break;\r
+               case CLASS_MAGE:\r
+               case CLASS_SORCERER:\r
+                       if (plev > 24)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\83A\83C\83e\83\80\82Ì\96\82\97Í\82ð\8bz\8eû\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(1 MP)", \r
+                                               "You can absorb charges from an item (cost 1).");\r
+                       }\r
+                       break;\r
+               case CLASS_PRIEST:\r
+                       if (is_good_realm(p_ptr->realm1))\r
+                       {\r
+                               if (plev > 34)\r
+                               {\r
+                                       info[i++] = _("\82 \82È\82½\82Í\95\90\8aí\82ð\8fj\95\9f\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(70 MP)", "You can bless a weapon (cost 70).");\r
+                               }\r
+                       }\r
+                       else\r
+                       {\r
+                               if (plev > 41)\r
+                               {\r
+                                       info[i++] = _("\82 \82È\82½\82Í\8eü\82è\82Ì\82·\82×\82Ä\82Ì\83\82\83\93\83X\83^\81[\82ð\8dU\8c\82\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(40 MP)", "You can damages all monsters in sight (cost 40).");\r
+                               }\r
+                       }\r
+                       break;\r
+               case CLASS_ROGUE:\r
+                       if (plev > 7)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8dU\8c\82\82µ\82Ä\91¦\8dÀ\82É\93¦\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B(12 MP)", "You can hit a monster and teleport at a time (cost 12).");\r
+                       }\r
+                       break;\r
+               case CLASS_RANGER:\r
+                       if (plev > 14)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\89ö\95¨\82ð\92²\8d¸\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(20 MP)", "You can prove monsters (cost 20).");\r
+                       }\r
+                       break;\r
+               case CLASS_PALADIN:\r
+                       if (is_good_realm(p_ptr->realm1))\r
+                       {\r
+                               if (plev > 29)\r
+                               {\r
+                                       info[i++] = _("\82 \82È\82½\82Í\90¹\82È\82é\91\84\82ð\95ú\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(30 MP)", "You can fires a holy spear (cost 30).");\r
+                               }\r
+                       }\r
+                       else\r
+                       {\r
+                               if (plev > 29)\r
+                               {\r
+                                       info[i++] = _("\82 \82È\82½\82Í\90\96½\97Í\82ð\8c¸\8f­\82³\82¹\82é\91\84\82ð\95ú\82Â\82±\82Æ\82ª\82Å\82«\82é\81B(30 MP)", "You can fires a spear which drains vitality (cost 30).");\r
+                               }\r
+                       }\r
+                       break;\r
+               case CLASS_WARRIOR_MAGE:\r
+                       if (plev > 24)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\82g\82o\82ð\82l\82o\82É\95Ï\8a·\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can convert HP to SP (cost 0).");\r
+                               info[i++] = _("\82 \82È\82½\82Í\82l\82o\82ð\82g\82o\82É\95Ï\8a·\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can convert SP to HP (cost 0).");\r
+                       }\r
+                       break;\r
+               case CLASS_CHAOS_WARRIOR:\r
+                       if (plev > 39)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8eü\88Í\82É\89ö\95¨\82ð\98f\82í\82·\8cõ\82ð\94­\90\82³\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B(50 MP)",\r
+                                               "You can radiate light which confuses nearby monsters (cost 50).");\r
+                       }\r
+                       break;\r
+               case CLASS_MONK:\r
+                       if (plev > 24)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8d\\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can assume a posture of special form (cost 0).");\r
+                       }\r
+                       if (plev > 29)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\92Ê\8fí\82Ì2\94{\82Ì\8dU\8c\82\82ð\8ds\82¤\82±\82Æ\82ª\82Å\82«\82é\81B(30 MP)", "You can perform double attacks in a time (cost 30).");\r
+                       }\r
+                       break;\r
+               case CLASS_MINDCRAFTER:\r
+               case CLASS_FORCETRAINER:\r
+                       if (plev > 14)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\90¸\90_\82ð\8fW\92\86\82µ\82Ä\82l\82o\82ð\89ñ\95\9c\82³\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can concentrate to regenerate your mana (cost 0).");\r
+                       }\r
+                       break;\r
+               case CLASS_TOURIST:\r
+                       info[i++] = _("\82 \82È\82½\82Í\8eÊ\90^\82ð\8eB\89e\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can take a photograph (cost 0).");\r
+                       if (plev > 24)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\83A\83C\83e\83\80\82ð\8a®\91S\82É\8aÓ\92è\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(20 MP)", "You can *identify* items (cost 20).");\r
+                       }\r
+                       break;\r
+               case CLASS_IMITATOR:\r
+                       if (plev > 29)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\89ö\95¨\82Ì\93Á\8eê\8dU\8c\82\82ð\83_\83\81\81[\83W2\94{\82Å\82Ü\82Ë\82é\82±\82Æ\82ª\82Å\82«\82é\81B(100 MP)", \r
+                                               "You can imitate monster's special attacks with double damage (cost 100).");\r
+                       }\r
+                       break;\r
+               case CLASS_BEASTMASTER:\r
+                       info[i++] = _("\82 \82È\82½\82Í1\91Ì\82Ì\90\96½\82Ì\82 \82é\83\82\83\93\83X\83^\81[\82ð\8ex\94z\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83\8c\83x\83\8b/4 MP)", "You can dominate a monster (cost level/4).");\r
+                       if (plev > 29)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8e\8b\8aE\93à\82Ì\90\96½\82Ì\82 \82é\83\82\83\93\83X\83^\81[\82ð\8ex\94z\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B((\83\8c\83x\83\8b+20)/2 MP)", \r
+                                               "You can dominate living monsters in sight (cost (level+20)/4).");\r
+                       }\r
+                       break;\r
+               case CLASS_MAGIC_EATER:\r
+                       info[i++] = _("\82 \82È\82½\82Í\8fñ/\96\82\96@\96_/\83\8d\83b\83h\82Ì\96\82\97Í\82ð\8e©\95ª\82Ì\82à\82Ì\82É\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can absorb a staff, wand or rod itself.");\r
+                       break;\r
+               case CLASS_RED_MAGE:\r
+                       if (plev > 47)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í1\83^\81[\83\93\82É2\89ñ\96\82\96@\82ð\8f¥\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B(20 MP)", "You can cast two spells in one time (cost 20).");\r
+                       }\r
+                       break;\r
+               case CLASS_SAMURAI:\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\90¸\90_\82ð\8fW\92\86\82µ\82Ä\8bC\8d\87\82¢\82ð\97­\82ß\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can concentrate to regenerate your mana.");\r
+                       }\r
+                       if (plev > 24)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\93Á\8eê\82È\8c^\82Å\8d\\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can assume a posture of special form.");\r
+                       }\r
+                       break;\r
+               case CLASS_BLUE_MAGE:\r
+                       info[i++] = _("\82 \82È\82½\82Í\91\8a\8eè\82É\8eg\82í\82ê\82½\96\82\96@\82ð\8aw\82Ô\82±\82Æ\82ª\82Å\82«\82é\81B", "You can study spells which your enemy casts on you.");\r
+                       break;\r
+               case CLASS_CAVALRY:\r
+                       if (plev > 9)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\83\82\83\93\83X\83^\81[\82É\8fæ\82Á\82Ä\96³\97\9d\96î\97\9d\83y\83b\83g\82É\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can ride on a hostile monster forcibly to turn it into pet.");\r
+                       }\r
+                       break;\r
+               case CLASS_BERSERKER:\r
+                       if (plev > 9)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\8aX\82Æ\83_\83\93\83W\83\87\83\93\82Ì\8aÔ\82ð\8ds\82«\97\88\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can travel between town and the depths.");\r
+                       }\r
+                       break;\r
+               case CLASS_MIRROR_MASTER:\r
+                       info[i++] = _("\82 \82È\82½\82Í\8b¾\82ð\8dì\82è\8fo\82·\82±\82Æ\82ª\82Å\82«\82é\81B(2 MP)", "You can create a Mirror (cost 2).");\r
+                       info[i++] = _("\82 \82È\82½\82Í\8b¾\82ð\8a\84\82é\82±\82Æ\82ª\82Å\82«\82é\81B(0 MP)", "You can break distant Mirrors (cost 0).");\r
+                       break;\r
+               case CLASS_NINJA:\r
+                       if (plev > 19)\r
+                       {\r
+                               info[i++] = _("\82 \82È\82½\82Í\91f\91\81\82­\88Ú\93®\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can walk extremery fast.");\r
+                       }\r
+                       break;\r
+       }\r
+\r
+       if (p_ptr->muta1)\r
+       {\r
+               if (p_ptr->muta1 & MUT1_SPIT_ACID)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e_\82ð\90\81\82«\82©\82¯\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX1)", "You can spit acid (dam lvl).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_BR_FIRE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\89\8a\82Ì\83u\83\8c\83X\82ð\93f\82­\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX2)", "You can breathe fire (dam lvl * 2).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_HYPN_GAZE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82ÌáÉ\82Ý\82Í\8dÃ\96°\8cø\89Ê\82ð\82à\82Â\81B", "Your gaze is hypnotic.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_TELEKINES)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\94O\93®\97Í\82ð\82à\82Á\82Ä\82¢\82é\81B", "You are telekinetic.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_VTELEPORT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e©\95ª\82Ì\88Ó\8ev\82Å\83e\83\8c\83|\81[\83g\82Å\82«\82é\81B", "You can teleport at will.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_MIND_BLST)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90¸\90_\8dU\8c\82\82ð\8ds\82¦\82é\81B(\83_\83\81\81[\83W 3\81`12d3)", "You can Mind Blast your enemies (3 to 12d3 dam).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_RADIATION)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e©\95ª\82Ì\88Ó\8ev\82Å\8b­\82¢\95ú\8eË\90ü\82ð\94­\90\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX2)", "You can emit hard radiation at will (dam lvl * 2).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_VAMPIRISM)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8bz\8c\8c\8bS\82Ì\82æ\82¤\82É\93G\82©\82ç\90\96½\97Í\82ð\8bz\8eû\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX2)", \r
+                                               "You can drain life from a foe like a vampire (dam lvl * 2).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_SMELL_MET)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8bß\82­\82É\82 \82é\8bM\8bà\91®\82ð\82©\82¬\95ª\82¯\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can smell nearby precious metal.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_SMELL_MON)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8bß\82­\82Ì\83\82\83\93\83X\83^\81[\82Ì\91\8dÝ\82ð\82©\82¬\95ª\82¯\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can smell nearby monsters.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_BLINK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\92Z\82¢\8b\97\97£\82ð\83e\83\8c\83|\81[\83g\82Å\82«\82é\81B", "You can teleport yourself short distances.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_EAT_ROCK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8dd\82¢\8aâ\82ð\90H\82×\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can consume solid rock.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_SWAP_POS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\91¼\82Ì\8eÒ\82Æ\8fê\8f\8a\82ð\93ü\82ê\91Ö\82í\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can switch locations with another being.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_SHRIEK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90g\82Ì\96Ñ\82à\82æ\82¾\82Â\8b©\82Ñ\90º\82ð\94­\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX2)", "You can emit a horrible shriek (dam 2 * lvl).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_ILLUMINE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\96¾\82é\82¢\8cõ\82ð\95ú\82Â\82±\82Æ\82ª\82Å\82«\82é\81B", "You can emit bright light.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_DET_CURSE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\96\82\96@\82Ì\8aë\8c¯\82ð\8a´\82\82Æ\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can feel the danger of evil magic.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_BERSERK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e©\95ª\82Ì\88Ó\8ev\82Å\8b\97\90\90í\93¬\8fó\91Ô\82É\82È\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can drive yourself into a berserk frenzy.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_POLYMORPH)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e©\95ª\82Ì\88Ó\8eu\82Å\95Ï\89»\82Å\82«\82é\81B", "You can polymorph yourself at will.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_MIDAS_TCH)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\92Ê\8fí\83A\83C\83e\83\80\82ð\8bà\82É\95Ï\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can turn ordinary items to gold.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_GROW_MOLD)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8eü\88Í\82É\83L\83m\83R\82ð\90\82â\82·\82±\82Æ\82ª\82Å\82«\82é\81B", "You can cause mold to grow near you.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_RESIST)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8c³\91f\82Ì\8dU\8c\82\82É\91Î\82µ\82Ä\90g\82ð\8dd\82­\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can harden yourself to the ravages of the elements.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_EARTHQUAKE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8eü\88Í\82Ì\83_\83\93\83W\83\87\83\93\82ð\95ö\89ó\82³\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can bring down the dungeon around your ears.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_EAT_MAGIC)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\96\82\96@\82Ì\83G\83l\83\8b\83M\81[\82ð\8e©\95ª\82Ì\95¨\82Æ\82µ\82Ä\8eg\97p\82Å\82«\82é\81B", "You can consume magic energy for your own use.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_WEIGH_MAG)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e©\95ª\82É\89e\8b¿\82ð\97^\82¦\82é\96\82\96@\82Ì\97Í\82ð\8a´\82\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can feel the strength of the magics affecting you.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_STERILITY)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8fW\92c\93I\90\90B\95s\94\\82ð\8bN\82±\82·\82±\82Æ\82ª\82Å\82«\82é\81B", "You can cause mass impotence.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_PANIC_HIT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8dU\8c\82\82µ\82½\8cã\90g\82ð\8eç\82é\82½\82ß\93¦\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can run for your life after hitting something.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_DAZZLE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8d¬\97\90\82Æ\96Ó\96Ú\82ð\88ø\82«\8bN\82±\82·\95ú\8eË\94\\82ð\94­\90\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B ", "You can emit confusing, blinding radiation.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_LASER_EYE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\96Ú\82©\82ç\83\8c\81[\83U\81[\8cõ\90ü\82ð\94­\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX2)", "Your eyes can fire laser beams (dam 2 * lvl).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_RECALL)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8aX\82Æ\83_\83\93\83W\83\87\83\93\82Ì\8aÔ\82ð\8ds\82«\97\88\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can travel between town and the depths.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_BANISH)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\83\82\83\93\83X\83^\81[\82ð\92n\8d\96\82É\97\8e\82Æ\82·\82±\82Æ\82ª\82Å\82«\82é\81B", "You can send evil creatures directly to Hell.");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_COLD_TOUCH)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\93G\82ð\90G\82Á\82Ä\93\80\82ç\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B(\83_\83\81\81[\83\83\8c\83x\83\8bX3)", "You can freeze things with a touch (dam 3 * lvl).");\r
+               }\r
+               if (p_ptr->muta1 & MUT1_LAUNCHER)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83A\83C\83e\83\80\82ð\97Í\8b­\82­\93\8a\82°\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can hurl objects with great force.");\r
+               }\r
+       }\r
+\r
+       if (p_ptr->muta2)\r
+       {\r
+               if (p_ptr->muta2 & MUT2_BERS_RAGE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8b\90í\8em\89»\82Ì\94­\8dì\82ð\8bN\82±\82·\81B", "You are subject to berserker fits.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_COWARDICE)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\89°\95a\82É\82È\82é\81B", "You are subject to cowardice.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_RTELEPORT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83\89\83\93\83_\83\80\82É\83e\83\8c\83|\81[\83g\82·\82é\81B", "You are teleporting randomly.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_ALCOHOL)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\91Ì\82Í\83A\83\8b\83R\81[\83\8b\82ð\95ª\94å\82·\82é\81B", "Your body produces alcohol.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_HALLU)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8c\8ao\82ð\88ø\82«\8bN\82±\82·\90¸\90_\8dö\97\90\82É\90N\82³\82ê\82Ä\82¢\82é\81B", "You have a hallucinatory insanity.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_FLATULENT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90§\8cä\82Å\82«\82È\82¢\8b­\97ó\82È\9b\9b\82ð\82±\82­\81B", "You are subject to uncontrollable flatulence.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_PROD_MANA)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90§\8cä\95s\94\\82È\96\82\96@\82Ì\83G\83l\83\8b\83M\81[\82ð\94­\82µ\82Ä\82¢\82é\81B", "You are producing magical energy uncontrollably.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_ATT_DEMON)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83f\81[\83\82\83\93\82ð\88ø\82«\82Â\82¯\82é\81B", "You attract demons.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_SCOR_TAIL)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83T\83\\83\8a\82Ì\90K\94ö\82ª\90\82¦\82Ä\82¢\82é\81B(\93Å\81A\83_\83\81\81[\83W 3d7)", "You have a scorpion tail (poison, 3d7).");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_HORNS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8ap\82ª\90\82¦\82Ä\82¢\82é\81B(\83_\83\81\81[\83W 2d6)", "You have horns (dam. 2d6).");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_BEAK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83N\83`\83o\83V\82ª\90\82¦\82Ä\82¢\82é\81B(\83_\83\81\81[\83W 2d4)", "You have a beak (dam. 2d4).");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_SPEED_FLUX)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83\89\83\93\83_\83\80\82É\91\81\82­\93®\82¢\82½\82è\92x\82­\93®\82¢\82½\82è\82·\82é\81B", "You move faster or slower randomly.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_BANISH_ALL)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\8bß\82­\82Ì\83\82\83\93\83X\83^\81[\82ð\8fÁ\96Å\82³\82¹\82é\81B", "You sometimes cause nearby creatures to vanish.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_EAT_LIGHT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\8eü\88Í\82Ì\8cõ\82ð\8bz\8eû\82µ\82Ä\89h\97{\82É\82·\82é\81B", "You sometimes feed off of the light around you.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_TRUNK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8fÛ\82Ì\82æ\82¤\82È\95@\82ð\8e\9d\82Á\82Ä\82¢\82é\81B(\83_\83\81\81[\83W 1d4)", "You have an elephantine trunk (dam 1d4).");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_ATT_ANIMAL)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\93®\95¨\82ð\88ø\82«\82Â\82¯\82é\81B", "You attract animals.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_TENTACLES)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\90G\8eè\82ð\8e\9d\82Á\82Ä\82¢\82é\81B(\83_\83\81\81[\83W 2d5)", "You have evil looking tentacles (dam 2d5).");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_RAW_CHAOS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\82µ\82Î\82µ\82Î\8f\83\83J\83I\83X\82É\95ï\82Ü\82ê\82é\81B", "You occasionally are surrounded with raw chaos.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_NORMALITY)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\95Ï\88Ù\82µ\82Ä\82¢\82½\82ª\81A\89ñ\95\9c\82µ\82Ä\82«\82Ä\82¢\82é\81B", "You may be mutated, but you're recovering.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_WRAITH)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\93÷\91Ì\82Í\97H\91Ì\89»\82µ\82½\82è\8eÀ\91Ì\89»\82µ\82½\82è\82·\82é\81B", "You fade in and out of physical reality.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_POLY_WOUND)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\8c\92\8dN\82Í\83J\83I\83X\82Ì\97Í\82É\89e\8b¿\82ð\8eó\82¯\82é\81B", "Your health is subject to chaotic forces.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_WASTING)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90\8a\8eã\82·\82é\8b°\82ë\82µ\82¢\95a\8bC\82É\82©\82©\82Á\82Ä\82¢\82é\81B", "You have a horrible wasting disease.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_ATT_DRAGON)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83h\83\89\83S\83\93\82ð\88ø\82«\82Â\82¯\82é\81B", "You attract dragons.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_WEIRD_MIND)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\90¸\90_\82Í\83\89\83\93\83_\83\80\82É\8ag\91å\82µ\82½\82è\8fk\8f¬\82µ\82½\82è\82µ\82Ä\82¢\82é\81B", "Your mind randomly expands and contracts.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_NAUSEA)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\88Ý\82Í\94ñ\8fí\82É\97\8e\82¿\92\85\82«\82ª\82È\82¢\81B", "You have a seriously upset stomach.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_CHAOS_GIFT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83J\83I\83X\82Ì\8eç\8cì\88«\96\82\82©\82ç\96J\94ü\82ð\82¤\82¯\82Æ\82é\81B", "Chaos deities give you gifts.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_WALK_SHAD)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\82µ\82Î\82µ\82Î\91¼\82Ì\81u\89e\81v\82É\96À\82¢\8d\9e\82Þ\81B", "You occasionally stumble into other shadows.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_WARNING)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\93G\82É\8aÖ\82·\82é\8cx\8d\90\82ð\8a´\82\82é\81B", "You receive warnings about your foes.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_INVULN)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\95\89\82¯\92m\82ç\82¸\82È\8bC\95ª\82É\82È\82é\81B", "You occasionally feel invincible.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_SP_TO_HP)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\8c\8c\82ª\8bØ\93÷\82É\82Ç\82Á\82Æ\97¬\82ê\82é\81B", "Your blood sometimes rushes to your muscles.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_HP_TO_SP)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\93ª\82É\8c\8c\82ª\82Ç\82Á\82Æ\97¬\82ê\82é\81B", "Your blood sometimes rushes to your head.");\r
+               }\r
+               if (p_ptr->muta2 & MUT2_DISARM)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\82æ\82­\82Â\82Ü\82Ã\82¢\82Ä\95¨\82ð\97\8e\82Æ\82·\81B", "You occasionally stumble and drop things.");\r
+               }\r
+       }\r
+\r
+       if (p_ptr->muta3)\r
+       {\r
+               if (p_ptr->muta3 & MUT3_HYPER_STR)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\92´\90l\93I\82É\8b­\82¢\81B(\98r\97Í+4)", "You are superhumanly strong (+4 STR).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_PUNY)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8b\95\8eã\82¾\81B(\98r\97Í-4)", "You are puny (-4 STR).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_HYPER_INT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\94]\82Í\90\91Ì\83R\83\93\83s\83\85\81[\83^\82¾\81B(\92m\94\\81\95\8c«\82³+4)", "Your brain is a living computer (+4 INT/WIS).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_MORONIC)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\90¸\90_\94\96\8eã\82¾\81B(\92m\94\\81\95\8c«\82³-4)", "You are moronic (-4 INT/WIS).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_RESILIENT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\94ñ\8fí\82É\83^\83t\82¾\81B(\91Ï\8bv+4)", "You are very resilient (+4 CON).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_XTRA_FAT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8bÉ\92[\82É\91¾\82Á\82Ä\82¢\82é\81B(\91Ï\8bv+2,\83X\83s\81[\83h-2)", "You are extremely fat (+2 CON, -2 speed).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_ALBINO)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\83A\83\8b\83r\83m\82¾\81B(\91Ï\8bv-4)", "You are albino (-4 CON).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_FLESH_ROT)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\93÷\91Ì\82Í\95\85\94s\82µ\82Ä\82¢\82é\81B(\91Ï\8bv-2,\96£\97Í-1)", "Your flesh is rotting (-2 CON, -1 CHR).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_SILLY_VOI)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\90º\82Í\8aÔ\94²\82¯\82È\83L\81[\83L\81[\90º\82¾\81B(\96£\97Í-4)", "Your voice is a silly squeak (-4 CHR).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_BLANK_FAC)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\82Ì\82Á\82Ø\82ç\82Ú\82¤\82¾\81B(\96£\97Í-1)", "Your face is featureless (-1 CHR).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_ILL_NORM)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8c\89e\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "Your appearance is masked with illusion.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_XTRA_EYES)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\97]\95ª\82É\93ñ\82Â\82Ì\96Ú\82ð\8e\9d\82Á\82Ä\82¢\82é\81B(\92T\8dõ+15)", "You have an extra pair of eyes (+15 search).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_MAGIC_RES)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\96\82\96@\82Ö\82Ì\91Ï\90«\82ð\82à\82Á\82Ä\82¢\82é\81B", "You are resistant to magic.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_XTRA_NOIS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\95Ï\82È\89¹\82ð\94­\82µ\82Ä\82¢\82é\81B(\89B\96§-3)", "You make a lot of strange noise (-3 stealth).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_INFRAVIS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\91f\90°\82ç\82µ\82¢\90Ô\8aO\90ü\8e\8b\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B(+3)", "You have remarkable infravision (+3).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_XTRA_LEGS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\97]\95ª\82É\93ñ\96{\82Ì\91«\82ª\90\82¦\82Ä\82¢\82é\81B(\89Á\91¬+3)", "You have an extra pair of legs (+3 speed).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_SHORT_LEG)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\91«\82Í\92Z\82¢\93Ë\8bN\82¾\81B(\89Á\91¬-3)", "Your legs are short stubs (-3 speed).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_ELEC_TOUC)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\8c\8c\8aÇ\82É\82Í\93d\97¬\82ª\97¬\82ê\82Ä\82¢\82é\81B", "Electricity is running through your veins.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_FIRE_BODY)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\91Ì\82Í\89\8a\82É\82Â\82Â\82Ü\82ê\82Ä\82¢\82é\81B", "Your body is enveloped in flames.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_WART_SKIN)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\94§\82Í\83C\83{\82É\94í\82í\82ê\82Ä\82¢\82é\81B(\96£\97Í-2, AC+5)", "Your skin is covered with warts (-2 CHR, +5 AC).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_SCALES)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\94§\82Í\97Ø\82É\82È\82Á\82Ä\82¢\82é\81B(\96£\97Í-1, AC+10)", "Your skin has turned into scales (-1 CHR, +10 AC).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_IRON_SKIN)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\94§\82Í\93S\82Å\82Å\82«\82Ä\82¢\82é\81B(\8aí\97p-1, AC+25)", "Your skin is made of steel (-1 DEX, +25 AC).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_WINGS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\89H\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You have wings.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_FEARLESS)\r
+               {\r
+                       /* Unnecessary */\r
+               }\r
+               if (p_ptr->muta3 & MUT3_REGEN)\r
+               {\r
+                       /* Unnecessary */\r
+               }\r
+               if (p_ptr->muta3 & MUT3_ESP)\r
+               {\r
+                       /* Unnecessary */\r
+               }\r
+               if (p_ptr->muta3 & MUT3_LIMBER)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\91Ì\82Í\94ñ\8fí\82É\82µ\82È\82â\82©\82¾\81B(\8aí\97p+3)", "Your body is very limber (+3 DEX).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_ARTHRITIS)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\82¢\82Â\82à\8aÖ\90ß\82É\92É\82Ý\82ð\8a´\82\82Ä\82¢\82é\81B(\8aí\97p-3)", "Your joints ache constantly (-3 DEX).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_VULN_ELEM)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8c³\91f\82Ì\8dU\8c\82\82É\8eã\82¢\81B", "You are susceptible to damage from the elements.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_MOTION)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\93®\8dì\82Í\90³\8am\82Å\97Í\8b­\82¢\81B(\89B\96§+1)", "Your movements are precise and forceful (+1 STL).");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_GOOD_LUCK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\94\92\82¢\83I\81[\83\89\82É\82Â\82Â\82Ü\82ê\82Ä\82¢\82é\81B", "There is a white aura surrounding you.");\r
+               }\r
+               if (p_ptr->muta3 & MUT3_BAD_LUCK)\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Í\8d\95\82¢\83I\81[\83\89\82É\82Â\82Â\82Ü\82ê\82Ä\82¢\82é\81B", "There is a black aura surrounding you.");\r
+               }\r
+       }\r
+\r
+       if (p_ptr->blind)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\96Ú\82ª\8c©\82¦\82È\82¢\81B", "You cannot see.");\r
+       }\r
+       if (p_ptr->confused)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8d¬\97\90\82µ\82Ä\82¢\82é\81B", "You are confused.");\r
+       }\r
+       if (p_ptr->afraid)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8b°\95|\82É\90N\82³\82ê\82Ä\82¢\82é\81B", "You are terrified.");\r
+       }\r
+       if (p_ptr->cut)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8fo\8c\8c\82µ\82Ä\82¢\82é\81B", "You are bleeding.");\r
+       }\r
+       if (p_ptr->stun)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\82à\82¤\82ë\82¤\82Æ\82µ\82Ä\82¢\82é\81B", "You are stunned.");\r
+       }\r
+       if (p_ptr->poisoned)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93Å\82É\90N\82³\82ê\82Ä\82¢\82é\81B", "You are poisoned.");\r
+       }\r
+       if (p_ptr->image)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8c\8ao\82ð\8c©\82Ä\82¢\82é\81B", "You are hallucinating.");\r
+       }\r
+       if (p_ptr->cursed & TRC_TY_CURSE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\89\85\94O\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You carry an ancient foul curse.");\r
+       }\r
+       if (p_ptr->cursed & TRC_AGGRAVATE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83\82\83\93\83X\83^\81[\82ð\93{\82ç\82¹\82Ä\82¢\82é\81B", "You aggravate monsters.");\r
+       }\r
+       if (p_ptr->cursed & TRC_DRAIN_EXP)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8co\8c±\92l\82ð\8bz\82í\82ê\82Ä\82¢\82é\81B", "You are drained.");\r
+       }\r
+       if (p_ptr->cursed & TRC_SLOW_REGEN)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\89ñ\95\9c\97Í\82Í\94ñ\8fí\82É\92x\82¢\81B", "You regenerate slowly.");\r
+       }\r
+       if (p_ptr->cursed & TRC_ADD_L_CURSE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eã\82¢\8eô\82¢\82Í\91\9d\82¦\82é\81B","Your weak curses multiply."); /* \8eb\92è\93I -- henkma */\r
+       }\r
+       if (p_ptr->cursed & TRC_ADD_H_CURSE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8b­\82¢\8eô\82¢\82Í\91\9d\82¦\82é\81B","Your heavy curses multiply."); /* \8eb\92è\93I -- henkma */\r
+       }\r
+       if (p_ptr->cursed & TRC_CALL_ANIMAL)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93®\95¨\82É\91_\82í\82ê\82Ä\82¢\82é\81B", "You attract animals.");\r
+       }\r
+       if (p_ptr->cursed & TRC_CALL_DEMON)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88«\96\82\82É\91_\82í\82ê\82Ä\82¢\82é\81B", "You attract demons.");\r
+       }\r
+       if (p_ptr->cursed & TRC_CALL_DRAGON)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83h\83\89\83S\83\93\82É\91_\82í\82ê\82Ä\82¢\82é\81B", "You attract dragons.");\r
+       }\r
+       if (p_ptr->cursed & TRC_COWARDICE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e\9e\81X\89°\95a\82É\82È\82é\81B", "You are subject to cowardice.");\r
+       }\r
+       if (p_ptr->cursed & TRC_TELEPORT)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\88Ê\92u\82Í\82Ð\82\82å\82¤\82É\95s\88À\92è\82¾\81B", "Your position is very uncertain.");\r
+       }\r
+       if (p_ptr->cursed & TRC_LOW_MELEE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\8dU\8c\82\82ð\8aO\82µ\82â\82·\82¢\81B", "Your weapon causes you to miss blows.");\r
+       }\r
+       if (p_ptr->cursed & TRC_LOW_AC)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8dU\8c\82\82ð\8eó\82¯\82â\82·\82¢\81B", "You are subject to be hit.");\r
+       }\r
+       if (p_ptr->cursed & TRC_LOW_MAGIC)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\96\82\96@\82ð\8e¸\94s\82µ\82â\82·\82¢\81B", "You are subject to fail spellcasting.");\r
+       }\r
+       if (p_ptr->cursed & TRC_FAST_DIGEST)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\82·\82®\82¨\95 \82ª\82Ö\82é\81B", "You have a good appetite.");\r
+       }\r
+       if (p_ptr->cursed & TRC_DRAIN_HP)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91Ì\97Í\82ð\8bz\82í\82ê\82Ä\82¢\82é\81B", "You are drained.");\r
+       }\r
+       if (p_ptr->cursed & TRC_DRAIN_MANA)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\96\82\97Í\82ð\8bz\82í\82ê\82Ä\82¢\82é\81B", "You brain is drained.");\r
+       }\r
+       if (IS_BLESSED())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8d\82\8c\89\82³\82ð\8a´\82\82Ä\82¢\82é\81B", "You feel rightous.");\r
+       }\r
+       if (IS_HERO())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83q\81[\83\8d\81[\8bC\95ª\82¾\81B", "You feel heroic.");\r
+       }\r
+       if (p_ptr->shero)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\90í\93¬\8b\82¾\81B", "You are in a battle rage.");\r
+       }\r
+       if (p_ptr->protevil)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\82é\91\8dÝ\82©\82ç\8eç\82ç\82ê\82Ä\82¢\82é\81B", "You are protected from evil.");\r
+       }\r
+       if (p_ptr->shield)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\90_\94é\82Ì\83V\81[\83\8b\83h\82Å\8eç\82ç\82ê\82Ä\82¢\82é\81B", "You are protected by a mystic shield.");\r
+       }\r
+       if (IS_INVULN())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8c»\8dÝ\8f\9d\82Â\82©\82È\82¢\81B", "You are temporarily invulnerable.");\r
+       }\r
+       if (p_ptr->wraith_form)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88ê\8e\9e\93I\82É\97H\91Ì\89»\82µ\82Ä\82¢\82é\81B", "You are temporarily incorporeal.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_CONFUSE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\90Ô\82­\8bP\82¢\82Ä\82¢\82é\81B", "Your hands are glowing dull red.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_FIRE)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\89Î\89\8a\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "You can strike the enemy with flame.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_COLD)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\97â\8bC\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "You can strike the enemy with cold.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_ACID)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\8e_\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "You can strike the enemy with acid.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_ELEC)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\93d\8c\82\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "You can strike the enemy with electoric shock.");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_POIS)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\93Å\82É\95¢\82í\82ê\82Ä\82¢\82é\81B", "You can strike the enemy with poison.");\r
+       }\r
+       switch (p_ptr->action)\r
+       {\r
+               case ACTION_SEARCH:\r
+                       info[i++] = _("\82 \82È\82½\82Í\82Ð\82\82å\82¤\82É\92\8d\88Ó\90[\82­\8eü\88Í\82ð\8c©\93n\82µ\82Ä\82¢\82é\81B", "You are looking around very carefully.");\r
+                       break;\r
+       }\r
+       if (p_ptr->new_spells)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8eô\95\82â\8bF\82è\82ð\8aw\82Ô\82±\82Æ\82ª\82Å\82«\82é\81B", "You can learn some spells/prayers.");\r
+       }\r
+       if (p_ptr->word_recall)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\82·\82®\82É\8bA\8aÒ\82·\82é\82¾\82ë\82¤\81B", "You will soon be recalled.");\r
+       }\r
+       if (p_ptr->alter_reality)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\82·\82®\82É\82±\82Ì\90¢\8aE\82ð\97£\82ê\82é\82¾\82ë\82¤\81B", "You will soon be altered.");\r
+       }\r
+       if (p_ptr->see_infra)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\93µ\82Í\90Ô\8aO\90ü\82É\95q\8a´\82Å\82 \82é\81B", "Your eyes are sensitive to infrared light.");\r
+       }\r
+       if (p_ptr->see_inv)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93§\96¾\82È\83\82\83\93\83X\83^\81[\82ð\8c©\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can see invisible creatures.");\r
+       }\r
+       if (p_ptr->levitation)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\94ò\82Ô\82±\82Æ\82ª\82Å\82«\82é\81B", "You can fly.");\r
+       }\r
+       if (p_ptr->free_act)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\96\83á\83\92m\82ç\82¸\82Ì\8cø\89Ê\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You have free action.");\r
+       }\r
+       if (p_ptr->regenerate)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91f\91\81\82­\91Ì\97Í\82ð\89ñ\95\9c\82·\82é\81B", "You regenerate quickly.");\r
+       }\r
+       if (p_ptr->slow_digest)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\90H\97~\82ª\8f­\82È\82¢\81B", "Your appetite is small.");\r
+       }\r
+       if (p_ptr->telepathy)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83e\83\8c\83p\83V\81[\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You have ESP.");\r
+       }\r
+       if (p_ptr->esp_animal)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e©\91R\8aE\82Ì\90\95¨\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense natural creatures.");\r
+       }\r
+       if (p_ptr->esp_undead)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83A\83\93\83f\83b\83h\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense undead.");\r
+       }\r
+       if (p_ptr->esp_demon)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88«\96\82\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense demons.");\r
+       }\r
+       if (p_ptr->esp_orc)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83I\81[\83N\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense orcs.");\r
+       }\r
+       if (p_ptr->esp_troll)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83g\83\8d\83\8b\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense trolls.");\r
+       }\r
+       if (p_ptr->esp_giant)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8b\90\90l\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense giants.");\r
+       }\r
+       if (p_ptr->esp_dragon)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83h\83\89\83S\83\93\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense dragons.");\r
+       }\r
+       if (p_ptr->esp_human)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\90l\8aÔ\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense humans.");\r
+       }\r
+       if (p_ptr->esp_evil)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\90\82«\95¨\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense evil creatures.");\r
+       }\r
+       if (p_ptr->esp_good)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91P\97Ç\82È\90\82«\95¨\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense good creatures.");\r
+       }\r
+       if (p_ptr->esp_nonliving)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8a\88\93®\82·\82é\96³\90\95¨\91Ì\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense non-living creatures.");\r
+       }\r
+       if (p_ptr->esp_unique)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93Á\95Ê\82È\8b­\93G\82Ì\91\8dÝ\82ð\8a´\82\82é\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You sense unique monsters.");\r
+       }\r
+       if (p_ptr->hold_exp)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e©\8cÈ\82Ì\8co\8c±\92l\82ð\82µ\82Á\82©\82è\82Æ\88Û\8e\9d\82·\82é\81B", "You have a firm hold on your experience.");\r
+       }\r
+       if (p_ptr->reflect)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\96î\82Ì\8eô\95\82ð\94½\8eË\82·\82é\81B", "You reflect bolt spells.");\r
+       }\r
+       if (p_ptr->sh_fire)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89\8a\82Ì\83I\81[\83\89\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded with a fiery aura.");\r
+       }\r
+       if (p_ptr->sh_elec)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8bC\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded with electricity.");\r
+       }\r
+       if (p_ptr->sh_cold)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\97â\8bC\82Ì\83I\81[\83\89\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded with an aura of coldness.");\r
+       }\r
+       if (p_ptr->tim_sh_holy)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\90¹\82È\82é\83I\81[\83\89\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded with a holy aura.");\r
+       }\r
+       if (p_ptr->tim_sh_touki)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93¬\8bC\82Ì\83I\81[\83\89\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded with a energy aura.");\r
+       }\r
+       if (p_ptr->anti_magic)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\94½\96\82\96@\83V\81[\83\8b\83h\82É\95ï\82Ü\82ê\82Ä\82¢\82é\81B", "You are surrounded by an anti-magic shell.");\r
+       }\r
+       if (p_ptr->anti_tele)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83e\83\8c\83|\81[\83g\82Å\82«\82È\82¢\81B", "You cannot teleport.");\r
+       }\r
+       if (p_ptr->lite)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\90g\91Ì\82Í\8cõ\82Á\82Ä\82¢\82é\81B", "You are carrying a permanent light.");\r
+       }\r
+       if (p_ptr->warning)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8ds\93®\82Ì\91O\82É\8aë\8c¯\82ð\8e@\92m\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You will be warned before dangerous actions.");\r
+       }\r
+       if (p_ptr->dec_mana)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8f­\82È\82¢\8fÁ\94ï\96\82\97Í\82Å\96\82\96@\82ð\8f¥\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "You can cast spells with fewer mana points.");\r
+       }\r
+       if (p_ptr->easy_spell)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\92á\82¢\8e¸\94s\97¦\82Å\96\82\96@\82ð\8f¥\82¦\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "Fail rate of your magic is decreased.");\r
+       }\r
+       if (p_ptr->heavy_spell)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8d\82\82¢\8e¸\94s\97¦\82Å\96\82\96@\82ð\8f¥\82¦\82È\82¯\82ê\82Î\82¢\82¯\82È\82¢\81B", "Fail rate of your magic is increased.");\r
+       }\r
+       if (p_ptr->mighty_throw)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8b­\82­\95¨\82ð\93\8a\82°\82é\81B", "You can throw objects powerfully.");\r
+       }\r
+\r
+       if (p_ptr->immune_acid)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e_\82É\91Î\82·\82é\8a®\91S\82È\82é\96Æ\89u\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are completely immune to acid.");\r
+       }\r
+       else if (p_ptr->resist_acid && IS_OPPOSE_ACID())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e_\82Ö\82Ì\8b­\97Í\82È\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You resist acid exceptionally well.");\r
+       }\r
+       else if (p_ptr->resist_acid || IS_OPPOSE_ACID())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e_\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to acid.");\r
+       }\r
+\r
+       if (p_ptr->immune_elec)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8c\82\82É\91Î\82·\82é\8a®\91S\82È\82é\96Æ\89u\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are completely immune to lightning.");\r
+       }\r
+       else if (p_ptr->resist_elec && IS_OPPOSE_ELEC())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8c\82\82Ö\82Ì\8b­\97Í\82È\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You resist lightning exceptionally well.");\r
+       }\r
+       else if (p_ptr->resist_elec || IS_OPPOSE_ELEC())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8c\82\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to lightning.");\r
+       }\r
+\r
+       if (prace_is_(RACE_ANDROID) && !p_ptr->immune_elec)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8c\82\82É\8eã\82¢\81B", "You are susceptible to damage from lightning.");\r
+       }\r
+\r
+       if (p_ptr->immune_fire)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89Î\82É\91Î\82·\82é\8a®\91S\82È\82é\96Æ\89u\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are completely immune to fire.");\r
+       }\r
+       else if (p_ptr->resist_fire && IS_OPPOSE_FIRE())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89Î\82Ö\82Ì\8b­\97Í\82È\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You resist fire exceptionally well.");\r
+       }\r
+       else if (p_ptr->resist_fire || IS_OPPOSE_FIRE())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89Î\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to fire.");\r
+       }\r
+\r
+       if (prace_is_(RACE_ENT) && !p_ptr->immune_fire)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89Î\82É\8eã\82¢\81B", "You are susceptible to damage from fire.");\r
+       }\r
+\r
+       if (p_ptr->immune_cold)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\97â\8bC\82É\91Î\82·\82é\8a®\91S\82È\82é\96Æ\89u\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are completely immune to cold.");\r
+       }\r
+       else if (p_ptr->resist_cold && IS_OPPOSE_COLD())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\97â\8bC\82Ö\82Ì\8b­\97Í\82È\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You resist cold exceptionally well.");\r
+       }\r
+       else if (p_ptr->resist_cold || IS_OPPOSE_COLD())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\97â\8bC\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to cold.");\r
+       }\r
+\r
+       if (p_ptr->resist_pois && IS_OPPOSE_POIS())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93Å\82Ö\82Ì\8b­\97Í\82È\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You resist poison exceptionally well.");\r
+       }\r
+       else if (p_ptr->resist_pois || IS_OPPOSE_POIS())\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\93Å\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to poison.");\r
+       }\r
+\r
+       if (p_ptr->resist_lite)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91M\8cõ\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to bright light.");\r
+       }\r
+\r
+       if (prace_is_(RACE_VAMPIRE) || prace_is_(RACE_S_FAIRY) || (p_ptr->mimic_form == MIMIC_VAMPIRE))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91M\8cõ\82É\8eã\82¢\81B", "You are susceptible to damage from bright light.");\r
+       }\r
+\r
+       if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE) || p_ptr->wraith_form)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88Ã\8d\95\82É\91Î\82·\82é\8a®\91S\82È\82é\96Æ\89u\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are completely immune to darkness.");\r
+       }\r
+\r
+       else if (p_ptr->resist_dark)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88Ã\8d\95\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to darkness.");\r
+       }\r
+       if (p_ptr->resist_conf)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8d¬\97\90\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to confusion.");\r
+       }\r
+       if (p_ptr->resist_sound)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\89¹\94g\82Ì\8fÕ\8c\82\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to sonic attacks.");\r
+       }\r
+       if (p_ptr->resist_disen)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\97ò\89»\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to disenchantment.");\r
+       }\r
+       if (p_ptr->resist_chaos)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\83J\83I\83X\82Ì\97Í\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to chaos.");\r
+       }\r
+       if (p_ptr->resist_shard)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\94j\95Ð\82Ì\8dU\8c\82\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to blasts of shards.");\r
+       }\r
+       if (p_ptr->resist_nexus)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\88ö\89Ê\8d¬\97\90\82Ì\8dU\8c\82\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to nexus attacks.");\r
+       }\r
+\r
+       if (prace_is_(RACE_SPECTRE))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\92n\8d\96\82Ì\97Í\82ð\8bz\8eû\82Å\82«\82é\81B", "You can drain nether forces.");\r
+       }\r
+       else if (p_ptr->resist_neth)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\92n\8d\96\82Ì\97Í\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to nether forces.");\r
+       }\r
+       if (p_ptr->resist_fear)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\91S\82­\8b°\95|\82ð\8a´\82\82È\82¢\81B", "You are completely fearless.");\r
+       }\r
+       if (p_ptr->resist_blind)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\96Ú\82Í\96Ó\96Ú\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "Your eyes are resistant to blindness.");\r
+       }\r
+       if (p_ptr->resist_time)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Í\8e\9e\8aÔ\8bt\93]\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é\81B", "You are resistant to time.");\r
+       }\r
+\r
+       if (p_ptr->sustain_str)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\98r\97Í\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your strength is sustained.");\r
+       }\r
+       if (p_ptr->sustain_int)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\92m\94\\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your intelligence is sustained.");\r
+       }\r
+       if (p_ptr->sustain_wis)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8c«\82³\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your wisdom is sustained.");\r
+       }\r
+       if (p_ptr->sustain_con)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\91Ï\8bv\97Í\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your constitution is sustained.");\r
+       }\r
+       if (p_ptr->sustain_dex)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8aí\97p\82³\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your dexterity is sustained.");\r
+       }\r
+       if (p_ptr->sustain_chr)\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\96£\97Í\82Í\88Û\8e\9d\82³\82ê\82Ä\82¢\82é\81B", "Your charisma is sustained.");\r
+       }\r
+\r
+       if (have_flag(flgs, TR_STR))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\98r\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your strength is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_INT))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\92m\94\\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your intelligence is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_WIS))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8c«\82³\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your wisdom is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_DEX))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8aí\97p\82³\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your dexterity is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_CON))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\91Ï\8bv\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your constitution is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_CHR))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\96£\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your charisma is affected by your equipment.");\r
+       }\r
+\r
+       if (have_flag(flgs, TR_STEALTH))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\89B\96§\8ds\93®\94\\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your stealth is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_SEARCH))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\92T\8dõ\94\\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your searching ability is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_INFRA))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\90Ô\8aO\90ü\8e\8b\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your infravision is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_TUNNEL))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8dÌ\8c@\94\\97Í\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your digging ability is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_SPEED))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\83X\83s\81[\83h\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your speed is affected by your equipment.");\r
+       }\r
+       if (have_flag(flgs, TR_BLOWS))\r
+       {\r
+               info[i++] = _("\82 \82È\82½\82Ì\8dU\8c\82\91¬\93x\82Í\91\95\94õ\82É\82æ\82Á\82Ä\89e\8b¿\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your attack speed is affected by your equipment.");\r
+       }\r
+\r
+\r
+       /* Access the current weapon */\r
+       o_ptr = &inventory[INVEN_RARM];\r
+\r
+       /* Analyze the weapon */\r
+       if (o_ptr->k_idx)\r
+       {\r
+               /* Indicate Blessing */\r
+               if (have_flag(flgs, TR_BLESSED))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\90_\82Ì\8fj\95\9f\82ð\8eó\82¯\82Ä\82¢\82é\81B", "Your weapon has been blessed by the gods.");\r
+               }\r
+\r
+               if (have_flag(flgs, TR_CHAOTIC))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83\8d\83O\83\8b\83X\82Ì\92¥\82Ì\91®\90«\82ð\82à\82Â\81B", "Your weapon is branded with the Sign of Logrus.");\r
+               }\r
+\r
+               /* Hack */\r
+               if (have_flag(flgs, TR_IMPACT))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\91Å\8c\82\82Å\92n\90k\82ð\94­\90\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B", "The impact of your weapon can cause earthquakes.");\r
+               }\r
+\r
+               if (have_flag(flgs, TR_VORPAL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\94ñ\8fí\82É\89s\82¢\81B", "Your weapon is very sharp.");\r
+               }\r
+\r
+               if (have_flag(flgs, TR_VAMPIRIC))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82©\82ç\90\96½\97Í\82ð\8bz\8eû\82·\82é\81B", "Your weapon drains life from your foes.");\r
+               }\r
+\r
+               /* Special "Attack Bonuses" */\r
+               if (have_flag(flgs, TR_BRAND_ACID))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82ð\97n\82©\82·\81B", "Your weapon melts your foes.");\r
+               }\r
+               if (have_flag(flgs, TR_BRAND_ELEC))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82ð\8a´\93d\82³\82¹\82é\81B", "Your weapon shocks your foes.");\r
+               }\r
+               if (have_flag(flgs, TR_BRAND_FIRE))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82ð\94R\82â\82·\81B", "Your weapon burns your foes.");\r
+               }\r
+               if (have_flag(flgs, TR_BRAND_COLD))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82ð\93\80\82ç\82¹\82é\81B", "Your weapon freezes your foes.");\r
+               }\r
+               if (have_flag(flgs, TR_BRAND_POIS))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93G\82ð\93Å\82Å\90N\82·\81B", "Your weapon poisons your foes.");\r
+               }\r
+\r
+               /* Special "slay" flags */\r
+               if (have_flag(flgs, TR_KILL_ANIMAL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93®\95¨\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of animals.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_ANIMAL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93®\95¨\82É\91Î\82µ\82Ä\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon strikes at animals with extra force.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_EVIL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\8e×\88«\82È\82é\91\8dÝ\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of evil.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_EVIL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\8e×\88«\82È\82é\91\8dÝ\82É\91Î\82µ\82Ä\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon strikes at evil with extra force.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_HUMAN))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\90l\8aÔ\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of humans.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_HUMAN))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\90l\8aÔ\82É\91Î\82µ\82Ä\93Á\82É\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon is especially deadly against humans.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_UNDEAD))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83A\83\93\83f\83b\83h\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of undead.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_UNDEAD))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83A\83\93\83f\83b\83h\82É\91Î\82µ\82Ä\90_\90¹\82È\82é\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon strikes at undead with holy wrath.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_DEMON))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83f\81[\83\82\83\93\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of demons.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_DEMON))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83f\81[\83\82\83\93\82É\91Î\82µ\82Ä\90_\90¹\82È\82é\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon strikes at demons with holy wrath.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_ORC))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83I\81[\83N\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of orcs.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_ORC))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83I\81[\83N\82É\91Î\82µ\82Ä\93Á\82É\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon is especially deadly against orcs.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_TROLL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83g\83\8d\83\8b\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of trolls.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_TROLL))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83g\83\8d\83\8b\82É\91Î\82µ\82Ä\93Á\82É\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon is especially deadly against trolls.");\r
+               }\r
+               if (have_flag(flgs, TR_KILL_GIANT))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83W\83\83\83C\83A\83\93\83g\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of giants.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_GIANT))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83W\83\83\83C\83A\83\93\83g\82É\91Î\82µ\82Ä\93Á\82É\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon is especially deadly against giants.");\r
+               }\r
+               /* Special "kill" flags */\r
+               if (have_flag(flgs, TR_KILL_DRAGON))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83h\83\89\83S\83\93\82Ì\93V\93G\82Å\82 \82é\81B", "Your weapon is a great bane of dragons.");\r
+               }\r
+               else if (have_flag(flgs, TR_SLAY_DRAGON))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\83h\83\89\83S\83\93\82É\91Î\82µ\82Ä\93Á\82É\8b­\82¢\97Í\82ð\94­\8aö\82·\82é\81B", "Your weapon is especially deadly against dragons.");\r
+               }\r
+\r
+               if (have_flag(flgs, TR_FORCE_WEAPON))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82ÍMP\82ð\8eg\82Á\82Ä\8dU\8c\82\82·\82é\81B", "Your weapon causes greate damages using your MP.");\r
+               }\r
+               if (have_flag(flgs, TR_THROW))\r
+               {\r
+                       info[i++] = _("\82 \82È\82½\82Ì\95\90\8aí\82Í\93\8a\82°\82â\82·\82¢\81B", "Your weapon can be thrown well.");\r
+               }\r
+       }\r
+\r
+\r
+       /* Save the screen */\r
+       screen_save();\r
+\r
+       /* Erase the screen */\r
+       for (k = 1; k < 24; k++) prt("", k, 13);\r
+\r
+       /* Label the information */\r
+       prt(_("        \82 \82È\82½\82Ì\8fó\91Ô:", "     Your Attributes:"), 1, 15);\r
+\r
+       /* We will print on top of the map (column 13) */\r
+       for (k = 2, j = 0; j < i; j++)\r
+       {\r
+               /* Show the info */\r
+               prt(info[j], k++, 15);\r
+\r
+               /* Every 20 entries (lines 2 to 21), start over */\r
+               if ((k == 22) && (j+1 < i))\r
+               {\r
+                       prt(_("-- \91±\82­ --", "-- more --"), k, 15);\r
+                       inkey();\r
+                       for (; k > 2; k--) prt("", k, 15);\r
+               }\r
+       }\r
+\r
+       /* Pause */\r
+       prt(_("[\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\83Q\81[\83\80\82É\96ß\82è\82Ü\82·]", "[Press any key to continue]"), k, 13);\r
+       inkey();\r
+\r
+       /* Restore the screen */\r
+       screen_load();\r
+}\r
+\r
+/*!\r
+ * @brief \96\82\96@\8cø\89Ê\8e\9e\8aÔ\82Ì\83^\81[\83\93\90\94\82É\8aî\82Ã\82¢\82Ä\95\\8c»ID\82ð\95Ô\82·\81B\r
+ * @param dur \8cø\89Ê\83^\81[\83\93\90\94\r
+ * @return \8cø\89Ê\8e\9e\8aÔ\82Ì\95\\8c»ID\r
+ */\r
+static int report_magics_aux(int dur)\r
+{\r
+       if (dur <= 5)\r
+       {\r
+               return 0;\r
+       }\r
+       else if (dur <= 10)\r
+       {\r
+               return 1;\r
+       }\r
+       else if (dur <= 20)\r
+       {\r
+               return 2;\r
+       }\r
+       else if (dur <= 50)\r
+       {\r
+               return 3;\r
+       }\r
+       else if (dur <= 100)\r
+       {\r
+               return 4;\r
+       }\r
+       else if (dur <= 200)\r
+       {\r
+               return 5;\r
+       }\r
+       else\r
+       {\r
+               return 6;\r
+       }\r
+}\r
+\r
+static cptr report_magic_durations[] =\r
+{\r
+#ifdef JP\r
+"\82²\82­\92Z\82¢\8aÔ",\r
+"\8f­\82µ\82Ì\8aÔ",\r
+"\82µ\82Î\82ç\82­\82Ì\8aÔ",\r
+"\91½\8f­\92·\82¢\8aÔ",\r
+"\92·\82¢\8aÔ",\r
+"\94ñ\8fí\82É\92·\82¢\8aÔ",\r
+"\90M\82\93ï\82¢\82Ù\82Ç\92·\82¢\8aÔ",\r
+"\83\82\83\93\83X\83^\81[\82ð\8dU\8c\82\82·\82é\82Ü\82Å"\r
+#else\r
+       "for a short time",\r
+       "for a little while",\r
+       "for a while",\r
+       "for a long while",\r
+       "for a long time",\r
+       "for a very long time",\r
+       "for an incredibly long time",\r
+       "until you hit a monster"\r
+#endif\r
+\r
+};\r
+\r
+/*!\r
+ * @brief \8c»\8dÝ\82Ì\88ê\8e\9e\93I\8cø\89Ê\88ê\97\97\82ð\95Ô\82· / Report all currently active magical effects.\r
+ * @return \82È\82µ\r
+ */\r
+void report_magics(void)\r
+{\r
+       int     i = 0, j, k;\r
+       char    Dummy[80];\r
+       cptr    info[128];\r
+       int     info2[128];\r
+\r
+\r
+       if (p_ptr->blind)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->blind);\r
+               info[i++] = _("\82 \82È\82½\82Í\96Ú\82ª\8c©\82¦\82È\82¢", "You cannot see");\r
+       }\r
+       if (p_ptr->confused)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->confused);\r
+               info[i++] = _("\82 \82È\82½\82Í\8d¬\97\90\82µ\82Ä\82¢\82é", "You are confused");\r
+       }\r
+       if (p_ptr->afraid)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->afraid);\r
+               info[i++] = _("\82 \82È\82½\82Í\8b°\95|\82É\90N\82³\82ê\82Ä\82¢\82é", "You are terrified");\r
+       }\r
+       if (p_ptr->poisoned)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->poisoned);\r
+               info[i++] = _("\82 \82È\82½\82Í\93Å\82É\90N\82³\82ê\82Ä\82¢\82é", "You are poisoned");\r
+       }\r
+       if (p_ptr->image)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->image);\r
+               info[i++] = _("\82 \82È\82½\82Í\8c\8ao\82ð\8c©\82Ä\82¢\82é", "You are hallucinating");\r
+       }\r
+       if (p_ptr->blessed)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->blessed);\r
+               info[i++] = _("\82 \82È\82½\82Í\8d\82\8c\89\82³\82ð\8a´\82\82Ä\82¢\82é", "You feel rightous");\r
+       }\r
+       if (p_ptr->hero)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->hero);\r
+               info[i++] = _("\82 \82È\82½\82Í\83q\81[\83\8d\81[\8bC\95ª\82¾", "You feel heroic");\r
+       }\r
+       if (p_ptr->shero)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->shero);\r
+               info[i++] = _("\82 \82È\82½\82Í\90í\93¬\8b\82¾", "You are in a battle rage");\r
+       }\r
+       if (p_ptr->protevil)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->protevil);\r
+               info[i++] = _("\82 \82È\82½\82Í\8e×\88«\82È\82é\91\8dÝ\82©\82ç\8eç\82ç\82ê\82Ä\82¢\82é", "You are protected from evil");\r
+       }\r
+       if (p_ptr->shield)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->shield);\r
+               info[i++] = _("\82 \82È\82½\82Í\90_\94é\82Ì\83V\81[\83\8b\83h\82Å\8eç\82ç\82ê\82Ä\82¢\82é", "You are protected by a mystic shield");\r
+       }\r
+       if (p_ptr->invuln)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->invuln);\r
+               info[i++] = _("\82 \82È\82½\82Í\96³\93G\82¾", "You are invulnerable");\r
+       }\r
+       if (p_ptr->wraith_form)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->wraith_form);\r
+               info[i++] = _("\82 \82È\82½\82Í\97H\91Ì\89»\82µ\82Ä\82¢\82é", "You are incorporeal");\r
+       }\r
+       if (p_ptr->special_attack & ATTACK_CONFUSE)\r
+       {\r
+               info2[i]  = 7;\r
+               info[i++] = _("\82 \82È\82½\82Ì\8eè\82Í\90Ô\82­\8bP\82¢\82Ä\82¢\82é", "Your hands are glowing dull red.");\r
+       }\r
+       if (p_ptr->word_recall)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->word_recall);\r
+               info[i++] = _("\82±\82Ì\8cã\8bA\8aÒ\82Ì\8fÙ\82ª\94­\93®\82·\82é", "You are waiting to be recalled");\r
+       }\r
+       if (p_ptr->alter_reality)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->alter_reality);\r
+               info[i++] = _("\82±\82Ì\8cã\8c»\8eÀ\95Ï\97e\82ª\94­\93®\82·\82é", "You waiting to be altered");\r
+       }\r
+       if (p_ptr->oppose_acid)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->oppose_acid);\r
+               info[i++] = _("\82 \82È\82½\82Í\8e_\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é", "You are resistant to acid");\r
+       }\r
+       if (p_ptr->oppose_elec)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->oppose_elec);\r
+               info[i++] = _("\82 \82È\82½\82Í\93d\8c\82\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é", "You are resistant to lightning");\r
+       }\r
+       if (p_ptr->oppose_fire)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->oppose_fire);\r
+               info[i++] = _("\82 \82È\82½\82Í\89Î\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é", "You are resistant to fire");\r
+       }\r
+       if (p_ptr->oppose_cold)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->oppose_cold);\r
+               info[i++] = _("\82 \82È\82½\82Í\97â\8bC\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é", "You are resistant to cold");\r
+       }\r
+       if (p_ptr->oppose_pois)\r
+       {\r
+               info2[i]  = report_magics_aux(p_ptr->oppose_pois);\r
+               info[i++] = _("\82 \82È\82½\82Í\93Å\82Ö\82Ì\91Ï\90«\82ð\8e\9d\82Á\82Ä\82¢\82é", "You are resistant to poison");\r
+       }\r
+\r
+       /* Save the screen */\r
+       screen_save();\r
+\r
+       /* Erase the screen */\r
+       for (k = 1; k < 24; k++) prt("", k, 13);\r
+\r
+       /* Label the information */\r
+       prt(_("    \8c»\8dÝ\82©\82©\82Á\82Ä\82¢\82é\96\82\96@     :", "     Your Current Magic:"), 1, 15);\r
+\r
+\r
+       /* We will print on top of the map (column 13) */\r
+       for (k = 2, j = 0; j < i; j++)\r
+       {\r
+               /* Show the info */\r
+               sprintf(Dummy, _("%-28s : \8aú\8aÔ - %s ", "%s %s."), info[j],\r
+                       report_magic_durations[info2[j]]);\r
+               prt(Dummy, k++, 15);\r
+\r
+               /* Every 20 entries (lines 2 to 21), start over */\r
+               if ((k == 22) && (j + 1 < i))\r
+               {\r
+                       prt(_("-- \91±\82­ --", "-- more --"), k, 15);\r
+                       inkey();\r
+                       for (; k > 2; k--) prt("", k, 15);\r
+               }\r
+       }\r
+\r
+       /* Pause */\r
+       prt(_("[\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\83Q\81[\83\80\82É\96ß\82è\82Ü\82·]", "[Press any key to continue]"), k, 13);\r
+       inkey();\r
+\r
+       /* Restore the screen */\r
+       screen_load();\r
+}\r
diff --git a/src/selfinfo.h b/src/selfinfo.h
new file mode 100644 (file)
index 0000000..3faf8ab
--- /dev/null
@@ -0,0 +1,8 @@
+/*!\r
+ * @file selfinfo.h\r
+ * @brief \8e©\8cÈ\95ª\90Í\8b@\94\\97p\83w\83b\83_\83t\83@\83C\83\8b /\r
+ * @author 2018 Deskull\r
+ */\r
+\r
+extern void self_knowledge(void);\r
+extern void report_magics(void);\r
index e7210fc..975e3ff 100644 (file)
 #include "angband.h"
 #include "grid.h"
 
-/*!
- * @brief 自己分析処理(Nethackからのアイデア) / self-knowledge... idea from nethack.
- * @return なし
- * @details
- * <pre>
- * Useful for determining powers and
- * resistences of items.  It saves the screen, clears it, then starts listing
- * attributes, a screenful at a time.  (There are a LOT of attributes to
- * list.  It will probably take 2 or 3 screens for a powerful character whose
- * using several artifacts...) -CFT
- *
- * It is now a lot more efficient. -BEN-
- *
- * See also "identify_fully()".
- *
- * XXX XXX XXX Use the "show_file()" method, perhaps.
- * </pre>
- */
-void self_knowledge(void)
-{
-       int i = 0, j, k;
-
-       int v_nr = 0;
-       char v_string [8] [128];
-       char s_string [6] [128];
-
-       u32b flgs[TR_FLAG_SIZE];
-
-       object_type *o_ptr;
-
-       char Dummy[80];
-       char buf[2][80];
-
-       cptr info[220];
-
-       int plev = p_ptr->lev;
-
-       int percent;
-
-       for (j = 0; j < TR_FLAG_SIZE; j++)
-               flgs[j] = 0L;
-
-       p_ptr->knowledge |= (KNOW_STAT | KNOW_HPRATE);
-
-       strcpy(Dummy, "");
-
-       percent = (int)(((long)p_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) /
-               (2 * p_ptr->hitdie +
-               ((PY_MAX_LEVEL - 1+3) * (p_ptr->hitdie + 1))));
-
-       sprintf(Dummy, _("現在の体力ランク : %d/100", "Your current Life Rating is %d/100."), percent);
-       strcpy(buf[0], Dummy);
-       info[i++] = buf[0];
-       info[i++] = "";
-
-       chg_virtue(V_KNOWLEDGE, 1);
-       chg_virtue(V_ENLIGHTEN, 1);
-
-       /* Acquire item flags from equipment */
-       for (k = INVEN_RARM; k < INVEN_TOTAL; k++)
-       {
-               u32b tflgs[TR_FLAG_SIZE];
-
-               o_ptr = &inventory[k];
-
-               /* Skip non-objects */
-               if (!o_ptr->k_idx) continue;
-
-               /* Extract the flags */
-               object_flags(o_ptr, tflgs);
-
-               /* Extract flags */
-               for (j = 0; j < TR_FLAG_SIZE; j++)
-                       flgs[j] |= tflgs[j];
-       }
-
-       info[i++] = _("能力の最大値", "Limits of maximum stats");
-
-       for (v_nr = 0; v_nr < 6; v_nr++)
-       {
-               char stat_desc[80];
-
-               sprintf(stat_desc, "%s 18/%d", stat_names[v_nr], p_ptr->stat_max_max[v_nr]-18);
-
-               strcpy(s_string[v_nr], stat_desc);
-
-               info[i++] = s_string[v_nr];
-       }
-       info[i++] = "";
-
-       sprintf(Dummy, _("現在の属性 : %s(%ld)", "Your alighnment : %s(%ld)"), your_alignment(), (long int)p_ptr->align);
-       strcpy(buf[1], Dummy);
-       info[i++] = buf[1];
-       for (v_nr = 0; v_nr < 8; v_nr++)
-       {
-               char vir_name [20];
-               char vir_desc[80];
-               int tester = p_ptr->virtues[v_nr];
-       
-               strcpy(vir_name, virtue[(p_ptr->vir_types[v_nr])-1]);
-               sprintf(vir_desc, _("おっと。%sの情報なし。", "Oops. No info about %s."), vir_name);
-               if (tester < -100)
-                       sprintf(vir_desc, _("[%s]の対極 (%d)", "You are the polar opposite of %s (%d)."),
-                               vir_name, tester);
-               else if (tester < -80)
-                       sprintf(vir_desc, _("[%s]の大敵 (%d)", "You are an arch-enemy of %s (%d)."),
-                               vir_name, tester);
-               else if (tester < -60)
-                       sprintf(vir_desc, _("[%s]の強敵 (%d)", "You are a bitter enemy of %s (%d)."),
-                               vir_name, tester);
-               else if (tester < -40)
-                       sprintf(vir_desc, _("[%s]の敵 (%d)", "You are an enemy of %s (%d)."),
-                               vir_name, tester);
-               else if (tester < -20)
-                       sprintf(vir_desc, _("[%s]の罪者 (%d)", "You have sinned against %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 0)
-                       sprintf(vir_desc, _("[%s]の迷道者 (%d)", "You have strayed from the path of %s (%d)."),
-                               vir_name, tester);
-               else if (tester == 0)
-                       sprintf(vir_desc, _("[%s]の中立者 (%d)", "You are neutral to %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 20)
-                       sprintf(vir_desc, _("[%s]の小徳者 (%d)", "You are somewhat virtuous in %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 40)
-                       sprintf(vir_desc, _("[%s]の中徳者 (%d)", "You are virtuous in %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 60)
-                       sprintf(vir_desc, _("[%s]の高徳者 (%d)", "You are very virtuous in %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 80)
-                       sprintf(vir_desc, _("[%s]の覇者 (%d)", "You are a champion of %s (%d)."),
-                               vir_name, tester);
-               else if (tester < 100)
-                       sprintf(vir_desc, _("[%s]の偉大な覇者 (%d)", "You are a great champion of %s (%d)."),
-                               vir_name, tester);
-               else
-                       sprintf(vir_desc, _("[%s]の具現者 (%d)", "You are the living embodiment of %s (%d)."),
-                               vir_name, tester);
-       
-               strcpy(v_string[v_nr], vir_desc);
-       
-               info[i++] = v_string[v_nr];
-       }
-       info[i++] = "";
-       
-       /* Racial powers... */
-       if (p_ptr->mimic_form)
-       {
-               switch (p_ptr->mimic_form)
-               {
-                       case MIMIC_DEMON:
-                       case MIMIC_DEMON_LORD:
-                       sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", 
-                                                       "You can nether breathe, dam. %d (cost %d)."), 3 * plev, 10+plev/3);
-
-                               info[i++] = Dummy;
-                       break;
-               case MIMIC_VAMPIRE:
-                       if (plev > 1)
-                       {
-                               sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", 
-                                                               "You can steal life from a foe, dam. %d-%d (cost %d)."),
-                                   plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
-                               info[i++] = Dummy;
-                       }
-                       break;
-               }
-       }
-       else
-       {
-       switch (p_ptr->prace)
-       {
-               case RACE_NIBELUNG:
-               case RACE_DWARF:
-                       if (plev > 4)
-                       info[i++] = _("あなたは罠とドアと階段を感知できる。(5 MP)", "You can find traps, doors and stairs (cost 5).");
-                       break;
-               case RACE_HOBBIT:
-                       if (plev > 14)
-                       {
-                               info[i++] = _("あなたは食料を生成できる。(10 MP)", "You can produce food (cost 10).");
-                       }
-                       break;
-               case RACE_GNOME:
-                       if (plev > 4)
-                       {
-                               sprintf(Dummy, _("あなたは範囲 %d 以内にテレポートできる。(%d MP)", "You can teleport, range %d (cost %d)."),
-                                   (1 + plev), (5 + (plev / 5)));
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_HALF_ORC:
-                       if (plev > 2)
-                               info[i++] = _("あなたは恐怖を除去できる。(5 MP)", "You can remove fear (cost 5).");
-                       break;
-               case RACE_HALF_TROLL:
-                       if (plev > 9)
-                               info[i++] = _("あなたは狂暴化することができる。(12 MP) ", "You enter berserk fury (cost 12).");
-                       break;
-               case RACE_AMBERITE:
-                       if (plev > 29)
-                               info[i++] = _("あなたはシャドウシフトすることができる。(50 MP)", "You can Shift Shadows (cost 50).");
-
-                       if (plev > 39)
-                               info[i++] = _("あなたは「パターン」を心に描いて歩くことができる。(75 MP)", "You can mentally Walk the Pattern (cost 75).");
-
-                       break;
-               case RACE_BARBARIAN:
-                       if (plev > 7)
-                               info[i++] = _("あなたは狂暴化することができる。(10 MP) ", "You can enter berserk fury (cost 10).");
-
-                       break;
-               case RACE_HALF_OGRE:
-                       if (plev > 24)
-                               info[i++] = _("あなたは爆発のルーンを仕掛けることができる。(35 MP)", "You can set an Explosive Rune (cost 35).");
-
-                       break;
-               case RACE_HALF_GIANT:
-                       if (plev > 19)
-                               info[i++] = _("あなたは石の壁を壊すことができる。(10 MP)", "You can break stone walls (cost 10).");
-                       break;
-               case RACE_HALF_TITAN:
-                       if (plev > 34)
-                               info[i++] = _("あなたはモンスターをスキャンすることができる。(20 MP)", "You can probe monsters (cost 20).");
-                       break;
-               case RACE_CYCLOPS:
-                       if (plev > 19)
-                       {
-                               sprintf(Dummy, _("あなたは %d ダメージの岩石を投げることができる。(15 MP)", 
-                                                        "You can throw a boulder, dam. %d (cost 15)."), 3 * plev);
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_YEEK:
-                       if (plev > 14)
-                               info[i++] = _("あなたは恐怖を呼び起こす叫び声を発することができる。(15 MP)", "You can make a terrifying scream (cost 15).");
-                       break;
-               case RACE_KLACKON:
-                       if (plev > 8)
-                       {
-                               sprintf(Dummy, _("あなたは %d ダメージの酸を吹きかけることができる。(9 MP)", "You can spit acid, dam. %d (cost 9)."), plev);
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_KOBOLD:
-                       if (plev > 11)
-                       {
-                               sprintf(Dummy,
-                                               _("あなたは %d ダメージの毒矢を投げることができる。(8 MP)", "You can throw a dart of poison, dam. %d (cost 8)."), plev);
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_DARK_ELF:
-                       if (plev > 1)
-                       {
-                               sprintf(Dummy, _("あなたは %d ダメージのマジック・ミサイルの呪文を使える。(2 MP)", "You can cast a Magic Missile, dam %d (cost 2)."),
-                                   (3 + ((plev-1) / 5)));
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_DRACONIAN:
-                       sprintf(Dummy, _("あなたは %d ダメージのブレスを吐くことができる。(%d MP)", "You can breathe, dam. %d (cost %d)."), 2 * plev, plev);
-                       info[i++] = Dummy;
-                       break;
-               case RACE_MIND_FLAYER:
-                       if (plev > 14)
-                               sprintf(Dummy, _("あなたは %d ダメージの精神攻撃をすることができる。(12 MP)", "You can mind blast your enemies, dam %d (cost 12)."), plev);
-                       info[i++] = Dummy;
-                       break;
-               case RACE_IMP:
-                       if (plev > 29)
-                       {
-                               sprintf(Dummy, _("あなたは %d ダメージのファイア・ボールの呪文を使える。(15 MP)", "You can cast a Fire Ball, dam. %d (cost 15)."), plev);
-                               info[i++] = Dummy;
-                       }
-                       else if (plev > 8)
-                       {
-                               sprintf(Dummy, _("あなたは %d ダメージのファイア・ボルトの呪文を使える。(15 MP)", "You can cast a Fire Bolt, dam. %d (cost 15)."), plev);
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_GOLEM:
-                       if (plev > 19)
-                               info[i++] = _("あなたは d20+30 ターンの間肌を石に変化させられる。(15 MP)", "You can turn your skin to stone, dur d20+30 (cost 15).");
-                       break;
-               case RACE_ZOMBIE:
-               case RACE_SKELETON:
-                       if (plev > 29)
-                               info[i++] = _("あなたは失った経験値を回復することができる。(30 MP)", "You can restore lost experience (cost 30).");
-                       break;
-               case RACE_VAMPIRE:
-                       if (plev > 1)
-                       {
-                               sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),
-                                   plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
-                               info[i++] = Dummy;
-                       }
-                       break;
-               case RACE_SPECTRE:
-                       if (plev > 3)
-                       {
-                               info[i++] = _("あなたは泣き叫んで敵を恐怖させることができる。(3 MP)", "You can wail to terrify your enemies (cost 3).");
-                       }
-                       break;
-               case RACE_SPRITE:
-                       if (plev > 11)
-                       {
-                               info[i++] = _("あなたは敵を眠らせる魔法の粉を投げることができる。(12 MP)", "You can throw magical dust which induces sleep (cost 12).");
-                       }
-                       break;
-               case RACE_DEMON:
-                       sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", 
-                                               "You can breathe nether, dam. %d (cost %d)."), 3 * plev, 10+plev/3);
-
-                       info[i++] = Dummy;
-                       break;
-               case RACE_KUTAR:
-                       if (plev > 19)
-                               info[i++] = _("あなたは d20+30 ターンの間横に伸びることができる。(15 MP)", "You can expand horizontally, dur d20+30 (cost 15).");
-                       break;
-               case RACE_ANDROID:
-                       if (plev < 10)
-                               sprintf(Dummy, _("あなたは %d ダメージのレイガンを撃つことができる。(7 MP)", "You can fire a ray gun with damage %d (cost 7)."), 
-                                       (plev + 1) / 2);
-                       else if (plev < 25)
-                               sprintf(Dummy, _("あなたは %d ダメージのブラスターを撃つことができる。(13 MP)", "You can fire a blaster with damage %d (cost 13)."), plev);
-                       else if (plev < 35)
-                               sprintf(Dummy, _("あなたは %d ダメージのバズーカを撃つことができる。(26 MP)", "You can fire a bazooka with damage %d (cost 26)."), plev * 2);
-                       else if (plev < 45)
-                               sprintf(Dummy, _("あなたは %d ダメージのビームキャノンを撃つことができる。(40 MP)", 
-                                               "You can fire a beam cannon with damage %d (cost 40)."), plev * 2);
-                       else
-                               sprintf(Dummy, _("あなたは %d ダメージのロケットを撃つことができる。(60 MP)", 
-                                               "You can fire a rocket with damage %d (cost 60)."), plev * 5);
-
-                       info[i++] = Dummy;
-                       break;
-               default:
-                       break;
-       }
-       }
-
-       switch(p_ptr->pclass)
-       {
-               case CLASS_WARRIOR:
-                       if (plev > 39)
-                       {
-                               info[i++] = _("あなたはランダムな方向に対して数回攻撃することができる。(75 MP)", 
-                                                       "You can attack some random directions at a time (cost 75).");
-                       }
-                       break;
-               case CLASS_HIGH_MAGE:
-                       if (p_ptr->realm1 == REALM_HEX) break;
-               case CLASS_MAGE:
-               case CLASS_SORCERER:
-                       if (plev > 24)
-                       {
-                               info[i++] = _("あなたはアイテムの魔力を吸収することができる。(1 MP)", 
-                                               "You can absorb charges from an item (cost 1).");
-                       }
-                       break;
-               case CLASS_PRIEST:
-                       if (is_good_realm(p_ptr->realm1))
-                       {
-                               if (plev > 34)
-                               {
-                                       info[i++] = _("あなたは武器を祝福することができる。(70 MP)", "You can bless a weapon (cost 70).");
-                               }
-                       }
-                       else
-                       {
-                               if (plev > 41)
-                               {
-                                       info[i++] = _("あなたは周りのすべてのモンスターを攻撃することができる。(40 MP)", "You can damages all monsters in sight (cost 40).");
-                               }
-                       }
-                       break;
-               case CLASS_ROGUE:
-                       if (plev > 7)
-                       {
-                               info[i++] = _("あなたは攻撃して即座に逃げることができる。(12 MP)", "You can hit a monster and teleport at a time (cost 12).");
-                       }
-                       break;
-               case CLASS_RANGER:
-                       if (plev > 14)
-                       {
-                               info[i++] = _("あなたは怪物を調査することができる。(20 MP)", "You can prove monsters (cost 20).");
-                       }
-                       break;
-               case CLASS_PALADIN:
-                       if (is_good_realm(p_ptr->realm1))
-                       {
-                               if (plev > 29)
-                               {
-                                       info[i++] = _("あなたは聖なる槍を放つことができる。(30 MP)", "You can fires a holy spear (cost 30).");
-                               }
-                       }
-                       else
-                       {
-                               if (plev > 29)
-                               {
-                                       info[i++] = _("あなたは生命力を減少させる槍を放つことができる。(30 MP)", "You can fires a spear which drains vitality (cost 30).");
-                               }
-                       }
-                       break;
-               case CLASS_WARRIOR_MAGE:
-                       if (plev > 24)
-                       {
-                               info[i++] = _("あなたはHPをMPに変換することができる。(0 MP)", "You can convert HP to SP (cost 0).");
-                               info[i++] = _("あなたはMPをHPに変換することができる。(0 MP)", "You can convert SP to HP (cost 0).");
-                       }
-                       break;
-               case CLASS_CHAOS_WARRIOR:
-                       if (plev > 39)
-                       {
-                               info[i++] = _("あなたは周囲に怪物を惑わす光を発生させることができる。(50 MP)",
-                                               "You can radiate light which confuses nearby monsters (cost 50).");
-                       }
-                       break;
-               case CLASS_MONK:
-                       if (plev > 24)
-                       {
-                               info[i++] = _("あなたは構えることができる。(0 MP)", "You can assume a posture of special form (cost 0).");
-                       }
-                       if (plev > 29)
-                       {
-                               info[i++] = _("あなたは通常の2倍の攻撃を行うことができる。(30 MP)", "You can perform double attacks in a time (cost 30).");
-                       }
-                       break;
-               case CLASS_MINDCRAFTER:
-               case CLASS_FORCETRAINER:
-                       if (plev > 14)
-                       {
-                               info[i++] = _("あなたは精神を集中してMPを回復させることができる。(0 MP)", "You can concentrate to regenerate your mana (cost 0).");
-                       }
-                       break;
-               case CLASS_TOURIST:
-                       info[i++] = _("あなたは写真を撮影することができる。(0 MP)", "You can take a photograph (cost 0).");
-                       if (plev > 24)
-                       {
-                               info[i++] = _("あなたはアイテムを完全に鑑定することができる。(20 MP)", "You can *identify* items (cost 20).");
-                       }
-                       break;
-               case CLASS_IMITATOR:
-                       if (plev > 29)
-                       {
-                               info[i++] = _("あなたは怪物の特殊攻撃をダメージ2倍でまねることができる。(100 MP)", 
-                                               "You can imitate monster's special attacks with double damage (cost 100).");
-                       }
-                       break;
-               case CLASS_BEASTMASTER:
-                       info[i++] = _("あなたは1体の生命のあるモンスターを支配することができる。(レベル/4 MP)", "You can dominate a monster (cost level/4).");
-                       if (plev > 29)
-                       {
-                               info[i++] = _("あなたは視界内の生命のあるモンスターを支配することができる。((レベル+20)/2 MP)", 
-                                               "You can dominate living monsters in sight (cost (level+20)/4).");
-                       }
-                       break;
-               case CLASS_MAGIC_EATER:
-                       info[i++] = _("あなたは杖/魔法棒/ロッドの魔力を自分のものにすることができる。", "You can absorb a staff, wand or rod itself.");
-                       break;
-               case CLASS_RED_MAGE:
-                       if (plev > 47)
-                       {
-                               info[i++] = _("あなたは1ターンに2回魔法を唱えることができる。(20 MP)", "You can cast two spells in one time (cost 20).");
-                       }
-                       break;
-               case CLASS_SAMURAI:
-                       {
-                               info[i++] = _("あなたは精神を集中して気合いを溜めることができる。", "You can concentrate to regenerate your mana.");
-                       }
-                       if (plev > 24)
-                       {
-                               info[i++] = _("あなたは特殊な型で構えることができる。", "You can assume a posture of special form.");
-                       }
-                       break;
-               case CLASS_BLUE_MAGE:
-                       info[i++] = _("あなたは相手に使われた魔法を学ぶことができる。", "You can study spells which your enemy casts on you.");
-                       break;
-               case CLASS_CAVALRY:
-                       if (plev > 9)
-                       {
-                               info[i++] = _("あなたはモンスターに乗って無理矢理ペットにすることができる。", "You can ride on a hostile monster forcibly to turn it into pet.");
-                       }
-                       break;
-               case CLASS_BERSERKER:
-                       if (plev > 9)
-                       {
-                               info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
-                       }
-                       break;
-               case CLASS_MIRROR_MASTER:
-                       info[i++] = _("あなたは鏡を作り出すことができる。(2 MP)", "You can create a Mirror (cost 2).");
-                       info[i++] = _("あなたは鏡を割ることができる。(0 MP)", "You can break distant Mirrors (cost 0).");
-                       break;
-               case CLASS_NINJA:
-                       if (plev > 19)
-                       {
-                               info[i++] = _("あなたは素早く移動することができる。", "You can walk extremery fast.");
-                       }
-                       break;
-       }
-
-       if (p_ptr->muta1)
-       {
-               if (p_ptr->muta1 & MUT1_SPIT_ACID)
-               {
-                       info[i++] = _("あなたは酸を吹きかけることができる。(ダメージ レベルX1)", "You can spit acid (dam lvl).");
-               }
-               if (p_ptr->muta1 & MUT1_BR_FIRE)
-               {
-                       info[i++] = _("あなたは炎のブレスを吐くことができる。(ダメージ レベルX2)", "You can breathe fire (dam lvl * 2).");
-               }
-               if (p_ptr->muta1 & MUT1_HYPN_GAZE)
-               {
-                       info[i++] = _("あなたの睨みは催眠効果をもつ。", "Your gaze is hypnotic.");
-               }
-               if (p_ptr->muta1 & MUT1_TELEKINES)
-               {
-                       info[i++] = _("あなたは念動力をもっている。", "You are telekinetic.");
-               }
-               if (p_ptr->muta1 & MUT1_VTELEPORT)
-               {
-                       info[i++] = _("あなたは自分の意思でテレポートできる。", "You can teleport at will.");
-               }
-               if (p_ptr->muta1 & MUT1_MIND_BLST)
-               {
-                       info[i++] = _("あなたは精神攻撃を行える。(ダメージ 3~12d3)", "You can Mind Blast your enemies (3 to 12d3 dam).");
-               }
-               if (p_ptr->muta1 & MUT1_RADIATION)
-               {
-                       info[i++] = _("あなたは自分の意思で強い放射線を発生することができる。(ダメージ レベルX2)", "You can emit hard radiation at will (dam lvl * 2).");
-               }
-               if (p_ptr->muta1 & MUT1_VAMPIRISM)
-               {
-                       info[i++] = _("あなたは吸血鬼のように敵から生命力を吸収することができる。(ダメージ レベルX2)", 
-                                               "You can drain life from a foe like a vampire (dam lvl * 2).");
-               }
-               if (p_ptr->muta1 & MUT1_SMELL_MET)
-               {
-                       info[i++] = _("あなたは近くにある貴金属をかぎ分けることができる。", "You can smell nearby precious metal.");
-               }
-               if (p_ptr->muta1 & MUT1_SMELL_MON)
-               {
-                       info[i++] = _("あなたは近くのモンスターの存在をかぎ分けることができる。", "You can smell nearby monsters.");
-               }
-               if (p_ptr->muta1 & MUT1_BLINK)
-               {
-                       info[i++] = _("あなたは短い距離をテレポートできる。", "You can teleport yourself short distances.");
-               }
-               if (p_ptr->muta1 & MUT1_EAT_ROCK)
-               {
-                       info[i++] = _("あなたは硬い岩を食べることができる。", "You can consume solid rock.");
-               }
-               if (p_ptr->muta1 & MUT1_SWAP_POS)
-               {
-                       info[i++] = _("あなたは他の者と場所を入れ替わることができる。", "You can switch locations with another being.");
-               }
-               if (p_ptr->muta1 & MUT1_SHRIEK)
-               {
-                       info[i++] = _("あなたは身の毛もよだつ叫び声を発することができる。(ダメージ レベルX2)", "You can emit a horrible shriek (dam 2 * lvl).");
-               }
-               if (p_ptr->muta1 & MUT1_ILLUMINE)
-               {
-                       info[i++] = _("あなたは明るい光を放つことができる。", "You can emit bright light.");
-               }
-               if (p_ptr->muta1 & MUT1_DET_CURSE)
-               {
-                       info[i++] = _("あなたは邪悪な魔法の危険を感じとることができる。", "You can feel the danger of evil magic.");
-               }
-               if (p_ptr->muta1 & MUT1_BERSERK)
-               {
-                       info[i++] = _("あなたは自分の意思で狂乱戦闘状態になることができる。", "You can drive yourself into a berserk frenzy.");
-               }
-               if (p_ptr->muta1 & MUT1_POLYMORPH)
-               {
-                       info[i++] = _("あなたは自分の意志で変化できる。", "You can polymorph yourself at will.");
-               }
-               if (p_ptr->muta1 & MUT1_MIDAS_TCH)
-               {
-                       info[i++] = _("あなたは通常アイテムを金に変えることができる。", "You can turn ordinary items to gold.");
-               }
-               if (p_ptr->muta1 & MUT1_GROW_MOLD)
-               {
-                       info[i++] = _("あなたは周囲にキノコを生やすことができる。", "You can cause mold to grow near you.");
-               }
-               if (p_ptr->muta1 & MUT1_RESIST)
-               {
-                       info[i++] = _("あなたは元素の攻撃に対して身を硬くすることができる。", "You can harden yourself to the ravages of the elements.");
-               }
-               if (p_ptr->muta1 & MUT1_EARTHQUAKE)
-               {
-                       info[i++] = _("あなたは周囲のダンジョンを崩壊させることができる。", "You can bring down the dungeon around your ears.");
-               }
-               if (p_ptr->muta1 & MUT1_EAT_MAGIC)
-               {
-                       info[i++] = _("あなたは魔法のエネルギーを自分の物として使用できる。", "You can consume magic energy for your own use.");
-               }
-               if (p_ptr->muta1 & MUT1_WEIGH_MAG)
-               {
-                       info[i++] = _("あなたは自分に影響を与える魔法の力を感じることができる。", "You can feel the strength of the magics affecting you.");
-               }
-               if (p_ptr->muta1 & MUT1_STERILITY)
-               {
-                       info[i++] = _("あなたは集団的生殖不能を起こすことができる。", "You can cause mass impotence.");
-               }
-               if (p_ptr->muta1 & MUT1_PANIC_HIT)
-               {
-                       info[i++] = _("あなたは攻撃した後身を守るため逃げることができる。", "You can run for your life after hitting something.");
-               }
-               if (p_ptr->muta1 & MUT1_DAZZLE)
-               {
-                       info[i++] = _("あなたは混乱と盲目を引き起こす放射能を発生することができる。 ", "You can emit confusing, blinding radiation.");
-               }
-               if (p_ptr->muta1 & MUT1_LASER_EYE)
-               {
-                       info[i++] = _("あなたは目からレーザー光線を発することができる。(ダメージ レベルX2)", "Your eyes can fire laser beams (dam 2 * lvl).");
-               }
-               if (p_ptr->muta1 & MUT1_RECALL)
-               {
-                       info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
-               }
-               if (p_ptr->muta1 & MUT1_BANISH)
-               {
-                       info[i++] = _("あなたは邪悪なモンスターを地獄に落とすことができる。", "You can send evil creatures directly to Hell.");
-               }
-               if (p_ptr->muta1 & MUT1_COLD_TOUCH)
-               {
-                       info[i++] = _("あなたは敵を触って凍らせることができる。(ダメージ レベルX3)", "You can freeze things with a touch (dam 3 * lvl).");
-               }
-               if (p_ptr->muta1 & MUT1_LAUNCHER)
-               {
-                       info[i++] = _("あなたはアイテムを力強く投げることができる。", "You can hurl objects with great force.");
-               }
-       }
-
-       if (p_ptr->muta2)
-       {
-               if (p_ptr->muta2 & MUT2_BERS_RAGE)
-               {
-                       info[i++] = _("あなたは狂戦士化の発作を起こす。", "You are subject to berserker fits.");
-               }
-               if (p_ptr->muta2 & MUT2_COWARDICE)
-               {
-                       info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
-               }
-               if (p_ptr->muta2 & MUT2_RTELEPORT)
-               {
-                       info[i++] = _("あなたはランダムにテレポートする。", "You are teleporting randomly.");
-               }
-               if (p_ptr->muta2 & MUT2_ALCOHOL)
-               {
-                       info[i++] = _("あなたの体はアルコールを分泌する。", "Your body produces alcohol.");
-               }
-               if (p_ptr->muta2 & MUT2_HALLU)
-               {
-                       info[i++] = _("あなたは幻覚を引き起こす精神錯乱に侵されている。", "You have a hallucinatory insanity.");
-               }
-               if (p_ptr->muta2 & MUT2_FLATULENT)
-               {
-                       info[i++] = _("あなたは制御できない強烈な屁をこく。", "You are subject to uncontrollable flatulence.");
-               }
-               if (p_ptr->muta2 & MUT2_PROD_MANA)
-               {
-                       info[i++] = _("あなたは制御不能な魔法のエネルギーを発している。", "You are producing magical energy uncontrollably.");
-               }
-               if (p_ptr->muta2 & MUT2_ATT_DEMON)
-               {
-                       info[i++] = _("あなたはデーモンを引きつける。", "You attract demons.");
-               }
-               if (p_ptr->muta2 & MUT2_SCOR_TAIL)
-               {
-                       info[i++] = _("あなたはサソリの尻尾が生えている。(毒、ダメージ 3d7)", "You have a scorpion tail (poison, 3d7).");
-               }
-               if (p_ptr->muta2 & MUT2_HORNS)
-               {
-                       info[i++] = _("あなたは角が生えている。(ダメージ 2d6)", "You have horns (dam. 2d6).");
-               }
-               if (p_ptr->muta2 & MUT2_BEAK)
-               {
-                       info[i++] = _("あなたはクチバシが生えている。(ダメージ 2d4)", "You have a beak (dam. 2d4).");
-               }
-               if (p_ptr->muta2 & MUT2_SPEED_FLUX)
-               {
-                       info[i++] = _("あなたはランダムに早く動いたり遅く動いたりする。", "You move faster or slower randomly.");
-               }
-               if (p_ptr->muta2 & MUT2_BANISH_ALL)
-               {
-                       info[i++] = _("あなたは時々近くのモンスターを消滅させる。", "You sometimes cause nearby creatures to vanish.");
-               }
-               if (p_ptr->muta2 & MUT2_EAT_LIGHT)
-               {
-                       info[i++] = _("あなたは時々周囲の光を吸収して栄養にする。", "You sometimes feed off of the light around you.");
-               }
-               if (p_ptr->muta2 & MUT2_TRUNK)
-               {
-                       info[i++] = _("あなたは象のような鼻を持っている。(ダメージ 1d4)", "You have an elephantine trunk (dam 1d4).");
-               }
-               if (p_ptr->muta2 & MUT2_ATT_ANIMAL)
-               {
-                       info[i++] = _("あなたは動物を引きつける。", "You attract animals.");
-               }
-               if (p_ptr->muta2 & MUT2_TENTACLES)
-               {
-                       info[i++] = _("あなたは邪悪な触手を持っている。(ダメージ 2d5)", "You have evil looking tentacles (dam 2d5).");
-               }
-               if (p_ptr->muta2 & MUT2_RAW_CHAOS)
-               {
-                       info[i++] = _("あなたはしばしば純カオスに包まれる。", "You occasionally are surrounded with raw chaos.");
-               }
-               if (p_ptr->muta2 & MUT2_NORMALITY)
-               {
-                       info[i++] = _("あなたは変異していたが、回復してきている。", "You may be mutated, but you're recovering.");
-               }
-               if (p_ptr->muta2 & MUT2_WRAITH)
-               {
-                       info[i++] = _("あなたの肉体は幽体化したり実体化したりする。", "You fade in and out of physical reality.");
-               }
-               if (p_ptr->muta2 & MUT2_POLY_WOUND)
-               {
-                       info[i++] = _("あなたの健康はカオスの力に影響を受ける。", "Your health is subject to chaotic forces.");
-               }
-               if (p_ptr->muta2 & MUT2_WASTING)
-               {
-                       info[i++] = _("あなたは衰弱する恐ろしい病気にかかっている。", "You have a horrible wasting disease.");
-               }
-               if (p_ptr->muta2 & MUT2_ATT_DRAGON)
-               {
-                       info[i++] = _("あなたはドラゴンを引きつける。", "You attract dragons.");
-               }
-               if (p_ptr->muta2 & MUT2_WEIRD_MIND)
-               {
-                       info[i++] = _("あなたの精神はランダムに拡大したり縮小したりしている。", "Your mind randomly expands and contracts.");
-               }
-               if (p_ptr->muta2 & MUT2_NAUSEA)
-               {
-                       info[i++] = _("あなたの胃は非常に落ち着きがない。", "You have a seriously upset stomach.");
-               }
-               if (p_ptr->muta2 & MUT2_CHAOS_GIFT)
-               {
-                       info[i++] = _("あなたはカオスの守護悪魔から褒美をうけとる。", "Chaos deities give you gifts.");
-               }
-               if (p_ptr->muta2 & MUT2_WALK_SHAD)
-               {
-                       info[i++] = _("あなたはしばしば他の「影」に迷い込む。", "You occasionally stumble into other shadows.");
-               }
-               if (p_ptr->muta2 & MUT2_WARNING)
-               {
-                       info[i++] = _("あなたは敵に関する警告を感じる。", "You receive warnings about your foes.");
-               }
-               if (p_ptr->muta2 & MUT2_INVULN)
-               {
-                       info[i++] = _("あなたは時々負け知らずな気分になる。", "You occasionally feel invincible.");
-               }
-               if (p_ptr->muta2 & MUT2_SP_TO_HP)
-               {
-                       info[i++] = _("あなたは時々血が筋肉にどっと流れる。", "Your blood sometimes rushes to your muscles.");
-               }
-               if (p_ptr->muta2 & MUT2_HP_TO_SP)
-               {
-                       info[i++] = _("あなたは時々頭に血がどっと流れる。", "Your blood sometimes rushes to your head.");
-               }
-               if (p_ptr->muta2 & MUT2_DISARM)
-               {
-                       info[i++] = _("あなたはよくつまづいて物を落とす。", "You occasionally stumble and drop things.");
-               }
-       }
-
-       if (p_ptr->muta3)
-       {
-               if (p_ptr->muta3 & MUT3_HYPER_STR)
-               {
-                       info[i++] = _("あなたは超人的に強い。(腕力+4)", "You are superhumanly strong (+4 STR).");
-               }
-               if (p_ptr->muta3 & MUT3_PUNY)
-               {
-                       info[i++] = _("あなたは虚弱だ。(腕力-4)", "You are puny (-4 STR).");
-               }
-               if (p_ptr->muta3 & MUT3_HYPER_INT)
-               {
-                       info[i++] = _("あなたの脳は生体コンピュータだ。(知能&賢さ+4)", "Your brain is a living computer (+4 INT/WIS).");
-               }
-               if (p_ptr->muta3 & MUT3_MORONIC)
-               {
-                       info[i++] = _("あなたは精神薄弱だ。(知能&賢さ-4)", "You are moronic (-4 INT/WIS).");
-               }
-               if (p_ptr->muta3 & MUT3_RESILIENT)
-               {
-                       info[i++] = _("あなたは非常にタフだ。(耐久+4)", "You are very resilient (+4 CON).");
-               }
-               if (p_ptr->muta3 & MUT3_XTRA_FAT)
-               {
-                       info[i++] = _("あなたは極端に太っている。(耐久+2,スピード-2)", "You are extremely fat (+2 CON, -2 speed).");
-               }
-               if (p_ptr->muta3 & MUT3_ALBINO)
-               {
-                       info[i++] = _("あなたはアルビノだ。(耐久-4)", "You are albino (-4 CON).");
-               }
-               if (p_ptr->muta3 & MUT3_FLESH_ROT)
-               {
-                       info[i++] = _("あなたの肉体は腐敗している。(耐久-2,魅力-1)", "Your flesh is rotting (-2 CON, -1 CHR).");
-               }
-               if (p_ptr->muta3 & MUT3_SILLY_VOI)
-               {
-                       info[i++] = _("あなたの声は間抜けなキーキー声だ。(魅力-4)", "Your voice is a silly squeak (-4 CHR).");
-               }
-               if (p_ptr->muta3 & MUT3_BLANK_FAC)
-               {
-                       info[i++] = _("あなたはのっぺらぼうだ。(魅力-1)", "Your face is featureless (-1 CHR).");
-               }
-               if (p_ptr->muta3 & MUT3_ILL_NORM)
-               {
-                       info[i++] = _("あなたは幻影に覆われている。", "Your appearance is masked with illusion.");
-               }
-               if (p_ptr->muta3 & MUT3_XTRA_EYES)
-               {
-                       info[i++] = _("あなたは余分に二つの目を持っている。(探索+15)", "You have an extra pair of eyes (+15 search).");
-               }
-               if (p_ptr->muta3 & MUT3_MAGIC_RES)
-               {
-                       info[i++] = _("あなたは魔法への耐性をもっている。", "You are resistant to magic.");
-               }
-               if (p_ptr->muta3 & MUT3_XTRA_NOIS)
-               {
-                       info[i++] = _("あなたは変な音を発している。(隠密-3)", "You make a lot of strange noise (-3 stealth).");
-               }
-               if (p_ptr->muta3 & MUT3_INFRAVIS)
-               {
-                       info[i++] = _("あなたは素晴らしい赤外線視力を持っている。(+3)", "You have remarkable infravision (+3).");
-               }
-               if (p_ptr->muta3 & MUT3_XTRA_LEGS)
-               {
-                       info[i++] = _("あなたは余分に二本の足が生えている。(加速+3)", "You have an extra pair of legs (+3 speed).");
-               }
-               if (p_ptr->muta3 & MUT3_SHORT_LEG)
-               {
-                       info[i++] = _("あなたの足は短い突起だ。(加速-3)", "Your legs are short stubs (-3 speed).");
-               }
-               if (p_ptr->muta3 & MUT3_ELEC_TOUC)
-               {
-                       info[i++] = _("あなたの血管には電流が流れている。", "Electricity is running through your veins.");
-               }
-               if (p_ptr->muta3 & MUT3_FIRE_BODY)
-               {
-                       info[i++] = _("あなたの体は炎につつまれている。", "Your body is enveloped in flames.");
-               }
-               if (p_ptr->muta3 & MUT3_WART_SKIN)
-               {
-                       info[i++] = _("あなたの肌はイボに被われている。(魅力-2, AC+5)", "Your skin is covered with warts (-2 CHR, +5 AC).");
-               }
-               if (p_ptr->muta3 & MUT3_SCALES)
-               {
-                       info[i++] = _("あなたの肌は鱗になっている。(魅力-1, AC+10)", "Your skin has turned into scales (-1 CHR, +10 AC).");
-               }
-               if (p_ptr->muta3 & MUT3_IRON_SKIN)
-               {
-                       info[i++] = _("あなたの肌は鉄でできている。(器用-1, AC+25)", "Your skin is made of steel (-1 DEX, +25 AC).");
-               }
-               if (p_ptr->muta3 & MUT3_WINGS)
-               {
-                       info[i++] = _("あなたは羽を持っている。", "You have wings.");
-               }
-               if (p_ptr->muta3 & MUT3_FEARLESS)
-               {
-                       /* Unnecessary */
-               }
-               if (p_ptr->muta3 & MUT3_REGEN)
-               {
-                       /* Unnecessary */
-               }
-               if (p_ptr->muta3 & MUT3_ESP)
-               {
-                       /* Unnecessary */
-               }
-               if (p_ptr->muta3 & MUT3_LIMBER)
-               {
-                       info[i++] = _("あなたの体は非常にしなやかだ。(器用+3)", "Your body is very limber (+3 DEX).");
-               }
-               if (p_ptr->muta3 & MUT3_ARTHRITIS)
-               {
-                       info[i++] = _("あなたはいつも関節に痛みを感じている。(器用-3)", "Your joints ache constantly (-3 DEX).");
-               }
-               if (p_ptr->muta3 & MUT3_VULN_ELEM)
-               {
-                       info[i++] = _("あなたは元素の攻撃に弱い。", "You are susceptible to damage from the elements.");
-               }
-               if (p_ptr->muta3 & MUT3_MOTION)
-               {
-                       info[i++] = _("あなたの動作は正確で力強い。(隠密+1)", "Your movements are precise and forceful (+1 STL).");
-               }
-               if (p_ptr->muta3 & MUT3_GOOD_LUCK)
-               {
-                       info[i++] = _("あなたは白いオーラにつつまれている。", "There is a white aura surrounding you.");
-               }
-               if (p_ptr->muta3 & MUT3_BAD_LUCK)
-               {
-                       info[i++] = _("あなたは黒いオーラにつつまれている。", "There is a black aura surrounding you.");
-               }
-       }
-
-       if (p_ptr->blind)
-       {
-               info[i++] = _("あなたは目が見えない。", "You cannot see.");
-       }
-       if (p_ptr->confused)
-       {
-               info[i++] = _("あなたは混乱している。", "You are confused.");
-       }
-       if (p_ptr->afraid)
-       {
-               info[i++] = _("あなたは恐怖に侵されている。", "You are terrified.");
-       }
-       if (p_ptr->cut)
-       {
-               info[i++] = _("あなたは出血している。", "You are bleeding.");
-       }
-       if (p_ptr->stun)
-       {
-               info[i++] = _("あなたはもうろうとしている。", "You are stunned.");
-       }
-       if (p_ptr->poisoned)
-       {
-               info[i++] = _("あなたは毒に侵されている。", "You are poisoned.");
-       }
-       if (p_ptr->image)
-       {
-               info[i++] = _("あなたは幻覚を見ている。", "You are hallucinating.");
-       }
-       if (p_ptr->cursed & TRC_TY_CURSE)
-       {
-               info[i++] = _("あなたは邪悪な怨念に包まれている。", "You carry an ancient foul curse.");
-       }
-       if (p_ptr->cursed & TRC_AGGRAVATE)
-       {
-               info[i++] = _("あなたはモンスターを怒らせている。", "You aggravate monsters.");
-       }
-       if (p_ptr->cursed & TRC_DRAIN_EXP)
-       {
-               info[i++] = _("あなたは経験値を吸われている。", "You are drained.");
-       }
-       if (p_ptr->cursed & TRC_SLOW_REGEN)
-       {
-               info[i++] = _("あなたの回復力は非常に遅い。", "You regenerate slowly.");
-       }
-       if (p_ptr->cursed & TRC_ADD_L_CURSE)
-       {
-               info[i++] = _("あなたの弱い呪いは増える。","Your weak curses multiply."); /* 暫定的 -- henkma */
-       }
-       if (p_ptr->cursed & TRC_ADD_H_CURSE)
-       {
-               info[i++] = _("あなたの強い呪いは増える。","Your heavy curses multiply."); /* 暫定的 -- henkma */
-       }
-       if (p_ptr->cursed & TRC_CALL_ANIMAL)
-       {
-               info[i++] = _("あなたは動物に狙われている。", "You attract animals.");
-       }
-       if (p_ptr->cursed & TRC_CALL_DEMON)
-       {
-               info[i++] = _("あなたは悪魔に狙われている。", "You attract demons.");
-       }
-       if (p_ptr->cursed & TRC_CALL_DRAGON)
-       {
-               info[i++] = _("あなたはドラゴンに狙われている。", "You attract dragons.");
-       }
-       if (p_ptr->cursed & TRC_COWARDICE)
-       {
-               info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
-       }
-       if (p_ptr->cursed & TRC_TELEPORT)
-       {
-               info[i++] = _("あなたの位置はひじょうに不安定だ。", "Your position is very uncertain.");
-       }
-       if (p_ptr->cursed & TRC_LOW_MELEE)
-       {
-               info[i++] = _("あなたの武器は攻撃を外しやすい。", "Your weapon causes you to miss blows.");
-       }
-       if (p_ptr->cursed & TRC_LOW_AC)
-       {
-               info[i++] = _("あなたは攻撃を受けやすい。", "You are subject to be hit.");
-       }
-       if (p_ptr->cursed & TRC_LOW_MAGIC)
-       {
-               info[i++] = _("あなたは魔法を失敗しやすい。", "You are subject to fail spellcasting.");
-       }
-       if (p_ptr->cursed & TRC_FAST_DIGEST)
-       {
-               info[i++] = _("あなたはすぐお腹がへる。", "You have a good appetite.");
-       }
-       if (p_ptr->cursed & TRC_DRAIN_HP)
-       {
-               info[i++] = _("あなたは体力を吸われている。", "You are drained.");
-       }
-       if (p_ptr->cursed & TRC_DRAIN_MANA)
-       {
-               info[i++] = _("あなたは魔力を吸われている。", "You brain is drained.");
-       }
-       if (IS_BLESSED())
-       {
-               info[i++] = _("あなたは高潔さを感じている。", "You feel rightous.");
-       }
-       if (IS_HERO())
-       {
-               info[i++] = _("あなたはヒーロー気分だ。", "You feel heroic.");
-       }
-       if (p_ptr->shero)
-       {
-               info[i++] = _("あなたは戦闘狂だ。", "You are in a battle rage.");
-       }
-       if (p_ptr->protevil)
-       {
-               info[i++] = _("あなたは邪悪なる存在から守られている。", "You are protected from evil.");
-       }
-       if (p_ptr->shield)
-       {
-               info[i++] = _("あなたは神秘のシールドで守られている。", "You are protected by a mystic shield.");
-       }
-       if (IS_INVULN())
-       {
-               info[i++] = _("あなたは現在傷つかない。", "You are temporarily invulnerable.");
-       }
-       if (p_ptr->wraith_form)
-       {
-               info[i++] = _("あなたは一時的に幽体化している。", "You are temporarily incorporeal.");
-       }
-       if (p_ptr->special_attack & ATTACK_CONFUSE)
-       {
-               info[i++] = _("あなたの手は赤く輝いている。", "Your hands are glowing dull red.");
-       }
-       if (p_ptr->special_attack & ATTACK_FIRE)
-       {
-               info[i++] = _("あなたの手は火炎に覆われている。", "You can strike the enemy with flame.");
-       }
-       if (p_ptr->special_attack & ATTACK_COLD)
-       {
-               info[i++] = _("あなたの手は冷気に覆われている。", "You can strike the enemy with cold.");
-       }
-       if (p_ptr->special_attack & ATTACK_ACID)
-       {
-               info[i++] = _("あなたの手は酸に覆われている。", "You can strike the enemy with acid.");
-       }
-       if (p_ptr->special_attack & ATTACK_ELEC)
-       {
-               info[i++] = _("あなたの手は電撃に覆われている。", "You can strike the enemy with electoric shock.");
-       }
-       if (p_ptr->special_attack & ATTACK_POIS)
-       {
-               info[i++] = _("あなたの手は毒に覆われている。", "You can strike the enemy with poison.");
-       }
-       switch (p_ptr->action)
-       {
-               case ACTION_SEARCH:
-                       info[i++] = _("あなたはひじょうに注意深く周囲を見渡している。", "You are looking around very carefully.");
-                       break;
-       }
-       if (p_ptr->new_spells)
-       {
-               info[i++] = _("あなたは呪文や祈りを学ぶことができる。", "You can learn some spells/prayers.");
-       }
-       if (p_ptr->word_recall)
-       {
-               info[i++] = _("あなたはすぐに帰還するだろう。", "You will soon be recalled.");
-       }
-       if (p_ptr->alter_reality)
-       {
-               info[i++] = _("あなたはすぐにこの世界を離れるだろう。", "You will soon be altered.");
-       }
-       if (p_ptr->see_infra)
-       {
-               info[i++] = _("あなたの瞳は赤外線に敏感である。", "Your eyes are sensitive to infrared light.");
-       }
-       if (p_ptr->see_inv)
-       {
-               info[i++] = _("あなたは透明なモンスターを見ることができる。", "You can see invisible creatures.");
-       }
-       if (p_ptr->levitation)
-       {
-               info[i++] = _("あなたは飛ぶことができる。", "You can fly.");
-       }
-       if (p_ptr->free_act)
-       {
-               info[i++] = _("あなたは麻痺知らずの効果を持っている。", "You have free action.");
-       }
-       if (p_ptr->regenerate)
-       {
-               info[i++] = _("あなたは素早く体力を回復する。", "You regenerate quickly.");
-       }
-       if (p_ptr->slow_digest)
-       {
-               info[i++] = _("あなたは食欲が少ない。", "Your appetite is small.");
-       }
-       if (p_ptr->telepathy)
-       {
-               info[i++] = _("あなたはテレパシー能力を持っている。", "You have ESP.");
-       }
-       if (p_ptr->esp_animal)
-       {
-               info[i++] = _("あなたは自然界の生物の存在を感じる能力を持っている。", "You sense natural creatures.");
-       }
-       if (p_ptr->esp_undead)
-       {
-               info[i++] = _("あなたはアンデッドの存在を感じる能力を持っている。", "You sense undead.");
-       }
-       if (p_ptr->esp_demon)
-       {
-               info[i++] = _("あなたは悪魔の存在を感じる能力を持っている。", "You sense demons.");
-       }
-       if (p_ptr->esp_orc)
-       {
-               info[i++] = _("あなたはオークの存在を感じる能力を持っている。", "You sense orcs.");
-       }
-       if (p_ptr->esp_troll)
-       {
-               info[i++] = _("あなたはトロルの存在を感じる能力を持っている。", "You sense trolls.");
-       }
-       if (p_ptr->esp_giant)
-       {
-               info[i++] = _("あなたは巨人の存在を感じる能力を持っている。", "You sense giants.");
-       }
-       if (p_ptr->esp_dragon)
-       {
-               info[i++] = _("あなたはドラゴンの存在を感じる能力を持っている。", "You sense dragons.");
-       }
-       if (p_ptr->esp_human)
-       {
-               info[i++] = _("あなたは人間の存在を感じる能力を持っている。", "You sense humans.");
-       }
-       if (p_ptr->esp_evil)
-       {
-               info[i++] = _("あなたは邪悪な生き物の存在を感じる能力を持っている。", "You sense evil creatures.");
-       }
-       if (p_ptr->esp_good)
-       {
-               info[i++] = _("あなたは善良な生き物の存在を感じる能力を持っている。", "You sense good creatures.");
-       }
-       if (p_ptr->esp_nonliving)
-       {
-               info[i++] = _("あなたは活動する無生物体の存在を感じる能力を持っている。", "You sense non-living creatures.");
-       }
-       if (p_ptr->esp_unique)
-       {
-               info[i++] = _("あなたは特別な強敵の存在を感じる能力を持っている。", "You sense unique monsters.");
-       }
-       if (p_ptr->hold_exp)
-       {
-               info[i++] = _("あなたは自己の経験値をしっかりと維持する。", "You have a firm hold on your experience.");
-       }
-       if (p_ptr->reflect)
-       {
-               info[i++] = _("あなたは矢の呪文を反射する。", "You reflect bolt spells.");
-       }
-       if (p_ptr->sh_fire)
-       {
-               info[i++] = _("あなたは炎のオーラに包まれている。", "You are surrounded with a fiery aura.");
-       }
-       if (p_ptr->sh_elec)
-       {
-               info[i++] = _("あなたは電気に包まれている。", "You are surrounded with electricity.");
-       }
-       if (p_ptr->sh_cold)
-       {
-               info[i++] = _("あなたは冷気のオーラに包まれている。", "You are surrounded with an aura of coldness.");
-       }
-       if (p_ptr->tim_sh_holy)
-       {
-               info[i++] = _("あなたは聖なるオーラに包まれている。", "You are surrounded with a holy aura.");
-       }
-       if (p_ptr->tim_sh_touki)
-       {
-               info[i++] = _("あなたは闘気のオーラに包まれている。", "You are surrounded with a energy aura.");
-       }
-       if (p_ptr->anti_magic)
-       {
-               info[i++] = _("あなたは反魔法シールドに包まれている。", "You are surrounded by an anti-magic shell.");
-       }
-       if (p_ptr->anti_tele)
-       {
-               info[i++] = _("あなたはテレポートできない。", "You cannot teleport.");
-       }
-       if (p_ptr->lite)
-       {
-               info[i++] = _("あなたの身体は光っている。", "You are carrying a permanent light.");
-       }
-       if (p_ptr->warning)
-       {
-               info[i++] = _("あなたは行動の前に危険を察知することができる。", "You will be warned before dangerous actions.");
-       }
-       if (p_ptr->dec_mana)
-       {
-               info[i++] = _("あなたは少ない消費魔力で魔法を唱えることができる。", "You can cast spells with fewer mana points.");
-       }
-       if (p_ptr->easy_spell)
-       {
-               info[i++] = _("あなたは低い失敗率で魔法を唱えることができる。", "Fail rate of your magic is decreased.");
-       }
-       if (p_ptr->heavy_spell)
-       {
-               info[i++] = _("あなたは高い失敗率で魔法を唱えなければいけない。", "Fail rate of your magic is increased.");
-       }
-       if (p_ptr->mighty_throw)
-       {
-               info[i++] = _("あなたは強く物を投げる。", "You can throw objects powerfully.");
-       }
-
-       if (p_ptr->immune_acid)
-       {
-               info[i++] = _("あなたは酸に対する完全なる免疫を持っている。", "You are completely immune to acid.");
-       }
-       else if (p_ptr->resist_acid && IS_OPPOSE_ACID())
-       {
-               info[i++] = _("あなたは酸への強力な耐性を持っている。", "You resist acid exceptionally well.");
-       }
-       else if (p_ptr->resist_acid || IS_OPPOSE_ACID())
-       {
-               info[i++] = _("あなたは酸への耐性を持っている。", "You are resistant to acid.");
-       }
-
-       if (p_ptr->immune_elec)
-       {
-               info[i++] = _("あなたは電撃に対する完全なる免疫を持っている。", "You are completely immune to lightning.");
-       }
-       else if (p_ptr->resist_elec && IS_OPPOSE_ELEC())
-       {
-               info[i++] = _("あなたは電撃への強力な耐性を持っている。", "You resist lightning exceptionally well.");
-       }
-       else if (p_ptr->resist_elec || IS_OPPOSE_ELEC())
-       {
-               info[i++] = _("あなたは電撃への耐性を持っている。", "You are resistant to lightning.");
-       }
-
-       if (prace_is_(RACE_ANDROID) && !p_ptr->immune_elec)
-       {
-               info[i++] = _("あなたは電撃に弱い。", "You are susceptible to damage from lightning.");
-       }
-
-       if (p_ptr->immune_fire)
-       {
-               info[i++] = _("あなたは火に対する完全なる免疫を持っている。", "You are completely immune to fire.");
-       }
-       else if (p_ptr->resist_fire && IS_OPPOSE_FIRE())
-       {
-               info[i++] = _("あなたは火への強力な耐性を持っている。", "You resist fire exceptionally well.");
-       }
-       else if (p_ptr->resist_fire || IS_OPPOSE_FIRE())
-       {
-               info[i++] = _("あなたは火への耐性を持っている。", "You are resistant to fire.");
-       }
-
-       if (prace_is_(RACE_ENT) && !p_ptr->immune_fire)
-       {
-               info[i++] = _("あなたは火に弱い。", "You are susceptible to damage from fire.");
-       }
-
-       if (p_ptr->immune_cold)
-       {
-               info[i++] = _("あなたは冷気に対する完全なる免疫を持っている。", "You are completely immune to cold.");
-       }
-       else if (p_ptr->resist_cold && IS_OPPOSE_COLD())
-       {
-               info[i++] = _("あなたは冷気への強力な耐性を持っている。", "You resist cold exceptionally well.");
-       }
-       else if (p_ptr->resist_cold || IS_OPPOSE_COLD())
-       {
-               info[i++] = _("あなたは冷気への耐性を持っている。", "You are resistant to cold.");
-       }
-
-       if (p_ptr->resist_pois && IS_OPPOSE_POIS())
-       {
-               info[i++] = _("あなたは毒への強力な耐性を持っている。", "You resist poison exceptionally well.");
-       }
-       else if (p_ptr->resist_pois || IS_OPPOSE_POIS())
-       {
-               info[i++] = _("あなたは毒への耐性を持っている。", "You are resistant to poison.");
-       }
-
-       if (p_ptr->resist_lite)
-       {
-               info[i++] = _("あなたは閃光への耐性を持っている。", "You are resistant to bright light.");
-       }
-
-       if (prace_is_(RACE_VAMPIRE) || prace_is_(RACE_S_FAIRY) || (p_ptr->mimic_form == MIMIC_VAMPIRE))
-       {
-               info[i++] = _("あなたは閃光に弱い。", "You are susceptible to damage from bright light.");
-       }
-
-       if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE) || p_ptr->wraith_form)
-       {
-               info[i++] = _("あなたは暗黒に対する完全なる免疫を持っている。", "You are completely immune to darkness.");
-       }
-
-       else if (p_ptr->resist_dark)
-       {
-               info[i++] = _("あなたは暗黒への耐性を持っている。", "You are resistant to darkness.");
-       }
-       if (p_ptr->resist_conf)
-       {
-               info[i++] = _("あなたは混乱への耐性を持っている。", "You are resistant to confusion.");
-       }
-       if (p_ptr->resist_sound)
-       {
-               info[i++] = _("あなたは音波の衝撃への耐性を持っている。", "You are resistant to sonic attacks.");
-       }
-       if (p_ptr->resist_disen)
-       {
-               info[i++] = _("あなたは劣化への耐性を持っている。", "You are resistant to disenchantment.");
-       }
-       if (p_ptr->resist_chaos)
-       {
-               info[i++] = _("あなたはカオスの力への耐性を持っている。", "You are resistant to chaos.");
-       }
-       if (p_ptr->resist_shard)
-       {
-               info[i++] = _("あなたは破片の攻撃への耐性を持っている。", "You are resistant to blasts of shards.");
-       }
-       if (p_ptr->resist_nexus)
-       {
-               info[i++] = _("あなたは因果混乱の攻撃への耐性を持っている。", "You are resistant to nexus attacks.");
-       }
-
-       if (prace_is_(RACE_SPECTRE))
-       {
-               info[i++] = _("あなたは地獄の力を吸収できる。", "You can drain nether forces.");
-       }
-       else if (p_ptr->resist_neth)
-       {
-               info[i++] = _("あなたは地獄の力への耐性を持っている。", "You are resistant to nether forces.");
-       }
-       if (p_ptr->resist_fear)
-       {
-               info[i++] = _("あなたは全く恐怖を感じない。", "You are completely fearless.");
-       }
-       if (p_ptr->resist_blind)
-       {
-               info[i++] = _("あなたの目は盲目への耐性を持っている。", "Your eyes are resistant to blindness.");
-       }
-       if (p_ptr->resist_time)
-       {
-               info[i++] = _("あなたは時間逆転への耐性を持っている。", "You are resistant to time.");
-       }
-
-       if (p_ptr->sustain_str)
-       {
-               info[i++] = _("あなたの腕力は維持されている。", "Your strength is sustained.");
-       }
-       if (p_ptr->sustain_int)
-       {
-               info[i++] = _("あなたの知能は維持されている。", "Your intelligence is sustained.");
-       }
-       if (p_ptr->sustain_wis)
-       {
-               info[i++] = _("あなたの賢さは維持されている。", "Your wisdom is sustained.");
-       }
-       if (p_ptr->sustain_con)
-       {
-               info[i++] = _("あなたの耐久力は維持されている。", "Your constitution is sustained.");
-       }
-       if (p_ptr->sustain_dex)
-       {
-               info[i++] = _("あなたの器用さは維持されている。", "Your dexterity is sustained.");
-       }
-       if (p_ptr->sustain_chr)
-       {
-               info[i++] = _("あなたの魅力は維持されている。", "Your charisma is sustained.");
-       }
-
-       if (have_flag(flgs, TR_STR))
-       {
-               info[i++] = _("あなたの腕力は装備によって影響を受けている。", "Your strength is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_INT))
-       {
-               info[i++] = _("あなたの知能は装備によって影響を受けている。", "Your intelligence is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_WIS))
-       {
-               info[i++] = _("あなたの賢さは装備によって影響を受けている。", "Your wisdom is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_DEX))
-       {
-               info[i++] = _("あなたの器用さは装備によって影響を受けている。", "Your dexterity is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_CON))
-       {
-               info[i++] = _("あなたの耐久力は装備によって影響を受けている。", "Your constitution is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_CHR))
-       {
-               info[i++] = _("あなたの魅力は装備によって影響を受けている。", "Your charisma is affected by your equipment.");
-       }
-
-       if (have_flag(flgs, TR_STEALTH))
-       {
-               info[i++] = _("あなたの隠密行動能力は装備によって影響を受けている。", "Your stealth is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_SEARCH))
-       {
-               info[i++] = _("あなたの探索能力は装備によって影響を受けている。", "Your searching ability is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_INFRA))
-       {
-               info[i++] = _("あなたの赤外線視力は装備によって影響を受けている。", "Your infravision is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_TUNNEL))
-       {
-               info[i++] = _("あなたの採掘能力は装備によって影響を受けている。", "Your digging ability is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_SPEED))
-       {
-               info[i++] = _("あなたのスピードは装備によって影響を受けている。", "Your speed is affected by your equipment.");
-       }
-       if (have_flag(flgs, TR_BLOWS))
-       {
-               info[i++] = _("あなたの攻撃速度は装備によって影響を受けている。", "Your attack speed is affected by your equipment.");
-       }
-
-
-       /* Access the current weapon */
-       o_ptr = &inventory[INVEN_RARM];
-
-       /* Analyze the weapon */
-       if (o_ptr->k_idx)
-       {
-               /* Indicate Blessing */
-               if (have_flag(flgs, TR_BLESSED))
-               {
-                       info[i++] = _("あなたの武器は神の祝福を受けている。", "Your weapon has been blessed by the gods.");
-               }
-
-               if (have_flag(flgs, TR_CHAOTIC))
-               {
-                       info[i++] = _("あなたの武器はログルスの徴の属性をもつ。", "Your weapon is branded with the Sign of Logrus.");
-               }
-
-               /* Hack */
-               if (have_flag(flgs, TR_IMPACT))
-               {
-                       info[i++] = _("あなたの武器は打撃で地震を発生することができる。", "The impact of your weapon can cause earthquakes.");
-               }
-
-               if (have_flag(flgs, TR_VORPAL))
-               {
-                       info[i++] = _("あなたの武器は非常に鋭い。", "Your weapon is very sharp.");
-               }
-
-               if (have_flag(flgs, TR_VAMPIRIC))
-               {
-                       info[i++] = _("あなたの武器は敵から生命力を吸収する。", "Your weapon drains life from your foes.");
-               }
-
-               /* Special "Attack Bonuses" */
-               if (have_flag(flgs, TR_BRAND_ACID))
-               {
-                       info[i++] = _("あなたの武器は敵を溶かす。", "Your weapon melts your foes.");
-               }
-               if (have_flag(flgs, TR_BRAND_ELEC))
-               {
-                       info[i++] = _("あなたの武器は敵を感電させる。", "Your weapon shocks your foes.");
-               }
-               if (have_flag(flgs, TR_BRAND_FIRE))
-               {
-                       info[i++] = _("あなたの武器は敵を燃やす。", "Your weapon burns your foes.");
-               }
-               if (have_flag(flgs, TR_BRAND_COLD))
-               {
-                       info[i++] = _("あなたの武器は敵を凍らせる。", "Your weapon freezes your foes.");
-               }
-               if (have_flag(flgs, TR_BRAND_POIS))
-               {
-                       info[i++] = _("あなたの武器は敵を毒で侵す。", "Your weapon poisons your foes.");
-               }
-
-               /* Special "slay" flags */
-               if (have_flag(flgs, TR_KILL_ANIMAL))
-               {
-                       info[i++] = _("あなたの武器は動物の天敵である。", "Your weapon is a great bane of animals.");
-               }
-               else if (have_flag(flgs, TR_SLAY_ANIMAL))
-               {
-                       info[i++] = _("あなたの武器は動物に対して強い力を発揮する。", "Your weapon strikes at animals with extra force.");
-               }
-               if (have_flag(flgs, TR_KILL_EVIL))
-               {
-                       info[i++] = _("あなたの武器は邪悪なる存在の天敵である。", "Your weapon is a great bane of evil.");
-               }
-               else if (have_flag(flgs, TR_SLAY_EVIL))
-               {
-                       info[i++] = _("あなたの武器は邪悪なる存在に対して強い力を発揮する。", "Your weapon strikes at evil with extra force.");
-               }
-               if (have_flag(flgs, TR_KILL_HUMAN))
-               {
-                       info[i++] = _("あなたの武器は人間の天敵である。", "Your weapon is a great bane of humans.");
-               }
-               else if (have_flag(flgs, TR_SLAY_HUMAN))
-               {
-                       info[i++] = _("あなたの武器は人間に対して特に強い力を発揮する。", "Your weapon is especially deadly against humans.");
-               }
-               if (have_flag(flgs, TR_KILL_UNDEAD))
-               {
-                       info[i++] = _("あなたの武器はアンデッドの天敵である。", "Your weapon is a great bane of undead.");
-               }
-               else if (have_flag(flgs, TR_SLAY_UNDEAD))
-               {
-                       info[i++] = _("あなたの武器はアンデッドに対して神聖なる力を発揮する。", "Your weapon strikes at undead with holy wrath.");
-               }
-               if (have_flag(flgs, TR_KILL_DEMON))
-               {
-                       info[i++] = _("あなたの武器はデーモンの天敵である。", "Your weapon is a great bane of demons.");
-               }
-               else if (have_flag(flgs, TR_SLAY_DEMON))
-               {
-                       info[i++] = _("あなたの武器はデーモンに対して神聖なる力を発揮する。", "Your weapon strikes at demons with holy wrath.");
-               }
-               if (have_flag(flgs, TR_KILL_ORC))
-               {
-                       info[i++] = _("あなたの武器はオークの天敵である。", "Your weapon is a great bane of orcs.");
-               }
-               else if (have_flag(flgs, TR_SLAY_ORC))
-               {
-                       info[i++] = _("あなたの武器はオークに対して特に強い力を発揮する。", "Your weapon is especially deadly against orcs.");
-               }
-               if (have_flag(flgs, TR_KILL_TROLL))
-               {
-                       info[i++] = _("あなたの武器はトロルの天敵である。", "Your weapon is a great bane of trolls.");
-               }
-               else if (have_flag(flgs, TR_SLAY_TROLL))
-               {
-                       info[i++] = _("あなたの武器はトロルに対して特に強い力を発揮する。", "Your weapon is especially deadly against trolls.");
-               }
-               if (have_flag(flgs, TR_KILL_GIANT))
-               {
-                       info[i++] = _("あなたの武器はジャイアントの天敵である。", "Your weapon is a great bane of giants.");
-               }
-               else if (have_flag(flgs, TR_SLAY_GIANT))
-               {
-                       info[i++] = _("あなたの武器はジャイアントに対して特に強い力を発揮する。", "Your weapon is especially deadly against giants.");
-               }
-               /* Special "kill" flags */
-               if (have_flag(flgs, TR_KILL_DRAGON))
-               {
-                       info[i++] = _("あなたの武器はドラゴンの天敵である。", "Your weapon is a great bane of dragons.");
-               }
-               else if (have_flag(flgs, TR_SLAY_DRAGON))
-               {
-                       info[i++] = _("あなたの武器はドラゴンに対して特に強い力を発揮する。", "Your weapon is especially deadly against dragons.");
-               }
-
-               if (have_flag(flgs, TR_FORCE_WEAPON))
-               {
-                       info[i++] = _("あなたの武器はMPを使って攻撃する。", "Your weapon causes greate damages using your MP.");
-               }
-               if (have_flag(flgs, TR_THROW))
-               {
-                       info[i++] = _("あなたの武器は投げやすい。", "Your weapon can be thrown well.");
-               }
-       }
-
-
-       /* Save the screen */
-       screen_save();
-
-       /* Erase the screen */
-       for (k = 1; k < 24; k++) prt("", k, 13);
-
-       /* Label the information */
-       prt(_("        あなたの状態:", "     Your Attributes:"), 1, 15);
-
-       /* We will print on top of the map (column 13) */
-       for (k = 2, j = 0; j < i; j++)
-       {
-               /* Show the info */
-               prt(info[j], k++, 15);
-
-               /* Every 20 entries (lines 2 to 21), start over */
-               if ((k == 22) && (j+1 < i))
-               {
-                       prt(_("-- 続く --", "-- more --"), k, 15);
-                       inkey();
-                       for (; k > 2; k--) prt("", k, 15);
-               }
-       }
-
-       /* Pause */
-       prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
-       inkey();
-
-       /* Restore the screen */
-       screen_load();
-}
-
-/*!
- * @brief 魔法効果時間のターン数に基づいて表現IDを返す。
- * @param dur 効果ターン数
- * @return 効果時間の表現ID
- */
-static int report_magics_aux(int dur)
-{
-       if (dur <= 5)
-       {
-               return 0;
-       }
-       else if (dur <= 10)
-       {
-               return 1;
-       }
-       else if (dur <= 20)
-       {
-               return 2;
-       }
-       else if (dur <= 50)
-       {
-               return 3;
-       }
-       else if (dur <= 100)
-       {
-               return 4;
-       }
-       else if (dur <= 200)
-       {
-               return 5;
-       }
-       else
-       {
-               return 6;
-       }
-}
-
-static cptr report_magic_durations[] =
-{
-#ifdef JP
-"ごく短い間",
-"少しの間",
-"しばらくの間",
-"多少長い間",
-"長い間",
-"非常に長い間",
-"信じ難いほど長い間",
-"モンスターを攻撃するまで"
-#else
-       "for a short time",
-       "for a little while",
-       "for a while",
-       "for a long while",
-       "for a long time",
-       "for a very long time",
-       "for an incredibly long time",
-       "until you hit a monster"
-#endif
-
-};
-
-/*!
- * @brief 現在の一時的効果一覧を返す / Report all currently active magical effects.
- * @return なし
- */
-void report_magics(void)
-{
-       int     i = 0, j, k;
-       char    Dummy[80];
-       cptr    info[128];
-       int     info2[128];
-
-
-       if (p_ptr->blind)
-       {
-               info2[i]  = report_magics_aux(p_ptr->blind);
-               info[i++] = _("あなたは目が見えない", "You cannot see");
-       }
-       if (p_ptr->confused)
-       {
-               info2[i]  = report_magics_aux(p_ptr->confused);
-               info[i++] = _("あなたは混乱している", "You are confused");
-       }
-       if (p_ptr->afraid)
-       {
-               info2[i]  = report_magics_aux(p_ptr->afraid);
-               info[i++] = _("あなたは恐怖に侵されている", "You are terrified");
-       }
-       if (p_ptr->poisoned)
-       {
-               info2[i]  = report_magics_aux(p_ptr->poisoned);
-               info[i++] = _("あなたは毒に侵されている", "You are poisoned");
-       }
-       if (p_ptr->image)
-       {
-               info2[i]  = report_magics_aux(p_ptr->image);
-               info[i++] = _("あなたは幻覚を見ている", "You are hallucinating");
-       }
-       if (p_ptr->blessed)
-       {
-               info2[i]  = report_magics_aux(p_ptr->blessed);
-               info[i++] = _("あなたは高潔さを感じている", "You feel rightous");
-       }
-       if (p_ptr->hero)
-       {
-               info2[i]  = report_magics_aux(p_ptr->hero);
-               info[i++] = _("あなたはヒーロー気分だ", "You feel heroic");
-       }
-       if (p_ptr->shero)
-       {
-               info2[i]  = report_magics_aux(p_ptr->shero);
-               info[i++] = _("あなたは戦闘狂だ", "You are in a battle rage");
-       }
-       if (p_ptr->protevil)
-       {
-               info2[i]  = report_magics_aux(p_ptr->protevil);
-               info[i++] = _("あなたは邪悪なる存在から守られている", "You are protected from evil");
-       }
-       if (p_ptr->shield)
-       {
-               info2[i]  = report_magics_aux(p_ptr->shield);
-               info[i++] = _("あなたは神秘のシールドで守られている", "You are protected by a mystic shield");
-       }
-       if (p_ptr->invuln)
-       {
-               info2[i]  = report_magics_aux(p_ptr->invuln);
-               info[i++] = _("あなたは無敵だ", "You are invulnerable");
-       }
-       if (p_ptr->wraith_form)
-       {
-               info2[i]  = report_magics_aux(p_ptr->wraith_form);
-               info[i++] = _("あなたは幽体化している", "You are incorporeal");
-       }
-       if (p_ptr->special_attack & ATTACK_CONFUSE)
-       {
-               info2[i]  = 7;
-               info[i++] = _("あなたの手は赤く輝いている", "Your hands are glowing dull red.");
-       }
-       if (p_ptr->word_recall)
-       {
-               info2[i]  = report_magics_aux(p_ptr->word_recall);
-               info[i++] = _("この後帰還の詔が発動する", "You are waiting to be recalled");
-       }
-       if (p_ptr->alter_reality)
-       {
-               info2[i]  = report_magics_aux(p_ptr->alter_reality);
-               info[i++] = _("この後現実変容が発動する", "You waiting to be altered");
-       }
-       if (p_ptr->oppose_acid)
-       {
-               info2[i]  = report_magics_aux(p_ptr->oppose_acid);
-               info[i++] = _("あなたは酸への耐性を持っている", "You are resistant to acid");
-       }
-       if (p_ptr->oppose_elec)
-       {
-               info2[i]  = report_magics_aux(p_ptr->oppose_elec);
-               info[i++] = _("あなたは電撃への耐性を持っている", "You are resistant to lightning");
-       }
-       if (p_ptr->oppose_fire)
-       {
-               info2[i]  = report_magics_aux(p_ptr->oppose_fire);
-               info[i++] = _("あなたは火への耐性を持っている", "You are resistant to fire");
-       }
-       if (p_ptr->oppose_cold)
-       {
-               info2[i]  = report_magics_aux(p_ptr->oppose_cold);
-               info[i++] = _("あなたは冷気への耐性を持っている", "You are resistant to cold");
-       }
-       if (p_ptr->oppose_pois)
-       {
-               info2[i]  = report_magics_aux(p_ptr->oppose_pois);
-               info[i++] = _("あなたは毒への耐性を持っている", "You are resistant to poison");
-       }
-
-       /* Save the screen */
-       screen_save();
-
-       /* Erase the screen */
-       for (k = 1; k < 24; k++) prt("", k, 13);
-
-       /* Label the information */
-       prt(_("    現在かかっている魔法     :", "     Your Current Magic:"), 1, 15);
-
-
-       /* We will print on top of the map (column 13) */
-       for (k = 2, j = 0; j < i; j++)
-       {
-               /* Show the info */
-               sprintf(Dummy, _("%-28s : 期間 - %s ", "%s %s."), info[j],
-                       report_magic_durations[info2[j]]);
-               prt(Dummy, k++, 15);
-
-               /* Every 20 entries (lines 2 to 21), start over */
-               if ((k == 22) && (j + 1 < i))
-               {
-                       prt(_("-- 続く --", "-- more --"), k, 15);
-                       inkey();
-                       for (; k > 2; k--) prt("", k, 15);
-               }
-       }
-
-       /* Pause */
-       prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
-       inkey();
-
-       /* Restore the screen */
-       screen_load();
-}
 
 /*!
  * @brief プレイヤー周辺の地形を感知する
index fb5ddcd..c90730c 100644 (file)
@@ -11,6 +11,7 @@
  */
 
 #include "angband.h"
+#include "selfinfo.h"
 
 
 /*!