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