OSDN Git Service

#37287 (2.2.0.84) externs.h 中の警告を修正。 / Fix warnings of externs.h.
[hengband/hengband.git] / src / xtra1.c
index bf33aab..8c44f6b 100644 (file)
@@ -1,23 +1,22 @@
-
-/* File: misc.c */
-
-/*
- * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
- *
- * This software may be copied and distributed for educational, research,
- * and not for profit purposes provided that this copyright and statement
- * are included in all such copies.  Other copyrights may also apply.
+/*!
+ * @file xtra1.c
+ * @brief 雑多なその他の処理1 / misc code
+ * @date 2014/08/17
+ * @author
+ * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke\n
+ * This software may be copied and distributed for educational, research, and\n
+ * not for profit purposes provided that this copyright and statement are\n
+ * included in all such copies.\n
+ * 2014 Deskull rearranged comment for Doxygen.
  */
 
-/* Purpose: misc code */
-
 #include "angband.h"
 
-
-
-
-/*
- * Converts stat num into a six-char (right justified) string
+/*!
+ * @brief 現在の修正後能力値を3~17及び18/xxx形式に変換する / Converts stat num into a six-char (right justified) string
+ * @param val 能力値
+ * @param out_val 出力先文字列ポインタ
+ * @return なし
  */
 void cnv_stat(int val, char *out_val)
 {
@@ -47,16 +46,19 @@ void cnv_stat(int val, char *out_val)
        }
 }
 
