src/realm/realm-hex.c

   1 /*!
   2  * @brief 呪術の処理実装 / Hex code
   3  * @date 2014/01/14
   4  * @author
   5  * 2014 Deskull rearranged comment for Doxygen.\n
   6  * @details
   7  * magic_num1\n
   8  * 0: Flag bits of spelling spells\n
   9  * 1: Flag bits of despelled spells\n
  10  * 2: Revange damage\n
  11  * magic_num2\n
  12  * 0: Number of spelling spells\n
  13  * 1: Type of revenge\n
  14  * 2: Turn count for revenge\n
  15  */
  16
  17 #include "realm/realm-hex.h"
  18 #include "cmd-action/cmd-spell.h"
  19 #include "cmd-item/cmd-quaff.h"
  20 #include "core/asking-player.h"
  21 #include "core/player-redraw-types.h"
  22 #include "core/player-update-types.h"
  23 #include "effect/effect-characteristics.h"
  24 #include "effect/effect-processor.h"
  25 #include "flavor/flavor-describer.h"
  26 #include "flavor/object-flavor-types.h"
  27 #include "floor/cave.h"
  28 #include "floor/floor-object.h"
  29 #include "grid/grid.h"
  30 #include "inventory/inventory-slot-types.h"
  31 #include "io/input-key-requester.h"
  32 #include "monster-race/monster-race.h"
  33 #include "object-enchant/object-curse.h"
  34 #include "object-enchant/tr-types.h"
  35 #include "object-enchant/trc-types.h"
  36 #include "object-hook/hook-armor.h"
  37 #include "object-hook/hook-checker.h"
  38 #include "object-hook/hook-enchant.h"
  39 #include "object/item-tester-hooker.h"
  40 #include "object/item-use-flags.h"
  41 #include "object/object-flags.h"
  42 #include "player/attack-defense-types.h"
  43 #include "player/player-skill.h"
  44 #include "player/player-status.h"
  45 #include "realm/realm-hex-numbers.h"
  46 #include "spell-kind/magic-item-recharger.h"
  47 #include "spell-kind/spells-launcher.h"
  48 #include "spell-kind/spells-neighbor.h"
  49 #include "spell-kind/spells-sight.h"
  50 #include "spell-kind/spells-teleport.h"
  51 #include "spell-realm/spells-hex.h"
  52 #include "spell/spell-types.h"
  53 #include "spell/spells-execution.h"
  54 #include "spell/spells-status.h"
  55 #include "spell/technic-info-table.h"
  56 #include "status/action-setter.h"
  57 #include "system/floor-type-definition.h"
  58 #include "target/grid-selector.h"
  59 #include "target/target-getter.h"
  60 #include "term/screen-processor.h"
  61 #include "util/bit-flags-calculator.h"
  62 #include "view/display-messages.h"
  63 #include "world/world.h"
  64
  65 /*!
  66  * @brief 呪術領域の武器呪縛の対象にできる武器かどうかを返す。 / An "item_tester_hook" for offer
  67  * @param o_ptr オブジェクト構造体の参照ポインタ
  68  * @return 呪縛可能な武器ならばTRUEを返す
  69  */
  70 static bool item_tester_hook_weapon_except_bow(player_type *player_ptr, object_type *o_ptr)
  71 {
  72     /* Unused */
  73     (void)player_ptr;
  74
  75     switch (o_ptr->tval) {
  76     case TV_SWORD:
  77     case TV_HAFTED:
  78     case TV_POLEARM:
  79     case TV_DIGGING: {
  80         return TRUE;
  81     }
  82     }
  83
  84     return FALSE;
  85 }
  86
  87 /*!
  88  * @brief 呪術領域魔法の各処理を行う
  89  * @param spell 魔法ID
  90  * @param mode 処理内容 (SPELL_NAME / SPELL_DESC / SPELL_INFO / SPELL_CAST / SPELL_CONT / SPELL_STOP)
  91  * @return SPELL_NAME / SPELL_DESC / SPELL_INFO 時には文字列ポインタを返す。SPELL_CAST / SPELL_CONT / SPELL_STOP 時はNULL文字列を返す。
  92  */
  93 concptr do_hex_spell(player_type *caster_ptr, SPELL_IDX spell, spell_type mode)
  94 {
  95     bool name = (mode == SPELL_NAME) ? TRUE : FALSE;
  96     bool desc = (mode == SPELL_DESC) ? TRUE : FALSE;
  97     bool info = (mode == SPELL_INFO) ? TRUE : FALSE;
  98     bool cast = (mode == SPELL_CAST) ? TRUE : FALSE;
  99     bool cont = (mode == SPELL_CONT) ? TRUE : FALSE;
 100     bool stop = (mode == SPELL_STOP) ? TRUE : FALSE;
 101
 102     bool add = TRUE;
 103
 104     PLAYER_LEVEL plev = caster_ptr->lev;
 105     HIT_POINT power;
 106
 107     switch (spell) {
 108         /*** 1st book (0-7) ***/
 109     case 0:
 110         if (name)
 111             return _("邪なる祝福", "Evily blessing");
 112         if (desc)
 113             return _("祝福により攻撃精度と防御力が上がる。", "Attempts to increase +to_hit of a weapon and AC");
 114         if (cast) {
 115             if (!caster_ptr->blessed) {
 116                 msg_print(_("高潔な気分になった！", "You feel righteous!"));
 117             }
 118         }
 119         if (stop) {
 120             if (!caster_ptr->blessed) {
 121                 msg_print(_("高潔な気分が消え失せた。", "The prayer has expired."));
 122             }
 123         }
 124         break;
 125
 126     case 1:
 127         if (name)
 128             return _("軽傷の治癒", "Cure light wounds");
 129         if (desc)
 130             return _("HPや傷を少し回復させる。", "Heals cuts and HP a little.");
 131         if (info)
 132             return info_heal(1, 10, 0);
 133         if (cast) {
 134             msg_print(_("気分が良くなってくる。", "You feel a little better."));
 135         }
 136         if (cast || cont)
 137             (void)cure_light_wounds(caster_ptr, 1, 10);
 138         break;
 139
 140     case 2:
 141         if (name)
 142             return _("悪魔のオーラ", "Demonic aura");
 143         if (desc)
 144             return _("炎のオーラを身にまとい、回復速度が速くなる。", "Gives fire aura and regeneration.");
 145         if (cast) {
 146             msg_print(_("体が炎のオーラで覆われた。", "You are enveloped by a fiery aura!"));
 147         }
 148         if (stop) {
 149             msg_print(_("炎のオーラが消え去った。", "The fiery aura disappeared."));
 150         }
 151         break;
 152
 153     case 3:
 154         if (name)
 155             return _("悪臭霧", "Stinking mist");
 156         if (desc)
 157             return _("視界内のモンスターに微弱量の毒のダメージを与える。", "Deals a little poison damage to all monsters in your sight.");
 158         power = plev / 2 + 5;
 159         if (info)
 160             return info_damage(1, power, 0);
 161         if (cast || cont) {
 162             project_all_los(caster_ptr, GF_POIS, randint1(power));
 163         }
 164         break;
 165
 166     case 4:
 167         if (name)
 168             return _("腕力強化", "Extra might");
 169         if (desc)
 170             return _("術者の腕力を上昇させる。", "Attempts to increase your strength.");
 171         if (cast) {
 172             msg_print(_("何だか力が湧いて来る。", "You feel stronger."));
 173         }
 174         break;
 175
 176     case 5:
 177         if (name)
 178             return _("武器呪縛", "Curse weapon");
 179         if (desc)
 180             return _("装備している武器を呪う。", "Curses your weapon.");
 181         if (cast) {
 182             OBJECT_IDX item;
 183             concptr q, s;
 184             GAME_TEXT o_name[MAX_NLEN];
 185             object_type *o_ptr;
 186             u32b f[TR_FLAG_SIZE];
 187
 188             item_tester_hook = item_tester_hook_weapon_except_bow;
 189             q = _("どれを呪いますか？", "Which weapon do you curse?");
 190             s = _("武器を装備していない。", "You're not wielding a weapon.");
 191
 192             o_ptr = choose_object(caster_ptr, &item, q, s, (USE_EQUIP), 0);
 193             if (!o_ptr)
 194                 return FALSE;
 195
 196             describe_flavor(caster_ptr, o_name, o_ptr, OD_NAME_ONLY);
 197             object_flags(caster_ptr, o_ptr, f);
 198
 199             if (!get_check(format(_("本当に %s を呪いますか？", "Do you curse %s, really？"), o_name)))
 200                 return FALSE;
 201
 202             if (!one_in_(3) && (object_is_artifact(o_ptr) || have_flag(f, TR_BLESSED))) {
 203                 msg_format(_("%s は呪いを跳ね返した。", "%s resists the effect."), o_name);
 204                 if (one_in_(3)) {
 205                     if (o_ptr->to_d > 0) {
 206                         o_ptr->to_d -= randint1(3) % 2;
 207                         if (o_ptr->to_d < 0)
 208                             o_ptr->to_d = 0;
 209                     }
 210                     if (o_ptr->to_h > 0) {
 211                         o_ptr->to_h -= randint1(3) % 2;
 212                         if (o_ptr->to_h < 0)
 213                             o_ptr->to_h = 0;
 214                     }
 215                     if (o_ptr->to_a > 0) {
 216                         o_ptr->to_a -= randint1(3) % 2;
 217                         if (o_ptr->to_a < 0)
 218                             o_ptr->to_a = 0;
 219                     }
 220                     msg_format(_("%s は劣化してしまった。", "Your %s was disenchanted!"), o_name);
 221                 }
 222             } else {
 223                 int curse_rank = 0;
 224                 msg_format(_("恐怖の暗黒オーラがあなたの%sを包み込んだ！", "A terrible black aura blasts your %s!"), o_name);
 225                 o_ptr->curse_flags |= (TRC_CURSED);
 226
 227                 if (object_is_artifact(o_ptr) || object_is_ego(o_ptr)) {
 228
 229                     if (one_in_(3))
 230                         o_ptr->curse_flags |= (TRC_HEAVY_CURSE);
 231                     if (one_in_(666)) {
 232                         o_ptr->curse_flags |= (TRC_TY_CURSE);
 233                         if (one_in_(666))
 234                             o_ptr->curse_flags |= (TRC_PERMA_CURSE);
 235
 236                         add_flag(o_ptr->art_flags, TR_AGGRAVATE);
 237                         add_flag(o_ptr->art_flags, TR_VORPAL);
 238                         add_flag(o_ptr->art_flags, TR_VAMPIRIC);
 239                         msg_print(_("血だ！血だ！血だ！", "Blood, Blood, Blood!"));
 240                         curse_rank = 2;
 241                     }
 242                 }
 243
 244                 o_ptr->curse_flags |= get_curse(caster_ptr, curse_rank, o_ptr);
 245             }
 246
 247             caster_ptr->update |= (PU_BONUS);
 248             add = FALSE;
 249         }
 250         break;
 251
 252     case 6:
 253         if (name)
 254             return _("邪悪感知", "Evil detection");
 255         if (desc)
 256             return _("周囲の邪悪なモンスターを感知する。", "Detects evil monsters.");
 257         if (info)
 258             return info_range(MAX_SIGHT);
 259         if (cast) {
 260             msg_print(_("邪悪な生物の存在を感じ取ろうとした。", "You sense the presence of evil creatures."));
 261         }
 262         break;
 263
 264     case 7:
 265         if (name)
 266             return _("我慢", "Patience");
 267         if (desc)
 268             return _(
 269                 "数ターン攻撃を耐えた後、受けたダメージを地獄の業火として周囲に放出する。", "Bursts hell fire strongly after enduring damage for a few turns.");
 270         power = MIN(200, (hex_revenge_power(caster_ptr) * 2));
 271         if (info)
 272             return info_damage(0, 0, power);
 273         if (cast) {
 274             int a = 3 - (caster_ptr->pspeed - 100) / 10;
 275             MAGIC_NUM2 r = 3 + randint1(3) + MAX(0, MIN(3, a));
 276
 277             if (hex_revenge_turn(caster_ptr) > 0) {
 278                 msg_print(_("すでに我慢をしている。", "You are already biding your time for vengeance."));
 279                 return NULL;
 280             }
 281
 282             hex_revenge_type(caster_ptr) = 1;
 283             hex_revenge_turn(caster_ptr) = r;
 284             hex_revenge_power(caster_ptr) = 0;
 285             msg_print(_("じっと耐えることにした。", "You decide to endure damage for future retribution."));
 286             add = FALSE;
 287         }
 288         if (cont) {
 289             POSITION rad = 2 + (power / 50);
 290
 291             hex_revenge_turn(caster_ptr)--;
 292
 293             if ((hex_revenge_turn(caster_ptr) <= 0) || (power >= 200)) {
 294                 msg_print(_("我慢が解かれた！", "My patience is at an end!"));
 295                 if (power) {
 296                     project(
 297                         caster_ptr, 0, rad, caster_ptr->y, caster_ptr->x, power, GF_HELL_FIRE, (PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL), -1);
 298                 }
 299                 if (current_world_ptr->wizard) {
 300                     msg_format(_("%d点のダメージを返した。", "You return %d damage."), power);
 301                 }
 302
 303                 /* Reset */
 304                 hex_revenge_type(caster_ptr) = 0;
 305                 hex_revenge_turn(caster_ptr) = 0;
 306                 hex_revenge_power(caster_ptr) = 0;
 307             }
 308         }
 309         break;
 310
 311         /*** 2nd book (8-15) ***/
 312     case 8:
 313         if (name)
 314             return _("氷の鎧", "Armor of ice");
 315         if (desc)
 316             return _("氷のオーラを身にまとい、防御力が上昇する。", "Surrounds you with an icy aura and gives a bonus to AC.");
 317         if (cast) {
 318             msg_print(_("体が氷の鎧で覆われた。", "You are enveloped by icy armor!"));
 319         }
 320         if (stop) {
 321             msg_print(_("氷の鎧が消え去った。", "The icy armor disappeared."));
 322         }
 323         break;
 324
 325     case 9:
 326         if (name)
 327             return _("重傷の治癒", "Cure serious wounds");
 328         if (desc)
 329             return _("体力や傷を多少回復させる。", "Heals cuts and HP.");
 330         if (info)
 331             return info_heal(2, 10, 0);
 332         if (cast) {
 333             msg_print(_("気分が良くなってくる。", "You feel better."));
 334         }
 335         if (cast || cont)
 336             (void)cure_serious_wounds(caster_ptr, 2, 10);
 337         break;
 338
 339     case 10:
 340         if (name)
 341             return _("薬品吸入", "Inhale potion");
 342         if (desc)
 343             return _("呪文詠唱を中止することなく、薬の効果を得ることができる。", "Quaffs a potion without canceling spell casting.");
 344         if (cast) {
 345             casting_hex_flags(caster_ptr) |= (1L << HEX_INHAIL);
 346             do_cmd_quaff_potion(caster_ptr);
 347             casting_hex_flags(caster_ptr) &= ~(1L << HEX_INHAIL);
 348             add = FALSE;
 349         }
 350         break;
 351
 352     case 11:
 353         if (name)
 354             return _("衰弱の霧", "Hypodynamic mist");
 355         if (desc)
 356             return _("視界内のモンスターに微弱量の衰弱属性のダメージを与える。", "Deals a little life-draining damage to all monsters in your sight.");
 357         power = (plev / 2) + 5;
 358         if (info)
 359             return info_damage(1, power, 0);
 360         if (cast || cont) {
 361             project_all_los(caster_ptr, GF_HYPODYNAMIA, randint1(power));
 362         }
 363         break;
 364
 365     case 12:
 366         if (name)
 367             return _("魔剣化", "Swords to runeswords");
 368         if (desc)
 369             return _("武器の攻撃力を上げる。切れ味を得、呪いに応じて与えるダメージが上昇し、善良なモンスターに対するダメージが2倍になる。",
 370                 "Gives vorpal ability to your weapon. Increases damage from your weapon acccording to curse of your weapon.");
 371         if (cast) {
 372 #ifdef JP
 373             msg_print("あなたの武器が黒く輝いた。");
 374 #else
 375             if (!empty_hands(caster_ptr, FALSE))
 376                 msg_print("Your weapons glow bright black.");
 377             else
 378                 msg_print("Your weapon glows bright black.");
 379 #endif
 380         }
 381         if (stop) {
 382 #ifdef JP
 383             msg_print("武器の輝きが消え去った。");
 384 #else
 385             msg_format("Your weapon%s.", (empty_hands(caster_ptr, FALSE)) ? " no longer glows" : "s no longer glow");
 386 #endif
 387         }
 388         break;
 389
 390     case 13:
 391         if (name)
 392             return _("混乱の手", "Touch of confusion");
 393         if (desc)
 394             return _("攻撃した際モンスターを混乱させる。", "Confuses a monster when you attack.");
 395         if (cast) {
 396             msg_print(_("あなたの手が赤く輝き始めた。", "Your hands glow bright red."));
 397         }
 398         if (stop) {
 399             msg_print(_("手の輝きがなくなった。", "Your hands no longer glow."));
 400         }
 401         break;
 402
 403     case 14:
 404         if (name)
 405             return _("肉体強化", "Building up");
 406         if (desc)
 407             return _(
 408                 "術者の腕力、器用さ、耐久力を上昇させる。攻撃回数の上限を 1 増加させる。", "Attempts to increases your strength, dexterity and constitusion.");
 409         if (cast) {
 410             msg_print(_("身体が強くなった気がした。", "You feel your body is more developed now."));
 411         }
 412         break;
 413
 414     case 15:
 415         if (name)
 416             return _("反テレポート結界", "Anti teleport barrier");
 417         if (desc)
 418             return _("視界内のモンスターのテレポートを阻害するバリアを張る。", "Obstructs all teleportations by monsters in your sight.");
 419         power = plev * 3 / 2;
 420         if (info)
 421             return info_power(power);
 422         if (cast) {
 423             msg_print(_("テレポートを防ぐ呪いをかけた。", "You feel anyone can not teleport except you."));
 424         }
 425         break;
 426
 427         /*** 3rd book (16-23) ***/
 428     case 16:
 429         if (name)
 430             return _("衝撃のクローク", "Cloak of shock");
 431         if (desc)
 432             return _("電気のオーラを身にまとい、動きが速くなる。", "Gives lightning aura and a bonus to speed.");
 433         if (cast) {
 434             msg_print(_("体が稲妻のオーラで覆われた。", "You are enveloped by an electrical aura!"));
 435         }
 436         if (stop) {
 437             msg_print(_("稲妻のオーラが消え去った。", "The electrical aura disappeared."));
 438         }
 439         break;
 440
 441     case 17:
 442         if (name)
 443             return _("致命傷の治癒", "Cure critical wounds");
 444         if (desc)
 445             return _("体力や傷を回復させる。", "Heals cuts and HP greatly.");
 446         if (info)
 447             return info_heal(4, 10, 0);
 448         if (cast) {
 449             msg_print(_("気分が良くなってくる。", "You feel much better."));
 450         }
 451         if (cast || cont)
 452             (void)cure_critical_wounds(caster_ptr, damroll(4, 10));
 453         break;
 454
 455     case 18:
 456         if (name)
 457             return _("呪力封入", "Recharging");
 458         if (desc)
 459             return _("魔法の道具に魔力を再充填する。", "Recharges a magic device.");
 460         power = plev * 2;
 461         if (info)
 462             return info_power(power);
 463         if (cast) {
 464             if (!recharge(caster_ptr, power))
 465                 return NULL;
 466             add = FALSE;
 467         }
 468         break;
 469
 470     case 19:
 471         if (name)
 472             return _("死者復活", "Animate Dead");
 473         if (desc)
 474             return _("死体を蘇らせてペットにする。", "Raises corpses and skeletons from dead.");
 475         if (cast) {
 476             msg_print(_("死者への呼びかけを始めた。", "You start to call the dead.!"));
 477         }
 478         if (cast || cont) {
 479             animate_dead(caster_ptr, 0, caster_ptr->y, caster_ptr->x);
 480         }
 481         break;
 482
 483     case 20:
 484         if (name)
 485             return _("防具呪縛", "Curse armor");
 486         if (desc)
 487             return _("装備している防具に呪いをかける。", "Curse a piece of armour that you wielding.");
 488         if (cast) {
 489             OBJECT_IDX item;
 490             concptr q, s;
 491             GAME_TEXT o_name[MAX_NLEN];
 492             object_type *o_ptr;
 493             u32b f[TR_FLAG_SIZE];
 494
 495             item_tester_hook = object_is_armour;
 496             q = _("どれを呪いますか？", "Which piece of armour do you curse?");
 497             s = _("防具を装備していない。", "You're not wearing any armor.");
 498
 499             o_ptr = choose_object(caster_ptr, &item, q, s, (USE_EQUIP), 0);
 500             if (!o_ptr)
 501                 return FALSE;
 502
 503             o_ptr = &caster_ptr->inventory_list[item];
 504             describe_flavor(caster_ptr, o_name, o_ptr, OD_NAME_ONLY);
 505             object_flags(caster_ptr, o_ptr, f);
 506
 507             if (!get_check(format(_("本当に %s を呪いますか？", "Do you curse %s, really？"), o_name)))
 508                 return FALSE;
 509
 510             if (!one_in_(3) && (object_is_artifact(o_ptr) || have_flag(f, TR_BLESSED))) {
 511                 msg_format(_("%s は呪いを跳ね返した。", "%s resists the effect."), o_name);
 512                 if (one_in_(3)) {
 513                     if (o_ptr->to_d > 0) {
 514                         o_ptr->to_d -= randint1(3) % 2;
 515                         if (o_ptr->to_d < 0)
 516                             o_ptr->to_d = 0;
 517                     }
 518                     if (o_ptr->to_h > 0) {
 519                         o_ptr->to_h -= randint1(3) % 2;
 520                         if (o_ptr->to_h < 0)
 521                             o_ptr->to_h = 0;
 522                     }
 523                     if (o_ptr->to_a > 0) {
 524                         o_ptr->to_a -= randint1(3) % 2;
 525                         if (o_ptr->to_a < 0)
 526                             o_ptr->to_a = 0;
 527                     }
 528                     msg_format(_("%s は劣化してしまった。", "Your %s was disenchanted!"), o_name);
 529                 }
 530             } else {
 531                 int curse_rank = 0;
 532                 msg_format(_("恐怖の暗黒オーラがあなたの%sを包み込んだ！", "A terrible black aura blasts your %s!"), o_name);
 533                 o_ptr->curse_flags |= (TRC_CURSED);
 534
 535                 if (object_is_artifact(o_ptr) || object_is_ego(o_ptr)) {
 536
 537                     if (one_in_(3))
 538                         o_ptr->curse_flags |= (TRC_HEAVY_CURSE);
 539                     if (one_in_(666)) {
 540                         o_ptr->curse_flags |= (TRC_TY_CURSE);
 541                         if (one_in_(666))
 542                             o_ptr->curse_flags |= (TRC_PERMA_CURSE);
 543
 544                         add_flag(o_ptr->art_flags, TR_AGGRAVATE);
 545                         add_flag(o_ptr->art_flags, TR_RES_POIS);
 546                         add_flag(o_ptr->art_flags, TR_RES_DARK);
 547                         add_flag(o_ptr->art_flags, TR_RES_NETHER);
 548                         msg_print(_("血だ！血だ！血だ！", "Blood, Blood, Blood!"));
 549                         curse_rank = 2;
 550                     }
 551                 }
 552
 553                 o_ptr->curse_flags |= get_curse(caster_ptr, curse_rank, o_ptr);
 554             }
 555
 556             caster_ptr->update |= (PU_BONUS);
 557             add = FALSE;
 558         }
 559         break;
 560
 561     case 21:
 562         if (name)
 563             return _("影のクローク", "Cloak of shadow");
 564         if (desc)
 565             return _("影のオーラを身にまとい、敵に影のダメージを与える。", "Gives aura of shadow.");
 566         if (cast) {
 567             object_type *o_ptr = &caster_ptr->inventory_list[INVEN_OUTER];
 568
 569             if (!o_ptr->k_idx) {
 570                 msg_print(_("クロークを身につけていない！", "You are not wearing a cloak."));
 571                 return NULL;
 572             } else if (!object_is_cursed(o_ptr)) {
 573                 msg_print(_("クロークは呪われていない！", "Your cloak is not cursed."));
 574                 return NULL;
 575             } else {
 576                 msg_print(_("影のオーラを身にまとった。", "You are enveloped by a shadowy aura!"));
 577             }
 578         }
 579         if (cont) {
 580             object_type *o_ptr = &caster_ptr->inventory_list[INVEN_OUTER];
 581
 582             if ((!o_ptr->k_idx) || (!object_is_cursed(o_ptr))) {
 583                 exe_spell(caster_ptr, REALM_HEX, spell, SPELL_STOP);
 584                 casting_hex_flags(caster_ptr) &= ~(1L << spell);
 585                 casting_hex_num(caster_ptr)--;
 586                 if (!SINGING_SONG_ID(caster_ptr))
 587                     set_action(caster_ptr, ACTION_NONE);
 588             }
 589         }
 590         if (stop) {
 591             msg_print(_("影のオーラが消え去った。", "The shadowy aura disappeared."));
 592         }
 593         break;
 594
 595     case 22:
 596         if (name)
 597             return _("苦痛を魔力に", "Pain to mana");
 598         if (desc)
 599             return _("視界内のモンスターに精神ダメージ与え、魔力を吸い取る。", "Deals psychic damage to all monsters in sight and drains some mana.");
 600         power = plev * 3 / 2;
 601         if (info)
 602             return info_damage(1, power, 0);
 603         if (cast || cont) {
 604             project_all_los(caster_ptr, GF_PSI_DRAIN, randint1(power));
 605         }
 606         break;
 607
 608     case 23:
 609         if (name)
 610             return _("目には目を", "Eye for an eye");
 611         if (desc)
 612             return _("打撃や魔法で受けたダメージを、攻撃元のモンスターにも与える。", "Returns same damage which you got to the monster which damaged you.");
 613         if (cast) {
 614             msg_print(_("復讐したい欲望にかられた。", "You feel very vengeful."));
 615         }
 616         break;
 617
 618         /*** 4th book (24-31) ***/
 619     case 24:
 620         if (name)
 621             return _("反増殖結界", "Anti multiply barrier");
 622         if (desc)
 623             return _("その階の増殖するモンスターの増殖を阻止する。", "Obstructs all multiplying by monsters in entire floor.");
 624         if (cast) {
 625             msg_print(_("増殖を阻止する呪いをかけた。", "You feel anyone can not already multiply."));
 626         }
 627         break;
 628
 629     case 25:
 630         if (name)
 631             return _("全復活", "Restoration");
 632         if (desc)
 633             return _("経験値を徐々に復活し、減少した能力値を回復させる。", "Restores experience and status.");
 634         if (cast) {
 635             msg_print(_("体が元の活力を取り戻し始めた。", "You feel your lost status starting to return."));
 636         }
 637         if (cast || cont) {
 638             bool flag = FALSE;
 639             int d = (caster_ptr->max_exp - caster_ptr->exp);
 640             int r = (caster_ptr->exp / 20);
 641             int i;
 642
 643             if (d > 0) {
 644                 if (d < r)
 645                     caster_ptr->exp = caster_ptr->max_exp;
 646                 else
 647                     caster_ptr->exp += r;
 648
 649                 /* Check the experience */
 650                 check_experience(caster_ptr);
 651
 652                 flag = TRUE;
 653             }
 654             for (i = A_STR; i < A_MAX; i++) {
 655                 if (caster_ptr->stat_cur[i] < caster_ptr->stat_max[i]) {
 656                     if (caster_ptr->stat_cur[i] < 18)
 657                         caster_ptr->stat_cur[i]++;
 658                     else
 659                         caster_ptr->stat_cur[i] += 10;
 660
 661                     if (caster_ptr->stat_cur[i] > caster_ptr->stat_max[i])
 662                         caster_ptr->stat_cur[i] = caster_ptr->stat_max[i];
 663                     caster_ptr->update |= (PU_BONUS);
 664
 665                     flag = TRUE;
 666                 }
 667             }
 668
 669             if (!flag) {
 670                 msg_format(_("%sの呪文の詠唱をやめた。", "Finish casting '%^s'."), exe_spell(caster_ptr, REALM_HEX, HEX_RESTORE, SPELL_NAME));
 671                 casting_hex_flags(caster_ptr) &= ~(1L << HEX_RESTORE);
 672                 if (cont)
 673                     casting_hex_num(caster_ptr)--;
 674                 if (casting_hex_num(caster_ptr))
 675                     caster_ptr->action = ACTION_NONE;
 676
 677                 caster_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS);
 678                 caster_ptr->redraw |= (PR_EXTRA);
 679
 680                 return "";
 681             }
 682         }
 683         break;
 684
 685     case 26:
 686         if (name)
 687             return _("呪力吸収", "Drain curse power");
 688         if (desc)
 689             return _("呪われた武器の呪いを吸収して魔力を回復する。", "Drains curse on your weapon and heals SP a little.");
 690         if (cast) {
 691             OBJECT_IDX item;
 692             concptr s, q;
 693             u32b f[TR_FLAG_SIZE];
 694             object_type *o_ptr;
 695
 696             item_tester_hook = item_tester_hook_cursed;
 697             q = _("どの装備品から吸収しますか？", "Which cursed equipment do you drain mana from?");
 698             s = _("呪われたアイテムを装備していない。", "You have no cursed equipment.");
 699
 700             o_ptr = choose_object(caster_ptr, &item, q, s, (USE_EQUIP), 0);
 701             if (!o_ptr)
 702                 return FALSE;
 703
 704             object_flags(caster_ptr, o_ptr, f);
 705
 706             caster_ptr->csp += (caster_ptr->lev / 5) + randint1(caster_ptr->lev / 5);
 707             if (have_flag(f, TR_TY_CURSE) || (o_ptr->curse_flags & TRC_TY_CURSE))
 708                 caster_ptr->csp += randint1(5);
 709             if (caster_ptr->csp > caster_ptr->msp)
 710                 caster_ptr->csp = caster_ptr->msp;
 711
 712             if (o_ptr->curse_flags & TRC_PERMA_CURSE) {
 713                 /* Nothing */
 714             } else if (o_ptr->curse_flags & TRC_HEAVY_CURSE) {
 715                 if (one_in_(7)) {
 716                     msg_print(_("呪いを全て吸い取った。", "A heavy curse vanished."));
 717                     o_ptr->curse_flags = 0L;
 718                 }
 719             } else if ((o_ptr->curse_flags & (TRC_CURSED)) && one_in_(3)) {
 720                 msg_print(_("呪いを全て吸い取った。", "A curse vanished."));
 721                 o_ptr->curse_flags = 0L;
 722             }
 723
 724             add = FALSE;
 725         }
 726         break;
 727
 728     case 27:
 729         if (name)
 730             return _("吸血の刃", "Swords to vampires");
 731         if (desc)
 732             return _("吸血属性で攻撃する。", "Gives vampiric ability to your weapon.");
 733         if (cast) {
 734 #ifdef JP
 735             msg_print("あなたの武器が血を欲している。");
 736 #else
 737             if (!empty_hands(caster_ptr, FALSE))
 738                 msg_print("Your weapons want more blood now.");
 739             else
 740                 msg_print("Your weapon wants more blood now.");
 741 #endif
 742         }
 743         if (stop) {
 744 #ifdef JP
 745             msg_print("武器の渇望が消え去った。");
 746 #else
 747             msg_format("Your weapon%s less thirsty now.", (empty_hands(caster_ptr, FALSE)) ? " is" : "s are");
 748 #endif
 749         }
 750         break;
 751
 752     case 28:
 753         if (name)
 754             return _("朦朧の言葉", "Word of stun");
 755         if (desc)
 756             return _("視界内のモンスターを朦朧とさせる。", "Stuns all monsters in your sight.");
 757         power = plev * 4;
 758         if (info)
 759             return info_power(power);
 760         if (cast || cont) {
 761             stun_monsters(caster_ptr, power);
 762         }
 763         break;
 764
 765     case 29:
 766         if (name)
 767             return _("影移動", "Moving into shadow");
 768         if (desc)
 769             return _("モンスターの隣のマスに瞬間移動する。", "Teleports you close to a monster.");
 770         if (cast) {
 771             int i, dir;
 772             POSITION y, x;
 773             bool flag;
 774
 775             for (i = 0; i < 3; i++) {
 776                 if (!tgt_pt(caster_ptr, &x, &y))
 777                     return FALSE;
 778
 779                 flag = FALSE;
 780
 781                 for (dir = 0; dir < 8; dir++) {
 782                     int dy = y + ddy_ddd[dir];
 783                     int dx = x + ddx_ddd[dir];
 784                     if (dir == 5)
 785                         continue;
 786                     if (caster_ptr->current_floor_ptr->grid_array[dy][dx].m_idx)
 787                         flag = TRUE;
 788                 }
 789
 790                 if (!is_cave_empty_bold(caster_ptr, y, x) || (caster_ptr->current_floor_ptr->grid_array[y][x].info & CAVE_ICKY)
 791                     || (distance(y, x, caster_ptr->y, caster_ptr->x) > plev + 2)) {
 792                     msg_print(_("そこには移動できない。", "Can not teleport to there."));
 793                     continue;
 794                 }
 795                 break;
 796             }
 797
 798             if (flag && randint0(plev * plev / 2)) {
 799                 teleport_player_to(caster_ptr, y, x, TELEPORT_SPONTANEOUS);
 800             } else {
 801                 msg_print(_("おっと！", "Oops!"));
 802                 teleport_player(caster_ptr, 30, TELEPORT_SPONTANEOUS);
 803             }
 804
 805             add = FALSE;
 806         }
 807         break;
 808
 809     case 30:
 810         if (name)
 811             return _("反魔法結界", "Anti magic barrier");
 812         if (desc)
 813             return _("視界内のモンスターの魔法を阻害するバリアを張る。", "Obstructs all magic spells of monsters in your sight.");
 814         power = plev * 3 / 2;
 815         if (info)
 816             return info_power(power);
 817         if (cast) {
 818             msg_print(_("魔法を防ぐ呪いをかけた。", "You feel anyone can not cast spells except you."));
 819         }
 820         break;
 821
 822     case 31:
 823         if (name)
 824             return _("復讐の宣告", "Revenge sentence");
 825         if (desc)
 826             return _(
 827                 "数ターン後にそれまで受けたダメージに応じた威力の地獄の劫火の弾を放つ。", "Fires a ball of hell fire to try avenging damage from a few turns.");
 828         power = hex_revenge_power(caster_ptr);
 829         if (info)
 830             return info_damage(0, 0, power);
 831         if (cast) {
 832             MAGIC_NUM2 r;
 833             int a = 3 - (caster_ptr->pspeed - 100) / 10;
 834             r = 1 + randint1(2) + MAX(0, MIN(3, a));
 835
 836             if (hex_revenge_turn(caster_ptr) > 0) {
 837                 msg_print(_("すでに復讐は宣告済みだ。", "You've already declared your revenge."));
 838                 return NULL;
 839             }
 840
 841             hex_revenge_type(caster_ptr) = 2;
 842             hex_revenge_turn(caster_ptr) = r;
 843             msg_format(_("あなたは復讐を宣告した。あと %d ターン。", "You declare your revenge. %d turns left."), r);
 844             add = FALSE;
 845         }
 846         if (cont) {
 847             hex_revenge_turn(caster_ptr)--;
 848
 849             if (hex_revenge_turn(caster_ptr) <= 0) {
 850                 DIRECTION dir;
 851
 852                 if (power) {
 853                     command_dir = 0;
 854
 855                     do {
 856                         msg_print(_("復讐の時だ！", "Time for revenge!"));
 857                     } while (!get_aim_dir(caster_ptr, &dir));
 858
 859                     fire_ball(caster_ptr, GF_HELL_FIRE, dir, power, 1);
 860
 861                     if (current_world_ptr->wizard) {
 862                         msg_format(_("%d点のダメージを返した。", "You return %d damage."), power);
 863                     }
 864                 } else {
 865                     msg_print(_("復讐する気が失せた。", "You are not in the mood for revenge."));
 866                 }
 867                 hex_revenge_power(caster_ptr) = 0;
 868             }
 869         }
 870         break;
 871     }
 872
 873     /* start casting */
 874     if ((cast) && (add)) {
 875         /* add spell */
 876         casting_hex_flags(caster_ptr) |= 1L << (spell);
 877         casting_hex_num(caster_ptr)++;
 878
 879         if (caster_ptr->action != ACTION_SPELL)
 880             set_action(caster_ptr, ACTION_SPELL);
 881     }
 882
 883     if (!info) {
 884         caster_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS);
 885         caster_ptr->redraw |= (PR_EXTRA | PR_HP | PR_MANA);
 886     }
 887
 888     return "";
 889 }