src/cmd5.c

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