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         /* Get an item */
 499         q = _("どの本を読みますか? ", "Browse which book? ");
 500         s = _("読める本がない。", "You have no books that you can read.");
 501
 502         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR)))
 503         {
 504                 select_the_force = FALSE;
 505                 return;
 506         }
 507         select_the_force = FALSE;
 508
 509         if (item == INVEN_FORCE) /* the_force */
 510         {
 511                 do_cmd_mind_browse();
 512                 return;
 513         }
 514
 515         /* Get the item (in the pack) */
 516         else if (item >= 0)
 517         {
 518                 o_ptr = &inventory[item];
 519         }
 520
 521         /* Get the item (on the floor) */
 522         else
 523         {
 524                 o_ptr = &o_list[0 - item];
 525         }
 526
 527         /* Access the item's sval */
 528         sval = o_ptr->sval;
 529
 530         use_realm = tval2realm(o_ptr->tval);
 531
 532         /* Track the object kind */
 533         object_kind_track(o_ptr->k_idx);
 534
 535         /* Hack -- Handle stuff */
 536         handle_stuff();
 537
 538
 539         /* Extract spells */
 540         for (spell = 0; spell < 32; spell++)
 541         {
 542                 /* Check for this spell */
 543                 if ((fake_spell_flags[sval] & (1L << spell)))
 544                 {
 545                         /* Collect this spell */
 546                         spells[num++] = spell;
 547                 }
 548         }
 549
 550
 551         /* Save the screen */
 552         screen_save();
 553
 554         /* Clear the top line */
 555         prt("", 0, 0);
 556
 557         /* Keep browsing spells.  Exit browsing on cancel. */
 558         while(TRUE)
 559         {
 560                 /* Ask for a spell, allow cancel */
 561                 if (!get_spell(&spell, _("読む", "browse"), o_ptr->sval, TRUE, use_realm))
 562                 {
 563                         /* If cancelled, leave immediately. */
 564                         if (spell == -1) break;
 565
 566                         /* Display a list of spells */
 567                         print_spells(0, spells, num, 1, 15, use_realm);
 568
 569                         /* Notify that there's nothing to see, and wait. */
 570                         if (use_realm == REALM_HISSATSU)
 571                                 prt(_("読める技がない。", "No techniques to browse."), 0, 0);
 572                         else
 573                                 prt(_("読める呪文がない。", "No spells to browse."), 0, 0);
 574                         (void)inkey();
 575
 576
 577                         /* Restore the screen */
 578                         screen_load();
 579
 580                         return;
 581                 }
 582
 583                 /* Clear lines, position cursor  (really should use strlen here) */
 584                 Term_erase(14, 14, 255);
 585                 Term_erase(14, 13, 255);
 586                 Term_erase(14, 12, 255);
 587                 Term_erase(14, 11, 255);
 588
 589                 roff_to_buf(do_spell(use_realm, spell, SPELL_DESC), 62, temp, sizeof(temp));
 590
 591                 for (j = 0, line = 11; temp[j]; j += 1 + strlen(&temp[j]))
 592                 {
 593                         prt(&temp[j], line, 15);
 594                         line++;
 595                 }
 596         }
 597
 598         /* Restore the screen */
 599         screen_load();
 600 }
 601
 602 /*!
 603  * @brief プレイヤーの第二魔法領域を変更する /
 604  * @param next_realm 変更先の魔法領域ID
 605  * @return なし
 606  */
 607 static void change_realm2(CHARACTER_IDX next_realm)
 608 {
 609         int i, j = 0;
 610         char tmp[80];
 611
 612         for (i = 0; i < 64; i++)
 613         {
 614                 p_ptr->spell_order[j] = p_ptr->spell_order[i];
 615                 if (p_ptr->spell_order[i] < 32) j++;
 616         }
 617         for (; j < 64; j++)
 618                 p_ptr->spell_order[j] = 99;
 619
 620         for (i = 32; i < 64; i++)
 621         {
 622                 p_ptr->spell_exp[i] = SPELL_EXP_UNSKILLED;
 623         }
 624         p_ptr->spell_learned2 = 0L;
 625         p_ptr->spell_worked2 = 0L;
 626         p_ptr->spell_forgotten2 = 0L;
 627
 628         sprintf(tmp,_("魔法の領域を%sから%sに変更した。", "change magic realm from %s to %s."), realm_names[p_ptr->realm2], realm_names[next_realm]);
 629         do_cmd_write_nikki(NIKKI_BUNSHOU, 0, tmp);
 630         p_ptr->old_realm |= 1 << (p_ptr->realm2-1);
 631         p_ptr->realm2 = next_realm;
 632
 633         p_ptr->notice |= (PN_REORDER);
 634         p_ptr->update |= (PU_SPELLS);
 635         handle_stuff();
 636
 637         /* Load an autopick preference file */
 638         autopick_load_pref(FALSE);
 639 }
 640
 641
 642 /*!
 643  * @brief 魔法を学習するコマンドのメインルーチン /
 644  * Study a book to gain a new spell/prayer
 645  * @return なし
 646  */
 647 void do_cmd_study(void)
 648 {
 649         int     i;
 650         OBJECT_IDX item;
 651         OBJECT_SUBTYPE_VALUE sval;
 652         int     increment = 0;
 653         bool    learned = FALSE;
 654
 655         /* Spells of realm2 will have an increment of +32 */
 656         SPELL_IDX spell = -1;
 657
 658         cptr p = spell_category_name(mp_ptr->spell_book);
 659
 660         object_type *o_ptr;
 661
 662         cptr q, s;
 663
 664         if (!p_ptr->realm1)
 665         {
 666                 msg_print(_("本を読むことができない！", "You cannot read books!"));
 667                 return;
 668         }
 669
 670         if (p_ptr->blind || no_lite())
 671         {
 672                 msg_print(_("目が見えない！", "You cannot see!"));
 673                 return;
 674         }
 675
 676         if (p_ptr->confused)
 677         {
 678                 msg_print(_("混乱していて読めない！", "You are too confused!"));
 679                 return;
 680         }
 681
 682         if (!(p_ptr->new_spells))
 683         {
 684                 msg_format(_("新しい%sを覚えることはできない！", "You cannot learn any new %ss!"), p);
 685                 return;
 686         }
 687
 688         if (p_ptr->special_defense & KATA_MUSOU)
 689         {
 690                 set_action(ACTION_NONE);
 691         }
 692
 693 #ifdef JP
 694         if( p_ptr->new_spells < 10 ){
 695                 msg_format("あと %d つの%sを学べる。", p_ptr->new_spells, p);
 696         }else{
 697                 msg_format("あと %d 個の%sを学べる。", p_ptr->new_spells, p);
 698         }
 699 #else
 700         msg_format("You can learn %d new %s%s.", p_ptr->new_spells, p,
 701                 (p_ptr->new_spells == 1?"":"s"));
 702 #endif
 703
 704         msg_print(NULL);
 705
 706
 707         /* Restrict choices to "useful" books */
 708         if (p_ptr->realm2 == REALM_NONE) item_tester_tval = mp_ptr->spell_book;
 709         else item_tester_hook = item_tester_learn_spell;
 710
 711         /* Get an item */
 712         q = _("どの本から学びますか? ", "Study which book? ");
 713         s = _("読める本がない。", "You have no books that you can read.");
 714
 715         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
 716
 717         /* Get the item (in the pack) */
 718         if (item >= 0)
 719         {
 720                 o_ptr = &inventory[item];
 721         }
 722
 723         /* Get the item (on the floor) */
 724         else
 725         {
 726                 o_ptr = &o_list[0 - item];
 727         }
 728
 729         /* Access the item's sval */
 730         sval = o_ptr->sval;
 731
 732         if (o_ptr->tval == REALM2_BOOK) increment = 32;
 733         else if (o_ptr->tval != REALM1_BOOK)
 734         {
 735                 if (!get_check(_("本当に魔法の領域を変更しますか？", "Really, change magic realm? "))) return;
 736                 change_realm2(tval2realm(o_ptr->tval));
 737                 increment = 32;
 738         }
 739
 740         /* Track the object kind */
 741         object_kind_track(o_ptr->k_idx);
 742
 743         /* Hack -- Handle stuff */
 744         handle_stuff();
 745
 746         /* Mage -- Learn a selected spell */
 747         if (mp_ptr->spell_book != TV_LIFE_BOOK)
 748         {
 749                 /* Ask for a spell, allow cancel */
 750                 if (!get_spell(&spell, _("学ぶ", "study"), sval, FALSE, o_ptr->tval - TV_LIFE_BOOK + 1) && (spell == -1)) return;
 751         }
 752
 753         /* Priest -- Learn a random prayer */
 754         else
 755         {
 756                 int k = 0;
 757                 int gift = -1;
 758
 759                 /* Extract spells */
 760                 for (spell = 0; spell < 32; spell++)
 761                 {
 762                         /* Check spells in the book */
 763                         if ((fake_spell_flags[sval] & (1L << spell)))
 764                         {
 765                                 /* Skip non "okay" prayers */
 766                                 if (!spell_okay(spell, FALSE, TRUE,
 767                                         (increment ? p_ptr->realm2 : p_ptr->realm1))) continue;
 768
 769                                 /* Hack -- Prepare the randomizer */
 770                                 k++;
 771
 772                                 /* Hack -- Apply the randomizer */
 773                                 if (one_in_(k)) gift = spell;
 774                         }
 775                 }
 776
 777                 /* Accept gift */
 778                 spell = gift;
 779         }
 780
 781         /* Nothing to study */
 782         if (spell < 0)
 783         {
 784                 msg_format(_("その本には学ぶべき%sがない。", "You cannot learn any %ss in that book."), p);
 785
 786                 /* Abort */
 787                 return;
 788         }
 789
 790         if (increment) spell += increment;
 791
 792         /* Learn the spell */
 793         if (spell < 32)
 794         {
 795                 if (p_ptr->spell_learned1 & (1L << spell)) learned = TRUE;
 796                 else p_ptr->spell_learned1 |= (1L << spell);
 797         }
 798         else
 799         {
 800                 if (p_ptr->spell_learned2 & (1L << (spell - 32))) learned = TRUE;
 801                 else p_ptr->spell_learned2 |= (1L << (spell - 32));
 802         }
 803
 804         if (learned)
 805         {
 806                 int max_exp = (spell < 32) ? SPELL_EXP_MASTER : SPELL_EXP_EXPERT;
 807                 int old_exp = p_ptr->spell_exp[spell];
 808                 int new_rank = EXP_LEVEL_UNSKILLED;
 809                 cptr name = do_spell(increment ? p_ptr->realm2 : p_ptr->realm1, spell%32, SPELL_NAME);
 810
 811                 if (old_exp >= max_exp)
 812                 {
 813                         msg_format(_("その%sは完全に使いこなせるので学ぶ必要はない。", "You don't need to study this %s anymore."), p);
 814                         return;
 815                 }
 816 #ifdef JP
 817                 if (!get_check(format("%sの%sをさらに学びます。よろしいですか？", name, p)))
 818 #else
 819                 if (!get_check(format("You will study a %s of %s again. Are you sure? ", p, name)))
 820 #endif
 821                 {
 822                         return;
 823                 }
 824                 else if (old_exp >= SPELL_EXP_EXPERT)
 825                 {
 826                         p_ptr->spell_exp[spell] = SPELL_EXP_MASTER;
 827                         new_rank = EXP_LEVEL_MASTER;
 828                 }
 829                 else if (old_exp >= SPELL_EXP_SKILLED)
 830                 {
 831                         if (spell >= 32) p_ptr->spell_exp[spell] = SPELL_EXP_EXPERT;
 832                         else p_ptr->spell_exp[spell] += SPELL_EXP_EXPERT - SPELL_EXP_SKILLED;
 833                         new_rank = EXP_LEVEL_EXPERT;
 834                 }
 835                 else if (old_exp >= SPELL_EXP_BEGINNER)
 836                 {
 837                         p_ptr->spell_exp[spell] = SPELL_EXP_SKILLED + (old_exp - SPELL_EXP_BEGINNER) * 2 / 3;
 838                         new_rank = EXP_LEVEL_SKILLED;
 839                 }
 840                 else
 841                 {
 842                         p_ptr->spell_exp[spell] = SPELL_EXP_BEGINNER + old_exp / 3;
 843                         new_rank = EXP_LEVEL_BEGINNER;
 844                 }
 845                 msg_format(_("%sの熟練度が%sに上がった。", "Your proficiency of %s is now %s rank."), name, exp_level_str[new_rank]);
 846         }
 847         else
 848         {
 849                 /* Find the next open entry in "p_ptr->spell_order[]" */
 850                 for (i = 0; i < 64; i++)
 851                 {
 852                         /* Stop at the first empty space */
 853                         if (p_ptr->spell_order[i] == 99) break;
 854                 }
 855
 856                 /* Add the spell to the known list */
 857                 p_ptr->spell_order[i++] = spell;
 858
 859                 /* Mention the result */
 860 #ifdef JP
 861                 /* 英日切り替え機能に対応 */
 862                 if (mp_ptr->spell_book == TV_MUSIC_BOOK)
 863                 {
 864                         msg_format("%sを学んだ。",
 865                                     do_spell(increment ? p_ptr->realm2 : p_ptr->realm1, spell % 32, SPELL_NAME));
 866                 }
 867                 else
 868                 {
 869                         msg_format("%sの%sを学んだ。",
 870                                     do_spell(increment ? p_ptr->realm2 : p_ptr->realm1, spell % 32, SPELL_NAME) ,p);
 871                 }
 872 #else
 873                 msg_format("You have learned the %s of %s.",
 874                         p, do_spell(increment ? p_ptr->realm2 : p_ptr->realm1, spell % 32, SPELL_NAME));
 875 #endif
 876         }
 877
 878         p_ptr->energy_use = 100;
 879
 880         switch (mp_ptr->spell_book)
 881         {
 882         case TV_LIFE_BOOK:
 883                 chg_virtue(V_FAITH, 1);
 884                 break;
 885         case TV_DEATH_BOOK:
 886                 chg_virtue(V_UNLIFE, 1);
 887                 break;
 888         case TV_NATURE_BOOK:
 889                 chg_virtue(V_NATURE, 1);
 890                 break;
 891         default:
 892                 chg_virtue(V_KNOWLEDGE, 1);
 893                 break;
 894         }
 895
 896         sound(SOUND_STUDY);
 897
 898         /* One less spell available */
 899         p_ptr->learned_spells++;
 900 #
 901         /* Update Study */
 902         p_ptr->update |= (PU_SPELLS);
 903         update_stuff();
 904
 905         /* Redraw object recall */
 906         p_ptr->window |= (PW_OBJECT);
 907 }
 908
 909
 910 /*!
 911  * @brief 魔法を詠唱するコマンドのメインルーチン /
 912  * Cast a spell
 913  * @return なし
 914  */
 915 void do_cmd_cast(void)
 916 {
 917         OBJECT_IDX item;
 918         OBJECT_SUBTYPE_VALUE sval;
 919         SPELL_IDX spell;
 920         REALM_IDX realm;
 921         int     chance;
 922         int     increment = 0;
 923         REALM_IDX use_realm;
 924         MANA_POINT need_mana;
 925
 926         cptr prayer;
 927         object_type     *o_ptr;
 928         const magic_type *s_ptr;
 929         cptr q, s;
 930
 931         bool over_exerted = FALSE;
 932
 933         /* Require spell ability */
 934         if (!p_ptr->realm1 && (p_ptr->pclass != CLASS_SORCERER) && (p_ptr->pclass != CLASS_RED_MAGE))
 935         {
 936                 msg_print(_("呪文を唱えられない！", "You cannot cast spells!"));
 937                 return;
 938         }
 939
 940         /* Require lite */
 941         if (p_ptr->blind || no_lite())
 942         {
 943                 if (p_ptr->pclass == CLASS_FORCETRAINER) confirm_use_force(FALSE);
 944                 else
 945                 {
 946                         msg_print(_("目が見えない！", "You cannot see!"));
 947                         flush();
 948                 }
 949                 return;
 950         }
 951
 952         /* Not when confused */
 953         if (p_ptr->confused)
 954         {
 955                 msg_print(_("混乱していて唱えられない！", "You are too confused!"));
 956                 flush();
 957                 return;
 958         }
 959
 960         /* Hex */
 961         if (p_ptr->realm1 == REALM_HEX)
 962         {
 963                 if (hex_spell_fully())
 964                 {
 965                         bool flag = FALSE;
 966                         msg_print(_("これ以上新しい呪文を詠唱することはできない。", "Can not spell new spells more."));
 967                         flush();
 968                         if (p_ptr->lev >= 35) flag = stop_hex_spell();
 969                         if (!flag) return;
 970                 }
 971         }
 972
 973         if (p_ptr->pclass == CLASS_FORCETRAINER)
 974         {
 975                 if (player_has_no_spellbooks())
 976                 {
 977                         confirm_use_force(FALSE);
 978                         return;
 979                 }
 980                 select_the_force = TRUE;
 981         }
 982
 983         prayer = spell_category_name(mp_ptr->spell_book);
 984
 985         /* Restrict choices to spell books */
 986         item_tester_tval = mp_ptr->spell_book;
 987
 988         /* Get an item */
 989         q = _("どの呪文書を使いますか? ", "Use which book? ");
 990         s = _("呪文書がない！", "You have no spell books!");
 991
 992         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR)))
 993         {
 994                 select_the_force = FALSE;
 995                 return;
 996         }
 997         select_the_force = FALSE;
 998
 999         if (item == INVEN_FORCE) /* the_force */
