src/cmd-action/cmd-spell.cpp

   1 /*!
   2  * @brief 魔法のインターフェイスと発動 / Purpose: Do everything for each spell
   3  * @date 2013/12/31
   4  * @author
   5  * 2013 Deskull rearranged comment for Doxygen.
   6  */
   7
   8 #include "cmd-action/cmd-spell.h"
   9 #include "action/action-limited.h"
  10 #include "autopick/autopick-reader-writer.h"
  11 #include "cmd-action/cmd-mind.h"
  12 #include "cmd-io/cmd-dump.h"
  13 #include "core/asking-player.h"
  14 #include "core/player-redraw-types.h"
  15 #include "core/player-update-types.h"
  16 #include "core/stuff-handler.h"
  17 #include "core/window-redrawer.h"
  18 #include "floor/floor-object.h"
  19 #include "game-option/disturbance-options.h"
  20 #include "game-option/input-options.h"
  21 #include "game-option/text-display-options.h"
  22 #include "grid/grid.h"
  23 #include "inventory/inventory-slot-types.h"
  24 #include "io/command-repeater.h"
  25 #include "io/input-key-acceptor.h"
  26 #include "io/input-key-requester.h"
  27 #include "io/write-diary.h"
  28 #include "main/sound-definitions-table.h"
  29 #include "main/sound-of-music.h"
  30 #include "object-hook/hook-magic.h"
  31 #include "object/item-tester-hooker.h"
  32 #include "object/item-use-flags.h"
  33 #include "player-info/avatar.h"
  34 #include "player-info/self-info.h"
  35 #include "player-status/player-energy.h"
  36 #include "player/attack-defense-types.h"
  37 #include "player/eldritch-horror.h"
  38 #include "player/player-class.h"
  39 #include "player/player-damage.h"
  40 #include "player/player-realm.h"
  41 #include "player/player-skill.h"
  42 #include "player/player-status.h"
  43 #include "player/special-defense-types.h"
  44 #include "realm/realm-names-table.h"
  45 #include "spell-kind/spells-random.h"
  46 #include "spell-kind/spells-sight.h"
  47 #include "spell-realm/spells-hex.h"
  48 #include "spell/range-calc.h"
  49 #include "spell/spell-info.h"
  50 #include "spell/spells-describer.h"
  51 #include "spell/spells-execution.h"
  52 #include "spell/spells-summon.h"
  53 #include "spell/technic-info-table.h"
  54 #include "status/action-setter.h"
  55 #include "status/bad-status-setter.h"
  56 #include "status/base-status.h"
  57 #include "status/experience.h"
  58 #include "system/floor-type-definition.h"
  59 #include "system/object-type-definition.h"
  60 #include "system/player-type-definition.h"
  61 #include "term/screen-processor.h"
  62 #include "util/bit-flags-calculator.h"
  63 #include "util/buffer-shaper.h"
  64 #include "util/int-char-converter.h"
  65 #include "view/display-messages.h"
  66 #ifdef JP
  67 #include "locale/japanese.h"
  68 #endif
  69
  70 static const int extra_magic_gain_exp = 4;
  71
  72 concptr KWD_DAM = _("損傷:", "dam ");
  73 concptr KWD_RANGE = _("射程:", "rng ");
  74 concptr KWD_DURATION = _("期間:", "dur ");
  75 concptr KWD_SPHERE = _("範囲:", "range ");
  76 concptr KWD_HEAL = _("回復:", "heal ");
  77 concptr KWD_MANA = _("MP回復:", "heal SP ");
  78 concptr KWD_POWER _("効力:", "power ");
  79 concptr KWD_RANDOM = _("ランダム", "random");
  80
  81 /*!
  82  * 魔法領域フラグ管理テーブル /
  83  * Zangband uses this array instead of the spell flags table, as there
  84  * are 5 realms of magic, each with 4 spellbooks and 8 spells per book -- TY
  85  */
  86 const u32b fake_spell_flags[4] = { 0x000000ff, 0x0000ff00, 0x00ff0000, 0xff000000 };
  87
  88 /*!
  89  * @brief
  90  * 魔法の効果を「キャプション:ダイス＋定数値」のフォーマットで出力する / Generate dice info string such as "foo 2d10"
  91  * @param str キャプション
  92  * @param dice ダイス数
  93  * @param sides ダイス目
  94  * @param base 固定値
  95  * @return フォーマットに従い整形された文字列
  96  */
  97 concptr info_string_dice(concptr str, DICE_NUMBER dice, DICE_SID sides, int base)
  98 {
  99     /* Fix value */
 100     if (!dice)
 101         return format("%s%d", str, base);
 102
 103     /* Dice only */
 104     else if (!base)
 105         return format("%s%dd%d", str, dice, sides);
 106
 107     /* Dice plus base value */
 108     else
 109         return format("%s%dd%d%+d", str, dice, sides, base);
 110 }
 111
 112 /*!
 113  * @brief 魔法によるダメージを出力する / Generate damage-dice info string such as "dam 2d10"
 114  * @param dice ダイス数
 115  * @param sides ダイス目
 116  * @param base 固定値
 117  * @return フォーマットに従い整形された文字列
 118  */
 119 concptr info_damage(DICE_NUMBER dice, DICE_SID sides, int base) { return info_string_dice(_("損傷:", "dam "), dice, sides, base); }
 120
 121 /*!
 122  * @brief 魔法の効果時間を出力する / Generate duration info string such as "dur 20+1d20"
 123  * @param base 固定値
 124  * @param sides ダイス目
 125  * @return フォーマットに従い整形された文字列
 126  */
 127 concptr info_duration(int base, DICE_SID sides) { return format(_("期間:%d+1d%d", "dur %d+1d%d"), base, sides); }
 128
 129 /*!
 130  * @brief 魔法の効果範囲を出力する / Generate range info string such as "range 5"
 131  * @param range 効果範囲
 132  * @return フォーマットに従い整形された文字列
 133  */
 134 concptr info_range(POSITION range) { return format(_("範囲:%d", "range %d"), range); }
 135
 136 /*!
 137  * @brief 魔法による回復量を出力する / Generate heal info string such as "heal 2d8"
 138  * @param dice ダイス数
 139  * @param sides ダイス目
 140  * @param base 固定値
 141  * @return フォーマットに従い整形された文字列
 142  */
 143 concptr info_heal(DICE_NUMBER dice, DICE_SID sides, int base) { return info_string_dice(_("回復:", "heal "), dice, sides, base); }
 144
 145 /*!
 146  * @brief 魔法効果発動までの遅延ターンを出力する / Generate delay info string such as "delay 15+1d15"
 147  * @param base 固定値
 148  * @param sides ダイス目
 149  * @return フォーマットに従い整形された文字列
 150  */
 151 concptr info_delay(int base, DICE_SID sides) { return format(_("遅延:%d+1d%d", "delay %d+1d%d"), base, sides); }
 152
 153 /*!
 154  * @brief 魔法によるダメージを出力する(固定値＆複数回処理) / Generate multiple-damage info string such as "dam 25 each"
 155  * @param dam 固定値
 156  * @return フォーマットに従い整形された文字列
 157  */
 158 concptr info_multi_damage(HIT_POINT dam) { return format(_("損傷:各%d", "dam %d each"), dam); }
 159
 160 /*!
 161  * @brief 魔法によるダメージを出力する(ダイスのみ＆複数回処理) / Generate multiple-damage-dice info string such as "dam 5d2 each"
 162  * @param dice ダイス数
 163  * @param sides ダイス目
 164  * @return フォーマットに従い整形された文字列
 165  */
 166 concptr info_multi_damage_dice(DICE_NUMBER dice, DICE_SID sides) { return format(_("損傷:各%dd%d", "dam %dd%d each"), dice, sides); }
 167
 168 /*!
 169  * @brief 魔法による一般的な効力値を出力する（固定値） / Generate power info string such as "power 100"
 170  * @param power 固定値
 171  * @return フォーマットに従い整形された文字列
 172  */
 173 concptr info_power(int power) { return format(_("効力:%d", "power %d"), power); }
 174
 175 /*!
 176  * @brief 魔法による一般的な効力値を出力する（ダイス値） / Generate power info string such as "power 100"
 177  * @param dice ダイス数
 178  * @param sides ダイス目
 179  * @return フォーマットに従い整形された文字列
 180  */
 181 /*
 182  * Generate power info string such as "power 1d100"
 183  */
 184 concptr info_power_dice(DICE_NUMBER dice, DICE_SID sides) { return format(_("効力:%dd%d", "power %dd%d"), dice, sides); }
 185
 186 /*!
 187  * @brief 魔法の効果半径を出力する / Generate radius info string such as "rad 100"
 188  * @param rad 効果半径
 189  * @return フォーマットに従い整形された文字列
 190  */
 191 concptr info_radius(POSITION rad) { return format(_("半径:%d", "rad %d"), rad); }
 192
 193 /*!
 194  * @brief 魔法効果の限界重量を出力する / Generate weight info string such as "max wgt 15"
 195  * @param weight 最大重量
 196  * @return フォーマットに従い整形された文字列
 197  */
 198 concptr info_weight(WEIGHT weight)
 199 {
 200 #ifdef JP
 201     return format("最大重量:%d.%dkg", lbtokg1(weight), lbtokg2(weight));
 202 #else
 203     return format("max wgt %d", weight / 10);
 204 #endif
 205 }
 206
 207 /*!
 208  * @brief 魔法が利用可能かどうかを返す /
 209  * Determine if a spell is "okay" for the player to cast or study
 210  * The spell must be legible, not forgotten, and also, to cast,
 211  * it must be known, and to study, it must not be known.
 212  * @param spell 呪文ID
 213  * @param learned 使用可能な判定ならばTRUE、学習可能かどうかの判定ならばFALSE
 214  * @param study_pray 祈りの学習判定目的ならばTRUE
 215  * @param use_realm 魔法領域ID
 216  * @return 失敗率(%)
 217  */
 218 static bool spell_okay(player_type *caster_ptr, int spell, bool learned, bool study_pray, int use_realm)
 219 {
 220     const magic_type *s_ptr;
 221
 222     /* Access the spell */
 223     if (!is_magic(use_realm)) {
 224         s_ptr = &technic_info[use_realm - MIN_TECHNIC][spell];
 225     } else {
 226         s_ptr = &mp_ptr->info[use_realm - 1][spell];
 227     }
 228
 229     /* Spell is illegal */
 230     if (s_ptr->slevel > caster_ptr->lev)
 231         return FALSE;
 232
 233     /* Spell is forgotten */
 234     if ((use_realm == caster_ptr->realm2) ? (caster_ptr->spell_forgotten2 & (1UL << spell)) : (caster_ptr->spell_forgotten1 & (1UL << spell))) {
 235         /* Never okay */
 236         return FALSE;
 237     }
 238
 239     if (caster_ptr->pclass == CLASS_SORCERER)
 240         return TRUE;
 241     if (caster_ptr->pclass == CLASS_RED_MAGE)
 242         return TRUE;
 243
 244     /* Spell is learned */
 245     if ((use_realm == caster_ptr->realm2) ? (caster_ptr->spell_learned2 & (1UL << spell)) : (caster_ptr->spell_learned1 & (1UL << spell))) {
 246         /* Always true */
 247         return (!study_pray);
 248     }
 249
 250     /* Okay to study, not to cast */
 251     return (!learned);
 252 }
 253
 254 /*!
 255  * @brief 領域魔法の閲覧、学習、使用選択するインターフェイス処理
 256  * Allow user to choose a spell/prayer from the given book.
 257  * @param sn 選択した魔法IDを返す参照ポインタ
 258  * @param prompt 魔法を利用する際の動詞表記
 259  * @param sval 魔道書のsval
 260  * @param learned 閲覧/使用選択ならばTRUE、学習処理ならFALSE
 261  * @param use_realm 魔法領域ID
 262  * @return
 263  * <pre>
 264  * If a valid spell is chosen, saves it in '*sn' and returns TRUE
 265  * If the user hits escape, returns FALSE, and set '*sn' to -1
 266  * If there are no legal choices, returns FALSE, and sets '*sn' to -2
 267  * The "prompt" should be "cast", "recite", or "study"
 268  * The "known" should be TRUE for cast/pray, FALSE for study
 269  * </pre>
 270  */
 271 static int get_spell(player_type *caster_ptr, SPELL_IDX *sn, concptr prompt, OBJECT_SUBTYPE_VALUE sval, bool learned, REALM_IDX use_realm)
 272 {
 273     int i;
 274     SPELL_IDX spell = -1;
 275     int num = 0;
 276     int ask = TRUE;
 277     MANA_POINT need_mana;
 278     SPELL_IDX spells[64];
 279     bool flag, redraw, okay;
 280     char choice;
 281     const magic_type *s_ptr;
 282     char out_val[160];
 283     concptr p;
 284     COMMAND_CODE code;
 285 #ifdef JP
 286     char jverb_buf[128];
 287 #endif
 288     int menu_line = (use_menu ? 1 : 0);
 289
 290     /* Get the spell, if available */
 291     if (repeat_pull(&code)) {
 292         *sn = (SPELL_IDX)code;
 293         /* Verify the spell */
 294         if (spell_okay(caster_ptr, *sn, learned, FALSE, use_realm)) {
 295             /* Success */
 296             return TRUE;
 297         }
 298     }
 299
 300     p = spell_category_name(mp_ptr->spell_book);
 301
 302     /* Extract spells */
 303     for (spell = 0; spell < 32; spell++) {
 304         /* Check for this spell */
 305         if ((fake_spell_flags[sval] & (1UL << spell))) {
 306             /* Collect this spell */
 307             spells[num++] = spell;
 308         }
 309     }
 310
 311     /* Assume no usable spells */
 312     okay = FALSE;
 313
 314     /* Assume no spells available */
 315     (*sn) = -2;
 316
 317     /* Check for "okay" spells */
 318     for (i = 0; i < num; i++) {
 319         /* Look for "okay" spells */
 320         if (spell_okay(caster_ptr, spells[i], learned, FALSE, use_realm))
 321             okay = TRUE;
 322     }
 323
 324     /* No "okay" spells */
 325     if (!okay)
 326         return FALSE;
 327     if (((use_realm) != caster_ptr->realm1) && ((use_realm) != caster_ptr->realm2) && (caster_ptr->pclass != CLASS_SORCERER)
 328         && (caster_ptr->pclass != CLASS_RED_MAGE))
 329         return FALSE;
 330     if (((caster_ptr->pclass == CLASS_SORCERER) || (caster_ptr->pclass == CLASS_RED_MAGE)) && !is_magic(use_realm))
 331         return FALSE;
 332     if ((caster_ptr->pclass == CLASS_RED_MAGE) && ((use_realm) != REALM_ARCANE) && (sval > 1))
 333         return FALSE;
 334
 335     /* Assume cancelled */
 336     *sn = (-1);
 337
 338     flag = FALSE;
 339     redraw = FALSE;
 340
 341     caster_ptr->window_flags |= (PW_SPELL);
 342     handle_stuff(caster_ptr);
 343
 344     /* Build a prompt (accept all spells) */
 345 #ifdef JP
 346     jverb(prompt, jverb_buf, JVERB_AND);
 347     (void)strnfmt(out_val, 78, "(%^s:%c-%c, '*'で一覧, ESCで中断) どの%sを%^sますか? ", p, I2A(0), I2A(num - 1), p, jverb_buf);
 348 #else
 349     (void)strnfmt(out_val, 78, "(%^ss %c-%c, *=List, ESC=exit) %^s which %s? ", p, I2A(0), I2A(num - 1), prompt, p);
 350 #endif
 351
 352     choice = (always_show_list || use_menu) ? ESCAPE : 1;
 353     while (!flag) {
 354         if (choice == ESCAPE)
 355             choice = ' ';
 356         else if (!get_com(out_val, &choice, TRUE))
 357             break;
 358
 359         if (use_menu && choice != ' ') {
 360             switch (choice) {
 361             case '0': {
 362                 screen_load();
 363                 return FALSE;
 364             }
 365
 366             case '8':
 367             case 'k':
 368             case 'K': {
 369                 menu_line += (num - 1);
 370                 break;
 371             }
 372
 373             case '2':
 374             case 'j':
 375             case 'J': {
 376                 menu_line++;
 377                 break;
 378             }
 379
 380             case 'x':
 381             case 'X':
 382             case '\r':
 383             case '\n': {
 384                 i = menu_line - 1;
 385                 ask = FALSE;
 386                 break;
 387             }
 388             }
 389             if (menu_line > num)
 390                 menu_line -= num;
 391             /* Display a list of spells */
 392             print_spells(caster_ptr, menu_line, spells, num, 1, 15, use_realm);
 393             if (ask)
 394                 continue;
 395         } else {
 396             /* Request redraw */
 397             if ((choice == ' ') || (choice == '*') || (choice == '?')) {
 398                 /* Show the list */
 399                 if (!redraw) {
 400                     redraw = TRUE;
 401                     screen_save();
 402
 403                     /* Display a list of spells */
 404                     print_spells(caster_ptr, menu_line, spells, num, 1, 15, use_realm);
 405                 }
 406
 407                 /* Hide the list */
 408                 else {
 409                     if (use_menu)
 410                         continue;
 411
 412                     /* Hide list */
 413                     redraw = FALSE;
 414                     screen_load();
 415                 }
 416
 417                 /* Redo asking */
 418                 continue;
 419             }
 420
 421             /* Note verify */
 422             ask = (isupper(choice));
 423
 424             /* Lowercase */
 425             if (ask)
 426                 choice = (char)tolower(choice);
 427
 428             /* Extract request */
 429             i = (islower(choice) ? A2I(choice) : -1);
 430         }
 431
 432         /* Totally Illegal */
 433         if ((i < 0) || (i >= num)) {
 434             bell();
 435             continue;
 436         }
 437
 438         /* Save the spell index */
 439         spell = spells[i];
 440
 441         /* Require "okay" spells */
 442         if (!spell_okay(caster_ptr, spell, learned, FALSE, use_realm)) {
 443             bell();
 444 #ifdef JP
 445             msg_format("その%sを%sことはできません。", p, prompt);
 446 #else
 447             msg_format("You may not %s that %s.", prompt, p);
 448 #endif
 449
 450             continue;
 451         }
 452
 453         /* Verify it */
 454         if (ask) {
 455             char tmp_val[160];
 456
 457             /* Access the spell */
 458             if (!is_magic(use_realm)) {
 459                 s_ptr = &technic_info[use_realm - MIN_TECHNIC][spell];
 460             } else {
 461                 s_ptr = &mp_ptr->info[use_realm - 1][spell];
 462             }
 463
 464             /* Extract mana consumption rate */
 465             if (use_realm == REALM_HISSATSU) {
 466                 need_mana = s_ptr->smana;
 467             } else {
 468                 need_mana = mod_need_mana(caster_ptr, s_ptr->smana, spell, use_realm);
 469             }
 470
 471             /* Prompt */
 472 #ifdef JP
 473             jverb(prompt, jverb_buf, JVERB_AND);
 474             /* 英日切り替え機能に対応 */
 475             (void)strnfmt(tmp_val, 78, "%s(MP%d, 失敗率%d%%)を%sますか? ", exe_spell(caster_ptr, use_realm, spell, SPELL_NAME), need_mana,
 476                 spell_chance(caster_ptr, spell, use_realm), jverb_buf);
 477 #else
 478             (void)strnfmt(tmp_val, 78, "%^s %s (%d mana, %d%% fail)? ", prompt, exe_spell(caster_ptr, use_realm, spell, SPELL_NAME), need_mana,
 479                 spell_chance(caster_ptr, spell, use_realm));
 480 #endif
 481
 482             /* Belay that order */
 483             if (!get_check(tmp_val))
 484                 continue;
 485         }
 486
 487         /* Stop the loop */
 488         flag = TRUE;
 489     }
 490
 491     if (redraw)
 492         screen_load();
 493
 494     caster_ptr->window_flags |= (PW_SPELL);
 495     handle_stuff(caster_ptr);
 496
 497     /* Abort if needed */
 498     if (!flag)
 499         return FALSE;
 500
 501     /* Save the choice */
 502     (*sn) = spell;
 503
 504     repeat_push((COMMAND_CODE)spell);
 505
 506     /* Success */
 507     return TRUE;
 508 }
 509
 510 /*!
 511  * @brief プレイヤーの職業が練気術師の時、領域魔法と練気術を切り換える処理のインターフェイス
 512  * @param browse_only 魔法と技能の閲覧を行うならばTRUE
 513  * @return 魔道書を一冊も持っていないならTRUEを返す
 514  */
 515 static void confirm_use_force(player_type *caster_ptr, bool browse_only)
 516 {
 517     char which;
 518     COMMAND_CODE code;
 519
 520     /* Get the item index */
 521     if (repeat_pull(&code) && (code == INVEN_FORCE)) {
 522         browse_only ? do_cmd_mind_browse(caster_ptr) : do_cmd_mind(caster_ptr);
 523         return;
 524     }
 525
 526     /* Show the prompt */
 527     prt(_("('w'練気術, ESC) 'w'かESCを押してください。 ", "(w for the Force, ESC) Hit 'w' or ESC. "), 0, 0);
 528
 529     while (TRUE) {
 530         /* Get a key */
 531         which = inkey();
 532
 533         if (which == ESCAPE)
 534             break;
 535         else if (which == 'w') {
 536             repeat_push(INVEN_FORCE);
 537             break;
 538         }
 539     }
 540
 541     /* Clear the prompt line */
 542     prt("", 0, 0);
 543
 544     if (which == 'w') {
 545         browse_only ? do_cmd_mind_browse(caster_ptr) : do_cmd_mind(caster_ptr);
 546     }
 547 }
 548
 549 /*!
 550  * @brief プレイヤーの魔法と技能を閲覧するコマンドのメインルーチン /
 551  * Peruse the spells/prayers in a book
 552  * @details
 553  * <pre>
 554  * Note that *all* spells in the book are listed
 555  *
 556  * Note that browsing is allowed while confused or blind,
 557  * and in the dark, primarily to allow browsing in stores.
 558  * </pre>
 559  */
 560 void do_cmd_browse(player_type *caster_ptr)
 561 {
 562     OBJECT_IDX item;
 563     OBJECT_SUBTYPE_VALUE sval;
 564     REALM_IDX use_realm = 0;
 565     int j, line;
 566     SPELL_IDX spell = -1;
 567     int num = 0;
 568
 569     SPELL_IDX spells[64];
 570     char temp[62 * 4];
 571
 572     object_type *o_ptr;
 573
 574     concptr q, s;
 575     tval_type tval = TV_NONE;
 576
 577     /* Warriors are illiterate */
 578     if (!(caster_ptr->realm1 || caster_ptr->realm2) && (caster_ptr->pclass != CLASS_SORCERER) && (caster_ptr->pclass != CLASS_RED_MAGE)) {
 579         msg_print(_("本を読むことができない！", "You cannot read books!"));
 580         return;
 581     }
 582
 583     if (caster_ptr->special_defense & KATA_MUSOU) {
 584         set_action(caster_ptr, ACTION_NONE);
 585     }
 586
 587     if (caster_ptr->pclass == CLASS_FORCETRAINER) {
 588         if (player_has_no_spellbooks(caster_ptr)) {
 589             confirm_use_force(caster_ptr, TRUE);
 590             return;
 591         }
 592     }
 593
 594     /* Restrict choices to "useful" books */
 595     if (caster_ptr->realm2 == REALM_NONE)
 596         tval = mp_ptr->spell_book;
 597     else
 598         item_tester_hook = item_tester_learn_spell;
 599
 600     q = _("どの本を読みますか? ", "Browse which book? ");
 601     s = _("読める本がない。", "You have no books that you can read.");
 602
 603     o_ptr = choose_object(caster_ptr, &item, q, s, (USE_INVEN | USE_FLOOR | (caster_ptr->pclass == CLASS_FORCETRAINER ? USE_FORCE : 0)), tval);
 604
 605     item_tester_hook = NULL;
 606     if (!o_ptr) {
 607         if (item == INVEN_FORCE) /* the_force */
 608         {
 609             do_cmd_mind_browse(caster_ptr);
 610             return;
 611         }
 612         return;
 613     }
 614
 615     /* Access the item's sval */
 616     sval = o_ptr->sval;
 617
 618     use_realm = tval2realm(o_ptr->tval);
 619
 620     /* Track the object kind */
 621     object_kind_track(caster_ptr, o_ptr->k_idx);
 622     handle_stuff(caster_ptr);
 623
 624     /* Extract spells */
 625     for (spell = 0; spell < 32; spell++) {
 626         /* Check for this spell */
 627         if ((fake_spell_flags[sval] & (1UL << spell))) {
 628             /* Collect this spell */
 629             spells[num++] = spell;
 630         }
 631     }
 632
 633     screen_save();
 634     prt("", 0, 0);
 635
 636     /* Keep browsing spells.  Exit browsing on cancel. */
 637     while (TRUE) {
 638         /* Ask for a spell, allow cancel */
 639         if (!get_spell(caster_ptr, &spell, _("読む", "browse"), o_ptr->sval, TRUE, use_realm)) {
 640             /* If cancelled, leave immediately. */
 641             if (spell == -1)
 642                 break;
 643
 644             /* Display a list of spells */
 645             print_spells(caster_ptr, 0, spells, num, 1, 15, use_realm);
 646
 647             /* Notify that there's nothing to see, and wait. */
 648             if (use_realm == REALM_HISSATSU)
 649                 prt(_("読める技がない。", "No techniques to browse."), 0, 0);
 650             else
 651                 prt(_("読める呪文がない。", "No spells to browse."), 0, 0);
 652             (void)inkey();
 653
 654             screen_load();
 655
 656             return;
 657         }
 658
 659         /* Clear lines, position cursor  (really should use strlen here) */
 660         term_erase(14, 14, 255);
 661         term_erase(14, 13, 255);
 662         term_erase(14, 12, 255);
 663         term_erase(14, 11, 255);
 664
 665         shape_buffer(exe_spell(caster_ptr, use_realm, spell, SPELL_DESC), 62, temp, sizeof(temp));
 666
 667         for (j = 0, line = 11; temp[j]; j += 1 + strlen(&temp[j])) {
 668             prt(&temp[j], line, 15);
 669             line++;
 670         }
 671     }
 672     screen_load();
 673 }
 674
 675 /*!
 676  * @brief プレイヤーの第二魔法領域を変更する /
 677  * @param caster_ptr プレーヤーへの参照ポインタ
 678  * @param next_realm 変更先の魔法領域ID
 679  */
 680 static void change_realm2(player_type *caster_ptr, REALM_IDX next_realm)
 681 {
 682     int i, j = 0;
 683     char tmp[80];
 684
 685     for (i = 0; i < 64; i++) {
 686         caster_ptr->spell_order[j] = caster_ptr->spell_order[i];
 687         if (caster_ptr->spell_order[i] < 32)
 688             j++;
 689     }
 690     for (; j < 64; j++)
 691         caster_ptr->spell_order[j] = 99;
 692
 693     for (i = 32; i < 64; i++) {
 694         caster_ptr->spell_exp[i] = SPELL_EXP_UNSKILLED;
 695     }
 696     caster_ptr->spell_learned2 = 0L;
 697     caster_ptr->spell_worked2 = 0L;
 698     caster_ptr->spell_forgotten2 = 0L;
 699
 700     sprintf(tmp, _("魔法の領域を%sから%sに変更した。", "changed magic realm from %s to %s."), realm_names[caster_ptr->realm2], realm_names[next_realm]);
 701     exe_write_diary(caster_ptr, DIARY_DESCRIPTION, 0, tmp);
 702     caster_ptr->old_realm |= 1U << (caster_ptr->realm2 - 1);
 703     caster_ptr->realm2 = next_realm;
 704
 705     caster_ptr->update |= (PU_REORDER);
 706     caster_ptr->update |= (PU_SPELLS);
 707     handle_stuff(caster_ptr);
 708
 709     /* Load an autopick preference file */
 710     autopick_load_pref(caster_ptr, FALSE);
 711 }
 712
 713 /*!
 714  * @brief 魔法を学習するコマンドのメインルーチン /
 715  * Study a book to gain a new spell/prayer
 716  */
 717 void do_cmd_study(player_type *caster_ptr)
 718 {
 719     int i;
 720     OBJECT_IDX item;
 721     OBJECT_SUBTYPE_VALUE sval;
 722     int increment = 0;
 723     bool learned = FALSE;
 724
 725     /* Spells of realm2 will have an increment of +32 */
 726     SPELL_IDX spell = -1;
 727     concptr p = spell_category_name(mp_ptr->spell_book);
 728     object_type *o_ptr;
 729     concptr q, s;
 730     tval_type tval = TV_NONE;
 731
 732     if (!caster_ptr->realm1) {
 733         msg_print(_("本を読むことができない！", "You cannot read books!"));
 734         return;
 735     }
 736
 737     if (cmd_limit_blind(caster_ptr))
 738         return;
 739     if (cmd_limit_confused(caster_ptr))
 740         return;
 741
 742     if (!(caster_ptr->new_spells)) {
 743         msg_format(_("新しい%sを覚えることはできない！", "You cannot learn any new %ss!"), p);
 744         return;
 745     }
 746
 747     if (caster_ptr->special_defense & KATA_MUSOU) {
 748         set_action(caster_ptr, ACTION_NONE);
 749     }
 750
 751 #ifdef JP
 752     if (caster_ptr->new_spells < 10) {
 753         msg_format("あと %d つの%sを学べる。", caster_ptr->new_spells, p);
 754     } else {
 755         msg_format("あと %d 個の%sを学べる。", caster_ptr->new_spells, p);
 756     }
 757 #else
 758     msg_format("You can learn %d new %s%s.", caster_ptr->new_spells, p, (caster_ptr->new_spells == 1 ? "" : "s"));
 759 #endif
 760
 761     msg_print(NULL);
 762
 763     /* Restrict choices to "useful" books */
 764     if (caster_ptr->realm2 == REALM_NONE)
 765         tval = mp_ptr->spell_book;
 766     else
 767         item_tester_hook = item_tester_learn_spell;
 768
 769     q = _("どの本から学びますか? ", "Study which book? ");
 770     s = _("読める本がない。", "You have no books that you can read.");
 771
 772     o_ptr = choose_object(caster_ptr, &item, q, s, (USE_INVEN | USE_FLOOR), tval);
 773
 774     if (!o_ptr)
 775         return;
 776
 777     /* Access the item's sval */
 778     sval = o_ptr->sval;
 779
 780     if (o_ptr->tval == get_realm2_book(caster_ptr))
 781         increment = 32;
 782     else if (o_ptr->tval != get_realm1_book(caster_ptr)) {
 783         if (!get_check(_("本当に魔法の領域を変更しますか？", "Really, change magic realm? ")))
 784             return;
 785         change_realm2(caster_ptr, tval2realm(o_ptr->tval));
 786         increment = 32;
 787     }
 788
 789     /* Track the object kind */
 790     object_kind_track(caster_ptr, o_ptr->k_idx);
 791     handle_stuff(caster_ptr);
 792
 793     /* Mage -- Learn a selected spell */
 794     if (mp_ptr->spell_book != TV_LIFE_BOOK) {
 795         /* Ask for a spell, allow cancel */
 796         if (!get_spell(caster_ptr, &spell, _("学ぶ", "study"), sval, FALSE, o_ptr->tval - TV_LIFE_BOOK + 1) && (spell == -1))
 797             return;
 798     }
 799
 800     /* Priest -- Learn a random prayer */
 801     else {
 802         int k = 0;
 803         int gift = -1;
 804
 805         /* Extract spells */
 806         for (spell = 0; spell < 32; spell++) {
 807             /* Check spells in the book */
 808             if ((fake_spell_flags[sval] & (1UL << spell))) {
 809                 /* Skip non "okay" prayers */
 810                 if (!spell_okay(caster_ptr, spell, FALSE, TRUE, (increment ? caster_ptr->realm2 : caster_ptr->realm1)))
 811                     continue;
 812
 813                 /* Hack -- Prepare the randomizer */
 814                 k++;
 815
 816                 /* Hack -- Apply the randomizer */
 817                 if (one_in_(k))
 818                     gift = spell;
 819             }
 820         }
 821
 822         /* Accept gift */
 823         spell = gift;
 824     }
 825
 826     /* Nothing to study */
 827     if (spell < 0) {
 828         msg_format(_("その本には学ぶべき%sがない。", "You cannot learn any %ss in that book."), p);
 829
 830         /* Abort */
 831         return;
 832     }
 833
 834     if (increment)
 835         spell += increment;
 836
 837     /* Learn the spell */
 838     if (spell < 32) {
 839         if (caster_ptr->spell_learned1 & (1UL << spell))
 840             learned = TRUE;
 841         else
 842             caster_ptr->spell_learned1 |= (1UL << spell);
 843     } else {
 844         if (caster_ptr->spell_learned2 & (1UL << (spell - 32)))
 845             learned = TRUE;
 846         else
 847             caster_ptr->spell_learned2 |= (1UL << (spell - 32));
 848     }
 849
 850     if (learned) {
 851         int max_exp = (spell < 32) ? SPELL_EXP_MASTER : SPELL_EXP_EXPERT;
 852         int old_exp = caster_ptr->spell_exp[spell];
 853         int new_rank = EXP_LEVEL_UNSKILLED;
 854         concptr name = exe_spell(caster_ptr, increment ? caster_ptr->realm2 : caster_ptr->realm1, spell % 32, SPELL_NAME);
 855
 856         if (old_exp >= max_exp) {
 857             msg_format(_("その%sは完全に使いこなせるので学ぶ必要はない。", "You don't need to study this %s anymore."), p);
 858             return;
 859         }
 860 #ifdef JP
 861         if (!get_check(format("%sの%sをさらに学びます。よろしいですか？", name, p)))
 862 #else
 863         if (!get_check(format("You will study a %s of %s again. Are you sure? ", p, name)))
 864 #endif
 865         {
 866             return;
 867         } else if (old_exp >= SPELL_EXP_EXPERT) {
 868             caster_ptr->spell_exp[spell] = SPELL_EXP_MASTER;
 869             new_rank = EXP_LEVEL_MASTER;
 870         } else if (old_exp >= SPELL_EXP_SKILLED) {
 871             if (spell >= 32)
 872                 caster_ptr->spell_exp[spell] = SPELL_EXP_EXPERT;
 873             else
 874                 caster_ptr->spell_exp[spell] += SPELL_EXP_EXPERT - SPELL_EXP_SKILLED;
 875             new_rank = EXP_LEVEL_EXPERT;
 876         } else if (old_exp >= SPELL_EXP_BEGINNER) {
 877             caster_ptr->spell_exp[spell] = SPELL_EXP_SKILLED + (old_exp - SPELL_EXP_BEGINNER) * 2 / 3;
 878             new_rank = EXP_LEVEL_SKILLED;
 879         } else {
 880             caster_ptr->spell_exp[spell] = SPELL_EXP_BEGINNER + old_exp / 3;
 881             new_rank = EXP_LEVEL_BEGINNER;
 882         }
 883         msg_format(_("%sの熟練度が%sに上がった。", "Your proficiency of %s is now %s rank."), name, exp_level_str[new_rank]);
 884     } else {
 885         /* Find the next open entry in "caster_ptr->spell_order[]" */
 886         for (i = 0; i < 64; i++) {
 887             /* Stop at the first empty space */
 888             if (caster_ptr->spell_order[i] == 99)
 889                 break;
 890         }
 891
 892         /* Add the spell to the known list */
 893         caster_ptr->spell_order[i++] = spell;
 894
 895         /* Mention the result */
 896 #ifdef JP
 897         /* 英日切り替え機能に対応 */
 898         if (mp_ptr->spell_book == TV_MUSIC_BOOK) {
 899             msg_format("%sを学んだ。", exe_spell(caster_ptr, increment ? caster_ptr->realm2 : caster_ptr->realm1, spell % 32, SPELL_NAME));
 900         } else {
 901             msg_format("%sの%sを学んだ。", exe_spell(caster_ptr, increment ? caster_ptr->realm2 : caster_ptr->realm1, spell % 32, SPELL_NAME), p);
 902         }
 903 #else
 904         msg_format("You have learned the %s of %s.", p, exe_spell(caster_ptr, increment ? caster_ptr->realm2 : caster_ptr->realm1, spell % 32, SPELL_NAME));
 905 #endif
 906     }
 907
 908     PlayerEnergy(caster_ptr).set_player_turn_energy(100);
 909
 910     switch (mp_ptr->spell_book) {
 911     case TV_LIFE_BOOK:
 912         chg_virtue(caster_ptr, V_FAITH, 1);
 913         break;
 914     case TV_DEATH_BOOK:
 915         chg_virtue(caster_ptr, V_UNLIFE, 1);
 916         break;
 917     case TV_NATURE_BOOK:
 918         chg_virtue(caster_ptr, V_NATURE, 1);
 919         break;
 920     default:
 921         chg_virtue(caster_ptr, V_KNOWLEDGE, 1);
 922         break;
 923     }
 924
 925     sound(SOUND_STUDY);
 926
 927     /* One less spell available */
 928     caster_ptr->learned_spells++;
 929
 930     /* Update Study */
 931     caster_ptr->update |= (PU_SPELLS);
 932     update_creature(caster_ptr);
 933
 934     /* Redraw object recall */
 935     caster_ptr->window_flags |= (PW_OBJECT);
 936 }
 937
 938 /*!
 939  * @brief 魔法を詠唱するコマンドのメインルーチン /
 940  * Cast a spell
 941  * @param caster_ptr プレーヤーへの参照ポインタ
 942  * @return 詠唱したらtrue
 943  */
 944 bool do_cmd_cast(player_type *caster_ptr)
 945 {
 946     OBJECT_IDX item;
 947     OBJECT_SUBTYPE_VALUE sval;
 948     SPELL_IDX spell;
 949     REALM_IDX realm;
 950     int chance;
 951     int increment = 0;
 952     REALM_IDX use_realm;
 953     MANA_POINT need_mana;
 954
 955     concptr prayer;
 956     object_type *o_ptr;
 957     const magic_type *s_ptr;
 958     concptr q, s;
 959
 960     bool over_exerted = FALSE;
 961
 962     /* Require spell ability */
 963     if (!caster_ptr->realm1 && (caster_ptr->pclass != CLASS_SORCERER) && (caster_ptr->pclass != CLASS_RED_MAGE)) {
 964         msg_print(_("呪文を唱えられない！", "You cannot cast spells!"));
 965         return false;
 966     }
 967
 968     if (caster_ptr->blind || no_lite(caster_ptr)) {
 969         if (caster_ptr->pclass == CLASS_FORCETRAINER)
 970             confirm_use_force(caster_ptr, FALSE);
 971         else {
 972             msg_print(_("目が見えない！", "You cannot see!"));
 973             flush();
 974         }
 975         return false;
 976     }
 977
 978     if (cmd_limit_confused(caster_ptr))
 979         return false;
 980
 981     if (caster_ptr->realm1 == REALM_HEX) {
 982         if (hex_spell_fully(caster_ptr)) {
 983             bool flag = FALSE;
 984             msg_print(_("これ以上新しい呪文を詠唱することはできない。", "Can not cast more spells."));
 985             flush();
 986             if (caster_ptr->lev >= 35)
 987                 flag = stop_hex_spell(caster_ptr);
 988             if (!flag)
 989                 return false;
 990         }
 991     }
 992
 993     if (caster_ptr->pclass == CLASS_FORCETRAINER) {
 994         if (player_has_no_spellbooks(caster_ptr)) {
 995             confirm_use_force(caster_ptr, FALSE);
 996             return true; //!< 錬気キャンセル時の処理がない
 997         }
 998     }
 999
1000     prayer = spell_category_name(mp_ptr->spell_book);
1001
1002     q = _("どの呪文書を使いますか? ", "Use which book? ");
1003     s = _("呪文書がない！", "You have no spell books!");
1004
1005     o_ptr = choose_object(caster_ptr, &item, q, s, (USE_INVEN | USE_FLOOR | (caster_ptr->pclass == CLASS_FORCETRAINER ? USE_FORCE : 0)), mp_ptr->spell_book);
1006     if (!o_ptr) {
1007         if (item == INVEN_FORCE) /* the_force */
1008         {
1009             do_cmd_mind(caster_ptr);
1010             return true; //!< 錬気キャンセル時の処理がない
1011         }
1012         return false;
1013     }
1014
1015     /* Access the item's sval */
1016     sval = o_ptr->sval;
1017
1018     if ((caster_ptr->pclass != CLASS_SORCERER) && (caster_ptr->pclass != CLASS_RED_MAGE) && (o_ptr->tval == get_realm2_book(caster_ptr)))
1019         increment = 32;
1020
1021     /* Track the object kind */
1022     object_kind_track(caster_ptr, o_ptr->k_idx);
1023     handle_stuff(caster_ptr);
1024
1025     if ((caster_ptr->pclass == CLASS_SORCERER) || (caster_ptr->pclass == CLASS_RED_MAGE))
1026         realm = o_ptr->tval - TV_LIFE_BOOK + 1;
1027     else if (increment)
1028         realm = caster_ptr->realm2;
1029     else
1030         realm = caster_ptr->realm1;
1031
1032         /* Ask for a spell */
1033 #ifdef JP
1034     if (!get_spell(caster_ptr, &spell, ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "詠唱する" : (mp_ptr->spell_book == TV_MUSIC_BOOK) ? "歌う" : "唱える"), sval,
1035             TRUE, realm)) {
1036         if (spell == -2)
1037             msg_format("その本には知っている%sがない。", prayer);
1038         return false;
1039     }
1040 #else
1041     if (!get_spell(caster_ptr, &spell, ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "recite" : "cast"), sval, TRUE, realm)) {
1042         if (spell == -2)
1043             msg_format("You don't know any %ss in that book.", prayer);
1044         return false;
1045     }
1046 #endif
1047
1048     use_realm = tval2realm(o_ptr->tval);
1049     if (use_realm == REALM_HEX) {
1050         if (hex_spelling(caster_ptr, spell)) {
1051             msg_print(_("その呪文はすでに詠唱中だ。", "You are already casting it."));
1052             return false;
1053         }
1054     }
1055
1056     if (!is_magic(use_realm)) {
1057         s_ptr = &technic_info[use_realm - MIN_TECHNIC][spell];
1058     } else {
1059         s_ptr = &mp_ptr->info[realm - 1][spell];
1060     }
1061
1062     /* Extract mana consumption rate */
1063     need_mana = mod_need_mana(caster_ptr, s_ptr->smana, spell, realm);
1064
1065     /* Verify "dangerous" spells */
1066     if (need_mana > caster_ptr->csp) {
1067         if (flush_failure)
1068             flush();
1069
1070             /* Warning */
1071 #ifdef JP
1072         msg_format("その%sを%sのに十分なマジックポイントがない。", prayer,
1073             ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "詠唱する" : (mp_ptr->spell_book == TV_LIFE_BOOK) ? "歌う" : "唱える"));
1074 #else
1075         msg_format("You do not have enough mana to %s this %s.", ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "recite" : "cast"), prayer);
1076 #endif
1077
1078         if (!over_exert)
1079             return false;
1080
1081         /* Verify */
1082         if (!get_check_strict(caster_ptr, _("それでも挑戦しますか? ", "Attempt it anyway? "), CHECK_OKAY_CANCEL))
1083             return false;
1084     }
1085
1086     /* Spell failure chance */
1087     chance = spell_chance(caster_ptr, spell, use_realm);
1088
1089     /* Sufficient mana */
1090     if (need_mana <= caster_ptr->csp) {
1091         /* Use some mana */
1092         caster_ptr->csp -= need_mana;
1093     } else
1094         over_exerted = TRUE;
1095     caster_ptr->redraw |= (PR_MANA);
1096
1097     /* Failed spell */
1098     if (randint0(100) < chance) {
1099         if (flush_failure)
1100             flush();
1101
1102         msg_format(_("%sをうまく唱えられなかった！", "You failed to get the %s off!"), prayer);
1103         sound(SOUND_FAIL);
1104
1105         switch (realm) {
1106         case REALM_LIFE:
1107             if (randint1(100) < chance)
1108                 chg_virtue(caster_ptr, V_VITALITY, -1);
1109             break;
1110         case REALM_DEATH:
1111             if (randint1(100) < chance)
1112                 chg_virtue(caster_ptr, V_UNLIFE, -1);
1113             break;
1114         case REALM_NATURE:
1115             if (randint1(100) < chance)
1116                 chg_virtue(caster_ptr, V_NATURE, -1);
1117             break;
1118         case REALM_DAEMON:
1119             if (randint1(100) < chance)
1120                 chg_virtue(caster_ptr, V_JUSTICE, 1);
1121             break;
1122         case REALM_CRUSADE:
1123             if (randint1(100) < chance)
1124                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1125             break;
1126         case REALM_HEX:
1127             if (randint1(100) < chance)
1128                 chg_virtue(caster_ptr, V_COMPASSION, -1);
1129             break;
1130         default:
1131             if (randint1(100) < chance)
1132                 chg_virtue(caster_ptr, V_KNOWLEDGE, -1);
1133             break;
1134         }
1135
1136         /* Failure casting may activate some side effect */
1137         exe_spell(caster_ptr, realm, spell, SPELL_FAIL);
1138
1139         if ((o_ptr->tval == TV_CHAOS_BOOK) && (randint1(100) < spell)) {
1140             msg_print(_("カオス的な効果を発生した！", "You produce a chaotic effect!"));
1141             wild_magic(caster_ptr, spell);
1142         } else if ((o_ptr->tval == TV_DEATH_BOOK) && (randint1(100) < spell)) {
1143             if ((sval == 3) && one_in_(2)) {
1144                 sanity_blast(caster_ptr, 0, TRUE);
1145             } else {
1146                 msg_print(_("痛い！", "It hurts!"));
1147                 take_hit(caster_ptr, DAMAGE_LOSELIFE, damroll(o_ptr->sval + 1, 6), _("暗黒魔法の逆流", "a miscast Death spell"));
1148
1149                 if ((spell > 15) && one_in_(6) && !caster_ptr->hold_exp)
1150                     lose_exp(caster_ptr, spell * 250);
1151             }
1152         } else if ((o_ptr->tval == TV_MUSIC_BOOK) && (randint1(200) < spell)) {
1153             msg_print(_("いやな音が響いた", "An infernal sound echoed."));
1154             aggravate_monsters(caster_ptr, 0);
1155         }
1156         if (randint1(100) >= chance)
1157             chg_virtue(caster_ptr, V_CHANCE, -1);
1158     }
1159
1160     /* Process spell */
1161     else {
1162         /* Canceled spells cost neither a turn nor mana */
1163         if (!exe_spell(caster_ptr, realm, spell, SPELL_CAST))
1164             return false;
1165
1166         if (randint1(100) < chance)
1167             chg_virtue(caster_ptr, V_CHANCE, 1);
1168
1169         /* A spell was cast */
1170         if (!(increment ? (caster_ptr->spell_worked2 & (1UL << spell)) : (caster_ptr->spell_worked1 & (1UL << spell))) && (caster_ptr->pclass != CLASS_SORCERER)
1171             && (caster_ptr->pclass != CLASS_RED_MAGE)) {
1172             int e = s_ptr->sexp;
1173
1174             /* The spell worked */
1175             if (realm == caster_ptr->realm1) {
1176                 caster_ptr->spell_worked1 |= (1UL << spell);
1177             } else {
1178                 caster_ptr->spell_worked2 |= (1UL << spell);
1179             }
1180
1181             gain_exp(caster_ptr, e * s_ptr->slevel);
1182             caster_ptr->window_flags |= (PW_OBJECT);
1183
1184             switch (realm) {
1185             case REALM_LIFE:
1186                 chg_virtue(caster_ptr, V_TEMPERANCE, 1);
1187                 chg_virtue(caster_ptr, V_COMPASSION, 1);
1188                 chg_virtue(caster_ptr, V_VITALITY, 1);
1189                 chg_virtue(caster_ptr, V_DILIGENCE, 1);
1190                 break;
1191             case REALM_DEATH:
1192                 chg_virtue(caster_ptr, V_UNLIFE, 1);
1193                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1194                 chg_virtue(caster_ptr, V_FAITH, -1);
1195                 chg_virtue(caster_ptr, V_VITALITY, -1);
1196                 break;
1197             case REALM_DAEMON:
1198                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1199                 chg_virtue(caster_ptr, V_FAITH, -1);
1200                 chg_virtue(caster_ptr, V_HONOUR, -1);
1201                 chg_virtue(caster_ptr, V_TEMPERANCE, -1);
1202                 break;
1203             case REALM_CRUSADE:
1204                 chg_virtue(caster_ptr, V_FAITH, 1);
1205                 chg_virtue(caster_ptr, V_JUSTICE, 1);
1206                 chg_virtue(caster_ptr, V_SACRIFICE, 1);
1207                 chg_virtue(caster_ptr, V_HONOUR, 1);
1208                 break;
1209             case REALM_NATURE:
1210                 chg_virtue(caster_ptr, V_NATURE, 1);
1211                 chg_virtue(caster_ptr, V_HARMONY, 1);
1212                 break;
1213             case REALM_HEX:
1214                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1215                 chg_virtue(caster_ptr, V_FAITH, -1);
1216                 chg_virtue(caster_ptr, V_HONOUR, -1);
1217                 chg_virtue(caster_ptr, V_COMPASSION, -1);
1218                 break;
1219             default:
1220                 chg_virtue(caster_ptr, V_KNOWLEDGE, 1);
1221                 break;
1222             }
1223         }
1224         switch (realm) {
1225         case REALM_LIFE:
1226             if (randint1(100 + caster_ptr->lev) < need_mana)
1227                 chg_virtue(caster_ptr, V_TEMPERANCE, 1);
1228             if (randint1(100 + caster_ptr->lev) < need_mana)
1229                 chg_virtue(caster_ptr, V_COMPASSION, 1);
1230             if (randint1(100 + caster_ptr->lev) < need_mana)
1231                 chg_virtue(caster_ptr, V_VITALITY, 1);
1232             if (randint1(100 + caster_ptr->lev) < need_mana)
1233                 chg_virtue(caster_ptr, V_DILIGENCE, 1);
1234             break;
1235         case REALM_DEATH:
1236             if (randint1(100 + caster_ptr->lev) < need_mana)
1237                 chg_virtue(caster_ptr, V_UNLIFE, 1);
1238             if (randint1(100 + caster_ptr->lev) < need_mana)
1239                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1240             if (randint1(100 + caster_ptr->lev) < need_mana)
1241                 chg_virtue(caster_ptr, V_FAITH, -1);
1242             if (randint1(100 + caster_ptr->lev) < need_mana)
1243                 chg_virtue(caster_ptr, V_VITALITY, -1);
1244             break;
1245         case REALM_DAEMON:
1246             if (randint1(100 + caster_ptr->lev) < need_mana)
1247                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1248             if (randint1(100 + caster_ptr->lev) < need_mana)
1249                 chg_virtue(caster_ptr, V_FAITH, -1);
1250             if (randint1(100 + caster_ptr->lev) < need_mana)
1251                 chg_virtue(caster_ptr, V_HONOUR, -1);
1252             if (randint1(100 + caster_ptr->lev) < need_mana)
1253                 chg_virtue(caster_ptr, V_TEMPERANCE, -1);
1254             break;
1255         case REALM_CRUSADE:
1256             if (randint1(100 + caster_ptr->lev) < need_mana)
1257                 chg_virtue(caster_ptr, V_FAITH, 1);
1258             if (randint1(100 + caster_ptr->lev) < need_mana)
1259                 chg_virtue(caster_ptr, V_JUSTICE, 1);
1260             if (randint1(100 + caster_ptr->lev) < need_mana)
1261                 chg_virtue(caster_ptr, V_SACRIFICE, 1);
1262             if (randint1(100 + caster_ptr->lev) < need_mana)
1263                 chg_virtue(caster_ptr, V_HONOUR, 1);
1264             break;
1265         case REALM_NATURE:
1266             if (randint1(100 + caster_ptr->lev) < need_mana)
1267                 chg_virtue(caster_ptr, V_NATURE, 1);
1268             if (randint1(100 + caster_ptr->lev) < need_mana)
1269                 chg_virtue(caster_ptr, V_HARMONY, 1);
1270             break;
1271         case REALM_HEX:
1272             if (randint1(100 + caster_ptr->lev) < need_mana)
1273                 chg_virtue(caster_ptr, V_JUSTICE, -1);
1274             if (randint1(100 + caster_ptr->lev) < need_mana)
1275                 chg_virtue(caster_ptr, V_FAITH, -1);
1276             if (randint1(100 + caster_ptr->lev) < need_mana)
1277                 chg_virtue(caster_ptr, V_HONOUR, -1);
1278             if (randint1(100 + caster_ptr->lev) < need_mana)
1279                 chg_virtue(caster_ptr, V_COMPASSION, -1);
1280             break;
1281         }
1282         if (any_bits(mp_ptr->spell_xtra, extra_magic_gain_exp)) {
1283             s16b cur_exp = caster_ptr->spell_exp[(increment ? 32 : 0) + spell];
1284             s16b exp_gain = 0;
1285
1286             if (cur_exp < SPELL_EXP_BEGINNER)
1287                 exp_gain += 60;
1288             else if (cur_exp < SPELL_EXP_SKILLED) {
1289                 if ((caster_ptr->current_floor_ptr->dun_level > 4) && ((caster_ptr->current_floor_ptr->dun_level + 10) > caster_ptr->lev))
1290                     exp_gain = 8;
1291             } else if (cur_exp < SPELL_EXP_EXPERT) {
1292                 if (((caster_ptr->current_floor_ptr->dun_level + 5) > caster_ptr->lev) && ((caster_ptr->current_floor_ptr->dun_level + 5) > s_ptr->slevel))
1293                     exp_gain = 2;
1294             } else if ((cur_exp < SPELL_EXP_MASTER) && !increment) {
1295                 if (((caster_ptr->current_floor_ptr->dun_level + 5) > caster_ptr->lev) && (caster_ptr->current_floor_ptr->dun_level > s_ptr->slevel))
1296                     exp_gain = 1;
1297             }
1298             caster_ptr->spell_exp[(increment ? 32 : 0) + spell] += exp_gain;
1299         }
1300     }
1301
1302     PlayerEnergy(caster_ptr).set_player_turn_energy(100);
1303
1304     /* Over-exert the player */
1305     if (over_exerted) {
1306         int oops = need_mana;
1307
1308         /* No mana left */
1309         caster_ptr->csp = 0;
1310         caster_ptr->csp_frac = 0;
1311
1312         msg_print(_("精神を集中しすぎて気を失ってしまった！", "You faint from the effort!"));
1313
1314         /* Hack -- Bypass free action */
1315         (void)set_paralyzed(caster_ptr, caster_ptr->paralyzed + randint1(5 * oops + 1));
1316
1317         switch (realm) {
1318         case REALM_LIFE:
1319             chg_virtue(caster_ptr, V_VITALITY, -10);
1320             break;
1321         case REALM_DEATH:
1322             chg_virtue(caster_ptr, V_UNLIFE, -10);
1323             break;
1324         case REALM_DAEMON:
1325             chg_virtue(caster_ptr, V_JUSTICE, 10);
1326             break;
1327         case REALM_NATURE:
1328             chg_virtue(caster_ptr, V_NATURE, -10);
1329             break;
1330         case REALM_CRUSADE:
1331             chg_virtue(caster_ptr, V_JUSTICE, -10);
1332             break;
1333         case REALM_HEX:
1334             chg_virtue(caster_ptr, V_COMPASSION, 10);
1335             break;
1336         default:
1337             chg_virtue(caster_ptr, V_KNOWLEDGE, -10);
1338             break;
1339         }
1340
1341         /* Damage CON (possibly permanently) */
1342         if (randint0(100) < 50) {
1343             bool perm = (randint0(100) < 25);
1344
1345             msg_print(_("体を悪くしてしまった！", "You have damaged your health!"));
1346
1347             /* Reduce constitution */
1348             (void)dec_stat(caster_ptr, A_CON, 15 + randint1(10), perm);
1349         }
1350     }
1351
1352     caster_ptr->window_flags |= (PW_PLAYER);
1353     caster_ptr->window_flags |= (PW_SPELL);
1354
1355     return true; //!< @note 詠唱した
1356 }