src/cmd-action/cmd-spell.c

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