From 50bea5270a46a0abb40354b8314aa0c99dd85c52 Mon Sep 17 00:00:00 2001
From: Habu <habu@users.osdn.me>
Date: Sat, 30 Jan 2021 16:20:14 +0900
Subject: [PATCH] =?utf8?q?[delete]=20=E6=9C=AA=E4=BD=BF=E7=94=A8=E3=83=95?=
 =?utf8?q?=E3=82=A1=E3=82=A4=E3=83=AB=E3=82=92=E5=89=8A=E9=99=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

src/player/selfinfo.c に INVEN_RARM の定義が残っていたが、
別の場所に移動した後の残骸なので削除する。
また、これに関連して src/mutation/mutation.c も使用されていないので合わせて削除する。
---
 src/mutation/mutation.c | 1180 --------------------------------------
 src/player/selfinfo.c   | 1430 -----------------------------------------------
 2 files changed, 2610 deletions(-)
 delete mode 100644 src/mutation/mutation.c
 delete mode 100644 src/player/selfinfo.c

diff --git a/src/mutation/mutation.c b/src/mutation/mutation.c
deleted file mode 100644
index 13366c6c3..000000000
--- a/src/mutation/mutation.c
+++ /dev/null
@@ -1,1180 +0,0 @@
-/*!
- * @file mutation.c
- * @brief 突然変異ルールの実装 / Mutation effects (and racial powers)
- * @date 2014/01/11
- * @author
- * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
- *\n
- * This software may be copied and distributed for educational, research,\n
- * and not for profit purposes provided that this copyright and statement\n
- * are included in all such copies.  Other copyrights may also apply.\n
- * 2014 Deskull rearranged comment for Doxygen.\n
- */
-
-#include "mutation/mutation.h"
-#include "cmd-io/cmd-dump.h"
-#include "cmd-item/cmd-throw.h"
-#include "core/asking-player.h"
-#include "core/player-update-types.h"
-#include "core/show-file.h"
-#include "core/stuff-handler.h"
-#include "effect/spells-effect-util.h"
-#include "game-option/play-record-options.h"
-#include "grid/grid.h"
-#include "inventory/inventory-slot-types.h"
-#include "io/write-diary.h"
-#include "mind/mind-mage.h"
-#include "mind/mind-warrior.h"
-#include "monster-floor/monster-remover.h"
-#include "monster-floor/monster-summon.h"
-#include "monster-floor/place-monster-types.h"
-#include "monster-race/monster-race.h"
-#include "monster-race/race-flags1.h"
-#include "monster-race/race-flags3.h"
-#include "monster/monster-describer.h"
-#include "monster/monster-description-types.h"
-#include "monster/monster-flag-types.h"
-#include "monster/monster-info.h"
-#include "monster/smart-learn-types.h"
-#include "mutation/gain-mutation-switcher.h"
-#include "mutation/gain-mutation-util.h"
-#include "mutation/mutation-flag-types.h"
-#include "mutation/mutation-techniques.h"
-#include "object-enchant/item-feeling.h"
-#include "object-hook/hook-checker.h"
-#include "player/avatar.h"
-#include "player/player-class.h"
-#include "player/player-damage.h"
-#include "player/player-personalities-types.h"
-#include "player/player-race-types.h"
-#include "player/selfinfo.h"
-#include "racial/racial-vampire.h"
-#include "spell-kind/earthquake.h"
-#include "spell-kind/spells-charm.h"
-#include "spell-kind/spells-detection.h"
-#include "spell-kind/spells-fetcher.h"
-#include "spell-kind/spells-launcher.h"
-#include "spell-kind/spells-lite.h"
-#include "spell-kind/spells-sight.h"
-#include "spell-kind/spells-teleport.h"
-#include "spell-kind/spells-world.h"
-#include "spell-realm/spells-sorcery.h"
-#include "spell/spell-types.h"
-#include "spell/spells-status.h"
-#include "spell/spells-summon.h"
-#include "status/element-resistance.h"
-#include "status/shape-changer.h"
-#include "system/floor-type-definition.h"
-#include "system/object-type-definition.h"
-#include "target/target-getter.h"
-#include "view/display-messages.h"
-
-static void race_dependent_mutation(player_type *creature_ptr, gm_type *gm_ptr)
-{
-    if (gm_ptr->choose_mut != 0)
-        return;
-
-    if (creature_ptr->prace == RACE_VAMPIRE && !(creature_ptr->muta1 & MUT1_HYPN_GAZE) && (randint1(10) < 7)) {
-        gm_ptr->muta_class = &(creature_ptr->muta1);
-        gm_ptr->muta_which = MUT1_HYPN_GAZE;
-        gm_ptr->muta_desc = _("眼が幻惑的になった...", "Your eyes look mesmerizing...");
-        return;
-    }
-    
-    if (creature_ptr->prace == RACE_IMP && !(creature_ptr->muta2 & MUT2_HORNS) && (randint1(10) < 7)) {
-        gm_ptr->muta_class = &(creature_ptr->muta2);
-        gm_ptr->muta_which = MUT2_HORNS;
-        gm_ptr->muta_desc = _("角が額から生えてきた！", "Horns pop forth into your forehead!");
-        return;
-    }
-    
-    if (creature_ptr->prace == RACE_YEEK && !(creature_ptr->muta1 & MUT1_SHRIEK) && (randint1(10) < 7)) {
-        gm_ptr->muta_class = &(creature_ptr->muta1);
-        gm_ptr->muta_which = MUT1_SHRIEK;
-        gm_ptr->muta_desc = _("声質がかなり強くなった。", "Your vocal cords get much tougher.");
-        return;
-    }
-    
-    if (creature_ptr->prace == RACE_BEASTMAN && !(creature_ptr->muta1 & MUT1_POLYMORPH) && (randint1(10) < 2)) {
-        gm_ptr->muta_class = &(creature_ptr->muta1);
-        gm_ptr->muta_which = MUT1_POLYMORPH;
-        gm_ptr->muta_desc = _("あなたの肉体は変化できるようになった、", "Your body seems mutable.");
-        return;
-    }
-    
-    if (creature_ptr->prace == RACE_MIND_FLAYER && !(creature_ptr->muta2 & MUT2_TENTACLES) && (randint1(10) < 7)) {
-        gm_ptr->muta_class = &(creature_ptr->muta2);
-        gm_ptr->muta_which = MUT2_TENTACLES;
-        gm_ptr->muta_desc = _("邪悪な触手が口の周りに生えた。", "Evil-looking tentacles sprout from your mouth.");
-    }
-}
-
-/*!
- * @brief プレイヤーに突然変異を与える
- * @param choose_mut 与えたい突然変異のID、0ならばランダムに選択
- * @return なし
- */
-bool gain_mutation(player_type *creature_ptr, MUTATION_IDX choose_mut)
-{
-    int attempts_left = 20;
-    if (choose_mut)
-        attempts_left = 1;
-
-    gm_type tmp_gm;
-    gm_type *gm_ptr = initialize_gm_type(&tmp_gm, choose_mut);
-    while (attempts_left--) {
-        switch_gain_mutation(creature_ptr, gm_ptr);
-        if ((gm_ptr->muta_class != NULL) && (gm_ptr->muta_which != 0) && ((*gm_ptr->muta_class & gm_ptr->muta_which) == 0))
-            gm_ptr->muta_chosen = TRUE;
-
-        if (gm_ptr->muta_chosen)
-            break;
-    }
-
-    if (!gm_ptr->muta_chosen) {
-        msg_print(_("普通になった気がする。", "You feel normal."));
-        return FALSE;
-    }
-
-    chg_virtue(creature_ptr, V_CHANCE, 1);
-    race_dependent_mutation(creature_ptr, gm_ptr);
-    msg_print(_("突然変異した！", "You mutate!"));
-    msg_print(gm_ptr->muta_desc);
-    *gm_ptr->muta_class |= gm_ptr->muta_which;
-    if (gm_ptr->muta_class == &(creature_ptr->muta3)) {
-        if (gm_ptr->muta_which == MUT3_PUNY) {
-            if (creature_ptr->muta3 & MUT3_HYPER_STR) {
-                msg_print(_("あなたはもう超人的に強くはない！", "You no longer feel super-strong!"));
-                creature_ptr->muta3 &= ~(MUT3_HYPER_STR);
-            }
-        } else if (gm_ptr->muta_which == MUT3_HYPER_STR) {
-            if (creature_ptr->muta3 & MUT3_PUNY) {
-                msg_print(_("あなたはもう虚弱ではない！", "You no longer feel puny!"));
-                creature_ptr->muta3 &= ~(MUT3_PUNY);
-            }
-        } else if (gm_ptr->muta_which == MUT3_MORONIC) {
-            if (creature_ptr->muta3 & MUT3_HYPER_INT) {
-                msg_print(_("あなたの脳はもう生体コンピュータではない。", "Your brain is no longer a living computer."));
-                creature_ptr->muta3 &= ~(MUT3_HYPER_INT);
-            }
-        } else if (gm_ptr->muta_which == MUT3_HYPER_INT) {
-            if (creature_ptr->muta3 & MUT3_MORONIC) {
-                msg_print(_("あなたはもう精神薄弱ではない。", "You are no longer moronic."));
-                creature_ptr->muta3 &= ~(MUT3_MORONIC);
-            }
-        } else if (gm_ptr->muta_which == MUT3_IRON_SKIN) {
-            if (creature_ptr->muta3 & MUT3_SCALES) {
-                msg_print(_("鱗がなくなった。", "You lose your scales."));
-                creature_ptr->muta3 &= ~(MUT3_SCALES);
-            }
-            if (creature_ptr->muta3 & MUT3_FLESH_ROT) {
-                msg_print(_("肉体が腐乱しなくなった。", "Your flesh rots no longer."));
-                creature_ptr->muta3 &= ~(MUT3_FLESH_ROT);
-            }
-            if (creature_ptr->muta3 & MUT3_WART_SKIN) {
-                msg_print(_("肌のイボイボがなくなった。", "You lose your warts."));
-                creature_ptr->muta3 &= ~(MUT3_WART_SKIN);
-            }
-        } else if (gm_ptr->muta_which == MUT3_WART_SKIN || gm_ptr->muta_which == MUT3_SCALES || gm_ptr->muta_which == MUT3_FLESH_ROT) {
-            if (creature_ptr->muta3 & MUT3_IRON_SKIN) {
-                msg_print(_("あなたの肌はもう鉄ではない。", "Your skin is no longer made of steel."));
-                creature_ptr->muta3 &= ~(MUT3_IRON_SKIN);
-            }
-        } else if (gm_ptr->muta_which == MUT3_FEARLESS) {
-            if (creature_ptr->muta2 & MUT2_COWARDICE) {
-                msg_print(_("臆病でなくなった。", "You are no longer cowardly."));
-                creature_ptr->muta2 &= ~(MUT2_COWARDICE);
-            }
-        } else if (gm_ptr->muta_which == MUT3_FLESH_ROT) {
-            if (creature_ptr->muta3 & MUT3_REGEN) {
-                msg_print(_("急速に回復しなくなった。", "You stop regenerating."));
-                creature_ptr->muta3 &= ~(MUT3_REGEN);
-            }
-        } else if (gm_ptr->muta_which == MUT3_REGEN) {
-            if (creature_ptr->muta3 & MUT3_FLESH_ROT) {
-                msg_print(_("肉体が腐乱しなくなった。", "Your flesh stops rotting."));
-                creature_ptr->muta3 &= ~(MUT3_FLESH_ROT);
-            }
-        } else if (gm_ptr->muta_which == MUT3_LIMBER) {
-            if (creature_ptr->muta3 & MUT3_ARTHRITIS) {
-                msg_print(_("関節が痛くなくなった。", "Your joints stop hurting."));
-                creature_ptr->muta3 &= ~(MUT3_ARTHRITIS);
-            }
-        } else if (gm_ptr->muta_which == MUT3_ARTHRITIS) {
-            if (creature_ptr->muta3 & MUT3_LIMBER) {
-                msg_print(_("あなたはしなやかでなくなった。", "You no longer feel limber."));
-                creature_ptr->muta3 &= ~(MUT3_LIMBER);
-            }
-        }
-    } else if (gm_ptr->muta_class == &(creature_ptr->muta2)) {
-        if (gm_ptr->muta_which == MUT2_COWARDICE) {
-            if (creature_ptr->muta3 & MUT3_FEARLESS) {
-                msg_print(_("恐れ知らずでなくなった。", "You no longer feel fearless."));
-                creature_ptr->muta3 &= ~(MUT3_FEARLESS);
-            }
-        }
-
-        if (gm_ptr->muta_which == MUT2_BEAK) {
-            if (creature_ptr->muta2 & MUT2_TRUNK) {
-                msg_print(_("あなたの鼻はもう象の鼻のようではなくなった。", "Your nose is no longer elephantine."));
-                creature_ptr->muta2 &= ~(MUT2_TRUNK);
-            }
-        }
-
-        if (gm_ptr->muta_which == MUT2_TRUNK) {
-            if (creature_ptr->muta2 & MUT2_BEAK) {
-                msg_print(_("硬いクチバシがなくなった。", "You no longer have a hard beak."));
-                creature_ptr->muta2 &= ~(MUT2_BEAK);
-            }
-        }
-    }
-
-    creature_ptr->mutant_regenerate_mod = calc_mutant_regenerate_mod(creature_ptr);
-    creature_ptr->update |= PU_BONUS;
-    handle_stuff(creature_ptr);
-    return TRUE;
-}
-
-/*!
- * @brief プレイヤーから突然変異を取り除く
- * @param choose_mut 取り除きたい突然変異のID、0ならばランダムに消去
- * @return なし
- */
-bool lose_mutation(player_type *creature_ptr, MUTATION_IDX choose_mut)
-{
-    int attempts_left = 20;
-    concptr muta_desc = "";
-    bool muta_chosen = FALSE;
-    int muta_which = 0; // mutation_flag_type_1 とmutation_flag_type_2 の両対応とするため、敢えてint型で定義する
-    BIT_FLAGS *muta_class = NULL;
-    if (choose_mut)
-        attempts_left = 1;
-
-    while (attempts_left--) {
-        switch (choose_mut ? choose_mut : randint1(193)) {
-        case 1:
-        case 2:
-        case 3:
-        case 4:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_SPIT_ACID;
-            muta_desc = _("酸を吹きかける能力を失った。", "You lose the ability to spit acid.");
-            break;
-        case 5:
-        case 6:
-        case 7:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_BR_FIRE;
-            muta_desc = _("炎のブレスを吐く能力を失った。", "You lose the ability to breathe fire.");
-            break;
-        case 8:
-        case 9:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_HYPN_GAZE;
-            muta_desc = _("あなたの目はつまらない目になった。", "Your eyes look uninteresting.");
-            break;
-        case 10:
-        case 11:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_TELEKINES;
-            muta_desc = _("念動力で物を動かす能力を失った。", "You lose the ability to move objects telekinetically.");
-            break;
-        case 12:
-        case 13:
-        case 14:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_VTELEPORT;
-            muta_desc = _("自分の意思でテレポートする能力を失った。", "You lose the power of teleportation at will.");
-            break;
-        case 15:
-        case 16:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_MIND_BLST;
-            muta_desc = _("精神攻撃の能力を失った。", "You lose the power of Mind Blast.");
-            break;
-        case 17:
-        case 18:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_RADIATION;
-            muta_desc = _("あなたは放射能を発生しなくなった。", "You stop emitting hard radiation.");
-            break;
-        case 19:
-        case 20:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_VAMPIRISM;
-            muta_desc = _("吸血の能力を失った。", "You are no longer vampiric.");
-            break;
-        case 21:
-        case 22:
-        case 23:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_SMELL_MET;
-            muta_desc = _("金属の臭いを嗅げなくなった。", "You no longer smell a metallic odor.");
-            break;
-        case 24:
-        case 25:
-        case 26:
-        case 27:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_SMELL_MON;
-            muta_desc = _("不潔なモンスターの臭いを嗅げなくなった。", "You no longer smell filthy monsters.");
-            break;
-        case 28:
-        case 29:
-        case 30:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_BLINK;
-            muta_desc = _("近距離テレポートの能力を失った。", "You lose the power of minor teleportation.");
-            break;
-        case 31:
-        case 32:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_EAT_ROCK;
-            muta_desc = _("壁は美味しそうに見えなくなった。", "The walls look unappetizing.");
-            break;
-        case 33:
-        case 34:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_SWAP_POS;
-            muta_desc = _("あなたは自分の靴に留まる感じがする。", "You feel like staying in your own shoes.");
-            break;
-        case 35:
-        case 36:
-        case 37:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_SHRIEK;
-            muta_desc = _("あなたの声質は弱くなった。", "Your vocal cords get much weaker.");
-            break;
-        case 38:
-        case 39:
-        case 40:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_ILLUMINE;
-            muta_desc = _("部屋を明るく照らすことが出来なくなった。", "You can no longer light up rooms with your presence.");
-            break;
-        case 41:
-        case 42:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_DET_CURSE;
-            muta_desc = _("邪悪な魔法を感じられなくなった。", "You can no longer feel evil magics.");
-            break;
-        case 43:
-        case 44:
-        case 45:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_BERSERK;
-            muta_desc = _("制御できる激情を感じなくなった。", "You no longer feel a controlled rage.");
-            break;
-        case 46:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_POLYMORPH;
-            muta_desc = _("あなたの体は安定したように見える。", "Your body seems stable.");
-            break;
-        case 47:
-        case 48:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_MIDAS_TCH;
-            muta_desc = _("ミダスの手の能力を失った。", "You lose the Midas touch.");
-            break;
-        case 49:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_GROW_MOLD;
-            muta_desc = _("突然カビが嫌いになった。", "You feel a sudden dislike for mold.");
-            break;
-        case 50:
-        case 51:
-        case 52:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_RESIST;
-            muta_desc = _("傷つき易くなった気がする。", "You feel like you might be vulnerable.");
-            break;
-        case 53:
-        case 54:
-        case 55:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_EARTHQUAKE;
-            muta_desc = _("ダンジョンを壊す能力を失った。", "You lose the ability to wreck the dungeon.");
-            break;
-        case 56:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_EAT_MAGIC;
-            muta_desc = _("魔法のアイテムはもう美味しそうに見えなくなった。", "Your magic items no longer look delicious.");
-            break;
-        case 57:
-        case 58:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_WEIGH_MAG;
-            muta_desc = _("魔力を感じられなくなった。", "You no longer sense magic.");
-            break;
-        case 59:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_STERILITY;
-            muta_desc = _("たくさんの安堵の吐息が聞こえた。", "You hear a massed sigh of relief.");
-            break;
-        case 60:
-        case 61:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_HIT_AND_AWAY;
-            muta_desc = _("あちこちへ跳べる気分がなくなった。", "You no longer feel jumpy.");
-            break;
-        case 62:
-        case 63:
-        case 64:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_DAZZLE;
-            muta_desc = _("まばゆい閃光を発する能力を失った。", "You lose the ability to emit dazzling lights.");
-            break;
-        case 65:
-        case 66:
-        case 67:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_LASER_EYE;
-            muta_desc = _("眼が少しの間焼き付いて、痛みが和らいだ。", "Your eyes burn for a moment, then feel soothed.");
-            break;
-        case 68:
-        case 69:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_RECALL;
-            muta_desc = _("少しの間ホームシックになった。", "You feel briefly homesick.");
-            break;
-        case 70:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_BANISH;
-            muta_desc = _("神聖な怒りの力を感じなくなった。", "You no longer feel a holy wrath.");
-            break;
-        case 71:
-        case 72:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_COLD_TOUCH;
-            muta_desc = _("手が暖かくなった。", "Your hands warm up.");
-            break;
-        case 73:
-        case 74:
-            muta_class = &(creature_ptr->muta1);
-            muta_which = MUT1_LAUNCHER;
-            muta_desc = _("物を投げる手が弱くなった気がする。", "Your throwing arm feels much weaker.");
-            break;
-        case 75:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_BERS_RAGE;
-            muta_desc = _("凶暴化の発作にさらされなくなった！", "You are no longer subject to fits of berserk rage!");
-            break;
-        case 76:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_COWARDICE;
-            muta_desc = _("もう信じがたいほど臆病ではなくなった！", "You are no longer an incredible coward!");
-            break;
-        case 77:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_RTELEPORT;
-            muta_desc = _("あなたの位置はより確定的になった。", "Your position seems more certain.");
-            break;
-        case 78:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_ALCOHOL;
-            muta_desc = _("あなたはアルコールを分泌しなくなった！", "Your body stops producing alcohol!");
-            break;
-        case 79:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_HALLU;
-            muta_desc = _("幻覚をひき起こす精神障害を起こさなくなった！", "You are no longer afflicted by a hallucinatory insanity!");
-            break;
-        case 80:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_FLATULENT;
-            muta_desc = _("もう強烈な屁はこかなくなった。", "You are no longer subject to uncontrollable flatulence.");
-            break;
-        case 81:
-        case 82:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_SCOR_TAIL;
-            muta_desc = _("サソリの尻尾がなくなった！", "You lose your scorpion tail!");
-            break;
-        case 83:
-        case 84:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_HORNS;
-            muta_desc = _("額から角が消えた！", "Your horns vanish from your forehead!");
-            break;
-        case 85:
-        case 86:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_BEAK;
-            muta_desc = _("口が普通に戻った！", "Your mouth reverts to normal!");
-            break;
-        case 87:
-        case 88:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_ATT_DEMON;
-            muta_desc = _("デーモンを引き寄せなくなった。", "You stop attracting demons.");
-            break;
-        case 89:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_PROD_MANA;
-            muta_desc = _("制御不能な魔法のエネルギーを発生しなくなった。", "You stop producing magical energy uncontrollably.");
-            break;
-        case 90:
-        case 91:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_SPEED_FLUX;
-            muta_desc = _("躁鬱質でなくなった。", "You are no longer manic-depressive.");
-            break;
-        case 92:
-        case 93:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_BANISH_ALL;
-            muta_desc = _("背後に恐ろしい力を感じなくなった。", "You no longer feel a terrifying power lurking behind you.");
-            break;
-        case 94:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_EAT_LIGHT;
-            muta_desc = _("世界が明るいと感じる。", "You feel the world's a brighter place.");
-            break;
-        case 95:
-        case 96:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_TRUNK;
-            muta_desc = _("鼻が普通の長さに戻った。", "Your nose returns to a normal length.");
-            break;
-        case 97:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_ATT_ANIMAL;
-            muta_desc = _("動物を引き寄せなくなった。", "You stop attracting animals.");
-            break;
-        case 98:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_TENTACLES;
-            muta_desc = _("触手が消えた。", "Your tentacles vanish from your sides.");
-            break;
-        case 99:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_RAW_CHAOS;
-            muta_desc = _("周囲の空間が安定した気がする。", "You feel the universe is more stable around you.");
-            break;
-        case 100:
-        case 101:
-        case 102:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_NORMALITY;
-            muta_desc = _("普通に奇妙な感じがする。", "You feel normally strange.");
-            break;
-        case 103:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_WRAITH;
-            muta_desc = _("あなたは物質世界にしっかり存在している。", "You are firmly in the physical world.");
-            break;
-        case 104:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_POLY_WOUND;
-            muta_desc = _("古い傷からカオスの力が去っていった。", "You feel forces of chaos departing your old scars.");
-            break;
-        case 105:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_WASTING;
-            muta_desc = _("おぞましい衰弱病が治った！", "You are cured of the horrible wasting disease!");
-            break;
-        case 106:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_ATT_DRAGON;
-            muta_desc = _("ドラゴンを引き寄せなくなった。", "You stop attracting dragons.");
-            break;
-        case 107:
-        case 108:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_WEIRD_MIND;
-            muta_desc = _("思考が退屈な方向に戻った。", "Your thoughts return to boring paths.");
-            break;
-        case 109:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_NAUSEA;
-            muta_desc = _("胃が痙攣しなくなった。", "Your stomach stops roiling.");
-            break;
-        case 110:
-        case 111:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_CHAOS_GIFT;
-            muta_desc = _("混沌の神々の興味を惹かなくなった。", "You lose the attention of the chaos deities.");
-            break;
-        case 112:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_WALK_SHAD;
-            muta_desc = _("物質世界に捕らわれている気がする。", "You feel like you're trapped in reality.");
-            break;
-        case 113:
-        case 114:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_WARNING;
-            muta_desc = _("パラノイアでなくなった。", "You no longer feel paranoid.");
-            break;
-        case 115:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_INVULN;
-            muta_desc = _("無敵状態の発作を起こさなくなった。", "You are no longer blessed with fits of invulnerability.");
-            break;
-        case 116:
-        case 117:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_SP_TO_HP;
-            muta_desc = _("魔法の治癒の発作に襲われなくなった。", "You are no longer subject to fits of magical healing.");
-            break;
-        case 118:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_HP_TO_SP;
-            muta_desc = _("痛みを伴う精神明瞭化の発作に襲われなくなった。", "You are no longer subject to fits of painful clarity.");
-            break;
-        case 119:
-            muta_class = &(creature_ptr->muta2);
-            muta_which = MUT2_DISARM;
-            muta_desc = _("脚が元の大きさに戻った。", "Your feet shrink to their former size.");
-            break;
-        case 120:
-        case 121:
-        case 122:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_HYPER_STR;
-            muta_desc = _("筋肉が普通に戻った。", "Your muscles revert to normal.");
-            break;
-        case 123:
-        case 124:
-        case 125:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_PUNY;
-            muta_desc = _("筋肉が普通に戻った。", "Your muscles revert to normal.");
-            break;
-        case 126:
-        case 127:
-        case 128:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_HYPER_INT;
-            muta_desc = _("脳が普通に戻った。", "Your brain reverts to normal.");
-            break;
-        case 129:
-        case 130:
-        case 131:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_MORONIC;
-            muta_desc = _("脳が普通に戻った。", "Your brain reverts to normal.");
-            break;
-        case 132:
-        case 133:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_RESILIENT;
-            muta_desc = _("普通の丈夫さに戻った。", "You become ordinarily resilient again.");
-            break;
-        case 134:
-        case 135:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_XTRA_FAT;
-            muta_desc = _("奇跡的なダイエットに成功した！", "You benefit from a miracle diet!");
-            break;
-        case 136:
-        case 137:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_ALBINO;
-            muta_desc = _("アルビノでなくなった！", "You are no longer an albino!");
-            break;
-        case 138:
-        case 139:
-        case 140:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_FLESH_ROT;
-            muta_desc = _("肉体を腐敗させる病気が治った！", "Your flesh is no longer afflicted by a rotting disease!");
-            break;
-        case 141:
-        case 142:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_SILLY_VOI;
-            muta_desc = _("声質が普通に戻った。", "Your voice returns to normal.");
-            break;
-        case 143:
-        case 144:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_BLANK_FAC;
-            muta_desc = _("顔に目鼻が戻った。", "Your facial features return.");
-            break;
-        case 145:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_ILL_NORM;
-            muta_desc = _("心が安らぐ幻影を映し出さなくなった。", "You stop projecting a reassuring image.");
-            break;
-        case 146:
-        case 147:
-        case 148:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_XTRA_EYES;
-            muta_desc = _("余分な目が消えてしまった！", "Your extra eyes vanish!");
-            break;
-        case 149:
-        case 150:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_MAGIC_RES;
-            muta_desc = _("魔法に弱くなった。", "You become susceptible to magic again.");
-            break;
-        case 151:
-        case 152:
-        case 153:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_XTRA_NOIS;
-            muta_desc = _("奇妙な音を立てなくなった！", "You stop making strange noise!");
-            break;
-        case 154:
-        case 155:
-        case 156:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_INFRAVIS;
-            muta_desc = _("赤外線視力が落ちた。", "Your infravision is degraded.");
-            break;
-        case 157:
-        case 158:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_XTRA_LEGS;
-            muta_desc = _("余分な脚が消えてしまった！", "Your extra legs disappear!");
-            break;
-        case 159:
-        case 160:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_SHORT_LEG;
-            muta_desc = _("脚の長さが普通に戻った。", "Your legs lengthen to normal.");
-            break;
-        case 161:
-        case 162:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_ELEC_TOUC;
-            muta_desc = _("体を電流が流れなくなった。", "Electricity stops running through you.");
-            break;
-        case 163:
-        case 164:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_FIRE_BODY;
-            muta_desc = _("体が炎に包まれなくなった。", "Your body is no longer enveloped in flames.");
-            break;
-        case 165:
-        case 166:
-        case 167:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_WART_SKIN;
-            muta_desc = _("イボイボが消えた！", "Your warts disappear!");
-            break;
-        case 168:
-        case 169:
-        case 170:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_SCALES;
-            muta_desc = _("鱗が消えた！", "Your scales vanish!");
-            break;
-        case 171:
-        case 172:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_IRON_SKIN;
-            muta_desc = _("肌が肉にもどった！", "Your skin reverts to flesh!");
-            break;
-        case 173:
-        case 174:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_WINGS;
-            muta_desc = _("背中の羽根が取れ落ちた。", "Your wings fall off.");
-            break;
-        case 175:
-        case 176:
-        case 177:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_FEARLESS;
-            muta_desc = _("再び恐怖を感じるようになった。", "You begin to feel fear again.");
-            break;
-        case 178:
-        case 179:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_REGEN;
-            muta_desc = _("急速回復しなくなった。", "You stop regenerating.");
-            break;
-        case 180:
-        case 181:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_ESP;
-            muta_desc = _("テレパシーの能力を失った！", "You lose your telepathic ability!");
-            break;
-        case 182:
-        case 183:
-        case 184:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_LIMBER;
-            muta_desc = _("筋肉が硬くなった。", "Your muscles stiffen.");
-            break;
-        case 185:
-        case 186:
-        case 187:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_ARTHRITIS;
-            muta_desc = _("関節が痛くなくなった。", "Your joints stop hurting.");
-            break;
-        case 188:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_BAD_LUCK;
-            muta_desc = _("黒いオーラは渦巻いて消えた。", "Your black aura swirls and fades.");
-            break;
-        case 189:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_VULN_ELEM;
-            muta_desc = _("無防備な感じはなくなった。", "You feel less exposed.");
-            break;
-        case 190:
-        case 191:
-        case 192:
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_MOTION;
-            muta_desc = _("動作の正確さがなくなった。", "You move with less assurance.");
-            break;
-        case 193:
-            if (creature_ptr->pseikaku == PERSONALITY_LUCKY)
-                break;
-            muta_class = &(creature_ptr->muta3);
-            muta_which = MUT3_GOOD_LUCK;
-            muta_desc = _("白いオーラは輝いて消えた。", "Your white aura shimmers and fades.");
-            break;
-        default:
-            muta_class = NULL;
-            muta_which = 0;
-            break;
-        }
-
-        if (muta_class && muta_which) {
-            if (*(muta_class)&muta_which) {
-                muta_chosen = TRUE;
-            }
-        }
-
-        if (muta_chosen == TRUE)
-            break;
-    }
-
-    if (!muta_chosen)
-        return FALSE;
-
-    msg_print(muta_desc);
-    *muta_class &= ~(muta_which);
-    creature_ptr->update |= PU_BONUS;
-    handle_stuff(creature_ptr);
-    creature_ptr->mutant_regenerate_mod = calc_mutant_regenerate_mod(creature_ptr);
-    return TRUE;
-}
-
-void lose_all_mutations(player_type *creature_ptr)
-{
-    if (creature_ptr->muta1 || creature_ptr->muta2 || creature_ptr->muta3) {
-        chg_virtue(creature_ptr, V_CHANCE, -5);
-        msg_print(_("全ての突然変異が治った。", "You are cured of all mutations."));
-        creature_ptr->muta1 = creature_ptr->muta2 = creature_ptr->muta3 = 0;
-        creature_ptr->update |= PU_BONUS;
-        handle_stuff(creature_ptr);
-        creature_ptr->mutant_regenerate_mod = calc_mutant_regenerate_mod(creature_ptr);
-    }
-}
-
-/*!
- * @brief 現在プレイヤー得ている突然変異の数を返す。
- * @return 現在得ている突然変異の数
- */
-static int count_mutations(player_type *creature_ptr)
-{
-    return count_bits(creature_ptr->muta1) + count_bits(creature_ptr->muta2) + count_bits(creature_ptr->muta3);
-}
-
-/*!
- * @brief 突然変異による自然回復ペナルティをパーセント値で返す /
- * Return the modifier to the regeneration rate (in percent)
- * @return ペナルティ修正(%)
- * @details
- * Beastman get 10 "free" mutations and only 5% decrease per additional mutation.
- * Max 90% decrease in regeneration speed.
- */
-int calc_mutant_regenerate_mod(player_type *creature_ptr)
-{
-    int regen;
-    int mod = 10;
-    int count = count_mutations(creature_ptr);
-    if (creature_ptr->pseikaku == PERSONALITY_LUCKY)
-        count--;
-
-    if (creature_ptr->prace == RACE_BEASTMAN) {
-        count -= 10;
-        mod = 5;
-    }
-
-    if (count <= 0)
-        return 100;
-
-    regen = 100 - count * mod;
-    if (regen < 10)
-        regen = 10;
-
-    return (regen);
-}
-
-/*!
- * @brief 突然変異のレイシャル効果実装
- * @param creature_ptr プレーヤーへの参照ポインタ
- * @param power 発動させる突然変異レイシャルのID
- * @return レイシャルを実行した場合TRUE、キャンセルした場合FALSEを返す
- */
-bool exe_mutation_power(player_type *creature_ptr, int power)
-{
-    DIRECTION dir = 0;
-    PLAYER_LEVEL lvl = creature_ptr->lev;
-    switch (power) {
-    case MUT1_SPIT_ACID:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        stop_mouth(creature_ptr);
-        msg_print(_("酸を吐きかけた...", "You spit acid..."));
-        fire_ball(creature_ptr, GF_ACID, dir, lvl, 1 + (lvl / 30));
-        return TRUE;
-    case MUT1_BR_FIRE:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        stop_mouth(creature_ptr);
-        msg_print(_("あなたは火炎のブレスを吐いた...", "You breathe fire..."));
-        fire_breath(creature_ptr, GF_FIRE, dir, lvl * 2, 1 + (lvl / 20));
-        return TRUE;
-    case MUT1_HYPN_GAZE:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        msg_print(_("あなたの目は幻惑的になった...", "Your eyes look mesmerizing..."));
-        (void)charm_monster(creature_ptr, dir, lvl);
-        return TRUE;
-    case MUT1_TELEKINES:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        msg_print(_("集中している...", "You concentrate..."));
-        fetch_item(creature_ptr, dir, lvl * 10, TRUE);
-        return TRUE;
-    case MUT1_VTELEPORT:
-        msg_print(_("集中している...", "You concentrate..."));
-        teleport_player(creature_ptr, 10 + 4 * lvl, TELEPORT_SPONTANEOUS);
-        return TRUE;
-    case MUT1_MIND_BLST:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        msg_print(_("集中している...", "You concentrate..."));
-        fire_bolt(creature_ptr, GF_PSI, dir, damroll(3 + ((lvl - 1) / 5), 3));
-        return TRUE;
-    case MUT1_RADIATION:
-        msg_print(_("体から放射能が発生した！", "Radiation flows from your body!"));
-        fire_ball(creature_ptr, GF_NUKE, 0, (lvl * 2), 3 + (lvl / 20));
-        return TRUE;
-    case MUT1_VAMPIRISM:
-        vampirism(creature_ptr);
-        return TRUE;
-    case MUT1_SMELL_MET:
-        stop_mouth(creature_ptr);
-        (void)detect_treasure(creature_ptr, DETECT_RAD_DEFAULT);
-        return TRUE;
-    case MUT1_SMELL_MON:
-        stop_mouth(creature_ptr);
-        (void)detect_monsters_normal(creature_ptr, DETECT_RAD_DEFAULT);
-        return TRUE;
-    case MUT1_BLINK:
-        teleport_player(creature_ptr, 10, TELEPORT_SPONTANEOUS);
-        return TRUE;
-    case MUT1_EAT_ROCK:
-        return eat_rock(creature_ptr);
-    case MUT1_SWAP_POS:
-        project_length = -1;
-        if (!get_aim_dir(creature_ptr, &dir)) {
-            project_length = 0;
-            return FALSE;
-        }
-
-        (void)teleport_swap(creature_ptr, dir);
-        project_length = 0;
-        return TRUE;
-    case MUT1_SHRIEK:
-        stop_mouth(creature_ptr);
-        (void)fire_ball(creature_ptr, GF_SOUND, 0, 2 * lvl, 8);
-        (void)aggravate_monsters(creature_ptr, 0);
-        return TRUE;
-    case MUT1_ILLUMINE:
-        (void)lite_area(creature_ptr, damroll(2, (lvl / 2)), (lvl / 10) + 1);
-        return TRUE;
-    case MUT1_DET_CURSE:
-        for (int i = 0; i < INVEN_TOTAL; i++) {
-            object_type *o_ptr = &creature_ptr->inventory_list[i];
-            if ((o_ptr->k_idx == 0) || !object_is_cursed(o_ptr))
-                continue;
-
-            o_ptr->feeling = FEEL_CURSED;
-        }
-
-        return TRUE;
-    case MUT1_BERSERK:
-        (void)berserk(creature_ptr, randint1(25) + 25);
-        return TRUE;
-    case MUT1_POLYMORPH:
-        if (!get_check(_("変身します。よろしいですか？", "You will polymorph your self. Are you sure? ")))
-            return FALSE;
-
-        do_poly_self(creature_ptr);
-        return TRUE;
-    case MUT1_MIDAS_TCH:
-        return alchemy(creature_ptr);
-    case MUT1_GROW_MOLD:
-        for (DIRECTION i = 0; i < 8; i++)
-            summon_specific(creature_ptr, -1, creature_ptr->y, creature_ptr->x, lvl, SUMMON_MOLD, PM_FORCE_PET);
-
-        return TRUE;
-    case MUT1_RESIST: {
-        int num = lvl / 10;
-        TIME_EFFECT dur = randint1(20) + 20;
-        if (randint0(5) < num) {
-            (void)set_oppose_acid(creature_ptr, dur, FALSE);
-            num--;
-        }
-
-        if (randint0(4) < num) {
-            (void)set_oppose_elec(creature_ptr, dur, FALSE);
-            num--;
-        }
-
-        if (randint0(3) < num) {
-            (void)set_oppose_fire(creature_ptr, dur, FALSE);
-            num--;
-        }
-
-        if (randint0(2) < num) {
-            (void)set_oppose_cold(creature_ptr, dur, FALSE);
-            num--;
-        }
-
-        if (num != 0) {
-            (void)set_oppose_pois(creature_ptr, dur, FALSE);
-            num--;
-        }
-
-        return TRUE;
-    }
-    case MUT1_EARTHQUAKE:
-        (void)earthquake(creature_ptr, creature_ptr->y, creature_ptr->x, 10, 0);
-        return TRUE;
-    case MUT1_EAT_MAGIC:
-        return eat_magic(creature_ptr, creature_ptr->lev * 2);
-    case MUT1_WEIGH_MAG:
-        report_magics(creature_ptr);
-        return TRUE;
-    case MUT1_STERILITY:
-        msg_print(_("突然頭が痛くなった！", "You suddenly have a headache!"));
-        take_hit(creature_ptr, DAMAGE_LOSELIFE, randint1(17) + 17, _("禁欲を強いた疲労", "the strain of forcing abstinence"), -1);
-        creature_ptr->current_floor_ptr->num_repro += MAX_REPRO;
-        return TRUE;
-    case MUT1_HIT_AND_AWAY:
-        return hit_and_away(creature_ptr);
-    case MUT1_DAZZLE:
-        stun_monsters(creature_ptr, lvl * 4);
-        confuse_monsters(creature_ptr, lvl * 4);
-        turn_monsters(creature_ptr, lvl * 4);
-        return TRUE;
-    case MUT1_LASER_EYE:
-        if (!get_aim_dir(creature_ptr, &dir))
-            return FALSE;
-
-        fire_beam(creature_ptr, GF_LITE, dir, 2 * lvl);
-        return TRUE;
-    case MUT1_RECALL:
-        return recall_player(creature_ptr, randint0(21) + 15);
-    case MUT1_BANISH: {
-        if (!get_direction(creature_ptr, &dir, FALSE, FALSE))
-            return FALSE;
-
-        POSITION y = creature_ptr->y + ddy[dir];
-        POSITION x = creature_ptr->x + ddx[dir];
-        grid_type *g_ptr;
-        g_ptr = &creature_ptr->current_floor_ptr->grid_array[y][x];
-
-        if (!g_ptr->m_idx) {
-            msg_print(_("邪悪な存在を感じとれません！", "You sense no evil there!"));
-            return TRUE;
-        }
-
-        monster_type *m_ptr;
-        m_ptr = &creature_ptr->current_floor_ptr->m_list[g_ptr->m_idx];
-        monster_race *r_ptr;
-        r_ptr = &r_info[m_ptr->r_idx];
-        if ((r_ptr->flags3 & RF3_EVIL) && !(r_ptr->flags1 & RF1_QUESTOR) && !(r_ptr->flags1 & RF1_UNIQUE) && !creature_ptr->current_floor_ptr->inside_arena
-            && !creature_ptr->current_floor_ptr->inside_quest && (r_ptr->level < randint1(creature_ptr->lev + 50)) && !(m_ptr->mflag2 & MFLAG2_NOGENO)) {
-            if (record_named_pet && is_pet(m_ptr) && m_ptr->nickname) {
-                GAME_TEXT m_name[MAX_NLEN];
-                monster_desc(creature_ptr, m_name, m_ptr, MD_INDEF_VISIBLE);
-                exe_write_diary(creature_ptr, DIARY_NAMED_PET, RECORD_NAMED_PET_GENOCIDE, m_name);
-            }
-
-            delete_monster_idx(creature_ptr, g_ptr->m_idx);
-            msg_print(_("その邪悪なモンスターは硫黄臭い煙とともに消え去った！", "The evil creature vanishes in a puff of sulfurous smoke!"));
-            return TRUE;
-        }
-
-        msg_print(_("祈りは効果がなかった！", "Your invocation is ineffectual!"));
-        if (one_in_(13))
-            m_ptr->mflag2 |= MFLAG2_NOGENO;
-
-        return TRUE;
-    }
-    case MUT1_COLD_TOUCH: {
-        if (!get_direction(creature_ptr, &dir, FALSE, FALSE))
-            return FALSE;
-
-        POSITION y = creature_ptr->y + ddy[dir];
-        POSITION x = creature_ptr->x + ddx[dir];
-        grid_type *g_ptr;
-        g_ptr = &creature_ptr->current_floor_ptr->grid_array[y][x];
-        if (!g_ptr->m_idx) {
-            msg_print(_("あなたは何もない場所で手を振った。", "You wave your hands in the air."));
-            return TRUE;
-        }
-
-        fire_bolt(creature_ptr, GF_COLD, dir, 2 * lvl);
-        return TRUE;
-    }
-    case 3:
-        return do_cmd_throw(creature_ptr, 2 + lvl / 40, FALSE, -1);
-    default:
-        free_turn(creature_ptr);
-        msg_format(_("能力 %s は実装されていません。", "Power %s not implemented. Oops."), power);
-        return TRUE;
-    }
-}
-
-void become_living_trump(player_type *creature_ptr)
-{
-    /* 1/7 Teleport control and 6/7 Random teleportation (uncontrolled) */
-    MUTATION_IDX mutation = one_in_(7) ? 12 : 77;
-    if (gain_mutation(creature_ptr, mutation))
-        msg_print(_("あなたは生きているカードに変わった。", "You have turned into a Living Trump."));
-}
-
-void set_mutation_flags(player_type *creature_ptr)
-{
-    if (creature_ptr->muta3 == 0)
-        return;
-
-    if (creature_ptr->muta3 & MUT3_FLESH_ROT)
-        creature_ptr->regenerate = FALSE;
-
-    if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
-        creature_ptr->lite = TRUE;
-    }
-
-    if (creature_ptr->muta3 & MUT3_WINGS)
-        creature_ptr->levitation = TRUE;
-
-    if (creature_ptr->muta3 & MUT3_FEARLESS)
-        creature_ptr->resist_fear = TRUE;
-
-    if (creature_ptr->muta3 & MUT3_REGEN)
-        creature_ptr->regenerate = TRUE;
-
-    if (creature_ptr->muta3 & MUT3_MOTION)
-        creature_ptr->free_act = TRUE;
-}
diff --git a/src/player/selfinfo.c b/src/player/selfinfo.c
deleted file mode 100644
index faf40343e..000000000
--- a/src/player/selfinfo.c
+++ /dev/null
@@ -1,1430 +0,0 @@
-/*!
- * @file selfinfo.c
- * @brief 自己分析処理/ Self knowledge
- * @date 2018/09/07
- * @author
- * <pre>
- * 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.
- * </pre>
- * 2018 Deskull
- * @details
- * spell2s.cから分離
- */
-
-#include "player/selfinfo.h"
-#include "inventory/inventory-slot-types.h"
-#include "io/input-key-acceptor.h"
-#include "mutation/mutation-flag-types.h"
-#include "object-enchant/tr-types.h"
-#include "object-enchant/trc-types.h"
-#include "object/object-flags.h"
-#include "player/attack-defense-types.h"
-#include "player/avatar.h"
-#include "player/player-class.h"
-#include "player/player-race-types.h"
-#include "player/player-race.h"
-#include "player/player-status-table.h"
-#include "realm/realm-names-table.h"
-#include "realm/realm-song-numbers.h"
-#include "status/element-resistance.h"
-#include "term/screen-processor.h"
-#include "util/bit-flags-calculator.h"
-#include "player/player-status-flags.h"
-
-/*!
- * @brief 自己分析処理(Nethackからのアイデア) / self-knowledge... idea from nethack.
- * @return なし
- * @details
- * <pre>
- * Useful for determining powers and
- * resistences of items.  It saves the screen, clears it, then starts listing
- * attributes, a screenful at a time.  (There are a LOT of attributes to
- * list.  It will probably take 2 or 3 screens for a powerful character whose
- * using several artifacts...) -CFT
- *
- * It is now a lot more efficient. -BEN-
- *
- * See also "identify_fully()".
- *
- * Use the "show_file()" method, perhaps.
- * </pre>
- */
-void self_knowledge(player_type *creature_ptr)
-{
-    int i = 0, j, k;
-
-    int v_nr = 0;
-    char v_string[8][128];
-    char s_string[6][128];
-
-    BIT_FLAGS flgs[TR_FLAG_SIZE];
-
-    object_type *o_ptr;
-
-    char Dummy[80];
-    char buf[2][80];
-
-    concptr info[220];
-
-    PLAYER_LEVEL plev = creature_ptr->lev;
-
-    int percent;
-
-    for (j = 0; j < TR_FLAG_SIZE; j++)
-        flgs[j] = 0L;
-
-    creature_ptr->knowledge |= (KNOW_STAT | KNOW_HPRATE);
-
-    strcpy(Dummy, "");
-
-    percent
-        = (int)(((long)creature_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) / (2 * creature_ptr->hitdie + ((PY_MAX_LEVEL - 1 + 3) * (creature_ptr->hitdie + 1))));
-
-    sprintf(Dummy, _("現在の体力ランク : %d/100", "Your current Life Rating is %d/100."), percent);
-    strcpy(buf[0], Dummy);
-    info[i++] = buf[0];
-    info[i++] = "";
-
-    chg_virtue(creature_ptr, V_KNOWLEDGE, 1);
-    chg_virtue(creature_ptr, V_ENLIGHTEN, 1);
-
-    /* Acquire item flags from equipment */
-    for (k = INVEN_RARM; k < INVEN_TOTAL; k++) {
-        u32b tflgs[TR_FLAG_SIZE];
-
-        o_ptr = &creature_ptr->inventory_list[k];
-        if (!o_ptr->k_idx)
-            continue;
-        object_flags(creature_ptr, o_ptr, tflgs);
-
-        /* Extract flags */
-        for (j = 0; j < TR_FLAG_SIZE; j++)
-            flgs[j] |= tflgs[j];
-    }
-
-    info[i++] = _("能力の最大値", "Limits of maximum stats");
-
-    for (v_nr = 0; v_nr < A_MAX; v_nr++) {
-        char stat_desc[80];
-
-        sprintf(stat_desc, "%s 18/%d", stat_names[v_nr], creature_ptr->stat_max_max[v_nr] - 18);
-
-        strcpy(s_string[v_nr], stat_desc);
-
-        info[i++] = s_string[v_nr];
-    }
-    info[i++] = "";
-
-    sprintf(Dummy, _("現在の属性 : %s(%ld)", "Your alignment : %s(%ld)"), your_alignment(creature_ptr), (long int)creature_ptr->align);
-    strcpy(buf[1], Dummy);
-    info[i++] = buf[1];
-    for (v_nr = 0; v_nr < 8; v_nr++) {
-        GAME_TEXT vir_name[20];
-        char vir_desc[80];
-        int tester = creature_ptr->virtues[v_nr];
-
-        strcpy(vir_name, virtue[(creature_ptr->vir_types[v_nr]) - 1]);
-
-        sprintf(vir_desc, _("おっと。%sの情報なし。", "Oops. No info about %s."), vir_name);
-        if (tester < -100)
-            sprintf(vir_desc, _("[%s]の対極 (%d)", "You are the polar opposite of %s (%d)."), vir_name, tester);
-        else if (tester < -80)
-            sprintf(vir_desc, _("[%s]の大敵 (%d)", "You are an arch-enemy of %s (%d)."), vir_name, tester);
-        else if (tester < -60)
-            sprintf(vir_desc, _("[%s]の強敵 (%d)", "You are a bitter enemy of %s (%d)."), vir_name, tester);
-        else if (tester < -40)
-            sprintf(vir_desc, _("[%s]の敵 (%d)", "You are an enemy of %s (%d)."), vir_name, tester);
-        else if (tester < -20)
-            sprintf(vir_desc, _("[%s]の罪者 (%d)", "You have sinned against %s (%d)."), vir_name, tester);
-        else if (tester < 0)
-            sprintf(vir_desc, _("[%s]の迷道者 (%d)", "You have strayed from the path of %s (%d)."), vir_name, tester);
-        else if (tester == 0)
-            sprintf(vir_desc, _("[%s]の中立者 (%d)", "You are neutral to %s (%d)."), vir_name, tester);
-        else if (tester < 20)
-            sprintf(vir_desc, _("[%s]の小徳者 (%d)", "You are somewhat virtuous in %s (%d)."), vir_name, tester);
-        else if (tester < 40)
-            sprintf(vir_desc, _("[%s]の中徳者 (%d)", "You are virtuous in %s (%d)."), vir_name, tester);
-        else if (tester < 60)
-            sprintf(vir_desc, _("[%s]の高徳者 (%d)", "You are very virtuous in %s (%d)."), vir_name, tester);
-        else if (tester < 80)
-            sprintf(vir_desc, _("[%s]の覇者 (%d)", "You are a champion of %s (%d)."), vir_name, tester);
-        else if (tester < 100)
-            sprintf(vir_desc, _("[%s]の偉大な覇者 (%d)", "You are a great champion of %s (%d)."), vir_name, tester);
-        else
-            sprintf(vir_desc, _("[%s]の具現者 (%d)", "You are the living embodiment of %s (%d)."), vir_name, tester);
-
-        strcpy(v_string[v_nr], vir_desc);
-
-        info[i++] = v_string[v_nr];
-    }
-    info[i++] = "";
-
-    /* Racial powers... */
-    if (creature_ptr->mimic_form) {
-        switch (creature_ptr->mimic_form) {
-        case MIMIC_DEMON:
-        case MIMIC_DEMON_LORD:
-            sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", "You can nether breathe, dam. %d (cost %d)."), 3 * plev,
-                10 + plev / 3);
-
-            info[i++] = Dummy;
-            break;
-        case MIMIC_VAMPIRE:
-            if (plev > 1) {
-                sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),
-                    plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
-                info[i++] = Dummy;
-            }
-            break;
-        }
-    } else {
-        switch (creature_ptr->prace) {
-        case RACE_NIBELUNG:
-        case RACE_DWARF:
-            if (plev > 4)
-                info[i++] = _("あなたは罠とドアと階段を感知できる。(5 MP)", "You can find traps, doors and stairs (cost 5).");
-            break;
-        case RACE_HOBBIT:
-            if (plev > 14) {
-                info[i++] = _("あなたは食料を生成できる。(10 MP)", "You can produce food (cost 10).");
-            }
-            break;
-        case RACE_GNOME:
-            if (plev > 4) {
-                sprintf(Dummy, _("あなたは範囲 %d 以内にテレポートできる。(%d MP)", "You can teleport, range %d (cost %d)."), (1 + plev), (5 + (plev / 5)));
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_HALF_ORC:
-            if (plev > 2)
-                info[i++] = _("あなたは恐怖を除去できる。(5 MP)", "You can remove fear (cost 5).");
-            break;
-        case RACE_HALF_TROLL:
-            if (plev > 9)
-                info[i++] = _("あなたは狂暴化することができる。(12 MP) ", "You can enter a berserk fury (cost 12).");
-            break;
-        case RACE_AMBERITE:
-            if (plev > 29)
-                info[i++] = _("あなたはシャドウシフトすることができる。(50 MP)", "You can Shift Shadows (cost 50).");
-
-            if (plev > 39)
-                info[i++] = _("あなたは「パターン」を心に描いて歩くことができる。(75 MP)", "You can mentally Walk the Pattern (cost 75).");
-
-            break;
-        case RACE_BARBARIAN:
-            if (plev > 7)
-                info[i++] = _("あなたは狂暴化することができる。(10 MP) ", "You can enter a berserk fury (cost 10).");
-
-            break;
-        case RACE_HALF_OGRE:
-            if (plev > 24)
-                info[i++] = _("あなたは爆発のルーンを仕掛けることができる。(35 MP)", "You can set an Explosive Rune (cost 35).");
-
-            break;
-        case RACE_HALF_GIANT:
-            if (plev > 19)
-                info[i++] = _("あなたは石の壁を壊すことができる。(10 MP)", "You can break stone walls (cost 10).");
-            break;
-        case RACE_HALF_TITAN:
-            if (plev > 34)
-                info[i++] = _("あなたはモンスターをスキャンすることができる。(20 MP)", "You can probe monsters (cost 20).");
-            break;
-        case RACE_CYCLOPS:
-            if (plev > 19) {
-                sprintf(Dummy, _("あなたは %d ダメージの岩石を投げることができる。(15 MP)", "You can throw a boulder, dam. %d (cost 15)."), 3 * plev);
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_YEEK:
-            if (plev > 14)
-                info[i++] = _("あなたは恐怖を呼び起こす叫び声を発することができる。(15 MP)", "You can make a terrifying scream (cost 15).");
-            break;
-        case RACE_KLACKON:
-            if (plev > 8) {
-                sprintf(Dummy, _("あなたは %d ダメージの酸を吹きかけることができる。(9 MP)", "You can spit acid, dam. %d (cost 9)."), plev);
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_KOBOLD:
-            if (plev > 11) {
-                sprintf(Dummy, _("あなたは %d ダメージの毒矢を投げることができる。(8 MP)", "You can throw a dart of poison, dam. %d (cost 8)."), plev);
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_DARK_ELF:
-            if (plev > 1) {
-                sprintf(Dummy, _("あなたは %d ダメージのマジック・ミサイルの呪文を使える。(2 MP)", "You can cast a Magic Missile, dam %d (cost 2)."),
-                    (3 + ((plev - 1) / 5)));
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_DRACONIAN:
-            sprintf(Dummy, _("あなたは %d ダメージのブレスを吐くことができる。(%d MP)", "You can breathe, dam. %d (cost %d)."), 2 * plev, plev);
-            info[i++] = Dummy;
-            break;
-        case RACE_MIND_FLAYER:
-            if (plev > 14)
-                sprintf(Dummy, _("あなたは %d ダメージの精神攻撃をすることができる。(12 MP)", "You can mind blast your enemies, dam %d (cost 12)."), plev);
-            info[i++] = Dummy;
-            break;
-        case RACE_IMP:
-            if (plev > 29) {
-                sprintf(Dummy, _("あなたは %d ダメージのファイア・ボールの呪文を使える。(15 MP)", "You can cast a Fire Ball, dam. %d (cost 15)."), plev);
-                info[i++] = Dummy;
-            } else if (plev > 8) {
-                sprintf(Dummy, _("あなたは %d ダメージのファイア・ボルトの呪文を使える。(15 MP)", "You can cast a Fire Bolt, dam. %d (cost 15)."), plev);
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_GOLEM:
-            if (plev > 19)
-                info[i++] = _("あなたは d20+30 ターンの間肌を石に変化させられる。(15 MP)", "You can turn your skin to stone, dur d20+30 (cost 15).");
-            break;
-        case RACE_ZOMBIE:
-        case RACE_SKELETON:
-            if (plev > 29)
-                info[i++] = _("あなたは失った経験値を回復することができる。(30 MP)", "You can restore lost experience (cost 30).");
-            break;
-        case RACE_VAMPIRE:
-            if (plev > 1) {
-                sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),
-                    plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
-                info[i++] = Dummy;
-            }
-            break;
-        case RACE_SPECTRE:
-            if (plev > 3) {
-                info[i++] = _("あなたは泣き叫んで敵を恐怖させることができる。(3 MP)", "You can wail to terrify your enemies (cost 3).");
-            }
-            break;
-        case RACE_SPRITE:
-            if (plev > 11) {
-                info[i++] = _("あなたは敵を眠らせる魔法の粉を投げることができる。(12 MP)", "You can throw magical dust which induces sleep (cost 12).");
-            }
-            break;
-        case RACE_BALROG:
-            sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", "You can breathe nether, dam. %d (cost %d)."), 3 * plev,
-                10 + plev / 3);
-
-            info[i++] = Dummy;
-            break;
-        case RACE_KUTAR:
-            if (plev > 19)
-                info[i++] = _("あなたは d20+30 ターンの間横に伸びることができる。(15 MP)", "You can expand horizontally, dur d20+30 (cost 15).");
-            break;
-        case RACE_ANDROID:
-            if (plev < 10)
-                sprintf(
-                    Dummy, _("あなたは %d ダメージのレイガンを撃つことができる。(7 MP)", "You can fire a ray gun with damage %d (cost 7)."), (plev + 1) / 2);
-            else if (plev < 25)
-                sprintf(Dummy, _("あなたは %d ダメージのブラスターを撃つことができる。(13 MP)", "You can fire a blaster with damage %d (cost 13)."), plev);
-            else if (plev < 35)
-                sprintf(Dummy, _("あなたは %d ダメージのバズーカを撃つことができる。(26 MP)", "You can fire a bazooka with damage %d (cost 26)."), plev * 2);
-            else if (plev < 45)
-                sprintf(Dummy, _("あなたは %d ダメージのビームキャノンを撃つことができる。(40 MP)", "You can fire a beam cannon with damage %d (cost 40)."),
-                    plev * 2);
-            else
-                sprintf(Dummy, _("あなたは %d ダメージのロケットを撃つことができる。(60 MP)", "You can fire a rocket with damage %d (cost 60)."), plev * 5);
-
-            info[i++] = Dummy;
-            break;
-        default:
-            break;
-        }
-    }
-
-    switch (creature_ptr->pclass) {
-    case CLASS_WARRIOR:
-        if (plev > 39) {
-            info[i++] = _("あなたはランダムな方向に対して数回攻撃することができる。(75 MP)", "You can attack some random directions simultaneously (cost 75).");
-        }
-        break;
-    case CLASS_HIGH_MAGE:
-        if (creature_ptr->realm1 == REALM_HEX)
-            break;
-        /* Fall through */
-    case CLASS_MAGE:
-    case CLASS_SORCERER:
-        if (plev > 24) {
-            info[i++] = _("あなたはアイテムの魔力を吸収することができる。(1 MP)", "You can absorb charges from an item (cost 1).");
-        }
-        break;
-    case CLASS_PRIEST:
-        if (is_good_realm(creature_ptr->realm1)) {
-            if (plev > 34) {
-                info[i++] = _("あなたは武器を祝福することができる。(70 MP)", "You can bless a weapon (cost 70).");
-            }
-        } else {
-            if (plev > 41) {
-                info[i++] = _("あなたは周りのすべてのモンスターを攻撃することができる。(40 MP)", "You can damage all monsters in sight (cost 40).");
-            }
-        }
-        break;
-    case CLASS_ROGUE:
-        if (plev > 7) {
-            info[i++] = _("あなたは攻撃して即座に逃げることができる。(12 MP)", "You can hit a monster and teleport away simultaneously (cost 12).");
-        }
-        break;
-    case CLASS_RANGER:
-        if (plev > 14) {
-            info[i++] = _("あなたは怪物を調査することができる。(20 MP)", "You can probe monsters (cost 20).");
-        }
-        break;
-    case CLASS_PALADIN:
-        if (is_good_realm(creature_ptr->realm1)) {
-            if (plev > 29) {
-                info[i++] = _("あなたは聖なる槍を放つことができる。(30 MP)", "You can fire a holy spear (cost 30).");
-            }
-        } else {
-            if (plev > 29) {
-                info[i++] = _("あなたは生命力を減少させる槍を放つことができる。(30 MP)", "You can fire a spear which drains vitality (cost 30).");
-            }
-        }
-        break;
-    case CLASS_WARRIOR_MAGE:
-        if (plev > 24) {
-            info[i++] = _("あなたはＨＰをＭＰに変換することができる。(0 MP)", "You can convert HP to SP (cost 0).");
-            info[i++] = _("あなたはＭＰをＨＰに変換することができる。(0 MP)", "You can convert SP to HP (cost 0).");
-        }
-        break;
-    case CLASS_CHAOS_WARRIOR:
-        if (plev > 39) {
-            info[i++] = _("あなたは周囲に怪物を惑わす光を発生させることができる。(50 MP)", "You can radiate light which confuses nearby monsters (cost 50).");
-        }
-        break;
-    case CLASS_MONK:
-        if (plev > 24) {
-            info[i++] = _("あなたは構えることができる。(0 MP)", "You can assume a special stance (cost 0).");
-        }
-        if (plev > 29) {
-            info[i++] = _("あなたは通常の2倍の攻撃を行うことができる。(30 MP)", "You can perform two attacks at the same time (cost 30).");
-        }
-        break;
-    case CLASS_MINDCRAFTER:
-    case CLASS_FORCETRAINER:
-        if (plev > 14) {
-            info[i++] = _("あなたは精神を集中してＭＰを回復させることができる。(0 MP)", "You can concentrate to regenerate your mana (cost 0).");
-        }
-        break;
-    case CLASS_TOURIST:
-        info[i++] = _("あなたは写真を撮影することができる。(0 MP)", "You can take a photograph (cost 0).");
-        if (plev > 24) {
-            info[i++] = _("あなたはアイテムを完全に鑑定することができる。(20 MP)", "You can *identify* items (cost 20).");
-        }
-        break;
-    case CLASS_IMITATOR:
-        if (plev > 29) {
-            info[i++] = _("あなたは怪物の特殊攻撃をダメージ2倍でまねることができる。(100 MP)",
-                "You can imitate monster's special attacks with double damage (cost 100).");
-        }
-        break;
-    case CLASS_BEASTMASTER:
-        info[i++] = _("あなたは1体の生命のあるモンスターを支配することができる。(レベル/4 MP)", "You can dominate a monster (cost level/4).");
-        if (plev > 29) {
-            info[i++] = _("あなたは視界内の生命のあるモンスターを支配することができる。((レベル+20)/2 MP)",
-                "You can dominate living monsters in sight (cost (level+20)/4).");
-        }
-        break;
-    case CLASS_MAGIC_EATER:
-        info[i++] = _("あなたは杖/魔法棒/ロッドの魔力を自分のものにすることができる。", "You can absorb a staff, wand or rod itself.");
-        break;
-    case CLASS_RED_MAGE:
-        if (plev > 47) {
-            info[i++] = _("あなたは1ターンに2回魔法を唱えることができる。(20 MP)", "You can cast two spells simultaneously (cost 20).");
-        }
-        break;
-    case CLASS_SAMURAI: {
-        info[i++] = _("あなたは精神を集中して気合いを溜めることができる。", "You can concentrate to regenerate your mana.");
-    }
-        if (plev > 24) {
-            info[i++] = _("あなたは特殊な型で構えることができる。", "You can assume a special stance.");
-        }
-        break;
-    case CLASS_BLUE_MAGE:
-        info[i++] = _("あなたは相手に使われた魔法を学ぶことができる。", "You can study spells which your enemy casts on you.");
-        break;
-    case CLASS_CAVALRY:
-        if (plev > 9) {
-            info[i++] = _("あなたはモンスターに乗って無理矢理ペットにすることができる。", "You can ride on a hostile monster to forcibly turn it into a pet.");
-        }
-        break;
-    case CLASS_BERSERKER:
-        if (plev > 9) {
-            info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
-        }
-        break;
-    case CLASS_MIRROR_MASTER:
-        info[i++] = _("あなたは鏡を作り出すことができる。(2 MP)", "You can create a Mirror (cost 2).");
-        info[i++] = _("あなたは鏡を割ることができる。(0 MP)", "You can break distant Mirrors (cost 0).");
-        break;
-    case CLASS_NINJA:
-        if (plev > 19) {
-            info[i++] = _("あなたは素早く移動することができる。", "You can walk extremely fast.");
-        }
-        break;
-    }
-
-    if (creature_ptr->muta1) {
-        if (creature_ptr->muta1 & MUT1_SPIT_ACID) {
-            info[i++] = _("あなたは酸を吹きかけることができる。(ダメージ レベルX1)", "You can spit acid (dam lvl).");
-        }
-        if (creature_ptr->muta1 & MUT1_BR_FIRE) {
-            info[i++] = _("あなたは炎のブレスを吐くことができる。(ダメージ レベルX2)", "You can breathe fire (dam lvl * 2).");
-        }
-        if (creature_ptr->muta1 & MUT1_HYPN_GAZE) {
-            info[i++] = _("あなたの睨みは催眠効果をもつ。", "Your gaze is hypnotic.");
-        }
-        if (creature_ptr->muta1 & MUT1_TELEKINES) {
-            info[i++] = _("あなたは念動力をもっている。", "You are telekinetic.");
-        }
-        if (creature_ptr->muta1 & MUT1_VTELEPORT) {
-            info[i++] = _("あなたは自分の意思でテレポートできる。", "You can teleport at will.");
-        }
-        if (creature_ptr->muta1 & MUT1_MIND_BLST) {
-            info[i++] = _("あなたは精神攻撃を行える。(ダメージ 3～12d3)", "You can Mind Blast your enemies (3 to 12d3 dam).");
-        }
-        if (creature_ptr->muta1 & MUT1_RADIATION) {
-            info[i++] = _("あなたは自分の意思で強い放射線を発生することができる。(ダメージ レベルX2)", "You can emit hard radiation at will (dam lvl * 2).");
-        }
-        if (creature_ptr->muta1 & MUT1_VAMPIRISM) {
-            info[i++] = _("あなたは吸血鬼のように敵から生命力を吸収することができる。(ダメージ レベルX2)",
-                "Like a vampire, you can drain life from a foe (dam lvl * 2).");
-        }
-        if (creature_ptr->muta1 & MUT1_SMELL_MET) {
-            info[i++] = _("あなたは近くにある貴金属をかぎ分けることができる。", "You can smell nearby precious metal.");
-        }
-        if (creature_ptr->muta1 & MUT1_SMELL_MON) {
-            info[i++] = _("あなたは近くのモンスターの存在をかぎ分けることができる。", "You can smell nearby monsters.");
-        }
-        if (creature_ptr->muta1 & MUT1_BLINK) {
-            info[i++] = _("あなたは短い距離をテレポートできる。", "You can teleport yourself short distances.");
-        }
-        if (creature_ptr->muta1 & MUT1_EAT_ROCK) {
-            info[i++] = _("あなたは硬い岩を食べることができる。", "You can consume solid rock.");
-        }
-        if (creature_ptr->muta1 & MUT1_SWAP_POS) {
-            info[i++] = _("あなたは他の者と場所を入れ替わることができる。", "You can switch locations with another being.");
-        }
-        if (creature_ptr->muta1 & MUT1_SHRIEK) {
-            info[i++] = _("あなたは身の毛もよだつ叫び声を発することができる。(ダメージ レベルX2)", "You can emit a horrible shriek (dam 2 * lvl).");
-        }
-        if (creature_ptr->muta1 & MUT1_ILLUMINE) {
-            info[i++] = _("あなたは明るい光を放つことができる。", "You can emit bright light.");
-        }
-        if (creature_ptr->muta1 & MUT1_DET_CURSE) {
-            info[i++] = _("あなたは邪悪な魔法の危険を感じとることができる。", "You can feel the danger of evil magic.");
-        }
-        if (creature_ptr->muta1 & MUT1_BERSERK) {
-            info[i++] = _("あなたは自分の意思で狂乱戦闘状態になることができる。", "You can drive yourself into a berserk frenzy.");
-        }
-        if (creature_ptr->muta1 & MUT1_POLYMORPH) {
-            info[i++] = _("あなたは自分の意志で変化できる。", "You can polymorph yourself at will.");
-        }
-        if (creature_ptr->muta1 & MUT1_MIDAS_TCH) {
-            info[i++] = _("あなたは通常アイテムを金に変えることができる。", "You can turn ordinary items to gold.");
-        }
-        if (creature_ptr->muta1 & MUT1_GROW_MOLD) {
-            info[i++] = _("あなたは周囲にキノコを生やすことができる。", "You can cause mold to grow near you.");
-        }
-        if (creature_ptr->muta1 & MUT1_RESIST) {
-            info[i++] = _("あなたは元素の攻撃に対して身を硬くすることができる。", "You can harden yourself to the ravages of the elements.");
-        }
-        if (creature_ptr->muta1 & MUT1_EARTHQUAKE) {
-            info[i++] = _("あなたは周囲のダンジョンを崩壊させることができる。", "You can bring down the dungeon around your ears.");
-        }
-        if (creature_ptr->muta1 & MUT1_EAT_MAGIC) {
-            info[i++] = _("あなたは魔法のエネルギーを自分の物として使用できる。", "You can consume magic energy for your own use.");
-        }
-        if (creature_ptr->muta1 & MUT1_WEIGH_MAG) {
-            info[i++] = _("あなたは自分に影響を与える魔法の力を感じることができる。", "You can feel the strength of the magics affecting you.");
-        }
-        if (creature_ptr->muta1 & MUT1_STERILITY) {
-            info[i++] = _("あなたは集団的生殖不能を起こすことができる。", "You can cause mass impotence.");
-        }
-        if (creature_ptr->muta1 & MUT1_HIT_AND_AWAY) {
-            info[i++] = _("あなたは攻撃した後身を守るため逃げることができる。", "You can run for your life after hitting something.");
-        }
-        if (creature_ptr->muta1 & MUT1_DAZZLE) {
-            info[i++] = _("あなたは混乱と盲目を引き起こす放射能を発生することができる。 ", "You can emit confusing, blinding radiation.");
-        }
-        if (creature_ptr->muta1 & MUT1_LASER_EYE) {
-            info[i++] = _("あなたは目からレーザー光線を発することができる。(ダメージ レベルX2)", "Your eyes can fire laser beams (dam 2 * lvl).");
-        }
-        if (creature_ptr->muta1 & MUT1_RECALL) {
-            info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
-        }
-        if (creature_ptr->muta1 & MUT1_BANISH) {
-            info[i++] = _("あなたは邪悪なモンスターを地獄に落とすことができる。", "You can send evil creatures directly to Hell.");
-        }
-        if (creature_ptr->muta1 & MUT1_COLD_TOUCH) {
-            info[i++] = _("あなたは敵を触って凍らせることができる。(ダメージ レベルX3)", "You can freeze things with a touch (dam 3 * lvl).");
-        }
-        if (creature_ptr->muta1 & MUT1_LAUNCHER) {
-            info[i++] = _("あなたはアイテムを力強く投げることができる。", "You can hurl objects with great force.");
-        }
-    }
-
-    if (creature_ptr->muta2) {
-        if (creature_ptr->muta2 & MUT2_BERS_RAGE) {
-            info[i++] = _("あなたは狂戦士化の発作を起こす。", "You are subject to berserker fits.");
-        }
-        if (creature_ptr->muta2 & MUT2_COWARDICE) {
-            info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
-        }
-        if (creature_ptr->muta2 & MUT2_RTELEPORT) {
-            info[i++] = _("あなたはランダムにテレポートする。", "You may randomly teleport.");
-        }
-        if (creature_ptr->muta2 & MUT2_ALCOHOL) {
-            info[i++] = _("あなたの体はアルコールを分泌する。", "Your body produces alcohol.");
-        }
-        if (creature_ptr->muta2 & MUT2_HALLU) {
-            info[i++] = _("あなたは幻覚を引き起こす精神錯乱に侵されている。", "You have a hallucinatory insanity.");
-        }
-        if (creature_ptr->muta2 & MUT2_FLATULENT) {
-            info[i++] = _("あなたは制御できない強烈な屁をこく。", "You are subject to uncontrollable flatulence.");
-        }
-        if (creature_ptr->muta2 & MUT2_PROD_MANA) {
-            info[i++] = _("あなたは制御不能な魔法のエネルギーを発している。", "You produce magical energy uncontrollably.");
-        }
-        if (creature_ptr->muta2 & MUT2_ATT_DEMON) {
-            info[i++] = _("あなたはデーモンを引きつける。", "You attract demons.");
-        }
-        if (creature_ptr->muta2 & MUT2_SCOR_TAIL) {
-            info[i++] = _("あなたはサソリの尻尾が生えている。(毒、ダメージ 3d7)", "You have a scorpion tail (poison, 3d7).");
-        }
-        if (creature_ptr->muta2 & MUT2_HORNS) {
-            info[i++] = _("あなたは角が生えている。(ダメージ 2d6)", "You have horns (dam. 2d6).");
-        }
-        if (creature_ptr->muta2 & MUT2_BEAK) {
-            info[i++] = _("あなたはクチバシが生えている。(ダメージ 2d4)", "You have a beak (dam. 2d4).");
-        }
-        if (creature_ptr->muta2 & MUT2_SPEED_FLUX) {
-            info[i++] = _("あなたはランダムに早く動いたり遅く動いたりする。", "You move faster or slower randomly.");
-        }
-        if (creature_ptr->muta2 & MUT2_BANISH_ALL) {
-            info[i++] = _("あなたは時々近くのモンスターを消滅させる。", "You sometimes cause nearby creatures to vanish.");
-        }
-        if (creature_ptr->muta2 & MUT2_EAT_LIGHT) {
-            info[i++] = _("あなたは時々周囲の光を吸収して栄養にする。", "You sometimes feed off of the light around you.");
-        }
-        if (creature_ptr->muta2 & MUT2_TRUNK) {
-            info[i++] = _("あなたは象のような鼻を持っている。(ダメージ 1d4)", "You have an elephantine trunk (dam 1d4).");
-        }
-        if (creature_ptr->muta2 & MUT2_ATT_ANIMAL) {
-            info[i++] = _("あなたは動物を引きつける。", "You attract animals.");
-        }
-        if (creature_ptr->muta2 & MUT2_TENTACLES) {
-            info[i++] = _("あなたは邪悪な触手を持っている。(ダメージ 2d5)", "You have evil looking tentacles (dam 2d5).");
-        }
-        if (creature_ptr->muta2 & MUT2_RAW_CHAOS) {
-            info[i++] = _("あなたはしばしば純カオスに包まれる。", "You occasionally are surrounded with raw chaos.");
-        }
-        if (creature_ptr->muta2 & MUT2_NORMALITY) {
-            info[i++] = _("あなたは変異していたが、回復してきている。", "You may be mutated, but you're recovering.");
-        }
-        if (creature_ptr->muta2 & MUT2_WRAITH) {
-            info[i++] = _("あなたの肉体は幽体化したり実体化したりする。", "You fade in and out of physical reality.");
-        }
-        if (creature_ptr->muta2 & MUT2_POLY_WOUND) {
-            info[i++] = _("あなたの健康はカオスの力に影響を受ける。", "Your health is subject to chaotic forces.");
-        }
-        if (creature_ptr->muta2 & MUT2_WASTING) {
-            info[i++] = _("あなたは衰弱する恐ろしい病気にかかっている。", "You have a horrible wasting disease.");
-        }
-        if (creature_ptr->muta2 & MUT2_ATT_DRAGON) {
-            info[i++] = _("あなたはドラゴンを引きつける。", "You attract dragons.");
-        }
-        if (creature_ptr->muta2 & MUT2_WEIRD_MIND) {
-            info[i++] = _("あなたの精神はランダムに拡大したり縮小したりしている。", "Your mind randomly expands and contracts.");
-        }
-        if (creature_ptr->muta2 & MUT2_NAUSEA) {
-            info[i++] = _("あなたの胃は非常に落ち着きがない。", "You have a seriously upset stomach.");
-        }
-        if (creature_ptr->muta2 & MUT2_CHAOS_GIFT) {
-            info[i++] = _("あなたはカオスの守護悪魔から褒美をうけとる。", "Chaos deities give you gifts.");
-        }
-        if (creature_ptr->muta2 & MUT2_WALK_SHAD) {
-            info[i++] = _("あなたはしばしば他の「影」に迷い込む。", "You occasionally stumble into other shadows.");
-        }
-        if (creature_ptr->muta2 & MUT2_WARNING) {
-            info[i++] = _("あなたは敵に関する警告を感じる。", "You receive warnings about your foes.");
-        }
-        if (creature_ptr->muta2 & MUT2_INVULN) {
-            info[i++] = _("あなたは時々負け知らずな気分になる。", "You occasionally feel invincible.");
-        }
-        if (creature_ptr->muta2 & MUT2_SP_TO_HP) {
-            info[i++] = _("あなたは時々血が筋肉にどっと流れる。", "Your blood sometimes rushes to your muscles.");
-        }
-        if (creature_ptr->muta2 & MUT2_HP_TO_SP) {
-            info[i++] = _("あなたは時々頭に血がどっと流れる。", "Your blood sometimes rushes to your head.");
-        }
-        if (creature_ptr->muta2 & MUT2_DISARM) {
-            info[i++] = _("あなたはよくつまづいて物を落とす。", "You occasionally stumble and drop things.");
-        }
-    }
-
-    if (creature_ptr->muta3) {
-        if (creature_ptr->muta3 & MUT3_HYPER_STR) {
-            info[i++] = _("あなたは超人的に強い。(腕力+4)", "You are superhumanly strong (+4 STR).");
-        }
-        if (creature_ptr->muta3 & MUT3_PUNY) {
-            info[i++] = _("あなたは虚弱だ。(腕力-4)", "You are puny (-4 STR).");
-        }
-        if (creature_ptr->muta3 & MUT3_HYPER_INT) {
-            info[i++] = _("あなたの脳は生体コンピュータだ。(知能＆賢さ+4)", "Your brain is a living computer (+4 INT/WIS).");
-        }
-        if (creature_ptr->muta3 & MUT3_MORONIC) {
-            info[i++] = _("あなたは精神薄弱だ。(知能＆賢さ-4)", "You are moronic (-4 INT/WIS).");
-        }
-        if (creature_ptr->muta3 & MUT3_RESILIENT) {
-            info[i++] = _("あなたは非常にタフだ。(耐久+4)", "You are very resilient (+4 CON).");
-        }
-        if (creature_ptr->muta3 & MUT3_XTRA_FAT) {
-            info[i++] = _("あなたは極端に太っている。(耐久+2,スピード-2)", "You are extremely fat (+2 CON, -2 speed).");
-        }
-        if (creature_ptr->muta3 & MUT3_ALBINO) {
-            info[i++] = _("あなたはアルビノだ。(耐久-4)", "You are an albino (-4 CON).");
-        }
-        if (creature_ptr->muta3 & MUT3_FLESH_ROT) {
-            info[i++] = _("あなたの肉体は腐敗している。(耐久-2,魅力-1)", "Your flesh is rotting (-2 CON, -1 CHR).");
-        }
-        if (creature_ptr->muta3 & MUT3_SILLY_VOI) {
-            info[i++] = _("あなたの声は間抜けなキーキー声だ。(魅力-4)", "Your voice is a silly squeak (-4 CHR).");
-        }
-        if (creature_ptr->muta3 & MUT3_BLANK_FAC) {
-            info[i++] = _("あなたはのっぺらぼうだ。(魅力-1)", "Your face is featureless (-1 CHR).");
-        }
-        if (creature_ptr->muta3 & MUT3_ILL_NORM) {
-            info[i++] = _("あなたは幻影に覆われている。", "Your appearance is masked with illusion.");
-        }
-        if (creature_ptr->muta3 & MUT3_XTRA_EYES) {
-            info[i++] = _("あなたは余分に二つの目を持っている。(探索+15)", "You have an extra pair of eyes (+15 search).");
-        }
-        if (creature_ptr->muta3 & MUT3_MAGIC_RES) {
-            info[i++] = _("あなたは魔法への耐性をもっている。", "You are resistant to magic.");
-        }
-        if (creature_ptr->muta3 & MUT3_XTRA_NOIS) {
-            info[i++] = _("あなたは変な音を発している。(隠密-3)", "You make a lot of strange noise (-3 stealth).");
-        }
-        if (creature_ptr->muta3 & MUT3_INFRAVIS) {
-            info[i++] = _("あなたは素晴らしい赤外線視力を持っている。(+3)", "You have remarkable infravision (+3).");
-        }
-        if (creature_ptr->muta3 & MUT3_XTRA_LEGS) {
-            info[i++] = _("あなたは余分に二本の足が生えている。(加速+3)", "You have an extra pair of legs (+3 speed).");
-        }
-        if (creature_ptr->muta3 & MUT3_SHORT_LEG) {
-            info[i++] = _("あなたの足は短い突起だ。(加速-3)", "Your legs are short stubs (-3 speed).");
-        }
-        if (creature_ptr->muta3 & MUT3_ELEC_TOUC) {
-            info[i++] = _("あなたの血管には電流が流れている。", "Electricity is running through your veins.");
-        }
-        if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
-            info[i++] = _("あなたの体は炎につつまれている。", "Your body is enveloped in flames.");
-        }
-        if (creature_ptr->muta3 & MUT3_WART_SKIN) {
-            info[i++] = _("あなたの肌はイボに被われている。(魅力-2, AC+5)", "Your skin is covered with warts (-2 CHR, +5 AC).");
-        }
-        if (creature_ptr->muta3 & MUT3_SCALES) {
-            info[i++] = _("あなたの肌は鱗になっている。(魅力-1, AC+10)", "Your skin has turned into scales (-1 CHR, +10 AC).");
-        }
-        if (creature_ptr->muta3 & MUT3_IRON_SKIN) {
-            info[i++] = _("あなたの肌は鉄でできている。(器用-1, AC+25)", "Your skin is made of steel (-1 DEX, +25 AC).");
-        }
-        if (creature_ptr->muta3 & MUT3_WINGS) {
-            info[i++] = _("あなたは羽を持っている。", "You have wings.");
-        }
-        if (creature_ptr->muta3 & MUT3_FEARLESS) {
-            /* Unnecessary */
-        }
-        if (creature_ptr->muta3 & MUT3_REGEN) {
-            /* Unnecessary */
-        }
-        if (creature_ptr->muta3 & MUT3_ESP) {
-            /* Unnecessary */
-        }
-        if (creature_ptr->muta3 & MUT3_LIMBER) {
-            info[i++] = _("あなたの体は非常にしなやかだ。(器用+3)", "Your body is very limber (+3 DEX).");
-        }
-        if (creature_ptr->muta3 & MUT3_ARTHRITIS) {
-            info[i++] = _("あなたはいつも関節に痛みを感じている。(器用-3)", "Your joints ache constantly (-3 DEX).");
-        }
-        if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
-            info[i++] = _("あなたは元素の攻撃に弱い。", "You are susceptible to damage from the elements.");
-        }
-        if (creature_ptr->muta3 & MUT3_MOTION) {
-            info[i++] = _("あなたの動作は正確で力強い。(隠密+1)", "Your movements are precise and forceful (+1 STL).");
-        }
-        if (have_good_luck(creature_ptr)) {
-            info[i++] = _("あなたは白いオーラにつつまれている。", "There is a white aura surrounding you.");
-        }
-        if (creature_ptr->muta3 & MUT3_BAD_LUCK) {
-            info[i++] = _("あなたは黒いオーラにつつまれている。", "There is a black aura surrounding you.");
-        }
-    }
-
-    if (creature_ptr->blind) {
-        info[i++] = _("あなたは目が見えない。", "You cannot see.");
-    }
-    if (creature_ptr->confused) {
-        info[i++] = _("あなたは混乱している。", "You are confused.");
-    }
-    if (creature_ptr->afraid) {
-        info[i++] = _("あなたは恐怖に侵されている。", "You are terrified.");
-    }
-    if (creature_ptr->cut) {
-        info[i++] = _("あなたは出血している。", "You are bleeding.");
-    }
-    if (creature_ptr->stun) {
-        info[i++] = _("あなたはもうろうとしている。", "You are stunned.");
-    }
-    if (creature_ptr->poisoned) {
-        info[i++] = _("あなたは毒に侵されている。", "You are poisoned.");
-    }
-    if (creature_ptr->image) {
-        info[i++] = _("あなたは幻覚を見ている。", "You are hallucinating.");
-    }
-    if (creature_ptr->cursed & TRC_TY_CURSE) {
-        info[i++] = _("あなたは邪悪な怨念に包まれている。", "You carry an ancient foul curse.");
-    }
-    if (creature_ptr->cursed & TRC_AGGRAVATE) {
-        info[i++] = _("あなたはモンスターを怒らせている。", "You aggravate monsters.");
-    }
-    if (creature_ptr->cursed & TRC_DRAIN_EXP) {
-        info[i++] = _("あなたは経験値を吸われている。", "You occasionally lose experience for no reason.");
-    }
-    if (creature_ptr->cursed & TRC_SLOW_REGEN) {
-        info[i++] = _("あなたの回復力は非常に遅い。", "You regenerate slowly.");
-    }
-    if (creature_ptr->cursed & TRC_ADD_L_CURSE) {
-        info[i++] = _("あなたの弱い呪いは増える。", "Your weak curses multiply."); /* 暫定的 -- henkma */
-    }
-    if (creature_ptr->cursed & TRC_ADD_H_CURSE) {
-        info[i++] = _("あなたの強い呪いは増える。", "Your heavy curses multiply."); /* 暫定的 -- henkma */
-    }
-    if (creature_ptr->cursed & TRC_CALL_ANIMAL) {
-        info[i++] = _("あなたは動物に狙われている。", "You attract animals.");
-    }
-    if (creature_ptr->cursed & TRC_CALL_DEMON) {
-        info[i++] = _("あなたは悪魔に狙われている。", "You attract demons.");
-    }
-    if (creature_ptr->cursed & TRC_CALL_DRAGON) {
-        info[i++] = _("あなたはドラゴンに狙われている。", "You attract dragons.");
-    }
-    if (creature_ptr->cursed & TRC_COWARDICE) {
-        info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
-    }
-    if (creature_ptr->cursed & TRC_TELEPORT) {
-        info[i++] = _("あなたの位置はひじょうに不安定だ。", "Your position is very uncertain.");
-    }
-    if (creature_ptr->cursed & TRC_LOW_MELEE) {
-        info[i++] = _("あなたの武器は攻撃を外しやすい。", "Your weapon causes you to miss blows.");
-    }
-    if (creature_ptr->cursed & TRC_LOW_AC) {
-        info[i++] = _("あなたは攻撃を受けやすい。", "You are subject to be hit.");
-    }
-    if (creature_ptr->cursed & TRC_LOW_MAGIC) {
-        info[i++] = _("あなたは魔法を失敗しやすい。", "Your spells fail more frequently.");
-    }
-    if (creature_ptr->cursed & TRC_FAST_DIGEST) {
-        info[i++] = _("あなたはすぐお腹がへる。", "You have a good appetite.");
-    }
-    if (creature_ptr->cursed & TRC_DRAIN_HP) {
-        info[i++] = _("あなたは体力を吸われている。", "You occasionally lose hit points for no reason.");
-    }
-    if (creature_ptr->cursed & TRC_DRAIN_MANA) {
-        info[i++] = _("あなたは魔力を吸われている。", "You occasionally lose spell points for no reason.");
-    }
-    if (is_blessed(creature_ptr)) {
-        info[i++] = _("あなたは高潔さを感じている。", "You feel rightous.");
-    }
-    if (is_hero(creature_ptr)) {
-        info[i++] = _("あなたはヒーロー気分だ。", "You feel heroic.");
-    }
-    if (creature_ptr->shero) {
-        info[i++] = _("あなたは戦闘狂だ。", "You are in a battle rage.");
-    }
-    if (creature_ptr->protevil) {
-        info[i++] = _("あなたは邪悪なる存在から守られている。", "You are protected from evil.");
-    }
-    if (creature_ptr->shield) {
-        info[i++] = _("あなたは神秘のシールドで守られている。", "You are protected by a mystic shield.");
-    }
-    if (is_invuln(creature_ptr)) {
-        info[i++] = _("あなたは現在傷つかない。", "You are temporarily invulnerable.");
-    }
-    if (creature_ptr->wraith_form) {
-        info[i++] = _("あなたは一時的に幽体化している。", "You are temporarily incorporeal.");
-    }
-    if (creature_ptr->special_attack & ATTACK_CONFUSE) {
-        info[i++] = _("あなたの手は赤く輝いている。", "Your hands are glowing dull red.");
-    }
-    if (creature_ptr->special_attack & ATTACK_FIRE) {
-        info[i++] = _("あなたの手は火炎に覆われている。", "You can strike the enemy with flame.");
-    }
-    if (creature_ptr->special_attack & ATTACK_COLD) {
-        info[i++] = _("あなたの手は冷気に覆われている。", "You can strike the enemy with cold.");
-    }
-    if (creature_ptr->special_attack & ATTACK_ACID) {
-        info[i++] = _("あなたの手は酸に覆われている。", "You can strike the enemy with acid.");
-    }
-    if (creature_ptr->special_attack & ATTACK_ELEC) {
-        info[i++] = _("あなたの手は電撃に覆われている。", "You can strike the enemy with electoric shock.");
-    }
-    if (creature_ptr->special_attack & ATTACK_POIS) {
-        info[i++] = _("あなたの手は毒に覆われている。", "You can strike the enemy with poison.");
-    }
-    switch (creature_ptr->action) {
-    case ACTION_SEARCH:
-        info[i++] = _("あなたはひじょうに注意深く周囲を見渡している。", "You are looking around very carefully.");
-        break;
-    }
-    if (creature_ptr->new_spells) {
-        info[i++] = _("あなたは呪文や祈りを学ぶことができる。", "You can learn some spells/prayers.");
-    }
-    if (creature_ptr->word_recall) {
-        info[i++] = _("あなたはすぐに帰還するだろう。", "You will soon be recalled.");
-    }
-    if (creature_ptr->alter_reality) {
-        info[i++] = _("あなたはすぐにこの世界を離れるだろう。", "You will soon be altered.");
-    }
-    if (creature_ptr->see_infra) {
-        info[i++] = _("あなたの瞳は赤外線に敏感である。", "Your eyes are sensitive to infrared light.");
-    }
-    if (creature_ptr->see_inv) {
-        info[i++] = _("あなたは透明なモンスターを見ることができる。", "You can see invisible creatures.");
-    }
-    if (creature_ptr->levitation) {
-        info[i++] = _("あなたは飛ぶことができる。", "You can fly.");
-    }
-    if (creature_ptr->free_act) {
-        info[i++] = _("あなたは麻痺知らずの効果を持っている。", "You have free action.");
-    }
-    if (creature_ptr->regenerate) {
-        info[i++] = _("あなたは素早く体力を回復する。", "You regenerate quickly.");
-    }
-    if (creature_ptr->slow_digest) {
-        info[i++] = _("あなたは食欲が少ない。", "Your appetite is small.");
-    }
-    if (creature_ptr->telepathy) {
-        info[i++] = _("あなたはテレパシー能力を持っている。", "You have ESP.");
-    }
-    if (creature_ptr->esp_animal) {
-        info[i++] = _("あなたは自然界の生物の存在を感じる能力を持っている。", "You sense natural creatures.");
-    }
-    if (creature_ptr->esp_undead) {
-        info[i++] = _("あなたはアンデッドの存在を感じる能力を持っている。", "You sense undead.");
-    }
-    if (creature_ptr->esp_demon) {
-        info[i++] = _("あなたは悪魔の存在を感じる能力を持っている。", "You sense demons.");
-    }
-    if (creature_ptr->esp_orc) {
-        info[i++] = _("あなたはオークの存在を感じる能力を持っている。", "You sense orcs.");
-    }
-    if (creature_ptr->esp_troll) {
-        info[i++] = _("あなたはトロルの存在を感じる能力を持っている。", "You sense trolls.");
-    }
-    if (creature_ptr->esp_giant) {
-        info[i++] = _("あなたは巨人の存在を感じる能力を持っている。", "You sense giants.");
-    }
-    if (creature_ptr->esp_dragon) {
-        info[i++] = _("あなたはドラゴンの存在を感じる能力を持っている。", "You sense dragons.");
-    }
-    if (creature_ptr->esp_human) {
-        info[i++] = _("あなたは人間の存在を感じる能力を持っている。", "You sense humans.");
-    }
-    if (creature_ptr->esp_evil) {
-        info[i++] = _("あなたは邪悪な生き物の存在を感じる能力を持っている。", "You sense evil creatures.");
-    }
-    if (creature_ptr->esp_good) {
-        info[i++] = _("あなたは善良な生き物の存在を感じる能力を持っている。", "You sense good creatures.");
-    }
-    if (creature_ptr->esp_nonliving) {
-        info[i++] = _("あなたは活動する無生物体の存在を感じる能力を持っている。", "You sense non-living creatures.");
-    }
-    if (creature_ptr->esp_unique) {
-        info[i++] = _("あなたは特別な強敵の存在を感じる能力を持っている。", "You sense unique monsters.");
-    }
-    if (creature_ptr->hold_exp) {
-        info[i++] = _("あなたは自己の経験値をしっかりと維持する。", "You have a firm hold on your experience.");
-    }
-    if (creature_ptr->reflect) {
-        info[i++] = _("あなたは矢の呪文を反射する。", "You reflect bolt spells.");
-    }
-    if (creature_ptr->sh_fire) {
-        info[i++] = _("あなたは炎のオーラに包まれている。", "You are surrounded with a fiery aura.");
-    }
-    if (creature_ptr->sh_elec) {
-        info[i++] = _("あなたは電気に包まれている。", "You are surrounded with electricity.");
-    }
-    if (creature_ptr->sh_cold) {
-        info[i++] = _("あなたは冷気のオーラに包まれている。", "You are surrounded with an aura of coldness.");
-    }
-    if (creature_ptr->tim_sh_holy) {
-        info[i++] = _("あなたは聖なるオーラに包まれている。", "You are surrounded with a holy aura.");
-    }
-    if (creature_ptr->tim_sh_touki) {
-        info[i++] = _("あなたは闘気のオーラに包まれている。", "You are surrounded with an energy aura.");
-    }
-    if (creature_ptr->anti_magic) {
-        info[i++] = _("あなたは反魔法シールドに包まれている。", "You are surrounded by an anti-magic shell.");
-    }
-    if (creature_ptr->anti_tele) {
-        info[i++] = _("あなたはテレポートできない。", "You cannot teleport.");
-    }
-    if (creature_ptr->lite) {
-        info[i++] = _("あなたの身体は光っている。", "You are carrying a permanent light.");
-    }
-    if (creature_ptr->warning) {
-        info[i++] = _("あなたは行動の前に危険を察知することができる。", "You will be warned before dangerous actions.");
-    }
-    if (creature_ptr->dec_mana) {
-        info[i++] = _("あなたは少ない消費魔力で魔法を唱えることができる。", "You can cast spells with fewer mana points.");
-    }
-    if (creature_ptr->easy_spell) {
-        info[i++] = _("あなたは低い失敗率で魔法を唱えることができる。", "Fail rate of your magic is decreased.");
-    }
-    if (creature_ptr->heavy_spell) {
-        info[i++] = _("あなたは高い失敗率で魔法を唱えなければいけない。", "Fail rate of your magic is increased.");
-    }
-    if (creature_ptr->mighty_throw) {
-        info[i++] = _("あなたは強く物を投げる。", "You can throw objects powerfully.");
-    }
-
-    if (creature_ptr->immune_acid) {
-        info[i++] = _("あなたは酸に対する完全なる免疫を持っている。", "You are completely immune to acid.");
-    } else if (creature_ptr->resist_acid && is_oppose_acid(creature_ptr)) {
-        info[i++] = _("あなたは酸への強力な耐性を持っている。", "You resist acid exceptionally well.");
-    } else if (creature_ptr->resist_acid || is_oppose_acid(creature_ptr)) {
-        info[i++] = _("あなたは酸への耐性を持っている。", "You are resistant to acid.");
-    }
-
-    if (creature_ptr->immune_elec) {
-        info[i++] = _("あなたは電撃に対する完全なる免疫を持っている。", "You are completely immune to lightning.");
-    } else if (creature_ptr->resist_elec && is_oppose_elec(creature_ptr)) {
-        info[i++] = _("あなたは電撃への強力な耐性を持っている。", "You resist lightning exceptionally well.");
-    } else if (creature_ptr->resist_elec || is_oppose_elec(creature_ptr)) {
-        info[i++] = _("あなたは電撃への耐性を持っている。", "You are resistant to lightning.");
-    }
-
-    if (is_specific_player_race(creature_ptr, RACE_ANDROID) && !creature_ptr->immune_elec) {
-        info[i++] = _("あなたは電撃に弱い。", "You are susceptible to damage from lightning.");
-    }
-
-    if (creature_ptr->immune_fire) {
-        info[i++] = _("あなたは火に対する完全なる免疫を持っている。", "You are completely immune to fire.");
-    } else if (creature_ptr->resist_fire && is_oppose_fire(creature_ptr)) {
-        info[i++] = _("あなたは火への強力な耐性を持っている。", "You resist fire exceptionally well.");
-    } else if (creature_ptr->resist_fire || is_oppose_fire(creature_ptr)) {
-        info[i++] = _("あなたは火への耐性を持っている。", "You are resistant to fire.");
-    }
-
-    if (is_specific_player_race(creature_ptr, RACE_ENT) && !creature_ptr->immune_fire) {
-        info[i++] = _("あなたは火に弱い。", "You are susceptible to damage from fire.");
-    }
-
-    if (creature_ptr->immune_cold) {
-        info[i++] = _("あなたは冷気に対する完全なる免疫を持っている。", "You are completely immune to cold.");
-    } else if (creature_ptr->resist_cold && is_oppose_cold(creature_ptr)) {
-        info[i++] = _("あなたは冷気への強力な耐性を持っている。", "You resist cold exceptionally well.");
-    } else if (creature_ptr->resist_cold || is_oppose_cold(creature_ptr)) {
-        info[i++] = _("あなたは冷気への耐性を持っている。", "You are resistant to cold.");
-    }
-
-    if (creature_ptr->resist_pois && is_oppose_pois(creature_ptr)) {
-        info[i++] = _("あなたは毒への強力な耐性を持っている。", "You resist poison exceptionally well.");
-    } else if (creature_ptr->resist_pois || is_oppose_pois(creature_ptr)) {
-        info[i++] = _("あなたは毒への耐性を持っている。", "You are resistant to poison.");
-    }
-
-    if (creature_ptr->resist_lite) {
-        info[i++] = _("あなたは閃光への耐性を持っている。", "You are resistant to bright light.");
-    }
-
-    if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || is_specific_player_race(creature_ptr, RACE_S_FAIRY)
-        || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
-        info[i++] = _("あなたは閃光に弱い。", "You are susceptible to damage from bright light.");
-    }
-
-    if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || (creature_ptr->mimic_form == MIMIC_VAMPIRE) || creature_ptr->wraith_form) {
-        info[i++] = _("あなたは暗黒に対する完全なる免疫を持っている。", "You are completely immune to darkness.");
-    }
-
-    else if (creature_ptr->resist_dark) {
-        info[i++] = _("あなたは暗黒への耐性を持っている。", "You are resistant to darkness.");
-    }
-    if (creature_ptr->resist_conf) {
-        info[i++] = _("あなたは混乱への耐性を持っている。", "You are resistant to confusion.");
-    }
-    if (creature_ptr->resist_sound) {
-        info[i++] = _("あなたは音波の衝撃への耐性を持っている。", "You are resistant to sonic attacks.");
-    }
-    if (creature_ptr->resist_disen) {
-        info[i++] = _("あなたは劣化への耐性を持っている。", "You are resistant to disenchantment.");
-    }
-    if (creature_ptr->resist_chaos) {
-        info[i++] = _("あなたはカオスの力への耐性を持っている。", "You are resistant to chaos.");
-    }
-    if (creature_ptr->resist_shard) {
-        info[i++] = _("あなたは破片の攻撃への耐性を持っている。", "You are resistant to blasts of shards.");
-    }
-    if (creature_ptr->resist_nexus) {
-        info[i++] = _("あなたは因果混乱の攻撃への耐性を持っている。", "You are resistant to nexus attacks.");
-    }
-
-    if (is_specific_player_race(creature_ptr, RACE_SPECTRE)) {
-        info[i++] = _("あなたは地獄の力を吸収できる。", "You can drain nether forces.");
-    } else if (creature_ptr->resist_neth) {
-        info[i++] = _("あなたは地獄の力への耐性を持っている。", "You are resistant to nether forces.");
-    }
-    if (creature_ptr->resist_fear) {
-        info[i++] = _("あなたは全く恐怖を感じない。", "You are completely fearless.");
-    }
-    if (creature_ptr->resist_blind) {
-        info[i++] = _("あなたの目は盲目への耐性を持っている。", "Your eyes are resistant to blindness.");
-    }
-    if (creature_ptr->resist_time) {
-        info[i++] = _("あなたは時間逆転への耐性を持っている。", "You are resistant to time.");
-    }
-
-    if (creature_ptr->sustain_str) {
-        info[i++] = _("あなたの腕力は維持されている。", "Your strength is sustained.");
-    }
-    if (creature_ptr->sustain_int) {
-        info[i++] = _("あなたの知能は維持されている。", "Your intelligence is sustained.");
-    }
-    if (creature_ptr->sustain_wis) {
-        info[i++] = _("あなたの賢さは維持されている。", "Your wisdom is sustained.");
-    }
-    if (creature_ptr->sustain_con) {
-        info[i++] = _("あなたの耐久力は維持されている。", "Your constitution is sustained.");
-    }
-    if (creature_ptr->sustain_dex) {
-        info[i++] = _("あなたの器用さは維持されている。", "Your dexterity is sustained.");
-    }
-    if (creature_ptr->sustain_chr) {
-        info[i++] = _("あなたの魅力は維持されている。", "Your charisma is sustained.");
-    }
-
-    if (has_flag(flgs, TR_STR)) {
-        info[i++] = _("あなたの腕力は装備によって影響を受けている。", "Your strength is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_INT)) {
-        info[i++] = _("あなたの知能は装備によって影響を受けている。", "Your intelligence is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_WIS)) {
-        info[i++] = _("あなたの賢さは装備によって影響を受けている。", "Your wisdom is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_DEX)) {
-        info[i++] = _("あなたの器用さは装備によって影響を受けている。", "Your dexterity is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_CON)) {
-        info[i++] = _("あなたの耐久力は装備によって影響を受けている。", "Your constitution is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_CHR)) {
-        info[i++] = _("あなたの魅力は装備によって影響を受けている。", "Your charisma is affected by your equipment.");
-    }
-
-    if (has_flag(flgs, TR_STEALTH)) {
-        info[i++] = _("あなたの隠密行動能力は装備によって影響を受けている。", "Your stealth is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_SEARCH)) {
-        info[i++] = _("あなたの探索能力は装備によって影響を受けている。", "Your searching ability is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_INFRA)) {
-        info[i++] = _("あなたの赤外線視力は装備によって影響を受けている。", "Your infravision is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_TUNNEL)) {
-        info[i++] = _("あなたの採掘能力は装備によって影響を受けている。", "Your digging ability is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_SPEED)) {
-        info[i++] = _("あなたのスピードは装備によって影響を受けている。", "Your speed is affected by your equipment.");
-    }
-    if (has_flag(flgs, TR_BLOWS)) {
-        info[i++] = _("あなたの攻撃速度は装備によって影響を受けている。", "Your attack speed is affected by your equipment.");
-    }
-
-    /* Access the current weapon */
-    o_ptr = &creature_ptr->inventory_list[INVEN_RARM];
-
-    /* Analyze the weapon */
-    if (o_ptr->k_idx) {
-        /* Indicate Blessing */
-        if (has_flag(flgs, TR_BLESSED)) {
-            info[i++] = _("あなたの武器は神の祝福を受けている。", "Your weapon has been blessed by the gods.");
-        }
-
-        if (has_flag(flgs, TR_CHAOTIC)) {
-            info[i++] = _("あなたの武器はログルスの徴の属性をもつ。", "Your weapon is branded with the Sign of Logrus.");
-        }
-
-        if (has_flag(flgs, TR_IMPACT)) {
-            info[i++] = _("あなたの武器は打撃で地震を発生することができる。", "The impact of your weapon can cause earthquakes.");
-        }
-
-        if (has_flag(flgs, TR_VORPAL)) {
-            info[i++] = _("あなたの武器は非常に鋭い。", "Your weapon is very sharp.");
-        }
-
-        if (has_flag(flgs, TR_VAMPIRIC)) {
-            info[i++] = _("あなたの武器は敵から生命力を吸収する。", "Your weapon drains life from your foes.");
-        }
-
-        /* Special "Attack Bonuses" */
-        if (has_flag(flgs, TR_BRAND_ACID)) {
-            info[i++] = _("あなたの武器は敵を溶かす。", "Your weapon melts your foes.");
-        }
-        if (has_flag(flgs, TR_BRAND_ELEC)) {
-            info[i++] = _("あなたの武器は敵を感電させる。", "Your weapon shocks your foes.");
-        }
-        if (has_flag(flgs, TR_BRAND_FIRE)) {
-            info[i++] = _("あなたの武器は敵を燃やす。", "Your weapon burns your foes.");
-        }
-        if (has_flag(flgs, TR_BRAND_COLD)) {
-            info[i++] = _("あなたの武器は敵を凍らせる。", "Your weapon freezes your foes.");
-        }
-        if (has_flag(flgs, TR_BRAND_POIS)) {
-            info[i++] = _("あなたの武器は敵を毒で侵す。", "Your weapon poisons your foes.");
-        }
-
-        /* Special "slay" flags */
-        if (has_flag(flgs, TR_KILL_ANIMAL)) {
-            info[i++] = _("あなたの武器は動物の天敵である。", "Your weapon is a great bane of animals.");
-        } else if (has_flag(flgs, TR_SLAY_ANIMAL)) {
-            info[i++] = _("あなたの武器は動物に対して強い力を発揮する。", "Your weapon strikes at animals with extra force.");
-        }
-        if (has_flag(flgs, TR_KILL_EVIL)) {
-            info[i++] = _("あなたの武器は邪悪なる存在の天敵である。", "Your weapon is a great bane of evil.");
-        } else if (has_flag(flgs, TR_SLAY_EVIL)) {
-            info[i++] = _("あなたの武器は邪悪なる存在に対して強い力を発揮する。", "Your weapon strikes at evil with extra force.");
-        }
-        if (has_flag(flgs, TR_KILL_HUMAN)) {
-            info[i++] = _("あなたの武器は人間の天敵である。", "Your weapon is a great bane of humans.");
-        } else if (has_flag(flgs, TR_SLAY_HUMAN)) {
-            info[i++] = _("あなたの武器は人間に対して特に強い力を発揮する。", "Your weapon is especially deadly against humans.");
-        }
-        if (has_flag(flgs, TR_KILL_UNDEAD)) {
-            info[i++] = _("あなたの武器はアンデッドの天敵である。", "Your weapon is a great bane of undead.");
-        } else if (has_flag(flgs, TR_SLAY_UNDEAD)) {
-            info[i++] = _("あなたの武器はアンデッドに対して神聖なる力を発揮する。", "Your weapon strikes at undead with holy wrath.");
-        }
-        if (has_flag(flgs, TR_KILL_DEMON)) {
-            info[i++] = _("あなたの武器はデーモンの天敵である。", "Your weapon is a great bane of demons.");
-        } else if (has_flag(flgs, TR_SLAY_DEMON)) {
-            info[i++] = _("あなたの武器はデーモンに対して神聖なる力を発揮する。", "Your weapon strikes at demons with holy wrath.");
-        }
-        if (has_flag(flgs, TR_KILL_ORC)) {
-            info[i++] = _("あなたの武器はオークの天敵である。", "Your weapon is a great bane of orcs.");
-        } else if (has_flag(flgs, TR_SLAY_ORC)) {
-            info[i++] = _("あなたの武器はオークに対して特に強い力を発揮する。", "Your weapon is especially deadly against orcs.");
-        }
-        if (has_flag(flgs, TR_KILL_TROLL)) {
-            info[i++] = _("あなたの武器はトロルの天敵である。", "Your weapon is a great bane of trolls.");
-        } else if (has_flag(flgs, TR_SLAY_TROLL)) {
-            info[i++] = _("あなたの武器はトロルに対して特に強い力を発揮する。", "Your weapon is especially deadly against trolls.");
-        }
-        if (has_flag(flgs, TR_KILL_GIANT)) {
-            info[i++] = _("あなたの武器は巨人の天敵である。", "Your weapon is a great bane of giants.");
-        } else if (has_flag(flgs, TR_SLAY_GIANT)) {
-            info[i++] = _("あなたの武器は巨人に対して特に強い力を発揮する。", "Your weapon is especially deadly against giants.");
-        }
-        /* Special "kill" flags */
-        if (has_flag(flgs, TR_KILL_DRAGON)) {
-            info[i++] = _("あなたの武器はドラゴンの天敵である。", "Your weapon is a great bane of dragons.");
-        } else if (has_flag(flgs, TR_SLAY_DRAGON)) {
-            info[i++] = _("あなたの武器はドラゴンに対して特に強い力を発揮する。", "Your weapon is especially deadly against dragons.");
-        }
-
-        if (has_flag(flgs, TR_FORCE_WEAPON)) {
-            info[i++] = _("あなたの武器はMPを使って攻撃する。", "Your weapon causes greate damages using your MP.");
-        }
-        if (has_flag(flgs, TR_THROW)) {
-            info[i++] = _("あなたの武器は投げやすい。", "Your weapon can be thrown well.");
-        }
-    }
-
-    screen_save();
-
-    /* Erase the screen */
-    for (k = 1; k < 24; k++)
-        prt("", k, 13);
-
-    /* Label the information */
-    prt(_("        あなたの状態:", "     Your Attributes:"), 1, 15);
-
-    /* We will print on top of the map (column 13) */
-    for (k = 2, j = 0; j < i; j++) {
-        /* Show the info */
-        prt(info[j], k++, 15);
-
-        /* Every 20 entries (lines 2 to 21), start over */
-        if ((k == 22) && (j + 1 < i)) {
-            prt(_("-- 続く --", "-- more --"), k, 15);
-            inkey();
-            for (; k > 2; k--)
-                prt("", k, 15);
-        }
-    }
-
-    /* Pause */
-    prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
-    inkey();
-    screen_load();
-}
-
-/*!
- * @brief 魔法効果時間のターン数に基づいて表現IDを返す。
- * @param dur 効果ターン数
- * @return 効果時間の表現ID
- */
-static int report_magics_aux(int dur)
-{
-    if (dur <= 5) {
-        return 0;
-    } else if (dur <= 10) {
-        return 1;
-    } else if (dur <= 20) {
-        return 2;
-    } else if (dur <= 50) {
-        return 3;
-    } else if (dur <= 100) {
-        return 4;
-    } else if (dur <= 200) {
-        return 5;
-    } else {
-        return 6;
-    }
-}
-
-static concptr report_magic_durations[] = {
-#ifdef JP
-    "ごく短い間", "少しの間", "しばらくの間", "多少長い間", "長い間", "非常に長い間", "信じ難いほど長い間", "モンスターを攻撃するまで"
-#else
-    "for a short time", "for a little while", "for a while", "for a long while", "for a long time", "for a very long time", "for an incredibly long time",
-    "until you hit a monster"
-#endif
-
-};
-
-/*!
- * @brief 現在の一時的効果一覧を返す / Report all currently active magical effects.
- * @return なし
- */
-void report_magics(player_type *creature_ptr)
-{
-    int i = 0, j, k;
-    char Dummy[80];
-    concptr info[128];
-    int info2[128];
-
-    if (creature_ptr->blind) {
-        info2[i] = report_magics_aux(creature_ptr->blind);
-        info[i++] = _("あなたは目が見えない", "You cannot see");
-    }
-    if (creature_ptr->confused) {
-        info2[i] = report_magics_aux(creature_ptr->confused);
-        info[i++] = _("あなたは混乱している", "You are confused");
-    }
-    if (creature_ptr->afraid) {
-        info2[i] = report_magics_aux(creature_ptr->afraid);
-        info[i++] = _("あなたは恐怖に侵されている", "You are terrified");
-    }
-    if (creature_ptr->poisoned) {
-        info2[i] = report_magics_aux(creature_ptr->poisoned);
-        info[i++] = _("あなたは毒に侵されている", "You are poisoned");
-    }
-    if (creature_ptr->image) {
-        info2[i] = report_magics_aux(creature_ptr->image);
-        info[i++] = _("あなたは幻覚を見ている", "You are hallucinating");
-    }
-    if (creature_ptr->blessed) {
-        info2[i] = report_magics_aux(creature_ptr->blessed);
-        info[i++] = _("あなたは高潔さを感じている", "You feel rightous");
-    }
-    if (creature_ptr->hero) {
-        info2[i] = report_magics_aux(creature_ptr->hero);
-        info[i++] = _("あなたはヒーロー気分だ", "You feel heroic");
-    }
-    if (creature_ptr->shero) {
-        info2[i] = report_magics_aux(creature_ptr->shero);
-        info[i++] = _("あなたは戦闘狂だ", "You are in a battle rage");
-    }
-    if (creature_ptr->protevil) {
-        info2[i] = report_magics_aux(creature_ptr->protevil);
-        info[i++] = _("あなたは邪悪なる存在から守られている", "You are protected from evil");
-    }
-    if (creature_ptr->shield) {
-        info2[i] = report_magics_aux(creature_ptr->shield);
-        info[i++] = _("あなたは神秘のシールドで守られている", "You are protected by a mystic shield");
-    }
-    if (creature_ptr->invuln) {
-        info2[i] = report_magics_aux(creature_ptr->invuln);
-        info[i++] = _("あなたは無敵だ", "You are invulnerable");
-    }
-    if (creature_ptr->wraith_form) {
-        info2[i] = report_magics_aux(creature_ptr->wraith_form);
-        info[i++] = _("あなたは幽体化している", "You are incorporeal");
-    }
-    if (creature_ptr->special_attack & ATTACK_CONFUSE) {
-        info2[i] = 7;
-        info[i++] = _("あなたの手は赤く輝いている", "Your hands are glowing dull red.");
-    }
-    if (creature_ptr->word_recall) {
-        info2[i] = report_magics_aux(creature_ptr->word_recall);
-        info[i++] = _("この後帰還の詔が発動する", "You are waiting to be recalled");
-    }
-    if (creature_ptr->alter_reality) {
-        info2[i] = report_magics_aux(creature_ptr->alter_reality);
-        info[i++] = _("この後現実変容が発動する", "You waiting to be altered");
-    }
-    if (creature_ptr->oppose_acid) {
-        info2[i] = report_magics_aux(creature_ptr->oppose_acid);
-        info[i++] = _("あなたは酸への耐性を持っている", "You are resistant to acid");
-    }
-    if (creature_ptr->oppose_elec) {
-        info2[i] = report_magics_aux(creature_ptr->oppose_elec);
-        info[i++] = _("あなたは電撃への耐性を持っている", "You are resistant to lightning");
-    }
-    if (creature_ptr->oppose_fire) {
-        info2[i] = report_magics_aux(creature_ptr->oppose_fire);
-        info[i++] = _("あなたは火への耐性を持っている", "You are resistant to fire");
-    }
-    if (creature_ptr->oppose_cold) {
-        info2[i] = report_magics_aux(creature_ptr->oppose_cold);
-        info[i++] = _("あなたは冷気への耐性を持っている", "You are resistant to cold");
-    }
-    if (creature_ptr->oppose_pois) {
-        info2[i] = report_magics_aux(creature_ptr->oppose_pois);
-        info[i++] = _("あなたは毒への耐性を持っている", "You are resistant to poison");
-    }
-    screen_save();
-
-    /* Erase the screen */
-    for (k = 1; k < 24; k++)
-        prt("", k, 13);
-
-    /* Label the information */
-    prt(_("    現在かかっている魔法     :", "     Your Current Magic:"), 1, 15);
-
-    /* We will print on top of the map (column 13) */
-    for (k = 2, j = 0; j < i; j++) {
-        /* Show the info */
-        sprintf(Dummy, _("%-28s : 期間 - %s ", "%s %s."), info[j], report_magic_durations[info2[j]]);
-        prt(Dummy, k++, 15);
-
-        /* Every 20 entries (lines 2 to 21), start over */
-        if ((k == 22) && (j + 1 < i)) {
-            prt(_("-- 続く --", "-- more --"), k, 15);
-            inkey();
-            for (; k > 2; k--)
-                prt("", k, 15);
-        }
-    }
-
-    /* Pause */
-    prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
-    inkey();
-    screen_load();
-}
-- 
2.11.0