1000         {
1001                 do_cmd_mind();
1002                 return;
1003         }
1004
1005         /* Get the item (in the pack) */
1006         else if (item >= 0)
1007         {
1008                 o_ptr = &inventory[item];
1009         }
1010
1011         /* Get the item (on the floor) */
1012         else
1013         {
1014                 o_ptr = &o_list[0 - item];
1015         }
1016
1017         /* Access the item's sval */
1018         sval = o_ptr->sval;
1019
1020         if ((p_ptr->pclass != CLASS_SORCERER) && (p_ptr->pclass != CLASS_RED_MAGE) && (o_ptr->tval == REALM2_BOOK)) increment = 32;
1021
1022
1023         /* Track the object kind */
1024         object_kind_track(o_ptr->k_idx);
1025
1026         /* Hack -- Handle stuff */
1027         handle_stuff();
1028
1029         if ((p_ptr->pclass == CLASS_SORCERER) || (p_ptr->pclass == CLASS_RED_MAGE))
1030                 realm = o_ptr->tval - TV_LIFE_BOOK + 1;
1031         else if (increment) realm = p_ptr->realm2;
1032         else realm = p_ptr->realm1;
1033
1034         /* Ask for a spell */
1035 #ifdef JP
1036         if (!get_spell(&spell, ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "詠唱する" : (mp_ptr->spell_book == TV_MUSIC_BOOK) ? "歌う" : "唱える"),
1037                         sval, TRUE, realm))
1038         {
1039                 if (spell == -2) msg_format("その本には知っている%sがない。", prayer);
1040                 return;
1041         }
1042 #else
1043         if (!get_spell(&spell, ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "recite" : "cast"),
1044                 sval, TRUE, realm))
1045         {
1046                 if (spell == -2)
1047                         msg_format("You don't know any %ss in that book.", prayer);
1048                 return;
1049         }
1050 #endif
1051
1052
1053         use_realm = tval2realm(o_ptr->tval);
1054
1055         /* Hex */
1056         if (use_realm == REALM_HEX)
1057         {
1058                 if (hex_spelling(spell))
1059                 {
1060                         msg_print(_("その呪文はすでに詠唱中だ。", "You are already casting it."));
1061                         return;
1062                 }
1063         }
1064
1065         if (!is_magic(use_realm))
1066         {
1067                 s_ptr = &technic_info[use_realm - MIN_TECHNIC][spell];
1068         }
1069         else
1070         {
1071                 s_ptr = &mp_ptr->info[realm - 1][spell];
1072         }
1073
1074         /* Extract mana consumption rate */
1075         need_mana = mod_need_mana(s_ptr->smana, spell, realm);
1076
1077         /* Verify "dangerous" spells */
1078         if (need_mana > p_ptr->csp)
1079         {
1080                 if (flush_failure) flush();
1081
1082                 /* Warning */
1083 #ifdef JP
1084                 msg_format("その%sを%sのに十分なマジックポイントがない。",prayer,
1085                          ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "詠唱する" : (mp_ptr->spell_book == TV_LIFE_BOOK) ? "歌う" : "唱える"));
1086 #else
1087                 msg_format("You do not have enough mana to %s this %s.",
1088                         ((mp_ptr->spell_book == TV_LIFE_BOOK) ? "recite" : "cast"),
1089                         prayer);
1090 #endif
1091
1092
1093                 if (!over_exert) return;
1094
1095                 /* Verify */
1096                 if (!get_check_strict(_("それでも挑戦しますか? ", "Attempt it anyway? "), CHECK_OKAY_CANCEL)) return;
1097         }
1098
1099         /* Spell failure chance */
1100         chance = spell_chance(spell, use_realm);
1101
1102         /* Sufficient mana */
1103         if (need_mana <= p_ptr->csp)
1104         {
1105                 /* Use some mana */
1106                 p_ptr->csp -= need_mana;
1107         }
1108         else over_exerted = TRUE;
1109
1110         /* Redraw mana */
1111         p_ptr->redraw |= (PR_MANA);
1112
1113         /* Failed spell */
1114         if (randint0(100) < chance)
1115         {
1116                 if (flush_failure) flush();
1117
1118                 msg_format(_("%sをうまく唱えられなかった！", "You failed to get the %s off!"), prayer);
1119                 sound(SOUND_FAIL);
1120
1121                 switch (realm)
1122                 {
1123                 case REALM_LIFE:
1124                         if (randint1(100) < chance) chg_virtue(V_VITALITY, -1);
1125                         break;
1126                 case REALM_DEATH:
1127                         if (randint1(100) < chance) chg_virtue(V_UNLIFE, -1);
1128                         break;
1129                 case REALM_NATURE:
1130                         if (randint1(100) < chance) chg_virtue(V_NATURE, -1);
1131                         break;
1132                 case REALM_DAEMON:
1133                         if (randint1(100) < chance) chg_virtue(V_JUSTICE, 1);
1134                         break;
1135                 case REALM_CRUSADE:
1136                         if (randint1(100) < chance) chg_virtue(V_JUSTICE, -1);
1137                         break;
1138                 case REALM_HEX:
1139                         if (randint1(100) < chance) chg_virtue(V_COMPASSION, -1);
1140                         break;
1141                 default:
1142                         if (randint1(100) < chance) chg_virtue(V_KNOWLEDGE, -1);
1143                         break;
1144                 }
1145
1146                 /* Failure casting may activate some side effect */
1147                 do_spell(realm, spell, SPELL_FAIL);
1148
1149
1150                 if ((o_ptr->tval == TV_CHAOS_BOOK) && (randint1(100) < spell))
1151                 {
1152                         msg_print(_("カオス的な効果を発生した！", "You produce a chaotic effect!"));
1153                         wild_magic(spell);
1154                 }
1155                 else if ((o_ptr->tval == TV_DEATH_BOOK) && (randint1(100) < spell))
1156                 {
1157                         if ((sval == 3) && one_in_(2))
1158                         {
1159                                 sanity_blast(0, TRUE);
1160                         }
1161                         else
1162                         {
1163                                 msg_print(_("痛い！", "It hurts!"));
1164                                 take_hit(DAMAGE_LOSELIFE, damroll(o_ptr->sval + 1, 6), _("暗黒魔法の逆流", "a miscast Death spell"), -1);
1165
1166                                 if ((spell > 15) && one_in_(6) && !p_ptr->hold_exp)
1167                                         lose_exp(spell * 250);
1168                         }
1169                 }
1170                 else if ((o_ptr->tval == TV_MUSIC_BOOK) && (randint1(200) < spell))
1171                 {
1172                         msg_print(_("いやな音が響いた", "An infernal sound echoed."));
1173                         aggravate_monsters(0);
1174                 }
1175                 if (randint1(100) >= chance)
1176                         chg_virtue(V_CHANCE,-1);
1177         }
1178
1179         /* Process spell */
1180         else
1181         {
1182                 /* Canceled spells cost neither a turn nor mana */
1183                 if (!do_spell(realm, spell, SPELL_CAST)) return;
1184
1185                 if (randint1(100) < chance)
1186                         chg_virtue(V_CHANCE,1);
1187
1188                 /* A spell was cast */
1189                 if (!(increment ?
1190                     (p_ptr->spell_worked2 & (1L << spell)) :
1191                     (p_ptr->spell_worked1 & (1L << spell)))
1192                     && (p_ptr->pclass != CLASS_SORCERER)
1193                     && (p_ptr->pclass != CLASS_RED_MAGE))
1194                 {
1195                         int e = s_ptr->sexp;
1196
1197                         /* The spell worked */
1198                         if (realm == p_ptr->realm1)
1199                         {
1200                                 p_ptr->spell_worked1 |= (1L << spell);
1201                         }
1202                         else
1203                         {
1204                                 p_ptr->spell_worked2 |= (1L << spell);
1205                         }
1206
1207                         /* Gain experience */
1208                         gain_exp(e * s_ptr->slevel);
1209
1210                         /* Redraw object recall */
1211                         p_ptr->window |= (PW_OBJECT);
1212
1213                         switch (realm)
1214                         {
1215                         case REALM_LIFE:
1216                                 chg_virtue(V_TEMPERANCE, 1);
1217                                 chg_virtue(V_COMPASSION, 1);
1218                                 chg_virtue(V_VITALITY, 1);
1219                                 chg_virtue(V_DILIGENCE, 1);
1220                                 break;
1221                         case REALM_DEATH:
1222                                 chg_virtue(V_UNLIFE, 1);
1223                                 chg_virtue(V_JUSTICE, -1);
1224                                 chg_virtue(V_FAITH, -1);
1225                                 chg_virtue(V_VITALITY, -1);
1226                                 break;
1227                         case REALM_DAEMON:
1228                                 chg_virtue(V_JUSTICE, -1);
1229                                 chg_virtue(V_FAITH, -1);
1230                                 chg_virtue(V_HONOUR, -1);
1231                                 chg_virtue(V_TEMPERANCE, -1);
1232                                 break;
1233                         case REALM_CRUSADE:
1234                                 chg_virtue(V_FAITH, 1);
1235                                 chg_virtue(V_JUSTICE, 1);
1236                                 chg_virtue(V_SACRIFICE, 1);
1237                                 chg_virtue(V_HONOUR, 1);
1238                                 break;
1239                         case REALM_NATURE:
1240                                 chg_virtue(V_NATURE, 1);
1241                                 chg_virtue(V_HARMONY, 1);
1242                                 break;
1243                         case REALM_HEX:
1244                                 chg_virtue(V_JUSTICE, -1);
1245                                 chg_virtue(V_FAITH, -1);
1246                                 chg_virtue(V_HONOUR, -1);
1247                                 chg_virtue(V_COMPASSION, -1);
1248                                 break;
1249                         default:
1250                                 chg_virtue(V_KNOWLEDGE, 1);
1251                                 break;
1252                         }
1253                 }
1254                 switch (realm)
1255                 {
1256                 case REALM_LIFE:
1257                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_TEMPERANCE, 1);
1258                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_COMPASSION, 1);
1259                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_VITALITY, 1);
1260                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_DILIGENCE, 1);
1261                         break;
1262                 case REALM_DEATH:
1263                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_UNLIFE, 1);
1264                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_JUSTICE, -1);
1265                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_FAITH, -1);
1266                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_VITALITY, -1);
1267                         break;
1268                 case REALM_DAEMON:
1269                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_JUSTICE, -1);
1270                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_FAITH, -1);
1271                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HONOUR, -1);
1272                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_TEMPERANCE, -1);
1273                         break;
1274                 case REALM_CRUSADE:
1275                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_FAITH, 1);
1276                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_JUSTICE, 1);
1277                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_SACRIFICE, 1);
1278                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HONOUR, 1);
1279                         break;
1280                 case REALM_NATURE:
1281                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_NATURE, 1);
1282                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HARMONY, 1);
1283                         break;
1284                 case REALM_HEX:
1285                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_JUSTICE, -1);
1286                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_FAITH, -1);
1287                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HONOUR, -1);
1288                         if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_COMPASSION, -1);
1289                         break;
1290                 }
1291                 if (mp_ptr->spell_xtra & MAGIC_GAIN_EXP)
1292                 {
1293                         s16b cur_exp = p_ptr->spell_exp[(increment ? 32 : 0)+spell];
1294                         s16b exp_gain = 0;
1295
1296                         if (cur_exp < SPELL_EXP_BEGINNER)
1297                                 exp_gain += 60;
1298                         else if (cur_exp < SPELL_EXP_SKILLED)
1299                         {
1300                                 if ((dun_level > 4) && ((dun_level + 10) > p_ptr->lev))
1301                                         exp_gain = 8;
1302                         }
1303                         else if (cur_exp < SPELL_EXP_EXPERT)
1304                         {
1305                                 if (((dun_level + 5) > p_ptr->lev) && ((dun_level + 5) > s_ptr->slevel))
1306                                         exp_gain = 2;
1307                         }
1308                         else if ((cur_exp < SPELL_EXP_MASTER) && !increment)
1309                         {
1310                                 if (((dun_level + 5) > p_ptr->lev) && (dun_level > s_ptr->slevel))
1311                                         exp_gain = 1;
1312                         }
1313                         p_ptr->spell_exp[(increment ? 32 : 0) + spell] += exp_gain;
1314                 }
1315         }
1316
1317         p_ptr->energy_use = 100;
1318
1319
1320         /* Over-exert the player */
1321         if(over_exerted)
1322         {
1323                 int oops = need_mana;
1324
1325                 /* No mana left */
1326                 p_ptr->csp = 0;
1327                 p_ptr->csp_frac = 0;
1328
1329                 msg_print(_("精神を集中しすぎて気を失ってしまった！", "You faint from the effort!"));
1330
1331                 /* Hack -- Bypass free action */
1332                 (void)set_paralyzed(p_ptr->paralyzed + randint1(5 * oops + 1));
1333
1334                 switch (realm)
1335                 {
1336                 case REALM_LIFE:
1337                         chg_virtue(V_VITALITY, -10);
1338                         break;
1339                 case REALM_DEATH:
1340                         chg_virtue(V_UNLIFE, -10);
1341                         break;
1342                 case REALM_DAEMON:
1343                         chg_virtue(V_JUSTICE, 10);
1344                         break;
1345                 case REALM_NATURE:
1346                         chg_virtue(V_NATURE, -10);
1347                         break;
1348                 case REALM_CRUSADE:
1349                         chg_virtue(V_JUSTICE, -10);
1350                         break;
1351                 case REALM_HEX:
1352                         chg_virtue(V_COMPASSION, 10);
1353                         break;
1354                 default:
1355                         chg_virtue(V_KNOWLEDGE, -10);
1356                         break;
1357                 }
1358
1359                 /* Damage CON (possibly permanently) */
1360                 if (randint0(100) < 50)
1361                 {
1362                         bool perm = (randint0(100) < 25);
1363
1364                         msg_print(_("体を悪くしてしまった！", "You have damaged your health!"));
1365
1366                         /* Reduce constitution */
1367                         (void)dec_stat(A_CON, 15 + randint1(10), perm);
1368                 }
1369         }
1370
1371         p_ptr->window |= (PW_PLAYER);
1372         p_ptr->window |= (PW_SPELL);
1373 }