src/cmd-action/cmd-mane.cpp

   1 /*!
   2  * @brief ものまねの処理実装 / Imitation code
   3  * @date 2014/01/14
   4  * @author
   5  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
   6  * This software may be copied and distributed for educational, research,\n
   7  * and not for profit purposes provided that this copyright and statement\n
   8  * are included in all such copies.  Other copyrights may also apply.\n
   9  * 2014 Deskull rearranged comment for Doxygen.\n
  10  */
  11
  12 #include "cmd-action/cmd-mane.h"
  13 #include "action/action-limited.h"
  14 #include "artifact/fixed-art-types.h"
  15 #include "cmd-action/cmd-spell.h"
  16 #include "core/asking-player.h"
  17 #include "core/player-redraw-types.h"
  18 #include "core/stuff-handler.h"
  19 #include "core/window-redrawer.h"
  20 #include "floor/cave.h"
  21 #include "floor/floor-object.h"
  22 #include "game-option/disturbance-options.h"
  23 #include "game-option/text-display-options.h"
  24 #include "hpmp/hp-mp-processor.h"
  25 #include "inventory/inventory-slot-types.h"
  26 #include "main/sound-definitions-table.h"
  27 #include "main/sound-of-music.h"
  28 #include "mind/mind-mage.h"
  29 #include "monster-floor/monster-summon.h"
  30 #include "monster-floor/place-monster-types.h"
  31 #include "monster-race/monster-race.h"
  32 #include "monster-race/race-ability-flags.h"
  33 #include "monster-race/race-flags-resistance.h"
  34 #include "monster-race/race-flags1.h"
  35 #include "monster/monster-describer.h"
  36 #include "monster/monster-info.h"
  37 #include "monster/monster-processor.h"
  38 #include "monster/monster-status.h"
  39 #include "mspell/monster-power-table.h"
  40 #include "player-base/player-class.h"
  41 #include "player-info/mane-data-type.h"
  42 #include "player-status/player-energy.h"
  43 #include "player/player-status-table.h"
  44 #include "spell-kind/spells-launcher.h"
  45 #include "spell-kind/spells-lite.h"
  46 #include "spell-kind/spells-neighbor.h"
  47 #include "spell-kind/spells-sight.h"
  48 #include "spell-kind/spells-teleport.h"
  49 #include "spell-kind/spells-world.h"
  50 #include "spell/spells-status.h"
  51 #include "spell/spells-summon.h"
  52 #include "spell/summon-types.h"
  53 #include "status/bad-status-setter.h"
  54 #include "status/body-improvement.h"
  55 #include "status/buff-setter.h"
  56 #include "system/floor-type-definition.h"
  57 #include "system/grid-type-definition.h"
  58 #include "system/monster-race-definition.h"
  59 #include "system/monster-type-definition.h"
  60 #include "system/object-type-definition.h"
  61 #include "system/player-type-definition.h"
  62 #include "target/projection-path-calculator.h"
  63 #include "target/target-checker.h"
  64 #include "target/target-getter.h"
  65 #include "target/target-setter.h"
  66 #include "target/target-types.h"
  67 #include "term/screen-processor.h"
  68 #include "timed-effect/player-stun.h"
  69 #include "timed-effect/timed-effects.h"
  70 #include "util/enum-converter.h"
  71 #include "util/int-char-converter.h"
  72 #include "view/display-messages.h"
  73
  74 #include <iterator>
  75
  76 static int damage;
  77
  78 /*!
  79  * @brief 受け取ったパラメータに応じてものまねの効果情報をまとめたフォーマットを返す
  80  * @param p 情報を返す文字列参照ポインタ
  81  * @param power ものまねの効力の種類
  82  * @param dam ものまねの威力
  83  */
  84 static void mane_info(PlayerType *player_ptr, char *p, MonsterAbilityType power, int dam)
  85 {
  86     PLAYER_LEVEL plev = player_ptr->lev;
  87
  88     strcpy(p, "");
  89
  90     const auto power_int = enum2i(power);
  91
  92     if ((power_int > 2 && power_int < 41) || (power_int > 41 && power_int < 59) || (power == MonsterAbilityType::PSY_SPEAR) || (power == MonsterAbilityType::BO_VOID) || (power == MonsterAbilityType::BO_ABYSS) || (power == MonsterAbilityType::BA_VOID) || (power == MonsterAbilityType::BA_ABYSS) || (power == MonsterAbilityType::BR_VOID) || (power == MonsterAbilityType::BR_ABYSS)) {
  93         sprintf(p, " %s%d", KWD_DAM, (int)dam);
  94     } else {
  95         switch (power) {
  96         case MonsterAbilityType::DRAIN_MANA:
  97             sprintf(p, " %sd%d+%d", KWD_HEAL, plev * 3, plev);
  98             break;
  99         case MonsterAbilityType::HASTE:
 100             sprintf(p, " %sd%d+%d", KWD_DURATION, 20 + plev, plev);
 101             break;
 102         case MonsterAbilityType::HEAL:
 103             sprintf(p, " %s%d", KWD_HEAL, plev * 6);
 104             break;
 105         case MonsterAbilityType::INVULNER:
 106             sprintf(p, " %sd7+7", KWD_DURATION);
 107             break;
 108         case MonsterAbilityType::BLINK:
 109             sprintf(p, " %s10", KWD_SPHERE);
 110             break;
 111         case MonsterAbilityType::TPORT:
 112             sprintf(p, " %s%d", KWD_SPHERE, plev * 5);
 113             break;
 114         case MonsterAbilityType::RAISE_DEAD:
 115             sprintf(p, " %s5", KWD_SPHERE);
 116             break;
 117         default:
 118             break;
 119         }
 120     }
 121 }
 122
 123 /*!
 124  * @brief どのものまねを発動するか選択する処理 /
 125  * Allow user to choose a imitation.
 126  * @param sn 実行したものまねのIDを返す参照ポインタ（キャンセルなどの場合-1を返す）
 127  * @param baigaesi TRUEならば倍返し上の処理として行う
 128  * @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
 129  * @details
 130  * If a valid spell is chosen, saves it in '*sn' and returns TRUE
 131  * If the user hits escape, returns FALSE, and set '*sn' to -1
 132  * If there are no legal choices, returns FALSE, and sets '*sn' to -2
 133  *
 134  * The "prompt" should be "cast", "recite", or "study"
 135  * The "known" should be TRUE for cast/pray, FALSE for study
 136  *
 137  * nb: This function has a (trivial) display bug which will be obvious
 138  * when you run it. It's probably easy to fix but I haven't tried,
 139  * sorry.
 140  */
 141 static int get_mane_power(PlayerType *player_ptr, int *sn, bool baigaesi)
 142 {
 143     int i = 0;
 144     int num = 0;
 145     TERM_LEN y = 1;
 146     TERM_LEN x = 18;
 147     PERCENTAGE minfail = 0;
 148     PLAYER_LEVEL plev = player_ptr->lev;
 149     PERCENTAGE chance = 0;
 150     int ask;
 151     char choice;
 152     char out_val[MAX_MONSTER_NAME];
 153     char comment[80];
 154     concptr p = _("能力", "power");
 155
 156     monster_power spell;
 157     bool flag, redraw;
 158
 159     /* Assume cancelled */
 160     *sn = (-1);
 161
 162     flag = false;
 163     redraw = false;
 164
 165     auto mane_data = PlayerClass(player_ptr).get_specific_data<mane_data_type>();
 166
 167     num = mane_data->mane_list.size();
 168
 169     /* Build a prompt (accept all spells) */
 170     (void)strnfmt(out_val, 78, _("(%c-%c, '*'で一覧, ESC) どの%sをまねますか？", "(%c-%c, *=List, ESC=exit) Use which %s? "), I2A(0), I2A(num - 1), p);
 171
 172     choice = always_show_list ? ESCAPE : 1;
 173     while (!flag) {
 174         if (choice == ESCAPE) {
 175             choice = ' ';
 176         } else if (!get_com(out_val, &choice, true)) {
 177             break;
 178         }
 179
 180         /* Request redraw */
 181         if ((choice == ' ') || (choice == '*') || (choice == '?')) {
 182             /* Show the list */
 183             if (!redraw) {
 184                 char psi_desc[160];
 185                 redraw = true;
 186                 screen_save();
 187
 188                 /* Display a list of spells */
 189                 prt("", y, x);
 190                 put_str(_("名前", "Name"), y, x + 5);
 191                 put_str(_("失率 効果", "Fail Info"), y, x + 36);
 192
 193                 /* Dump the spells */
 194                 for (i = 0; i < num; i++) {
 195                     const auto &mane = mane_data->mane_list[i];
 196                     /* Access the spell */
 197                     spell = monster_powers.at(mane.spell);
 198
 199                     chance = spell.manefail;
 200
 201                     /* Reduce failure rate by "effective" level adjustment */
 202                     if (plev > spell.level) {
 203                         chance -= 3 * (plev - spell.level);
 204                     }
 205
 206                     /* Reduce failure rate by INT/WIS adjustment */
 207                     chance -= 3 * (adj_mag_stat[player_ptr->stat_index[spell.use_stat]] + adj_mag_stat[player_ptr->stat_index[A_DEX]] - 2) / 2;
 208
 209                     if (spell.manedam) {
 210                         chance = chance * (baigaesi ? mane.damage * 2 : mane.damage) / spell.manedam;
 211                     }
 212
 213                     chance += player_ptr->to_m_chance;
 214
 215                     if (player_ptr->inventory_list[INVEN_NECK].name1 == ART_GOGO_PENDANT) {
 216                         chance -= 10;
 217                     }
 218
 219                     /* Extract the minimum failure rate */
 220                     minfail = adj_mag_fail[player_ptr->stat_index[spell.use_stat]];
 221
 222                     /* Minimum failure rate */
 223                     if (chance < minfail)
 224                         chance = minfail;
 225
 226                     auto player_stun = player_ptr->effects()->stun();
 227                     chance += player_stun->get_magic_chance_penalty();
 228                     if (chance > 95) {
 229                         chance = 95;
 230                     }
 231
 232                     /* Get info */
 233                     mane_info(player_ptr, comment, mane.spell, (baigaesi ? mane.damage * 2 : mane.damage));
 234
 235                     /* Dump the spell --(-- */
 236                     sprintf(psi_desc, "  %c) %-30s %3d%%%s", I2A(i), spell.name, chance, comment);
 237                     prt(psi_desc, y + i + 1, x);
 238                 }
 239
 240                 /* Clear the bottom line */
 241                 prt("", y + i + 1, x);
 242             }
 243
 244             /* Hide the list */
 245             else {
 246                 /* Hide list */
 247                 redraw = false;
 248                 screen_load();
 249             }
 250
 251             /* Redo asking */
 252             continue;
 253         }
 254
 255         /* Note verify */
 256         ask = isupper(choice);
 257
 258         /* Lowercase */
 259         if (ask) {
 260             choice = (char)tolower(choice);
 261         }
 262
 263         /* Extract request */
 264         i = (islower(choice) ? A2I(choice) : -1);
 265
 266         /* Totally Illegal */
 267         if ((i < 0) || (i >= num)) {
 268             bell();
 269             continue;
 270         }
 271
 272         /* Save the spell index */
 273         spell = monster_powers.at(mane_data->mane_list[i].spell);
 274
 275         /* Verify it */
 276         if (ask) {
 277             char tmp_val[160];
 278
 279             /* Prompt */
 280             (void)strnfmt(tmp_val, 78, _("%sをまねますか？", "Use %s? "), spell.name);
 281
 282             /* Belay that order */
 283             if (!get_check(tmp_val)) {
 284                 continue;
 285             }
 286         }
 287
 288         /* Stop the loop */
 289         flag = true;
 290     }
 291     if (redraw) {
 292         screen_load();
 293     }
 294
 295     player_ptr->window_flags |= (PW_SPELL);
 296     handle_stuff(player_ptr);
 297
 298     /* Abort if needed */
 299     if (!flag) {
 300         return false;
 301     }
 302
 303     /* Save the choice */
 304     (*sn) = i;
 305
 306     damage = (baigaesi ? mane_data->mane_list[i].damage * 2 : mane_data->mane_list[i].damage);
 307
 308     /* Success */
 309     return true;
 310 }
 311
 312 /*!
 313  * @brief ものまね処理の発動 /
 314  * do_cmd_cast calls this function if the player's class is 'imitator'.
 315  * @param player_ptr プレイヤーへの参照ポインタ
 316  * @param spell 発動するモンスター攻撃のID
 317  * @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
 318  */
 319 static bool use_mane(PlayerType *player_ptr, MonsterAbilityType spell)
 320 {
 321     DIRECTION dir;
 322     PLAYER_LEVEL plev = player_ptr->lev;
 323     BIT_FLAGS mode = (PM_ALLOW_GROUP | PM_FORCE_PET);
 324     BIT_FLAGS u_mode = 0L;
 325
 326     if (randint1(50 + plev) < plev / 10) {
 327         u_mode = PM_ALLOW_UNIQUE;
 328     }
 329
 330     /* spell code */
 331     switch (spell) {
 332     case MonsterAbilityType::SHRIEK:
 333         msg_print(_("かん高い金切り声をあげた。", "You make a high pitched shriek."));
 334         aggravate_monsters(player_ptr, 0);
 335         break;
 336
 337     case MonsterAbilityType::XXX1:
 338         break;
 339
 340     case MonsterAbilityType::DISPEL: {
 341         MONSTER_IDX m_idx;
 342
 343         if (!target_set(player_ptr, TARGET_KILL)) {
 344             return false;
 345         }
 346         m_idx = player_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx;
 347         if (!m_idx) {
 348             break;
 349         }
 350         if (!player_has_los_bold(player_ptr, target_row, target_col)) {
 351             break;
 352         }
 353         if (!projectable(player_ptr, player_ptr->y, player_ptr->x, target_row, target_col)) {
 354             break;
 355         }
 356         dispel_monster_status(player_ptr, m_idx);
 357         break;
 358     }
 359
 360     case MonsterAbilityType::ROCKET:
 361         if (!get_aim_dir(player_ptr, &dir)) {
 362             return false;
 363         } else {
 364             msg_print(_("ロケットを発射した。", "You fire a rocket."));
 365         }
 366         fire_rocket(player_ptr, AttributeType::ROCKET, dir, damage, 2);
 367         break;
 368
 369     case MonsterAbilityType::SHOOT:
 370         if (!get_aim_dir(player_ptr, &dir)) {
 371             return false;
 372         } else {
 373             msg_print(_("矢を放った。", "You fire an arrow."));
 374         }
 375         fire_bolt(player_ptr, AttributeType::MONSTER_SHOOT, dir, damage);
 376         break;
 377
 378     case MonsterAbilityType::XXX2:
 379         break;
 380
 381     case MonsterAbilityType::XXX3:
 382         break;
 383
 384     case MonsterAbilityType::XXX4:
 385         break;
 386
 387     case MonsterAbilityType::BR_ACID:
 388         if (!get_aim_dir(player_ptr, &dir)) {
 389             return false;
 390         } else {
 391             msg_print(_("酸のブレスを吐いた。", "You breathe acid."));
 392         }
 393         fire_breath(player_ptr, AttributeType::ACID, dir, damage, (plev > 35 ? 3 : 2));
 394         break;
 395
 396     case MonsterAbilityType::BR_ELEC:
 397         if (!get_aim_dir(player_ptr, &dir)) {
 398             return false;
 399         } else {
 400             msg_print(_("稲妻のブレスを吐いた。", "You breathe lightning."));
 401         }
 402         fire_breath(player_ptr, AttributeType::ELEC, dir, damage, (plev > 35 ? 3 : 2));
 403         break;
 404
 405     case MonsterAbilityType::BR_FIRE:
 406         if (!get_aim_dir(player_ptr, &dir)) {
 407             return false;
 408         } else {
 409             msg_print(_("火炎のブレスを吐いた。", "You breathe fire."));
 410         }
 411         fire_breath(player_ptr, AttributeType::FIRE, dir, damage, (plev > 35 ? 3 : 2));
 412         break;
 413
 414     case MonsterAbilityType::BR_COLD:
 415         if (!get_aim_dir(player_ptr, &dir)) {
 416             return false;
 417         } else {
 418             msg_print(_("冷気のブレスを吐いた。", "You breathe frost."));
 419         }
 420         fire_breath(player_ptr, AttributeType::COLD, dir, damage, (plev > 35 ? 3 : 2));
 421         break;
 422
 423     case MonsterAbilityType::BR_POIS:
 424         if (!get_aim_dir(player_ptr, &dir)) {
 425             return false;
 426         } else {
 427             msg_print(_("ガスのブレスを吐いた。", "You breathe gas."));
 428         }
 429         fire_breath(player_ptr, AttributeType::POIS, dir, damage, (plev > 35 ? 3 : 2));
 430         break;
 431
 432     case MonsterAbilityType::BR_NETH:
 433         if (!get_aim_dir(player_ptr, &dir)) {
 434             return false;
 435         } else {
 436             msg_print(_("地獄のブレスを吐いた。", "You breathe nether."));
 437         }
 438         fire_breath(player_ptr, AttributeType::NETHER, dir, damage, (plev > 35 ? 3 : 2));
 439         break;
 440
 441     case MonsterAbilityType::BR_LITE:
 442         if (!get_aim_dir(player_ptr, &dir)) {
 443             return false;
 444         } else {
 445             msg_print(_("閃光のブレスを吐いた。", "You breathe light."));
 446         }
 447         fire_breath(player_ptr, AttributeType::LITE, dir, damage, (plev > 35 ? 3 : 2));
 448         break;
 449
 450     case MonsterAbilityType::BR_DARK:
 451         if (!get_aim_dir(player_ptr, &dir)) {
 452             return false;
 453         } else {
 454             msg_print(_("暗黒のブレスを吐いた。", "You breathe darkness."));
 455         }
 456         fire_breath(player_ptr, AttributeType::DARK, dir, damage, (plev > 35 ? 3 : 2));
 457         break;
 458
 459     case MonsterAbilityType::BR_CONF:
 460         if (!get_aim_dir(player_ptr, &dir)) {
 461             return false;
 462         } else {
 463             msg_print(_("混乱のブレスを吐いた。", "You breathe confusion."));
 464         }
 465         fire_breath(player_ptr, AttributeType::CONFUSION, dir, damage, (plev > 35 ? 3 : 2));
 466         break;
 467
 468     case MonsterAbilityType::BR_SOUN:
 469         if (!get_aim_dir(player_ptr, &dir)) {
 470             return false;
 471         } else {
 472             msg_print(_("轟音のブレスを吐いた。", "You breathe sound."));
 473         }
 474         fire_breath(player_ptr, AttributeType::SOUND, dir, damage, (plev > 35 ? 3 : 2));
 475         break;
 476
 477     case MonsterAbilityType::BR_CHAO:
 478         if (!get_aim_dir(player_ptr, &dir)) {
 479             return false;
 480         } else {
 481             msg_print(_("カオスのブレスを吐いた。", "You breathe chaos."));
 482         }
 483         fire_breath(player_ptr, AttributeType::CHAOS, dir, damage, (plev > 35 ? 3 : 2));
 484         break;
 485
 486     case MonsterAbilityType::BR_DISE:
 487         if (!get_aim_dir(player_ptr, &dir)) {
 488             return false;
 489         } else {
 490             msg_print(_("劣化のブレスを吐いた。", "You breathe disenchantment."));
 491         }
 492         fire_breath(player_ptr, AttributeType::DISENCHANT, dir, damage, (plev > 35 ? 3 : 2));
 493         break;
 494
 495     case MonsterAbilityType::BR_NEXU:
 496         if (!get_aim_dir(player_ptr, &dir)) {
 497             return false;
 498         } else {
 499             msg_print(_("因果混乱のブレスを吐いた。", "You breathe nexus."));
 500         }
 501         fire_breath(player_ptr, AttributeType::NEXUS, dir, damage, (plev > 35 ? 3 : 2));
 502         break;
 503
 504     case MonsterAbilityType::BR_TIME:
 505         if (!get_aim_dir(player_ptr, &dir)) {
 506             return false;
 507         } else {
 508             msg_print(_("時間逆転のブレスを吐いた。", "You breathe time."));
 509         }
 510         fire_breath(player_ptr, AttributeType::TIME, dir, damage, (plev > 35 ? 3 : 2));
 511         break;
 512
 513     case MonsterAbilityType::BR_INER:
 514         if (!get_aim_dir(player_ptr, &dir)) {
 515             return false;
 516         } else {
 517             msg_print(_("遅鈍のブレスを吐いた。", "You breathe inertia."));
 518         }
 519         fire_breath(player_ptr, AttributeType::INERTIAL, dir, damage, (plev > 35 ? 3 : 2));
 520         break;
 521
 522     case MonsterAbilityType::BR_GRAV:
 523         if (!get_aim_dir(player_ptr, &dir)) {
 524             return false;
 525         } else {
 526             msg_print(_("重力のブレスを吐いた。", "You breathe gravity."));
 527         }
 528         fire_breath(player_ptr, AttributeType::GRAVITY, dir, damage, (plev > 35 ? 3 : 2));
 529         break;
 530
 531     case MonsterAbilityType::BR_SHAR:
 532         if (!get_aim_dir(player_ptr, &dir)) {
 533             return false;
 534         } else {
 535             msg_print(_("破片のブレスを吐いた。", "You breathe shards."));
 536         }
 537         fire_breath(player_ptr, AttributeType::SHARDS, dir, damage, (plev > 35 ? 3 : 2));
 538         break;
 539
 540     case MonsterAbilityType::BR_PLAS:
 541         if (!get_aim_dir(player_ptr, &dir)) {
 542             return false;
 543         } else {
 544             msg_print(_("プラズマのブレスを吐いた。", "You breathe plasma."));
 545         }
 546         fire_breath(player_ptr, AttributeType::PLASMA, dir, damage, (plev > 35 ? 3 : 2));
 547         break;
 548
 549     case MonsterAbilityType::BR_FORC:
 550         if (!get_aim_dir(player_ptr, &dir)) {
 551             return false;
 552         } else {
 553             msg_print(_("フォースのブレスを吐いた。", "You breathe force."));
 554         }
 555         fire_breath(player_ptr, AttributeType::FORCE, dir, damage, (plev > 35 ? 3 : 2));
 556         break;
 557
 558     case MonsterAbilityType::BR_MANA:
 559         if (!get_aim_dir(player_ptr, &dir)) {
 560             return false;
 561         } else {
 562             msg_print(_("魔力のブレスを吐いた。", "You breathe mana."));
 563         }
 564         fire_breath(player_ptr, AttributeType::MANA, dir, damage, (plev > 35 ? 3 : 2));
 565         break;
 566
 567     case MonsterAbilityType::BA_NUKE:
 568         if (!get_aim_dir(player_ptr, &dir)) {
 569             return false;
 570         } else {
 571             msg_print(_("放射能球を放った。", "You cast a ball of radiation."));
 572         }
 573         fire_ball(player_ptr, AttributeType::NUKE, dir, damage, 2);
 574         break;
 575
 576     case MonsterAbilityType::BR_NUKE:
 577         if (!get_aim_dir(player_ptr, &dir)) {
 578             return false;
 579         } else {
 580             msg_print(_("放射性廃棄物のブレスを吐いた。", "You breathe toxic waste."));
 581         }
 582
 583         fire_breath(player_ptr, AttributeType::NUKE, dir, damage, (plev > 35 ? 3 : 2));
 584         break;
 585
 586     case MonsterAbilityType::BA_CHAO:
 587         if (!get_aim_dir(player_ptr, &dir)) {
 588             return false;
 589         } else {
 590             msg_print(_("純ログルスを放った。", "You invoke a raw Logrus."));
 591         }
 592
 593         fire_ball(player_ptr, AttributeType::CHAOS, dir, damage, 4);
 594         break;
 595     case MonsterAbilityType::BR_DISI:
 596         if (!get_aim_dir(player_ptr, &dir)) {
 597             return false;
 598         } else {
 599             msg_print(_("分解のブレスを吐いた。", "You breathe disintegration."));
 600         }
 601
 602         fire_breath(player_ptr, AttributeType::DISINTEGRATE, dir, damage, (plev > 35 ? 3 : 2));
 603         break;
 604     case MonsterAbilityType::BR_VOID:
 605         if (!get_aim_dir(player_ptr, &dir)) {
 606             return false;
 607         } else {
 608             msg_print(_("虚無のブレスを吐いた。", "You breathe void."));
 609         }
 610
 611         fire_breath(player_ptr, AttributeType::VOID_MAGIC, dir, damage, (plev > 35 ? 3 : 2));
 612         break;
 613
 614     case MonsterAbilityType::BR_ABYSS:
 615         if (!get_aim_dir(player_ptr, &dir)) {
 616             return false;
 617         } else {
 618             msg_print(_("深淵のブレスを吐いた。", "You breathe abyss."));
 619         }
 620
 621         fire_breath(player_ptr, AttributeType::ABYSS, dir, damage, (plev > 35 ? 3 : 2));
 622         break;
 623
 624     case MonsterAbilityType::BA_ACID:
 625         if (!get_aim_dir(player_ptr, &dir)) {
 626             return false;
 627         } else {
 628             msg_print(_("アシッド・ボールの呪文を唱えた。", "You cast an acid ball."));
 629         }
 630
 631         fire_ball(player_ptr, AttributeType::ACID, dir, damage, 2);
 632         break;
 633     case MonsterAbilityType::BA_ELEC:
 634         if (!get_aim_dir(player_ptr, &dir)) {
 635             return false;
 636         } else {
 637             msg_print(_("サンダー・ボールの呪文を唱えた。", "You cast a lightning ball."));
 638         }
 639
 640         fire_ball(player_ptr, AttributeType::ELEC, dir, damage, 2);
 641         break;
 642     case MonsterAbilityType::BA_FIRE:
 643         if (!get_aim_dir(player_ptr, &dir)) {
 644             return false;
 645         } else {
 646             msg_print(_("ファイア・ボールの呪文を唱えた。", "You cast a fire ball."));
 647         }
 648
 649         fire_ball(player_ptr, AttributeType::FIRE, dir, damage, 2);
 650         break;
 651     case MonsterAbilityType::BA_COLD:
 652         if (!get_aim_dir(player_ptr, &dir)) {
 653             return false;
 654         } else {
 655             msg_print(_("アイス・ボールの呪文を唱えた。", "You cast a frost ball."));
 656         }
 657
 658         fire_ball(player_ptr, AttributeType::COLD, dir, damage, 2);
 659         break;
 660     case MonsterAbilityType::BA_POIS:
 661         if (!get_aim_dir(player_ptr, &dir)) {
 662             return false;
 663         } else {
 664             msg_print(_("悪臭雲の呪文を唱えた。", "You cast a stinking cloud."));
 665         }
 666
 667         fire_ball(player_ptr, AttributeType::POIS, dir, damage, 2);
 668         break;
 669     case MonsterAbilityType::BA_NETH:
 670         if (!get_aim_dir(player_ptr, &dir)) {
 671             return false;
 672         } else {
 673             msg_print(_("地獄球の呪文を唱えた。", "You cast a nether ball."));
 674         }
 675
 676         fire_ball(player_ptr, AttributeType::NETHER, dir, damage, 2);
 677         break;
 678     case MonsterAbilityType::BA_WATE:
 679         if (!get_aim_dir(player_ptr, &dir)) {
 680             return false;
 681         } else {
 682             msg_print(_("流れるような身振りをした。", "You gesture fluidly."));
 683         }
 684
 685         fire_ball(player_ptr, AttributeType::WATER, dir, damage, 4);
 686         break;
 687     case MonsterAbilityType::BA_MANA:
 688         if (!get_aim_dir(player_ptr, &dir)) {
 689             return false;
 690         } else {
 691             msg_print(_("魔力の嵐の呪文を念じた。", "You invoke a mana storm."));
 692         }
 693
 694         fire_ball(player_ptr, AttributeType::MANA, dir, damage, 4);
 695         break;
 696     case MonsterAbilityType::BA_DARK:
 697         if (!get_aim_dir(player_ptr, &dir)) {
 698             return false;
 699         } else {
 700             msg_print(_("暗黒の嵐の呪文を念じた。", "You invoke a darkness storm."));
 701         }
 702
 703         fire_ball(player_ptr, AttributeType::DARK, dir, damage, 4);
 704         break;
 705     case MonsterAbilityType::BA_VOID:
 706         if (!get_aim_dir(player_ptr, &dir)) {
 707             return false;
 708         } else {
 709             msg_print(_("虚無の嵐の呪文を念じた。", "You cast a void ball."));
 710         }
 711
 712         fire_ball(player_ptr, AttributeType::VOID_MAGIC, dir, damage, 4);
 713         break;
 714     case MonsterAbilityType::BA_ABYSS:
 715         if (!get_aim_dir(player_ptr, &dir)) {
 716             return false;
 717         } else {
 718             msg_print(_("深淵の嵐の呪文を念じた。", "You cast a abyss ball."));
 719         }
 720
 721         fire_ball(player_ptr, AttributeType::ABYSS, dir, damage, 4);
 722         break;
 723     case MonsterAbilityType::DRAIN_MANA:
 724         if (!get_aim_dir(player_ptr, &dir)) {
 725             return false;
 726         }
 727         fire_ball_hide(player_ptr, AttributeType::DRAIN_MANA, dir, randint1(plev * 3) + plev, 0);
 728         break;
 729     case MonsterAbilityType::MIND_BLAST:
 730         if (!get_aim_dir(player_ptr, &dir)) {
 731             return false;
 732         }
 733         fire_ball_hide(player_ptr, AttributeType::MIND_BLAST, dir, damage, 0);
 734         break;
 735     case MonsterAbilityType::BRAIN_SMASH:
 736         if (!get_aim_dir(player_ptr, &dir)) {
 737             return false;
 738         }
 739         fire_ball_hide(player_ptr, AttributeType::BRAIN_SMASH, dir, damage, 0);
 740         break;
 741     case MonsterAbilityType::CAUSE_1:
 742         if (!get_aim_dir(player_ptr, &dir)) {
 743             return false;
 744         }
 745         fire_ball_hide(player_ptr, AttributeType::CAUSE_1, dir, damage, 0);
 746         break;
 747     case MonsterAbilityType::CAUSE_2:
 748         if (!get_aim_dir(player_ptr, &dir)) {
 749             return false;
 750         }
 751         fire_ball_hide(player_ptr, AttributeType::CAUSE_2, dir, damage, 0);
 752         break;
 753     case MonsterAbilityType::CAUSE_3:
 754         if (!get_aim_dir(player_ptr, &dir)) {
 755             return false;
 756         }
 757         fire_ball_hide(player_ptr, AttributeType::CAUSE_3, dir, damage, 0);
 758         break;
 759     case MonsterAbilityType::CAUSE_4:
 760         if (!get_aim_dir(player_ptr, &dir)) {
 761             return false;
 762         }
 763         fire_ball_hide(player_ptr, AttributeType::CAUSE_4, dir, damage, 0);
 764         break;
 765     case MonsterAbilityType::BO_ACID:
 766         if (!get_aim_dir(player_ptr, &dir)) {
 767             return false;
 768         } else {
 769             msg_print(_("アシッド・ボルトの呪文を唱えた。", "You cast an acid bolt."));
 770         }
 771
 772         fire_bolt(player_ptr, AttributeType::ACID, dir, damage);
 773         break;
 774     case MonsterAbilityType::BO_ELEC:
 775         if (!get_aim_dir(player_ptr, &dir)) {
 776             return false;
 777         } else {
 778             msg_print(_("サンダー・ボルトの呪文を唱えた。", "You cast a lightning bolt."));
 779         }
 780
 781         fire_bolt(player_ptr, AttributeType::ELEC, dir, damage);
 782         break;
 783     case MonsterAbilityType::BO_FIRE:
 784         if (!get_aim_dir(player_ptr, &dir)) {
 785             return false;
 786         } else {
 787             msg_print(_("ファイア・ボルトの呪文を唱えた。", "You cast a fire bolt."));
 788         }
 789
 790         fire_bolt(player_ptr, AttributeType::FIRE, dir, damage);
 791         break;
 792     case MonsterAbilityType::BO_COLD:
 793         if (!get_aim_dir(player_ptr, &dir)) {
 794             return false;
 795         } else {
 796             msg_print(_("アイス・ボルトの呪文を唱えた。", "You cast a frost bolt."));
 797         }
 798
 799         fire_bolt(player_ptr, AttributeType::COLD, dir, damage);
 800         break;
 801     case MonsterAbilityType::BA_LITE:
 802         if (!get_aim_dir(player_ptr, &dir)) {
 803             return false;
 804         } else {
 805             msg_print(_("スターバーストの呪文を念じた。", "You invoke a starburst."));
 806         }
 807
 808         fire_ball(player_ptr, AttributeType::LITE, dir, damage, 4);
 809         break;
 810     case MonsterAbilityType::BO_NETH:
 811         if (!get_aim_dir(player_ptr, &dir)) {
 812             return false;
 813         } else {
 814             msg_print(_("地獄の矢の呪文を唱えた。", "You cast a nether bolt."));
 815         }
 816
 817         fire_bolt(player_ptr, AttributeType::NETHER, dir, damage);
 818         break;
 819     case MonsterAbilityType::BO_WATE:
 820         if (!get_aim_dir(player_ptr, &dir)) {
 821             return false;
 822         } else {
 823             msg_print(_("ウォーター・ボルトの呪文を唱えた。", "You cast a water bolt."));
 824         }
 825
 826         fire_bolt(player_ptr, AttributeType::WATER, dir, damage);
 827         break;
 828     case MonsterAbilityType::BO_MANA:
 829         if (!get_aim_dir(player_ptr, &dir)) {
 830             return false;
 831         } else {
 832             msg_print(_("魔力の矢の呪文を唱えた。", "You cast a mana bolt."));
 833         }
 834
 835         fire_bolt(player_ptr, AttributeType::MANA, dir, damage);
 836         break;
 837     case MonsterAbilityType::BO_PLAS:
 838         if (!get_aim_dir(player_ptr, &dir)) {
 839             return false;
 840         } else {
 841             msg_print(_("プラズマ・ボルトの呪文を唱えた。", "You cast a plasma bolt."));
 842         }
 843
 844         fire_bolt(player_ptr, AttributeType::PLASMA, dir, damage);
 845         break;
 846     case MonsterAbilityType::BO_ICEE:
 847         if (!get_aim_dir(player_ptr, &dir)) {
 848             return false;
 849         } else {
 850             msg_print(_("極寒の矢の呪文を唱えた。", "You cast a ice bolt."));
 851         }
 852
 853         fire_bolt(player_ptr, AttributeType::ICE, dir, damage);
 854         break;
 855     case MonsterAbilityType::BO_VOID:
 856         if (!get_aim_dir(player_ptr, &dir)) {
 857             return false;
 858         } else {
 859             msg_print(_("虚無の矢の呪文を唱えた。", "You cast a void bolt."));
 860         }
 861
 862         fire_bolt(player_ptr, AttributeType::VOID_MAGIC, dir, damage);
 863         break;
 864     case MonsterAbilityType::BO_ABYSS:
 865         if (!get_aim_dir(player_ptr, &dir)) {
 866             return false;
 867         } else {
 868             msg_print(_("深淵の矢の呪文を唱えた。", "You cast a abyss bolt."));
 869         }
 870
 871         fire_bolt(player_ptr, AttributeType::ABYSS, dir, damage);
 872         break;
 873     case MonsterAbilityType::MISSILE:
 874         if (!get_aim_dir(player_ptr, &dir)) {
 875             return false;
 876         } else {
 877             msg_print(_("マジック・ミサイルの呪文を唱えた。", "You cast a magic missile."));
 878         }
 879
 880         fire_bolt(player_ptr, AttributeType::MISSILE, dir, damage);
 881         break;
 882     case MonsterAbilityType::SCARE:
 883         if (!get_aim_dir(player_ptr, &dir)) {
 884             return false;
 885         } else {
 886             msg_print(_("恐ろしげな幻覚を作り出した。", "You cast a fearful illusion."));
 887         }
 888
 889         fear_monster(player_ptr, dir, plev + 10);
 890         break;
 891     case MonsterAbilityType::BLIND:
 892         if (!get_aim_dir(player_ptr, &dir)) {
 893             return false;
 894         }
 895         confuse_monster(player_ptr, dir, plev * 2);
 896         break;
 897     case MonsterAbilityType::CONF:
 898         if (!get_aim_dir(player_ptr, &dir)) {
 899             return false;
 900         } else {
 901             msg_print(_("誘惑的な幻覚をつくり出した。", "You cast a mesmerizing illusion."));
 902         }
 903
 904         confuse_monster(player_ptr, dir, plev * 2);
 905         break;
 906     case MonsterAbilityType::SLOW:
 907         if (!get_aim_dir(player_ptr, &dir)) {
 908             return false;
 909         }
 910         slow_monster(player_ptr, dir, plev);
 911         break;
 912     case MonsterAbilityType::HOLD:
 913         if (!get_aim_dir(player_ptr, &dir)) {
 914             return false;
 915         }
 916         sleep_monster(player_ptr, dir, plev);
 917         break;
 918     case MonsterAbilityType::HASTE:
 919         (void)set_fast(player_ptr, randint1(20 + plev) + plev, false);
 920         break;
 921     case MonsterAbilityType::HAND_DOOM: {
 922         if (!get_aim_dir(player_ptr, &dir)) {
 923             return false;
 924         } else {
 925             msg_print(_("<破滅の手>を放った！", "You invoke the Hand of Doom!"));
 926         }
 927
 928         fire_ball_hide(player_ptr, AttributeType::HAND_DOOM, dir, 200, 0);
 929         break;
 930     }
 931     case MonsterAbilityType::HEAL: {
 932         msg_print(_("自分の傷に念を集中した。", "You concentrate on your wounds!"));
 933         (void)hp_player(player_ptr, plev * 6);
 934         BadStatusSetter bss(player_ptr);
 935         (void)bss.stun(0);
 936         (void)bss.cut(0);
 937         break;
 938     }
 939     case MonsterAbilityType::INVULNER:
 940         msg_print(_("無傷の球の呪文を唱えた。", "You cast a Globe of Invulnerability."));
 941         (void)set_invuln(player_ptr, randint1(7) + 7, false);
 942         break;
 943     case MonsterAbilityType::BLINK:
 944         teleport_player(player_ptr, 10, TELEPORT_SPONTANEOUS);
 945         break;
 946     case MonsterAbilityType::TPORT:
 947         teleport_player(player_ptr, plev * 5, TELEPORT_SPONTANEOUS);
 948         break;
 949     case MonsterAbilityType::WORLD:
 950         (void)time_walk(player_ptr);
 951         break;
 952     case MonsterAbilityType::SPECIAL:
 953         break;
 954     case MonsterAbilityType::TELE_TO: {
 955         monster_type *m_ptr;
 956         monster_race *r_ptr;
 957         GAME_TEXT m_name[MAX_NLEN];
 958
 959         if (!target_set(player_ptr, TARGET_KILL)) {
 960             return false;
 961         }
 962         if (!player_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx) {
 963             break;
 964         }
 965         if (!player_has_los_bold(player_ptr, target_row, target_col)) {
 966             break;
 967         }
 968         if (!projectable(player_ptr, player_ptr->y, player_ptr->x, target_row, target_col)) {
 969             break;
 970         }
 971         m_ptr = &player_ptr->current_floor_ptr->m_list[player_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx];
 972         r_ptr = &r_info[m_ptr->r_idx];
 973         monster_desc(player_ptr, m_name, m_ptr, 0);
 974         if (r_ptr->flagsr & RFR_RES_TELE) {
 975             if (r_ptr->kind_flags.has(MonsterKindType::UNIQUE) || (r_ptr->flagsr & RFR_RES_ALL)) {
 976                 if (is_original_ap_and_seen(player_ptr, m_ptr)) {
 977                     r_ptr->r_flagsr |= RFR_RES_TELE;
 978                 }
 979                 msg_format(_("%sには効果がなかった！", "%s is unaffected!"), m_name);
 980
 981                 break;
 982             } else if (r_ptr->level > randint1(100)) {
 983                 if (is_original_ap_and_seen(player_ptr, m_ptr)) {
 984                     r_ptr->r_flagsr |= RFR_RES_TELE;
 985                 }
 986                 msg_format(_("%sには耐性がある！", "%s resists!"), m_name);
 987
 988                 break;
 989             }
 990         }
 991         msg_format(_("%sを引き戻した。", "You command %s to return."), m_name);
 992
 993         teleport_monster_to(
 994             player_ptr, player_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx, player_ptr->y, player_ptr->x, 100, TELEPORT_PASSIVE);
 995         break;
 996     }
 997     case MonsterAbilityType::TELE_AWAY:
 998         if (!get_aim_dir(player_ptr, &dir)) {
 999             return false;
1000         }
1001
1002         (void)fire_beam(player_ptr, AttributeType::AWAY_ALL, dir, plev);
1003         break;
1004
1005     case MonsterAbilityType::TELE_LEVEL:
1006         return teleport_level_other(player_ptr);
1007         break;
1008
1009     case MonsterAbilityType::PSY_SPEAR:
1010         if (!get_aim_dir(player_ptr, &dir)) {
1011             return false;
1012         } else {
1013             msg_print(_("光の剣を放った。", "You throw a psycho-spear."));
1014         }
1015         (void)fire_beam(player_ptr, AttributeType::PSY_SPEAR, dir, damage);
1016         break;
1017
1018     case MonsterAbilityType::DARKNESS:
1019         msg_print(_("暗闇の中で手を振った。", "You gesture in shadow."));
1020         (void)unlite_area(player_ptr, 10, 3);
1021         break;
1022
1023     case MonsterAbilityType::TRAPS:
1024         if (!target_set(player_ptr, TARGET_KILL)) {
1025             return false;
1026         }
1027         msg_print(_("呪文を唱えて邪悪に微笑んだ。", "You cast a spell and cackle evilly."));
1028         trap_creation(player_ptr, target_row, target_col);
1029         break;
1030     case MonsterAbilityType::FORGET:
1031         msg_print(_("しかし何も起きなかった。", "Nothing happens."));
1032         break;
1033     case MonsterAbilityType::RAISE_DEAD:
1034         msg_print(_("死者復活の呪文を唱えた。", "You animate the dead."));
1035         (void)animate_dead(player_ptr, 0, player_ptr->y, player_ptr->x);
1036         break;
1037     case MonsterAbilityType::S_KIN: {
1038         int k;
1039         if (!target_set(player_ptr, TARGET_KILL)) {
1040             return false;
1041         }
1042
1043         msg_print(_("援軍を召喚した。", "You summon minions."));
1044         for (k = 0; k < 4; k++) {
1045             (void)summon_kin_player(player_ptr, plev, target_row, target_col, (PM_FORCE_PET | PM_ALLOW_GROUP));
1046         }
1047         break;
1048     }
1049     case MonsterAbilityType::S_CYBER: {
1050         int k;
1051         int max_cyber = (player_ptr->current_floor_ptr->dun_level / 50) + randint1(3);
1052         if (!target_set(player_ptr, TARGET_KILL)) {
1053             return false;
1054         }
1055         msg_print(_("サイバーデーモンを召喚した！", "You summon Cyberdemons!"));
1056         if (max_cyber > 4) {
1057             max_cyber = 4;
1058         }
1059         for (k = 0; k < max_cyber; k++) {
1060             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_CYBER, mode);
1061         }
1062         break;
1063     }
1064     case MonsterAbilityType::S_MONSTER: {
1065         int k;
1066         if (!target_set(player_ptr, TARGET_KILL)) {
1067             return false;
1068         }
1069         msg_print(_("仲間を召喚した。", "You summon help."));
1070         for (k = 0; k < 1; k++) {
1071             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_NONE, (mode | u_mode));
1072         }
1073         break;
1074     }
1075     case MonsterAbilityType::S_MONSTERS: {
1076         int k;
1077         if (!target_set(player_ptr, TARGET_KILL)) {
1078             return false;
1079         }
1080         msg_print(_("モンスターを召喚した！", "You summon monsters!"));
1081         for (k = 0; k < 6; k++) {
1082             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_NONE, (mode | u_mode));
1083         }
1084         break;
1085     }
1086     case MonsterAbilityType::S_ANT: {
1087         int k;
1088         if (!target_set(player_ptr, TARGET_KILL)) {
1089             return false;
1090         }
1091         msg_print(_("アリを召喚した。", "You summon ants."));
1092         for (k = 0; k < 6; k++) {
1093             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_ANT, mode);
1094         }
1095         break;
1096     }
1097     case MonsterAbilityType::S_SPIDER: {
1098         int k;
1099         if (!target_set(player_ptr, TARGET_KILL)) {
1100             return false;
1101         }
1102         msg_print(_("蜘蛛を召喚した。", "You summon spiders."));
1103         for (k = 0; k < 6; k++) {
1104             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_SPIDER, mode);
1105         }
1106         break;
1107     }
1108     case MonsterAbilityType::S_HOUND: {
1109         int k;
1110         if (!target_set(player_ptr, TARGET_KILL)) {
1111             return false;
1112         }
1113         msg_print(_("ハウンドを召喚した。", "You summon hounds."));
1114         for (k = 0; k < 4; k++) {
1115             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_HOUND, mode);
1116         }
1117         break;
1118     }
1119     case MonsterAbilityType::S_HYDRA: {
1120         int k;
1121         if (!target_set(player_ptr, TARGET_KILL)) {
1122             return false;
1123         }
1124         msg_print(_("ヒドラを召喚した。", "You summon hydras."));
1125         for (k = 0; k < 4; k++) {
1126             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_HYDRA, mode);
1127         }
1128         break;
1129     }
1130     case MonsterAbilityType::S_ANGEL: {
1131         int k;
1132         if (!target_set(player_ptr, TARGET_KILL)) {
1133             return false;
1134         }
1135         msg_print(_("天使を召喚した！", "You summon an angel!"));
1136         for (k = 0; k < 1; k++) {
1137             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_ANGEL, mode);
1138         }
1139         break;
1140     }
1141     case MonsterAbilityType::S_DEMON: {
1142         int k;
1143         if (!target_set(player_ptr, TARGET_KILL)) {
1144             return false;
1145         }
1146         msg_print(_("混沌の宮廷から悪魔を召喚した！", "You summon a demon from the Courts of Chaos!"));
1147         for (k = 0; k < 1; k++) {
1148             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_DEMON, (mode | u_mode));
1149         }
1150         break;
1151     }
1152     case MonsterAbilityType::S_UNDEAD: {
1153         int k;
1154         if (!target_set(player_ptr, TARGET_KILL)) {
1155             return false;
1156         }
1157         msg_print(_("アンデッドの強敵を召喚した！", "You summon an undead adversary!"));
1158         for (k = 0; k < 1; k++) {
1159             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_UNDEAD, (mode | u_mode));
1160         }
1161         break;
1162     }
1163     case MonsterAbilityType::S_DRAGON: {
1164         int k;
1165         if (!target_set(player_ptr, TARGET_KILL)) {
1166             return false;
1167         }
1168         msg_print(_("ドラゴンを召喚した！", "You summon a dragon!"));
1169         for (k = 0; k < 1; k++) {
1170             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_DRAGON, (mode | u_mode));
1171         }
1172         break;
1173     }
1174     case MonsterAbilityType::S_HI_UNDEAD: {
1175         int k;
1176         if (!target_set(player_ptr, TARGET_KILL)) {
1177             return false;
1178         }
1179         msg_print(_("強力なアンデッドを召喚した！", "You summon greater undead!"));
1180         for (k = 0; k < 6; k++) {
1181             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_HI_UNDEAD, (mode | u_mode));
1182         }
1183         break;
1184     }
1185     case MonsterAbilityType::S_HI_DRAGON: {
1186         int k;
1187         if (!target_set(player_ptr, TARGET_KILL)) {
1188             return false;
1189         }
1190         msg_print(_("古代ドラゴンを召喚した！", "You summon ancient dragons!"));
1191         for (k = 0; k < 4; k++) {
1192             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_HI_DRAGON, (mode | u_mode));
1193         }
1194         break;
1195     }
1196     case MonsterAbilityType::S_AMBERITES: {
1197         int k;
1198         if (!target_set(player_ptr, TARGET_KILL)) {
1199             return false;
1200         }
1201         msg_print(_("アンバーの王族を召喚した！", "You summon Lords of Amber!"));
1202         for (k = 0; k < 4; k++) {
1203             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_AMBERITES, (mode | PM_ALLOW_UNIQUE));
1204         }
1205         break;
1206     }
1207     case MonsterAbilityType::S_UNIQUE: {
1208         int k, count = 0;
1209         if (!target_set(player_ptr, TARGET_KILL)) {
1210             return false;
1211         }
1212         msg_print(_("特別な強敵を召喚した！", "You summon special opponents!"));
1213         for (k = 0; k < 4; k++) {
1214             if (summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_UNIQUE, (mode | PM_ALLOW_UNIQUE))) {
1215                 count++;
1216             }
1217         }
1218         for (k = count; k < 4; k++) {
1219             summon_specific(player_ptr, -1, target_row, target_col, plev, SUMMON_HI_UNDEAD, (mode | u_mode));
1220         }
1221         break;
1222     }
1223     default:
1224         msg_print("hoge?");
1225     }
1226
1227     return true;
1228 }
1229
1230 /*!
1231  * @brief ものまねコマンドのメインルーチン /
1232  * do_cmd_cast calls this function if the player's class is 'imitator'.
1233  * @param baigaesi TRUEならば倍返し上の処理として行う
1234  * @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
1235  * @details
1236  * If a valid spell is chosen, saves it in '*sn' and returns TRUE
1237  * If the user hits escape, returns FALSE, and set '*sn' to -1
1238  * If there are no legal choices, returns FALSE, and sets '*sn' to -2
1239  *
1240  * The "prompt" should be "cast", "recite", or "study"
1241  * The "known" should be TRUE for cast/pray, FALSE for study
1242  *
1243  * nb: This function has a (trivial) display bug which will be obvious
1244  * when you run it. It's probably easy to fix but I haven't tried,
1245  * sorry.
1246  */
1247 bool do_cmd_mane(PlayerType *player_ptr, bool baigaesi)
1248 {
1249     int n = 0;
1250     PERCENTAGE chance;
1251     PERCENTAGE minfail = 0;
1252     PLAYER_LEVEL plev = player_ptr->lev;
1253     monster_power spell;
1254     bool cast;
1255
1256     if (cmd_limit_confused(player_ptr)) {
1257         return false;
1258     }
1259
1260     auto mane_data = PlayerClass(player_ptr).get_specific_data<mane_data_type>();
1261
1262     if (mane_data->mane_list.empty()) {
1263         msg_print(_("まねられるものが何もない！", "You don't remember any action!"));
1264         return false;
1265     }
1266
1267     if (!get_mane_power(player_ptr, &n, baigaesi)) {
1268         return false;
1269     }
1270
1271     spell = monster_powers.at(mane_data->mane_list[n].spell);
1272
1273     /* Spell failure chance */
1274     chance = spell.manefail;
1275
1276     /* Reduce failure rate by "effective" level adjustment */
1277     if (plev > spell.level) {
1278         chance -= 3 * (plev - spell.level);
1279     }
1280
1281     /* Reduce failure rate by 1 stat and DEX adjustment */
1282     chance -= 3 * (adj_mag_stat[player_ptr->stat_index[spell.use_stat]] + adj_mag_stat[player_ptr->stat_index[A_DEX]] - 2) / 2;
1283
1284     if (spell.manedam) {
1285         chance = chance * damage / spell.manedam;
1286     }
1287
1288     chance += player_ptr->to_m_chance;
1289
1290     /* Extract the minimum failure rate */
1291     minfail = adj_mag_fail[player_ptr->stat_index[spell.use_stat]];
1292
1293     /* Minimum failure rate */
1294     if (chance < minfail) {
1295         chance = minfail;
1296     }
1297
1298     auto player_stun = player_ptr->effects()->stun();
1299     chance += player_stun->get_magic_chance_penalty();
1300     if (chance > 95) {
1301         chance = 95;
1302     }
1303
1304     /* Failed spell */
1305     if (randint0(100) < chance) {
1306         if (flush_failure) {
1307             flush();
1308         }
1309         msg_print(_("ものまねに失敗した！", "You failed to concentrate hard enough!"));
1310         sound(SOUND_FAIL);
1311     } else {
1312         sound(SOUND_ZAP);
1313         cast = use_mane(player_ptr, mane_data->mane_list[n].spell);
1314         if (!cast) {
1315             return false;
1316         }
1317     }
1318
1319     mane_data->mane_list.erase(std::next(mane_data->mane_list.begin(), n));
1320
1321     PlayerEnergy(player_ptr).set_player_turn_energy(100);
1322
1323     player_ptr->redraw |= (PR_IMITATION);
1324     player_ptr->window_flags |= (PW_PLAYER);
1325     player_ptr->window_flags |= (PW_SPELL);
1326
1327     return true;
1328 }