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

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