src/mutation.c

   1 /*!
   2  * @file mutation.c
   3  * @brief 突然変異ルールの実装 / Mutation effects (and racial powers)
   4  * @date 2014/01/11
   5  * @author
   6  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
   7  *\n
   8  * This software may be copied and distributed for educational, research,\n
   9  * and not for profit purposes provided that this copyright and statement\n
  10  * are included in all such copies.  Other copyrights may also apply.\n
  11  * 2014 Deskull rearranged comment for Doxygen.\n
  12  */
  13
  14 #include "angband.h"
  15 #include "mutation.h"
  16
  17 #include "selfinfo.h"
  18 #include "spells-summon.h"
  19
  20 /*!
  21  * @brief プレイヤーに突然変異を与える
  22  * @param choose_mut 与えたい突然変異のID、0ならばランダムに選択
  23  * @return なし
  24  */
  25 bool gain_random_mutation(int choose_mut)
  26 {
  27         int attempts_left = 20;
  28         concptr muta_desc = "";
  29         bool muta_chosen = FALSE;
  30         BIT_FLAGS muta_which = 0;
  31         BIT_FLAGS *muta_class = NULL;
  32
  33         if (choose_mut) attempts_left = 1;
  34
  35         while (attempts_left--)
  36         {
  37                 switch (choose_mut ? choose_mut : (p_ptr->pclass == CLASS_BERSERKER ? 74+randint1(119) : randint1(193)))
  38                 {
  39                 case 1: case 2: case 3: case 4:
  40                         muta_class = &(p_ptr->muta1);
  41                         muta_which = MUT1_SPIT_ACID;
  42                         muta_desc = _("酸を吐く能力を得た。", "You gain the ability to spit acid.");
  43                         break;
  44
  45                 case 5: case 6: case 7:
  46                         muta_class = &(p_ptr->muta1);
  47                         muta_which = MUT1_BR_FIRE;
  48                         muta_desc = _("火を吐く能力を得た。", "You gain the ability to breathe fire.");
  49                         break;
  50
  51                 case 8: case 9:
  52                         muta_class = &(p_ptr->muta1);
  53                         muta_which = MUT1_HYPN_GAZE;
  54                         muta_desc = _("催眠眼の能力を得た。", "Your eyes look mesmerizing...");
  55                         break;
  56
  57                 case 10: case 11:
  58                         muta_class = &(p_ptr->muta1);
  59                         muta_which = MUT1_TELEKINES;
  60                         muta_desc = _("物体を念動力で動かす能力を得た。", "You gain the ability to move objects telekinetically.");
  61                         break;
  62
  63                 case 12: case 13: case 14:
  64                         muta_class = &(p_ptr->muta1);
  65                         muta_which = MUT1_VTELEPORT;
  66                         muta_desc = _("自分の意思でテレポートする能力を得た。", "You gain the power of teleportation at will.");
  67                         break;
  68
  69                 case 15: case 16:
  70                         muta_class = &(p_ptr->muta1);
  71                         muta_which = MUT1_MIND_BLST;
  72                         muta_desc = _("精神攻撃の能力を得た。", "You gain the power of Mind Blast.");
  73                         break;
  74
  75                 case 17: case 18:
  76                         muta_class = &(p_ptr->muta1);
  77                         muta_which = MUT1_RADIATION;
  78                         muta_desc = _("あなたは強い放射線を発生し始めた。", "You start emitting hard radiation.");
  79                         break;
  80
  81                 case 19: case 20:
  82                         muta_class = &(p_ptr->muta1);
  83                         muta_which = MUT1_VAMPIRISM;
  84                         muta_desc = _("生命力を吸収できるようになった。", "You become vampiric.");
  85                         break;
  86
  87                 case 21: case 22: case 23:
  88                         muta_class = &(p_ptr->muta1);
  89                         muta_which = MUT1_SMELL_MET;
  90                         muta_desc = _("金属の匂いを嗅ぎ分けられるようになった。", "You smell a metallic odor.");
  91                         break;
  92
  93                 case 24: case 25: case 26: case 27:
  94                         muta_class = &(p_ptr->muta1);
  95                         muta_which = MUT1_SMELL_MON;
  96                         muta_desc = _("モンスターの臭いを嗅ぎ分けられるようになった。", "You smell filthy monsters.");
  97                         break;
  98
  99                 case 28: case 29: case 30:
 100                         muta_class = &(p_ptr->muta1);
 101                         muta_which = MUT1_BLINK;
 102                         muta_desc = _("近距離テレポートの能力を得た。", "You gain the power of minor teleportation.");
 103                         break;
 104
 105                 case 31: case 32:
 106                         muta_class = &(p_ptr->muta1);
 107                         muta_which = MUT1_EAT_ROCK;
 108                         muta_desc = _("壁が美味しそうに見える。", "The walls look delicious.");
 109                         break;
 110
 111                 case 33: case 34:
 112                         muta_class = &(p_ptr->muta1);
 113                         muta_which = MUT1_SWAP_POS;
 114                         muta_desc = _("他人の靴で一マイル歩くような気分がする。", "You feel like walking a mile in someone else's shoes.");
 115                         break;
 116
 117                 case 35: case 36: case 37:
 118                         muta_class = &(p_ptr->muta1);
 119                         muta_which = MUT1_SHRIEK;
 120                         muta_desc = _("あなたの声は相当強くなった。", "Your vocal cords get much tougher.");
 121                         break;
 122
 123                 case 38: case 39: case 40:
 124                         muta_class = &(p_ptr->muta1);
 125                         muta_which = MUT1_ILLUMINE;
 126                         muta_desc = _("あなたは光り輝いて部屋を明るくするようになった。", "You can light up rooms with your presence.");
 127                         break;
 128
 129                 case 41: case 42:
 130                         muta_class = &(p_ptr->muta1);
 131                         muta_which = MUT1_DET_CURSE;
 132                         muta_desc = _("邪悪な魔法を感知できるようになった。", "You can feel evil magics.");
 133                         break;
 134
 135                 case 43: case 44: case 45:
 136                         muta_class = &(p_ptr->muta1);
 137                         muta_which = MUT1_BERSERK;
 138                         muta_desc = _("制御できる激情を感じる。", "You feel a controlled rage.");
 139                         break;
 140
 141                 case 46:
 142                         muta_class = &(p_ptr->muta1);
 143                         muta_which = MUT1_POLYMORPH;
 144                         muta_desc = _("体が変異しやすくなった。", "Your body seems mutable.");
 145                         break;
 146
 147                 case 47: case 48:
 148                         muta_class = &(p_ptr->muta1);
 149                         muta_which = MUT1_MIDAS_TCH;
 150                         muta_desc = _("「ミダス王の手」の能力を得た。", "You gain the Midas touch.");/*トゥームレイダースにありましたね。 */
 151                         break;
 152
 153                 case 49:
 154                         muta_class = &(p_ptr->muta1);
 155                         muta_which = MUT1_GROW_MOLD;
 156                         muta_desc = _("突然カビに親しみを覚えた。", "You feel a sudden affinity for mold.");
 157                         break;
 158
 159                 case 50: case 51: case 52:
 160                         muta_class = &(p_ptr->muta1);
 161                         muta_which = MUT1_RESIST;
 162                         muta_desc = _("あなたは自分自身を守れる気がする。", "You feel like you can protect yourself.");
 163                         break;
 164
 165                 case 53: case 54: case 55:
 166                         muta_class = &(p_ptr->muta1);
 167                         muta_which = MUT1_EARTHQUAKE;
 168                         muta_desc = _("ダンジョンを破壊する能力を得た。", "You gain the ability to wreck the dungeon.");
 169                         break;
 170
 171                 case 56:
 172                         muta_class = &(p_ptr->muta1);
 173                         muta_which = MUT1_EAT_MAGIC;
 174                         muta_desc = _("魔法のアイテムが美味そうに見える。", "Your magic items look delicious.");
 175                         break;
 176
 177                 case 57: case 58:
 178                         muta_class = &(p_ptr->muta1);
 179                         muta_which = MUT1_WEIGH_MAG;
 180                         muta_desc = _("あなたは周囲にある魔法をより良く理解できる気がする。", "You feel you can better understand the magic around you.");
 181                         break;
 182
 183                 case 59:
 184                         muta_class = &(p_ptr->muta1);
 185                         muta_which = MUT1_STERILITY;
 186                         muta_desc = _("周りの全ての者に頭痛を起こすことができる。", "You can give everything around you a headache.");
 187                         break;
 188                 case 60: case 61:
 189                         muta_class = &(p_ptr->muta1);
 190                         muta_which = MUT1_PANIC_HIT;
 191                         muta_desc = _("突然、泥棒の気分が分かるようになった。", "You suddenly understand how thieves feel.");
 192                         break;
 193
 194                 case 62: case 63: case 64:
 195                         muta_class = &(p_ptr->muta1);
 196                         muta_which = MUT1_DAZZLE;
 197                         muta_desc = _("眩い閃光を発する能力を得た。", "You gain the ability to emit dazzling lights.");
 198                         break;
 199
 200                 case 65: case 66: case 67:
 201                         muta_class = &(p_ptr->muta1);
 202                         muta_which = MUT1_LASER_EYE;
 203                         muta_desc = _("あなたの目は一瞬焼け付いた。", "Your eyes burn for a moment.");
 204                         break;
 205
 206                 case 68: case 69:
 207                         muta_class = &(p_ptr->muta1);
 208                         muta_which = MUT1_RECALL;
 209                         muta_desc = _("少しだけホームシックになったが、すぐ直った。", "You feel briefly homesick, but it passes.");
 210                         break;
 211
 212                 case 70:
 213                         muta_class = &(p_ptr->muta1);
 214                         muta_which = MUT1_BANISH;
 215                         muta_desc = _("神聖な怒りの力に満たされた。", "You feel a holy wrath fill you.");
 216                         break;
 217
 218                 case 71: case 72:
 219                         muta_class = &(p_ptr->muta1);
 220                         muta_which = MUT1_COLD_TOUCH;
 221                         muta_desc = _("あなたの両手はとても冷たくなった。", "Your hands get very cold.");
 222                         break;
 223
 224                 case 73: case 74:
 225                         muta_class = &(p_ptr->muta1);
 226                         muta_which = MUT1_LAUNCHER;
 227                         muta_desc = _("あなたの物を投げる手はかなり強くなった気がする。", "Your throwing arm feels much stronger.");
 228                         break;
 229
 230                 case 75:
 231                         muta_class = &(p_ptr->muta2);
 232                         muta_which = MUT2_BERS_RAGE;
 233                         muta_desc = _("あなたは狂暴化の発作を起こすようになった！", "You become subject to fits of berserk rage!");
 234                         break;
 235
 236                 case 76:
 237                         muta_class = &(p_ptr->muta2);
 238                         muta_which = MUT2_COWARDICE;
 239                         muta_desc = _("信じられないくらい臆病になった！", "You become an incredible coward!");
 240                         break;
 241
 242                 case 77:
 243                         muta_class = &(p_ptr->muta2);
 244                         muta_which = MUT2_RTELEPORT;
 245                         muta_desc = _("あなたの位置は非常に不確定になった。", "Your position seems very uncertain...");
 246                         break;
 247
 248                 case 78:
 249                         muta_class = &(p_ptr->muta2);
 250                         muta_which = MUT2_ALCOHOL;
 251                         muta_desc = _("あなたはアルコールを分泌するようになった。", "Your body starts producing alcohol!");
 252                         break;
 253
 254                 case 79:
 255                         muta_class = &(p_ptr->muta2);
 256                         muta_which = MUT2_HALLU;
 257                         muta_desc = _("あなたは幻覚を引き起こす精神錯乱に侵された。", "You are afflicted by a hallucinatory insanity!");
 258                         break;
 259
 260                 case 80:
 261                         muta_class = &(p_ptr->muta2);
 262                         muta_which = MUT2_FLATULENT;
 263                         muta_desc = _( "あなたは制御不能な強烈な屁をこくようになった。",  "You become subject to uncontrollable flatulence.");
 264
 265                         break;
 266                 case 81: case 82:
 267                         muta_class = &(p_ptr->muta2);
 268                         muta_which = MUT2_SCOR_TAIL;
 269                         muta_desc = _( "サソリの尻尾が生えてきた！",  "You grow a scorpion tail!");
 270
 271                         break;
 272                 case 83: case 84:
 273                         muta_class = &(p_ptr->muta2);
 274                         muta_which = MUT2_HORNS;
 275                         muta_desc = _( "額に角が生えた！",  "Horns pop forth into your forehead!");
 276
 277                         break;
 278                 case 85: case 86:
 279                         muta_class = &(p_ptr->muta2);
 280                         muta_which = MUT2_BEAK;
 281                         muta_desc = _( "口が鋭く強いクチバシに変化した！",  "Your mouth turns into a sharp, powerful beak!");
 282
 283                         break;
 284                 case 87: case 88:
 285                         muta_class = &(p_ptr->muta2);
 286                         muta_which = MUT2_ATT_DEMON;
 287                         muta_desc = _( "悪魔を引き付けるようになった。",  "You start attracting demons.");
 288
 289                         break;
 290                 case 89:
 291                         muta_class = &(p_ptr->muta2);
 292                         muta_which = MUT2_PROD_MANA;
 293                         muta_desc = _( "あなたは制御不能な魔法のエネルギーを発生するようになった。",  "You start producing magical energy uncontrollably.");
 294
 295                         break;
 296                 case 90: case 91:
 297                         muta_class = &(p_ptr->muta2);
 298                         muta_which = MUT2_SPEED_FLUX;
 299                         muta_desc = _( "あなたは躁鬱質になった。",  "You become manic-depressive.");
 300
 301                         break;
 302                 case 92: case 93:
 303                         muta_class = &(p_ptr->muta2);
 304                         muta_which = MUT2_BANISH_ALL;
 305                         muta_desc = _( "恐ろしい力があなたの背後に潜んでいる気がする。",  "You feel a terrifying power lurking behind you.");
 306
 307                         break;
 308                 case 94:
 309                         muta_class = &(p_ptr->muta2);
 310                         muta_which = MUT2_EAT_LIGHT;
 311                         muta_desc = _( "あなたはウンゴリアントに奇妙な親しみを覚えるようになった。",  "You feel a strange kinship with Ungoliant.");
 312
 313                         break;
 314                 case 95: case 96:
 315                         muta_class = &(p_ptr->muta2);
 316                         muta_which = MUT2_TRUNK;
 317                         muta_desc = _( "あなたの鼻は伸びて象の鼻のようになった。",  "Your nose grows into an elephant-like trunk.");
 318
 319                         break;
 320                 case 97:
 321                         muta_class = &(p_ptr->muta2);
 322                         muta_which = MUT2_ATT_ANIMAL;
 323                         muta_desc = _( "動物を引き付けるようになった。",  "You start attracting animals.");
 324
 325                         break;
 326                 case 98:
 327                         muta_class = &(p_ptr->muta2);
 328                         muta_which = MUT2_TENTACLES;
 329                         muta_desc = _( "邪悪な触手が体の両側に生えてきた。",  "Evil-looking tentacles sprout from your sides.");
 330
 331                         break;
 332                 case 99:
 333                         muta_class = &(p_ptr->muta2);
 334                         muta_which = MUT2_RAW_CHAOS;
 335                         muta_desc = _( "周囲の空間が不安定になった気がする。",  "You feel the universe is less stable around you.");
 336
 337                         break;
 338                 case 100: case 101: case 102:
 339                         muta_class = &(p_ptr->muta2);
 340                         muta_which = MUT2_NORMALITY;
 341                         muta_desc = _( "あなたは奇妙なほど普通になった気がする。",  "You feel strangely normal.");
 342
 343                         break;
 344                 case 103:
 345                         muta_class = &(p_ptr->muta2);
 346                         muta_which = MUT2_WRAITH;
 347                         muta_desc = _( "あなたは幽体化したり実体化したりするようになった。",  "You start to fade in and out of the physical world.");
 348
 349                         break;
 350                 case 104:
 351                         muta_class = &(p_ptr->muta2);
 352                         muta_which = MUT2_POLY_WOUND;
 353                         muta_desc = _( "あなたはカオスの力が古い傷に入り込んでくるのを感じた。",  "You feel forces of chaos entering your old scars.");
 354
 355                         break;
 356                 case 105:
 357                         muta_class = &(p_ptr->muta2);
 358                         muta_which = MUT2_WASTING;
 359                         muta_desc = _( "あなたは突然おぞましい衰弱病にかかった。",  "You suddenly contract a horrible wasting disease.");
 360
 361                         break;
 362                 case 106:
 363                         muta_class = &(p_ptr->muta2);
 364                         muta_which = MUT2_ATT_DRAGON;
 365                         muta_desc = _( "あなたはドラゴンを引きつけるようになった。",  "You start attracting dragons.");
 366
 367                         break;
 368                 case 107: case 108:
 369                         muta_class = &(p_ptr->muta2);
 370                         muta_which = MUT2_WEIRD_MIND;
 371                         muta_desc = _( "あなたの思考は突然おかしな方向に向き始めた。",  "Your thoughts suddenly take off in strange directions.");
 372
 373                         break;
 374                 case 109:
 375                         muta_class = &(p_ptr->muta2);
 376                         muta_which = MUT2_NAUSEA;
 377                         muta_desc = _( "胃袋がピクピクしはじめた。",  "Your stomach starts to roil nauseously.");
 378
 379                         break;
 380                 case 110: case 111:
 381                         /* Chaos warriors already have a chaos deity */
 382                         if (p_ptr->pclass != CLASS_CHAOS_WARRIOR)
 383                         {
 384                                 muta_class = &(p_ptr->muta2);
 385                                 muta_which = MUT2_CHAOS_GIFT;
 386                         muta_desc = _( "あなたはカオスの守護悪魔の注意を惹くようになった。",  "You attract the notice of a chaos deity!");
 387
 388                         }
 389                         break;
 390                 case 112:
 391                         muta_class = &(p_ptr->muta2);
 392                         muta_which = MUT2_WALK_SHAD;
 393                         muta_desc = _( "あなたは現実が紙のように薄いと感じるようになった。",  "You feel like reality is as thin as paper.");
 394
 395                         break;
 396                 case 113: case 114:
 397                         muta_class = &(p_ptr->muta2);
 398                         muta_which = MUT2_WARNING;
 399                         muta_desc = _( "あなたは突然パラノイアになった気がする。",  "You suddenly feel paranoid.");
 400
 401                         break;
 402                 case 115:
 403                         muta_class = &(p_ptr->muta2);
 404                         muta_which = MUT2_INVULN;
 405                         muta_desc = _( "あなたは祝福され、無敵状態になる発作を起こすようになった。",  "You are blessed with fits of invulnerability.");
 406
 407                         break;
 408                 case 116: case 117:
 409                         muta_class = &(p_ptr->muta2);
 410                         muta_which = MUT2_SP_TO_HP;
 411                         muta_desc = _( "魔法の治癒の発作を起こすようになった。",  "You are subject to fits of magical healing.");
 412
 413                         break;
 414                 case 118:
 415                         muta_class = &(p_ptr->muta2);
 416                         muta_which = MUT2_HP_TO_SP;
 417                         muta_desc = _( "痛みを伴う精神明瞭化の発作を起こすようになった。",  "You are subject to fits of painful clarity.");
 418
 419                         break;
 420                 case 119:
 421                         muta_class = &(p_ptr->muta2);
 422                         muta_which = MUT2_DISARM;
 423                         muta_desc = _( "あなたの脚は長さが四倍になった。",  "Your feet grow to four times their former size.");
 424
 425                         break;
 426                 case 120: case 121: case 122:
 427                         muta_class = &(p_ptr->muta3);
 428                         muta_which = MUT3_HYPER_STR;
 429                         muta_desc = _( "超人的に強くなった！",  "You turn into a superhuman he-man!");
 430
 431                         break;
 432                 case 123: case 124: case 125:
 433                         muta_class = &(p_ptr->muta3);
 434                         muta_which = MUT3_PUNY;
 435                         muta_desc = _( "筋肉が弱ってしまった...",  "Your muscles wither away...");
 436
 437                         break;
 438                 case 126: case 127: case 128:
 439                         muta_class = &(p_ptr->muta3);
 440                         muta_which = MUT3_HYPER_INT;
 441                         muta_desc = _( "あなたの脳は生体コンピュータに進化した！",  "Your brain evolves into a living computer!");
 442
 443                         break;
 444                 case 129: case 130: case 131:
 445                         muta_class = &(p_ptr->muta3);
 446                         muta_which = MUT3_MORONIC;
 447                         muta_desc = _( "脳が萎縮してしまった...",  "Your brain withers away...");
 448
 449                         break;
 450                 case 132: case 133:
 451                         muta_class = &(p_ptr->muta3);
 452                         muta_which = MUT3_RESILIENT;
 453                         muta_desc = _( "並外れてタフになった。",  "You become extraordinarily resilient.");
 454
 455                         break;
 456                 case 134: case 135:
 457                         muta_class = &(p_ptr->muta3);
 458                         muta_which = MUT3_XTRA_FAT;
 459                         muta_desc = _( "あなたは気持ち悪いくらい太った！",  "You become sickeningly fat!");
 460
 461                         break;
 462                 case 136: case 137:
 463                         muta_class = &(p_ptr->muta3);
 464                         muta_which = MUT3_ALBINO;
 465                         muta_desc = _( "アルビノになった！弱くなった気がする...",  "You turn into an albino! You feel frail...");
 466
 467                         break;
 468                 case 138: case 139: case 140:
 469                         muta_class = &(p_ptr->muta3);
 470                         muta_which = MUT3_FLESH_ROT;
 471                         muta_desc = _( "あなたの肉体は腐敗する病気に侵された！",  "Your flesh is afflicted by a rotting disease!");
 472
 473                         break;
 474                 case 141: case 142:
 475                         muta_class = &(p_ptr->muta3);
 476                         muta_which = MUT3_SILLY_VOI;
 477                         muta_desc = _( "声が間抜けなキーキー声になった！",  "Your voice turns into a ridiculous squeak!");
 478
 479                         break;
 480                 case 143: case 144:
 481                         muta_class = &(p_ptr->muta3);
 482                         muta_which = MUT3_BLANK_FAC;
 483                         muta_desc = _( "のっぺらぼうになった！",  "Your face becomes completely featureless!");
 484
 485                         break;
 486                 case 145:
 487                         muta_class = &(p_ptr->muta3);
 488                         muta_which = MUT3_ILL_NORM;
 489                         muta_desc = _( "心の安らぐ幻影を映し出すようになった。",  "You start projecting a reassuring image.");
 490
 491                         break;
 492                 case 146: case 147: case 148:
 493                         muta_class = &(p_ptr->muta3);
 494                         muta_which = MUT3_XTRA_EYES;
 495                         muta_desc = _( "新たに二つの目が出来た！",  "You grow an extra pair of eyes!");
 496
 497                         break;
 498                 case 149: case 150:
 499                         muta_class = &(p_ptr->muta3);
 500                         muta_which = MUT3_MAGIC_RES;
 501                         muta_desc = _( "魔法への耐性がついた。",  "You become resistant to magic.");
 502
 503                         break;
 504                 case 151: case 152: case 153:
 505                         muta_class = &(p_ptr->muta3);
 506                         muta_which = MUT3_XTRA_NOIS;
 507                         muta_desc = _( "あなたは奇妙な音を立て始めた！",  "You start making strange noise!");
 508
 509                         break;
 510                 case 154: case 155: case 156:
 511                         muta_class = &(p_ptr->muta3);
 512                         muta_which = MUT3_INFRAVIS;
 513                         muta_desc = _( "赤外線視力が増した。",  "Your infravision is improved.");
 514
 515                         break;
 516                 case 157: case 158:
 517                         muta_class = &(p_ptr->muta3);
 518                         muta_which = MUT3_XTRA_LEGS;
 519                         muta_desc = _( "新たに二本の足が生えてきた！",  "You grow an extra pair of legs!");
 520
 521                         break;
 522                 case 159: case 160:
 523                         muta_class = &(p_ptr->muta3);
 524                         muta_which = MUT3_SHORT_LEG;
 525                         muta_desc = _( "足が短い突起になってしまった！",  "Your legs turn into short stubs!");
 526
 527                         break;
 528                 case 161: case 162:
 529                         muta_class = &(p_ptr->muta3);
 530                         muta_which = MUT3_ELEC_TOUC;
 531                         muta_desc = _( "血管を電流が流れ始めた！",  "Electricity starts running through you!");
 532
 533                         break;
 534                 case 163: case 164:
 535                         muta_class = &(p_ptr->muta3);
 536                         muta_which = MUT3_FIRE_BODY;
 537                         muta_desc = _( "あなたの体は炎につつまれている。",  "Your body is enveloped in flames!");
 538
 539                         break;
 540                 case 165: case 166: case 167:
 541                         muta_class = &(p_ptr->muta3);
 542                         muta_which = MUT3_WART_SKIN;
 543                         muta_desc = _( "気持ち悪いイボイボが体中にできた！",  "Disgusting warts appear everywhere on you!");
 544
 545                         break;
 546                 case 168: case 169: case 170:
 547                         muta_class = &(p_ptr->muta3);
 548                         muta_which = MUT3_SCALES;
 549                         muta_desc = _( "肌が黒い鱗に変わった！",  "Your skin turns into black scales!");
 550
 551                         break;
 552                 case 171: case 172:
 553                         muta_class = &(p_ptr->muta3);
 554                         muta_which = MUT3_IRON_SKIN;
 555                         muta_desc = _( "あなたの肌は鉄になった！",  "Your skin turns to steel!");
 556
 557                         break;
 558                 case 173: case 174:
 559                         muta_class = &(p_ptr->muta3);
 560                         muta_which = MUT3_WINGS;
 561                         muta_desc = _( "背中に羽が生えた。",  "You grow a pair of wings.");
 562
 563                         break;
 564                 case 175: case 176: case 177:
 565                         muta_class = &(p_ptr->muta3);
 566                         muta_which = MUT3_FEARLESS;
 567                         muta_desc = _( "完全に怖れ知らずになった。",  "You become completely fearless.");
 568
 569                         break;
 570                 case 178: case 179:
 571                         muta_class = &(p_ptr->muta3);
 572                         muta_which = MUT3_REGEN;
 573                         muta_desc = _( "急速に回復し始めた。",  "You start regenerating.");
 574
 575                         break;
 576                 case 180: case 181:
 577                         muta_class = &(p_ptr->muta3);
 578                         muta_which = MUT3_ESP;
 579                         muta_desc = _( "テレパシーの能力を得た！",  "You develop a telepathic ability!");
 580
 581                         break;
 582                 case 182: case 183: case 184:
 583                         muta_class = &(p_ptr->muta3);
 584                         muta_which = MUT3_LIMBER;
 585                         muta_desc = _( "筋肉がしなやかになった。",  "Your muscles become limber.");
 586
 587                         break;
 588                 case 185: case 186: case 187:
 589                         muta_class = &(p_ptr->muta3);
 590                         muta_which = MUT3_ARTHRITIS;
 591                         muta_desc = _( "関節が突然痛み出した。",  "Your joints suddenly hurt.");
 592
 593                         break;
 594                 case 188:
 595                         if (p_ptr->pseikaku == SEIKAKU_LUCKY) break;
 596                         muta_class = &(p_ptr->muta3);
 597                         muta_which = MUT3_BAD_LUCK;
 598                         muta_desc = _( "悪意に満ちた黒いオーラがあなたをとりまいた...",  "There is a malignant black aura surrounding you...");
 599
 600                         break;
 601                 case 189:
 602                         muta_class = &(p_ptr->muta3);
 603                         muta_which = MUT3_VULN_ELEM;
 604                         muta_desc = _( "妙に無防備になった気がする。",  "You feel strangely exposed.");
 605
 606                         break;
 607                 case 190: case 191: case 192:
 608                         muta_class = &(p_ptr->muta3);
 609                         muta_which = MUT3_MOTION;
 610                         muta_desc = _( "体の動作がより正確になった。",  "You move with new assurance.");
 611
 612                         break;
 613                 case 193:
 614                         muta_class = &(p_ptr->muta3);
 615                         muta_which = MUT3_GOOD_LUCK;
 616                         muta_desc = _( "慈悲深い白いオーラがあなたをとりまいた...",  "There is a benevolent white aura surrounding you...");
 617
 618                         break;
 619                 default:
 620                         muta_class = NULL;
 621                         muta_which = 0;
 622                 }
 623
 624                 if (muta_class && muta_which)
 625                 {
 626                         if (!(*muta_class & muta_which))
 627                         {
 628                                 muta_chosen = TRUE;
 629                         }
 630                 }
 631                 if (muta_chosen == TRUE) break;
 632         }
 633
 634         if (!muta_chosen)
 635         {
 636                 msg_print(_("普通になった気がする。", "You feel normal."));
 637
 638                 return FALSE;
 639         }
 640         else
 641         {
 642                 chg_virtue(V_CHANCE, 1);
 643
 644                 /*
 645                   some races are apt to gain specified mutations
 646                   This should be allowed only if "choose_mut" is 0.
 647                                                         --- henkma
 648                 */
 649                 if(!choose_mut){
 650                         if (p_ptr->prace == RACE_VAMPIRE &&
 651                           !(p_ptr->muta1 & MUT1_HYPN_GAZE) &&
 652                            (randint1(10) < 7))
 653                         {
 654                                 muta_class = &(p_ptr->muta1);
 655                                 muta_which = MUT1_HYPN_GAZE;
 656                         muta_desc = _( "眼が幻惑的になった...",  "Your eyes look mesmerizing...");
 657
 658                         }
 659
 660                         else if (p_ptr->prace == RACE_IMP &&
 661                                  !(p_ptr->muta2 & MUT2_HORNS) &&
 662                                  (randint1(10) < 7))
 663                           {
 664                                 muta_class = &(p_ptr->muta2);
 665                                 muta_which = MUT2_HORNS;
 666                         muta_desc = _( "角が額から生えてきた！",  "Horns pop forth into your forehead!");
 667
 668                         }
 669
 670                         else if (p_ptr->prace == RACE_YEEK &&
 671                                 !(p_ptr->muta1 & MUT1_SHRIEK) &&
 672                                 (randint1(10) < 7))
 673                         {
 674                                 muta_class = &(p_ptr->muta1);
 675                                 muta_which = MUT1_SHRIEK;
 676                         muta_desc = _( "声質がかなり強くなった。",  "Your vocal cords get much tougher.");
 677
 678                         }
 679
 680                         else if (p_ptr->prace == RACE_BEASTMAN &&
 681                                 !(p_ptr->muta1 & MUT1_POLYMORPH) &&
 682                                 (randint1(10) < 2))
 683                         {
 684                                 muta_class = &(p_ptr->muta1);
 685                                 muta_which = MUT1_POLYMORPH;
 686                         muta_desc = _( "あなたの肉体は変化できるようになった、",  "Your body seems mutable.");
 687
 688                         }
 689
 690                         else if (p_ptr->prace == RACE_MIND_FLAYER &&
 691                                 !(p_ptr->muta2 & MUT2_TENTACLES) &&
 692                                 (randint1(10) < 7))
 693                         {
 694                                 muta_class = &(p_ptr->muta2);
 695                                 muta_which = MUT2_TENTACLES;
 696                         muta_desc = _( "邪悪な触手が口の周りに生えた。",  "Evil-looking tentacles sprout from your mouth.");
 697
 698                         }
 699                 }
 700                 msg_print(_("突然変異した！", "You mutate!"));
 701
 702                 msg_print(muta_desc);
 703                 *muta_class |= muta_which;
 704
 705                 if (muta_class == &(p_ptr->muta3))
 706                 {
 707                         if (muta_which == MUT3_PUNY)
 708                         {
 709                                 if (p_ptr->muta3 & MUT3_HYPER_STR)
 710                                 {
 711                                         msg_print(_("あなたはもう超人的に強くはない！", "You no longer feel super-strong!"));
 712
 713                                         p_ptr->muta3 &= ~(MUT3_HYPER_STR);
 714                                 }
 715                         }
 716                         else if (muta_which == MUT3_HYPER_STR)
 717                         {
 718                                 if (p_ptr->muta3 & MUT3_PUNY)
 719                                 {
 720                                         msg_print(_("あなたはもう虚弱ではない！", "You no longer feel puny!"));
 721
 722                                         p_ptr->muta3 &= ~(MUT3_PUNY);
 723                                 }
 724                         }
 725                         else if (muta_which == MUT3_MORONIC)
 726                         {
 727                                 if (p_ptr->muta3 & MUT3_HYPER_INT)
 728                                 {
 729                                         msg_print(_("あなたの脳はもう生体コンピュータではない。", "Your brain is no longer a living computer."));
 730
 731                                         p_ptr->muta3 &= ~(MUT3_HYPER_INT);
 732                                 }
 733                         }
 734                         else if (muta_which == MUT3_HYPER_INT)
 735                         {
 736                                 if (p_ptr->muta3 & MUT3_MORONIC)
 737                                 {
 738                                         msg_print(_("あなたはもう精神薄弱ではない。", "You are no longer moronic."));
 739
 740                                         p_ptr->muta3 &= ~(MUT3_MORONIC);
 741                                 }
 742                         }
 743                         else if (muta_which == MUT3_IRON_SKIN)
 744                         {
 745                                 if (p_ptr->muta3 & MUT3_SCALES)
 746                                 {
 747                                         msg_print(_("鱗がなくなった。", "You lose your scales."));
 748
 749                                         p_ptr->muta3 &= ~(MUT3_SCALES);
 750                                 }
 751                                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
 752                                 {
 753                                         msg_print(_("肉体が腐乱しなくなった。", "Your flesh rots no longer."));
 754
 755                                         p_ptr->muta3 &= ~(MUT3_FLESH_ROT);
 756                                 }
 757                                 if (p_ptr->muta3 & MUT3_WART_SKIN)
 758                                 {
 759                                         msg_print(_("肌のイボイボがなくなった。", "You lose your warts."));
 760
 761                                         p_ptr->muta3 &= ~(MUT3_WART_SKIN);
 762                                 }
 763                         }
 764                         else if (muta_which == MUT3_WART_SKIN || muta_which == MUT3_SCALES
 765                                 || muta_which == MUT3_FLESH_ROT)
 766                         {
 767                                 if (p_ptr->muta3 & MUT3_IRON_SKIN)
 768                                 {
 769                                         msg_print(_("あなたの肌はもう鉄ではない。", "Your skin is no longer made of steel."));
 770
 771                                         p_ptr->muta3 &= ~(MUT3_IRON_SKIN);
 772                                 }
 773                         }
 774                         else if (muta_which == MUT3_FEARLESS)
 775                         {
 776                                 if (p_ptr->muta2 & MUT2_COWARDICE)
 777                                 {
 778                                         msg_print(_("臆病でなくなった。", "You are no longer cowardly."));
 779
 780                                         p_ptr->muta2 &= ~(MUT2_COWARDICE);
 781                                 }
 782                         }
 783                         else if (muta_which == MUT3_FLESH_ROT)
 784                         {
 785                                 if (p_ptr->muta3 & MUT3_REGEN)
 786                                 {
 787                                         msg_print(_("急速に回復しなくなった。", "You stop regenerating."));
 788
 789                                         p_ptr->muta3 &= ~(MUT3_REGEN);
 790                                 }
 791                         }
 792                         else if (muta_which == MUT3_REGEN)
 793                         {
 794                                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
 795                                 {
 796                                         msg_print(_("肉体が腐乱しなくなった。", "Your flesh stops rotting."));
 797
 798                                         p_ptr->muta3 &= ~(MUT3_FLESH_ROT);
 799                                 }
 800                         }
 801                         else if (muta_which == MUT3_LIMBER)
 802                         {
 803                                 if (p_ptr->muta3 & MUT3_ARTHRITIS)
 804                                 {
 805                                         msg_print(_("関節が痛くなくなった。", "Your joints stop hurting."));
 806
 807                                         p_ptr->muta3 &= ~(MUT3_ARTHRITIS);
 808                                 }
 809                         }
 810                         else if (muta_which == MUT3_ARTHRITIS)
 811                         {
 812                                 if (p_ptr->muta3 & MUT3_LIMBER)
 813                                 {
 814                                         msg_print(_("あなたはしなやかでなくなった。", "You no longer feel limber."));
 815
 816                                         p_ptr->muta3 &= ~(MUT3_LIMBER);
 817                                 }
 818                         }
 819                 }
 820                 else if (muta_class == &(p_ptr->muta2))
 821                 {
 822                         if (muta_which == MUT2_COWARDICE)
 823                         {
 824                                 if (p_ptr->muta3 & MUT3_FEARLESS)
 825                                 {
 826                                         msg_print(_("恐れ知らずでなくなった。", "You no longer feel fearless."));
 827
 828                                         p_ptr->muta3 &= ~(MUT3_FEARLESS);
 829                                 }
 830                         }
 831                         if (muta_which == MUT2_BEAK)
 832                         {
 833                                 if (p_ptr->muta2 & MUT2_TRUNK)
 834                                 {
 835                                         msg_print(_("あなたの鼻はもう象の鼻のようではなくなった。", "Your nose is no longer elephantine."));
 836
 837                                         p_ptr->muta2 &= ~(MUT2_TRUNK);
 838                                 }
 839                         }
 840                         if (muta_which == MUT2_TRUNK)
 841                         {
 842                                 if (p_ptr->muta2 & MUT2_BEAK)
 843                                 {
 844                                         msg_print(_("硬いクチバシがなくなった。", "You no longer have a hard beak."));
 845
 846                                         p_ptr->muta2 &= ~(MUT2_BEAK);
 847                                 }
 848                         }
 849                 }
 850
 851                 mutant_regenerate_mod = calc_mutant_regenerate_mod();
 852                 p_ptr->update |= PU_BONUS;
 853                 handle_stuff();
 854                 return TRUE;
 855         }
 856 }
 857
 858 /*!
 859  * @brief プレイヤーから突然変異を取り除く
 860  * @param choose_mut 取り除きたい突然変異のID、0ならばランダムに消去
 861  * @return なし
 862  */
 863 bool lose_mutation(int choose_mut)
 864 {
 865         int attempts_left = 20;
 866         concptr muta_desc = "";
 867         bool muta_chosen = FALSE;
 868         BIT_FLAGS muta_which = 0;
 869         BIT_FLAGS *muta_class = NULL;
 870
 871         if (choose_mut) attempts_left = 1;
 872
 873         while (attempts_left--)
 874         {
 875                 switch (choose_mut ? choose_mut : randint1(193))
 876                 {
 877                 case 1: case 2: case 3: case 4:
 878                         muta_class = &(p_ptr->muta1);
 879                         muta_which = MUT1_SPIT_ACID;
 880                         muta_desc = _( "酸を吹きかける能力を失った。",  "You lose the ability to spit acid.");
 881
 882                         break;
 883                 case 5: case 6: case 7:
 884                         muta_class = &(p_ptr->muta1);
 885                         muta_which = MUT1_BR_FIRE;
 886                         muta_desc = _( "炎のブレスを吐く能力を失った。",  "You lose the ability to breathe fire.");
 887
 888                         break;
 889                 case 8: case 9:
 890                         muta_class = &(p_ptr->muta1);
 891                         muta_which = MUT1_HYPN_GAZE;
 892                         muta_desc = _( "あなたの目はつまらない目になった。",  "Your eyes look uninteresting.");
 893
 894                         break;
 895                 case 10: case 11:
 896                         muta_class = &(p_ptr->muta1);
 897                         muta_which = MUT1_TELEKINES;
 898                         muta_desc = _( "念動力で物を動かす能力を失った。",  "You lose the ability to move objects telekinetically.");
 899
 900                         break;
 901                 case 12: case 13: case 14:
 902                         muta_class = &(p_ptr->muta1);
 903                         muta_which = MUT1_VTELEPORT;
 904                         muta_desc = _( "自分の意思でテレポートする能力を失った。",  "You lose the power of teleportation at will.");
 905
 906                         break;
 907                 case 15: case 16:
 908                         muta_class = &(p_ptr->muta1);
 909                         muta_which = MUT1_MIND_BLST;
 910                         muta_desc = _( "精神攻撃の能力を失った。",  "You lose the power of Mind Blast.");
 911
 912                         break;
 913                 case 17: case 18:
 914                         muta_class = &(p_ptr->muta1);
 915                         muta_which = MUT1_RADIATION;
 916                         muta_desc = _( "あなたは放射能を発生しなくなった。",  "You stop emitting hard radiation.");
 917
 918                         break;
 919                 case 19: case 20:
 920                         muta_class = &(p_ptr->muta1);
 921                         muta_which = MUT1_VAMPIRISM;
 922                         muta_desc = _( "吸血の能力を失った。",  "You are no longer vampiric.");
 923
 924                         break;
 925                 case 21: case 22: case 23:
 926                         muta_class = &(p_ptr->muta1);
 927                         muta_which = MUT1_SMELL_MET;
 928                         muta_desc = _( "金属の臭いを嗅げなくなった。",  "You no longer smell a metallic odor.");
 929
 930                         break;
 931                 case 24: case 25: case 26: case 27:
 932                         muta_class = &(p_ptr->muta1);
 933                         muta_which = MUT1_SMELL_MON;
 934                         muta_desc = _( "不潔なモンスターの臭いを嗅げなくなった。",  "You no longer smell filthy monsters.");
 935
 936                         break;
 937                 case 28: case 29: case 30:
 938                         muta_class = &(p_ptr->muta1);
 939                         muta_which = MUT1_BLINK;
 940                         muta_desc = _( "近距離テレポートの能力を失った。",  "You lose the power of minor teleportation.");
 941
 942                         break;
 943                 case 31: case 32:
 944                         muta_class = &(p_ptr->muta1);
 945                         muta_which = MUT1_EAT_ROCK;
 946                         muta_desc = _( "壁は美味しそうに見えなくなった。",  "The walls look unappetizing.");
 947
 948                         break;
 949                 case 33: case 34:
 950                         muta_class = &(p_ptr->muta1);
 951                         muta_which = MUT1_SWAP_POS;
 952                         muta_desc = _( "あなたは自分の靴に留まる感じがする。",  "You feel like staying in your own shoes.");
 953
 954                         break;
 955                 case 35: case 36: case 37:
 956                         muta_class = &(p_ptr->muta1);
 957                         muta_which = MUT1_SHRIEK;
 958                         muta_desc = _( "あなたの声質は弱くなった。",  "Your vocal cords get much weaker.");
 959
 960                         break;
 961                 case 38: case 39: case 40:
 962                         muta_class = &(p_ptr->muta1);
 963                         muta_which = MUT1_ILLUMINE;
 964                         muta_desc = _( "部屋を明るく照らすことが出来なくなった。",  "You can no longer light up rooms with your presence.");
 965
 966                         break;
 967                 case 41: case 42:
 968                         muta_class = &(p_ptr->muta1);
 969                         muta_which = MUT1_DET_CURSE;
 970                         muta_desc = _( "邪悪な魔法を感じられなくなった。",  "You can no longer feel evil magics.");
 971
 972                         break;
 973                 case 43: case 44: case 45:
 974                         muta_class = &(p_ptr->muta1);
 975                         muta_which = MUT1_BERSERK;
 976                         muta_desc = _( "制御できる激情を感じなくなった。",  "You no longer feel a controlled rage.");
 977
 978                         break;
 979                 case 46:
 980                         muta_class = &(p_ptr->muta1);
 981                         muta_which = MUT1_POLYMORPH;
 982                         muta_desc = _( "あなたの体は安定したように見える。",  "Your body seems stable.");
 983
 984                         break;
 985                 case 47: case 48:
 986                         muta_class = &(p_ptr->muta1);
 987                         muta_which = MUT1_MIDAS_TCH;
 988                         muta_desc = _( "ミダスの手の能力を失った。",  "You lose the Midas touch.");
 989
 990                         break;
 991                 case 49:
 992                         muta_class = &(p_ptr->muta1);
 993                         muta_which = MUT1_GROW_MOLD;
 994                         muta_desc = _( "突然カビが嫌いになった。",  "You feel a sudden dislike for mold.");
 995
 996                         break;
 997                 case 50: case 51: case 52:
 998                         muta_class = &(p_ptr->muta1);
 999                         muta_which = MUT1_RESIST;
1000                         muta_desc = _( "傷つき易くなった気がする。",  "You feel like you might be vulnerable.");
1001
1002                         break;
1003                 case 53: case 54: case 55:
1004                         muta_class = &(p_ptr->muta1);
1005                         muta_which = MUT1_EARTHQUAKE;
1006                         muta_desc = _( "ダンジョンを壊す能力を失った。",  "You lose the ability to wreck the dungeon.");
1007
1008                         break;
1009                 case 56:
1010                         muta_class = &(p_ptr->muta1);
1011                         muta_which = MUT1_EAT_MAGIC;
1012                         muta_desc = _( "魔法のアイテムはもう美味しそうに見えなくなった。",  "Your magic items no longer look delicious.");
1013
1014                         break;
1015                 case 57: case 58:
1016                         muta_class = &(p_ptr->muta1);
1017                         muta_which = MUT1_WEIGH_MAG;
1018                         muta_desc = _( "魔力を感じられなくなった。",  "You no longer sense magic.");
1019
1020                         break;
1021                 case 59:
1022                         muta_class = &(p_ptr->muta1);
1023                         muta_which = MUT1_STERILITY;
1024                         muta_desc = _( "たくさんの安堵の吐息が聞こえた。",  "You hear a massed sigh of relief.");
1025
1026                         break;
1027                 case 60: case 61:
1028                         muta_class = &(p_ptr->muta1);
1029                         muta_which = MUT1_PANIC_HIT;
1030                         muta_desc = _( "あちこちへ跳べる気分がなくなった。",  "You no longer feel jumpy.");
1031
1032                         break;
1033                 case 62: case 63: case 64:
1034                         muta_class = &(p_ptr->muta1);
1035                         muta_which = MUT1_DAZZLE;
1036                         muta_desc = _( "まばゆい閃光を発する能力を失った。",  "You lose the ability to emit dazzling lights.");
1037
1038                         break;
1039                 case 65: case 66: case 67:
1040                         muta_class = &(p_ptr->muta1);
1041                         muta_which = MUT1_LASER_EYE;
1042                         muta_desc = _( "眼が少しの間焼き付いて、痛みが和らいだ。",  "Your eyes burn for a moment, then feel soothed.");
1043
1044                         break;
1045                 case 68: case 69:
1046                         muta_class = &(p_ptr->muta1);
1047                         muta_which = MUT1_RECALL;
1048                         muta_desc = _( "少しの間ホームシックになった。",  "You feel briefly homesick.");
1049
1050                         break;
1051                 case 70:
1052                         muta_class = &(p_ptr->muta1);
1053                         muta_which = MUT1_BANISH;
1054                         muta_desc = _( "神聖な怒りの力を感じなくなった。",  "You no longer feel a holy wrath.");
1055
1056                         break;
1057                 case 71: case 72:
1058                         muta_class = &(p_ptr->muta1);
1059                         muta_which = MUT1_COLD_TOUCH;
1060                         muta_desc = _( "手が暖かくなった。",  "Your hands warm up.");
1061
1062                         break;
1063                 case 73: case 74:
1064                         muta_class = &(p_ptr->muta1);
1065                         muta_which = MUT1_LAUNCHER;
1066                         muta_desc = _( "物を投げる手が弱くなった気がする。",  "Your throwing arm feels much weaker.");
1067
1068                         break;
1069                 case 75:
1070                         muta_class = &(p_ptr->muta2);
1071                         muta_which = MUT2_BERS_RAGE;
1072                         muta_desc = _( "凶暴化の発作にさらされなくなった！",  "You are no longer subject to fits of berserk rage!");
1073
1074                         break;
1075                 case 76:
1076                         muta_class = &(p_ptr->muta2);
1077                         muta_which = MUT2_COWARDICE;
1078                         muta_desc = _( "もう信じがたいほど臆病ではなくなった！",  "You are no longer an incredible coward!");
1079
1080                         break;
1081                 case 77:
1082                         muta_class = &(p_ptr->muta2);
1083                         muta_which = MUT2_RTELEPORT;
1084                         muta_desc = _( "あなたの位置はより確定的になった。",  "Your position seems more certain.");
1085
1086                         break;
1087                 case 78:
1088                         muta_class = &(p_ptr->muta2);
1089                         muta_which = MUT2_ALCOHOL;
1090                         muta_desc = _( "あなたはアルコールを分泌しなくなった！",  "Your body stops producing alcohol!");
1091
1092                         break;
1093                 case 79:
1094                         muta_class = &(p_ptr->muta2);
1095                         muta_which = MUT2_HALLU;
1096                         muta_desc = _( "幻覚をひき起こす精神障害を起こさなくなった！",  "You are no longer afflicted by a hallucinatory insanity!");
1097
1098                         break;
1099                 case 80:
1100                         muta_class = &(p_ptr->muta2);
1101                         muta_which = MUT2_FLATULENT;
1102                         muta_desc = _( "もう強烈な屁はこかなくなった。",  "You are no longer subject to uncontrollable flatulence.");
1103
1104                         break;
1105                 case 81: case 82:
1106                         muta_class = &(p_ptr->muta2);
1107                         muta_which = MUT2_SCOR_TAIL;
1108                         muta_desc = _( "サソリの尻尾がなくなった！",  "You lose your scorpion tail!");
1109
1110                         break;
1111                 case 83: case 84:
1112                         muta_class = &(p_ptr->muta2);
1113                         muta_which = MUT2_HORNS;
1114                         muta_desc = _( "額から角が消えた！",  "Your horns vanish from your forehead!");
1115
1116                         break;
1117                 case 85: case 86:
1118                         muta_class = &(p_ptr->muta2);
1119                         muta_which = MUT2_BEAK;
1120                         muta_desc = _( "口が普通に戻った！",  "Your mouth reverts to normal!");
1121
1122                         break;
1123                 case 87: case 88:
1124                         muta_class = &(p_ptr->muta2);
1125                         muta_which = MUT2_ATT_DEMON;
1126                         muta_desc = _( "デーモンを引き寄せなくなった。",  "You stop attracting demons.");
1127
1128                         break;
1129                 case 89:
1130                         muta_class = &(p_ptr->muta2);
1131                         muta_which = MUT2_PROD_MANA;
1132                         muta_desc = _( "制御不能な魔法のエネルギーを発生しなくなった。",  "You stop producing magical energy uncontrollably.");
1133
1134                         break;
1135                 case 90: case 91:
1136                         muta_class = &(p_ptr->muta2);
1137                         muta_which = MUT2_SPEED_FLUX;
1138                         muta_desc = _( "躁鬱質でなくなった。",  "You are no longer manic-depressive.");
1139
1140                         break;
1141                 case 92: case 93:
1142                         muta_class = &(p_ptr->muta2);
1143                         muta_which = MUT2_BANISH_ALL;
1144                         muta_desc = _( "背後に恐ろしい力を感じなくなった。",  "You no longer feel a terrifying power lurking behind you.");
1145
1146                         break;
1147                 case 94:
1148                         muta_class = &(p_ptr->muta2);
1149                         muta_which = MUT2_EAT_LIGHT;
1150                         muta_desc = _( "世界が明るいと感じる。",  "You feel the world's a brighter place.");
1151
1152                         break;
1153                 case 95: case 96:
1154                         muta_class = &(p_ptr->muta2);
1155                         muta_which = MUT2_TRUNK;
1156                         muta_desc = _( "鼻が普通の長さに戻った。",  "Your nose returns to a normal length.");
1157
1158                         break;
1159                 case 97:
1160                         muta_class = &(p_ptr->muta2);
1161                         muta_which = MUT2_ATT_ANIMAL;
1162                         muta_desc = _( "動物を引き寄せなくなった。",  "You stop attracting animals.");
1163
1164                         break;
1165                 case 98:
1166                         muta_class = &(p_ptr->muta2);
1167                         muta_which = MUT2_TENTACLES;
1168                         muta_desc = _( "触手が消えた。",  "Your tentacles vanish from your sides.");
1169
1170                         break;
1171                 case 99:
1172                         muta_class = &(p_ptr->muta2);
1173                         muta_which = MUT2_RAW_CHAOS;
1174                         muta_desc = _( "周囲の空間が安定した気がする。",  "You feel the universe is more stable around you.");
1175
1176                         break;
1177                 case 100: case 101: case 102:
1178                         muta_class = &(p_ptr->muta2);
1179                         muta_which = MUT2_NORMALITY;
1180                         muta_desc = _( "普通に奇妙な感じがする。",  "You feel normally strange.");
1181
1182                         break;
1183                 case 103:
1184                         muta_class = &(p_ptr->muta2);
1185                         muta_which = MUT2_WRAITH;
1186                         muta_desc = _( "あなたは物質世界にしっかり存在している。",  "You are firmly in the physical world.");
1187
1188                         break;
1189                 case 104:
1190                         muta_class = &(p_ptr->muta2);
1191                         muta_which = MUT2_POLY_WOUND;
1192                         muta_desc = _( "古い傷からカオスの力が去っていった。",  "You feel forces of chaos departing your old scars.");
1193
1194                         break;
1195                 case 105:
1196                         muta_class = &(p_ptr->muta2);
1197                         muta_which = MUT2_WASTING;
1198                         muta_desc = _( "おぞましい衰弱病が治った！",  "You are cured of the horrible wasting disease!");
1199
1200                         break;
1201                 case 106:
1202                         muta_class = &(p_ptr->muta2);
1203                         muta_which = MUT2_ATT_DRAGON;
1204                         muta_desc = _( "ドラゴンを引き寄せなくなった。",  "You stop attracting dragons.");
1205
1206                         break;
1207                 case 107: case 108:
1208                         muta_class = &(p_ptr->muta2);
1209                         muta_which = MUT2_WEIRD_MIND;
1210                         muta_desc = _( "思考が退屈な方向に戻った。",  "Your thoughts return to boring paths.");
1211
1212                         break;
1213                 case 109:
1214                         muta_class = &(p_ptr->muta2);
1215                         muta_which = MUT2_NAUSEA;
1216                         muta_desc = _( "胃が痙攣しなくなった。",  "Your stomach stops roiling.");
1217
1218                         break;
1219                 case 110: case 111:
1220                         muta_class = &(p_ptr->muta2);
1221                         muta_which = MUT2_CHAOS_GIFT;
1222                         muta_desc = _( "混沌の神々の興味を惹かなくなった。",  "You lose the attention of the chaos deities.");
1223
1224                         break;
1225                 case 112:
1226                         muta_class = &(p_ptr->muta2);
1227                         muta_which = MUT2_WALK_SHAD;
1228                         muta_desc = _( "物質世界に捕らわれている気がする。",  "You feel like you're trapped in reality.");
1229
1230                         break;
1231                 case 113: case 114:
1232                         muta_class = &(p_ptr->muta2);
1233                         muta_which = MUT2_WARNING;
1234                         muta_desc = _( "パラノイアでなくなった。",  "You no longer feel paranoid.");
1235
1236                         break;
1237                 case 115:
1238                         muta_class = &(p_ptr->muta2);
1239                         muta_which = MUT2_INVULN;
1240                         muta_desc = _( "無敵状態の発作を起こさなくなった。",  "You are no longer blessed with fits of invulnerability.");
1241
1242                         break;
1243                 case 116: case 117:
1244                         muta_class = &(p_ptr->muta2);
1245                         muta_which = MUT2_SP_TO_HP;
1246                         muta_desc = _( "魔法の治癒の発作に襲われなくなった。",  "You are no longer subject to fits of magical healing.");
1247
1248                         break;
1249                 case 118:
1250                         muta_class = &(p_ptr->muta2);
1251                         muta_which = MUT2_HP_TO_SP;
1252                         muta_desc = _( "痛みを伴う精神明瞭化の発作に襲われなくなった。",  "You are no longer subject to fits of painful clarity.");
1253
1254                         break;
1255                 case 119:
1256                         muta_class = &(p_ptr->muta2);
1257                         muta_which = MUT2_DISARM;
1258                         muta_desc = _( "脚が元の大きさに戻った。",  "Your feet shrink to their former size.");
1259
1260                         break;
1261                 case 120: case 121: case 122:
1262                         muta_class = &(p_ptr->muta3);
1263                         muta_which = MUT3_HYPER_STR;
1264                         muta_desc = _( "筋肉が普通に戻った。",  "Your muscles revert to normal.");
1265
1266                         break;
1267                 case 123: case 124: case 125:
1268                         muta_class = &(p_ptr->muta3);
1269                         muta_which = MUT3_PUNY;
1270                         muta_desc = _( "筋肉が普通に戻った。",  "Your muscles revert to normal.");
1271
1272                         break;
1273                 case 126: case 127: case 128:
1274                         muta_class = &(p_ptr->muta3);
1275                         muta_which = MUT3_HYPER_INT;
1276                         muta_desc = _( "脳が普通に戻った。",  "Your brain reverts to normal.");
1277
1278                         break;
1279                 case 129: case 130: case 131:
1280                         muta_class = &(p_ptr->muta3);
1281                         muta_which = MUT3_MORONIC;
1282                         muta_desc = _( "脳が普通に戻った。",  "Your brain reverts to normal.");
1283
1284                         break;
1285                 case 132: case 133:
1286                         muta_class = &(p_ptr->muta3);
1287                         muta_which = MUT3_RESILIENT;
1288                         muta_desc = _( "普通の丈夫さに戻った。",  "You become ordinarily resilient again.");
1289
1290                         break;
1291                 case 134: case 135:
1292                         muta_class = &(p_ptr->muta3);
1293                         muta_which = MUT3_XTRA_FAT;
1294                         muta_desc = _( "奇跡的なダイエットに成功した！",  "You benefit from a miracle diet!");
1295
1296                         break;
1297                 case 136: case 137:
1298                         muta_class = &(p_ptr->muta3);
1299                         muta_which = MUT3_ALBINO;
1300                         muta_desc = _( "アルビノでなくなった！",  "You are no longer an albino!");
1301
1302                         break;
1303                 case 138: case 139: case 140:
1304                         muta_class = &(p_ptr->muta3);
1305                         muta_which = MUT3_FLESH_ROT;
1306                         muta_desc = _( "肉体を腐敗させる病気が治った！",  "Your flesh is no longer afflicted by a rotting disease!");
1307
1308                         break;
1309                 case 141: case 142:
1310                         muta_class = &(p_ptr->muta3);
1311                         muta_which = MUT3_SILLY_VOI;
1312                         muta_desc = _( "声質が普通に戻った。",  "Your voice returns to normal.");
1313
1314                         break;
1315                 case 143: case 144:
1316                         muta_class = &(p_ptr->muta3);
1317                         muta_which = MUT3_BLANK_FAC;
1318                         muta_desc = _( "顔に目鼻が戻った。",  "Your facial features return.");
1319
1320                         break;
1321                 case 145:
1322                         muta_class = &(p_ptr->muta3);
1323                         muta_which = MUT3_ILL_NORM;
1324                         muta_desc = _( "心が安らぐ幻影を映し出さなくなった。",  "You stop projecting a reassuring image.");
1325
1326                         break;
1327                 case 146: case 147: case 148:
1328                         muta_class = &(p_ptr->muta3);
1329                         muta_which = MUT3_XTRA_EYES;
1330                         muta_desc = _( "余分な目が消えてしまった！",  "Your extra eyes vanish!");
1331
1332                         break;
1333                 case 149: case 150:
1334                         muta_class = &(p_ptr->muta3);
1335                         muta_which = MUT3_MAGIC_RES;
1336                         muta_desc = _( "魔法に弱くなった。",  "You become susceptible to magic again.");
1337
1338                         break;
1339                 case 151: case 152: case 153:
1340                         muta_class = &(p_ptr->muta3);
1341                         muta_which = MUT3_XTRA_NOIS;
1342                         muta_desc = _( "奇妙な音を立てなくなった！",  "You stop making strange noise!");
1343
1344                         break;
1345                 case 154: case 155: case 156:
1346                         muta_class = &(p_ptr->muta3);
1347                         muta_which = MUT3_INFRAVIS;
1348                         muta_desc = _( "赤外線視力が落ちた。",  "Your infravision is degraded.");
1349
1350                         break;
1351                 case 157: case 158:
1352                         muta_class = &(p_ptr->muta3);
1353                         muta_which = MUT3_XTRA_LEGS;
1354                         muta_desc = _( "余分な脚が消えてしまった！",  "Your extra legs disappear!");
1355
1356                         break;
1357                 case 159: case 160:
1358                         muta_class = &(p_ptr->muta3);
1359                         muta_which = MUT3_SHORT_LEG;
1360                         muta_desc = _( "脚の長さが普通に戻った。",  "Your legs lengthen to normal.");
1361
1362                         break;
1363                 case 161: case 162:
1364                         muta_class = &(p_ptr->muta3);
1365                         muta_which = MUT3_ELEC_TOUC;
1366                         muta_desc = _( "体を電流が流れなくなった。",  "Electricity stops running through you.");
1367
1368                         break;
1369                 case 163: case 164:
1370                         muta_class = &(p_ptr->muta3);
1371                         muta_which = MUT3_FIRE_BODY;
1372                         muta_desc = _( "体が炎に包まれなくなった。",  "Your body is no longer enveloped in flames.");
1373
1374                         break;
1375                 case 165: case 166: case 167:
1376                         muta_class = &(p_ptr->muta3);
1377                         muta_which = MUT3_WART_SKIN;
1378                         muta_desc = _( "イボイボが消えた！",  "Your warts disappear!");
1379
1380                         break;
1381                 case 168: case 169: case 170:
1382                         muta_class = &(p_ptr->muta3);
1383                         muta_which = MUT3_SCALES;
1384                         muta_desc = _( "鱗が消えた！",  "Your scales vanish!");
1385
1386                         break;
1387                 case 171: case 172:
1388                         muta_class = &(p_ptr->muta3);
1389                         muta_which = MUT3_IRON_SKIN;
1390                         muta_desc = _( "肌が肉にもどった！",  "Your skin reverts to flesh!");
1391
1392                         break;
1393                 case 173: case 174:
1394                         muta_class = &(p_ptr->muta3);
1395                         muta_which = MUT3_WINGS;
1396                         muta_desc = _( "背中の羽根が取れ落ちた。",  "Your wings fall off.");
1397
1398                         break;
1399                 case 175: case 176: case 177:
1400                         muta_class = &(p_ptr->muta3);
1401                         muta_which = MUT3_FEARLESS;
1402                         muta_desc = _( "再び恐怖を感じるようになった。",  "You begin to feel fear again.");
1403
1404                         break;
1405                 case 178: case 179:
1406                         muta_class = &(p_ptr->muta3);
1407                         muta_which = MUT3_REGEN;
1408                         muta_desc = _( "急速回復しなくなった。",  "You stop regenerating.");
1409
1410                         break;
1411                 case 180: case 181:
1412                         muta_class = &(p_ptr->muta3);
1413                         muta_which = MUT3_ESP;
1414                         muta_desc = _( "テレパシーの能力を失った！",  "You lose your telepathic ability!");
1415
1416                         break;
1417                 case 182: case 183: case 184:
1418                         muta_class = &(p_ptr->muta3);
1419                         muta_which = MUT3_LIMBER;
1420                         muta_desc = _( "筋肉が硬くなった。",  "Your muscles stiffen.");
1421
1422                         break;
1423                 case 185: case 186: case 187:
1424                         muta_class = &(p_ptr->muta3);
1425                         muta_which = MUT3_ARTHRITIS;
1426                         muta_desc = _( "関節が痛くなくなった。",  "Your joints stop hurting.");
1427
1428                         break;
1429                 case 188:
1430                         muta_class = &(p_ptr->muta3);
1431                         muta_which = MUT3_BAD_LUCK;
1432                         muta_desc = _( "黒いオーラは渦巻いて消えた。",  "Your black aura swirls and fades.");
1433
1434                         break;
1435                 case 189:
1436                         muta_class = &(p_ptr->muta3);
1437                         muta_which = MUT3_VULN_ELEM;
1438                         muta_desc = _( "無防備な感じはなくなった。",  "You feel less exposed.");
1439
1440                         break;
1441                 case 190: case 191: case 192:
1442                         muta_class = &(p_ptr->muta3);
1443                         muta_which = MUT3_MOTION;
1444                         muta_desc = _( "動作の正確さがなくなった。",  "You move with less assurance.");
1445
1446                         break;
1447                 case 193:
1448                         if (p_ptr->pseikaku == SEIKAKU_LUCKY) break;
1449                         muta_class = &(p_ptr->muta3);
1450                         muta_which = MUT3_GOOD_LUCK;
1451                         muta_desc = _( "白いオーラは輝いて消えた。",  "Your white aura shimmers and fades.");
1452
1453                         break;
1454                 default:
1455                         muta_class = NULL;
1456                         muta_which = 0;
1457                 }
1458
1459                 if (muta_class && muta_which)
1460                 {
1461                         if (*(muta_class) & muta_which)
1462                         {
1463                                 muta_chosen = TRUE;
1464                         }
1465                 }
1466                 if (muta_chosen == TRUE) break;
1467         }
1468
1469         if (!muta_chosen)
1470         {
1471                 return FALSE;
1472         }
1473         else
1474         {
1475                 msg_print(muta_desc);
1476                 *(muta_class) &= ~(muta_which);
1477
1478                 p_ptr->update |= PU_BONUS;
1479                 handle_stuff();
1480                 mutant_regenerate_mod = calc_mutant_regenerate_mod();
1481                 return TRUE;
1482         }
1483 }
1484
1485 void lose_all_mutations(void)
1486 {
1487         if (p_ptr->muta1 || p_ptr->muta2 || p_ptr->muta3)
1488         {
1489                 chg_virtue(V_CHANCE, -5);
1490                 msg_print(_("全ての突然変異が治った。", "You are cured of all mutations."));
1491                 p_ptr->muta1 = p_ptr->muta2 = p_ptr->muta3 = 0;
1492                 p_ptr->update |= PU_BONUS;
1493                 handle_stuff();
1494                 mutant_regenerate_mod = calc_mutant_regenerate_mod();
1495         }
1496 }
1497
1498 /*!
1499  * @brief ファイルポインタを通じて突然変異の一覧を出力する
1500  * @param OutFile 出力先ファイルポインタ
1501  * @return なし
1502  */
1503 void dump_mutations(FILE *OutFile)
1504 {
1505         if (!OutFile) return;
1506
1507         if (p_ptr->muta1)
1508         {
1509                 if (p_ptr->muta1 & MUT1_SPIT_ACID)
1510                 {
1511                         fprintf(OutFile, _(" あなたは酸を吹きかけることができる。(ダメージ レベルX1)\n", " You can spit acid (dam lvl).\n"));
1512
1513                 }
1514                 if (p_ptr->muta1 & MUT1_BR_FIRE)
1515                 {
1516                         fprintf(OutFile, _(" あなたは炎のブレスを吐くことができる。(ダメージ レベルX2)\n", " You can breathe fire (dam lvl * 2).\n"));
1517
1518                 }
1519                 if (p_ptr->muta1 & MUT1_HYPN_GAZE)
1520                 {
1521                         fprintf(OutFile, _(" あなたの睨みは催眠効果をもつ。\n", " Your gaze is hypnotic.\n"));
1522
1523                 }
1524                 if (p_ptr->muta1 & MUT1_TELEKINES)
1525                 {
1526                         fprintf(OutFile, _(" あなたは念動力をもっている。\n", " You are telekinetic.\n"));
1527
1528                 }
1529                 if (p_ptr->muta1 & MUT1_VTELEPORT)
1530                 {
1531                         fprintf(OutFile, _(" あなたは自分の意思でテレポートできる。\n", " You can teleport at will.\n"));
1532
1533                 }
1534                 if (p_ptr->muta1 & MUT1_MIND_BLST)
1535                 {
1536                         fprintf(OutFile, _(" あなたは敵を精神攻撃できる。\n", " You can Mind Blast your enemies.\n"));
1537
1538                 }
1539                 if (p_ptr->muta1 & MUT1_RADIATION)
1540                 {
1541                         fprintf(OutFile, _(" あなたは自分の意思で放射能を発生することができる。\n", " You can emit hard radiation at will.\n"));
1542
1543                 }
1544                 if (p_ptr->muta1 & MUT1_VAMPIRISM)
1545                 {
1546                         fprintf(OutFile, _(" あなたは吸血鬼のように敵から生命力を吸収することができる。\n", " You can drain life from a foe like a vampire.\n"));
1547
1548                 }
1549                 if (p_ptr->muta1 & MUT1_SMELL_MET)
1550                 {
1551                         fprintf(OutFile, _(" あなたは近くにある貴金属をかぎ分けることができる。\n", " You can smell nearby precious metal.\n"));
1552
1553                 }
1554                 if (p_ptr->muta1 & MUT1_SMELL_MON)
1555                 {
1556                         fprintf(OutFile, _(" あなたは近くのモンスターの存在をかぎ分けることができる。\n", " You can smell nearby monsters.\n"));
1557
1558                 }
1559                 if (p_ptr->muta1 & MUT1_BLINK)
1560                 {
1561                         fprintf(OutFile, _(" あなたは短い距離をテレポートできる。\n", " You can teleport yourself short distances.\n"));
1562
1563                 }
1564                 if (p_ptr->muta1 & MUT1_EAT_ROCK)
1565                 {
1566                         fprintf(OutFile, _(" あなたは硬い岩を食べることができる。\n", " You can consume solid rock.\n"));
1567
1568                 }
1569                 if (p_ptr->muta1 & MUT1_SWAP_POS)
1570                 {
1571                         fprintf(OutFile, _(" あなたは他の者と場所を入れ替わることができる。\n", " You can switch locations with another being.\n"));
1572
1573                 }
1574                 if (p_ptr->muta1 & MUT1_SHRIEK)
1575                 {
1576                         fprintf(OutFile, _(" あなたは身の毛もよだつ叫び声を発することができる。\n", " You can emit a horrible shriek.\n"));
1577
1578                 }
1579                 if (p_ptr->muta1 & MUT1_ILLUMINE)
1580                 {
1581                         fprintf(OutFile, _(" あなたは明るい光を放つことができる。\n", " You can emit bright light.\n"));
1582
1583                 }
1584                 if (p_ptr->muta1 & MUT1_DET_CURSE)
1585                 {
1586                         fprintf(OutFile, _(" あなたは邪悪な魔法の危険を感じとることができる。\n", " You can feel the danger of evil magic.\n"));
1587
1588                 }
1589                 if (p_ptr->muta1 & MUT1_BERSERK)
1590                 {
1591                         fprintf(OutFile, _(" あなたは自分の意思で狂乱戦闘状態になることができる。\n", " You can drive yourself into a berserk frenzy.\n"));
1592
1593                 }
1594                 if (p_ptr->muta1 & MUT1_POLYMORPH)
1595                 {
1596                         fprintf(OutFile, _(" あなたは自分の意志で変化できる。\n", " You can polymorph yourself at will.\n"));
1597
1598                 }
1599                 if (p_ptr->muta1 & MUT1_MIDAS_TCH)
1600                 {
1601                         fprintf(OutFile, _(" あなたは通常アイテムを金に変えることができる。\n", " You can turn ordinary items to gold.\n"));
1602
1603                 }
1604                 if (p_ptr->muta1 & MUT1_GROW_MOLD)
1605                 {
1606                         fprintf(OutFile, _(" あなたは周囲にキノコを生やすことができる。\n", " You can cause mold to grow near you.\n"));
1607
1608                 }
1609                 if (p_ptr->muta1 & MUT1_RESIST)
1610                 {
1611                         fprintf(OutFile, _(" あなたは元素の攻撃に対して身を硬くすることができる。\n", " You can harden yourself to the ravages of the elements.\n"));
1612
1613                 }
1614                 if (p_ptr->muta1 & MUT1_EARTHQUAKE)
1615                 {
1616                         fprintf(OutFile, _(" あなたは周囲のダンジョンを崩壊させることができる。\n", " You can bring down the dungeon around your ears.\n"));
1617
1618                 }
1619                 if (p_ptr->muta1 & MUT1_EAT_MAGIC)
1620                 {
1621                         fprintf(OutFile, _(" あなたは魔法のエネルギーを自分の物として使用できる。\n", " You can consume magic energy for your own use.\n"));
1622
1623                 }
1624                 if (p_ptr->muta1 & MUT1_WEIGH_MAG)
1625                 {
1626                         fprintf(OutFile, _(" あなたは自分に影響を与える魔法の力を感じることができる。\n", " You can feel the strength of the magics affecting you.\n"));
1627
1628                 }
1629                 if (p_ptr->muta1 & MUT1_STERILITY)
1630                 {
1631                         fprintf(OutFile, _(" あなたは集団的生殖不能を起こすことができる。\n", " You can cause mass impotence.\n"));
1632
1633                 }
1634                 if (p_ptr->muta1 & MUT1_PANIC_HIT)
1635                 {
1636                         fprintf(OutFile, _(" あなたは攻撃した後身を守るため逃げることができる。\n", " You can run for your life after hitting something.\n"));
1637
1638                 }
1639                 if (p_ptr->muta1 & MUT1_DAZZLE)
1640                 {
1641                         fprintf(OutFile, _(" あなたは混乱と盲目を引き起こす放射能を発生することができる。 \n", " You can emit confusing, blinding radiation.\n"));
1642
1643                 }
1644                 if (p_ptr->muta1 & MUT1_LASER_EYE)
1645                 {
1646                         fprintf(OutFile, _(" あなたは目からレーザー光線を発射することができる。\n", " Your eyes can fire laser beams.\n"));
1647
1648                 }
1649                 if (p_ptr->muta1 & MUT1_RECALL)
1650                 {
1651                         fprintf(OutFile, _(" あなたは街とダンジョンの間を行き来することができる。\n", " You can travel between town and the depths.\n"));
1652
1653                 }
1654                 if (p_ptr->muta1 & MUT1_BANISH)
1655                 {
1656                         fprintf(OutFile, _(" あなたは邪悪なモンスターを地獄に落とすことができる。\n", " You can send evil creatures directly to Hell.\n"));
1657
1658                 }
1659                 if (p_ptr->muta1 & MUT1_COLD_TOUCH)
1660                 {
1661                         fprintf(OutFile, _(" あなたは物を触って凍らせることができる。\n", " You can freeze things with a touch.\n"));
1662
1663                 }
1664                 if (p_ptr->muta1 & MUT1_LAUNCHER)
1665                 {
1666                         fprintf(OutFile, _(" あなたはアイテムを力強く投げることができる。\n", " You can hurl objects with great force.\n"));
1667
1668                 }
1669         }
1670
1671         if (p_ptr->muta2)
1672         {
1673                 if (p_ptr->muta2 & MUT2_BERS_RAGE)
1674                 {
1675                         fprintf(OutFile, _(" あなたは狂戦士化の発作を起こす。\n", " You are subject to berserker fits.\n"));
1676
1677                 }
1678                 if (p_ptr->muta2 & MUT2_COWARDICE)
1679                 {
1680                         fprintf(OutFile, _(" あなたは時々臆病になる。\n", " You are subject to cowardice.\n"));
1681
1682                 }
1683                 if (p_ptr->muta2 & MUT2_RTELEPORT)
1684                 {
1685                         fprintf(OutFile, _(" あなたはランダムにテレポートする。\n", " You are teleporting randomly.\n"));
1686
1687                 }
1688                 if (p_ptr->muta2 & MUT2_ALCOHOL)
1689                 {
1690                         fprintf(OutFile, _(" あなたの体はアルコールを分泌する。\n", " Your body produces alcohol.\n"));
1691
1692                 }
1693                 if (p_ptr->muta2 & MUT2_HALLU)
1694                 {
1695                         fprintf(OutFile, _(" あなたは幻覚を引き起こす精神錯乱に侵されている。\n", " You have a hallucinatory insanity.\n"));
1696
1697                 }
1698                 if (p_ptr->muta2 & MUT2_FLATULENT)
1699                 {
1700                         fprintf(OutFile, _(" あなたは制御できない強烈な屁をこく。\n", " You are subject to uncontrollable flatulence.\n"));
1701
1702                 }
1703                 if (p_ptr->muta2 & MUT2_PROD_MANA)
1704                 {
1705                         fprintf(OutFile, _(" あなたは制御不能な魔法のエネルギーを発している。\n", " You are producing magical energy uncontrollably.\n"));
1706
1707                 }
1708                 if (p_ptr->muta2 & MUT2_ATT_DEMON)
1709                 {
1710                         fprintf(OutFile, _(" あなたはデーモンを引きつける。\n", " You attract demons.\n"));
1711
1712                 }
1713                 if (p_ptr->muta2 & MUT2_SCOR_TAIL)
1714                 {
1715                         fprintf(OutFile, _(" あなたはサソリの尻尾が生えている。(毒、ダメージ 3d7)\n", " You have a scorpion tail (poison, 3d7).\n"));
1716
1717                 }
1718                 if (p_ptr->muta2 & MUT2_HORNS)
1719                 {
1720                         fprintf(OutFile, _(" あなたは角が生えている。(ダメージ 2d6)\n", " You have horns (dam. 2d6).\n"));
1721
1722                 }
1723                 if (p_ptr->muta2 & MUT2_BEAK)
1724                 {
1725                         fprintf(OutFile, _(" あなたはクチバシが生えている。(ダメージ 2d4)\n", " You have a beak (dam. 2d4).\n"));
1726
1727                 }
1728                 if (p_ptr->muta2 & MUT2_SPEED_FLUX)
1729                 {
1730                         fprintf(OutFile, _(" あなたはランダムに早く動いたり遅く動いたりする。\n", " You move faster or slower randomly.\n"));
1731
1732                 }
1733                 if (p_ptr->muta2 & MUT2_BANISH_ALL)
1734                 {
1735                         fprintf(OutFile, _(" あなたは時々近くのモンスターを消滅させる。\n", " You sometimes cause nearby creatures to vanish.\n"));
1736
1737                 }
1738                 if (p_ptr->muta2 & MUT2_EAT_LIGHT)
1739                 {
1740                         fprintf(OutFile, _(" あなたは時々周囲の光を吸収して栄養にする。\n", " You sometimes feed off of the light around you.\n"));
1741
1742                 }
1743                 if (p_ptr->muta2 & MUT2_TRUNK)
1744                 {
1745                         fprintf(OutFile, _(" あなたは象のような鼻を持っている。(ダメージ 1d4)\n", " You have an elephantine trunk (dam 1d4).\n"));
1746
1747                 }
1748                 if (p_ptr->muta2 & MUT2_ATT_ANIMAL)
1749                 {
1750                         fprintf(OutFile, _(" あなたは動物を引きつける。\n", " You attract animals.\n"));
1751
1752                 }
1753                 if (p_ptr->muta2 & MUT2_TENTACLES)
1754                 {
1755                         fprintf(OutFile, _(" あなたは邪悪な触手を持っている。(ダメージ 2d5)\n", " You have evil looking tentacles (dam 2d5).\n"));
1756
1757                 }
1758                 if (p_ptr->muta2 & MUT2_RAW_CHAOS)
1759                 {
1760                         fprintf(OutFile, _(" あなたはしばしば純カオスに包まれる。\n", " You occasionally are surrounded with raw chaos.\n"));
1761
1762                 }
1763                 if (p_ptr->muta2 & MUT2_NORMALITY)
1764                 {
1765                         fprintf(OutFile, _(" あなたは変異していたが、回復してきている。\n", " You may be mutated, but you're recovering.\n"));
1766
1767                 }
1768                 if (p_ptr->muta2 & MUT2_WRAITH)
1769                 {
1770                         fprintf(OutFile, _(" あなたの肉体は幽体化したり実体化したりする。\n", " You fade in and out of physical reality.\n"));
1771
1772                 }
1773                 if (p_ptr->muta2 & MUT2_POLY_WOUND)
1774                 {
1775                         fprintf(OutFile, _(" あなたの健康はカオスの力に影響を受ける。\n", " Your health is subject to chaotic forces.\n"));
1776
1777                 }
1778                 if (p_ptr->muta2 & MUT2_WASTING)
1779                 {
1780                         fprintf(OutFile, _(" あなたは衰弱する恐ろしい病気にかかっている。\n", " You have a horrible wasting disease.\n"));
1781
1782                 }
1783                 if (p_ptr->muta2 & MUT2_ATT_DRAGON)
1784                 {
1785                         fprintf(OutFile, _(" あなたはドラゴンを引きつける。\n", " You attract dragons.\n"));
1786
1787                 }
1788                 if (p_ptr->muta2 & MUT2_WEIRD_MIND)
1789                 {
1790                         fprintf(OutFile, _(" あなたの精神はランダムに拡大したり縮小したりしている。\n", " Your mind randomly expands and contracts.\n"));
1791
1792                 }
1793                 if (p_ptr->muta2 & MUT2_NAUSEA)
1794                 {
1795                         fprintf(OutFile, _(" あなたの胃は非常に落ち着きがない。\n", " You have a seriously upset stomach.\n"));
1796
1797                 }
1798                 if (p_ptr->muta2 & MUT2_CHAOS_GIFT)
1799                 {
1800                         fprintf(OutFile, _(" あなたはカオスの守護悪魔から褒美をうけとる。\n", " Chaos deities give you gifts.\n"));
1801
1802                 }
1803                 if (p_ptr->muta2 & MUT2_WALK_SHAD)
1804                 {
1805                         fprintf(OutFile, _(" あなたはしばしば他の「影」に迷い込む。\n", " You occasionally stumble into other shadows.\n"));
1806
1807                 }
1808                 if (p_ptr->muta2 & MUT2_WARNING)
1809                 {
1810                         fprintf(OutFile, _(" あなたは敵に関する警告を感じる。\n", " You receive warnings about your foes.\n"));
1811
1812                 }
1813                 if (p_ptr->muta2 & MUT2_INVULN)
1814                 {
1815                         fprintf(OutFile, _(" あなたは時々負け知らずな気分になる。\n", " You occasionally feel invincible.\n"));
1816
1817                 }
1818                 if (p_ptr->muta2 & MUT2_SP_TO_HP)
1819                 {
1820                         fprintf(OutFile, _(" あなたは時々血が筋肉にどっと流れる。\n", " Your blood sometimes rushes to your muscles.\n"));
1821
1822                 }
1823                 if (p_ptr->muta2 & MUT2_HP_TO_SP)
1824                 {
1825                         fprintf(OutFile, _(" あなたは時々頭に血がどっと流れる。\n", " Your blood sometimes rushes to your head.\n"));
1826
1827                 }
1828                 if (p_ptr->muta2 & MUT2_DISARM)
1829                 {
1830                         fprintf(OutFile, _(" あなたはよくつまづいて物を落とす。\n", " You occasionally stumble and drop things.\n"));
1831
1832                 }
1833         }
1834
1835         if (p_ptr->muta3)
1836         {
1837                 if (p_ptr->muta3 & MUT3_HYPER_STR)
1838                 {
1839                         fprintf(OutFile, _(" あなたは超人的に強い。(腕力+4)\n", " You are superhumanly strong (+4 STR).\n"));
1840
1841                 }
1842                 if (p_ptr->muta3 & MUT3_PUNY)
1843                 {
1844                         fprintf(OutFile, _(" あなたは虚弱だ。(腕力-4)\n", " You are puny (-4 STR).\n"));
1845
1846                 }
1847                 if (p_ptr->muta3 & MUT3_HYPER_INT)
1848                 {
1849                         fprintf(OutFile, _(" あなたの脳は生体コンピュータだ。(知能＆賢さ+4)\n", " Your brain is a living computer (+4 INT/WIS).\n"));
1850
1851                 }
1852                 if (p_ptr->muta3 & MUT3_MORONIC)
1853                 {
1854                         fprintf(OutFile, _(" あなたは精神薄弱だ。(知能＆賢さ-4)\n", " You are moronic (-4 INT/WIS).\n"));
1855
1856                 }
1857                 if (p_ptr->muta3 & MUT3_RESILIENT)
1858                 {
1859                         fprintf(OutFile, _(" あなたの体は弾力性に富んでいる。(耐久+4)\n", " You are very resilient (+4 CON).\n"));
1860
1861                 }
1862                 if (p_ptr->muta3 & MUT3_XTRA_FAT)
1863                 {
1864                         fprintf(OutFile, _(" あなたは極端に太っている。(耐久+2,スピード-2)\n", " You are extremely fat (+2 CON, -2 speed).\n"));
1865
1866                 }
1867                 if (p_ptr->muta3 & MUT3_ALBINO)
1868                 {
1869                         fprintf(OutFile, _(" あなたはアルビノだ。(耐久-4)\n", " You are albino (-4 CON).\n"));
1870
1871                 }
1872                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
1873                 {
1874                         fprintf(OutFile, _(" あなたの肉体は腐敗している。(耐久-2,魅力-1)\n", " Your flesh is rotting (-2 CON, -1 CHR).\n"));
1875
1876                 }
1877                 if (p_ptr->muta3 & MUT3_SILLY_VOI)
1878                 {
1879                         fprintf(OutFile, _(" あなたの声は間抜けなキーキー声だ。(魅力-4)\n", " Your voice is a silly squeak (-4 CHR).\n"));
1880
1881                 }
1882                 if (p_ptr->muta3 & MUT3_BLANK_FAC)
1883                 {
1884                         fprintf(OutFile, _(" あなたはのっぺらぼうだ。(魅力-1)\n", " Your face is featureless (-1 CHR).\n"));
1885
1886                 }
1887                 if (p_ptr->muta3 & MUT3_ILL_NORM)
1888                 {
1889                         fprintf(OutFile, _(" あなたは幻影に覆われている。\n", " Your appearance is masked with illusion.\n"));
1890
1891                 }
1892                 if (p_ptr->muta3 & MUT3_XTRA_EYES)
1893                 {
1894                         fprintf(OutFile, _(" あなたは余分に二つの目を持っている。(探索+15)\n", " You have an extra pair of eyes (+15 search).\n"));
1895
1896                 }
1897                 if (p_ptr->muta3 & MUT3_MAGIC_RES)
1898                 {
1899                         fprintf(OutFile, _(" あなたは魔法への耐性をもっている。\n", " You are resistant to magic.\n"));
1900
1901                 }
1902                 if (p_ptr->muta3 & MUT3_XTRA_NOIS)
1903                 {
1904                         fprintf(OutFile, _(" あなたは変な音を発している。(隠密-3)\n", " You make a lot of strange noise (-3 stealth).\n"));
1905
1906                 }
1907                 if (p_ptr->muta3 & MUT3_INFRAVIS)
1908                 {
1909                         fprintf(OutFile, _(" あなたは素晴らしい赤外線視力を持っている。(+3)\n", " You have remarkable infravision (+3).\n"));
1910
1911                 }
1912                 if (p_ptr->muta3 & MUT3_XTRA_LEGS)
1913                 {
1914                         fprintf(OutFile, _(" あなたは余分に二本の足が生えている。(加速+3)\n", " You have an extra pair of legs (+3 speed).\n"));
1915
1916                 }
1917                 if (p_ptr->muta3 & MUT3_SHORT_LEG)
1918                 {
1919                         fprintf(OutFile, _(" あなたの足は短い突起だ。(加速-3)\n", " Your legs are short stubs (-3 speed).\n"));
1920
1921                 }
1922                 if (p_ptr->muta3 & MUT3_ELEC_TOUC)
1923                 {
1924                         fprintf(OutFile, _(" あなたの血管には電流が流れている。\n", " Electricity is running through your veins.\n"));
1925
1926                 }
1927                 if (p_ptr->muta3 & MUT3_FIRE_BODY)
1928                 {
1929                         fprintf(OutFile, _(" あなたの体は炎につつまれている。\n", " Your body is enveloped in flames.\n"));
1930
1931                 }
1932                 if (p_ptr->muta3 & MUT3_WART_SKIN)
1933                 {
1934                         fprintf(OutFile, _(" あなたの肌はイボに被われている。(魅力-2, AC+5)\n", " Your skin is covered with warts (-2 CHR, +5 AC).\n"));
1935
1936                 }
1937                 if (p_ptr->muta3 & MUT3_SCALES)
1938                 {
1939                         fprintf(OutFile, _(" あなたの肌は鱗になっている。(魅力-1, AC+10)\n", " Your skin has turned into scales (-1 CHR, +10 AC).\n"));
1940
1941                 }
1942                 if (p_ptr->muta3 & MUT3_IRON_SKIN)
1943                 {
1944                         fprintf(OutFile, _(" あなたの肌は鉄でできている。(器用-1, AC+25)\n", " Your skin is made of steel (-1 DEX, +25 AC).\n"));
1945
1946                 }
1947                 if (p_ptr->muta3 & MUT3_WINGS)
1948                 {
1949                         fprintf(OutFile, _(" あなたは羽を持っている。\n", " You have wings.\n"));
1950
1951                 }
1952                 if (p_ptr->muta3 & MUT3_FEARLESS)
1953                 {
1954                         fprintf(OutFile, _(" あなたは全く恐怖を感じない。\n", " You are completely fearless.\n"));
1955
1956                 }
1957                 if (p_ptr->muta3 & MUT3_REGEN)
1958                 {
1959                         fprintf(OutFile, _(" あなたは急速に回復する。\n", " You are regenerating.\n"));
1960
1961                 }
1962                 if (p_ptr->muta3 & MUT3_ESP)
1963                 {
1964                         fprintf(OutFile, _(" あなたはテレパシーを持っている。\n", " You are telepathic.\n"));
1965
1966                 }
1967                 if (p_ptr->muta3 & MUT3_LIMBER)
1968                 {
1969                         fprintf(OutFile, _(" あなたの体は非常にしなやかだ。(器用+3)\n", " Your body is very limber (+3 DEX).\n"));
1970
1971                 }
1972                 if (p_ptr->muta3 & MUT3_ARTHRITIS)
1973                 {
1974                         fprintf(OutFile, _(" あなたはいつも関節に痛みを感じている。(器用-3)\n", " Your joints ache constantly (-3 DEX).\n"));
1975
1976                 }
1977                 if (p_ptr->muta3 & MUT3_VULN_ELEM)
1978                 {
1979                         fprintf(OutFile, _(" あなたは元素の攻撃に弱い。\n", " You are susceptible to damage from the elements.\n"));
1980
1981                 }
1982                 if (p_ptr->muta3 & MUT3_MOTION)
1983                 {
1984                         fprintf(OutFile, _(" あなたの動作は正確で力強い。(隠密+1)\n", " Your movements are precise and forceful (+1 STL).\n"));
1985
1986                 }
1987                 if (p_ptr->muta3 & MUT3_GOOD_LUCK)
1988                 {
1989                         fprintf(OutFile, _(" あなたは白いオーラにつつまれている。\n", " There is a white aura surrounding you.\n"));
1990
1991                 }
1992                 if (p_ptr->muta3 & MUT3_BAD_LUCK)
1993                 {
1994                         fprintf(OutFile, _(" あなたは黒いオーラにつつまれている。\n", " There is a black aura surrounding you.\n"));
1995
1996                 }
1997         }
1998 }
1999
2000 /*!
2001  * @brief 突然変異表示コマンドの実装 / List mutations we have...
2002  * @return なし
2003  */
2004 void do_cmd_knowledge_mutations(void)
2005 {
2006         FILE *fff;
2007         GAME_TEXT file_name[1024];
2008
2009         /* Open a new file */
2010         fff = my_fopen_temp(file_name, 1024);
2011
2012         /* Dump the mutations to file */
2013         if (fff) dump_mutations(fff);
2014         my_fclose(fff);
2015
2016         /* Display the file contents */
2017         show_file(TRUE, file_name, _("突然変異", "Mutations"), 0, 0);
2018
2019         /* Remove the file */
2020         fd_kill(file_name);
2021 }
2022
2023
2024 /*!
2025  * @brief 現在プレイヤー得ている突然変異の数を返す。
2026  * @return 現在得ている突然変異の数
2027  */
2028 static int count_mutations(void)
2029 {
2030         return (count_bits(p_ptr->muta1) +
2031                 count_bits(p_ptr->muta2) +
2032                 count_bits(p_ptr->muta3));
2033 }
2034
2035
2036 /*!
2037  * @brief 突然変異による自然回復ペナルティをパーセント値で返す /
2038  * Return the modifier to the regeneration rate (in percent)
2039  * @return ペナルティ修正(%)
2040  */
2041 int calc_mutant_regenerate_mod(void)
2042 {
2043         int regen;
2044         int mod = 10;
2045         int count = count_mutations();
2046
2047         /*
2048          * Beastman get 10 "free" mutations and
2049          * only 5% decrease per additional mutation
2050          */
2051
2052         if (p_ptr->pseikaku == SEIKAKU_LUCKY) count--;
2053         if (p_ptr->prace == RACE_BEASTMAN)
2054         {
2055                 count -= 10;
2056                 mod = 5;
2057         }
2058
2059         /* No negative modifier */
2060         if (count <= 0) return 100;
2061
2062         regen = 100 - count * mod;
2063
2064         /* Max. 90% decrease in regeneration speed */
2065         if (regen < 10) regen = 10;
2066
2067         return (regen);
2068 }
2069
2070
2071 /*!
2072  * @brief 突然変異のレイシャル効果実装
2073  * @param power 発動させる突然変異レイシャルのID
2074  * @return レイシャルを実行した場合TRUE、キャンセルした場合FALSEを返す
2075  */
2076 bool mutation_power_aux(int power)
2077 {
2078         DIRECTION dir = 0;
2079         PLAYER_LEVEL lvl = p_ptr->lev;
2080
2081         switch (power)
2082         {
2083                 case MUT1_SPIT_ACID:
2084                         if (!get_aim_dir(&dir)) return FALSE;
2085                         stop_mouth();
2086                         msg_print(_("酸を吐きかけた...", "You spit acid..."));
2087                         fire_ball(GF_ACID, dir, lvl, 1 + (lvl / 30));
2088                         break;
2089
2090                 case MUT1_BR_FIRE:
2091                         if (!get_aim_dir(&dir)) return FALSE;
2092                         stop_mouth();
2093                         msg_print(_("あなたは火炎のブレスを吐いた...", "You breathe fire..."));
2094                         fire_breath(GF_FIRE, dir, lvl * 2, 1 + (lvl / 20));
2095                         break;
2096
2097                 case MUT1_HYPN_GAZE:
2098                         if (!get_aim_dir(&dir)) return FALSE;
2099                         msg_print(_("あなたの目は幻惑的になった...", "Your eyes look mesmerizing..."));
2100                         (void)charm_monster(dir, lvl);
2101                         break;
2102
2103                 case MUT1_TELEKINES:
2104                         if (!get_aim_dir(&dir)) return FALSE;
2105                         msg_print(_("集中している...", "You concentrate..."));
2106                         fetch(dir, lvl * 10, TRUE);
2107                         break;
2108
2109                 case MUT1_VTELEPORT:
2110                         msg_print(_("集中している...", "You concentrate..."));
2111                         teleport_player(10 + 4 * lvl, 0L);
2112                         break;
2113
2114                 case MUT1_MIND_BLST:
2115                         if (!get_aim_dir(&dir)) return FALSE;
2116                         msg_print(_("集中している...", "You concentrate..."));
2117                         fire_bolt(GF_PSI, dir, damroll(3 + ((lvl - 1) / 5), 3));
2118                         break;
2119
2120                 case MUT1_RADIATION:
2121                         msg_print(_("体から放射能が発生した！", "Radiation flows from your body!"));
2122                         fire_ball(GF_NUKE, 0, (lvl * 2), 3 + (lvl / 20));
2123                         break;
2124
2125                 case MUT1_VAMPIRISM:
2126                         vampirism();
2127                         break;
2128
2129                 case MUT1_SMELL_MET:
2130                         stop_mouth();
2131                         (void)detect_treasure(DETECT_RAD_DEFAULT);
2132                         break;
2133
2134                 case MUT1_SMELL_MON:
2135                         stop_mouth();
2136                         (void)detect_monsters_normal(DETECT_RAD_DEFAULT);
2137                         break;
2138
2139                 case MUT1_BLINK:
2140                         teleport_player(10, 0L);
2141                         break;
2142
2143                 case MUT1_EAT_ROCK:
2144                         return eat_lock();
2145                         break;
2146
2147                 case MUT1_SWAP_POS:
2148                         project_length = -1;
2149                         if (!get_aim_dir(&dir))
2150                         {
2151                                 project_length = 0;
2152                                 return FALSE;
2153                         }
2154                         (void)teleport_swap(dir);
2155                         project_length = 0;
2156                         break;
2157
2158                 case MUT1_SHRIEK:
2159                         stop_mouth();
2160                         (void)fire_ball(GF_SOUND, 0, 2 * lvl, 8);
2161                         (void)aggravate_monsters(0);
2162                         break;
2163
2164                 case MUT1_ILLUMINE:
2165                         (void)lite_area(damroll(2, (lvl / 2)), (lvl / 10) + 1);
2166                         break;
2167
2168                 case MUT1_DET_CURSE:
2169                         {
2170                                 int i;
2171
2172                                 for (i = 0; i < INVEN_TOTAL; i++)
2173                                 {
2174                                         object_type *o_ptr = &inventory[i];
2175
2176                                         if (!o_ptr->k_idx) continue;
2177                                         if (!object_is_cursed(o_ptr)) continue;
2178
2179                                         o_ptr->feeling = FEEL_CURSED;
2180                                 }
2181                         }
2182                         break;
2183
2184                 case MUT1_BERSERK:
2185                         (void)berserk(randint1(25) + 25);
2186                         break;
2187
2188                 case MUT1_POLYMORPH:
2189                         if (!get_check(_("変身します。よろしいですか？", "You will polymorph your self. Are you sure? "))) return FALSE;
2190                         do_poly_self();
2191                         break;
2192
2193                 case MUT1_MIDAS_TCH:
2194                         if (!alchemy()) return FALSE;
2195                         break;
2196
2197                 /* Summon pet molds around the player */
2198                 case MUT1_GROW_MOLD:
2199                         {
2200                                 DIRECTION i;
2201                                 for (i = 0; i < 8; i++)
2202                                 {
2203                                         summon_specific(-1, p_ptr->y, p_ptr->x, lvl, SUMMON_MOLD, PM_FORCE_PET, '\0');
2204                                 }
2205                         }
2206                         break;
2207
2208                 case MUT1_RESIST:
2209                         {
2210                                 int num = lvl / 10;
2211                                 TIME_EFFECT dur = randint1(20) + 20;
2212
2213                                 if (randint0(5) < num)
2214                                 {
2215                                         (void)set_oppose_acid(dur, FALSE);
2216                                         num--;
2217                                 }
2218                                 if (randint0(4) < num)
2219                                 {
2220                                         (void)set_oppose_elec(dur, FALSE);
2221                                         num--;
2222                                 }
2223                                 if (randint0(3) < num)
2224                                 {
2225                                         (void)set_oppose_fire(dur, FALSE);
2226                                         num--;
2227                                 }
2228                                 if (randint0(2) < num)
2229                                 {
2230                                         (void)set_oppose_cold(dur, FALSE);
2231                                         num--;
2232                                 }
2233                                 if (num)
2234                                 {
2235                                         (void)set_oppose_pois(dur, FALSE);
2236                                         num--;
2237                                 }
2238                         }
2239                         break;
2240
2241                 case MUT1_EARTHQUAKE:
2242                         (void)earthquake(p_ptr->y, p_ptr->x, 10);
2243                         break;
2244
2245                 case MUT1_EAT_MAGIC:
2246                         if (!eat_magic(p_ptr->lev * 2)) return FALSE;
2247                         break;
2248
2249                 case MUT1_WEIGH_MAG:
2250                         report_magics();
2251                         break;
2252
2253                 case MUT1_STERILITY:
2254                         msg_print(_("突然頭が痛くなった！", "You suddenly have a headache!"));
2255                         take_hit(DAMAGE_LOSELIFE, randint1(17) + 17, _("禁欲を強いた疲労", "the strain of forcing abstinence"), -1);
2256                         num_repro += MAX_REPRO;
2257                         break;
2258
2259                 case MUT1_PANIC_HIT:
2260                         if(!panic_hit()) return FALSE;
2261                         break;
2262
2263                 case MUT1_DAZZLE:
2264                         stun_monsters(lvl * 4);
2265                         confuse_monsters(lvl * 4);
2266                         turn_monsters(lvl * 4);
2267                         break;
2268
2269                 case MUT1_LASER_EYE:
2270                         if (!get_aim_dir(&dir)) return FALSE;
2271                         fire_beam(GF_LITE, dir, 2 * lvl);
2272                         break;
2273
2274                 case MUT1_RECALL:
2275                         if (!recall_player(p_ptr, randint0(21) + 15)) return FALSE;
2276                         break;
2277
2278                 case MUT1_BANISH:
2279                         {
2280                                 POSITION x, y;
2281                                 cave_type *c_ptr;
2282                                 monster_type *m_ptr;
2283                                 monster_race *r_ptr;
2284                                 if (!get_direction(&dir, FALSE, FALSE)) return FALSE;
2285                                 y = p_ptr->y + ddy[dir];
2286                                 x = p_ptr->x + ddx[dir];
2287                                 c_ptr = &cave[y][x];
2288
2289                                 if (!c_ptr->m_idx)
2290                                 {
2291                                         msg_print(_("邪悪な存在を感じとれません！", "You sense no evil there!"));
2292
2293                                         break;
2294                                 }
2295
2296                                 m_ptr = &m_list[c_ptr->m_idx];
2297                                 r_ptr = &r_info[m_ptr->r_idx];
2298
2299                                 if ((r_ptr->flags3 & RF3_EVIL) &&
2300                                     !(r_ptr->flags1 & RF1_QUESTOR) &&
2301                                     !(r_ptr->flags1 & RF1_UNIQUE) &&
2302                                     !p_ptr->inside_arena && !p_ptr->inside_quest &&
2303                                         (r_ptr->level < randint1(p_ptr->lev+50)) &&
2304                                         !(m_ptr->mflag2 & MFLAG2_NOGENO))
2305                                 {
2306                                         if (record_named_pet && is_pet(m_ptr) && m_ptr->nickname)
2307                                         {
2308                                                 GAME_TEXT m_name[MAX_NLEN];
2309                                                 monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
2310                                                 do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_GENOCIDE, m_name);
2311                                         }
2312                                         /* Delete the monster, rather than killing it. */
2313                                         delete_monster_idx(c_ptr->m_idx);
2314                                         msg_print(_("その邪悪なモンスターは硫黄臭い煙とともに消え去った！", "The evil creature vanishes in a puff of sulfurous smoke!"));
2315
2316                                 }
2317                                 else
2318                                 {
2319                                         msg_print(_("祈りは効果がなかった！", "Your invocation is ineffectual!"));
2320                                         if (one_in_(13)) m_ptr->mflag2 |= MFLAG2_NOGENO;
2321                                 }
2322                         }
2323                         break;
2324
2325                 case MUT1_COLD_TOUCH:
2326                         {
2327                                 POSITION x, y;
2328                                 cave_type *c_ptr;
2329                                 if (!get_direction(&dir, FALSE, FALSE)) return FALSE;
2330                                 y = p_ptr->y + ddy[dir];
2331                                 x = p_ptr->x + ddx[dir];
2332                                 c_ptr = &cave[y][x];
2333                                 if (!c_ptr->m_idx)
2334                                 {
2335                                         msg_print(_("あなたは何もない場所で手を振った。", "You wave your hands in the air."));
2336
2337                                         break;
2338                                 }
2339                                 fire_bolt(GF_COLD, dir, 2 * lvl);
2340                         }
2341                         break;
2342
2343                 /* XXX_XXX_XXX Hack! MUT1_LAUNCHER is negative, see above */
2344                 case 3: /* MUT1_LAUNCHER */
2345                         /* Gives a multiplier of 2 at first, up to 3 at 40th */
2346                         if (!do_cmd_throw(2 + lvl / 40, FALSE, -1)) return FALSE;
2347                         break;
2348
2349                 default:
2350                         p_ptr->energy_use = 0;
2351                         msg_format(_("能力 %s は実装されていません。", "Power %s not implemented. Oops."), power);
2352         }
2353
2354         return TRUE;
2355 }