-
-
-/*
+/*!
+ * @brief 能力値現在値から3~17及び18/xxx様式に基づく加減算を行う。
  * Modify a stat value by a "modifier", return new value
- *
+ * @param value 現在値
+ * @param amount 加減算値
+ * @return 加減算後の値
+ * @details
+ * <pre>
  * Stats go up: 3,4,...,17,18,18/10,18/20,...,18/220
  * Or even: 18/13, 18/23, 18/33, ..., 18/220
- *
  * Stats go down: 18/220, 18/210,..., 18/10, 18, 17, ..., 3
  * Or even: 18/13, 18/03, 18, 17, ..., 3
+ * </pre>
  */
 s16b modify_stat_value(int value, int amount)
 {
@@ -99,8 +101,13 @@ s16b modify_stat_value(int value, int amount)
 
 
 
-/*
+/*!
+ * @brief 画面左の能力値表示を行うために指定位置から13キャラ分を空白消去後指定のメッセージを明るい青で描画する /
  * Print character info at given row, column in a 13 char field
+ * @param info 表示文字列
+ * @param row 描画列
+ * @param col 描画行
+ * @return なし
  */
 static void prt_field(cptr info, int row, int col)
 {
@@ -112,8 +119,10 @@ static void prt_field(cptr info, int row, int col)
 }
 
 
-/*
- *  Whether daytime or not
+/*!
+ * @brief ゲーム時間が日中かどうかを返す /
+ * Whether daytime or not
+ * @return 日中ならばTRUE、夜ならばFALSE
  */
 bool is_daytime(void)
 {
@@ -124,8 +133,12 @@ bool is_daytime(void)
                return FALSE;
 }
 
-/*
+/*!
+ * @brief 現在の日数、時刻を返す /
  * Extract day, hour, min
+ * @param day 日数を返すための参照ポインタ
+ * @param hour 時数を返すための参照ポインタ
+ * @param min 分数を返すための参照ポインタ
  */
 void extract_day_hour_min(int *day, int *hour, int *min)
 {
@@ -148,8 +161,10 @@ void extract_day_hour_min(int *day, int *hour, int *min)
        *min = (1440 * turn_in_today / A_DAY) % 60;
 }
 
-/*
+/*!
+ * @brief ゲーム時刻を表示する /
  * Print time
+ * @return なし
  */
 void prt_time(void)
 {
@@ -161,53 +176,36 @@ void prt_time(void)
        extract_day_hour_min(&day, &hour, &min);
 
        /* Dump the info itself */
-       c_put_str(TERM_WHITE, format(
-#ifdef JP
-               "%2dÆüÌÜ",
-#else
-               "Day %-2d",
-#endif
-               day), ROW_DAY, COL_DAY);
-       
+       if (day < 1000) c_put_str(TERM_WHITE, format(_("%2d日目", "Day%3d"), day), ROW_DAY, COL_DAY);
+       else c_put_str(TERM_WHITE, _("***日目", "Day***"), ROW_DAY, COL_DAY);
+
        c_put_str(TERM_WHITE, format("%2d:%02d", hour, min), ROW_DAY, COL_DAY+7);
 }
 
-
+/*!
+ * @brief 現在のマップ名を返す /
+ * @return マップ名の文字列参照ポインタ
+ */
 cptr map_name(void)
 {
        if (p_ptr->inside_quest && is_fixed_quest_idx(p_ptr->inside_quest)
            && (quest[p_ptr->inside_quest].flags & QUEST_FLAG_PRESET))
-#ifdef JP
-               return "¥¯¥¨¥¹¥È";
-#else
-               return "Quest";
-#endif
+               return _("クエスト", "Quest");
        else if (p_ptr->wild_mode)
-#ifdef JP
-               return "ÃϾå";
-#else
-               return "Surface";
-#endif
+               return _("地上", "Surface");
        else if (p_ptr->inside_arena)
-#ifdef JP
-               return "¥¢¥ê¡¼¥Ê";
-#else
-               return "Arena";
-#endif
+               return _("アリーナ", "Arena");
        else if (p_ptr->inside_battle)
-#ifdef JP
-               return "Æ®µ»¾ì";
-#else
-               return "Monster Arena";
-#endif
+               return _("闘技場", "Monster Arena");
        else if (!dun_level && p_ptr->town_num)
                return town[p_ptr->town_num].name;
        else
                return d_name+d_info[dungeon_type].name;
 }
 
-/*
- * Print dungeon
+/*!
+ * @brief 現在のマップ名を描画する / Print dungeon
+ * @return なし
  */
 static void prt_dungeon(void)
 {
@@ -228,10 +226,10 @@ static void prt_dungeon(void)
 }
 
 
-
-
-/*
- * Print character stat in given row, column
+/*!
+ * @brief プレイヤー能力値を描画する / Print character stat in given row, column
+ * @param stat 描画するステータスのID
+ * @return なし
  */
 static void prt_stat(int stat)
 {
@@ -257,7 +255,7 @@ static void prt_stat(int stat)
        if (p_ptr->stat_max[stat] == p_ptr->stat_max_max[stat])
        {
 #ifdef JP
-               /* ÆüËܸì¤Ë¤«¤Ö¤é¤Ê¤¤¤è¤¦¤Ëɽ¼¨°ÌÃÖ¤òÊѹ¹ */
+               /* 日本語にかぶらないように表示位置を変更 */
                put_str("!", ROW_STAT + stat, 5);
 #else
                put_str("!", ROW_STAT + stat, 3);
@@ -268,62 +266,75 @@ static void prt_stat(int stat)
 
 
 /*
- *  Data structure for status bar
+ * 画面下部に表示する状態表示定義ID / Data structure for status bar
  */
-#define BAR_TSUYOSHI 0
-#define BAR_HALLUCINATION 1
-#define BAR_BLINDNESS 2
-#define BAR_PARALYZE 3
-#define BAR_CONFUSE 4
-#define BAR_POISONED 5
-#define BAR_AFRAID 6
-#define BAR_LEVITATE 7
-#define BAR_REFLECTION 8
-#define BAR_PASSWALL 9
-#define BAR_WRAITH 10
-#define BAR_PROTEVIL 11
-#define BAR_KAWARIMI 12
-#define BAR_MAGICDEFENSE 13
-#define BAR_EXPAND 14
-#define BAR_STONESKIN 15
-#define BAR_MULTISHADOW 16
-#define BAR_REGMAGIC 17
-#define BAR_ULTIMATE 18
-#define BAR_INVULN 19
-#define BAR_IMMACID 20
-#define BAR_RESACID 21
-#define BAR_IMMELEC 22
-#define BAR_RESELEC 23
-#define BAR_IMMFIRE 24
-#define BAR_RESFIRE 25
-#define BAR_IMMCOLD 26
-#define BAR_RESCOLD 27
-#define BAR_RESPOIS 28
-#define BAR_RESNETH 29
-#define BAR_RESTIME 30
-#define BAR_DUSTROBE 31
-#define BAR_SHFIRE 32
-#define BAR_TOUKI 33
-#define BAR_SHHOLY 34
-#define BAR_EYEEYE 35
-#define BAR_BLESSED 36
-#define BAR_HEROISM 37
-#define BAR_BERSERK 38
-#define BAR_ATTKFIRE 39
-#define BAR_ATTKCOLD 40
-#define BAR_ATTKELEC 41
-#define BAR_ATTKACID 42
-#define BAR_ATTKPOIS 43
-#define BAR_ATTKCONF 44
-#define BAR_SENSEUNSEEN 45
-#define BAR_TELEPATHY 46
-#define BAR_REGENERATION 47
-#define BAR_INFRAVISION 48
-#define BAR_STEALTH 49
-#define BAR_SUPERSTEALTH 50
-#define BAR_RECALL 51
-#define BAR_ALTER 52
-
+#define BAR_TSUYOSHI 0      /*!< 下部ステータス表示: オクレ兄さん状態 */
+#define BAR_HALLUCINATION 1 /*!< 下部ステータス表示: 幻覚 */
+#define BAR_BLINDNESS 2     /*!< 下部ステータス表示: 盲目 */
+#define BAR_PARALYZE 3      /*!< 下部ステータス表示: 麻痺 */
+#define BAR_CONFUSE 4       /*!< 下部ステータス表示: 混乱 */
+#define BAR_POISONED 5      /*!< 下部ステータス表示: 毒 */
+#define BAR_AFRAID 6        /*!< 下部ステータス表示: 恐怖 */
+#define BAR_LEVITATE 7      /*!< 下部ステータス表示: 浮遊 */
+#define BAR_REFLECTION 8    /*!< 下部ステータス表示: 反射 */
+#define BAR_PASSWALL 9      /*!< 下部ステータス表示: 壁抜け */
+#define BAR_WRAITH 10       /*!< 下部ステータス表示: 幽体化 */
+#define BAR_PROTEVIL 11     /*!< 下部ステータス表示: 対邪悪結界 */
+#define BAR_KAWARIMI 12     /*!< 下部ステータス表示: 変わり身 */
+#define BAR_MAGICDEFENSE 13 /*!< 下部ステータス表示: 魔法の鎧 */
+#define BAR_EXPAND 14       /*!< 下部ステータス表示: 横伸び */
+#define BAR_STONESKIN 15    /*!< 下部ステータス表示: 石肌化 */
+#define BAR_MULTISHADOW 16  /*!< 下部ステータス表示: 影分身 */
+#define BAR_REGMAGIC 17     /*!< 下部ステータス表示: 魔法防御 */
+#define BAR_ULTIMATE 18     /*!< 下部ステータス表示: 究極の耐性 */
+#define BAR_INVULN 19       /*!< 下部ステータス表示: 無敵化 */
+#define BAR_IMMACID 20      /*!< 下部ステータス表示: 酸免疫 */
+#define BAR_RESACID 21      /*!< 下部ステータス表示: 酸耐性 */
+#define BAR_IMMELEC 22      /*!< 下部ステータス表示: 電撃免疫 */
+#define BAR_RESELEC 23      /*!< 下部ステータス表示: 電撃耐性 */
+#define BAR_IMMFIRE 24      /*!< 下部ステータス表示: 火炎免疫 */
+#define BAR_RESFIRE 25      /*!< 下部ステータス表示: 火炎耐性 */
+#define BAR_IMMCOLD 26      /*!< 下部ステータス表示: 冷気免疫 */
+#define BAR_RESCOLD 27      /*!< 下部ステータス表示: 冷気耐性 */
+#define BAR_RESPOIS 28      /*!< 下部ステータス表示: 毒耐性 */
+#define BAR_RESNETH 29      /*!< 下部ステータス表示: 地獄耐性 */
+#define BAR_RESTIME 30      /*!< 下部ステータス表示: 時間逆転耐性 */
+#define BAR_DUSTROBE 31     /*!< 下部ステータス表示: 破片オーラ */
+#define BAR_SHFIRE 32       /*!< 下部ステータス表示: 火炎オーラ */
+#define BAR_TOUKI 33        /*!< 下部ステータス表示: 闘気 */
+#define BAR_SHHOLY 34       /*!< 下部ステータス表示: 聖なるオーラ */
+#define BAR_EYEEYE 35       /*!< 下部ステータス表示: 目には目を */
+#define BAR_BLESSED 36      /*!< 下部ステータス表示: 祝福 */
+#define BAR_HEROISM 37      /*!< 下部ステータス表示: 士気高揚 */
+#define BAR_BERSERK 38      /*!< 下部ステータス表示: 狂戦士化 */
+#define BAR_ATTKFIRE 39     /*!< 下部ステータス表示: 焼棄スレイ */
+#define BAR_ATTKCOLD 40     /*!< 下部ステータス表示: 冷凍スレイ */
+#define BAR_ATTKELEC 41     /*!< 下部ステータス表示: 電撃スレイ */
+#define BAR_ATTKACID 42     /*!< 下部ステータス表示: 溶解スレイ */
+#define BAR_ATTKPOIS 43     /*!< 下部ステータス表示: 毒殺スレイ */
+#define BAR_ATTKCONF 44     /*!< 下部ステータス表示: 混乱打撃 */
+#define BAR_SENSEUNSEEN 45  /*!< 下部ステータス表示: 透明視 */
+#define BAR_TELEPATHY 46    /*!< 下部ステータス表示: テレパシー */
+#define BAR_REGENERATION 47 /*!< 下部ステータス表示: 急回復 */
+#define BAR_INFRAVISION 48  /*!< 下部ステータス表示: 赤外線視力 */
+#define BAR_STEALTH 49      /*!< 下部ステータス表示: 隠密 */
+#define BAR_SUPERSTEALTH 50 /*!< 下部ステータス表示: 超隠密 */
+#define BAR_RECALL 51       /*!< 下部ステータス表示: 帰還待ち */
+#define BAR_ALTER 52        /*!< 下部ステータス表示: 現実変容待ち */
+#define BAR_SHCOLD 53       /*!< 下部ステータス表示: 冷気オーラ */
+#define BAR_SHELEC 54       /*!< 下部ステータス表示: 電撃オーラ */
+#define BAR_SHSHADOW 55     /*!< 下部ステータス表示: 影のオーラ */
+#define BAR_MIGHT 56        /*!< 下部ステータス表示: 腕力強化 */
+#define BAR_BUILD 57        /*!< 下部ステータス表示: 肉体強化 */
+#define BAR_ANTIMULTI 58    /*!< 下部ステータス表示: 反増殖 */
+#define BAR_ANTITELE 59     /*!< 下部ステータス表示: 反テレポート */
+#define BAR_ANTIMAGIC 60    /*!< 下部ステータス表示: 反魔法 */
+#define BAR_PATIENCE 61     /*!< 下部ステータス表示: 我慢 */
+#define BAR_REVENGE 62      /*!< 下部ステータス表示: 宣告 */
+#define BAR_RUNESWORD 63    /*!< 下部ステータス表示: 魔剣化 */
+#define BAR_VAMPILIC 64     /*!< 下部ステータス表示: 吸血 */
+#define BAR_CURE 65         /*!< 下部ステータス表示: 回復 */
+#define BAR_ESP_EVIL 66     /*!< 下部ステータス表示: 邪悪感知 */
 
 static struct {
        byte attr;
@@ -332,59 +343,74 @@ static struct {
 } bar[]
 #ifdef JP
 = {
-       {TERM_YELLOW, "¤Ä", "¤Ä¤è¤·"},
-       {TERM_VIOLET, "¸¸", "¸¸³Ð"},
-       {TERM_L_DARK, "ÌÕ", "ÌÕÌÜ"},
-       {TERM_RED, "áã", "Ëãáã"},
-       {TERM_VIOLET, "Íð", "º®Íð"},
-       {TERM_GREEN, "ÆÇ", "ÆÇ"},
-       {TERM_BLUE, "¶²", "¶²ÉÝ"},
-       {TERM_L_BLUE, "Éâ", "ÉâÍ·"},
-       {TERM_SLATE, "È¿", "È¿¼Í"},
-       {TERM_SLATE, "ÊÉ", "ÊÉÈ´¤±"},
-       {TERM_L_DARK, "Í©", "Í©ÂÎ"},
-       {TERM_SLATE, "¼Ù", "ËɼÙ"},
-       {TERM_VIOLET, "ÊÑ", "ÊѤï¤ê¿È"},
-       {TERM_YELLOW, "Ëâ", "ËâË¡³»"},
-       {TERM_L_UMBER, "¿­", "¿­¤Ó"},
-       {TERM_WHITE, "ÀÐ", "ÀÐÈ©"},
-       {TERM_L_BLUE, "ʬ", "ʬ¿È"},
-       {TERM_SLATE, "ËÉ", "ËâË¡Ëɸæ"},
-       {TERM_YELLOW, "µæ", "µæ¶Ë"},
-       {TERM_YELLOW, "̵", "̵Ũ"},
-       {TERM_L_GREEN, "»À", "»ÀÌȱÖ"},
-       {TERM_GREEN, "»À", "ÂÑ»À"},
-       {TERM_L_BLUE, "ÅÅ", "ÅÅÌȱÖ"},
-       {TERM_BLUE, "ÅÅ", "ÂÑÅÅ"},
-       {TERM_L_RED, "²Ð", "²ÐÌȱÖ"},
-       {TERM_RED, "²Ð", "ÂѲÐ"},
-       {TERM_WHITE, "Îä", "ÎäÌȱÖ"},
-       {TERM_SLATE, "Îä", "ÂÑÎä"},
-       {TERM_GREEN, "ÆÇ", "ÂÑÆÇ"},
-       {TERM_L_DARK, "¹ö", "ÂÑÃϹö"},
-       {TERM_L_BLUE, "»þ", "ÂÑ»þ´Ö"},
-       {TERM_L_DARK, "¶À", "¶À¥ª¡¼¥é"},
-       {TERM_L_RED, "¥ª", "²Ð¥ª¡¼¥é"},
-       {TERM_WHITE, "Æ®", "Æ®µ¤"},
-       {TERM_WHITE, "À»", "À»¥ª¡¼¥é"},
-       {TERM_VIOLET, "ÌÜ", "ÌܤˤÏÌÜ"},
-       {TERM_WHITE, "½Ë", "½ËÊ¡"},
-       {TERM_WHITE, "ͦ", "ͦ"},
-       {TERM_RED, "¶¸", "¶¸Íð"},
-       {TERM_L_RED, "²Ð", "Ëâ·õ²Ð"},
-       {TERM_WHITE, "Îä", "Ëâ·õÎä"},
-       {TERM_L_BLUE, "ÅÅ", "Ëâ·õÅÅ"},
-       {TERM_SLATE, "»À", "Ëâ·õ»À"},
-       {TERM_L_GREEN, "ÆÇ", "Ëâ·õÆÇ"},
-       {TERM_RED, "Íð", "º®ÍðÂÇ·â"},
-       {TERM_L_BLUE, "»ë", "Æ©ÌÀ»ë"},
-       {TERM_ORANGE, "¥Æ", "¥Æ¥ì¥Ñ¥·"},
-       {TERM_L_BLUE, "²ó", "²óÉü"},
-       {TERM_L_RED, "ÀÖ", "ÀÖ³°"},
-       {TERM_UMBER, "±£", "±£Ì©"},
-       {TERM_YELLOW, "±£", "Ķ±£Ì©"},
-       {TERM_WHITE, "µ¢", "µ¢´Ô"},
-       {TERM_WHITE, "¸½", "¸½¼ÂÊÑÍÆ"},
+       {TERM_YELLOW, "つ", "つよし"},
+       {TERM_VIOLET, "幻", "幻覚"},
+       {TERM_L_DARK, "盲", "盲目"},
+       {TERM_RED, "痺", "麻痺"},
+       {TERM_VIOLET, "乱", "混乱"},
+       {TERM_GREEN, "毒", "毒"},
+       {TERM_BLUE, "恐", "恐怖"},
+       {TERM_L_BLUE, "浮", "浮遊"},
+       {TERM_SLATE, "反", "反射"},
+       {TERM_SLATE, "壁", "壁抜け"},
+       {TERM_L_DARK, "幽", "幽体"},
+       {TERM_SLATE, "邪", "防邪"},
+       {TERM_VIOLET, "変", "変わり身"},
+       {TERM_YELLOW, "魔", "魔法鎧"},
+       {TERM_L_UMBER, "伸", "伸び"},
+       {TERM_WHITE, "石", "石肌"},
+       {TERM_L_BLUE, "分", "分身"},
+       {TERM_SLATE, "防", "魔法防御"},
+       {TERM_YELLOW, "究", "究極"},
+       {TERM_YELLOW, "無", "無敵"},
+       {TERM_L_GREEN, "酸", "酸免疫"},
+       {TERM_GREEN, "酸", "耐酸"},
+       {TERM_L_BLUE, "電", "電免疫"},
+       {TERM_BLUE, "電", "耐電"},
+       {TERM_L_RED, "火", "火免疫"},
+       {TERM_RED, "火", "耐火"},
+       {TERM_WHITE, "冷", "冷免疫"},
+       {TERM_SLATE, "冷", "耐冷"},
+       {TERM_GREEN, "毒", "耐毒"},
+       {TERM_L_DARK, "獄", "耐地獄"},
+       {TERM_L_BLUE, "時", "耐時間"},
+       {TERM_L_DARK, "鏡", "鏡オーラ"},
+       {TERM_L_RED, "オ", "火オーラ"},
+       {TERM_WHITE, "闘", "闘気"},
+       {TERM_WHITE, "聖", "聖オーラ"},
+       {TERM_VIOLET, "目", "目には目"},
+       {TERM_WHITE, "祝", "祝福"},
+       {TERM_WHITE, "勇", "勇"},
+       {TERM_RED, "狂", "狂乱"},
+       {TERM_L_RED, "火", "魔剣火"},
+       {TERM_WHITE, "冷", "魔剣冷"},
+       {TERM_L_BLUE, "電", "魔剣電"},
+       {TERM_SLATE, "酸", "魔剣酸"},
+       {TERM_L_GREEN, "毒", "魔剣毒"},
+       {TERM_RED, "乱", "混乱打撃"},
+       {TERM_L_BLUE, "視", "透明視"},
+       {TERM_ORANGE, "テ", "テレパシ"},
+       {TERM_L_BLUE, "回", "回復"},
+       {TERM_L_RED, "赤", "赤外"},
+       {TERM_UMBER, "隠", "隠密"},
+       {TERM_YELLOW, "隠", "超隠密"},
+       {TERM_WHITE, "帰", "帰還"},
+       {TERM_WHITE, "現", "現実変容"},
+       /* Hex */
+       {TERM_WHITE, "オ", "氷オーラ"},
+       {TERM_BLUE, "オ", "電オーラ"},
+       {TERM_L_DARK, "オ", "影オーラ"},
+       {TERM_YELLOW, "腕", "腕力強化"},
+       {TERM_RED, "肉", "肉体強化"},
+       {TERM_L_DARK, "殖", "反増殖"},
+       {TERM_ORANGE, "テ", "反テレポ"},
+       {TERM_RED, "魔", "反魔法"},
+       {TERM_SLATE, "我", "我慢"},
+       {TERM_SLATE, "宣", "宣告"},
+       {TERM_L_DARK, "剣", "魔剣化"},
+       {TERM_RED, "吸", "吸血打撃"},
+       {TERM_WHITE, "回", "回復"},
+       {TERM_L_DARK, "感", "邪悪感知"},
        {0, NULL, NULL}
 };
 #else
@@ -442,20 +468,47 @@ static struct {
        {TERM_YELLOW, "Stlt", "Stealth"},
        {TERM_WHITE, "Rc", "Recall"},
        {TERM_WHITE, "Al", "Alter"},
+       /* Hex */
+       {TERM_WHITE, "SCo", "SCold"},
+       {TERM_BLUE, "SEl", "SElec"},
+       {TERM_L_DARK, "SSh", "SShadow"},
+       {TERM_YELLOW, "EMi", "ExMight"},
+       {TERM_RED, "Bu", "BuildUp"},
+       {TERM_L_DARK, "AMl", "AntiMulti"},
+       {TERM_ORANGE, "AT", "AntiTele"},
+       {TERM_RED, "AM", "AntiMagic"},
+       {TERM_SLATE, "Pa", "Patience"},
+       {TERM_SLATE, "Rv", "Revenge"},
+       {TERM_L_DARK, "Rs", "RuneSword"},
+       {TERM_RED, "Vm", "Vampiric"},
+       {TERM_WHITE, "Cu", "Cure"},
+       {TERM_L_DARK, "ET", "EvilTele"},
        {0, NULL, NULL}
 };
 #endif
 
+/*!
+ * @brief 32ビット変数配列の指定位置のビットフラグを1にする。
+ * @param FLG フラグ位置(ビット)
+ * @return なし
+ */
 #define ADD_FLG(FLG) (bar_flags[FLG / 32] |= (1L << (FLG % 32)))
+
+/*!
+ * @brief 32ビット変数配列の指定位置のビットフラグが1かどうかを返す。
+ * @param FLG フラグ位置(ビット)
+ * @return 1ならば0以外を返す
+ */
 #define IS_FLG(FLG) (bar_flags[FLG / 32] & (1L << (FLG % 32)))
 
 
-/*
- *  Show status bar
+/*!
+ * @brief 下部に状態表示を行う / Show status bar
+ * @return なし
  */
 static void prt_status(void)
 {
-       u32b bar_flags[2];
+       u32b bar_flags[3];
        int wid, hgt, row_statbar, max_col_statbar;
        int i, col = 0, num = 0;
        int space = 2;
@@ -466,7 +519,7 @@ static void prt_status(void)
 
        Term_erase(0, row_statbar, max_col_statbar);
 
-       bar_flags[0] = bar_flags[1] = 0L;
+       bar_flags[0] = bar_flags[1] = bar_flags[2] = 0L;
 
        /* Tsuyoshi  */
        if (p_ptr->tsuyoshi) ADD_FLG(BAR_TSUYOSHI);
@@ -599,6 +652,35 @@ static void prt_status(void)
        /* An Eye for an Eye */
        if (p_ptr->tim_eyeeye) ADD_FLG(BAR_EYEEYE);
 
+       /* Hex spells */
+       if (p_ptr->realm1 == REALM_HEX)
+       {
+               if (hex_spelling(HEX_BLESS)) ADD_FLG(BAR_BLESSED);
+               if (hex_spelling(HEX_DEMON_AURA)) { ADD_FLG(BAR_SHFIRE); ADD_FLG(BAR_REGENERATION); }
+               if (hex_spelling(HEX_XTRA_MIGHT)) ADD_FLG(BAR_MIGHT);
+               if (hex_spelling(HEX_DETECT_EVIL)) ADD_FLG(BAR_ESP_EVIL);
+               if (hex_spelling(HEX_ICE_ARMOR)) ADD_FLG(BAR_SHCOLD);
+               if (hex_spelling(HEX_RUNESWORD)) ADD_FLG(BAR_RUNESWORD);
+               if (hex_spelling(HEX_BUILDING)) ADD_FLG(BAR_BUILD);
+               if (hex_spelling(HEX_ANTI_TELE)) ADD_FLG(BAR_ANTITELE);
+               if (hex_spelling(HEX_SHOCK_CLOAK)) ADD_FLG(BAR_SHELEC);
+               if (hex_spelling(HEX_SHADOW_CLOAK)) ADD_FLG(BAR_SHSHADOW);
+               if (hex_spelling(HEX_CONFUSION)) ADD_FLG(BAR_ATTKCONF);
+               if (hex_spelling(HEX_EYE_FOR_EYE)) ADD_FLG(BAR_EYEEYE);
+               if (hex_spelling(HEX_ANTI_MULTI)) ADD_FLG(BAR_ANTIMULTI);
+               if (hex_spelling(HEX_VAMP_BLADE)) ADD_FLG(BAR_VAMPILIC);
+               if (hex_spelling(HEX_ANTI_MAGIC)) ADD_FLG(BAR_ANTIMAGIC);
+               if (hex_spelling(HEX_CURE_LIGHT) ||
+                       hex_spelling(HEX_CURE_SERIOUS) ||
+                       hex_spelling(HEX_CURE_CRITICAL)) ADD_FLG(BAR_CURE);
+
+               if (p_ptr->magic_num2[2])
+               {
+                       if (p_ptr->magic_num2[1] == 1) ADD_FLG(BAR_PATIENCE);
+                       if (p_ptr->magic_num2[1] == 2) ADD_FLG(BAR_REVENGE);
+               }
+       }
+
        /* Calcurate length */
        for (i = 0; bar[i].sstr; i++)
        {
@@ -653,9 +735,9 @@ static void prt_status(void)
 }
 
 
-
-/*
- * Prints "title", including "wizard" or "winner" as needed.
+/*!
+ * @brief プレイヤーの称号を表示する / Prints "title", including "wizard" or "winner" as needed.
+ * @return なし
  */
 static void prt_title(void)
 {
@@ -666,8 +748,8 @@ static void prt_title(void)
        if (p_ptr->wizard)
        {
 #ifdef JP
-               /* ±ÑÆüÀÚ¤êÂؤ¨µ¡Ç½ ¾Î¹æ */
-               p = "[¥¦¥£¥¶¡¼¥É]";
+               /* 英日切り替え機能 称号 */
+               p = "[ウィザード]";
 #else
                p = "[=-WIZARD-=]";
 #endif
@@ -680,8 +762,8 @@ static void prt_title(void)
                if (p_ptr->arena_number > MAX_ARENA_MONS + 2)
                {
 #ifdef JP
-                       /* ±ÑÆüÀÚ¤êÂؤ¨µ¡Ç½ ¾Î¹æ */
-                       p = "*¿¿¡¦¾¡Íø¼Ô*";
+                       /* 英日切り替え機能 称号 */
+                       p = "*真・勝利者*";
 #else
                        p = "*TRUEWINNER*";
 #endif
@@ -689,8 +771,8 @@ static void prt_title(void)
                else
                {
 #ifdef JP
-                       /* ±ÑÆüÀÚ¤êÂؤ¨µ¡Ç½ ¾Î¹æ */
-                       p = "***¾¡Íø¼Ô***";
+                       /* 英日切り替え機能 称号 */
+                       p = "***勝利者***";
 #else
                        p = "***WINNER***";
 #endif
@@ -708,24 +790,20 @@ static void prt_title(void)
 }
 
 
-/*
- * Prints level
+/*!
+ * @brief プレイヤーのレベルを表示する / Prints level
+ * @return なし
  */
 static void prt_level(void)
 {
        char tmp[32];
 
-#ifdef JP
-       sprintf(tmp, "%5d", p_ptr->lev);
-#else
-       sprintf(tmp, "%6d", p_ptr->lev);
-#endif
-
+       sprintf(tmp, _("%5d", "%6d"), p_ptr->lev);
 
        if (p_ptr->lev >= p_ptr->max_plv)
        {
 #ifdef JP
-               put_str("¥ì¥Ù¥ë ", ROW_LEVEL, 0);
+               put_str("レベル ", ROW_LEVEL, 0);
                c_put_str(TERM_L_GREEN, tmp, ROW_LEVEL, COL_LEVEL + 7);
 #else
                put_str("LEVEL ", ROW_LEVEL, 0);
@@ -736,7 +814,7 @@ static void prt_level(void)
        else
        {
 #ifdef JP
-               put_str("x¥ì¥Ù¥ë", ROW_LEVEL, 0);
+               put_str("xレベル", ROW_LEVEL, 0);
                c_put_str(TERM_YELLOW, tmp, ROW_LEVEL, COL_LEVEL + 7);
 #else
                put_str("Level ", ROW_LEVEL, 0);
@@ -747,8 +825,9 @@ static void prt_level(void)
 }
 
 
-/*
- * Display the experience
+/*!
+ * @brief プレイヤーの経験値を表示する / Display the experience
+ * @return なし
  */
 static void prt_exp(void)
 {
@@ -756,11 +835,7 @@ static void prt_exp(void)
 
        if ((!exp_need)||(p_ptr->prace == RACE_ANDROID))
        {
-#ifdef JP
-       (void)sprintf(out_val, "%7ld", (long)p_ptr->exp);
-#else
-       (void)sprintf(out_val, "%8ld", (long)p_ptr->exp);
-#endif
+               (void)sprintf(out_val, _("%7ld", "%8ld"), (long)p_ptr->exp);
        }
        else
        {
@@ -781,8 +856,8 @@ static void prt_exp(void)
        if (p_ptr->exp >= p_ptr->max_exp)
        {
 #ifdef JP
-               if (p_ptr->prace == RACE_ANDROID) put_str("¶¯²½ ", ROW_EXP, 0);
-               else put_str("·Ð¸³ ", ROW_EXP, 0);
+               if (p_ptr->prace == RACE_ANDROID) put_str("強化 ", ROW_EXP, 0);
+               else put_str("経験 ", ROW_EXP, 0);
                c_put_str(TERM_L_GREEN, out_val, ROW_EXP, COL_EXP + 5);
 #else
                if (p_ptr->prace == RACE_ANDROID) put_str("Cst ", ROW_EXP, 0);
@@ -794,7 +869,7 @@ static void prt_exp(void)
        else
        {
 #ifdef JP
-               put_str("x·Ð¸³", ROW_EXP, 0);
+               put_str("x経験", ROW_EXP, 0);
                c_put_str(TERM_YELLOW, out_val, ROW_EXP, COL_EXP + 5);
 #else
                put_str("Exp ", ROW_EXP, 0);
@@ -804,35 +879,30 @@ static void prt_exp(void)
        }
 }
 
-/*
- * Prints current gold
+/*!
+ * @brief プレイヤーの所持金を表示する / Prints current gold
+ * @return なし
  */
 static void prt_gold(void)
 {
        char tmp[32];
-
-#ifdef JP
-       put_str("¡ð ", ROW_GOLD, COL_GOLD);
-#else
-       put_str("AU ", ROW_GOLD, COL_GOLD);
-#endif
-
+       put_str(_("$ ", "AU "), ROW_GOLD, COL_GOLD);
        sprintf(tmp, "%9ld", (long)p_ptr->au);
        c_put_str(TERM_L_GREEN, tmp, ROW_GOLD, COL_GOLD + 3);
 }
 
 
-
-/*
- * Prints current AC
+/*!
+ * @brief プレイヤーのACを表示する / Prints current AC
+ * @return なし
  */
 static void prt_ac(void)
 {
        char tmp[32];
 
 #ifdef JP
-/* AC ¤Îɽ¼¨Êý¼°¤òÊѹ¹¤·¤Æ¤¤¤ë */
-       put_str(" £Á£Ã(     )", ROW_AC, COL_AC);
+/* AC の表示方式を変更している */
+       put_str(" AC(     )", ROW_AC, COL_AC);
        sprintf(tmp, "%5d", p_ptr->dis_ac + p_ptr->dis_to_a);
        c_put_str(TERM_L_GREEN, tmp, ROW_AC, COL_AC + 6);
 #else
@@ -844,23 +914,24 @@ static void prt_ac(void)
 }
 
 
-/*
- * Prints Cur/Max hit points
+/*!
+ * @brief プレイヤーのHPを表示する / Prints Cur/Max hit points
+ * @return なし
  */
 static void prt_hp(void)
 {
-/* ¥Ò¥Ã¥È¥Ý¥¤¥ó¥È¤Îɽ¼¨ÊýË¡¤òÊѹ¹ */
+/* ヒットポイントの表示方法を変更 */
        char tmp[32];
   
        byte color;
   
-       /* ¥¿¥¤¥È¥ë */
-/*     put_str(" £È£Ð¡¦£Í£Ð", ROW_HPMP, COL_HPMP); */
+       /* タイトル */
+/*     put_str(" HP・MP", ROW_HPMP, COL_HPMP); */
 
        put_str("HP", ROW_CURHP, COL_CURHP);
 
-       /* ¸½ºß¤Î¥Ò¥Ã¥È¥Ý¥¤¥ó¥È */
-       sprintf(tmp, "%4ld", p_ptr->chp);
+       /* 現在のヒットポイント */
+       sprintf(tmp, "%4ld", (long int)p_ptr->chp);
 
        if (p_ptr->chp >= p_ptr->mhp)
        {
@@ -877,23 +948,24 @@ static void prt_hp(void)
 
        c_put_str(color, tmp, ROW_CURHP, COL_CURHP+3);
 
-       /* ¶èÀÚ¤ê */
+       /* 区切り */
        put_str( "/", ROW_CURHP, COL_CURHP + 7 );
 
-       /* ºÇÂç¥Ò¥Ã¥È¥Ý¥¤¥ó¥È */
-       sprintf(tmp, "%4ld", p_ptr->mhp);
+       /* 最大ヒットポイント */
+       sprintf(tmp, "%4ld", (long int)p_ptr->mhp);
        color = TERM_L_GREEN;
 
        c_put_str(color, tmp, ROW_CURHP, COL_CURHP + 8 );
 }
 
 
-/*
- * Prints players max/cur spell points
+/*!
+ * @brief プレイヤーのMPを表示する / Prints players max/cur spell points
+ * @return なし
  */
 static void prt_sp(void)
 {
-/* ¥Þ¥¸¥Ã¥¯¥Ý¥¤¥ó¥È¤Îɽ¼¨ÊýË¡¤òÊѹ¹¤·¤Æ¤¤¤ë */
+/* マジックポイントの表示方法を変更している */
        char tmp[32];
        byte color;
 
@@ -901,17 +973,12 @@ static void prt_sp(void)
        /* Do not show mana unless it matters */
        if (!mp_ptr->spell_book) return;
 
-       /* ¥¿¥¤¥È¥ë */
-/*     put_str(" £Í£Ð / ºÇÂç", ROW_MAXSP, COL_MAXSP); */
-
-#ifdef JP
-       put_str("MP", ROW_CURSP, COL_CURSP);
-#else
-       put_str("SP", ROW_CURSP, COL_CURSP);
-#endif
+       /* タイトル */
+/*     put_str(" MP / 最大", ROW_MAXSP, COL_MAXSP); */
+       put_str(_("MP", "SP"), ROW_CURSP, COL_CURSP);
 
-       /* ¸½ºß¤Î¥Þ¥¸¥Ã¥¯¥Ý¥¤¥ó¥È */
-       sprintf(tmp, "%4ld", p_ptr->csp);
+       /* 現在のマジックポイント */
+       sprintf(tmp, "%4ld", (long int)p_ptr->csp);
 
        if (p_ptr->csp >= p_ptr->msp)
        {
@@ -928,19 +995,20 @@ static void prt_sp(void)
 
        c_put_str(color, tmp, ROW_CURSP, COL_CURSP+3);
 
-       /* ¶èÀÚ¤ê */
+       /* 区切り */
        put_str( "/", ROW_CURSP, COL_CURSP + 7 );
 
-       /* ºÇÂç¥Þ¥¸¥Ã¥¯¥Ý¥¤¥ó¥È */
-       sprintf(tmp, "%4ld", p_ptr->msp);
+       /* 最大マジックポイント */
+       sprintf(tmp, "%4ld", (long int)p_ptr->msp);
        color = TERM_L_GREEN;
 
        c_put_str(color, tmp, ROW_CURSP, COL_CURSP + 8);
 }
 
 
-/*
- * Prints depth in stat area
+/*!
+ * @brief 現在のフロアの深さを表示する / Prints depth in stat area
+ * @return なし
  */
 static void prt_depth(void)
 {
@@ -954,30 +1022,16 @@ static void prt_depth(void)
 
        if (!dun_level)
        {
-#ifdef JP
-               strcpy(depths, "ÃϾå");
-#else
-               strcpy(depths, "Surf.");
-#endif
+               strcpy(depths, _("地上", "Surf."));
        }
        else if (p_ptr->inside_quest && !dungeon_type)
        {
-#ifdef JP
-               strcpy(depths, "ÃϾå");
-#else
-               strcpy(depths, "Quest");
-#endif
+               strcpy(depths, _("地上", "Quest"));
        }
        else
        {
-#ifdef JP
-               if (depth_in_feet) (void)sprintf(depths, "%d ft", dun_level * 50);
-               else (void)sprintf(depths, "%d ³¬", dun_level);
-#else
-               if (depth_in_feet) (void)sprintf(depths, "%d ft", dun_level * 50);
-               else (void)sprintf(depths, "Lev %d", dun_level);
-#endif
-
+               if (depth_in_feet) (void)sprintf(depths, _("%d ft", "%d ft"), dun_level * 50);
+               else (void)sprintf(depths, _("%d 階", "Lev %d"), dun_level);
 
                /* Get color of level based on feeling  -JSV- */
                switch (p_ptr->feeling)
@@ -1001,42 +1055,30 @@ static void prt_depth(void)
 }
 
 
-/*
- * Prints status of hunger
+/*!
+ * @brief プレイヤーの空腹状態を表示する / Prints status of hunger
+ * @return なし
  */
 static void prt_hunger(void)
 {
+       if(p_ptr->wizard && p_ptr->inside_arena) return;
+
        /* Fainting / Starving */
        if (p_ptr->food < PY_FOOD_FAINT)
        {
-#ifdef JP
-               c_put_str(TERM_RED, "¿ê¼å  ", ROW_HUNGRY, COL_HUNGRY);
-#else
-               c_put_str(TERM_RED, "Weak  ", ROW_HUNGRY, COL_HUNGRY);
-#endif
-
+               c_put_str(TERM_RED, _("衰弱  ", "Weak  "), ROW_HUNGRY, COL_HUNGRY);
        }
 
        /* Weak */
        else if (p_ptr->food < PY_FOOD_WEAK)
        {
-#ifdef JP
-               c_put_str(TERM_ORANGE, "¿ê¼å  ", ROW_HUNGRY, COL_HUNGRY);
-#else
-               c_put_str(TERM_ORANGE, "Weak  ", ROW_HUNGRY, COL_HUNGRY);
-#endif
-
+               c_put_str(TERM_ORANGE, _("衰弱  ", "Weak  "), ROW_HUNGRY, COL_HUNGRY);
        }
 
        /* Hungry */
        else if (p_ptr->food < PY_FOOD_ALERT)
        {
-#ifdef JP
-               c_put_str(TERM_YELLOW, "¶õÊ¢  ", ROW_HUNGRY, COL_HUNGRY);
-#else
-               c_put_str(TERM_YELLOW, "Hungry", ROW_HUNGRY, COL_HUNGRY);
-#endif
-
+               c_put_str(TERM_YELLOW, _("空腹  ", "Hungry"), ROW_HUNGRY, COL_HUNGRY);
        }
 
        /* Normal */
@@ -1048,31 +1090,22 @@ static void prt_hunger(void)
        /* Full */
        else if (p_ptr->food < PY_FOOD_MAX)
        {
-#ifdef JP
-               c_put_str(TERM_L_GREEN, "ËþÊ¢  ", ROW_HUNGRY, COL_HUNGRY);
-#else
-               c_put_str(TERM_L_GREEN, "Full  ", ROW_HUNGRY, COL_HUNGRY);
-#endif
-
+               c_put_str(TERM_L_GREEN, _("満腹  ", "Full  "), ROW_HUNGRY, COL_HUNGRY);
        }
 
        /* Gorged */
        else
        {
-#ifdef JP
-               c_put_str(TERM_GREEN, "¿©²á¤®", ROW_HUNGRY, COL_HUNGRY);
-#else
-               c_put_str(TERM_GREEN, "Gorged", ROW_HUNGRY, COL_HUNGRY);
-#endif
-
+               c_put_str(TERM_GREEN, _("食過ぎ", "Gorged"), ROW_HUNGRY, COL_HUNGRY);
        }
 }
 
 
-/*
- * Prints Searching, Resting, Paralysis, or 'count' status
+/*!
+ * @brief プレイヤーの行動状態を表示する / Prints Searching, Resting, Paralysis, or 'count' status
+ * @return なし
+ * @details
  * Display is always exactly 10 characters wide (see below)
- *
  * This function was a major bottleneck when resting, so a lot of
  * the text formatting code was optimized in place below.
  */
@@ -1087,21 +1120,11 @@ static void prt_state(void)
        {
                if (command_rep > 999)
                {
-#ifdef JP
-sprintf(text, "%2d00", command_rep / 100);
-#else
                        (void)sprintf(text, "%2d00", command_rep / 100);
-#endif
-
                }
                else
                {
-#ifdef JP
-sprintf(text, "  %2d", command_rep);
-#else
                        (void)sprintf(text, "  %2d", command_rep);
-#endif
-
                }
        }
 
@@ -1112,11 +1135,7 @@ sprintf(text, "  %2d", command_rep);
                {
                        case ACTION_SEARCH:
                        {
-#ifdef JP
-                               strcpy(text, "õº÷");
-#else
-                               strcpy(text, "Sear");
-#endif
+                               strcpy(text, _("探索", "Sear"));
                                break;
                        }
                        case ACTION_REST:
@@ -1124,12 +1143,7 @@ sprintf(text, "  %2d", command_rep);
                                int i;
 
                                /* Start with "Rest" */
-#ifdef JP
-                               strcpy(text, "    ");
-#else
-                               strcpy(text, "    ");
-#endif
-
+                               strcpy(text, _("    ", "    "));
 
                                /* Extensive (timed) rest */
                                if (resting >= 1000)
@@ -1181,21 +1195,13 @@ sprintf(text, "  %2d", command_rep);
                        }
                        case ACTION_LEARN:
                        {
-#ifdef JP
-                               strcpy(text, "³Ø½¬");
-#else
-                               strcpy(text, "lear");
-#endif
+                               strcpy(text, _("学習", "lear"));
                                if (new_mane) attr = TERM_L_RED;
                                break;
                        }
                        case ACTION_FISH:
                        {
-#ifdef JP
-                               strcpy(text, "Äà¤ê");
-#else
-                               strcpy(text, "fish");
-#endif
+                               strcpy(text, _("釣り", "fish"));
                                break;
                        }
                        case ACTION_KAMAE:
@@ -1223,20 +1229,17 @@ sprintf(text, "  %2d", command_rep);
                        }
                        case ACTION_SING:
                        {
-#ifdef JP
-                               strcpy(text, "²Î  ");
-#else
-                               strcpy(text, "Sing");
-#endif
+                               strcpy(text, _("歌  ", "Sing"));
                                break;
                        }
                        case ACTION_HAYAGAKE:
                        {
-#ifdef JP
-                               strcpy(text, "®¶î");
-#else
-                               strcpy(text, "Fast");
-#endif
+                               strcpy(text, _("速駆", "Fast"));
+                               break;
+                       }
+                       case ACTION_SPELL:
+                       {
+                               strcpy(text, _("詠唱", "Spel"));
                                break;
                        }
                        default:
@@ -1252,8 +1255,9 @@ sprintf(text, "  %2d", command_rep);
 }
 
 
-/*
- * Prints the speed of a character.                    -CJS-
+/*!
+ * @brief プレイヤーの行動速度を表示する / Prints the speed of a character.                     -CJS-
+ * @return なし
  */
 static void prt_speed(void)
 {
@@ -1269,7 +1273,7 @@ static void prt_speed(void)
        row_speed = hgt + ROW_SPEED;
 
        /* Hack -- Visually "undo" the Search Mode Slowdown */
-       if (p_ptr->action == ACTION_SEARCH) i += 10;
+       if (p_ptr->action == ACTION_SEARCH && !p_ptr->lightspeed) i += 10;
 
        /* Fast */
        if (i > 110)
@@ -1285,7 +1289,7 @@ static void prt_speed(void)
                else if (p_ptr->slow && !is_fast) attr = TERM_VIOLET;
                else attr = TERM_L_GREEN;
 #ifdef JP
-               sprintf(buf, "%s(+%d)", (p_ptr->riding ? "¾èÇÏ" : "²Ã®"), (i - 110));
+               sprintf(buf, "%s(+%d)", (p_ptr->riding ? "乗馬" : "加速"), (i - 110));
 #else
                sprintf(buf, "Fast(+%d)", (i - 110));
 #endif
@@ -1306,7 +1310,7 @@ static void prt_speed(void)
                else if (p_ptr->slow && !is_fast) attr = TERM_VIOLET;
                else attr = TERM_L_UMBER;
 #ifdef JP
-               sprintf(buf, "%s(-%d)", (p_ptr->riding ? "¾èÇÏ" : "¸ºÂ®"), (110 - i));
+               sprintf(buf, "%s(-%d)", (p_ptr->riding ? "乗馬" : "減速"), (110 - i));
 #else
                sprintf(buf, "Slow(-%d)", (110 - i));
 #endif
@@ -1314,11 +1318,7 @@ static void prt_speed(void)
        else if (p_ptr->riding)
        {
                attr = TERM_GREEN;
-#ifdef JP
-               strcpy(buf, "¾èÇÏÃæ");
-#else
-               strcpy(buf, "Riding");
-#endif
+               strcpy(buf, _("乗馬中", "Riding"));
        }
 
        /* Display the speed */
@@ -1326,6 +1326,10 @@ static void prt_speed(void)
 }
 
 
+/*!
+ * @brief プレイヤーの呪文学習可能状態を表示する
+ * @return なし
+ */
 static void prt_study(void)
 {
        int wid, hgt, row_study, col_study;
@@ -1336,12 +1340,7 @@ static void prt_study(void)
 
        if (p_ptr->new_spells)
        {
-#ifdef JP
-               put_str("³Ø½¬", row_study, col_study);
-#else
-               put_str("Stud", row_study, col_study);
-#endif
-
+               put_str(_("学習", "Stud"), row_study, col_study);
        }
        else
        {
@@ -1350,7 +1349,11 @@ static void prt_study(void)
 }
 
 
-static void prt_mane(void)
+/*!
+ * @brief プレイヤーのものまね可能状態を表示する
+ * @return なし
+ */
+static void prt_imitation(void)
 {
        int wid, hgt, row_study, col_study;
 
@@ -1365,11 +1368,7 @@ static void prt_mane(void)
                        byte attr;
                        if (new_mane) attr = TERM_L_RED;
                        else attr = TERM_WHITE;
-#ifdef JP
-                       c_put_str(attr, "¤Þ¤Í", row_study, col_study);
-#else
-                       c_put_str(attr, "Mane", row_study, col_study);
-#endif
+                       c_put_str(attr, _("まね", "Imit"), row_study, col_study);
                }
                else
                {
@@ -1378,73 +1377,41 @@ static void prt_mane(void)
        }
 }
 
-
+/*!
+ * @brief プレイヤーの負傷状態を表示する
+ * @return なし
+ */
 static void prt_cut(void)
 {
        int c = p_ptr->cut;
 
        if (c > 1000)
        {
-#ifdef JP
-               c_put_str(TERM_L_RED, "Ã×Ì¿½ý      ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_L_RED, "Mortal wound", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_L_RED, _("致命傷      ", "Mortal wound"), ROW_CUT, COL_CUT);
        }
        else if (c > 200)
        {
-#ifdef JP
-               c_put_str(TERM_RED, "¤Ò¤É¤¤¿¼¼ê  ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_RED, "Deep gash   ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_RED, _("ひどい深手  ", "Deep gash   "), ROW_CUT, COL_CUT);
        }
        else if (c > 100)
        {
-#ifdef JP
-               c_put_str(TERM_RED, "½Å½ý        ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_RED, "Severe cut  ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_RED, _("重傷        ", "Severe cut  "), ROW_CUT, COL_CUT);
        }
        else if (c > 50)
        {
-#ifdef JP
-               c_put_str(TERM_ORANGE, "ÂçÊѤʽý    ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_ORANGE, "Nasty cut   ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_ORANGE, _("大変な傷    ", "Nasty cut   "), ROW_CUT, COL_CUT);
        }
        else if (c > 25)
        {
-#ifdef JP
-               c_put_str(TERM_ORANGE, "¤Ò¤É¤¤½ý    ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_ORANGE, "Bad cut     ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_ORANGE, _("ひどい傷    ", "Bad cut     "), ROW_CUT, COL_CUT);
        }
        else if (c > 10)
        {
-#ifdef JP
-               c_put_str(TERM_YELLOW, "·Ú½ý        ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_YELLOW, "Light cut   ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_YELLOW, _("軽傷        ", "Light cut   "), ROW_CUT, COL_CUT);
        }
        else if (c)
        {
-#ifdef JP
-               c_put_str(TERM_YELLOW, "¤«¤¹¤ê½ý    ", ROW_CUT, COL_CUT);
-#else
-               c_put_str(TERM_YELLOW, "Graze       ", ROW_CUT, COL_CUT);
-#endif
-
+               c_put_str(TERM_YELLOW, _("かすり傷    ", "Graze       "), ROW_CUT, COL_CUT);
        }
        else
        {
@@ -1453,37 +1420,25 @@ static void prt_cut(void)
 }
 
 
-
+/*!
+ * @brief プレイヤーの朦朧状態を表示する
+ * @return なし
+ */
 static void prt_stun(void)
 {
        int s = p_ptr->stun;
 
        if (s > 100)
        {
-#ifdef JP
-               c_put_str(TERM_RED, "°Õ¼±ÉÔÌÀÎÆ  ", ROW_STUN, COL_STUN);
-#else
-               c_put_str(TERM_RED, "Knocked out ", ROW_STUN, COL_STUN);
-#endif
-
+               c_put_str(TERM_RED, _("意識不明瞭  ", "Knocked out "), ROW_STUN, COL_STUN);
        }
        else if (s > 50)
        {
-#ifdef JP
-               c_put_str(TERM_ORANGE, "¤Ò¤É¤¯Û¯Û°  ", ROW_STUN, COL_STUN);
-#else
-               c_put_str(TERM_ORANGE, "Heavy stun  ", ROW_STUN, COL_STUN);
-#endif
-
+               c_put_str(TERM_ORANGE, _("ひどく朦朧  ", "Heavy stun  "), ROW_STUN, COL_STUN);
        }
        else if (s)
        {
-#ifdef JP
-               c_put_str(TERM_ORANGE, "ۯ۰        ", ROW_STUN, COL_STUN);
-#else
-               c_put_str(TERM_ORANGE, "Stun        ", ROW_STUN, COL_STUN);
-#endif
-
+               c_put_str(TERM_ORANGE, _("朦朧        ", "Stun        "), ROW_STUN, COL_STUN);
        }
        else
        {
@@ -1493,7 +1448,12 @@ static void prt_stun(void)
 
 
 
-/*
+/*!
+ * @brief モンスターの体力ゲージを表示する
+ * @param riding TRUEならば騎乗中のモンスターの体力、FALSEならターゲットモンスターの体力を表示する。表示位置は固定。
+ * @return なし
+ * @details
+ * <pre>
  * Redraw the "monster health bar"     -DRS-
  * Rather extensive modifications by   -BEN-
  *
@@ -1506,6 +1466,7 @@ static void prt_stun(void)
  * "health-o-meter").  Clear health bar if nothing is being tracked.
  * Auto-track current target monster when bored.  Note that the
  * health-bar stops tracking any monster that "disappears".
+ * </pre>
  */
 static void health_redraw(bool riding)
 {
@@ -1528,80 +1489,123 @@ static void health_redraw(bool riding)
 
        m_ptr = &m_list[health_who];
 
-       /* Not tracking */
-       if (!health_who)
+       if (p_ptr->wizard && p_ptr->inside_battle)
        {
-               /* Erase the health bar */
-               Term_erase(col, row, 12);
-       }
+               row = ROW_INFO - 2;
+               col = COL_INFO + 2;
 
-       /* Tracking an unseen monster */
-       else if (!m_ptr->ml)
-       {
-               /* Indicate that the monster health is "unknown" */
-               Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
-       }
+               Term_putstr(col - 2, row, 12, TERM_WHITE, "      /     ");
+               Term_putstr(col - 2, row + 1, 12, TERM_WHITE, "      /     ");
+               Term_putstr(col - 2, row + 2, 12, TERM_WHITE, "      /     ");
+               Term_putstr(col - 2, row + 3, 12, TERM_WHITE, "      /     ");
 
-       /* Tracking a hallucinatory monster */
-       else if (p_ptr->image)
-       {
-               /* Indicate that the monster health is "unknown" */
-               Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
-       }
+               if(m_list[1].r_idx)
+               {
+                       Term_putstr(col - 2, row, 2, r_info[m_list[1].r_idx].x_attr, format("%c", r_info[m_list[1].r_idx].x_char));
+                       Term_putstr(col - 1, row, 5, TERM_WHITE, format("%5d", m_list[1].hp));
+                       Term_putstr(col + 5, row, 6, TERM_WHITE, format("%5d", m_list[1].max_maxhp));
+               }
 
-       /* Tracking a dead monster (???) */
-       else if (m_ptr->hp < 0)
-       {
-               /* Indicate that the monster health is "unknown" */
-               Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
-       }
+               if(m_list[2].r_idx)
+               {
+                       Term_putstr(col - 2, row + 1, 2, r_info[m_list[2].r_idx].x_attr, format("%c", r_info[m_list[2].r_idx].x_char));
+                       Term_putstr(col - 1, row + 1, 5, TERM_WHITE, format("%5d", m_list[2].hp));
+                       Term_putstr(col + 5, row + 1, 6, TERM_WHITE, format("%5d", m_list[2].max_maxhp));
+               }
+
+               if(m_list[3].r_idx)
+               {
+                       Term_putstr(col - 2, row + 2, 2, r_info[m_list[3].r_idx].x_attr, format("%c", r_info[m_list[3].r_idx].x_char));
+                       Term_putstr(col - 1, row + 2, 5, TERM_WHITE, format("%5d", m_list[3].hp));
+                       Term_putstr(col + 5, row + 2, 6, TERM_WHITE, format("%5d", m_list[3].max_maxhp));
+               }
 
-       /* Tracking a visible monster */
+               if(m_list[4].r_idx)
+               {
+                       Term_putstr(col - 2, row + 3, 2, r_info[m_list[4].r_idx].x_attr, format("%c", r_info[m_list[4].r_idx].x_char));
+                       Term_putstr(col - 1, row + 3, 5, TERM_WHITE, format("%5d", m_list[4].hp));
+                       Term_putstr(col + 5, row + 3, 6, TERM_WHITE, format("%5d", m_list[4].max_maxhp));
+               }
+       }
        else
        {
-               /* Extract the "percent" of health */
-               int pct = 100L * m_ptr->hp / m_ptr->maxhp;
-               int pct2 = 100L * m_ptr->hp / m_ptr->max_maxhp;
 
-               /* Convert percent into "health" */
-               int len = (pct2 < 10) ? 1 : (pct2 < 90) ? (pct2 / 10 + 1) : 10;
+               /* Not tracking */
+               if (!health_who)
+               {
+                       /* Erase the health bar */
+                       Term_erase(col, row, 12);
+               }
+
+               /* Tracking an unseen monster */
+               else if (!m_ptr->ml)
+               {
+                       /* Indicate that the monster health is "unknown" */
+                       Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
+               }
+
+               /* Tracking a hallucinatory monster */
+               else if (p_ptr->image)
+               {
+                       /* Indicate that the monster health is "unknown" */
+                       Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
+               }
+
+               /* Tracking a dead monster (???) */
+               else if (m_ptr->hp < 0)
+               {
+                       /* Indicate that the monster health is "unknown" */
+                       Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
+               }
+
+               /* Tracking a visible monster */
+               else
+               {
+                       /* Extract the "percent" of health */
+                       int pct = 100L * m_ptr->hp / m_ptr->maxhp;
+                       int pct2 = 100L * m_ptr->hp / m_ptr->max_maxhp;
+
+                       /* Convert percent into "health" */
+                       int len = (pct2 < 10) ? 1 : (pct2 < 90) ? (pct2 / 10 + 1) : 10;
 
-               /* Default to almost dead */
-               byte attr = TERM_RED;
+                       /* Default to almost dead */
+                       byte attr = TERM_RED;
 
-               /* Invulnerable */
-               if (MON_INVULNER(m_ptr)) attr = TERM_WHITE;
+                       /* Invulnerable */
+                       if (MON_INVULNER(m_ptr)) attr = TERM_WHITE;
 
-               /* Asleep */
-               else if (MON_CSLEEP(m_ptr)) attr = TERM_BLUE;
+                       /* Asleep */
+                       else if (MON_CSLEEP(m_ptr)) attr = TERM_BLUE;
 
-               /* Afraid */
-               else if (MON_MONFEAR(m_ptr)) attr = TERM_VIOLET;
+                       /* Afraid */
+                       else if (MON_MONFEAR(m_ptr)) attr = TERM_VIOLET;
 
-               /* Healthy */
-               else if (pct >= 100) attr = TERM_L_GREEN;
+                       /* Healthy */
+                       else if (pct >= 100) attr = TERM_L_GREEN;
 
-               /* Somewhat Wounded */
-               else if (pct >= 60) attr = TERM_YELLOW;
+                       /* Somewhat Wounded */
+                       else if (pct >= 60) attr = TERM_YELLOW;
 
-               /* Wounded */
-               else if (pct >= 25) attr = TERM_ORANGE;
+                       /* Wounded */
+                       else if (pct >= 25) attr = TERM_ORANGE;
 
-               /* Badly wounded */
-               else if (pct >= 10) attr = TERM_L_RED;
+                       /* Badly wounded */
+                       else if (pct >= 10) attr = TERM_L_RED;
 
-               /* Default to "unknown" */
-               Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
+                       /* Default to "unknown" */
+                       Term_putstr(col, row, 12, TERM_WHITE, "[----------]");
 
-               /* Dump the current "health" (use '*' symbols) */
-               Term_putstr(col + 1, row, len, attr, "**********");
+                       /* Dump the current "health" (use '*' symbols) */
+                       Term_putstr(col + 1, row, len, attr, "**********");
+               }
        }
 }
 
 
 
-/*
- * Display basic info (mostly left of map)
+/*!
+ * @brief プレイヤーのステータスを一括表示する(左側部分) / Display basic info (mostly left of map)
+ * @return なし
  */
 static void prt_frame_basic(void)
 {
@@ -1651,8 +1655,9 @@ static void prt_frame_basic(void)
 }
 
 
-/*
- * Display extra info (mostly below map)
+/*!
+ * @brief プレイヤーのステータスを一括表示する(下部分) / Display extra info (mostly below map)
+ * @return なし
  */
 static void prt_frame_extra(void)
 {
@@ -1672,14 +1677,15 @@ static void prt_frame_extra(void)
        /* Study spells */
        prt_study();
 
-       prt_mane();
+       prt_imitation();
 
        prt_status();
 }
 
 
-/*
- * Hack -- display inventory in sub-windows
+/*!
+ * @brief サブウィンドウに所持品一覧を表示する / Hack -- display inventory in sub-windows
+ * @return なし
  */
 static void fix_inven(void)
 {
@@ -1711,9 +1717,170 @@ static void fix_inven(void)
 }
 
 
+/*!
+ * @brief モンスターの現在数を一行で表現する / Print monster info in line
+ * @param x 表示列
+ * @param y 表示行
+ * @param m_ptr 思い出を表示するモンスター情報の参照ポインタ
+ * @param n_same モンスターの数の現在数
+ * @details
+ * <pre>
+ * nnn X LV name
+ *  nnn : number or unique(U) or wanted unique(W)
+ *  X   : symbol of monster
+ *  LV  : monster lv if known
+ *  name: name of monster
+ * @return なし
+ * </pre>
+ */
+static void print_monster_line(int x, int y, monster_type* m_ptr, int n_same){
+       char buf[256];
+       int i;
+       int r_idx = m_ptr->ap_r_idx;
+       monster_race* r_ptr = &r_info[r_idx];
+       Term_gotoxy(x, y);
+       if(!r_ptr)return;
+       //Number of 'U'nique
+       if(r_ptr->flags1&RF1_UNIQUE){//unique
+               bool is_kubi = FALSE;
+               for(i=0;i<MAX_KUBI;i++){
+                       if(kubi_r_idx[i] == r_idx){
+                               is_kubi = TRUE;
+                               break;
+                       }
+               }
+               Term_addstr(-1, TERM_WHITE, is_kubi?"  W":"  U");
+       }else{
+               sprintf(buf, "%3d", n_same);
+               Term_addstr(-1, TERM_WHITE, buf);
+       }
+       //symbol
+       Term_addstr(-1, TERM_WHITE, " ");
+       //Term_add_bigch(r_ptr->d_attr, r_ptr->d_char);
+       //Term_addstr(-1, TERM_WHITE, "/");
+       Term_add_bigch(r_ptr->x_attr, r_ptr->x_char);
+       //LV
+       if (r_ptr->r_tkills && !(m_ptr->mflag2 & MFLAG2_KAGE)){
+               sprintf(buf, " %2d", r_ptr->level);
+       }else{
+               strcpy(buf, " ??");
+       }
+       Term_addstr(-1, TERM_WHITE, buf);
+       //name
+       sprintf(buf, " %s ", r_name+r_ptr->name);
+       Term_addstr(-1, TERM_WHITE, buf);
+       //Term_addstr(-1, TERM_WHITE, look_mon_desc(m_ptr, 0));
+}
 
-/*
+/*!
+ * @brief モンスターの出現リストを表示する / Print monster info in line
+ * @param x 表示列
+ * @param y 表示行
+ * @param max_lines 最大何行描画するか
+ */
+void print_monster_list(int x, int y, int max_lines){
+       int line = y;
+       monster_type* last_mons = NULL;
+       monster_type* m_ptr = NULL;
+       int n_same = 0;
+       int i;
+
+       for(i=0;i<temp_n;i++){
+               cave_type* c_ptr = &cave[temp_y[i]][temp_x[i]];
+               if(!c_ptr->m_idx || !m_list[c_ptr->m_idx].ml)continue;//no mons or cannot look
+               m_ptr = &m_list[c_ptr->m_idx];
+               if(is_pet(m_ptr))continue;//pet
+               if(!m_ptr->r_idx)continue;//dead?
+               {
+                       /*
+                       int r_idx = m_ptr->ap_r_idx;
+                       monster_race* r_ptr = &r_info[r_idx];
+                       cptr name = (r_name + r_ptr->name);
+                       cptr ename = (r_name + r_ptr->name);
+                       //ミミック類や「それ」等は、一覧に出てはいけない
+                       if(r_ptr->flags1&RF1_CHAR_CLEAR)continue;
+                       if((r_ptr->flags1&RF1_NEVER_MOVE)&&(r_ptr->flags2&RF2_CHAR_MULTI))continue;
+                       //『ヌル』は、一覧に出てはいけない
+                       if((strcmp(name, "生ける虚無『ヌル』")==0)||
+                          (strcmp(ename, "Null the Living Void")==0))continue;
+                       //"金無垢の指輪"は、一覧に出てはいけない
+                       if((strcmp(name, "金無垢の指輪")==0)||
+                               (strcmp(ename, "Plain Gold Ring")==0))continue;
+                       */
+               }
+
+               //ソート済みなので同じモンスターは連続する.これを利用して同じモンスターをカウント,まとめて表示する.
+               if(!last_mons){//先頭モンスター
+                       last_mons = m_ptr;
+                       n_same = 1;
+                       continue;
+               }
+               //same race?
+               if(last_mons->ap_r_idx == m_ptr->ap_r_idx){
+                       n_same++;
+                       continue;//表示処理を次に回す
+               }
+               //print last mons info
+               print_monster_line(x, line++, last_mons, n_same);
+               n_same = 1;
+               last_mons = m_ptr;
+               if(line-y-1==max_lines){//残り1行
+                       break;
+               }
+       }
+       if(line-y-1==max_lines && i!=temp_n){
+               Term_gotoxy(x, line);
+               Term_addstr(-1, TERM_WHITE, "-- and more --");
+       }else{
+               if(last_mons)print_monster_line(x, line++, last_mons, n_same);
+       }
+}
+
+/*!
+ * @brief 出現中モンスターのリストをサブウィンドウに表示する / Hack -- display monster list in sub-windows
+ * @return なし
+ */
+static void fix_monster_list(void)
+{
+       int j;
+       int w, h;
+
+       /* Scan windows */
+       for (j = 0; j < 8; j++)
+       {
+               term *old = Term;
+
+               /* No window */
+               if (!angband_term[j]) continue;
+
+               /* No relevant flags */
+               if (!(window_flag[j] & (PW_MONSTER_LIST))) continue;
+
+               /* Activate */
+               Term_activate(angband_term[j]);
+               Term_get_size(&w, &h);
+
+               Term_clear();
+
+               target_set_prepare_look(); //モンスター一覧を生成,ソート
+               print_monster_list(0, 0, h);
+
+               /* Fresh */
+               Term_fresh();
+
+               /* Restore */
+               Term_activate(old);
+       }
+}
+
+
+
+/*!
+ * @brief 現在の装備品をサブウィンドウに表示する / 
  * Hack -- display equipment in sub-windows
+ * @return なし
  */
 static void fix_equip(void)
 {
@@ -1745,8 +1912,10 @@ static void fix_equip(void)
 }
 
 
-/*
- * Hack -- display equipment in sub-windows
+/*!
+ * @brief 現在の習得済魔法をサブウィンドウに表示する / 
+ * Hack -- display spells in sub-windows
+ * @return なし
  */
 static void fix_spell(void)
 {
@@ -1778,8 +1947,10 @@ static void fix_spell(void)
 }
 
 
-/*
+/*!
+ * @brief 現在のプレイヤーステータスをサブウィンドウに表示する / 
  * Hack -- display character in sub-windows
+ * @return なし
  */
 static void fix_player(void)
 {
@@ -1812,12 +1983,11 @@ static void fix_player(void)
        }
 }
 
-
-
-/*
+/*!
+ * @brief ゲームメッセージ履歴をサブウィンドウに表示する / 
  * Hack -- display recent messages in sub-windows
- *
  * XXX XXX XXX Adjust for width and split messages
+ * @return なし
  */
 static void fix_message(void)
 {
@@ -1864,9 +2034,12 @@ static void fix_message(void)
 }
 
 
-/*
+/*!
+ * @brief 簡易マップをサブウィンドウに表示する / 
  * Hack -- display overhead view in sub-windows
- *
+ * XXX XXX XXX Adjust for width and split messages
+ * @return なし
+ * @details
  * Note that the "player" symbol does NOT appear on the map.
  */
 static void fix_overhead(void)
@@ -1907,8 +2080,10 @@ static void fix_overhead(void)
 }
 
 
-/*
+/*!
+ * @brief ダンジョンの地形をサブウィンドウに表示する / 
  * Hack -- display dungeon view in sub-windows
+ * @return なし
  */
 static void fix_dungeon(void)
 {
@@ -1940,8 +2115,10 @@ static void fix_dungeon(void)
 }
 
 
-/*
- * Hack -- display monster recall in sub-windows
+/*!
+ * @brief モンスターの思い出をサブウィンドウに表示する / 
+ * Hack -- display dungeon view in sub-windows
+ * @return なし
  */
 static void fix_monster(void)
 {
@@ -1973,8 +2150,10 @@ static void fix_monster(void)
 }
 
 
-/*
+/*!
+ * @brief ベースアイテム情報をサブウィンドウに表示する / 
  * Hack -- display object recall in sub-windows
+ * @return なし
  */
 static void fix_object(void)
 {
@@ -2006,10 +2185,13 @@ static void fix_object(void)
 }
 
 
-/*
+
+/*!
+ * @brief プレイヤーの現在学習可能な魔法数を計算し、増減に応じて魔法の忘却、再学習を処置する。 /
  * Calculate number of spells player should have, and forget,
  * or remember, spells until that number is properly reflected.
- *
+ * @return なし
+ * @details
  * Note that this function induces various "status" messages,
  * which must be bypasses until the character is created.
  */
@@ -2017,9 +2199,9 @@ static void calc_spells(void)
 {
        int                     i, j, k, levels;
        int                     num_allowed;
-       int                     num_boukyaku = 0;
+       int         num_boukyaku = 0;
 
-       magic_type              *s_ptr;
+       const magic_type        *s_ptr;
        int which;
        int bonus = 0;
 
@@ -2149,7 +2331,7 @@ static void calc_spells(void)
 
                        /* Message */
 #ifdef JP
-                       msg_format("%s¤Î%s¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¡£",
+                       msg_format("%sの%sを忘れてしまった。",
                                   do_spell(which, j%32, SPELL_NAME), p );
 #else
                        msg_format("You have forgotten the %s of %s.", p,
@@ -2209,7 +2391,7 @@ static void calc_spells(void)
 
                        /* Message */
 #ifdef JP
-                       msg_format("%s¤Î%s¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¡£",
+                       msg_format("%sの%sを忘れてしまった。",
                                   do_spell(which, j%32, SPELL_NAME), p );
 #else
                        msg_format("You have forgotten the %s of %s.", p,
@@ -2285,7 +2467,7 @@ static void calc_spells(void)
 
                        /* Message */
 #ifdef JP
-                       msg_format("%s¤Î%s¤ò»×¤¤½Ð¤·¤¿¡£",
+                       msg_format("%sの%sを思い出した。",
                                   do_spell(which, j%32, SPELL_NAME), p );
 #else
                        msg_format("You have remembered the %s of %s.",
@@ -2320,7 +2502,7 @@ static void calc_spells(void)
                        /* Count it */
                        k++;
                }
-               if (k>32) k = 32;
+               if (k > 32) k = 32;
                if ((p_ptr->new_spells > k) && ((mp_ptr->spell_book == TV_LIFE_BOOK) || (mp_ptr->spell_book == TV_HISSATSU_BOOK))) p_ptr->new_spells = k;
        }
 
@@ -2335,9 +2517,9 @@ static void calc_spells(void)
                        /* Message */
 #ifdef JP
                        if( p_ptr->new_spells < 10 ){
-                               msg_format("¤¢¤È %d ¤Ä¤Î%s¤ò³Ø¤Ù¤ë¡£", p_ptr->new_spells, p);
+                               msg_format("あと %d つの%sを学べる。", p_ptr->new_spells, p);
                        }else{
-                               msg_format("¤¢¤È %d ¸Ä¤Î%s¤ò³Ø¤Ù¤ë¡£", p_ptr->new_spells, p);
+                               msg_format("あと %d 個の%sを学べる。", p_ptr->new_spells, p);
                        }
 #else
                        msg_format("You can learn %d more %s%s.",
@@ -2358,11 +2540,12 @@ static void calc_spells(void)
        }
 }
 
-
-/*
+/*!
+ * @brief プレイヤーの最大MPを計算する /
  * Calculate maximum mana.  You do not need to know any spells.
  * Note that mana is lowered by heavy (or inappropriate) armor.
- *
+ * @return なし
+ * @details
  * This function induces status messages.
  */
 static void calc_mana(void)
@@ -2437,7 +2620,9 @@ static void calc_mana(void)
                /* Normal gloves hurt mage-type spells */
                if (o_ptr->k_idx &&
                    !(have_flag(flgs, TR_FREE_ACT)) &&
-                   !(have_flag(flgs, TR_MAGIC_MASTERY)) &&
+                       !(have_flag(flgs, TR_DEC_MANA)) &&
+                       !(have_flag(flgs, TR_EASY_SPELL)) &&
+                       !((have_flag(flgs, TR_MAGIC_MASTERY)) && (o_ptr->pval > 0)) &&
                    !((have_flag(flgs, TR_DEX)) && (o_ptr->pval > 0)))
                {
                        /* Encumbered */
@@ -2615,10 +2800,10 @@ static void calc_mana(void)
                }
 
 #ifdef JP
-               /* ¥ì¥Ù¥ë¥¢¥Ã¥×¤Î»þ¤Ï¾å¾ºÎ̤òɽ¼¨¤¹¤ë */
+               /* レベルアップの時は上昇量を表示する */
                if ((level_up == 1) && (msp > p_ptr->msp))
                {
-                       msg_format("ºÇÂç¥Þ¥¸¥Ã¥¯¡¦¥Ý¥¤¥ó¥È¤¬ %d Áý²Ã¤·¤¿¡ª",
+                       msg_format("最大マジック・ポイントが %d 増加した!",
                                   (msp - p_ptr->msp));
                }
 #endif
@@ -2643,21 +2828,11 @@ static void calc_mana(void)
                /* Message */
                if (p_ptr->cumber_glove)
                {
-#ifdef JP
-                       msg_print("¼ê¤¬Ê¤¤ï¤ì¤Æ¼öʸ¤¬¾§¤¨¤Ë¤¯¤¤´¶¤¸¤¬¤¹¤ë¡£");
-#else
-                       msg_print("Your covered hands feel unsuitable for spellcasting.");
-#endif
-
+                       msg_print(_("手が覆われて呪文が唱えにくい感じがする。", "Your covered hands feel unsuitable for spellcasting."));
                }
-               else
-               {
-#ifdef JP
-                       msg_print("¤³¤Î¼ê¤Î¾õÂ֤ʤ顢¤°¤Ã¤È¼öʸ¤¬¾§¤¨¤ä¤¹¤¤´¶¤¸¤À¡£");
-#else
-                       msg_print("Your hands feel more suitable for spellcasting.");
-#endif
-
+               else
+               {
+                       msg_print(_("この手の状態なら、ぐっと呪文が唱えやすい感じだ。", "Your hands feel more suitable for spellcasting."));
                }
 
                /* Save it */
@@ -2671,21 +2846,11 @@ static void calc_mana(void)
                /* Message */
                if (p_ptr->cumber_armor)
                {
-#ifdef JP
-                       msg_print("ÁõÈ÷¤Î½Å¤µ¤ÇÆ°¤­¤¬Æߤ¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¡£");
-#else
-                       msg_print("The weight of your equipment encumbers your movement.");
-#endif
-
+                       msg_print(_("装備の重さで動きが鈍くなってしまっている。", "The weight of your equipment encumbers your movement."));
                }
                else
                {
-#ifdef JP
-                       msg_print("¤°¤Ã¤È³Ú¤ËÂΤòÆ°¤«¤»¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£");
-#else
-                       msg_print("You feel able to move more freely.");
-#endif
-
+                       msg_print(_("ぐっと楽に体を動かせるようになった。", "You feel able to move more freely."));
                }
 
                /* Save it */
@@ -2695,9 +2860,12 @@ static void calc_mana(void)
 
 
 
-/*
+/*!
+ * @brief プレイヤーの最大HPを計算する /
  * Calculate the players (maximal) hit points
  * Adjust current hitpoints if necessary
+ * @return なし
+ * @details
  */
 static void calc_hitpoints(void)
 {
@@ -2743,6 +2911,10 @@ static void calc_hitpoints(void)
        if (p_ptr->shero && (p_ptr->pclass != CLASS_BERSERKER)) mhp += 30;
        if (p_ptr->tsuyoshi) mhp += 50;
 
+       /* Factor in the hex spell settings */
+       if (hex_spelling(HEX_XTRA_MIGHT)) mhp += 15;
+       if (hex_spelling(HEX_BUILDING)) mhp += 60;
+
        /* New maximum hitpoints */
        if (p_ptr->mhp != mhp)
        {
@@ -2754,10 +2926,10 @@ static void calc_hitpoints(void)
                }
 
 #ifdef JP
-               /* ¥ì¥Ù¥ë¥¢¥Ã¥×¤Î»þ¤Ï¾å¾ºÎ̤òɽ¼¨¤¹¤ë */
+               /* レベルアップの時は上昇量を表示する */
                if ((level_up == 1) && (mhp > p_ptr->mhp))
                {
-                       msg_format("ºÇÂç¥Ò¥Ã¥È¡¦¥Ý¥¤¥ó¥È¤¬ %d Áý²Ã¤·¤¿¡ª",
+                       msg_format("最大ヒット・ポイントが %d 増加した!",
                                   (mhp - p_ptr->mhp) );
                }
 #endif
@@ -2772,17 +2944,15 @@ static void calc_hitpoints(void)
        }
 }
 
-
-
-/*
- * Extract and set the current "lite radius"
- *
+/*!
+ * @brief プレイヤーの光源半径を計算する / Extract and set the current "lite radius"
+ * @return なし
+ * @details
  * SWD: Experimental modification: multiple light sources have additive effect.
- *
  */
 static void calc_torch(void)
 {
-       int i;
+       int i, rad;
        object_type *o_ptr;
        u32b flgs[TR_FLAG_SIZE];
 
@@ -2793,69 +2963,34 @@ static void calc_torch(void)
        for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
        {
                o_ptr = &inventory[i];
-
-               /* Examine actual lites */
-               if ((i == INVEN_LITE) && (o_ptr->k_idx) && (o_ptr->tval == TV_LITE))
+               /* Skip empty slots */
+               if (!o_ptr->k_idx) continue;
+               
+               if (o_ptr->name2 == EGO_LITE_SHINE) p_ptr->cur_lite++;
+               
+               /* Need Fuels */
+               if (o_ptr->name2 != EGO_LITE_DARKNESS)
                {
-                       if (o_ptr->name2 == EGO_LITE_DARKNESS)
-                       {
-                               if (o_ptr->sval == SV_LITE_TORCH)
-                               {
-                                       p_ptr->cur_lite -= 1;
-                               }
-
-                               /* Lanterns (with fuel) provide more lite */
-                               else if (o_ptr->sval == SV_LITE_LANTERN)
-                               {
-                                       p_ptr->cur_lite -= 2;
-                               }
-
-                               else if (o_ptr->sval == SV_LITE_FEANOR)
-                               {
-                                       p_ptr->cur_lite -= 3;
-                               }
-                       }
-                       /* Torches (with fuel) provide some lite */
-                       else if ((o_ptr->sval == SV_LITE_TORCH) && (o_ptr->xtra4 > 0))
-                       {
-                               p_ptr->cur_lite += 1;
-                       }
-
-                       /* Lanterns (with fuel) provide more lite */
-                       else if ((o_ptr->sval == SV_LITE_LANTERN) && (o_ptr->xtra4 > 0))
-                       {
-                               p_ptr->cur_lite += 2;
-                       }
-
-                       else if (o_ptr->sval == SV_LITE_FEANOR)
+                       if (o_ptr->tval == TV_LITE)
                        {
-                               p_ptr->cur_lite += 2;
+                               if((o_ptr->sval == SV_LITE_TORCH) && !(o_ptr->xtra4 > 0)) continue;
+                               if((o_ptr->sval == SV_LITE_LANTERN) && !(o_ptr->xtra4 > 0)) continue;
                        }
-
-                       /* Artifact Lites provide permanent, bright, lite */
-                       else if (object_is_fixed_artifact(o_ptr))
-                       {
-                               p_ptr->cur_lite += 3;
-                       }
-
-                       if (o_ptr->name2 == EGO_LITE_SHINE) p_ptr->cur_lite++;
                }
-               else
-               {
-                       /* Skip empty slots */
-                       if (!o_ptr->k_idx) continue;
-
-                       /* Extract the flags */
-                       object_flags(o_ptr, flgs);
 
-                       /* does this item glow? */
-                       if (have_flag(flgs, TR_LITE))
-                       {
-                               if ((o_ptr->name2 == EGO_DARK) || (o_ptr->name1 == ART_NIGHT)) p_ptr->cur_lite--;
-                               else p_ptr->cur_lite++;
-                       }
-               }
+               /* Extract the flags */
+               object_flags(o_ptr, flgs);
 
+               /* calc the lite_radius */
+               
+               rad = 0;
+               if (have_flag(flgs, TR_LITE_1) && o_ptr->name2 != EGO_LITE_DARKNESS)  rad += 1;
+               if (have_flag(flgs, TR_LITE_2) && o_ptr->name2 != EGO_LITE_DARKNESS)  rad += 2;
+               if (have_flag(flgs, TR_LITE_3) && o_ptr->name2 != EGO_LITE_DARKNESS)  rad += 3;
+               if (have_flag(flgs, TR_LITE_M1)) rad -= 1;
+               if (have_flag(flgs, TR_LITE_M2)) rad -= 2;
+               if (have_flag(flgs, TR_LITE_M3)) rad -= 3;
+               p_ptr->cur_lite += rad;
        }
 
        /* max radius is 14 (was 5) without rewriting other code -- */
@@ -2890,9 +3025,10 @@ static void calc_torch(void)
 }
 
 
-
-/*
+/*!
+ * @brief プレイヤーの所持重量制限を計算する /
  * Computes current weight limit.
+ * @return 制限重量(ポンド)
  */
 u32b weight_limit(void)
 {
@@ -2906,18 +3042,155 @@ u32b weight_limit(void)
        return i;
 }
 
-
+/*!
+ * @brief プレイヤーが現在右手/左手に武器を持っているか判定する /
+ * @param i 判定する手のID(右手:0 左手:1)
+ * @return 持っているならばTRUE
+ */
 bool buki_motteruka(int i)
 {
        return ((inventory[i].k_idx && object_is_melee_weapon(&inventory[i])) ? TRUE : FALSE);
 }
 
+/*!
+ * @brief 射撃武器がプレイヤーにとって重すぎるかどうかの判定 /
+ * @param o_ptr 判定する射撃武器のアイテム情報参照ポインタ
+ * @return 重すぎるならばTRUE
+ */
+bool is_heavy_shoot(object_type *o_ptr)
+{
+       int hold = adj_str_hold[p_ptr->stat_ind[A_STR]];
+       /* It is hard to carholdry a heavy bow */
+       return (hold < o_ptr->weight / 10);
+}
+
+/*!
+ * @brief 射撃武器に対応する矢/弾薬のベースアイテムIDを返す /
+ * @param o_ptr 判定する射撃武器のアイテム情報参照ポインタ
+ * @return 対応する矢/弾薬のベースアイテムID
+ */
+int bow_tval_ammo(object_type *o_ptr)
+{
+       /* Analyze the launcher */
+       switch (o_ptr->sval)
+       {
+               case SV_SLING:
+               {
+                       return TV_SHOT;
+               }
 
-/*
+               case SV_SHORT_BOW:
+               case SV_LONG_BOW:
+               case SV_NAMAKE_BOW:
+               {
+                       return TV_ARROW;
+               }
+
+               case SV_LIGHT_XBOW:
+               case SV_HEAVY_XBOW:
+               {
+                       return TV_BOLT;
+               }
+               case SV_CRIMSON:
+               case SV_HARP:
+               {
+                       return TV_NO_AMMO;
+               }
+       }
+       
+       return 0;
+}
+
+/*!
+ * @brief 装備中の射撃武器の威力倍率を返す /
+ * calcurate the fire rate of target object
+ * @param o_ptr 計算する射撃武器のアイテム情報参照ポインタ
+ * @return 射撃倍率の値(100で1.00倍)
+ */
+s16b calc_num_fire(object_type *o_ptr)
+{
+       int extra_shots = 0;
+       int i;
+       int num = 0;
+       int tval_ammo = bow_tval_ammo(o_ptr);
+       object_type *q_ptr;
+       u32b flgs[TR_FLAG_SIZE];
+       
+       /* Scan the usable inventory */
+       for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
+       {
+               q_ptr = &inventory[i];
+
+               /* Skip non-objects */
+               if (!q_ptr->k_idx) continue;
+               
+               /* Do not apply current equip */
+               if (i == INVEN_BOW) continue;
+
+               /* Extract the item flags */
+               object_flags(q_ptr, flgs);
+
+               /* Boost shots */
+               if (have_flag(flgs, TR_XTRA_SHOTS)) extra_shots++;
+       }
+       
+       object_flags(o_ptr, flgs);
+       if (have_flag(flgs, TR_XTRA_SHOTS)) extra_shots++;
+       
+       if (o_ptr->k_idx && !is_heavy_shoot(o_ptr))
+       {
+               num = 100;
+               /* Extra shots */
+               num += (extra_shots * 100);
+
+               /* Hack -- Rangers love Bows */
+               if ((p_ptr->pclass == CLASS_RANGER) && 
+                                       (tval_ammo == TV_ARROW))
+               {
+                       num += (p_ptr->lev * 4);
+               }
+
+               if ((p_ptr->pclass == CLASS_CAVALRY) &&
+                   (tval_ammo == TV_ARROW))
+               {
+                       num += (p_ptr->lev * 3);
+               }
+
+               if (p_ptr->pclass == CLASS_ARCHER)
+               {
+                       if (tval_ammo == TV_ARROW)
+                               num += ((p_ptr->lev * 5)+50);
+                       else if ((tval_ammo == TV_BOLT) || (tval_ammo == TV_SHOT))
+                               num += (p_ptr->lev * 4);
+               }
+
+               /*
+                * Addendum -- also "Reward" high level warriors,
+                * with _any_ missile weapon -- TY
+                */
+               if (p_ptr->pclass == CLASS_WARRIOR &&
+                  (tval_ammo <= TV_BOLT) &&
+                  (tval_ammo >= TV_SHOT))
+               {
+                       num += (p_ptr->lev * 2);
+               }
+               if ((p_ptr->pclass == CLASS_ROGUE) &&
+                   (tval_ammo == TV_SHOT))
+               {
+                       num += (p_ptr->lev * 4);
+               }
+       }
+       return num;
+}
+
+/*!
+ * @brief プレイヤーの全ステータスを更新する / 
  * Calculate the players current "state", taking into account
  * not only race/class intrinsics, but also objects being worn
  * and temporary spell effects.
- *
+ * @return なし
+ * @details
+ * <pre>
  * See also calc_mana() and calc_hitpoints().
  *
  * Take note of the new "speed code", in particular, a very strong
@@ -2932,6 +3205,7 @@ bool buki_motteruka(int i)
  * are actually added in later, at the appropriate place.
  *
  * This function induces various "status" messages.
+ * </pre>
  */
 void calc_bonuses(void)
 {
@@ -2940,7 +3214,6 @@ void calc_bonuses(void)
        int             default_hand = 0;
        int             empty_hands_status = empty_hands(TRUE);
        int             extra_blows[2];
-       int             extra_shots;
        object_type     *o_ptr;
        u32b flgs[TR_FLAG_SIZE];
        bool            omoi = FALSE;
@@ -2953,7 +3226,7 @@ void calc_bonuses(void)
        bool            easy_2weapon = FALSE;
        bool            riding_levitation = FALSE;
        s16b this_o_idx, next_o_idx = 0;
-       player_race *tmp_rp_ptr;
+       const player_race *tmp_rp_ptr;
 
        /* Save the old vision stuff */
        bool old_telepathy = p_ptr->telepathy;
@@ -2978,7 +3251,7 @@ void calc_bonuses(void)
 
 
        /* Clear extra blows/shots */
-       extra_blows[0] = extra_blows[1] = extra_shots = 0;
+       extra_blows[0] = extra_blows[1] = 0;
 
        /* Clear the stat modifiers */
        for (i = 0; i < 6; i++) p_ptr->stat_add[i] = 0;
@@ -3036,7 +3309,7 @@ void calc_bonuses(void)
        p_ptr->regenerate = FALSE;
        p_ptr->can_swim = FALSE;
        p_ptr->levitation = FALSE;
-       p_ptr->hold_life = FALSE;
+       p_ptr->hold_exp = FALSE;
        p_ptr->telepathy = FALSE;
        p_ptr->esp_animal = FALSE;
        p_ptr->esp_undead = FALSE;
@@ -3139,7 +3412,7 @@ void calc_bonuses(void)
                if (!p_ptr->migite) default_hand = 1;
        }
 
-       if (!p_ptr->riding || (p_ptr->pet_extra_flags & PF_RYOUTE))
+       if (CAN_TWO_HANDS_WIELDING())
        {
                if (p_ptr->migite && (empty_hands(FALSE) == EMPTY_HAND_LARM) &&
                        object_allow_two_hands_wielding(&inventory[INVEN_RARM]))
@@ -3298,7 +3571,7 @@ void calc_bonuses(void)
                switch (p_ptr->mimic_form)
                {
                case MIMIC_DEMON:
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->resist_chaos = TRUE;
                        p_ptr->resist_neth = TRUE;
                        p_ptr->resist_fire = TRUE;
@@ -3311,7 +3584,7 @@ void calc_bonuses(void)
                        p_ptr->align -= 200;
                        break;
                case MIMIC_DEMON_LORD:
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->resist_chaos = TRUE;
                        p_ptr->resist_neth = TRUE;
                        p_ptr->immune_fire = TRUE;
@@ -3336,7 +3609,7 @@ void calc_bonuses(void)
                        break;
                case MIMIC_VAMPIRE:
                        p_ptr->resist_dark = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->resist_neth = TRUE;
                        p_ptr->resist_cold = TRUE;
                        p_ptr->resist_pois = TRUE;
@@ -3356,7 +3629,7 @@ void calc_bonuses(void)
                        p_ptr->resist_lite = TRUE;
                        break;
                case RACE_HOBBIT:
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        break;
                case RACE_GNOME:
                        p_ptr->free_act = TRUE;
@@ -3456,18 +3729,18 @@ void calc_bonuses(void)
                        p_ptr->free_act = TRUE;
                        p_ptr->see_inv = TRUE;
                        p_ptr->resist_pois = TRUE;
-                       if (p_ptr->lev > 34) p_ptr->hold_life = TRUE;
+                       if (p_ptr->lev > 34) p_ptr->hold_exp = TRUE;
                        break;
                case RACE_SKELETON:
                        p_ptr->resist_shard = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->see_inv = TRUE;
                        p_ptr->resist_pois = TRUE;
                        if (p_ptr->lev > 9) p_ptr->resist_cold = TRUE;
                        break;
                case RACE_ZOMBIE:
                        p_ptr->resist_neth = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->see_inv = TRUE;
                        p_ptr->resist_pois = TRUE;
                        p_ptr->slow_digest = TRUE;
@@ -3475,7 +3748,7 @@ void calc_bonuses(void)
                        break;
                case RACE_VAMPIRE:
                        p_ptr->resist_dark = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->resist_neth = TRUE;
                        p_ptr->resist_cold = TRUE;
                        p_ptr->resist_pois = TRUE;
@@ -3485,7 +3758,7 @@ void calc_bonuses(void)
                        p_ptr->levitation = TRUE;
                        p_ptr->free_act = TRUE;
                        p_ptr->resist_neth = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        p_ptr->see_inv = TRUE;
                        p_ptr->resist_pois = TRUE;
                        p_ptr->slow_digest = TRUE;
@@ -3529,7 +3802,7 @@ void calc_bonuses(void)
                case RACE_DEMON:
                        p_ptr->resist_fire  = TRUE;
                        p_ptr->resist_neth  = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        if (p_ptr->lev > 9) p_ptr->see_inv = TRUE;
                        if (p_ptr->lev > 44)
                        {
@@ -3544,14 +3817,14 @@ void calc_bonuses(void)
                case RACE_S_FAIRY:
                        p_ptr->levitation = TRUE;
                        break;
-               case RACE_KUTA:
+               case RACE_KUTAR:
                        p_ptr->resist_conf = TRUE;
                        break;
                case RACE_ANDROID:
                        p_ptr->slow_digest = TRUE;
                        p_ptr->free_act = TRUE;
                        p_ptr->resist_pois = TRUE;
-                       p_ptr->hold_life = TRUE;
+                       p_ptr->hold_exp = TRUE;
                        break;
                default:
                        /* Do nothing */
@@ -3566,7 +3839,7 @@ void calc_bonuses(void)
                p_ptr->slow_digest = TRUE;
                p_ptr->regenerate = TRUE;
                p_ptr->levitation = TRUE;
-               p_ptr->hold_life = TRUE;
+               p_ptr->hold_exp = TRUE;
                p_ptr->telepathy = TRUE;
                p_ptr->lite = TRUE;
                p_ptr->sustain_str = TRUE;
@@ -3631,7 +3904,7 @@ void calc_bonuses(void)
        {
                p_ptr->resist_blind = TRUE;
                p_ptr->resist_conf  = TRUE;
-               p_ptr->hold_life = TRUE;
+               p_ptr->hold_exp = TRUE;
                if (p_ptr->pclass != CLASS_NINJA) p_ptr->lite = TRUE;
 
                if ((p_ptr->prace != RACE_KLACKON) && (p_ptr->prace != RACE_SPRITE))
@@ -3881,13 +4154,24 @@ void calc_bonuses(void)
                /* Hack -- cause earthquakes */
                if (have_flag(flgs, TR_IMPACT)) p_ptr->impact[(i == INVEN_RARM) ? 0 : 1] = TRUE;
 
-               /* Boost shots */
-               if (have_flag(flgs, TR_XTRA_SHOTS)) extra_shots++;
-
                /* Various flags */
                if (have_flag(flgs, TR_AGGRAVATE))   p_ptr->cursed |= TRC_AGGRAVATE;
                if (have_flag(flgs, TR_DRAIN_EXP))   p_ptr->cursed |= TRC_DRAIN_EXP;
                if (have_flag(flgs, TR_TY_CURSE))    p_ptr->cursed |= TRC_TY_CURSE;
+               if (have_flag(flgs, TR_ADD_L_CURSE)) p_ptr->cursed |= TRC_ADD_L_CURSE;
+               if (have_flag(flgs, TR_ADD_H_CURSE)) p_ptr->cursed |= TRC_ADD_H_CURSE;
+               if (have_flag(flgs, TR_DRAIN_HP))    p_ptr->cursed |= TRC_DRAIN_HP;
+               if (have_flag(flgs, TR_DRAIN_MANA))  p_ptr->cursed |= TRC_DRAIN_MANA;
+               if (have_flag(flgs, TR_CALL_ANIMAL)) p_ptr->cursed |= TRC_CALL_ANIMAL;
+               if (have_flag(flgs, TR_CALL_DEMON))  p_ptr->cursed |= TRC_CALL_DEMON;
+               if (have_flag(flgs, TR_CALL_DRAGON)) p_ptr->cursed |= TRC_CALL_DRAGON;
+               if (have_flag(flgs, TR_CALL_UNDEAD)) p_ptr->cursed |= TRC_CALL_UNDEAD;
+               if (have_flag(flgs, TR_COWARDICE))   p_ptr->cursed |= TRC_COWARDICE;
+               if (have_flag(flgs, TR_LOW_MELEE))   p_ptr->cursed |= TRC_LOW_MELEE;
+               if (have_flag(flgs, TR_LOW_AC))      p_ptr->cursed |= TRC_LOW_AC;
+               if (have_flag(flgs, TR_LOW_MAGIC))   p_ptr->cursed |= TRC_LOW_MAGIC;
+               if (have_flag(flgs, TR_FAST_DIGEST)) p_ptr->cursed |= TRC_FAST_DIGEST;
+               if (have_flag(flgs, TR_SLOW_REGEN))  p_ptr->cursed |= TRC_SLOW_REGEN;
                if (have_flag(flgs, TR_DEC_MANA))    p_ptr->dec_mana = TRUE;
                if (have_flag(flgs, TR_BLESSED))     p_ptr->bless_blade = TRUE;
                if (have_flag(flgs, TR_XTRA_MIGHT))  p_ptr->xtra_might = TRUE;
@@ -3910,7 +4194,7 @@ void calc_bonuses(void)
                if (have_flag(flgs, TR_SEE_INVIS))   p_ptr->see_inv = TRUE;
                if (have_flag(flgs, TR_LEVITATION))     p_ptr->levitation = TRUE;
                if (have_flag(flgs, TR_FREE_ACT))    p_ptr->free_act = TRUE;
-               if (have_flag(flgs, TR_HOLD_LIFE))   p_ptr->hold_life = TRUE;
+               if (have_flag(flgs, TR_HOLD_EXP))   p_ptr->hold_exp = TRUE;
                if (have_flag(flgs, TR_WARNING)){
                        if (!o_ptr->inscription || !(my_strchr(quark_str(o_ptr->inscription),'$')))
                          p_ptr->warning = TRUE;
@@ -4212,6 +4496,49 @@ void calc_bonuses(void)
                p_ptr->dis_to_a += 10 + (p_ptr->lev * 2 / 5);
        }
 
+       /* Hex bonuses */
+       if (p_ptr->realm1 == REALM_HEX)
+       {
+               if (hex_spelling_any()) p_ptr->skill_stl -= (1 + p_ptr->magic_num2[0]);
+               if (hex_spelling(HEX_DETECT_EVIL)) p_ptr->esp_evil = TRUE;
+               if (hex_spelling(HEX_XTRA_MIGHT)) p_ptr->stat_add[A_STR] += 4;
+               if (hex_spelling(HEX_BUILDING))
+               {
+                       p_ptr->stat_add[A_STR] += 4;
+                       p_ptr->stat_add[A_DEX] += 4;
+                       p_ptr->stat_add[A_CON] += 4;
+               }
+               if (hex_spelling(HEX_DEMON_AURA))
+               {
+                       p_ptr->sh_fire = TRUE;
+                       p_ptr->regenerate = TRUE;
+               }
+               if (hex_spelling(HEX_ICE_ARMOR))
+               {
+                       p_ptr->sh_cold = TRUE; 
+                       p_ptr->to_a += 30;
+                       p_ptr->dis_to_a += 30;
+               }
+               if (hex_spelling(HEX_SHOCK_CLOAK))
+               {
+                       p_ptr->sh_elec = TRUE;
+                       new_speed += 3;
+               }
+               for (i = INVEN_RARM; i <= INVEN_FEET; i++)
+               {
+                       int ac = 0;
+                       o_ptr = &inventory[i];
+                       if (!o_ptr->k_idx) continue;
+                       if (!object_is_armour(o_ptr)) continue;
+                       if (!object_is_cursed(o_ptr)) continue;
+                       ac += 5;
+                       if (o_ptr->curse_flags & TRC_HEAVY_CURSE) ac += 7;
+                       if (o_ptr->curse_flags & TRC_PERMA_CURSE) ac += 13;
+                       p_ptr->to_a += ac;
+                       p_ptr->dis_to_a += ac;
+               }
+       }
+
        /* Calculate stats */
        for (i = 0; i < 6; i++)
        {
@@ -4648,102 +4975,37 @@ void calc_bonuses(void)
        /* Examine the "current bow" */
        o_ptr = &inventory[INVEN_BOW];
 
-
-       /* Assume not heavy */
-       p_ptr->heavy_shoot = FALSE;
-
        /* It is hard to carholdry a heavy bow */
-       if (hold < o_ptr->weight / 10)
+       p_ptr->heavy_shoot = is_heavy_shoot(o_ptr);
+       if (p_ptr->heavy_shoot)
        {
                /* Hard to wield a heavy bow */
                p_ptr->to_h_b  += 2 * (hold - o_ptr->weight / 10);
                p_ptr->dis_to_h_b  += 2 * (hold - o_ptr->weight / 10);
-
-               /* Heavy Bow */
-               p_ptr->heavy_shoot = TRUE;
        }
 
-
        /* Compute "extra shots" if needed */
        if (o_ptr->k_idx)
        {
-               /* Analyze the launcher */
-               switch (o_ptr->sval)
-               {
-                       case SV_SLING:
-                       {
-                               p_ptr->tval_ammo = TV_SHOT;
-                               break;
-                       }
-
-                       case SV_SHORT_BOW:
-                       case SV_LONG_BOW:
-                       case SV_NAMAKE_BOW:
-                       {
-                               p_ptr->tval_ammo = TV_ARROW;
-                               break;
-                       }
-
-                       case SV_LIGHT_XBOW:
-                       case SV_HEAVY_XBOW:
-                       {
-                               p_ptr->tval_ammo = TV_BOLT;
-                               break;
-                       }
-                       case SV_CRIMSON:
-                       {
-                               p_ptr->tval_ammo = TV_NO_AMMO;
-                               break;
-                       }
-               }
+               p_ptr->tval_ammo = bow_tval_ammo(o_ptr);
 
                /* Apply special flags */
                if (o_ptr->k_idx && !p_ptr->heavy_shoot)
                {
                        /* Extra shots */
-                       p_ptr->num_fire += (extra_shots * 100);
-
-                       /* Hack -- Rangers love Bows */
-                       if ((p_ptr->pclass == CLASS_RANGER) &&
-                           (p_ptr->tval_ammo == TV_ARROW))
-                       {
-                               p_ptr->num_fire += (p_ptr->lev * 4);
-                       }
-
-                       if ((p_ptr->pclass == CLASS_CAVALRY) &&
-                           (p_ptr->tval_ammo == TV_ARROW))
-                       {
-                               p_ptr->num_fire += (p_ptr->lev * 3);
-                       }
-
-                       if (p_ptr->pclass == CLASS_ARCHER)
-                       {
-                               if (p_ptr->tval_ammo == TV_ARROW)
-                                       p_ptr->num_fire += ((p_ptr->lev * 5)+50);
-                               else if ((p_ptr->tval_ammo == TV_BOLT) || (p_ptr->tval_ammo == TV_SHOT))
-                                       p_ptr->num_fire += (p_ptr->lev * 4);
-                       }
+                       p_ptr->num_fire = calc_num_fire(o_ptr);
 
-                       /*
-                        * Addendum -- also "Reward" high level warriors,
-                        * with _any_ missile weapon -- TY
-                        */
-                       if (p_ptr->pclass == CLASS_WARRIOR &&
-                          (p_ptr->tval_ammo <= TV_BOLT) &&
-                          (p_ptr->tval_ammo >= TV_SHOT))
-                       {
-                               p_ptr->num_fire += (p_ptr->lev * 2);
-                       }
-                       if ((p_ptr->pclass == CLASS_ROGUE) &&
-                           (p_ptr->tval_ammo == TV_SHOT))
+                       /* Snipers love Cross bows */
+                       if ((p_ptr->pclass == CLASS_SNIPER) &&
+                               (p_ptr->tval_ammo == TV_BOLT))
                        {
-                               p_ptr->num_fire += (p_ptr->lev * 4);
+                               p_ptr->to_h_b += (10 + (p_ptr->lev / 5));
+                               p_ptr->dis_to_h_b += (10 + (p_ptr->lev / 5));
                        }
                }
        }
 
-       if (p_ptr->ryoute)
-               hold *= 2;
+       if (p_ptr->ryoute) hold *= 2;
 
        for(i = 0 ; i < 2 ; i++)
        {
@@ -4800,7 +5062,7 @@ void calc_bonuses(void)
                                case CLASS_BLUE_MAGE:
                                        num = 3; wgt = 100; mul = 2; break;
 
-                               /* Priest, Mindcrafter */
+                               /* Priest, Mindcrafter, Magic-Eater */
                                case CLASS_PRIEST:
                                case CLASS_MAGIC_EATER:
                                case CLASS_MINDCRAFTER:
@@ -4819,7 +5081,7 @@ void calc_bonuses(void)
                                case CLASS_SAMURAI:
                                        num = 5; wgt = 70; mul = 4; break;
 
-                               /* Kaji */
+                               /* Weaponsmith */
                                case CLASS_SMITH:
                                        num = 5; wgt = 150; mul = 5; break;
 
@@ -4848,6 +5110,7 @@ void calc_bonuses(void)
                                case CLASS_BEASTMASTER:
                                        num = 5; wgt = 70; mul = 3; break;
 
+                               /* Cavalry */
                                case CLASS_CAVALRY:
                                        if ((p_ptr->riding) && (have_flag(flgs, TR_RIDING))) {num = 5; wgt = 70; mul = 4;}
                                        else {num = 5; wgt = 100; mul = 3;}
@@ -4857,9 +5120,10 @@ void calc_bonuses(void)
                                case CLASS_SORCERER:
                                        num = 1; wgt = 1; mul = 1; break;
 
-                               /* Archer, Magic eater */
+                               /* Archer, Bard, Sniper */
                                case CLASS_ARCHER:
                                case CLASS_BARD:
+                               case CLASS_SNIPER:
                                        num = 4; wgt = 70; mul = 2; break;
 
                                /* ForceTrainer */
@@ -4875,6 +5139,9 @@ void calc_bonuses(void)
                                        num = 4; wgt = 20; mul = 1; break;
                        }
 
+                       /* Hex - extra mights gives +1 bonus to max blows */
+                       if (hex_spelling(HEX_XTRA_MIGHT) || hex_spelling(HEX_BUILDING)) { num++; wgt /= 2; mul += 2; }
+
                        /* Enforce a minimum "weight" (tenth pounds) */
                        div = ((o_ptr->weight < wgt) ? wgt : o_ptr->weight);
 
@@ -4978,6 +5245,23 @@ void calc_bonuses(void)
                                p_ptr->dis_to_d[i] -= 10;
                        }
                }
+               /* Hex bonuses */
+               if (p_ptr->realm1 == REALM_HEX)
+               {
+                       if (object_is_cursed(o_ptr))
+                       {
+                               if (o_ptr->curse_flags & (TRC_CURSED)) { p_ptr->to_h[i] += 5; p_ptr->dis_to_h[i] += 5; }
+                               if (o_ptr->curse_flags & (TRC_HEAVY_CURSE)) { p_ptr->to_h[i] += 7; p_ptr->dis_to_h[i] += 7; }
+                               if (o_ptr->curse_flags & (TRC_PERMA_CURSE)) { p_ptr->to_h[i] += 13; p_ptr->dis_to_h[i] += 13; }
+                               if (o_ptr->curse_flags & (TRC_TY_CURSE)) { p_ptr->to_h[i] += 5; p_ptr->dis_to_h[i] += 5; }
+                               if (hex_spelling(HEX_RUNESWORD))
+                               {
+                                       if (o_ptr->curse_flags & (TRC_CURSED)) { p_ptr->to_d[i] += 5; p_ptr->dis_to_d[i] += 5; }
+                                       if (o_ptr->curse_flags & (TRC_HEAVY_CURSE)) { p_ptr->to_d[i] += 7; p_ptr->dis_to_d[i] += 7; }
+                                       if (o_ptr->curse_flags & (TRC_PERMA_CURSE)) { p_ptr->to_d[i] += 13; p_ptr->dis_to_d[i] += 13; }
+                               }
+                       }
+               }
                if (p_ptr->riding)
                {
                        if ((o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE)))
@@ -5340,30 +5624,15 @@ void calc_bonuses(void)
                /* Message */
                if (p_ptr->heavy_shoot)
                {
-#ifdef JP
-                       msg_print("¤³¤ó¤Ê½Å¤¤µÝ¤òÁõÈ÷¤·¤Æ¤¤¤ë¤Î¤ÏÂçÊѤÀ¡£");
-#else
-                       msg_print("You have trouble wielding such a heavy bow.");
-#endif
-
+                       msg_print(_("こんな重い弓を装備しているのは大変だ。", "You have trouble wielding such a heavy bow."));
                }
                else if (inventory[INVEN_BOW].k_idx)
                {
-#ifdef JP
-                       msg_print("¤³¤ÎµÝ¤Ê¤éÁõÈ÷¤·¤Æ¤¤¤Æ¤â¿É¤¯¤Ê¤¤¡£");
-#else
-                       msg_print("You have no trouble wielding your bow.");
-#endif
-
+                       msg_print(_("この弓なら装備していても辛くない。", "You have no trouble wielding your bow."));
                }
                else
                {
-#ifdef JP
-                       msg_print("½Å¤¤µÝ¤òÁõÈ÷¤«¤é¤Ï¤º¤·¤ÆÂΤ¬³Ú¤Ë¤Ê¤Ã¤¿¡£");
-#else
-                       msg_print("You feel relieved to put down your heavy bow.");
-#endif
-
+                       msg_print(_("重い弓を装備からはずして体が楽になった。", "You feel relieved to put down your heavy bow."));
                }
 
                /* Save it */
@@ -5378,39 +5647,19 @@ void calc_bonuses(void)
                        /* Message */
                        if (p_ptr->heavy_wield[i])
                        {
-#ifdef JP
-                               msg_print("¤³¤ó¤Ê½Å¤¤Éð´ï¤òÁõÈ÷¤·¤Æ¤¤¤ë¤Î¤ÏÂçÊѤÀ¡£");
-#else
-                               msg_print("You have trouble wielding such a heavy weapon.");
-#endif
-
+                               msg_print(_("こんな重い武器を装備しているのは大変だ。", "You have trouble wielding such a heavy weapon."));
                        }
                        else if (buki_motteruka(INVEN_RARM+i))
                        {
-#ifdef JP
-                               msg_print("¤³¤ì¤Ê¤éÁõÈ÷¤·¤Æ¤¤¤Æ¤â¿É¤¯¤Ê¤¤¡£");
-#else
-                               msg_print("You have no trouble wielding your weapon.");
-#endif
-
+                               msg_print(_("これなら装備していても辛くない。", "You have no trouble wielding your weapon."));
                        }
                        else if (p_ptr->heavy_wield[1-i])
                        {
-#ifdef JP
-                               msg_print("¤Þ¤ÀÉð´ï¤¬½Å¤¤¡£");
-#else
-                               msg_print("You have still trouble wielding a heavy weapon.");
-#endif
-
+                               msg_print(_("まだ武器が重い。", "You have still trouble wielding a heavy weapon."));
                        }
                        else
                        {
-#ifdef JP
-                               msg_print("½Å¤¤Éð´ï¤òÁõÈ÷¤«¤é¤Ï¤º¤·¤ÆÂΤ¬³Ú¤Ë¤Ê¤Ã¤¿¡£");
-#else
-                               msg_print("You feel relieved to put down your heavy weapon.");
-#endif
-
+                               msg_print(_("重い武器を装備からはずして体が楽になった。", "You feel relieved to put down your heavy weapon."));
                        }
 
                        /* Save it */
@@ -5423,30 +5672,15 @@ void calc_bonuses(void)
                        /* Message */
                        if (p_ptr->riding_wield[i])
                        {
-#ifdef JP
-                               msg_print("¤³¤ÎÉð´ï¤Ï¾èÇÏÃæ¤Ë»È¤¦¤Ë¤Ï¤à¤«¤Ê¤¤¤è¤¦¤À¡£");
-#else
-                               msg_print("This weapon is not suitable for use while riding.");
-#endif
-
+                               msg_print(_("この武器は乗馬中に使うにはむかないようだ。", "This weapon is not suitable for use while riding."));
                        }
                        else if (!p_ptr->riding)
                        {
-#ifdef JP
-                               msg_print("¤³¤ÎÉð´ï¤ÏÅÌÊâ¤Ç»È¤¤¤ä¤¹¤¤¡£");
-#else
-                               msg_print("This weapon was not suitable for use while riding.");
-#endif
-
+                               msg_print(_("この武器は徒歩で使いやすい。", "This weapon was not suitable for use while riding."));
                        }
                        else if (buki_motteruka(INVEN_RARM+i))
                        {
-#ifdef JP
-                               msg_print("¤³¤ì¤Ê¤é¾èÇÏÃæ¤Ë¤Ô¤Ã¤¿¤ê¤À¡£");
-#else
-                               msg_print("This weapon is suitable for use while riding.");
-#endif
-
+                               msg_print(_("これなら乗馬中にぴったりだ。", "This weapon is suitable for use while riding."));
                        }
                        /* Save it */
                        p_ptr->old_riding_wield[i] = p_ptr->riding_wield[i];
@@ -5458,11 +5692,7 @@ void calc_bonuses(void)
                        /* Message */
                        if (p_ptr->icky_wield[i])
                        {
-#ifdef JP
-                               msg_print("º£¤ÎÁõÈ÷¤Ï¤É¤¦¤â¼«Ê¬¤Ë¤Õ¤µ¤ï¤·¤¯¤Ê¤¤µ¤¤¬¤¹¤ë¡£");
-#else
-                               msg_print("You do not feel comfortable with your weapon.");
-#endif
+                               msg_print(_("今の装備はどうも自分にふさわしくない気がする。", "You do not feel comfortable with your weapon."));
                                if (hack_mind)
                                {
                                        chg_virtue(V_FAITH, -1);
@@ -5470,21 +5700,11 @@ void calc_bonuses(void)
                        }
                        else if (buki_motteruka(INVEN_RARM+i))
                        {
-#ifdef JP
-                               msg_print("º£¤ÎÁõÈ÷¤Ï¼«Ê¬¤Ë¤Õ¤µ¤ï¤·¤¤µ¤¤¬¤¹¤ë¡£");
-#else
-                               msg_print("You feel comfortable with your weapon.");
-#endif
-
+                               msg_print(_("今の装備は自分にふさわしい気がする。", "You feel comfortable with your weapon."));
                        }
                        else
                        {
-#ifdef JP
-                               msg_print("ÁõÈ÷¤ò¤Ï¤º¤·¤¿¤é¿ïʬ¤Èµ¤¤¬³Ú¤Ë¤Ê¤Ã¤¿¡£");
-#else
-                               msg_print("You feel more comfortable after removing your weapon.");
-#endif
-
+                               msg_print(_("装備をはずしたら随分と気が楽になった。", "You feel more comfortable after removing your weapon."));
                        }
 
                        /* Save it */
@@ -5498,7 +5718,7 @@ void calc_bonuses(void)
                if (p_ptr->riding_ryoute)
                {
 #ifdef JP
-                       msg_format("%sÇϤòÁà¤ì¤Ê¤¤¡£", (empty_hands(FALSE) == EMPTY_HAND_NONE) ? "ξ¼ê¤¬¤Õ¤µ¤¬¤Ã¤Æ¤¤¤Æ" : "");
+                       msg_format("%s馬を操れない。", (empty_hands(FALSE) == EMPTY_HAND_NONE) ? "両手がふさがっていて" : "");
 #else
                        msg_print("You are using both hand for fighting, and you can't control a riding pet.");
 #endif
@@ -5506,7 +5726,7 @@ void calc_bonuses(void)
                else
                {
 #ifdef JP
-                       msg_format("%sÇϤòÁà¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£", (empty_hands(FALSE) == EMPTY_HAND_NONE) ? "¼ê¤¬¶õ¤¤¤Æ" : "");
+                       msg_format("%s馬を操れるようになった。", (empty_hands(FALSE) == EMPTY_HAND_NONE) ? "手が空いて" : "");
 #else
                        msg_print("You began to control riding pet with one hand.");
 #endif
@@ -5519,24 +5739,17 @@ void calc_bonuses(void)
        {
                if (heavy_armor())
                {
-#ifdef JP
-msg_print("ÁõÈ÷¤¬½Å¤¯¤Æ¥Ð¥é¥ó¥¹¤ò¼è¤ì¤Ê¤¤¡£");
-#else
-                       msg_print("The weight of your armor disrupts your balance.");
-#endif
-
+                       msg_print(_("装備が重くてバランスを取れない。", "The weight of your armor disrupts your balance."));
                        if (hack_mind)
                        {
                                chg_virtue(V_HARMONY, -1);
                        }
                }
                else
-#ifdef JP
-msg_print("¥Ð¥é¥ó¥¹¤¬¤È¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£");
-#else
-                       msg_print("You regain your balance.");
-#endif
-
+               {
+                       msg_print(_("バランスがとれるようになった。", "You regain your balance."));
+               }
+               
                monk_notify_aux = monk_armour_aux;
        }
 
@@ -5549,10 +5762,9 @@ msg_print("
                if ((inventory[i].tval == TV_NATURE_BOOK) && (inventory[i].sval == 2)) have_sw = TRUE;
                if ((inventory[i].tval == TV_CRAFT_BOOK) && (inventory[i].sval == 2)) have_kabe = TRUE;
        }
-       for (this_o_idx = cave[py][px].o_idx; this_o_idx; this_o_idx = next_o_idx)
-       {
-               object_type *o_ptr;
 
+       for (this_o_idx = cave[p_ptr->y][p_ptr->x].o_idx; this_o_idx; this_o_idx = next_o_idx)
+       {
                /* Acquire object */
                o_ptr = &o_list[this_o_idx];
 
@@ -5571,33 +5783,35 @@ msg_print("
 #if 0
        if (have_dd_s && ((p_ptr->realm1 == REALM_SORCERY) || (p_ptr->realm2 == REALM_SORCERY) || (p_ptr->pclass == CLASS_SORCERER)))
        {
-               magic_type *s_ptr = &mp_ptr->info[REALM_SORCERY-1][SPELL_DD_S];
+               const magic_type *s_ptr = &mp_ptr->info[REALM_SORCERY-1][SPELL_DD_S];
                if (p_ptr->lev >= s_ptr->slevel) p_ptr->no_flowed = TRUE;
        }
 
        if (have_dd_t && ((p_ptr->realm1 == REALM_TRUMP) || (p_ptr->realm2 == REALM_TRUMP) || (p_ptr->pclass == CLASS_SORCERER) || (p_ptr->pclass == CLASS_RED_MAGE)))
        {
-               magic_type *s_ptr = &mp_ptr->info[REALM_TRUMP-1][SPELL_DD_T];
+               const magic_type *s_ptr = &mp_ptr->info[REALM_TRUMP-1][SPELL_DD_T];
                if (p_ptr->lev >= s_ptr->slevel) p_ptr->no_flowed = TRUE;
        }
 #endif
        if (have_sw && ((p_ptr->realm1 == REALM_NATURE) || (p_ptr->realm2 == REALM_NATURE) || (p_ptr->pclass == CLASS_SORCERER)))
        {
-               magic_type *s_ptr = &mp_ptr->info[REALM_NATURE-1][SPELL_SW];
+               const magic_type *s_ptr = &mp_ptr->info[REALM_NATURE-1][SPELL_SW];
                if (p_ptr->lev >= s_ptr->slevel) p_ptr->no_flowed = TRUE;
        }
 
        if (have_kabe && ((p_ptr->realm1 == REALM_CRAFT) || (p_ptr->realm2 == REALM_CRAFT) || (p_ptr->pclass == CLASS_SORCERER)))
        {
-               magic_type *s_ptr = &mp_ptr->info[REALM_CRAFT-1][SPELL_KABE];
+               const magic_type *s_ptr = &mp_ptr->info[REALM_CRAFT-1][SPELL_KABE];
                if (p_ptr->lev >= s_ptr->slevel) p_ptr->no_flowed = TRUE;
        }
 }
 
 
 
-/*
- * Handle "p_ptr->notice"
+/*! 
+ * @brief p_ptr->notice のフラグに応じた更新をまとめて行う / Handle "p_ptr->notice"
+ * @return なし
+ * @details 更新処理の対象はアイテムの自動破壊/アイテムの結合/アイテムの並び替え。
  */
 void notice_stuff(void)
 {
@@ -5628,8 +5842,10 @@ void notice_stuff(void)
 }
 
 
-/*
- * Handle "p_ptr->update"
+/*! 
+ * @brief p_ptr->update のフラグに応じた更新をまとめて行う / Handle "p_ptr->update"
+ * @return なし
+ * @details 更新処理の対象はプレイヤーの能力修正/光源寿命/HP/MP/魔法の学習状態、他多数の外界の状態判定。
  */
 void update_stuff(void)
 {
@@ -5741,8 +5957,10 @@ void update_stuff(void)
 }
 
 
-/*
- * Handle "p_ptr->redraw"
+/*! 
+ * @brief p_ptr->redraw のフラグに応じた更新をまとめて行う / Handle "p_ptr->redraw"
+ * @return なし
+ * @details 更新処理の対象はゲーム中の全描画処理
  */
 void redraw_stuff(void)
 {
@@ -5884,7 +6102,7 @@ void redraw_stuff(void)
                p_ptr->redraw &= ~(PR_EXTRA);
                p_ptr->redraw &= ~(PR_CUT | PR_STUN);
                p_ptr->redraw &= ~(PR_HUNGER);
-               p_ptr->redraw &= ~(PR_STATE | PR_SPEED | PR_STUDY | PR_MANE | PR_STATUS);
+               p_ptr->redraw &= ~(PR_STATE | PR_SPEED | PR_STUDY | PR_IMITATION | PR_STATUS);
                prt_frame_extra();
        }
 
@@ -5920,10 +6138,10 @@ void redraw_stuff(void)
 
        if (p_ptr->pclass == CLASS_IMITATOR)
        {
-               if (p_ptr->redraw & (PR_MANE))
+               if (p_ptr->redraw & (PR_IMITATION))
                {
-                       p_ptr->redraw &= ~(PR_MANE);
-                       prt_mane();
+                       p_ptr->redraw &= ~(PR_IMITATION);
+                       prt_imitation();
                }
        }
        else if (p_ptr->redraw & (PR_STUDY))
@@ -5934,8 +6152,10 @@ void redraw_stuff(void)
 }
 
 
-/*
- * Handle "p_ptr->window"
+/*! 
+ * @brief p_ptr->window のフラグに応じた更新をまとめて行う / Handle "p_ptr->window"
+ * @return なし
+ * @details 更新処理の対象はサブウィンドウ全般
  */
 void window_stuff(void)
 {
@@ -5988,7 +6208,14 @@ void window_stuff(void)
                p_ptr->window &= ~(PW_PLAYER);
                fix_player();
        }
-
+       
+       /* Display monster list */
+       if (p_ptr->window & (PW_MONSTER_LIST))
+       {
+               p_ptr->window &= ~(PW_MONSTER_LIST);
+               fix_monster_list();
+       }
+       
        /* Display overhead view */
        if (p_ptr->window & (PW_MESSAGE))
        {
@@ -6026,8 +6253,10 @@ void window_stuff(void)
 }
 
 
-/*
+/*!
+ * @brief 全更新処理をチェックして処理していく
  * Handle "p_ptr->update" and "p_ptr->redraw" and "p_ptr->window"
+ * @return なし
  */
 void handle_stuff(void)
 {
@@ -6041,7 +6270,11 @@ void handle_stuff(void)
        if (p_ptr->window) window_stuff();
 }
 
-
+/*!
+ * @brief プレイヤーの現在開いている手の状態を返す
+ * @param riding_control 乗馬中により片手を必要としている状態ならばTRUEを返す。
+ * @return 開いている手のビットフラグ
+ */
 s16b empty_hands(bool riding_control)
 {
        s16b status = EMPTY_HAND_NONE;
@@ -6059,6 +6292,10 @@ s16b empty_hands(bool riding_control)
 }
 
 
+/*!
+ * @brief プレイヤーが防具重量制限のある職業時にペナルティを受ける状態にあるかどうかを返す。
+ * @return ペナルティが適用されるならばTRUE。
+ */
 bool heavy_armor(void)
 {
        u16b monk_arm_wgt = 0;
@@ -6076,3 +6313,17 @@ bool heavy_armor(void)
 
        return (monk_arm_wgt > (100 + (p_ptr->lev * 4)));
 }
+
+/*!
+ * @brief 実ゲームプレイ時間を更新する
+ */
+void update_playtime(void)
+{
+       /* Check if the game has started */
+       if (start_time != 0)
+       {
+               u32b tmp = time(NULL);
+               playtime += (tmp - start_time);
+               start_time = tmp;
+       }
+}