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