src/player/selfinfo.c

   1 /*!
   2  * @file selfinfo.c
   3  * @brief 自己分析処理/ Self knowledge
   4  * @date 2018/09/07
   5  * @author
   6  * <pre>
   7  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
   8  * This software may be copied and distributed for educational, research,
   9  * and not for profit purposes provided that this copyright and statement
  10  * are included in all such copies.  Other copyrights may also apply.
  11  * </pre>
  12  * 2018 Deskull
  13  * @details
  14  * spell2s.cから分離
  15  */
  16
  17 #include "player/selfinfo.h"
  18 #include "inventory/inventory-slot-types.h"
  19 #include "io/input-key-acceptor.h"
  20 #include "mutation/mutation-flag-types.h"
  21 #include "object-enchant/tr-types.h"
  22 #include "object-enchant/trc-types.h"
  23 #include "object/object-flags.h"
  24 #include "player/attack-defense-types.h"
  25 #include "player/avatar.h"
  26 #include "player/player-class.h"
  27 #include "player/player-race-types.h"
  28 #include "player/player-race.h"
  29 #include "realm/realm-names-table.h"
  30 #include "realm/realm-song-numbers.h"
  31 #include "status/element-resistance.h"
  32 #include "term/screen-processor.h"
  33 #include "util/bit-flags-calculator.h"
  34 #include "player/player-status-flags.h"
  35
  36 /*!
  37  * @brief 自己分析処理(Nethackからのアイデア) / self-knowledge... idea from nethack.
  38  * @return なし
  39  * @details
  40  * <pre>
  41  * Useful for determining powers and
  42  * resistences of items.  It saves the screen, clears it, then starts listing
  43  * attributes, a screenful at a time.  (There are a LOT of attributes to
  44  * list.  It will probably take 2 or 3 screens for a powerful character whose
  45  * using several artifacts...) -CFT
  46  *
  47  * It is now a lot more efficient. -BEN-
  48  *
  49  * See also "identify_fully()".
  50  *
  51  * Use the "show_file()" method, perhaps.
  52  * </pre>
  53  */
  54 void self_knowledge(player_type *creature_ptr)
  55 {
  56     int i = 0, j, k;
  57
  58     int v_nr = 0;
  59     char v_string[8][128];
  60     char s_string[6][128];
  61
  62     BIT_FLAGS flgs[TR_FLAG_SIZE];
  63
  64     object_type *o_ptr;
  65
  66     char Dummy[80];
  67     char buf[2][80];
  68
  69     concptr info[220];
  70
  71     PLAYER_LEVEL plev = creature_ptr->lev;
  72
  73     int percent;
  74
  75     for (j = 0; j < TR_FLAG_SIZE; j++)
  76         flgs[j] = 0L;
  77
  78     creature_ptr->knowledge |= (KNOW_STAT | KNOW_HPRATE);
  79
  80     strcpy(Dummy, "");
  81
  82     percent
  83         = (int)(((long)creature_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) / (2 * creature_ptr->hitdie + ((PY_MAX_LEVEL - 1 + 3) * (creature_ptr->hitdie + 1))));
  84
  85     sprintf(Dummy, _("現在の体力ランク : %d/100", "Your current Life Rating is %d/100."), percent);
  86     strcpy(buf[0], Dummy);
  87     info[i++] = buf[0];
  88     info[i++] = "";
  89
  90     chg_virtue(creature_ptr, V_KNOWLEDGE, 1);
  91     chg_virtue(creature_ptr, V_ENLIGHTEN, 1);
  92
  93     /* Acquire item flags from equipment */
  94     for (k = INVEN_RARM; k < INVEN_TOTAL; k++) {
  95         u32b tflgs[TR_FLAG_SIZE];
  96
  97         o_ptr = &creature_ptr->inventory_list[k];
  98         if (!o_ptr->k_idx)
  99             continue;
 100         object_flags(creature_ptr, o_ptr, tflgs);
 101
 102         /* Extract flags */
 103         for (j = 0; j < TR_FLAG_SIZE; j++)
 104             flgs[j] |= tflgs[j];
 105     }
 106
 107     info[i++] = _("能力の最大値", "Limits of maximum stats");
 108
 109     for (v_nr = 0; v_nr < A_MAX; v_nr++) {
 110         char stat_desc[80];
 111
 112         sprintf(stat_desc, "%s 18/%d", stat_names[v_nr], creature_ptr->stat_max_max[v_nr] - 18);
 113
 114         strcpy(s_string[v_nr], stat_desc);
 115
 116         info[i++] = s_string[v_nr];
 117     }
 118     info[i++] = "";
 119
 120     sprintf(Dummy, _("現在の属性 : %s(%ld)", "Your alignment : %s(%ld)"), your_alignment(creature_ptr), (long int)creature_ptr->align);
 121     strcpy(buf[1], Dummy);
 122     info[i++] = buf[1];
 123     for (v_nr = 0; v_nr < 8; v_nr++) {
 124         GAME_TEXT vir_name[20];
 125         char vir_desc[80];
 126         int tester = creature_ptr->virtues[v_nr];
 127
 128         strcpy(vir_name, virtue[(creature_ptr->vir_types[v_nr]) - 1]);
 129
 130         sprintf(vir_desc, _("おっと。%sの情報なし。", "Oops. No info about %s."), vir_name);
 131         if (tester < -100)
 132             sprintf(vir_desc, _("[%s]の対極 (%d)", "You are the polar opposite of %s (%d)."), vir_name, tester);
 133         else if (tester < -80)
 134             sprintf(vir_desc, _("[%s]の大敵 (%d)", "You are an arch-enemy of %s (%d)."), vir_name, tester);
 135         else if (tester < -60)
 136             sprintf(vir_desc, _("[%s]の強敵 (%d)", "You are a bitter enemy of %s (%d)."), vir_name, tester);
 137         else if (tester < -40)
 138             sprintf(vir_desc, _("[%s]の敵 (%d)", "You are an enemy of %s (%d)."), vir_name, tester);
 139         else if (tester < -20)
 140             sprintf(vir_desc, _("[%s]の罪者 (%d)", "You have sinned against %s (%d)."), vir_name, tester);
 141         else if (tester < 0)
 142             sprintf(vir_desc, _("[%s]の迷道者 (%d)", "You have strayed from the path of %s (%d)."), vir_name, tester);
 143         else if (tester == 0)
 144             sprintf(vir_desc, _("[%s]の中立者 (%d)", "You are neutral to %s (%d)."), vir_name, tester);
 145         else if (tester < 20)
 146             sprintf(vir_desc, _("[%s]の小徳者 (%d)", "You are somewhat virtuous in %s (%d)."), vir_name, tester);
 147         else if (tester < 40)
 148             sprintf(vir_desc, _("[%s]の中徳者 (%d)", "You are virtuous in %s (%d)."), vir_name, tester);
 149         else if (tester < 60)
 150             sprintf(vir_desc, _("[%s]の高徳者 (%d)", "You are very virtuous in %s (%d)."), vir_name, tester);
 151         else if (tester < 80)
 152             sprintf(vir_desc, _("[%s]の覇者 (%d)", "You are a champion of %s (%d)."), vir_name, tester);
 153         else if (tester < 100)
 154             sprintf(vir_desc, _("[%s]の偉大な覇者 (%d)", "You are a great champion of %s (%d)."), vir_name, tester);
 155         else
 156             sprintf(vir_desc, _("[%s]の具現者 (%d)", "You are the living embodiment of %s (%d)."), vir_name, tester);
 157
 158         strcpy(v_string[v_nr], vir_desc);
 159
 160         info[i++] = v_string[v_nr];
 161     }
 162     info[i++] = "";
 163
 164     /* Racial powers... */
 165     if (creature_ptr->mimic_form) {
 166         switch (creature_ptr->mimic_form) {
 167         case MIMIC_DEMON:
 168         case MIMIC_DEMON_LORD:
 169             sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", "You can nether breathe, dam. %d (cost %d)."), 3 * plev,
 170                 10 + plev / 3);
 171
 172             info[i++] = Dummy;
 173             break;
 174         case MIMIC_VAMPIRE:
 175             if (plev > 1) {
 176                 sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),
 177                     plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
 178                 info[i++] = Dummy;
 179             }
 180             break;
 181         }
 182     } else {
 183         switch (creature_ptr->prace) {
 184         case RACE_NIBELUNG:
 185         case RACE_DWARF:
 186             if (plev > 4)
 187                 info[i++] = _("あなたは罠とドアと階段を感知できる。(5 MP)", "You can find traps, doors and stairs (cost 5).");
 188             break;
 189         case RACE_HOBBIT:
 190             if (plev > 14) {
 191                 info[i++] = _("あなたは食料を生成できる。(10 MP)", "You can produce food (cost 10).");
 192             }
 193             break;
 194         case RACE_GNOME:
 195             if (plev > 4) {
 196                 sprintf(Dummy, _("あなたは範囲 %d 以内にテレポートできる。(%d MP)", "You can teleport, range %d (cost %d)."), (1 + plev), (5 + (plev / 5)));
 197                 info[i++] = Dummy;
 198             }
 199             break;
 200         case RACE_HALF_ORC:
 201             if (plev > 2)
 202                 info[i++] = _("あなたは恐怖を除去できる。(5 MP)", "You can remove fear (cost 5).");
 203             break;
 204         case RACE_HALF_TROLL:
 205             if (plev > 9)
 206                 info[i++] = _("あなたは狂暴化することができる。(12 MP) ", "You can enter a berserk fury (cost 12).");
 207             break;
 208         case RACE_AMBERITE:
 209             if (plev > 29)
 210                 info[i++] = _("あなたはシャドウシフトすることができる。(50 MP)", "You can Shift Shadows (cost 50).");
 211
 212             if (plev > 39)
 213                 info[i++] = _("あなたは「パターン」を心に描いて歩くことができる。(75 MP)", "You can mentally Walk the Pattern (cost 75).");
 214
 215             break;
 216         case RACE_BARBARIAN:
 217             if (plev > 7)
 218                 info[i++] = _("あなたは狂暴化することができる。(10 MP) ", "You can enter a berserk fury (cost 10).");
 219
 220             break;
 221         case RACE_HALF_OGRE:
 222             if (plev > 24)
 223                 info[i++] = _("あなたは爆発のルーンを仕掛けることができる。(35 MP)", "You can set an Explosive Rune (cost 35).");
 224
 225             break;
 226         case RACE_HALF_GIANT:
 227             if (plev > 19)
 228                 info[i++] = _("あなたは石の壁を壊すことができる。(10 MP)", "You can break stone walls (cost 10).");
 229             break;
 230         case RACE_HALF_TITAN:
 231             if (plev > 34)
 232                 info[i++] = _("あなたはモンスターをスキャンすることができる。(20 MP)", "You can probe monsters (cost 20).");
 233             break;
 234         case RACE_CYCLOPS:
 235             if (plev > 19) {
 236                 sprintf(Dummy, _("あなたは %d ダメージの岩石を投げることができる。(15 MP)", "You can throw a boulder, dam. %d (cost 15)."), 3 * plev);
 237                 info[i++] = Dummy;
 238             }
 239             break;
 240         case RACE_YEEK:
 241             if (plev > 14)
 242                 info[i++] = _("あなたは恐怖を呼び起こす叫び声を発することができる。(15 MP)", "You can make a terrifying scream (cost 15).");
 243             break;
 244         case RACE_KLACKON:
 245             if (plev > 8) {
 246                 sprintf(Dummy, _("あなたは %d ダメージの酸を吹きかけることができる。(9 MP)", "You can spit acid, dam. %d (cost 9)."), plev);
 247                 info[i++] = Dummy;
 248             }
 249             break;
 250         case RACE_KOBOLD:
 251             if (plev > 11) {
 252                 sprintf(Dummy, _("あなたは %d ダメージの毒矢を投げることができる。(8 MP)", "You can throw a dart of poison, dam. %d (cost 8)."), plev);
 253                 info[i++] = Dummy;
 254             }
 255             break;
 256         case RACE_DARK_ELF:
 257             if (plev > 1) {
 258                 sprintf(Dummy, _("あなたは %d ダメージのマジック・ミサイルの呪文を使える。(2 MP)", "You can cast a Magic Missile, dam %d (cost 2)."),
 259                     (3 + ((plev - 1) / 5)));
 260                 info[i++] = Dummy;
 261             }
 262             break;
 263         case RACE_DRACONIAN:
 264             sprintf(Dummy, _("あなたは %d ダメージのブレスを吐くことができる。(%d MP)", "You can breathe, dam. %d (cost %d)."), 2 * plev, plev);
 265             info[i++] = Dummy;
 266             break;
 267         case RACE_MIND_FLAYER:
 268             if (plev > 14)
 269                 sprintf(Dummy, _("あなたは %d ダメージの精神攻撃をすることができる。(12 MP)", "You can mind blast your enemies, dam %d (cost 12)."), plev);
 270             info[i++] = Dummy;
 271             break;
 272         case RACE_IMP:
 273             if (plev > 29) {
 274                 sprintf(Dummy, _("あなたは %d ダメージのファイア・ボールの呪文を使える。(15 MP)", "You can cast a Fire Ball, dam. %d (cost 15)."), plev);
 275                 info[i++] = Dummy;
 276             } else if (plev > 8) {
 277                 sprintf(Dummy, _("あなたは %d ダメージのファイア・ボルトの呪文を使える。(15 MP)", "You can cast a Fire Bolt, dam. %d (cost 15)."), plev);
 278                 info[i++] = Dummy;
 279             }
 280             break;
 281         case RACE_GOLEM:
 282             if (plev > 19)
 283                 info[i++] = _("あなたは d20+30 ターンの間肌を石に変化させられる。(15 MP)", "You can turn your skin to stone, dur d20+30 (cost 15).");
 284             break;
 285         case RACE_ZOMBIE:
 286         case RACE_SKELETON:
 287             if (plev > 29)
 288                 info[i++] = _("あなたは失った経験値を回復することができる。(30 MP)", "You can restore lost experience (cost 30).");
 289             break;
 290         case RACE_VAMPIRE:
 291             if (plev > 1) {
 292                 sprintf(Dummy, _("あなたは敵から %d-%d HP の生命力を吸収できる。(%d MP)", "You can steal life from a foe, dam. %d-%d (cost %d)."),
 293                     plev + MAX(1, plev / 10), plev + plev * MAX(1, plev / 10), 1 + (plev / 3));
 294                 info[i++] = Dummy;
 295             }
 296             break;
 297         case RACE_SPECTRE:
 298             if (plev > 3) {
 299                 info[i++] = _("あなたは泣き叫んで敵を恐怖させることができる。(3 MP)", "You can wail to terrify your enemies (cost 3).");
 300             }
 301             break;
 302         case RACE_SPRITE:
 303             if (plev > 11) {
 304                 info[i++] = _("あなたは敵を眠らせる魔法の粉を投げることができる。(12 MP)", "You can throw magical dust which induces sleep (cost 12).");
 305             }
 306             break;
 307         case RACE_BALROG:
 308             sprintf(Dummy, _("あなたは %d ダメージの地獄か火炎のブレスを吐くことができる。(%d MP)", "You can breathe nether, dam. %d (cost %d)."), 3 * plev,
 309                 10 + plev / 3);
 310
 311             info[i++] = Dummy;
 312             break;
 313         case RACE_KUTAR:
 314             if (plev > 19)
 315                 info[i++] = _("あなたは d20+30 ターンの間横に伸びることができる。(15 MP)", "You can expand horizontally, dur d20+30 (cost 15).");
 316             break;
 317         case RACE_ANDROID:
 318             if (plev < 10)
 319                 sprintf(
 320                     Dummy, _("あなたは %d ダメージのレイガンを撃つことができる。(7 MP)", "You can fire a ray gun with damage %d (cost 7)."), (plev + 1) / 2);
 321             else if (plev < 25)
 322                 sprintf(Dummy, _("あなたは %d ダメージのブラスターを撃つことができる。(13 MP)", "You can fire a blaster with damage %d (cost 13)."), plev);
 323             else if (plev < 35)
 324                 sprintf(Dummy, _("あなたは %d ダメージのバズーカを撃つことができる。(26 MP)", "You can fire a bazooka with damage %d (cost 26)."), plev * 2);
 325             else if (plev < 45)
 326                 sprintf(Dummy, _("あなたは %d ダメージのビームキャノンを撃つことができる。(40 MP)", "You can fire a beam cannon with damage %d (cost 40)."),
 327                     plev * 2);
 328             else
 329                 sprintf(Dummy, _("あなたは %d ダメージのロケットを撃つことができる。(60 MP)", "You can fire a rocket with damage %d (cost 60)."), plev * 5);
 330
 331             info[i++] = Dummy;
 332             break;
 333         default:
 334             break;
 335         }
 336     }
 337
 338     switch (creature_ptr->pclass) {
 339     case CLASS_WARRIOR:
 340         if (plev > 39) {
 341             info[i++] = _("あなたはランダムな方向に対して数回攻撃することができる。(75 MP)", "You can attack some random directions simultaneously (cost 75).");
 342         }
 343         break;
 344     case CLASS_HIGH_MAGE:
 345         if (creature_ptr->realm1 == REALM_HEX)
 346             break;
 347         /* Fall through */
 348     case CLASS_MAGE:
 349     case CLASS_SORCERER:
 350         if (plev > 24) {
 351             info[i++] = _("あなたはアイテムの魔力を吸収することができる。(1 MP)", "You can absorb charges from an item (cost 1).");
 352         }
 353         break;
 354     case CLASS_PRIEST:
 355         if (is_good_realm(creature_ptr->realm1)) {
 356             if (plev > 34) {
 357                 info[i++] = _("あなたは武器を祝福することができる。(70 MP)", "You can bless a weapon (cost 70).");
 358             }
 359         } else {
 360             if (plev > 41) {
 361                 info[i++] = _("あなたは周りのすべてのモンスターを攻撃することができる。(40 MP)", "You can damage all monsters in sight (cost 40).");
 362             }
 363         }
 364         break;
 365     case CLASS_ROGUE:
 366         if (plev > 7) {
 367             info[i++] = _("あなたは攻撃して即座に逃げることができる。(12 MP)", "You can hit a monster and teleport away simultaneously (cost 12).");
 368         }
 369         break;
 370     case CLASS_RANGER:
 371         if (plev > 14) {
 372             info[i++] = _("あなたは怪物を調査することができる。(20 MP)", "You can probe monsters (cost 20).");
 373         }
 374         break;
 375     case CLASS_PALADIN:
 376         if (is_good_realm(creature_ptr->realm1)) {
 377             if (plev > 29) {
 378                 info[i++] = _("あなたは聖なる槍を放つことができる。(30 MP)", "You can fire a holy spear (cost 30).");
 379             }
 380         } else {
 381             if (plev > 29) {
 382                 info[i++] = _("あなたは生命力を減少させる槍を放つことができる。(30 MP)", "You can fire a spear which drains vitality (cost 30).");
 383             }
 384         }
 385         break;
 386     case CLASS_WARRIOR_MAGE:
 387         if (plev > 24) {
 388             info[i++] = _("あなたはＨＰをＭＰに変換することができる。(0 MP)", "You can convert HP to SP (cost 0).");
 389             info[i++] = _("あなたはＭＰをＨＰに変換することができる。(0 MP)", "You can convert SP to HP (cost 0).");
 390         }
 391         break;
 392     case CLASS_CHAOS_WARRIOR:
 393         if (plev > 39) {
 394             info[i++] = _("あなたは周囲に怪物を惑わす光を発生させることができる。(50 MP)", "You can radiate light which confuses nearby monsters (cost 50).");
 395         }
 396         break;
 397     case CLASS_MONK:
 398         if (plev > 24) {
 399             info[i++] = _("あなたは構えることができる。(0 MP)", "You can assume a special stance (cost 0).");
 400         }
 401         if (plev > 29) {
 402             info[i++] = _("あなたは通常の2倍の攻撃を行うことができる。(30 MP)", "You can perform two attacks at the same time (cost 30).");
 403         }
 404         break;
 405     case CLASS_MINDCRAFTER:
 406     case CLASS_FORCETRAINER:
 407         if (plev > 14) {
 408             info[i++] = _("あなたは精神を集中してＭＰを回復させることができる。(0 MP)", "You can concentrate to regenerate your mana (cost 0).");
 409         }
 410         break;
 411     case CLASS_TOURIST:
 412         info[i++] = _("あなたは写真を撮影することができる。(0 MP)", "You can take a photograph (cost 0).");
 413         if (plev > 24) {
 414             info[i++] = _("あなたはアイテムを完全に鑑定することができる。(20 MP)", "You can *identify* items (cost 20).");
 415         }
 416         break;
 417     case CLASS_IMITATOR:
 418         if (plev > 29) {
 419             info[i++] = _("あなたは怪物の特殊攻撃をダメージ2倍でまねることができる。(100 MP)",
 420                 "You can imitate monster's special attacks with double damage (cost 100).");
 421         }
 422         break;
 423     case CLASS_BEASTMASTER:
 424         info[i++] = _("あなたは1体の生命のあるモンスターを支配することができる。(レベル/4 MP)", "You can dominate a monster (cost level/4).");
 425         if (plev > 29) {
 426             info[i++] = _("あなたは視界内の生命のあるモンスターを支配することができる。((レベル+20)/2 MP)",
 427                 "You can dominate living monsters in sight (cost (level+20)/4).");
 428         }
 429         break;
 430     case CLASS_MAGIC_EATER:
 431         info[i++] = _("あなたは杖/魔法棒/ロッドの魔力を自分のものにすることができる。", "You can absorb a staff, wand or rod itself.");
 432         break;
 433     case CLASS_RED_MAGE:
 434         if (plev > 47) {
 435             info[i++] = _("あなたは1ターンに2回魔法を唱えることができる。(20 MP)", "You can cast two spells simultaneously (cost 20).");
 436         }
 437         break;
 438     case CLASS_SAMURAI: {
 439         info[i++] = _("あなたは精神を集中して気合いを溜めることができる。", "You can concentrate to regenerate your mana.");
 440     }
 441         if (plev > 24) {
 442             info[i++] = _("あなたは特殊な型で構えることができる。", "You can assume a special stance.");
 443         }
 444         break;
 445     case CLASS_BLUE_MAGE:
 446         info[i++] = _("あなたは相手に使われた魔法を学ぶことができる。", "You can study spells which your enemy casts on you.");
 447         break;
 448     case CLASS_CAVALRY:
 449         if (plev > 9) {
 450             info[i++] = _("あなたはモンスターに乗って無理矢理ペットにすることができる。", "You can ride on a hostile monster to forcibly turn it into a pet.");
 451         }
 452         break;
 453     case CLASS_BERSERKER:
 454         if (plev > 9) {
 455             info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
 456         }
 457         break;
 458     case CLASS_MIRROR_MASTER:
 459         info[i++] = _("あなたは鏡を作り出すことができる。(2 MP)", "You can create a Mirror (cost 2).");
 460         info[i++] = _("あなたは鏡を割ることができる。(0 MP)", "You can break distant Mirrors (cost 0).");
 461         break;
 462     case CLASS_NINJA:
 463         if (plev > 19) {
 464             info[i++] = _("あなたは素早く移動することができる。", "You can walk extremely fast.");
 465         }
 466         break;
 467     }
 468
 469     if (creature_ptr->muta1) {
 470         if (creature_ptr->muta1 & MUT1_SPIT_ACID) {
 471             info[i++] = _("あなたは酸を吹きかけることができる。(ダメージ レベルX1)", "You can spit acid (dam lvl).");
 472         }
 473         if (creature_ptr->muta1 & MUT1_BR_FIRE) {
 474             info[i++] = _("あなたは炎のブレスを吐くことができる。(ダメージ レベルX2)", "You can breathe fire (dam lvl * 2).");
 475         }
 476         if (creature_ptr->muta1 & MUT1_HYPN_GAZE) {
 477             info[i++] = _("あなたの睨みは催眠効果をもつ。", "Your gaze is hypnotic.");
 478         }
 479         if (creature_ptr->muta1 & MUT1_TELEKINES) {
 480             info[i++] = _("あなたは念動力をもっている。", "You are telekinetic.");
 481         }
 482         if (creature_ptr->muta1 & MUT1_VTELEPORT) {
 483             info[i++] = _("あなたは自分の意思でテレポートできる。", "You can teleport at will.");
 484         }
 485         if (creature_ptr->muta1 & MUT1_MIND_BLST) {
 486             info[i++] = _("あなたは精神攻撃を行える。(ダメージ 3～12d3)", "You can Mind Blast your enemies (3 to 12d3 dam).");
 487         }
 488         if (creature_ptr->muta1 & MUT1_RADIATION) {
 489             info[i++] = _("あなたは自分の意思で強い放射線を発生することができる。(ダメージ レベルX2)", "You can emit hard radiation at will (dam lvl * 2).");
 490         }
 491         if (creature_ptr->muta1 & MUT1_VAMPIRISM) {
 492             info[i++] = _("あなたは吸血鬼のように敵から生命力を吸収することができる。(ダメージ レベルX2)",
 493                 "Like a vampire, you can drain life from a foe (dam lvl * 2).");
 494         }
 495         if (creature_ptr->muta1 & MUT1_SMELL_MET) {
 496             info[i++] = _("あなたは近くにある貴金属をかぎ分けることができる。", "You can smell nearby precious metal.");
 497         }
 498         if (creature_ptr->muta1 & MUT1_SMELL_MON) {
 499             info[i++] = _("あなたは近くのモンスターの存在をかぎ分けることができる。", "You can smell nearby monsters.");
 500         }
 501         if (creature_ptr->muta1 & MUT1_BLINK) {
 502             info[i++] = _("あなたは短い距離をテレポートできる。", "You can teleport yourself short distances.");
 503         }
 504         if (creature_ptr->muta1 & MUT1_EAT_ROCK) {
 505             info[i++] = _("あなたは硬い岩を食べることができる。", "You can consume solid rock.");
 506         }
 507         if (creature_ptr->muta1 & MUT1_SWAP_POS) {
 508             info[i++] = _("あなたは他の者と場所を入れ替わることができる。", "You can switch locations with another being.");
 509         }
 510         if (creature_ptr->muta1 & MUT1_SHRIEK) {
 511             info[i++] = _("あなたは身の毛もよだつ叫び声を発することができる。(ダメージ レベルX2)", "You can emit a horrible shriek (dam 2 * lvl).");
 512         }
 513         if (creature_ptr->muta1 & MUT1_ILLUMINE) {
 514             info[i++] = _("あなたは明るい光を放つことができる。", "You can emit bright light.");
 515         }
 516         if (creature_ptr->muta1 & MUT1_DET_CURSE) {
 517             info[i++] = _("あなたは邪悪な魔法の危険を感じとることができる。", "You can feel the danger of evil magic.");
 518         }
 519         if (creature_ptr->muta1 & MUT1_BERSERK) {
 520             info[i++] = _("あなたは自分の意思で狂乱戦闘状態になることができる。", "You can drive yourself into a berserk frenzy.");
 521         }
 522         if (creature_ptr->muta1 & MUT1_POLYMORPH) {
 523             info[i++] = _("あなたは自分の意志で変化できる。", "You can polymorph yourself at will.");
 524         }
 525         if (creature_ptr->muta1 & MUT1_MIDAS_TCH) {
 526             info[i++] = _("あなたは通常アイテムを金に変えることができる。", "You can turn ordinary items to gold.");
 527         }
 528         if (creature_ptr->muta1 & MUT1_GROW_MOLD) {
 529             info[i++] = _("あなたは周囲にキノコを生やすことができる。", "You can cause mold to grow near you.");
 530         }
 531         if (creature_ptr->muta1 & MUT1_RESIST) {
 532             info[i++] = _("あなたは元素の攻撃に対して身を硬くすることができる。", "You can harden yourself to the ravages of the elements.");
 533         }
 534         if (creature_ptr->muta1 & MUT1_EARTHQUAKE) {
 535             info[i++] = _("あなたは周囲のダンジョンを崩壊させることができる。", "You can bring down the dungeon around your ears.");
 536         }
 537         if (creature_ptr->muta1 & MUT1_EAT_MAGIC) {
 538             info[i++] = _("あなたは魔法のエネルギーを自分の物として使用できる。", "You can consume magic energy for your own use.");
 539         }
 540         if (creature_ptr->muta1 & MUT1_WEIGH_MAG) {
 541             info[i++] = _("あなたは自分に影響を与える魔法の力を感じることができる。", "You can feel the strength of the magics affecting you.");
 542         }
 543         if (creature_ptr->muta1 & MUT1_STERILITY) {
 544             info[i++] = _("あなたは集団的生殖不能を起こすことができる。", "You can cause mass impotence.");
 545         }
 546         if (creature_ptr->muta1 & MUT1_HIT_AND_AWAY) {
 547             info[i++] = _("あなたは攻撃した後身を守るため逃げることができる。", "You can run for your life after hitting something.");
 548         }
 549         if (creature_ptr->muta1 & MUT1_DAZZLE) {
 550             info[i++] = _("あなたは混乱と盲目を引き起こす放射能を発生することができる。 ", "You can emit confusing, blinding radiation.");
 551         }
 552         if (creature_ptr->muta1 & MUT1_LASER_EYE) {
 553             info[i++] = _("あなたは目からレーザー光線を発することができる。(ダメージ レベルX2)", "Your eyes can fire laser beams (dam 2 * lvl).");
 554         }
 555         if (creature_ptr->muta1 & MUT1_RECALL) {
 556             info[i++] = _("あなたは街とダンジョンの間を行き来することができる。", "You can travel between town and the depths.");
 557         }
 558         if (creature_ptr->muta1 & MUT1_BANISH) {
 559             info[i++] = _("あなたは邪悪なモンスターを地獄に落とすことができる。", "You can send evil creatures directly to Hell.");
 560         }
 561         if (creature_ptr->muta1 & MUT1_COLD_TOUCH) {
 562             info[i++] = _("あなたは敵を触って凍らせることができる。(ダメージ レベルX3)", "You can freeze things with a touch (dam 3 * lvl).");
 563         }
 564         if (creature_ptr->muta1 & MUT1_LAUNCHER) {
 565             info[i++] = _("あなたはアイテムを力強く投げることができる。", "You can hurl objects with great force.");
 566         }
 567     }
 568
 569     if (creature_ptr->muta2) {
 570         if (creature_ptr->muta2 & MUT2_BERS_RAGE) {
 571             info[i++] = _("あなたは狂戦士化の発作を起こす。", "You are subject to berserker fits.");
 572         }
 573         if (creature_ptr->muta2 & MUT2_COWARDICE) {
 574             info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
 575         }
 576         if (creature_ptr->muta2 & MUT2_RTELEPORT) {
 577             info[i++] = _("あなたはランダムにテレポートする。", "You may randomly teleport.");
 578         }
 579         if (creature_ptr->muta2 & MUT2_ALCOHOL) {
 580             info[i++] = _("あなたの体はアルコールを分泌する。", "Your body produces alcohol.");
 581         }
 582         if (creature_ptr->muta2 & MUT2_HALLU) {
 583             info[i++] = _("あなたは幻覚を引き起こす精神錯乱に侵されている。", "You have a hallucinatory insanity.");
 584         }
 585         if (creature_ptr->muta2 & MUT2_FLATULENT) {
 586             info[i++] = _("あなたは制御できない強烈な屁をこく。", "You are subject to uncontrollable flatulence.");
 587         }
 588         if (creature_ptr->muta2 & MUT2_PROD_MANA) {
 589             info[i++] = _("あなたは制御不能な魔法のエネルギーを発している。", "You produce magical energy uncontrollably.");
 590         }
 591         if (creature_ptr->muta2 & MUT2_ATT_DEMON) {
 592             info[i++] = _("あなたはデーモンを引きつける。", "You attract demons.");
 593         }
 594         if (creature_ptr->muta2 & MUT2_SCOR_TAIL) {
 595             info[i++] = _("あなたはサソリの尻尾が生えている。(毒、ダメージ 3d7)", "You have a scorpion tail (poison, 3d7).");
 596         }
 597         if (creature_ptr->muta2 & MUT2_HORNS) {
 598             info[i++] = _("あなたは角が生えている。(ダメージ 2d6)", "You have horns (dam. 2d6).");
 599         }
 600         if (creature_ptr->muta2 & MUT2_BEAK) {
 601             info[i++] = _("あなたはクチバシが生えている。(ダメージ 2d4)", "You have a beak (dam. 2d4).");
 602         }
 603         if (creature_ptr->muta2 & MUT2_SPEED_FLUX) {
 604             info[i++] = _("あなたはランダムに早く動いたり遅く動いたりする。", "You move faster or slower randomly.");
 605         }
 606         if (creature_ptr->muta2 & MUT2_BANISH_ALL) {
 607             info[i++] = _("あなたは時々近くのモンスターを消滅させる。", "You sometimes cause nearby creatures to vanish.");
 608         }
 609         if (creature_ptr->muta2 & MUT2_EAT_LIGHT) {
 610             info[i++] = _("あなたは時々周囲の光を吸収して栄養にする。", "You sometimes feed off of the light around you.");
 611         }
 612         if (creature_ptr->muta2 & MUT2_TRUNK) {
 613             info[i++] = _("あなたは象のような鼻を持っている。(ダメージ 1d4)", "You have an elephantine trunk (dam 1d4).");
 614         }
 615         if (creature_ptr->muta2 & MUT2_ATT_ANIMAL) {
 616             info[i++] = _("あなたは動物を引きつける。", "You attract animals.");
 617         }
 618         if (creature_ptr->muta2 & MUT2_TENTACLES) {
 619             info[i++] = _("あなたは邪悪な触手を持っている。(ダメージ 2d5)", "You have evil looking tentacles (dam 2d5).");
 620         }
 621         if (creature_ptr->muta2 & MUT2_RAW_CHAOS) {
 622             info[i++] = _("あなたはしばしば純カオスに包まれる。", "You occasionally are surrounded with raw chaos.");
 623         }
 624         if (creature_ptr->muta2 & MUT2_NORMALITY) {
 625             info[i++] = _("あなたは変異していたが、回復してきている。", "You may be mutated, but you're recovering.");
 626         }
 627         if (creature_ptr->muta2 & MUT2_WRAITH) {
 628             info[i++] = _("あなたの肉体は幽体化したり実体化したりする。", "You fade in and out of physical reality.");
 629         }
 630         if (creature_ptr->muta2 & MUT2_POLY_WOUND) {
 631             info[i++] = _("あなたの健康はカオスの力に影響を受ける。", "Your health is subject to chaotic forces.");
 632         }
 633         if (creature_ptr->muta2 & MUT2_WASTING) {
 634             info[i++] = _("あなたは衰弱する恐ろしい病気にかかっている。", "You have a horrible wasting disease.");
 635         }
 636         if (creature_ptr->muta2 & MUT2_ATT_DRAGON) {
 637             info[i++] = _("あなたはドラゴンを引きつける。", "You attract dragons.");
 638         }
 639         if (creature_ptr->muta2 & MUT2_WEIRD_MIND) {
 640             info[i++] = _("あなたの精神はランダムに拡大したり縮小したりしている。", "Your mind randomly expands and contracts.");
 641         }
 642         if (creature_ptr->muta2 & MUT2_NAUSEA) {
 643             info[i++] = _("あなたの胃は非常に落ち着きがない。", "You have a seriously upset stomach.");
 644         }
 645         if (creature_ptr->muta2 & MUT2_CHAOS_GIFT) {
 646             info[i++] = _("あなたはカオスの守護悪魔から褒美をうけとる。", "Chaos deities give you gifts.");
 647         }
 648         if (creature_ptr->muta2 & MUT2_WALK_SHAD) {
 649             info[i++] = _("あなたはしばしば他の「影」に迷い込む。", "You occasionally stumble into other shadows.");
 650         }
 651         if (creature_ptr->muta2 & MUT2_WARNING) {
 652             info[i++] = _("あなたは敵に関する警告を感じる。", "You receive warnings about your foes.");
 653         }
 654         if (creature_ptr->muta2 & MUT2_INVULN) {
 655             info[i++] = _("あなたは時々負け知らずな気分になる。", "You occasionally feel invincible.");
 656         }
 657         if (creature_ptr->muta2 & MUT2_SP_TO_HP) {
 658             info[i++] = _("あなたは時々血が筋肉にどっと流れる。", "Your blood sometimes rushes to your muscles.");
 659         }
 660         if (creature_ptr->muta2 & MUT2_HP_TO_SP) {
 661             info[i++] = _("あなたは時々頭に血がどっと流れる。", "Your blood sometimes rushes to your head.");
 662         }
 663         if (creature_ptr->muta2 & MUT2_DISARM) {
 664             info[i++] = _("あなたはよくつまづいて物を落とす。", "You occasionally stumble and drop things.");
 665         }
 666     }
 667
 668     if (creature_ptr->muta3) {
 669         if (creature_ptr->muta3 & MUT3_HYPER_STR) {
 670             info[i++] = _("あなたは超人的に強い。(腕力+4)", "You are superhumanly strong (+4 STR).");
 671         }
 672         if (creature_ptr->muta3 & MUT3_PUNY) {
 673             info[i++] = _("あなたは虚弱だ。(腕力-4)", "You are puny (-4 STR).");
 674         }
 675         if (creature_ptr->muta3 & MUT3_HYPER_INT) {
 676             info[i++] = _("あなたの脳は生体コンピュータだ。(知能＆賢さ+4)", "Your brain is a living computer (+4 INT/WIS).");
 677         }
 678         if (creature_ptr->muta3 & MUT3_MORONIC) {
 679             info[i++] = _("あなたは精神薄弱だ。(知能＆賢さ-4)", "You are moronic (-4 INT/WIS).");
 680         }
 681         if (creature_ptr->muta3 & MUT3_RESILIENT) {
 682             info[i++] = _("あなたは非常にタフだ。(耐久+4)", "You are very resilient (+4 CON).");
 683         }
 684         if (creature_ptr->muta3 & MUT3_XTRA_FAT) {
 685             info[i++] = _("あなたは極端に太っている。(耐久+2,スピード-2)", "You are extremely fat (+2 CON, -2 speed).");
 686         }
 687         if (creature_ptr->muta3 & MUT3_ALBINO) {
 688             info[i++] = _("あなたはアルビノだ。(耐久-4)", "You are an albino (-4 CON).");
 689         }
 690         if (creature_ptr->muta3 & MUT3_FLESH_ROT) {
 691             info[i++] = _("あなたの肉体は腐敗している。(耐久-2,魅力-1)", "Your flesh is rotting (-2 CON, -1 CHR).");
 692         }
 693         if (creature_ptr->muta3 & MUT3_SILLY_VOI) {
 694             info[i++] = _("あなたの声は間抜けなキーキー声だ。(魅力-4)", "Your voice is a silly squeak (-4 CHR).");
 695         }
 696         if (creature_ptr->muta3 & MUT3_BLANK_FAC) {
 697             info[i++] = _("あなたはのっぺらぼうだ。(魅力-1)", "Your face is featureless (-1 CHR).");
 698         }
 699         if (creature_ptr->muta3 & MUT3_ILL_NORM) {
 700             info[i++] = _("あなたは幻影に覆われている。", "Your appearance is masked with illusion.");
 701         }
 702         if (creature_ptr->muta3 & MUT3_XTRA_EYES) {
 703             info[i++] = _("あなたは余分に二つの目を持っている。(探索+15)", "You have an extra pair of eyes (+15 search).");
 704         }
 705         if (creature_ptr->muta3 & MUT3_MAGIC_RES) {
 706             info[i++] = _("あなたは魔法への耐性をもっている。", "You are resistant to magic.");
 707         }
 708         if (creature_ptr->muta3 & MUT3_XTRA_NOIS) {
 709             info[i++] = _("あなたは変な音を発している。(隠密-3)", "You make a lot of strange noise (-3 stealth).");
 710         }
 711         if (creature_ptr->muta3 & MUT3_INFRAVIS) {
 712             info[i++] = _("あなたは素晴らしい赤外線視力を持っている。(+3)", "You have remarkable infravision (+3).");
 713         }
 714         if (creature_ptr->muta3 & MUT3_XTRA_LEGS) {
 715             info[i++] = _("あなたは余分に二本の足が生えている。(加速+3)", "You have an extra pair of legs (+3 speed).");
 716         }
 717         if (creature_ptr->muta3 & MUT3_SHORT_LEG) {
 718             info[i++] = _("あなたの足は短い突起だ。(加速-3)", "Your legs are short stubs (-3 speed).");
 719         }
 720         if (creature_ptr->muta3 & MUT3_ELEC_TOUC) {
 721             info[i++] = _("あなたの血管には電流が流れている。", "Electricity is running through your veins.");
 722         }
 723         if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
 724             info[i++] = _("あなたの体は炎につつまれている。", "Your body is enveloped in flames.");
 725         }
 726         if (creature_ptr->muta3 & MUT3_WART_SKIN) {
 727             info[i++] = _("あなたの肌はイボに被われている。(魅力-2, AC+5)", "Your skin is covered with warts (-2 CHR, +5 AC).");
 728         }
 729         if (creature_ptr->muta3 & MUT3_SCALES) {
 730             info[i++] = _("あなたの肌は鱗になっている。(魅力-1, AC+10)", "Your skin has turned into scales (-1 CHR, +10 AC).");
 731         }
 732         if (creature_ptr->muta3 & MUT3_IRON_SKIN) {
 733             info[i++] = _("あなたの肌は鉄でできている。(器用-1, AC+25)", "Your skin is made of steel (-1 DEX, +25 AC).");
 734         }
 735         if (creature_ptr->muta3 & MUT3_WINGS) {
 736             info[i++] = _("あなたは羽を持っている。", "You have wings.");
 737         }
 738         if (creature_ptr->muta3 & MUT3_FEARLESS) {
 739             /* Unnecessary */
 740         }
 741         if (creature_ptr->muta3 & MUT3_REGEN) {
 742             /* Unnecessary */
 743         }
 744         if (creature_ptr->muta3 & MUT3_ESP) {
 745             /* Unnecessary */
 746         }
 747         if (creature_ptr->muta3 & MUT3_LIMBER) {
 748             info[i++] = _("あなたの体は非常にしなやかだ。(器用+3)", "Your body is very limber (+3 DEX).");
 749         }
 750         if (creature_ptr->muta3 & MUT3_ARTHRITIS) {
 751             info[i++] = _("あなたはいつも関節に痛みを感じている。(器用-3)", "Your joints ache constantly (-3 DEX).");
 752         }
 753         if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
 754             info[i++] = _("あなたは元素の攻撃に弱い。", "You are susceptible to damage from the elements.");
 755         }
 756         if (creature_ptr->muta3 & MUT3_MOTION) {
 757             info[i++] = _("あなたの動作は正確で力強い。(隠密+1)", "Your movements are precise and forceful (+1 STL).");
 758         }
 759         if (have_good_luck(creature_ptr)) {
 760             info[i++] = _("あなたは白いオーラにつつまれている。", "There is a white aura surrounding you.");
 761         }
 762         if (creature_ptr->muta3 & MUT3_BAD_LUCK) {
 763             info[i++] = _("あなたは黒いオーラにつつまれている。", "There is a black aura surrounding you.");
 764         }
 765     }
 766
 767     if (creature_ptr->blind) {
 768         info[i++] = _("あなたは目が見えない。", "You cannot see.");
 769     }
 770     if (creature_ptr->confused) {
 771         info[i++] = _("あなたは混乱している。", "You are confused.");
 772     }
 773     if (creature_ptr->afraid) {
 774         info[i++] = _("あなたは恐怖に侵されている。", "You are terrified.");
 775     }
 776     if (creature_ptr->cut) {
 777         info[i++] = _("あなたは出血している。", "You are bleeding.");
 778     }
 779     if (creature_ptr->stun) {
 780         info[i++] = _("あなたはもうろうとしている。", "You are stunned.");
 781     }
 782     if (creature_ptr->poisoned) {
 783         info[i++] = _("あなたは毒に侵されている。", "You are poisoned.");
 784     }
 785     if (creature_ptr->image) {
 786         info[i++] = _("あなたは幻覚を見ている。", "You are hallucinating.");
 787     }
 788     if (creature_ptr->cursed & TRC_TY_CURSE) {
 789         info[i++] = _("あなたは邪悪な怨念に包まれている。", "You carry an ancient foul curse.");
 790     }
 791     if (creature_ptr->cursed & TRC_AGGRAVATE) {
 792         info[i++] = _("あなたはモンスターを怒らせている。", "You aggravate monsters.");
 793     }
 794     if (creature_ptr->cursed & TRC_DRAIN_EXP) {
 795         info[i++] = _("あなたは経験値を吸われている。", "You occasionally lose experience for no reason.");
 796     }
 797     if (creature_ptr->cursed & TRC_SLOW_REGEN) {
 798         info[i++] = _("あなたの回復力は非常に遅い。", "You regenerate slowly.");
 799     }
 800     if (creature_ptr->cursed & TRC_ADD_L_CURSE) {
 801         info[i++] = _("あなたの弱い呪いは増える。", "Your weak curses multiply."); /* 暫定的 -- henkma */
 802     }
 803     if (creature_ptr->cursed & TRC_ADD_H_CURSE) {
 804         info[i++] = _("あなたの強い呪いは増える。", "Your heavy curses multiply."); /* 暫定的 -- henkma */
 805     }
 806     if (creature_ptr->cursed & TRC_CALL_ANIMAL) {
 807         info[i++] = _("あなたは動物に狙われている。", "You attract animals.");
 808     }
 809     if (creature_ptr->cursed & TRC_CALL_DEMON) {
 810         info[i++] = _("あなたは悪魔に狙われている。", "You attract demons.");
 811     }
 812     if (creature_ptr->cursed & TRC_CALL_DRAGON) {
 813         info[i++] = _("あなたはドラゴンに狙われている。", "You attract dragons.");
 814     }
 815     if (creature_ptr->cursed & TRC_COWARDICE) {
 816         info[i++] = _("あなたは時々臆病になる。", "You are subject to cowardice.");
 817     }
 818     if (creature_ptr->cursed & TRC_TELEPORT) {
 819         info[i++] = _("あなたの位置はひじょうに不安定だ。", "Your position is very uncertain.");
 820     }
 821     if (creature_ptr->cursed & TRC_LOW_MELEE) {
 822         info[i++] = _("あなたの武器は攻撃を外しやすい。", "Your weapon causes you to miss blows.");
 823     }
 824     if (creature_ptr->cursed & TRC_LOW_AC) {
 825         info[i++] = _("あなたは攻撃を受けやすい。", "You are subject to be hit.");
 826     }
 827     if (creature_ptr->cursed & TRC_LOW_MAGIC) {
 828         info[i++] = _("あなたは魔法を失敗しやすい。", "Your spells fail more frequently.");
 829     }
 830     if (creature_ptr->cursed & TRC_FAST_DIGEST) {
 831         info[i++] = _("あなたはすぐお腹がへる。", "You have a good appetite.");
 832     }
 833     if (creature_ptr->cursed & TRC_DRAIN_HP) {
 834         info[i++] = _("あなたは体力を吸われている。", "You occasionally lose hit points for no reason.");
 835     }
 836     if (creature_ptr->cursed & TRC_DRAIN_MANA) {
 837         info[i++] = _("あなたは魔力を吸われている。", "You occasionally lose spell points for no reason.");
 838     }
 839     if (is_blessed(creature_ptr)) {
 840         info[i++] = _("あなたは高潔さを感じている。", "You feel rightous.");
 841     }
 842     if (is_hero(creature_ptr)) {
 843         info[i++] = _("あなたはヒーロー気分だ。", "You feel heroic.");
 844     }
 845     if (creature_ptr->shero) {
 846         info[i++] = _("あなたは戦闘狂だ。", "You are in a battle rage.");
 847     }
 848     if (creature_ptr->protevil) {
 849         info[i++] = _("あなたは邪悪なる存在から守られている。", "You are protected from evil.");
 850     }
 851     if (creature_ptr->shield) {
 852         info[i++] = _("あなたは神秘のシールドで守られている。", "You are protected by a mystic shield.");
 853     }
 854     if (is_invuln(creature_ptr)) {
 855         info[i++] = _("あなたは現在傷つかない。", "You are temporarily invulnerable.");
 856     }
 857     if (creature_ptr->wraith_form) {
 858         info[i++] = _("あなたは一時的に幽体化している。", "You are temporarily incorporeal.");
 859     }
 860     if (creature_ptr->special_attack & ATTACK_CONFUSE) {
 861         info[i++] = _("あなたの手は赤く輝いている。", "Your hands are glowing dull red.");
 862     }
 863     if (creature_ptr->special_attack & ATTACK_FIRE) {
 864         info[i++] = _("あなたの手は火炎に覆われている。", "You can strike the enemy with flame.");
 865     }
 866     if (creature_ptr->special_attack & ATTACK_COLD) {
 867         info[i++] = _("あなたの手は冷気に覆われている。", "You can strike the enemy with cold.");
 868     }
 869     if (creature_ptr->special_attack & ATTACK_ACID) {
 870         info[i++] = _("あなたの手は酸に覆われている。", "You can strike the enemy with acid.");
 871     }
 872     if (creature_ptr->special_attack & ATTACK_ELEC) {
 873         info[i++] = _("あなたの手は電撃に覆われている。", "You can strike the enemy with electoric shock.");
 874     }
 875     if (creature_ptr->special_attack & ATTACK_POIS) {
 876         info[i++] = _("あなたの手は毒に覆われている。", "You can strike the enemy with poison.");
 877     }
 878     switch (creature_ptr->action) {
 879     case ACTION_SEARCH:
 880         info[i++] = _("あなたはひじょうに注意深く周囲を見渡している。", "You are looking around very carefully.");
 881         break;
 882     }
 883     if (creature_ptr->new_spells) {
 884         info[i++] = _("あなたは呪文や祈りを学ぶことができる。", "You can learn some spells/prayers.");
 885     }
 886     if (creature_ptr->word_recall) {
 887         info[i++] = _("あなたはすぐに帰還するだろう。", "You will soon be recalled.");
 888     }
 889     if (creature_ptr->alter_reality) {
 890         info[i++] = _("あなたはすぐにこの世界を離れるだろう。", "You will soon be altered.");
 891     }
 892     if (creature_ptr->see_infra) {
 893         info[i++] = _("あなたの瞳は赤外線に敏感である。", "Your eyes are sensitive to infrared light.");
 894     }
 895     if (creature_ptr->see_inv) {
 896         info[i++] = _("あなたは透明なモンスターを見ることができる。", "You can see invisible creatures.");
 897     }
 898     if (creature_ptr->levitation) {
 899         info[i++] = _("あなたは飛ぶことができる。", "You can fly.");
 900     }
 901     if (creature_ptr->free_act) {
 902         info[i++] = _("あなたは麻痺知らずの効果を持っている。", "You have free action.");
 903     }
 904     if (creature_ptr->regenerate) {
 905         info[i++] = _("あなたは素早く体力を回復する。", "You regenerate quickly.");
 906     }
 907     if (creature_ptr->slow_digest) {
 908         info[i++] = _("あなたは食欲が少ない。", "Your appetite is small.");
 909     }
 910     if (creature_ptr->telepathy) {
 911         info[i++] = _("あなたはテレパシー能力を持っている。", "You have ESP.");
 912     }
 913     if (creature_ptr->esp_animal) {
 914         info[i++] = _("あなたは自然界の生物の存在を感じる能力を持っている。", "You sense natural creatures.");
 915     }
 916     if (creature_ptr->esp_undead) {
 917         info[i++] = _("あなたはアンデッドの存在を感じる能力を持っている。", "You sense undead.");
 918     }
 919     if (creature_ptr->esp_demon) {
 920         info[i++] = _("あなたは悪魔の存在を感じる能力を持っている。", "You sense demons.");
 921     }
 922     if (creature_ptr->esp_orc) {
 923         info[i++] = _("あなたはオークの存在を感じる能力を持っている。", "You sense orcs.");
 924     }
 925     if (creature_ptr->esp_troll) {
 926         info[i++] = _("あなたはトロルの存在を感じる能力を持っている。", "You sense trolls.");
 927     }
 928     if (creature_ptr->esp_giant) {
 929         info[i++] = _("あなたは巨人の存在を感じる能力を持っている。", "You sense giants.");
 930     }
 931     if (creature_ptr->esp_dragon) {
 932         info[i++] = _("あなたはドラゴンの存在を感じる能力を持っている。", "You sense dragons.");
 933     }
 934     if (creature_ptr->esp_human) {
 935         info[i++] = _("あなたは人間の存在を感じる能力を持っている。", "You sense humans.");
 936     }
 937     if (creature_ptr->esp_evil) {
 938         info[i++] = _("あなたは邪悪な生き物の存在を感じる能力を持っている。", "You sense evil creatures.");
 939     }
 940     if (creature_ptr->esp_good) {
 941         info[i++] = _("あなたは善良な生き物の存在を感じる能力を持っている。", "You sense good creatures.");
 942     }
 943     if (creature_ptr->esp_nonliving) {
 944         info[i++] = _("あなたは活動する無生物体の存在を感じる能力を持っている。", "You sense non-living creatures.");
 945     }
 946     if (creature_ptr->esp_unique) {
 947         info[i++] = _("あなたは特別な強敵の存在を感じる能力を持っている。", "You sense unique monsters.");
 948     }
 949     if (creature_ptr->hold_exp) {
 950         info[i++] = _("あなたは自己の経験値をしっかりと維持する。", "You have a firm hold on your experience.");
 951     }
 952     if (creature_ptr->reflect) {
 953         info[i++] = _("あなたは矢の呪文を反射する。", "You reflect bolt spells.");
 954     }
 955     if (creature_ptr->sh_fire) {
 956         info[i++] = _("あなたは炎のオーラに包まれている。", "You are surrounded with a fiery aura.");
 957     }
 958     if (creature_ptr->sh_elec) {
 959         info[i++] = _("あなたは電気に包まれている。", "You are surrounded with electricity.");
 960     }
 961     if (creature_ptr->sh_cold) {
 962         info[i++] = _("あなたは冷気のオーラに包まれている。", "You are surrounded with an aura of coldness.");
 963     }
 964     if (creature_ptr->tim_sh_holy) {
 965         info[i++] = _("あなたは聖なるオーラに包まれている。", "You are surrounded with a holy aura.");
 966     }
 967     if (creature_ptr->tim_sh_touki) {
 968         info[i++] = _("あなたは闘気のオーラに包まれている。", "You are surrounded with an energy aura.");
 969     }
 970     if (creature_ptr->anti_magic) {
 971         info[i++] = _("あなたは反魔法シールドに包まれている。", "You are surrounded by an anti-magic shell.");
 972     }
 973     if (creature_ptr->anti_tele) {
 974         info[i++] = _("あなたはテレポートできない。", "You cannot teleport.");
 975     }
 976     if (creature_ptr->lite) {
 977         info[i++] = _("あなたの身体は光っている。", "You are carrying a permanent light.");
 978     }
 979     if (creature_ptr->warning) {
 980         info[i++] = _("あなたは行動の前に危険を察知することができる。", "You will be warned before dangerous actions.");
 981     }
 982     if (creature_ptr->dec_mana) {
 983         info[i++] = _("あなたは少ない消費魔力で魔法を唱えることができる。", "You can cast spells with fewer mana points.");
 984     }
 985     if (creature_ptr->easy_spell) {
 986         info[i++] = _("あなたは低い失敗率で魔法を唱えることができる。", "Fail rate of your magic is decreased.");
 987     }
 988     if (creature_ptr->heavy_spell) {
 989         info[i++] = _("あなたは高い失敗率で魔法を唱えなければいけない。", "Fail rate of your magic is increased.");
 990     }
 991     if (creature_ptr->mighty_throw) {
 992         info[i++] = _("あなたは強く物を投げる。", "You can throw objects powerfully.");
 993     }
 994
 995     if (creature_ptr->immune_acid) {
 996         info[i++] = _("あなたは酸に対する完全なる免疫を持っている。", "You are completely immune to acid.");
 997     } else if (creature_ptr->resist_acid && is_oppose_acid(creature_ptr)) {
 998         info[i++] = _("あなたは酸への強力な耐性を持っている。", "You resist acid exceptionally well.");
 999     } else if (creature_ptr->resist_acid || is_oppose_acid(creature_ptr)) {
1000         info[i++] = _("あなたは酸への耐性を持っている。", "You are resistant to acid.");
1001     }
1002
1003     if (creature_ptr->immune_elec) {
1004         info[i++] = _("あなたは電撃に対する完全なる免疫を持っている。", "You are completely immune to lightning.");
1005     } else if (creature_ptr->resist_elec && is_oppose_elec(creature_ptr)) {
1006         info[i++] = _("あなたは電撃への強力な耐性を持っている。", "You resist lightning exceptionally well.");
1007     } else if (creature_ptr->resist_elec || is_oppose_elec(creature_ptr)) {
1008         info[i++] = _("あなたは電撃への耐性を持っている。", "You are resistant to lightning.");
1009     }
1010
1011     if (is_specific_player_race(creature_ptr, RACE_ANDROID) && !creature_ptr->immune_elec) {
1012         info[i++] = _("あなたは電撃に弱い。", "You are susceptible to damage from lightning.");
1013     }
1014
1015     if (creature_ptr->immune_fire) {
1016         info[i++] = _("あなたは火に対する完全なる免疫を持っている。", "You are completely immune to fire.");
1017     } else if (creature_ptr->resist_fire && is_oppose_fire(creature_ptr)) {
1018         info[i++] = _("あなたは火への強力な耐性を持っている。", "You resist fire exceptionally well.");
1019     } else if (creature_ptr->resist_fire || is_oppose_fire(creature_ptr)) {
1020         info[i++] = _("あなたは火への耐性を持っている。", "You are resistant to fire.");
1021     }
1022
1023     if (is_specific_player_race(creature_ptr, RACE_ENT) && !creature_ptr->immune_fire) {
1024         info[i++] = _("あなたは火に弱い。", "You are susceptible to damage from fire.");
1025     }
1026
1027     if (creature_ptr->immune_cold) {
1028         info[i++] = _("あなたは冷気に対する完全なる免疫を持っている。", "You are completely immune to cold.");
1029     } else if (creature_ptr->resist_cold && is_oppose_cold(creature_ptr)) {
1030         info[i++] = _("あなたは冷気への強力な耐性を持っている。", "You resist cold exceptionally well.");
1031     } else if (creature_ptr->resist_cold || is_oppose_cold(creature_ptr)) {
1032         info[i++] = _("あなたは冷気への耐性を持っている。", "You are resistant to cold.");
1033     }
1034
1035     if (creature_ptr->resist_pois && is_oppose_pois(creature_ptr)) {
1036         info[i++] = _("あなたは毒への強力な耐性を持っている。", "You resist poison exceptionally well.");
1037     } else if (creature_ptr->resist_pois || is_oppose_pois(creature_ptr)) {
1038         info[i++] = _("あなたは毒への耐性を持っている。", "You are resistant to poison.");
1039     }
1040
1041     if (creature_ptr->resist_lite) {
1042         info[i++] = _("あなたは閃光への耐性を持っている。", "You are resistant to bright light.");
1043     }
1044
1045     if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || is_specific_player_race(creature_ptr, RACE_S_FAIRY)
1046         || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1047         info[i++] = _("あなたは閃光に弱い。", "You are susceptible to damage from bright light.");
1048     }
1049
1050     if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || (creature_ptr->mimic_form == MIMIC_VAMPIRE) || creature_ptr->wraith_form) {
1051         info[i++] = _("あなたは暗黒に対する完全なる免疫を持っている。", "You are completely immune to darkness.");
1052     }
1053
1054     else if (creature_ptr->resist_dark) {
1055         info[i++] = _("あなたは暗黒への耐性を持っている。", "You are resistant to darkness.");
1056     }
1057     if (creature_ptr->resist_conf) {
1058         info[i++] = _("あなたは混乱への耐性を持っている。", "You are resistant to confusion.");
1059     }
1060     if (creature_ptr->resist_sound) {
1061         info[i++] = _("あなたは音波の衝撃への耐性を持っている。", "You are resistant to sonic attacks.");
1062     }
1063     if (creature_ptr->resist_disen) {
1064         info[i++] = _("あなたは劣化への耐性を持っている。", "You are resistant to disenchantment.");
1065     }
1066     if (creature_ptr->resist_chaos) {
1067         info[i++] = _("あなたはカオスの力への耐性を持っている。", "You are resistant to chaos.");
1068     }
1069     if (creature_ptr->resist_shard) {
1070         info[i++] = _("あなたは破片の攻撃への耐性を持っている。", "You are resistant to blasts of shards.");
1071     }
1072     if (creature_ptr->resist_nexus) {
1073         info[i++] = _("あなたは因果混乱の攻撃への耐性を持っている。", "You are resistant to nexus attacks.");
1074     }
1075
1076     if (is_specific_player_race(creature_ptr, RACE_SPECTRE)) {
1077         info[i++] = _("あなたは地獄の力を吸収できる。", "You can drain nether forces.");
1078     } else if (creature_ptr->resist_neth) {
1079         info[i++] = _("あなたは地獄の力への耐性を持っている。", "You are resistant to nether forces.");
1080     }
1081     if (creature_ptr->resist_fear) {
1082         info[i++] = _("あなたは全く恐怖を感じない。", "You are completely fearless.");
1083     }
1084     if (creature_ptr->resist_blind) {
1085         info[i++] = _("あなたの目は盲目への耐性を持っている。", "Your eyes are resistant to blindness.");
1086     }
1087     if (creature_ptr->resist_time) {
1088         info[i++] = _("あなたは時間逆転への耐性を持っている。", "You are resistant to time.");
1089     }
1090
1091     if (creature_ptr->sustain_str) {
1092         info[i++] = _("あなたの腕力は維持されている。", "Your strength is sustained.");
1093     }
1094     if (creature_ptr->sustain_int) {
1095         info[i++] = _("あなたの知能は維持されている。", "Your intelligence is sustained.");
1096     }
1097     if (creature_ptr->sustain_wis) {
1098         info[i++] = _("あなたの賢さは維持されている。", "Your wisdom is sustained.");
1099     }
1100     if (creature_ptr->sustain_con) {
1101         info[i++] = _("あなたの耐久力は維持されている。", "Your constitution is sustained.");
1102     }
1103     if (creature_ptr->sustain_dex) {
1104         info[i++] = _("あなたの器用さは維持されている。", "Your dexterity is sustained.");
1105     }
1106     if (creature_ptr->sustain_chr) {
1107         info[i++] = _("あなたの魅力は維持されている。", "Your charisma is sustained.");
1108     }
1109
1110     if (have_flag(flgs, TR_STR)) {
1111         info[i++] = _("あなたの腕力は装備によって影響を受けている。", "Your strength is affected by your equipment.");
1112     }
1113     if (have_flag(flgs, TR_INT)) {
1114         info[i++] = _("あなたの知能は装備によって影響を受けている。", "Your intelligence is affected by your equipment.");
1115     }
1116     if (have_flag(flgs, TR_WIS)) {
1117         info[i++] = _("あなたの賢さは装備によって影響を受けている。", "Your wisdom is affected by your equipment.");
1118     }
1119     if (have_flag(flgs, TR_DEX)) {
1120         info[i++] = _("あなたの器用さは装備によって影響を受けている。", "Your dexterity is affected by your equipment.");
1121     }
1122     if (have_flag(flgs, TR_CON)) {
1123         info[i++] = _("あなたの耐久力は装備によって影響を受けている。", "Your constitution is affected by your equipment.");
1124     }
1125     if (have_flag(flgs, TR_CHR)) {
1126         info[i++] = _("あなたの魅力は装備によって影響を受けている。", "Your charisma is affected by your equipment.");
1127     }
1128
1129     if (have_flag(flgs, TR_STEALTH)) {
1130         info[i++] = _("あなたの隠密行動能力は装備によって影響を受けている。", "Your stealth is affected by your equipment.");
1131     }
1132     if (have_flag(flgs, TR_SEARCH)) {
1133         info[i++] = _("あなたの探索能力は装備によって影響を受けている。", "Your searching ability is affected by your equipment.");
1134     }
1135     if (have_flag(flgs, TR_INFRA)) {
1136         info[i++] = _("あなたの赤外線視力は装備によって影響を受けている。", "Your infravision is affected by your equipment.");
1137     }
1138     if (have_flag(flgs, TR_TUNNEL)) {
1139         info[i++] = _("あなたの採掘能力は装備によって影響を受けている。", "Your digging ability is affected by your equipment.");
1140     }
1141     if (have_flag(flgs, TR_SPEED)) {
1142         info[i++] = _("あなたのスピードは装備によって影響を受けている。", "Your speed is affected by your equipment.");
1143     }
1144     if (have_flag(flgs, TR_BLOWS)) {
1145         info[i++] = _("あなたの攻撃速度は装備によって影響を受けている。", "Your attack speed is affected by your equipment.");
1146     }
1147
1148     /* Access the current weapon */
1149     o_ptr = &creature_ptr->inventory_list[INVEN_RARM];
1150
1151     /* Analyze the weapon */
1152     if (o_ptr->k_idx) {
1153         /* Indicate Blessing */
1154         if (have_flag(flgs, TR_BLESSED)) {
1155             info[i++] = _("あなたの武器は神の祝福を受けている。", "Your weapon has been blessed by the gods.");
1156         }
1157
1158         if (have_flag(flgs, TR_CHAOTIC)) {
1159             info[i++] = _("あなたの武器はログルスの徴の属性をもつ。", "Your weapon is branded with the Sign of Logrus.");
1160         }
1161
1162         if (have_flag(flgs, TR_IMPACT)) {
1163             info[i++] = _("あなたの武器は打撃で地震を発生することができる。", "The impact of your weapon can cause earthquakes.");
1164         }
1165
1166         if (have_flag(flgs, TR_VORPAL)) {
1167             info[i++] = _("あなたの武器は非常に鋭い。", "Your weapon is very sharp.");
1168         }
1169
1170         if (have_flag(flgs, TR_VAMPIRIC)) {
1171             info[i++] = _("あなたの武器は敵から生命力を吸収する。", "Your weapon drains life from your foes.");
1172         }
1173
1174         /* Special "Attack Bonuses" */
1175         if (have_flag(flgs, TR_BRAND_ACID)) {
1176             info[i++] = _("あなたの武器は敵を溶かす。", "Your weapon melts your foes.");
1177         }
1178         if (have_flag(flgs, TR_BRAND_ELEC)) {
1179             info[i++] = _("あなたの武器は敵を感電させる。", "Your weapon shocks your foes.");
1180         }
1181         if (have_flag(flgs, TR_BRAND_FIRE)) {
1182             info[i++] = _("あなたの武器は敵を燃やす。", "Your weapon burns your foes.");
1183         }
1184         if (have_flag(flgs, TR_BRAND_COLD)) {
1185             info[i++] = _("あなたの武器は敵を凍らせる。", "Your weapon freezes your foes.");
1186         }
1187         if (have_flag(flgs, TR_BRAND_POIS)) {
1188             info[i++] = _("あなたの武器は敵を毒で侵す。", "Your weapon poisons your foes.");
1189         }
1190
1191         /* Special "slay" flags */
1192         if (have_flag(flgs, TR_KILL_ANIMAL)) {
1193             info[i++] = _("あなたの武器は動物の天敵である。", "Your weapon is a great bane of animals.");
1194         } else if (have_flag(flgs, TR_SLAY_ANIMAL)) {
1195             info[i++] = _("あなたの武器は動物に対して強い力を発揮する。", "Your weapon strikes at animals with extra force.");
1196         }
1197         if (have_flag(flgs, TR_KILL_EVIL)) {
1198             info[i++] = _("あなたの武器は邪悪なる存在の天敵である。", "Your weapon is a great bane of evil.");
1199         } else if (have_flag(flgs, TR_SLAY_EVIL)) {
1200             info[i++] = _("あなたの武器は邪悪なる存在に対して強い力を発揮する。", "Your weapon strikes at evil with extra force.");
1201         }
1202         if (have_flag(flgs, TR_KILL_HUMAN)) {
1203             info[i++] = _("あなたの武器は人間の天敵である。", "Your weapon is a great bane of humans.");
1204         } else if (have_flag(flgs, TR_SLAY_HUMAN)) {
1205             info[i++] = _("あなたの武器は人間に対して特に強い力を発揮する。", "Your weapon is especially deadly against humans.");
1206         }
1207         if (have_flag(flgs, TR_KILL_UNDEAD)) {
1208             info[i++] = _("あなたの武器はアンデッドの天敵である。", "Your weapon is a great bane of undead.");
1209         } else if (have_flag(flgs, TR_SLAY_UNDEAD)) {
1210             info[i++] = _("あなたの武器はアンデッドに対して神聖なる力を発揮する。", "Your weapon strikes at undead with holy wrath.");
1211         }
1212         if (have_flag(flgs, TR_KILL_DEMON)) {
1213             info[i++] = _("あなたの武器はデーモンの天敵である。", "Your weapon is a great bane of demons.");
1214         } else if (have_flag(flgs, TR_SLAY_DEMON)) {
1215             info[i++] = _("あなたの武器はデーモンに対して神聖なる力を発揮する。", "Your weapon strikes at demons with holy wrath.");
1216         }
1217         if (have_flag(flgs, TR_KILL_ORC)) {
1218             info[i++] = _("あなたの武器はオークの天敵である。", "Your weapon is a great bane of orcs.");
1219         } else if (have_flag(flgs, TR_SLAY_ORC)) {
1220             info[i++] = _("あなたの武器はオークに対して特に強い力を発揮する。", "Your weapon is especially deadly against orcs.");
1221         }
1222         if (have_flag(flgs, TR_KILL_TROLL)) {
1223             info[i++] = _("あなたの武器はトロルの天敵である。", "Your weapon is a great bane of trolls.");
1224         } else if (have_flag(flgs, TR_SLAY_TROLL)) {
1225             info[i++] = _("あなたの武器はトロルに対して特に強い力を発揮する。", "Your weapon is especially deadly against trolls.");
1226         }
1227         if (have_flag(flgs, TR_KILL_GIANT)) {
1228             info[i++] = _("あなたの武器は巨人の天敵である。", "Your weapon is a great bane of giants.");
1229         } else if (have_flag(flgs, TR_SLAY_GIANT)) {
1230             info[i++] = _("あなたの武器は巨人に対して特に強い力を発揮する。", "Your weapon is especially deadly against giants.");
1231         }
1232         /* Special "kill" flags */
1233         if (have_flag(flgs, TR_KILL_DRAGON)) {
1234             info[i++] = _("あなたの武器はドラゴンの天敵である。", "Your weapon is a great bane of dragons.");
1235         } else if (have_flag(flgs, TR_SLAY_DRAGON)) {
1236             info[i++] = _("あなたの武器はドラゴンに対して特に強い力を発揮する。", "Your weapon is especially deadly against dragons.");
1237         }
1238
1239         if (have_flag(flgs, TR_FORCE_WEAPON)) {
1240             info[i++] = _("あなたの武器はMPを使って攻撃する。", "Your weapon causes greate damages using your MP.");
1241         }
1242         if (have_flag(flgs, TR_THROW)) {
1243             info[i++] = _("あなたの武器は投げやすい。", "Your weapon can be thrown well.");
1244         }
1245     }
1246
1247     screen_save();
1248
1249     /* Erase the screen */
1250     for (k = 1; k < 24; k++)
1251         prt("", k, 13);
1252
1253     /* Label the information */
1254     prt(_("        あなたの状態:", "     Your Attributes:"), 1, 15);
1255
1256     /* We will print on top of the map (column 13) */
1257     for (k = 2, j = 0; j < i; j++) {
1258         /* Show the info */
1259         prt(info[j], k++, 15);
1260
1261         /* Every 20 entries (lines 2 to 21), start over */
1262         if ((k == 22) && (j + 1 < i)) {
1263             prt(_("-- 続く --", "-- more --"), k, 15);
1264             inkey();
1265             for (; k > 2; k--)
1266                 prt("", k, 15);
1267         }
1268     }
1269
1270     /* Pause */
1271     prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
1272     inkey();
1273     screen_load();
1274 }
1275
1276 /*!
1277  * @brief 魔法効果時間のターン数に基づいて表現IDを返す。
1278  * @param dur 効果ターン数
1279  * @return 効果時間の表現ID
1280  */
1281 static int report_magics_aux(int dur)
1282 {
1283     if (dur <= 5) {
1284         return 0;
1285     } else if (dur <= 10) {
1286         return 1;
1287     } else if (dur <= 20) {
1288         return 2;
1289     } else if (dur <= 50) {
1290         return 3;
1291     } else if (dur <= 100) {
1292         return 4;
1293     } else if (dur <= 200) {
1294         return 5;
1295     } else {
1296         return 6;
1297     }
1298 }
1299
1300 static concptr report_magic_durations[] = {
1301 #ifdef JP
1302     "ごく短い間", "少しの間", "しばらくの間", "多少長い間", "長い間", "非常に長い間", "信じ難いほど長い間", "モンスターを攻撃するまで"
1303 #else
1304     "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",
1305     "until you hit a monster"
1306 #endif
1307
1308 };
1309
1310 /*!
1311  * @brief 現在の一時的効果一覧を返す / Report all currently active magical effects.
1312  * @return なし
1313  */
1314 void report_magics(player_type *creature_ptr)
1315 {
1316     int i = 0, j, k;
1317     char Dummy[80];
1318     concptr info[128];
1319     int info2[128];
1320
1321     if (creature_ptr->blind) {
1322         info2[i] = report_magics_aux(creature_ptr->blind);
1323         info[i++] = _("あなたは目が見えない", "You cannot see");
1324     }
1325     if (creature_ptr->confused) {
1326         info2[i] = report_magics_aux(creature_ptr->confused);
1327         info[i++] = _("あなたは混乱している", "You are confused");
1328     }
1329     if (creature_ptr->afraid) {
1330         info2[i] = report_magics_aux(creature_ptr->afraid);
1331         info[i++] = _("あなたは恐怖に侵されている", "You are terrified");
1332     }
1333     if (creature_ptr->poisoned) {
1334         info2[i] = report_magics_aux(creature_ptr->poisoned);
1335         info[i++] = _("あなたは毒に侵されている", "You are poisoned");
1336     }
1337     if (creature_ptr->image) {
1338         info2[i] = report_magics_aux(creature_ptr->image);
1339         info[i++] = _("あなたは幻覚を見ている", "You are hallucinating");
1340     }
1341     if (creature_ptr->blessed) {
1342         info2[i] = report_magics_aux(creature_ptr->blessed);
1343         info[i++] = _("あなたは高潔さを感じている", "You feel rightous");
1344     }
1345     if (creature_ptr->hero) {
1346         info2[i] = report_magics_aux(creature_ptr->hero);
1347         info[i++] = _("あなたはヒーロー気分だ", "You feel heroic");
1348     }
1349     if (creature_ptr->shero) {
1350         info2[i] = report_magics_aux(creature_ptr->shero);
1351         info[i++] = _("あなたは戦闘狂だ", "You are in a battle rage");
1352     }
1353     if (creature_ptr->protevil) {
1354         info2[i] = report_magics_aux(creature_ptr->protevil);
1355         info[i++] = _("あなたは邪悪なる存在から守られている", "You are protected from evil");
1356     }
1357     if (creature_ptr->shield) {
1358         info2[i] = report_magics_aux(creature_ptr->shield);
1359         info[i++] = _("あなたは神秘のシールドで守られている", "You are protected by a mystic shield");
1360     }
1361     if (creature_ptr->invuln) {
1362         info2[i] = report_magics_aux(creature_ptr->invuln);
1363         info[i++] = _("あなたは無敵だ", "You are invulnerable");
1364     }
1365     if (creature_ptr->wraith_form) {
1366         info2[i] = report_magics_aux(creature_ptr->wraith_form);
1367         info[i++] = _("あなたは幽体化している", "You are incorporeal");
1368     }
1369     if (creature_ptr->special_attack & ATTACK_CONFUSE) {
1370         info2[i] = 7;
1371         info[i++] = _("あなたの手は赤く輝いている", "Your hands are glowing dull red.");
1372     }
1373     if (creature_ptr->word_recall) {
1374         info2[i] = report_magics_aux(creature_ptr->word_recall);
1375         info[i++] = _("この後帰還の詔が発動する", "You are waiting to be recalled");
1376     }
1377     if (creature_ptr->alter_reality) {
1378         info2[i] = report_magics_aux(creature_ptr->alter_reality);
1379         info[i++] = _("この後現実変容が発動する", "You waiting to be altered");
1380     }
1381     if (creature_ptr->oppose_acid) {
1382         info2[i] = report_magics_aux(creature_ptr->oppose_acid);
1383         info[i++] = _("あなたは酸への耐性を持っている", "You are resistant to acid");
1384     }
1385     if (creature_ptr->oppose_elec) {
1386         info2[i] = report_magics_aux(creature_ptr->oppose_elec);
1387         info[i++] = _("あなたは電撃への耐性を持っている", "You are resistant to lightning");
1388     }
1389     if (creature_ptr->oppose_fire) {
1390         info2[i] = report_magics_aux(creature_ptr->oppose_fire);
1391         info[i++] = _("あなたは火への耐性を持っている", "You are resistant to fire");
1392     }
1393     if (creature_ptr->oppose_cold) {
1394         info2[i] = report_magics_aux(creature_ptr->oppose_cold);
1395         info[i++] = _("あなたは冷気への耐性を持っている", "You are resistant to cold");
1396     }
1397     if (creature_ptr->oppose_pois) {
1398         info2[i] = report_magics_aux(creature_ptr->oppose_pois);
1399         info[i++] = _("あなたは毒への耐性を持っている", "You are resistant to poison");
1400     }
1401     screen_save();
1402
1403     /* Erase the screen */
1404     for (k = 1; k < 24; k++)
1405         prt("", k, 13);
1406
1407     /* Label the information */
1408     prt(_("    現在かかっている魔法     :", "     Your Current Magic:"), 1, 15);
1409
1410     /* We will print on top of the map (column 13) */
1411     for (k = 2, j = 0; j < i; j++) {
1412         /* Show the info */
1413         sprintf(Dummy, _("%-28s : 期間 - %s ", "%s %s."), info[j], report_magic_durations[info2[j]]);
1414         prt(Dummy, k++, 15);
1415
1416         /* Every 20 entries (lines 2 to 21), start over */
1417         if ((k == 22) && (j + 1 < i)) {
1418             prt(_("-- 続く --", "-- more --"), k, 15);
1419             inkey();
1420             for (; k > 2; k--)
1421                 prt("", k, 15);
1422         }
1423     }
1424
1425     /* Pause */
1426     prt(_("[何かキーを押すとゲームに戻ります]", "[Press any key to continue]"), k, 13);
1427     inkey();
1428     screen_load();
1429 }