src/blue-magic/blue-magic-caster.c

   1 #include "blue-magic/blue-magic-caster.h"
   2 #include "blue-magic/blue-magic-ball-bolt.h"
   3 #include "blue-magic/blue-magic-breath.h"
   4 #include "blue-magic/blue-magic-util.h"
   5 #include "blue-magic/learnt-info.h"
   6 #include "core/hp-mp-processor.h"
   7 #include "floor/cave.h"
   8 #include "floor/floor.h"
   9 #include "grid/grid.h"
  10 #include "io/targeting.h"
  11 #include "monster-floor/monster-summon.h"
  12 #include "monster-floor/place-monster-types.h"
  13 #include "monster-race/monster-race.h"
  14 #include "monster-race/race-flags-resistance.h"
  15 #include "monster-race/race-flags1.h"
  16 #include "monster/monster-describer.h"
  17 #include "monster/monster-info.h"
  18 #include "monster/monster-status.h"
  19 #include "mspell/mspell-damage-calculator.h"
  20 #include "mspell/mspell-type.h"
  21 #include "spell-kind/spells-launcher.h"
  22 #include "spell-kind/spells-lite.h"
  23 #include "spell-kind/spells-neighbor.h"
  24 #include "spell-kind/spells-sight.h"
  25 #include "spell-kind/spells-teleport.h"
  26 #include "spell-kind/spells-world.h"
  27 #include "spell/spell-types.h"
  28 #include "spell/spells-status.h"
  29 #include "spell/spells-summon.h"
  30 #include "status/bad-status-setter.h"
  31 #include "status/body-improvement.h"
  32 #include "status/buff-setter.h"
  33 #include "system/floor-type-definition.h"
  34 #include "view/display-messages.h"
  35
  36 static bool cast_blue_dispel(player_type *caster_ptr)
  37 {
  38     if (!target_set(caster_ptr, TARGET_KILL))
  39         return FALSE;
  40
  41     MONSTER_IDX m_idx = caster_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx;
  42     if ((m_idx == 0) || !player_has_los_bold(caster_ptr, target_row, target_col)
  43         || !projectable(caster_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col))
  44         return TRUE;
  45
  46     dispel_monster_status(caster_ptr, m_idx);
  47     return TRUE;
  48 }
  49
  50 static bool cast_blue_rocket(player_type *caster_ptr, bmc_type *bmc_ptr)
  51 {
  52     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
  53         return FALSE;
  54
  55     msg_print(_("ロケットを発射した。", "You fire a rocket."));
  56     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_ROCKET), bmc_ptr->plev, DAM_ROLL);
  57     fire_rocket(caster_ptr, GF_ROCKET, bmc_ptr->dir, bmc_ptr->damage, 2);
  58     return TRUE;
  59 }
  60
  61 static bool cast_blue_shoot(player_type *caster_ptr, bmc_type *bmc_ptr)
  62 {
  63     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
  64         return FALSE;
  65
  66     msg_print(_("矢を放った。", "You fire an arrow."));
  67     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_SHOOT), bmc_ptr->plev, DAM_ROLL);
  68     fire_bolt(caster_ptr, GF_ARROW, bmc_ptr->dir, bmc_ptr->damage);
  69     return TRUE;
  70 }
  71
  72 bool cast_blue_drain_mana(player_type *caster_ptr, bmc_type *bmc_ptr)
  73 {
  74     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
  75         return FALSE;
  76
  77     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_DRAIN_MANA), bmc_ptr->plev, DAM_ROLL);
  78     fire_ball_hide(caster_ptr, GF_DRAIN_MANA, bmc_ptr->dir, bmc_ptr->damage, 0);
  79     return TRUE;
  80 }
  81
  82 bool cast_blue_mind_blast(player_type *caster_ptr, bmc_type *bmc_ptr)
  83 {
  84     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
  85         return FALSE;
  86
  87     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_MIND_BLAST), bmc_ptr->plev, DAM_ROLL);
  88     fire_ball_hide(caster_ptr, GF_MIND_BLAST, bmc_ptr->dir, bmc_ptr->damage, 0);
  89     return TRUE;
  90 }
  91
  92 bool cast_blue_brain_smash(player_type *caster_ptr, bmc_type *bmc_ptr)
  93 {
  94     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
  95         return FALSE;
  96
  97     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BRAIN_SMASH), bmc_ptr->plev, DAM_ROLL);
  98     fire_ball_hide(caster_ptr, GF_BRAIN_SMASH, bmc_ptr->dir, bmc_ptr->damage, 0);
  99     return TRUE;
 100 }
 101
 102 bool cast_blue_curse_1(player_type *caster_ptr, bmc_type *bmc_ptr)
 103 {
 104     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 105         return FALSE;
 106
 107     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_CAUSE_1), bmc_ptr->plev, DAM_ROLL);
 108     fire_ball_hide(caster_ptr, GF_CAUSE_1, bmc_ptr->dir, bmc_ptr->damage, 0);
 109     return TRUE;
 110 }
 111
 112 bool cast_blue_curse_2(player_type *caster_ptr, bmc_type *bmc_ptr)
 113 {
 114     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 115         return FALSE;
 116
 117     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_CAUSE_2), bmc_ptr->plev, DAM_ROLL);
 118     fire_ball_hide(caster_ptr, GF_CAUSE_2, bmc_ptr->dir, bmc_ptr->damage, 0);
 119     return TRUE;
 120 }
 121
 122 bool cast_blue_curse_3(player_type *caster_ptr, bmc_type *bmc_ptr)
 123 {
 124     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 125         return FALSE;
 126
 127     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_CAUSE_3), bmc_ptr->plev, DAM_ROLL);
 128     fire_ball_hide(caster_ptr, GF_CAUSE_3, bmc_ptr->dir, bmc_ptr->damage, 0);
 129     return TRUE;
 130 }
 131
 132 bool cast_blue_curse_4(player_type *caster_ptr, bmc_type *bmc_ptr)
 133 {
 134     if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 135         return FALSE;
 136
 137     bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_CAUSE_4), bmc_ptr->plev, DAM_ROLL);
 138     fire_ball_hide(caster_ptr, GF_CAUSE_4, bmc_ptr->dir, bmc_ptr->damage, 0);
 139     return TRUE;
 140 }
 141
 142 /*!
 143  * @brief 青魔法の発動 /
 144  * do_cmd_cast calls this function if the player's class is 'blue-mage'.
 145  * @param spell 発動するモンスター攻撃のID
 146  * @param success TRUEは成功時、FALSEは失敗時の処理を行う
 147  * @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
 148  */
 149 bool cast_learned_spell(player_type *caster_ptr, int spell, const bool success)
 150 {
 151     bmc_type tmp_bm;
 152     bmc_type *bmc_ptr = initialize_blue_magic_type(caster_ptr, &tmp_bm, success, get_pseudo_monstetr_level);
 153     floor_type *floor_ptr = caster_ptr->current_floor_ptr;
 154     switch (spell) {
 155     case MS_SHRIEK:
 156         msg_print(_("かん高い金切り声をあげた。", "You make a high pitched shriek."));
 157         aggravate_monsters(caster_ptr, 0);
 158         break; // 関数分割後に'return TRUE;' に差し替え
 159     case MS_XXX1:
 160     case MS_XXX2:
 161     case MS_XXX3:
 162     case MS_XXX4:
 163         break;
 164     case MS_DISPEL:
 165         if (!cast_blue_dispel(caster_ptr))
 166             return FALSE;
 167
 168         break;
 169     case MS_ROCKET:
 170         if (!cast_blue_rocket(caster_ptr, bmc_ptr))
 171             return FALSE;
 172
 173         break;
 174     case MS_SHOOT:
 175         if (!cast_blue_shoot(caster_ptr, bmc_ptr))
 176             return FALSE;
 177
 178         break;
 179     case MS_BR_ACID:
 180         if (!cast_blue_breath_acid(caster_ptr, bmc_ptr))
 181             return FALSE;
 182
 183         break;
 184     case MS_BR_ELEC:
 185         if (!cast_blue_breath_elec(caster_ptr, bmc_ptr))
 186             return FALSE;
 187
 188         break;
 189     case MS_BR_FIRE:
 190         if (!cast_blue_breath_fire(caster_ptr, bmc_ptr))
 191             return FALSE;
 192
 193         break;
 194     case MS_BR_COLD:
 195         if (!cast_blue_breath_cold(caster_ptr, bmc_ptr))
 196             return FALSE;
 197
 198         break;
 199     case MS_BR_POIS:
 200         if (!cast_blue_breath_pois(caster_ptr, bmc_ptr))
 201             return FALSE;
 202
 203         break;
 204     case MS_BR_NETHER:
 205         if (!cast_blue_breath_nether(caster_ptr, bmc_ptr))
 206             return FALSE;
 207
 208         break;
 209     case MS_BR_LITE:
 210         if (!cast_blue_breath_lite(caster_ptr, bmc_ptr))
 211             return FALSE;
 212
 213         break;
 214     case MS_BR_DARK:
 215         if (!cast_blue_breath_dark(caster_ptr, bmc_ptr))
 216             return FALSE;
 217
 218         break;
 219     case MS_BR_CONF:
 220         if (!cast_blue_breath_conf(caster_ptr, bmc_ptr))
 221             return FALSE;
 222
 223         break;
 224     case MS_BR_SOUND:
 225         if (!cast_blue_breath_sound(caster_ptr, bmc_ptr))
 226             return FALSE;
 227
 228         break;
 229     case MS_BR_CHAOS:
 230         if (!cast_blue_breath_chaos(caster_ptr, bmc_ptr))
 231             return FALSE;
 232
 233         break;
 234     case MS_BR_DISEN:
 235         if (!cast_blue_breath_disenchant(caster_ptr, bmc_ptr))
 236             return FALSE;
 237
 238         break;
 239     case MS_BR_NEXUS:
 240         if (!cast_blue_breath_nexus(caster_ptr, bmc_ptr))
 241             return FALSE;
 242
 243         break;
 244     case MS_BR_TIME:
 245         if (!cast_blue_breath_time(caster_ptr, bmc_ptr))
 246             return FALSE;
 247
 248         break;
 249     case MS_BR_INERTIA:
 250         if (!cast_blue_breath_inertia(caster_ptr, bmc_ptr))
 251             return FALSE;
 252
 253         break;
 254     case MS_BR_GRAVITY:
 255         if (!cast_blue_breath_gravity(caster_ptr, bmc_ptr))
 256             return FALSE;
 257
 258         break;
 259     case MS_BR_SHARDS:
 260         if (!cast_blue_breath_shards(caster_ptr, bmc_ptr))
 261             return FALSE;
 262
 263         break;
 264     case MS_BR_PLASMA:
 265         if (!cast_blue_breath_plasma(caster_ptr, bmc_ptr))
 266             return FALSE;
 267
 268         break;
 269     case MS_BR_FORCE:
 270         if (!cast_blue_breath_force(caster_ptr, bmc_ptr))
 271             return FALSE;
 272
 273         break;
 274     case MS_BR_MANA:
 275         if (!cast_blue_breath_mana(caster_ptr, bmc_ptr))
 276             return FALSE;
 277
 278         break;
 279     case MS_BR_NUKE:
 280         if (!cast_blue_breath_nuke(caster_ptr, bmc_ptr))
 281             return FALSE;
 282
 283         break;
 284     case MS_BR_DISI:
 285         if (!cast_blue_breath_disintegration(caster_ptr, bmc_ptr))
 286             return FALSE;
 287
 288         break;
 289     case MS_BALL_ACID:
 290         if (!cast_blue_ball_acid(caster_ptr, bmc_ptr))
 291             return FALSE;
 292
 293         break;
 294     case MS_BALL_ELEC:
 295         if (!cast_blue_ball_elec(caster_ptr, bmc_ptr))
 296             return FALSE;
 297
 298         break;
 299     case MS_BALL_FIRE:
 300         if (!cast_blue_ball_fire(caster_ptr, bmc_ptr))
 301             return FALSE;
 302
 303         break;
 304     case MS_BALL_COLD:
 305         if (!cast_blue_ball_cold(caster_ptr, bmc_ptr))
 306             return FALSE;
 307
 308         break;
 309     case MS_BALL_POIS:
 310         if (!cast_blue_ball_pois(caster_ptr, bmc_ptr))
 311             return FALSE;
 312
 313         break;
 314     case MS_BALL_NUKE:
 315         if (!cast_blue_ball_nuke(caster_ptr, bmc_ptr))
 316             return FALSE;
 317
 318         break;
 319     case MS_BALL_NETHER:
 320         if (!cast_blue_ball_nether(caster_ptr, bmc_ptr))
 321             return FALSE;
 322
 323         break;
 324     case MS_BALL_CHAOS:
 325         if (!cast_blue_ball_chaos(caster_ptr, bmc_ptr))
 326             return FALSE;
 327
 328         break;
 329     case MS_BALL_WATER:
 330         if (!cast_blue_ball_water(caster_ptr, bmc_ptr))
 331             return FALSE;
 332
 333         break;
 334     case MS_STARBURST:
 335         if (!cast_blue_ball_star_burst(caster_ptr, bmc_ptr))
 336             return FALSE;
 337
 338         break;
 339     case MS_BALL_DARK:
 340         if (!cast_blue_ball_dark_storm(caster_ptr, bmc_ptr))
 341             return FALSE;
 342
 343         break;
 344     case MS_BALL_MANA:
 345         if (!cast_blue_ball_mana_storm(caster_ptr, bmc_ptr))
 346             return FALSE;
 347
 348         break;
 349     case MS_DRAIN_MANA:
 350         if (!cast_blue_drain_mana(caster_ptr, bmc_ptr))
 351             return FALSE;
 352
 353         break;
 354     case MS_MIND_BLAST:
 355         if (!cast_blue_mind_blast(caster_ptr, bmc_ptr))
 356             return FALSE;
 357
 358         break;
 359     case MS_BRAIN_SMASH:
 360         if (!cast_blue_brain_smash(caster_ptr, bmc_ptr))
 361             return FALSE;
 362
 363         break;
 364     case MS_CAUSE_1:
 365         if (!cast_blue_curse_1(caster_ptr, bmc_ptr))
 366             return FALSE;
 367
 368         break;
 369     case MS_CAUSE_2:
 370         if (!cast_blue_curse_2(caster_ptr, bmc_ptr))
 371             return FALSE;
 372
 373         break;
 374     case MS_CAUSE_3:
 375         if (!cast_blue_curse_3(caster_ptr, bmc_ptr))
 376             return FALSE;
 377
 378         break;
 379     case MS_CAUSE_4:
 380         if (!cast_blue_curse_4(caster_ptr, bmc_ptr))
 381             return FALSE;
 382
 383         break;
 384     case MS_BOLT_ACID:
 385         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 386             return FALSE;
 387
 388         msg_print(_("アシッド・ボルトの呪文を唱えた。", "You cast an acid bolt."));
 389         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_ACID), bmc_ptr->plev, DAM_ROLL);
 390         fire_bolt(caster_ptr, GF_ACID, bmc_ptr->dir, bmc_ptr->damage);
 391         break;
 392     case MS_BOLT_ELEC:
 393         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 394             return FALSE;
 395
 396         msg_print(_("サンダー・ボルトの呪文を唱えた。", "You cast a lightning bolt."));
 397         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_ELEC), bmc_ptr->plev, DAM_ROLL);
 398         fire_bolt(caster_ptr, GF_ELEC, bmc_ptr->dir, bmc_ptr->damage);
 399         break;
 400     case MS_BOLT_FIRE:
 401         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 402             return FALSE;
 403
 404         msg_print(_("ファイア・ボルトの呪文を唱えた。", "You cast a fire bolt."));
 405         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_FIRE), bmc_ptr->plev, DAM_ROLL);
 406         fire_bolt(caster_ptr, GF_FIRE, bmc_ptr->dir, bmc_ptr->damage);
 407         break;
 408     case MS_BOLT_COLD:
 409         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 410             return FALSE;
 411
 412         msg_print(_("アイス・ボルトの呪文を唱えた。", "You cast a frost bolt."));
 413         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_COLD), bmc_ptr->plev, DAM_ROLL);
 414         fire_bolt(caster_ptr, GF_COLD, bmc_ptr->dir, bmc_ptr->damage);
 415         break;
 416     case MS_BOLT_NETHER:
 417         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 418             return FALSE;
 419
 420         msg_print(_("地獄の矢の呪文を唱えた。", "You cast a nether bolt."));
 421         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_NETHER), bmc_ptr->plev, DAM_ROLL);
 422         fire_bolt(caster_ptr, GF_NETHER, bmc_ptr->dir, bmc_ptr->damage);
 423         break;
 424     case MS_BOLT_WATER:
 425         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 426             return FALSE;
 427
 428         msg_print(_("ウォーター・ボルトの呪文を唱えた。", "You cast a water bolt."));
 429         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_WATER), bmc_ptr->plev, DAM_ROLL);
 430         fire_bolt(caster_ptr, GF_WATER, bmc_ptr->dir, bmc_ptr->damage);
 431         break;
 432     case MS_BOLT_MANA:
 433         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 434             return FALSE;
 435
 436         msg_print(_("魔力の矢の呪文を唱えた。", "You cast a mana bolt."));
 437         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_MANA), bmc_ptr->plev, DAM_ROLL);
 438         fire_bolt(caster_ptr, GF_MANA, bmc_ptr->dir, bmc_ptr->damage);
 439         break;
 440     case MS_BOLT_PLASMA:
 441         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 442             return FALSE;
 443
 444         msg_print(_("プラズマ・ボルトの呪文を唱えた。", "You cast a plasma bolt."));
 445         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_PLASMA), bmc_ptr->plev, DAM_ROLL);
 446         fire_bolt(caster_ptr, GF_PLASMA, bmc_ptr->dir, bmc_ptr->damage);
 447         break;
 448     case MS_BOLT_ICE:
 449         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 450             return FALSE;
 451
 452         msg_print(_("極寒の矢の呪文を唱えた。", "You cast a ice bolt."));
 453         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_BOLT_ICE), bmc_ptr->plev, DAM_ROLL);
 454         fire_bolt(caster_ptr, GF_ICE, bmc_ptr->dir, bmc_ptr->damage);
 455         break;
 456     case MS_MAGIC_MISSILE:
 457         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 458             return FALSE;
 459
 460         msg_print(_("マジック・ミサイルの呪文を唱えた。", "You cast a magic missile."));
 461         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_MAGIC_MISSILE), bmc_ptr->plev, DAM_ROLL);
 462         fire_bolt(caster_ptr, GF_MISSILE, bmc_ptr->dir, bmc_ptr->damage);
 463         break;
 464     case MS_SCARE:
 465         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 466             return FALSE;
 467
 468         msg_print(_("恐ろしげな幻覚を作り出した。", "You cast a fearful illusion."));
 469         fear_monster(caster_ptr, bmc_ptr->dir, bmc_ptr->plev + 10);
 470         break;
 471     case MS_BLIND:
 472         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 473             return FALSE;
 474
 475         confuse_monster(caster_ptr, bmc_ptr->dir, bmc_ptr->plev * 2);
 476         break;
 477     case MS_CONF:
 478         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 479             return FALSE;
 480
 481         msg_print(_("誘惑的な幻覚をつくり出した。", "You cast a mesmerizing illusion."));
 482         confuse_monster(caster_ptr, bmc_ptr->dir, bmc_ptr->plev * 2);
 483         break;
 484     case MS_SLOW:
 485         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 486             return FALSE;
 487
 488         slow_monster(caster_ptr, bmc_ptr->dir, bmc_ptr->plev);
 489         break;
 490     case MS_SLEEP:
 491         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 492             return FALSE;
 493
 494         sleep_monster(caster_ptr, bmc_ptr->dir, bmc_ptr->plev);
 495         break;
 496     case MS_SPEED:
 497         (void)set_fast(caster_ptr, randint1(20 + bmc_ptr->plev) + bmc_ptr->plev, FALSE);
 498         break;
 499     case MS_HAND_DOOM: {
 500         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 501             return FALSE;
 502
 503         msg_print(_("<破滅の手>を放った！", "You invoke the Hand of Doom!"));
 504         fire_ball_hide(caster_ptr, GF_HAND_DOOM, bmc_ptr->dir, bmc_ptr->plev * 3, 0);
 505         break;
 506     }
 507     case MS_HEAL:
 508         msg_print(_("自分の傷に念を集中した。", "You concentrate on your wounds!"));
 509         (void)hp_player(caster_ptr, bmc_ptr->plev * 4);
 510         (void)set_stun(caster_ptr, 0);
 511         (void)set_cut(caster_ptr, 0);
 512         break;
 513     case MS_INVULNER:
 514         msg_print(_("無傷の球の呪文を唱えた。", "You cast a Globe of Invulnerability."));
 515         (void)set_invuln(caster_ptr, randint1(4) + 4, FALSE);
 516         break;
 517     case MS_BLINK:
 518         teleport_player(caster_ptr, 10, TELEPORT_SPONTANEOUS);
 519         break;
 520     case MS_TELEPORT:
 521         teleport_player(caster_ptr, bmc_ptr->plev * 5, TELEPORT_SPONTANEOUS);
 522         break;
 523     case MS_WORLD:
 524         (void)time_walk(caster_ptr);
 525         break;
 526     case MS_SPECIAL:
 527         break;
 528     case MS_TELE_TO: {
 529         monster_type *m_ptr;
 530         monster_race *r_ptr;
 531         GAME_TEXT m_name[MAX_NLEN];
 532
 533         if (!target_set(caster_ptr, TARGET_KILL))
 534             return FALSE;
 535
 536         if (!floor_ptr->grid_array[target_row][target_col].m_idx)
 537             break;
 538
 539         if (!player_has_los_bold(caster_ptr, target_row, target_col))
 540             break;
 541
 542         if (!projectable(caster_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col))
 543             break;
 544
 545         m_ptr = &floor_ptr->m_list[floor_ptr->grid_array[target_row][target_col].m_idx];
 546         r_ptr = &r_info[m_ptr->r_idx];
 547         monster_desc(caster_ptr, m_name, m_ptr, 0);
 548         if (r_ptr->flagsr & RFR_RES_TELE) {
 549             if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flagsr & RFR_RES_ALL)) {
 550                 if (is_original_ap_and_seen(caster_ptr, m_ptr))
 551                     r_ptr->r_flagsr |= RFR_RES_TELE;
 552                 msg_format(_("%sには効果がなかった！", "%s is unaffected!"), m_name);
 553                 break;
 554             } else if (r_ptr->level > randint1(100)) {
 555                 if (is_original_ap_and_seen(caster_ptr, m_ptr))
 556                     r_ptr->r_flagsr |= RFR_RES_TELE;
 557                 msg_format(_("%sには耐性がある！", "%s resists!"), m_name);
 558                 break;
 559             }
 560         }
 561
 562         msg_format(_("%sを引き戻した。", "You command %s to return."), m_name);
 563         teleport_monster_to(caster_ptr, floor_ptr->grid_array[target_row][target_col].m_idx, caster_ptr->y, caster_ptr->x, 100, TELEPORT_PASSIVE);
 564         break;
 565     }
 566     case MS_TELE_AWAY:
 567         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 568             return FALSE;
 569
 570         (void)fire_beam(caster_ptr, GF_AWAY_ALL, bmc_ptr->dir, 100);
 571         break;
 572     case MS_TELE_LEVEL:
 573         return teleport_level_other(caster_ptr);
 574         break;
 575     case MS_PSY_SPEAR:
 576         if (!get_aim_dir(caster_ptr, &bmc_ptr->dir))
 577             return FALSE;
 578
 579         msg_print(_("光の剣を放った。", "You throw a psycho-spear."));
 580         bmc_ptr->damage = monspell_bluemage_damage(caster_ptr, (MS_PSY_SPEAR), bmc_ptr->plev, DAM_ROLL);
 581         (void)fire_beam(caster_ptr, GF_PSY_SPEAR, bmc_ptr->dir, bmc_ptr->damage);
 582         break;
 583     case MS_DARKNESS:
 584
 585         msg_print(_("暗闇の中で手を振った。", "You gesture in shadow."));
 586         (void)unlite_area(caster_ptr, 10, 3);
 587         break;
 588     case MS_MAKE_TRAP:
 589         if (!target_set(caster_ptr, TARGET_KILL))
 590             return FALSE;
 591
 592         msg_print(_("呪文を唱えて邪悪に微笑んだ。", "You cast a spell and cackle evilly."));
 593         trap_creation(caster_ptr, target_row, target_col);
 594         break;
 595     case MS_FORGET:
 596         msg_print(_("しかし何も起きなかった。", "Nothing happen."));
 597         break;
 598     case MS_RAISE_DEAD:
 599         msg_print(_("死者復活の呪文を唱えた。", "You animate the dead."));
 600         (void)animate_dead(caster_ptr, 0, caster_ptr->y, caster_ptr->x);
 601         break;
 602     case MS_S_KIN: {
 603         msg_print(_("援軍を召喚した。", "You summon one of your kin."));
 604         for (int k = 0; k < 1; k++) {
 605             if (summon_kin_player(caster_ptr, bmc_ptr->summon_lev, caster_ptr->y, caster_ptr->x, (bmc_ptr->pet ? PM_FORCE_PET : 0L))) {
 606                 if (!bmc_ptr->pet)
 607                     msg_print(_("召喚された仲間は怒っている！", "The summoned companion is angry!"));
 608             } else {
 609                 bmc_ptr->no_trump = TRUE;
 610             }
 611         }
 612
 613         break;
 614     }
 615     case MS_S_CYBER: {
 616         msg_print(_("サイバーデーモンを召喚した！", "You summon a Cyberdemon!"));
 617         for (int k = 0; k < 1; k++) {
 618             if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_CYBER, bmc_ptr->p_mode)) {
 619                 if (!bmc_ptr->pet)
 620                     msg_print(_("召喚されたサイバーデーモンは怒っている！", "The summoned Cyberdemon are angry!"));
 621             } else {
 622                 bmc_ptr->no_trump = TRUE;
 623             }
 624         }
 625
 626         break;
 627     }
 628     case MS_S_MONSTER: {
 629         msg_print(_("仲間を召喚した。", "You summon help."));
 630         for (int k = 0; k < 1; k++) {
 631             if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, 0, bmc_ptr->p_mode)) {
 632                 if (!bmc_ptr->pet)
 633                     msg_print(_("召喚されたモンスターは怒っている！", "The summoned monster is angry!"));
 634             } else {
 635                 bmc_ptr->no_trump = TRUE;
 636             }
 637         }
 638
 639         break;
 640     }
 641     case MS_S_MONSTERS: {
 642         msg_print(_("モンスターを召喚した！", "You summon monsters!"));
 643         for (int k = 0; k < bmc_ptr->plev / 15 + 2; k++) {
 644             if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, 0, (bmc_ptr->p_mode | bmc_ptr->u_mode))) {
 645                 if (!bmc_ptr->pet)
 646                     msg_print(_("召喚されたモンスターは怒っている！", "The summoned monsters are angry!"));
 647             } else {
 648                 bmc_ptr->no_trump = TRUE;
 649             }
 650         }
 651
 652         break;
 653     }
 654     case MS_S_ANT: {
 655         msg_print(_("アリを召喚した。", "You summon ants."));
 656         if (summon_specific(
 657                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_ANT, (PM_ALLOW_GROUP | bmc_ptr->p_mode))) {
 658             if (!bmc_ptr->pet)
 659                 msg_print(_("召喚されたアリは怒っている！", "The summoned ants are angry!"));
 660         } else {
 661             bmc_ptr->no_trump = TRUE;
 662         }
 663
 664         break;
 665     }
 666     case MS_S_SPIDER: {
 667         msg_print(_("蜘蛛を召喚した。", "You summon spiders."));
 668         if (summon_specific(
 669                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_SPIDER, (PM_ALLOW_GROUP | bmc_ptr->p_mode))) {
 670             if (!bmc_ptr->pet)
 671                 msg_print(_("召喚された蜘蛛は怒っている！", "Summoned spiders are angry!"));
 672         } else {
 673             bmc_ptr->no_trump = TRUE;
 674         }
 675
 676         break;
 677     }
 678     case MS_S_HOUND: {
 679         msg_print(_("ハウンドを召喚した。", "You summon hounds."));
 680         if (summon_specific(
 681                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_HOUND, (PM_ALLOW_GROUP | bmc_ptr->p_mode))) {
 682             if (!bmc_ptr->pet)
 683                 msg_print(_("召喚されたハウンドは怒っている！", "Summoned hounds are angry!"));
 684         } else {
 685             bmc_ptr->no_trump = TRUE;
 686         }
 687
 688         break;
 689     }
 690     case MS_S_HYDRA: {
 691         msg_print(_("ヒドラを召喚した。", "You summon a hydras."));
 692         if (summon_specific(
 693                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_HYDRA, (bmc_ptr->g_mode | bmc_ptr->p_mode))) {
 694             if (!bmc_ptr->pet)
 695                 msg_print(_("召喚されたヒドラは怒っている！", "Summoned hydras are angry!"));
 696         } else {
 697             bmc_ptr->no_trump = TRUE;
 698         }
 699
 700         break;
 701     }
 702     case MS_S_ANGEL: {
 703         msg_print(_("天使を召喚した！", "You summon an angel!"));
 704         if (summon_specific(
 705                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_ANGEL, (bmc_ptr->g_mode | bmc_ptr->p_mode))) {
 706             if (!bmc_ptr->pet)
 707                 msg_print(_("召喚された天使は怒っている！", "The summoned angel is angry!"));
 708         } else {
 709             bmc_ptr->no_trump = TRUE;
 710         }
 711
 712         break;
 713     }
 714     case MS_S_DEMON: {
 715         msg_print(_("混沌の宮廷から悪魔を召喚した！", "You summon a demon from the Courts of Chaos!"));
 716         if (summon_specific(
 717                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_DEMON, (bmc_ptr->g_mode | bmc_ptr->p_mode))) {
 718             if (!bmc_ptr->pet)
 719                 msg_print(_("召喚されたデーモンは怒っている！", "The summoned demon is angry!"));
 720         } else {
 721             bmc_ptr->no_trump = TRUE;
 722         }
 723
 724         break;
 725     }
 726     case MS_S_UNDEAD: {
 727         msg_print(_("アンデッドの強敵を召喚した！", "You summon an undead adversary!"));
 728         if (summon_specific(
 729                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_UNDEAD, (bmc_ptr->g_mode | bmc_ptr->p_mode))) {
 730             if (!bmc_ptr->pet)
 731                 msg_print(_("召喚されたアンデッドは怒っている！", "The summoned undead is angry!"));
 732         } else {
 733             bmc_ptr->no_trump = TRUE;
 734         }
 735
 736         break;
 737     }
 738     case MS_S_DRAGON: {
 739         msg_print(_("ドラゴンを召喚した！", "You summon a dragon!"));
 740         if (summon_specific(
 741                 caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_DRAGON, (bmc_ptr->g_mode | bmc_ptr->p_mode))) {
 742             if (!bmc_ptr->pet)
 743                 msg_print(_("召喚されたドラゴンは怒っている！", "The summoned dragon is angry!"));
 744         } else {
 745             bmc_ptr->no_trump = TRUE;
 746         }
 747
 748         break;
 749     }
 750     case MS_S_HI_UNDEAD: {
 751         msg_print(_("強力なアンデッドを召喚した！", "You summon a greater undead!"));
 752         if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_HI_UNDEAD,
 753                 (bmc_ptr->g_mode | bmc_ptr->p_mode | bmc_ptr->u_mode))) {
 754             if (!bmc_ptr->pet)
 755                 msg_print(_("召喚された上級アンデッドは怒っている！", "The summoned greater undead is angry!"));
 756         } else {
 757             bmc_ptr->no_trump = TRUE;
 758         }
 759
 760         break;
 761     }
 762     case MS_S_HI_DRAGON: {
 763         msg_print(_("古代ドラゴンを召喚した！", "You summon an ancient dragon!"));
 764         if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_HI_DRAGON,
 765                 (bmc_ptr->g_mode | bmc_ptr->p_mode | bmc_ptr->u_mode))) {
 766             if (!bmc_ptr->pet)
 767                 msg_print(_("召喚された古代ドラゴンは怒っている！", "The summoned ancient dragon is angry!"));
 768         } else {
 769             bmc_ptr->no_trump = TRUE;
 770         }
 771
 772         break;
 773     }
 774     case MS_S_AMBERITE: {
 775         msg_print(_("アンバーの王族を召喚した！", "You summon a Lord of Amber!"));
 776         if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_AMBERITES,
 777                 (bmc_ptr->g_mode | bmc_ptr->p_mode | bmc_ptr->u_mode))) {
 778             if (!bmc_ptr->pet)
 779                 msg_print(_("召喚されたアンバーの王族は怒っている！", "The summoned Lord of Amber is angry!"));
 780         } else {
 781             bmc_ptr->no_trump = TRUE;
 782         }
 783
 784         break;
 785     }
 786     case MS_S_UNIQUE: {
 787         int count = 0;
 788         msg_print(_("特別な強敵を召喚した！", "You summon a special opponent!"));
 789         for (int k = 0; k < 1; k++) {
 790             if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_UNIQUE,
 791                     (bmc_ptr->g_mode | bmc_ptr->p_mode | PM_ALLOW_UNIQUE))) {
 792                 count++;
 793                 if (!bmc_ptr->pet)
 794                     msg_print(_("召喚されたユニーク・モンスターは怒っている！", "The summoned special opponent is angry!"));
 795             }
 796         }
 797
 798         for (int k = count; k < 1; k++) {
 799             if (summon_specific(caster_ptr, (bmc_ptr->pet ? -1 : 0), caster_ptr->y, caster_ptr->x, bmc_ptr->summon_lev, SUMMON_HI_UNDEAD,
 800                     (bmc_ptr->g_mode | bmc_ptr->p_mode | PM_ALLOW_UNIQUE))) {
 801                 count++;
 802                 if (!bmc_ptr->pet)
 803                     msg_print(_("召喚された上級アンデッドは怒っている！", "The summoned greater undead is angry!"));
 804             }
 805         }
 806
 807         if (!count)
 808             bmc_ptr->no_trump = TRUE;
 809
 810         break;
 811     }
 812     default:
 813         msg_print("hoge?");
 814     }
 815
 816     if (bmc_ptr->no_trump)
 817         msg_print(_("何も現れなかった。", "No one appeared."));
 818
 819     return TRUE;
 820 }