src/artifact.c

   1 /*!
   2  * @file artifact.c
   3  * @brief アーティファクトの生成と管理 / Artifact code
   4  * @date 2013/12/11
   5  * @author
   6  * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke\n
   7  * This software may be copied and distributed for educational, research, and\n
   8  * not for profit purposes provided that this copyright and statement are\n
   9  * included in all such copies.\n
  10  * 2013 Deskull rearranged comment for Doxygen.
  11  */
  12
  13 #include "angband.h"
  14 #include "util.h"
  15
  16 #include "artifact.h"
  17 #include "cmd-smith.h"
  18
  19 #include "avatar.h"
  20 #include "floor.h"
  21 #include "cmd-activate.h"
  22 #include "object.h"
  23 #include "objectkind.h"
  24 #include "object-boost.h"
  25 #include "object-curse.h"
  26 #include "object-ego.h"
  27 #include "object-flavor.h"
  28 #include "object-hook.h"
  29 #include "spells-object.h"
  30 #include "files.h"
  31 #include "grid.h"
  32 #include "monster.h"
  33 #include "view-mainwindow.h"
  34 #include "player-class.h"
  35 #include "player-personality.h"
  36 #include "world.h"
  37
  38  /*
  39   * The artifact arrays
  40   */
  41 artifact_type *a_info;
  42 char *a_name;
  43 char *a_text;
  44
  45 /*
  46  * Maximum number of artifacts in a_info.txt
  47  */
  48 ARTIFACT_IDX max_a_idx;
  49
  50 static bool has_extreme_damage_rate(object_type *o_ptr);
  51 static bool weakening_artifact(object_type *o_ptr);
  52
  53 #ifdef JP
  54 /*!
  55  * @brief ランダムアーティファクトのバイアス名称テーブル
  56  */
  57 const concptr artifact_bias_name[MAX_BIAS] =
  58 {
  59         "なし",
  60         "電撃",
  61         "毒",
  62         "火炎",
  63         "冷気",
  64         "酸",
  65         "腕力",
  66         "知力",
  67         "賢さ",
  68         "器用さ",
  69         "耐久",
  70         "魅力",
  71         "混沌",
  72         "プリースト",
  73         "死霊",
  74         "法",
  75         "盗賊",
  76         "メイジ",
  77         "戦士",
  78         "レンジャー",
  79 };
  80 #else
  81 const concptr artifact_bias_name[MAX_BIAS] =
  82 {
  83         "None",
  84         "Elec",
  85         "Poison",
  86         "Fire",
  87         "Cold",
  88         "Acid",
  89         "STR",
  90         "INT",
  91         "WIS",
  92         "DEX",
  93         "CON",
  94         "CHA",
  95         "Chaos",
  96         "Pristly",
  97         "Necromantic",
  98         "Law",
  99         "Rogue",
 100         "Mage",
 101         "Warrior",
 102         "Ranger",
 103 };
 104 #endif
 105
 106
 107 /*!
 108  * @brief ランダムアーティファクト生成中、対象のオブジェクトを呪いのアーティファクトにする経過処理。/ generation process of cursed artifact.
 109  * @details pval、AC、命中、ダメージが正の場合、符号反転の上1d4だけ悪化させ、重い呪い、呪いフラグを必ず付加。
 110  * 祝福を無効。確率に応じて、永遠の呪い、太古の怨念、経験値吸収、弱い呪いの継続的付加、強い呪いの継続的付加、HP吸収の呪い、
 111  * MP吸収の呪い、乱テレポート、反テレポート、反魔法をつける。
 112  * @attention プレイヤーの職業依存処理あり。
 113  * @param player_ptr プレーヤーへの参照ポインタ
 114  * @param o_ptr 対象のオブジェクト構造体ポインタ
 115  * @return なし
 116  */
 117 static void curse_artifact(player_type *player_ptr, object_type *o_ptr)
 118 {
 119         if (o_ptr->pval > 0) o_ptr->pval = 0 - (o_ptr->pval + randint1(4));
 120         if (o_ptr->to_a > 0) o_ptr->to_a = 0 - (o_ptr->to_a + randint1(4));
 121         if (o_ptr->to_h > 0) o_ptr->to_h = 0 - (o_ptr->to_h + randint1(4));
 122         if (o_ptr->to_d > 0) o_ptr->to_d = 0 - (o_ptr->to_d + randint1(4));
 123
 124         o_ptr->curse_flags |= (TRC_HEAVY_CURSE | TRC_CURSED);
 125         remove_flag(o_ptr->art_flags, TR_BLESSED);
 126
 127         if (one_in_(4)) o_ptr->curse_flags |= TRC_PERMA_CURSE;
 128         if (one_in_(3)) add_flag(o_ptr->art_flags, TR_TY_CURSE);
 129         if (one_in_(2)) add_flag(o_ptr->art_flags, TR_AGGRAVATE);
 130         if (one_in_(3)) add_flag(o_ptr->art_flags, TR_DRAIN_EXP);
 131         if (one_in_(6)) add_flag(o_ptr->art_flags, TR_ADD_L_CURSE);
 132         if (one_in_(9)) add_flag(o_ptr->art_flags, TR_ADD_H_CURSE);
 133         if (one_in_(9)) add_flag(o_ptr->art_flags, TR_DRAIN_HP);
 134         if (one_in_(9)) add_flag(o_ptr->art_flags, TR_DRAIN_MANA);
 135         if (one_in_(2)) add_flag(o_ptr->art_flags, TR_TELEPORT);
 136         else if (one_in_(3)) add_flag(o_ptr->art_flags, TR_NO_TELE);
 137
 138         if ((player_ptr->pclass != CLASS_WARRIOR) && (player_ptr->pclass != CLASS_ARCHER) && (player_ptr->pclass != CLASS_CAVALRY) && (player_ptr->pclass != CLASS_BERSERKER) && (player_ptr->pclass != CLASS_SMITH) && one_in_(3))
 139                 add_flag(o_ptr->art_flags, TR_NO_MAGIC);
 140 }
 141
 142
 143 /*!
 144  * @brief ランダムアーティファクト生成中、対象のオブジェクトにpval能力を付加する。/ Add one pval on generation of randam artifact.
 145  * @details 優先的に付加されるpvalがランダムアーティファクトバイアスに依存して存在する。
 146  * 原則的候補は腕力、知力、賢さ、器用さ、耐久、魅力、探索、隠密、赤外線視力、加速。武器のみ採掘、追加攻撃も候補に入る。
 147  * @attention オブジェクトのtval、svalに依存したハードコーディング処理がある。
 148  * @param o_ptr 対象のオブジェクト構造体ポインタ
 149  * @return なし
 150  */
 151 static void random_plus(object_type *o_ptr)
 152 {
 153         int this_type = (object_is_weapon_ammo(o_ptr) ? 23 : 19);
 154
 155         switch (o_ptr->artifact_bias)
 156         {
 157         case BIAS_WARRIOR:
 158                 if (!(have_flag(o_ptr->art_flags, TR_STR)))
 159                 {
 160                         add_flag(o_ptr->art_flags, TR_STR);
 161                         if (one_in_(2)) return;
 162                 }
 163
 164                 if (!(have_flag(o_ptr->art_flags, TR_CON)))
 165                 {
 166                         add_flag(o_ptr->art_flags, TR_CON);
 167                         if (one_in_(2)) return;
 168                 }
 169
 170                 if (!(have_flag(o_ptr->art_flags, TR_DEX)))
 171                 {
 172                         add_flag(o_ptr->art_flags, TR_DEX);
 173                         if (one_in_(2)) return;
 174                 }
 175
 176                 break;
 177
 178         case BIAS_MAGE:
 179                 if (!(have_flag(o_ptr->art_flags, TR_INT)))
 180                 {
 181                         add_flag(o_ptr->art_flags, TR_INT);
 182                         if (one_in_(2)) return;
 183                 }
 184                 if ((o_ptr->tval == TV_GLOVES) && !(have_flag(o_ptr->art_flags, TR_MAGIC_MASTERY)))
 185                 {
 186                         add_flag(o_ptr->art_flags, TR_MAGIC_MASTERY);
 187                         if (one_in_(2)) return;
 188                 }
 189
 190                 break;
 191
 192         case BIAS_PRIESTLY:
 193                 if (!(have_flag(o_ptr->art_flags, TR_WIS)))
 194                 {
 195                         add_flag(o_ptr->art_flags, TR_WIS);
 196                         if (one_in_(2)) return;
 197                 }
 198
 199                 break;
 200
 201         case BIAS_RANGER:
 202                 if (!(have_flag(o_ptr->art_flags, TR_DEX)))
 203                 {
 204                         add_flag(o_ptr->art_flags, TR_DEX);
 205                         if (one_in_(2)) return;
 206                 }
 207
 208                 if (!(have_flag(o_ptr->art_flags, TR_CON)))
 209                 {
 210                         add_flag(o_ptr->art_flags, TR_CON);
 211                         if (one_in_(2)) return;
 212                 }
 213
 214                 if (!(have_flag(o_ptr->art_flags, TR_STR)))
 215                 {
 216                         add_flag(o_ptr->art_flags, TR_STR);
 217                         if (one_in_(2)) return;
 218                 }
 219
 220                 break;
 221
 222         case BIAS_ROGUE:
 223                 if (!(have_flag(o_ptr->art_flags, TR_STEALTH)))
 224                 {
 225                         add_flag(o_ptr->art_flags, TR_STEALTH);
 226                         if (one_in_(2)) return;
 227                 }
 228                 if (!(have_flag(o_ptr->art_flags, TR_SEARCH)))
 229                 {
 230                         add_flag(o_ptr->art_flags, TR_SEARCH);
 231                         if (one_in_(2)) return;
 232                 }
 233
 234                 break;
 235
 236         case BIAS_STR:
 237                 if (!(have_flag(o_ptr->art_flags, TR_STR)))
 238                 {
 239                         add_flag(o_ptr->art_flags, TR_STR);
 240                         if (one_in_(2)) return;
 241                 }
 242
 243                 break;
 244
 245         case BIAS_WIS:
 246                 if (!(have_flag(o_ptr->art_flags, TR_WIS)))
 247                 {
 248                         add_flag(o_ptr->art_flags, TR_WIS);
 249                         if (one_in_(2)) return;
 250                 }
 251
 252                 break;
 253
 254         case BIAS_INT:
 255                 if (!(have_flag(o_ptr->art_flags, TR_INT)))
 256                 {
 257                         add_flag(o_ptr->art_flags, TR_INT);
 258                         if (one_in_(2)) return;
 259                 }
 260
 261                 break;
 262
 263         case BIAS_DEX:
 264                 if (!(have_flag(o_ptr->art_flags, TR_DEX)))
 265                 {
 266                         add_flag(o_ptr->art_flags, TR_DEX);
 267                         if (one_in_(2)) return;
 268                 }
 269
 270                 break;
 271
 272         case BIAS_CON:
 273                 if (!(have_flag(o_ptr->art_flags, TR_CON)))
 274                 {
 275                         add_flag(o_ptr->art_flags, TR_CON);
 276                         if (one_in_(2)) return;
 277                 }
 278
 279                 break;
 280
 281         case BIAS_CHR:
 282                 if (!(have_flag(o_ptr->art_flags, TR_CHR)))
 283                 {
 284                         add_flag(o_ptr->art_flags, TR_CHR);
 285                         if (one_in_(2)) return;
 286                 }
 287
 288                 break;
 289         }
 290
 291         if ((o_ptr->artifact_bias == BIAS_MAGE || o_ptr->artifact_bias == BIAS_PRIESTLY) && (o_ptr->tval == TV_SOFT_ARMOR) && (o_ptr->sval == SV_ROBE))
 292         {
 293                 if (!(have_flag(o_ptr->art_flags, TR_DEC_MANA)) && one_in_(3))
 294                 {
 295                         add_flag(o_ptr->art_flags, TR_DEC_MANA);
 296                         if (one_in_(2)) return;
 297                 }
 298         }
 299
 300         switch (randint1(this_type))
 301         {
 302         case 1: case 2:
 303                 add_flag(o_ptr->art_flags, TR_STR);
 304                 if (!o_ptr->artifact_bias && !one_in_(13))
 305                         o_ptr->artifact_bias = BIAS_STR;
 306                 else if (!o_ptr->artifact_bias && one_in_(7))
 307                         o_ptr->artifact_bias = BIAS_WARRIOR;
 308                 break;
 309         case 3: case 4:
 310                 add_flag(o_ptr->art_flags, TR_INT);
 311                 if (!o_ptr->artifact_bias && !one_in_(13))
 312                         o_ptr->artifact_bias = BIAS_INT;
 313                 else if (!o_ptr->artifact_bias && one_in_(7))
 314                         o_ptr->artifact_bias = BIAS_MAGE;
 315                 break;
 316         case 5: case 6:
 317                 add_flag(o_ptr->art_flags, TR_WIS);
 318                 if (!o_ptr->artifact_bias && !one_in_(13))
 319                         o_ptr->artifact_bias = BIAS_WIS;
 320                 else if (!o_ptr->artifact_bias && one_in_(7))
 321                         o_ptr->artifact_bias = BIAS_PRIESTLY;
 322                 break;
 323         case 7: case 8:
 324                 add_flag(o_ptr->art_flags, TR_DEX);
 325                 if (!o_ptr->artifact_bias && !one_in_(13))
 326                         o_ptr->artifact_bias = BIAS_DEX;
 327                 else if (!o_ptr->artifact_bias && one_in_(7))
 328                         o_ptr->artifact_bias = BIAS_ROGUE;
 329                 break;
 330         case 9: case 10:
 331                 add_flag(o_ptr->art_flags, TR_CON);
 332                 if (!o_ptr->artifact_bias && !one_in_(13))
 333                         o_ptr->artifact_bias = BIAS_CON;
 334                 else if (!o_ptr->artifact_bias && one_in_(9))
 335                         o_ptr->artifact_bias = BIAS_RANGER;
 336                 break;
 337         case 11: case 12:
 338                 add_flag(o_ptr->art_flags, TR_CHR);
 339                 if (!o_ptr->artifact_bias && !one_in_(13))
 340                         o_ptr->artifact_bias = BIAS_CHR;
 341                 break;
 342         case 13: case 14:
 343                 add_flag(o_ptr->art_flags, TR_STEALTH);
 344                 if (!o_ptr->artifact_bias && one_in_(3))
 345                         o_ptr->artifact_bias = BIAS_ROGUE;
 346                 break;
 347         case 15: case 16:
 348                 add_flag(o_ptr->art_flags, TR_SEARCH);
 349                 if (!o_ptr->artifact_bias && one_in_(9))
 350                         o_ptr->artifact_bias = BIAS_RANGER;
 351                 break;
 352         case 17: case 18:
 353                 add_flag(o_ptr->art_flags, TR_INFRA);
 354                 break;
 355         case 19:
 356                 add_flag(o_ptr->art_flags, TR_SPEED);
 357                 if (!o_ptr->artifact_bias && one_in_(11))
 358                         o_ptr->artifact_bias = BIAS_ROGUE;
 359                 break;
 360         case 20: case 21:
 361                 add_flag(o_ptr->art_flags, TR_TUNNEL);
 362                 break;
 363         case 22: case 23:
 364                 if (o_ptr->tval == TV_BOW) random_plus(o_ptr);
 365                 else
 366                 {
 367                         add_flag(o_ptr->art_flags, TR_BLOWS);
 368                         if (!o_ptr->artifact_bias && one_in_(11))
 369                                 o_ptr->artifact_bias = BIAS_WARRIOR;
 370                 }
 371
 372                 break;
 373         }
 374 }
 375
 376
 377 /*!
 378  * @brief ランダムアーティファクト生成中、対象のオブジェクトに耐性を付加する。/ Add one resistance on generation of randam artifact.
 379  * @details 優先的に付加される耐性がランダムアーティファクトバイアスに依存して存在する。
 380  * 原則的候補は火炎、冷気、電撃、酸（以上免疫の可能性もあり）、
 381  * 毒、閃光、暗黒、破片、轟音、盲目、混乱、地獄、カオス、劣化、恐怖、火オーラ、冷気オーラ、電撃オーラ、反射。
 382  * 戦士系バイアスのみ反魔もつく。
 383  * @attention オブジェクトのtval、svalに依存したハードコーディング処理がある。
 384  * @param o_ptr 対象のオブジェクト構造体ポインタ
 385  * @return なし
 386  */
 387 static void random_resistance(object_type *o_ptr)
 388 {
 389         switch (o_ptr->artifact_bias)
 390         {
 391         case BIAS_ACID:
 392                 if (!(have_flag(o_ptr->art_flags, TR_RES_ACID)))
 393                 {
 394                         add_flag(o_ptr->art_flags, TR_RES_ACID);
 395                         if (one_in_(2)) return;
 396                 }
 397
 398                 if (one_in_(BIAS_LUCK) && !(have_flag(o_ptr->art_flags, TR_IM_ACID)))
 399                 {
 400                         add_flag(o_ptr->art_flags, TR_IM_ACID);
 401                         if (!one_in_(IM_LUCK))
 402                         {
 403                                 remove_flag(o_ptr->art_flags, TR_IM_ELEC);
 404                                 remove_flag(o_ptr->art_flags, TR_IM_COLD);
 405                                 remove_flag(o_ptr->art_flags, TR_IM_FIRE);
 406                         }
 407                         if (one_in_(2)) return;
 408                 }
 409
 410                 break;
 411
 412         case BIAS_ELEC:
 413                 if (!(have_flag(o_ptr->art_flags, TR_RES_ELEC)))
 414                 {
 415                         add_flag(o_ptr->art_flags, TR_RES_ELEC);
 416                         if (one_in_(2)) return;
 417                 }
 418
 419                 if ((o_ptr->tval >= TV_CLOAK) && (o_ptr->tval <= TV_HARD_ARMOR) &&
 420                         !(have_flag(o_ptr->art_flags, TR_SH_ELEC)))
 421                 {
 422                         add_flag(o_ptr->art_flags, TR_SH_ELEC);
 423                         if (one_in_(2)) return;
 424                 }
 425
 426                 if (one_in_(BIAS_LUCK) && !(have_flag(o_ptr->art_flags, TR_IM_ELEC)))
 427                 {
 428                         add_flag(o_ptr->art_flags, TR_IM_ELEC);
 429                         if (!one_in_(IM_LUCK))
 430                         {
 431                                 remove_flag(o_ptr->art_flags, TR_IM_ACID);
 432                                 remove_flag(o_ptr->art_flags, TR_IM_COLD);
 433                                 remove_flag(o_ptr->art_flags, TR_IM_FIRE);
 434                         }
 435
 436                         if (one_in_(2)) return;
 437                 }
 438
 439                 break;
 440
 441         case BIAS_FIRE:
 442                 if (!(have_flag(o_ptr->art_flags, TR_RES_FIRE)))
 443                 {
 444                         add_flag(o_ptr->art_flags, TR_RES_FIRE);
 445                         if (one_in_(2)) return;
 446                 }
 447
 448                 if ((o_ptr->tval >= TV_CLOAK) &&
 449                         (o_ptr->tval <= TV_HARD_ARMOR) &&
 450                         !(have_flag(o_ptr->art_flags, TR_SH_FIRE)))
 451                 {
 452                         add_flag(o_ptr->art_flags, TR_SH_FIRE);
 453                         if (one_in_(2)) return;
 454                 }
 455
 456                 if (one_in_(BIAS_LUCK) &&
 457                         !(have_flag(o_ptr->art_flags, TR_IM_FIRE)))
 458                 {
 459                         add_flag(o_ptr->art_flags, TR_IM_FIRE);
 460                         if (!one_in_(IM_LUCK))
 461                         {
 462                                 remove_flag(o_ptr->art_flags, TR_IM_ELEC);
 463                                 remove_flag(o_ptr->art_flags, TR_IM_COLD);
 464                                 remove_flag(o_ptr->art_flags, TR_IM_ACID);
 465                         }
 466                         if (one_in_(2)) return;
 467                 }
 468
 469                 break;
 470
 471         case BIAS_COLD:
 472                 if (!(have_flag(o_ptr->art_flags, TR_RES_COLD)))
 473                 {
 474                         add_flag(o_ptr->art_flags, TR_RES_COLD);
 475                         if (one_in_(2)) return;
 476                 }
 477
 478                 if ((o_ptr->tval >= TV_CLOAK) &&
 479                         (o_ptr->tval <= TV_HARD_ARMOR) &&
 480                         !(have_flag(o_ptr->art_flags, TR_SH_COLD)))
 481                 {
 482                         add_flag(o_ptr->art_flags, TR_SH_COLD);
 483                         if (one_in_(2)) return;
 484                 }
 485
 486                 if (one_in_(BIAS_LUCK) && !(have_flag(o_ptr->art_flags, TR_IM_COLD)))
 487                 {
 488                         add_flag(o_ptr->art_flags, TR_IM_COLD);
 489                         if (!one_in_(IM_LUCK))
 490                         {
 491                                 remove_flag(o_ptr->art_flags, TR_IM_ELEC);
 492                                 remove_flag(o_ptr->art_flags, TR_IM_ACID);
 493                                 remove_flag(o_ptr->art_flags, TR_IM_FIRE);
 494                         }
 495                         if (one_in_(2)) return;
 496                 }
 497
 498                 break;
 499
 500         case BIAS_POIS:
 501                 if (!(have_flag(o_ptr->art_flags, TR_RES_POIS)))
 502                 {
 503                         add_flag(o_ptr->art_flags, TR_RES_POIS);
 504                         if (one_in_(2)) return;
 505                 }
 506
 507                 break;
 508
 509         case BIAS_WARRIOR:
 510                 if (!one_in_(3) && (!(have_flag(o_ptr->art_flags, TR_RES_FEAR))))
 511                 {
 512                         add_flag(o_ptr->art_flags, TR_RES_FEAR);
 513                         if (one_in_(2)) return;
 514                 }
 515
 516                 if (one_in_(3) && (!(have_flag(o_ptr->art_flags, TR_NO_MAGIC))))
 517                 {
 518                         add_flag(o_ptr->art_flags, TR_NO_MAGIC);
 519                         if (one_in_(2)) return;
 520                 }
 521
 522                 break;
 523
 524         case BIAS_NECROMANTIC:
 525                 if (!(have_flag(o_ptr->art_flags, TR_RES_NETHER)))
 526                 {
 527                         add_flag(o_ptr->art_flags, TR_RES_NETHER);
 528                         if (one_in_(2)) return;
 529                 }
 530
 531                 if (!(have_flag(o_ptr->art_flags, TR_RES_POIS)))
 532                 {
 533                         add_flag(o_ptr->art_flags, TR_RES_POIS);
 534                         if (one_in_(2)) return;
 535                 }
 536
 537                 if (!(have_flag(o_ptr->art_flags, TR_RES_DARK)))
 538                 {
 539                         add_flag(o_ptr->art_flags, TR_RES_DARK);
 540                         if (one_in_(2)) return;
 541                 }
 542
 543                 break;
 544
 545         case BIAS_CHAOS:
 546                 if (!(have_flag(o_ptr->art_flags, TR_RES_CHAOS)))
 547                 {
 548                         add_flag(o_ptr->art_flags, TR_RES_CHAOS);
 549                         if (one_in_(2)) return;
 550                 }
 551
 552                 if (!(have_flag(o_ptr->art_flags, TR_RES_CONF)))
 553                 {
 554                         add_flag(o_ptr->art_flags, TR_RES_CONF);
 555                         if (one_in_(2)) return;
 556                 }
 557
 558                 if (!(have_flag(o_ptr->art_flags, TR_RES_DISEN)))
 559                 {
 560                         add_flag(o_ptr->art_flags, TR_RES_DISEN);
 561                         if (one_in_(2)) return;
 562                 }
 563
 564                 break;
 565         }
 566
 567         switch (randint1(42))
 568         {
 569         case 1:
 570                 if (!one_in_(WEIRD_LUCK))
 571                         random_resistance(o_ptr);
 572                 else
 573                 {
 574                         add_flag(o_ptr->art_flags, TR_IM_ACID);
 575                         if (!o_ptr->artifact_bias)
 576                                 o_ptr->artifact_bias = BIAS_ACID;
 577                 }
 578
 579                 break;
 580         case 2:
 581                 if (!one_in_(WEIRD_LUCK))
 582                         random_resistance(o_ptr);
 583                 else
 584                 {
 585                         add_flag(o_ptr->art_flags, TR_IM_ELEC);
 586                         if (!o_ptr->artifact_bias)
 587                                 o_ptr->artifact_bias = BIAS_ELEC;
 588                 }
 589
 590                 break;
 591         case 3:
 592                 if (!one_in_(WEIRD_LUCK))
 593                         random_resistance(o_ptr);
 594                 else
 595                 {
 596                         add_flag(o_ptr->art_flags, TR_IM_COLD);
 597                         if (!o_ptr->artifact_bias)
 598                                 o_ptr->artifact_bias = BIAS_COLD;
 599                 }
 600
 601                 break;
 602         case 4:
 603                 if (!one_in_(WEIRD_LUCK))
 604                         random_resistance(o_ptr);
 605                 else
 606                 {
 607                         add_flag(o_ptr->art_flags, TR_IM_FIRE);
 608                         if (!o_ptr->artifact_bias)
 609                                 o_ptr->artifact_bias = BIAS_FIRE;
 610                 }
 611
 612                 break;
 613         case 5:
 614         case 6:
 615         case 13:
 616                 add_flag(o_ptr->art_flags, TR_RES_ACID);
 617                 if (!o_ptr->artifact_bias)
 618                         o_ptr->artifact_bias = BIAS_ACID;
 619                 break;
 620         case 7:
 621         case 8:
 622         case 14:
 623                 add_flag(o_ptr->art_flags, TR_RES_ELEC);
 624                 if (!o_ptr->artifact_bias)
 625                         o_ptr->artifact_bias = BIAS_ELEC;
 626                 break;
 627         case 9:
 628         case 10:
 629         case 15:
 630                 add_flag(o_ptr->art_flags, TR_RES_FIRE);
 631                 if (!o_ptr->artifact_bias)
 632                         o_ptr->artifact_bias = BIAS_FIRE;
 633                 break;
 634         case 11:
 635         case 12:
 636         case 16:
 637                 add_flag(o_ptr->art_flags, TR_RES_COLD);
 638                 if (!o_ptr->artifact_bias)
 639                         o_ptr->artifact_bias = BIAS_COLD;
 640                 break;
 641         case 17:
 642         case 18:
 643                 add_flag(o_ptr->art_flags, TR_RES_POIS);
 644                 if (!o_ptr->artifact_bias && !one_in_(4))
 645                         o_ptr->artifact_bias = BIAS_POIS;
 646                 else if (!o_ptr->artifact_bias && one_in_(2))
 647                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
 648                 else if (!o_ptr->artifact_bias && one_in_(2))
 649                         o_ptr->artifact_bias = BIAS_ROGUE;
 650                 break;
 651         case 19:
 652         case 20:
 653                 add_flag(o_ptr->art_flags, TR_RES_FEAR);
 654                 if (!o_ptr->artifact_bias && one_in_(3))
 655                         o_ptr->artifact_bias = BIAS_WARRIOR;
 656                 break;
 657         case 21:
 658                 add_flag(o_ptr->art_flags, TR_RES_LITE);
 659                 break;
 660         case 22:
 661                 add_flag(o_ptr->art_flags, TR_RES_DARK);
 662                 break;
 663         case 23:
 664         case 24:
 665                 add_flag(o_ptr->art_flags, TR_RES_BLIND);
 666                 break;
 667         case 25:
 668         case 26:
 669                 add_flag(o_ptr->art_flags, TR_RES_CONF);
 670                 if (!o_ptr->artifact_bias && one_in_(6))
 671                         o_ptr->artifact_bias = BIAS_CHAOS;
 672                 break;
 673         case 27:
 674         case 28:
 675                 add_flag(o_ptr->art_flags, TR_RES_SOUND);
 676                 break;
 677         case 29:
 678         case 30:
 679                 add_flag(o_ptr->art_flags, TR_RES_SHARDS);
 680                 break;
 681         case 31:
 682         case 32:
 683                 add_flag(o_ptr->art_flags, TR_RES_NETHER);
 684                 if (!o_ptr->artifact_bias && one_in_(3))
 685                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
 686                 break;
 687         case 33:
 688         case 34:
 689                 add_flag(o_ptr->art_flags, TR_RES_NEXUS);
 690                 break;
 691         case 35:
 692         case 36:
 693                 add_flag(o_ptr->art_flags, TR_RES_CHAOS);
 694                 if (!o_ptr->artifact_bias && one_in_(2))
 695                         o_ptr->artifact_bias = BIAS_CHAOS;
 696                 break;
 697         case 37:
 698         case 38:
 699                 add_flag(o_ptr->art_flags, TR_RES_DISEN);
 700                 break;
 701         case 39:
 702                 if (o_ptr->tval >= TV_CLOAK && o_ptr->tval <= TV_HARD_ARMOR)
 703                         add_flag(o_ptr->art_flags, TR_SH_ELEC);
 704                 else
 705                         random_resistance(o_ptr);
 706                 if (!o_ptr->artifact_bias)
 707                         o_ptr->artifact_bias = BIAS_ELEC;
 708                 break;
 709         case 40:
 710                 if (o_ptr->tval >= TV_CLOAK && o_ptr->tval <= TV_HARD_ARMOR)
 711                         add_flag(o_ptr->art_flags, TR_SH_FIRE);
 712                 else
 713                         random_resistance(o_ptr);
 714                 if (!o_ptr->artifact_bias)
 715                         o_ptr->artifact_bias = BIAS_FIRE;
 716                 break;
 717         case 41:
 718                 if (o_ptr->tval == TV_SHIELD || o_ptr->tval == TV_CLOAK ||
 719                         o_ptr->tval == TV_HELM || o_ptr->tval == TV_HARD_ARMOR)
 720                         add_flag(o_ptr->art_flags, TR_REFLECT);
 721                 else
 722                         random_resistance(o_ptr);
 723                 break;
 724         case 42:
 725                 if (o_ptr->tval >= TV_CLOAK && o_ptr->tval <= TV_HARD_ARMOR)
 726                         add_flag(o_ptr->art_flags, TR_SH_COLD);
 727                 else
 728                         random_resistance(o_ptr);
 729                 if (!o_ptr->artifact_bias)
 730                         o_ptr->artifact_bias = BIAS_COLD;
 731                 break;
 732         }
 733 }
 734
 735
 736 /*!
 737  * @brief ランダムアーティファクト生成中、対象のオブジェクトにその他特性を付加する。/ Add one misc flag on generation of randam artifact.
 738  * @details 優先的に付加される耐性がランダムアーティファクトバイアスに依存して存在する。
 739  * 原則的候補は各種能力維持、永久光源+1、麻痺知らず、経験値維持、浮遊、透明視、急回復、遅消化、
 740  * 乱テレポート、反魔法、反テレポート、警告、テレパシー、各種ESP、一部装備に殺戮修正。
 741  * @attention オブジェクトのtval、svalに依存したハードコーディング処理がある。
 742  * @param o_ptr 対象のオブジェクト構造体ポインタ
 743  * @return なし
 744  */
 745 static void random_misc(object_type *o_ptr)
 746 {
 747         switch (o_ptr->artifact_bias)
 748         {
 749         case BIAS_RANGER:
 750                 if (!(have_flag(o_ptr->art_flags, TR_SUST_CON)))
 751                 {
 752                         add_flag(o_ptr->art_flags, TR_SUST_CON);
 753                         if (one_in_(2)) return;
 754                 }
 755
 756                 break;
 757
 758         case BIAS_STR:
 759                 if (!(have_flag(o_ptr->art_flags, TR_SUST_STR)))
 760                 {
 761                         add_flag(o_ptr->art_flags, TR_SUST_STR);
 762                         if (one_in_(2)) return;
 763                 }
 764
 765                 break;
 766
 767         case BIAS_WIS:
 768                 if (!(have_flag(o_ptr->art_flags, TR_SUST_WIS)))
 769                 {
 770                         add_flag(o_ptr->art_flags, TR_SUST_WIS);
 771                         if (one_in_(2)) return;
 772                 }
 773
 774                 break;
 775
 776         case BIAS_INT:
 777                 if (!(have_flag(o_ptr->art_flags, TR_SUST_INT)))
 778                 {
 779                         add_flag(o_ptr->art_flags, TR_SUST_INT);
 780                         if (one_in_(2)) return;
 781                 }
 782
 783                 break;
 784
 785         case BIAS_DEX:
 786                 if (!(have_flag(o_ptr->art_flags, TR_SUST_DEX)))
 787                 {
 788                         add_flag(o_ptr->art_flags, TR_SUST_DEX);
 789                         if (one_in_(2)) return;
 790                 }
 791
 792                 break;
 793
 794         case BIAS_CON:
 795                 if (!(have_flag(o_ptr->art_flags, TR_SUST_CON)))
 796                 {
 797                         add_flag(o_ptr->art_flags, TR_SUST_CON);
 798                         if (one_in_(2)) return;
 799                 }
 800
 801                 break;
 802
 803         case BIAS_CHR:
 804                 if (!(have_flag(o_ptr->art_flags, TR_SUST_CHR)))
 805                 {
 806                         add_flag(o_ptr->art_flags, TR_SUST_CHR);
 807                         if (one_in_(2)) return;
 808                 }
 809
 810                 break;
 811
 812         case BIAS_CHAOS:
 813                 if (!(have_flag(o_ptr->art_flags, TR_TELEPORT)))
 814                 {
 815                         add_flag(o_ptr->art_flags, TR_TELEPORT);
 816                         if (one_in_(2)) return;
 817                 }
 818
 819                 break;
 820
 821         case BIAS_FIRE:
 822                 if (!(have_flag(o_ptr->art_flags, TR_LITE_1)))
 823                 {
 824                         add_flag(o_ptr->art_flags, TR_LITE_1); /* Freebie */
 825                 }
 826
 827                 break;
 828         }
 829
 830         switch (randint1(33))
 831         {
 832         case 1:
 833                 add_flag(o_ptr->art_flags, TR_SUST_STR);
 834                 if (!o_ptr->artifact_bias)
 835                         o_ptr->artifact_bias = BIAS_STR;
 836                 break;
 837         case 2:
 838                 add_flag(o_ptr->art_flags, TR_SUST_INT);
 839                 if (!o_ptr->artifact_bias)
 840                         o_ptr->artifact_bias = BIAS_INT;
 841                 break;
 842         case 3:
 843                 add_flag(o_ptr->art_flags, TR_SUST_WIS);
 844                 if (!o_ptr->artifact_bias)
 845                         o_ptr->artifact_bias = BIAS_WIS;
 846                 break;
 847         case 4:
 848                 add_flag(o_ptr->art_flags, TR_SUST_DEX);
 849                 if (!o_ptr->artifact_bias)
 850                         o_ptr->artifact_bias = BIAS_DEX;
 851                 break;
 852         case 5:
 853                 add_flag(o_ptr->art_flags, TR_SUST_CON);
 854                 if (!o_ptr->artifact_bias)
 855                         o_ptr->artifact_bias = BIAS_CON;
 856                 break;
 857         case 6:
 858                 add_flag(o_ptr->art_flags, TR_SUST_CHR);
 859                 if (!o_ptr->artifact_bias)
 860                         o_ptr->artifact_bias = BIAS_CHR;
 861                 break;
 862         case 7:
 863         case 8:
 864         case 14:
 865                 add_flag(o_ptr->art_flags, TR_FREE_ACT);
 866                 break;
 867         case 9:
 868                 add_flag(o_ptr->art_flags, TR_HOLD_EXP);
 869                 if (!o_ptr->artifact_bias && one_in_(5))
 870                         o_ptr->artifact_bias = BIAS_PRIESTLY;
 871                 else if (!o_ptr->artifact_bias && one_in_(6))
 872                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
 873                 break;
 874         case 10:
 875         case 11:
 876                 add_flag(o_ptr->art_flags, TR_LITE_1);
 877                 break;
 878         case 12:
 879         case 13:
 880                 add_flag(o_ptr->art_flags, TR_LEVITATION);
 881                 break;
 882         case 15:
 883         case 16:
 884         case 17:
 885                 add_flag(o_ptr->art_flags, TR_SEE_INVIS);
 886                 break;
 887         case 19:
 888         case 20:
 889                 add_flag(o_ptr->art_flags, TR_SLOW_DIGEST);
 890                 break;
 891         case 21:
 892         case 22:
 893                 add_flag(o_ptr->art_flags, TR_REGEN);
 894                 break;
 895         case 23:
 896                 add_flag(o_ptr->art_flags, TR_TELEPORT);
 897                 break;
 898         case 24:
 899         case 25:
 900         case 26:
 901                 if (object_is_armour(o_ptr))
 902                         random_misc(o_ptr);
 903                 else
 904                 {
 905                         o_ptr->to_a = 4 + randint1(11);
 906                 }
 907
 908                 break;
 909         case 27:
 910         case 28:
 911         case 29:
 912         {
 913                 HIT_PROB bonus_h;
 914                 HIT_POINT bonus_d;
 915                 add_flag(o_ptr->art_flags, TR_SHOW_MODS);
 916                 bonus_h = 4 + (HIT_PROB)(randint1(11));
 917                 bonus_d = 4 + (HIT_POINT)(randint1(11));
 918                 if ((o_ptr->tval != TV_SWORD) && (o_ptr->tval != TV_POLEARM) && (o_ptr->tval != TV_HAFTED) && (o_ptr->tval != TV_DIGGING) && (o_ptr->tval != TV_GLOVES) && (o_ptr->tval != TV_RING))
 919                 {
 920                         bonus_h /= 2;
 921                         bonus_d /= 2;
 922                 }
 923                 o_ptr->to_h += bonus_h;
 924                 o_ptr->to_d += bonus_d;
 925                 break;
 926         }
 927         case 30:
 928                 add_flag(o_ptr->art_flags, TR_NO_MAGIC);
 929                 break;
 930         case 31:
 931                 add_flag(o_ptr->art_flags, TR_NO_TELE);
 932                 break;
 933         case 32:
 934                 add_flag(o_ptr->art_flags, TR_WARNING);
 935                 break;
 936
 937         case 18:
 938                 switch (randint1(3))
 939                 {
 940                 case 1:
 941                         add_flag(o_ptr->art_flags, TR_ESP_EVIL);
 942                         if (!o_ptr->artifact_bias && one_in_(3))
 943                                 o_ptr->artifact_bias = BIAS_LAW;
 944                         break;
 945                 case 2:
 946                         add_flag(o_ptr->art_flags, TR_ESP_NONLIVING);
 947                         if (!o_ptr->artifact_bias && one_in_(3))
 948                                 o_ptr->artifact_bias = BIAS_MAGE;
 949                         break;
 950                 case 3:
 951                         add_flag(o_ptr->art_flags, TR_TELEPATHY);
 952                         if (!o_ptr->artifact_bias && one_in_(9))
 953                                 o_ptr->artifact_bias = BIAS_MAGE;
 954                         break;
 955                 }
 956
 957                 break;
 958
 959         case 33:
 960         {
 961                 int idx[3];
 962                 int n = randint1(3);
 963
 964                 idx[0] = randint1(10);
 965
 966                 idx[1] = randint1(9);
 967                 if (idx[1] >= idx[0]) idx[1]++;
 968
 969                 idx[2] = randint1(8);
 970                 if (idx[2] >= idx[0]) idx[2]++;
 971                 if (idx[2] >= idx[1]) idx[2]++;
 972
 973                 while (n--)
 974                 {
 975                         switch (idx[n])
 976                         {
 977                         case 1:
 978                                 add_flag(o_ptr->art_flags, TR_ESP_ANIMAL);
 979                                 if (!o_ptr->artifact_bias && one_in_(4))
 980                                         o_ptr->artifact_bias = BIAS_RANGER;
 981                                 break;
 982                         case 2:
 983                                 add_flag(o_ptr->art_flags, TR_ESP_UNDEAD);
 984                                 if (!o_ptr->artifact_bias && one_in_(3))
 985                                         o_ptr->artifact_bias = BIAS_PRIESTLY;
 986                                 else if (!o_ptr->artifact_bias && one_in_(6))
 987                                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
 988                                 break;
 989                         case 3:
 990                                 add_flag(o_ptr->art_flags, TR_ESP_DEMON);
 991                                 break;
 992                         case 4:
 993                                 add_flag(o_ptr->art_flags, TR_ESP_ORC);
 994                                 break;
 995                         case 5:
 996                                 add_flag(o_ptr->art_flags, TR_ESP_TROLL);
 997                                 break;
 998                         case 6:
 999                                 add_flag(o_ptr->art_flags, TR_ESP_GIANT);
1000                                 break;
1001                         case 7:
1002                                 add_flag(o_ptr->art_flags, TR_ESP_DRAGON);
1003                                 break;
1004                         case 8:
1005                                 add_flag(o_ptr->art_flags, TR_ESP_HUMAN);
1006                                 if (!o_ptr->artifact_bias && one_in_(6))
1007                                         o_ptr->artifact_bias = BIAS_ROGUE;
1008                                 break;
1009                         case 9:
1010                                 add_flag(o_ptr->art_flags, TR_ESP_GOOD);
1011                                 if (!o_ptr->artifact_bias && one_in_(3))
1012                                         o_ptr->artifact_bias = BIAS_LAW;
1013                                 break;
1014                         case 10:
1015                                 add_flag(o_ptr->art_flags, TR_ESP_UNIQUE);
1016                                 if (!o_ptr->artifact_bias && one_in_(3))
1017                                         o_ptr->artifact_bias = BIAS_LAW;
1018                                 break;
1019                         }
1020
1021                         break;
1022                 }
1023         }
1024         }
1025 }
1026
1027
1028 /*!
1029  * @brief ランダムアーティファクト生成中、対象のオブジェクトにスレイ効果を付加する。/ Add one slaying on generation of randam artifact.
1030  * @details 優先的に付加される耐性がランダムアーティファクトバイアスに依存して存在する。
1031  * 原則的候補は強力射、高速射、混沌効果、吸血効果、祝福、投擲しやすい、焼棄、凍結、電撃、溶解、毒殺、
1032  * 動物スレイ、邪悪スレイ、悪魔スレイ、不死スレイ、オークスレイ、トロルスレイ、巨人スレイ、ドラゴンスレイ、
1033  * *ドラゴンスレイ*、人間スレイ、切れ味、地震、理力。
1034  * @attention オブジェクトのtval、svalに依存したハードコーディング処理がある。
1035  * @param o_ptr 対象のオブジェクト構造体ポインタ
1036  * @return なし
1037  */
1038 static void random_slay(object_type *o_ptr)
1039 {
1040         if (o_ptr->tval == TV_BOW)
1041         {
1042                 switch (randint1(6))
1043                 {
1044                 case 1:
1045                 case 2:
1046                 case 3:
1047                         add_flag(o_ptr->art_flags, TR_XTRA_MIGHT);
1048                         if (!one_in_(7)) remove_flag(o_ptr->art_flags, TR_XTRA_SHOTS);
1049                         if (!o_ptr->artifact_bias && one_in_(9))
1050                                 o_ptr->artifact_bias = BIAS_RANGER;
1051                         break;
1052                 default:
1053                         add_flag(o_ptr->art_flags, TR_XTRA_SHOTS);
1054                         if (!one_in_(7)) remove_flag(o_ptr->art_flags, TR_XTRA_MIGHT);
1055                         if (!o_ptr->artifact_bias && one_in_(9))
1056                                 o_ptr->artifact_bias = BIAS_RANGER;
1057                         break;
1058                 }
1059
1060                 return;
1061         }
1062
1063         switch (o_ptr->artifact_bias)
1064         {
1065         case BIAS_CHAOS:
1066                 if (!(have_flag(o_ptr->art_flags, TR_CHAOTIC)))
1067                 {
1068                         add_flag(o_ptr->art_flags, TR_CHAOTIC);
1069                         if (one_in_(2)) return;
1070                 }
1071
1072                 break;
1073
1074         case BIAS_PRIESTLY:
1075                 if ((o_ptr->tval == TV_SWORD || o_ptr->tval == TV_POLEARM) &&
1076                         !(have_flag(o_ptr->art_flags, TR_BLESSED)))
1077                 {
1078                         /* A free power for "priestly" random artifacts */
1079                         add_flag(o_ptr->art_flags, TR_BLESSED);
1080                 }
1081
1082                 break;
1083
1084         case BIAS_NECROMANTIC:
1085                 if (!(have_flag(o_ptr->art_flags, TR_VAMPIRIC)))
1086                 {
1087                         add_flag(o_ptr->art_flags, TR_VAMPIRIC);
1088                         if (one_in_(2)) return;
1089                 }
1090
1091                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_POIS)) && one_in_(2))
1092                 {
1093                         add_flag(o_ptr->art_flags, TR_BRAND_POIS);
1094                         if (one_in_(2)) return;
1095                 }
1096
1097                 break;
1098
1099         case BIAS_RANGER:
1100                 if (!(have_flag(o_ptr->art_flags, TR_SLAY_ANIMAL)))
1101                 {
1102                         add_flag(o_ptr->art_flags, TR_SLAY_ANIMAL);
1103                         if (one_in_(2)) return;
1104                 }
1105
1106                 break;
1107
1108         case BIAS_ROGUE:
1109                 if ((((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DAGGER)) ||
1110                         ((o_ptr->tval == TV_POLEARM) && (o_ptr->sval == SV_SPEAR))) &&
1111                         !(have_flag(o_ptr->art_flags, TR_THROW)))
1112                 {
1113                         /* Free power for rogues... */
1114                         add_flag(o_ptr->art_flags, TR_THROW);
1115                 }
1116
1117                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_POIS)))
1118                 {
1119                         add_flag(o_ptr->art_flags, TR_BRAND_POIS);
1120                         if (one_in_(2)) return;
1121                 }
1122
1123                 break;
1124
1125         case BIAS_POIS:
1126                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_POIS)))
1127                 {
1128                         add_flag(o_ptr->art_flags, TR_BRAND_POIS);
1129                         if (one_in_(2)) return;
1130                 }
1131
1132                 break;
1133
1134         case BIAS_FIRE:
1135                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_FIRE)))
1136                 {
1137                         add_flag(o_ptr->art_flags, TR_BRAND_FIRE);
1138                         if (one_in_(2)) return;
1139                 }
1140
1141                 break;
1142
1143         case BIAS_COLD:
1144                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_COLD)))
1145                 {
1146                         add_flag(o_ptr->art_flags, TR_BRAND_COLD);
1147                         if (one_in_(2)) return;
1148                 }
1149
1150                 break;
1151
1152         case BIAS_ELEC:
1153                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_ELEC)))
1154                 {
1155                         add_flag(o_ptr->art_flags, TR_BRAND_ELEC);
1156                         if (one_in_(2)) return;
1157                 }
1158
1159                 break;
1160
1161         case BIAS_ACID:
1162                 if (!(have_flag(o_ptr->art_flags, TR_BRAND_ACID)))
1163                 {
1164                         add_flag(o_ptr->art_flags, TR_BRAND_ACID);
1165                         if (one_in_(2)) return;
1166                 }
1167
1168                 break;
1169
1170         case BIAS_LAW:
1171                 if (!(have_flag(o_ptr->art_flags, TR_SLAY_EVIL)))
1172                 {
1173                         add_flag(o_ptr->art_flags, TR_SLAY_EVIL);
1174                         if (one_in_(2)) return;
1175                 }
1176
1177                 if (!(have_flag(o_ptr->art_flags, TR_SLAY_UNDEAD)))
1178                 {
1179                         add_flag(o_ptr->art_flags, TR_SLAY_UNDEAD);
1180                         if (one_in_(2)) return;
1181                 }
1182
1183                 if (!(have_flag(o_ptr->art_flags, TR_SLAY_DEMON)))
1184                 {
1185                         add_flag(o_ptr->art_flags, TR_SLAY_DEMON);
1186                         if (one_in_(2)) return;
1187                 }
1188
1189                 break;
1190         }
1191
1192         switch (randint1(36))
1193         {
1194         case 1:
1195         case 2:
1196                 if (one_in_(4))
1197                 {
1198                         add_flag(o_ptr->art_flags, TR_KILL_ANIMAL);
1199                 }
1200                 else
1201                 {
1202                         add_flag(o_ptr->art_flags, TR_SLAY_ANIMAL);
1203                 }
1204                 break;
1205         case 3:
1206         case 4:
1207                 if (one_in_(8))
1208                 {
1209                         add_flag(o_ptr->art_flags, TR_KILL_EVIL);
1210                 }
1211                 else
1212                 {
1213                         add_flag(o_ptr->art_flags, TR_SLAY_EVIL);
1214                 }
1215                 if (!o_ptr->artifact_bias && one_in_(2))
1216                         o_ptr->artifact_bias = BIAS_LAW;
1217                 else if (!o_ptr->artifact_bias && one_in_(9))
1218                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1219                 break;
1220         case 5:
1221         case 6:
1222                 if (one_in_(4))
1223                 {
1224                         add_flag(o_ptr->art_flags, TR_KILL_UNDEAD);
1225                 }
1226                 else
1227                 {
1228                         add_flag(o_ptr->art_flags, TR_SLAY_UNDEAD);
1229                 }
1230                 if (!o_ptr->artifact_bias && one_in_(9))
1231                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1232                 break;
1233         case 7:
1234         case 8:
1235                 if (one_in_(4))
1236                 {
1237                         add_flag(o_ptr->art_flags, TR_KILL_DEMON);
1238                 }
1239                 else
1240                 {
1241                         add_flag(o_ptr->art_flags, TR_SLAY_DEMON);
1242                 }
1243                 if (!o_ptr->artifact_bias && one_in_(9))
1244                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1245                 break;
1246         case 9:
1247         case 10:
1248                 if (one_in_(4))
1249                 {
1250                         add_flag(o_ptr->art_flags, TR_KILL_ORC);
1251                 }
1252                 else
1253                 {
1254                         add_flag(o_ptr->art_flags, TR_SLAY_ORC);
1255                 }
1256                 break;
1257         case 11:
1258         case 12:
1259                 if (one_in_(4))
1260                 {
1261                         add_flag(o_ptr->art_flags, TR_KILL_TROLL);
1262                 }
1263                 else
1264                 {
1265                         add_flag(o_ptr->art_flags, TR_SLAY_TROLL);
1266                 }
1267                 break;
1268         case 13:
1269         case 14:
1270                 if (one_in_(4))
1271                 {
1272                         add_flag(o_ptr->art_flags, TR_KILL_GIANT);
1273                 }
1274                 else
1275                 {
1276                         add_flag(o_ptr->art_flags, TR_SLAY_GIANT);
1277                 }
1278
1279                 break;
1280         case 15:
1281         case 16:
1282                 add_flag(o_ptr->art_flags, TR_SLAY_DRAGON);
1283                 break;
1284         case 17:
1285                 add_flag(o_ptr->art_flags, TR_KILL_DRAGON);
1286                 break;
1287         case 18:
1288         case 19:
1289                 if (o_ptr->tval == TV_SWORD)
1290                 {
1291                         add_flag(o_ptr->art_flags, TR_VORPAL);
1292                         if (!o_ptr->artifact_bias && one_in_(9))
1293                                 o_ptr->artifact_bias = BIAS_WARRIOR;
1294                 }
1295                 else
1296                         random_slay(o_ptr);
1297                 break;
1298         case 20:
1299                 add_flag(o_ptr->art_flags, TR_IMPACT);
1300                 break;
1301         case 21:
1302         case 22:
1303                 add_flag(o_ptr->art_flags, TR_BRAND_FIRE);
1304                 if (!o_ptr->artifact_bias)
1305                         o_ptr->artifact_bias = BIAS_FIRE;
1306                 break;
1307         case 23:
1308         case 24:
1309                 add_flag(o_ptr->art_flags, TR_BRAND_COLD);
1310                 if (!o_ptr->artifact_bias)
1311                         o_ptr->artifact_bias = BIAS_COLD;
1312                 break;
1313         case 25:
1314         case 26:
1315                 add_flag(o_ptr->art_flags, TR_BRAND_ELEC);
1316                 if (!o_ptr->artifact_bias)
1317                         o_ptr->artifact_bias = BIAS_ELEC;
1318                 break;
1319         case 27:
1320         case 28:
1321                 add_flag(o_ptr->art_flags, TR_BRAND_ACID);
1322                 if (!o_ptr->artifact_bias)
1323                         o_ptr->artifact_bias = BIAS_ACID;
1324                 break;
1325         case 29:
1326         case 30:
1327                 add_flag(o_ptr->art_flags, TR_BRAND_POIS);
1328                 if (!o_ptr->artifact_bias && !one_in_(3))
1329                         o_ptr->artifact_bias = BIAS_POIS;
1330                 else if (!o_ptr->artifact_bias && one_in_(6))
1331                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
1332                 else if (!o_ptr->artifact_bias)
1333                         o_ptr->artifact_bias = BIAS_ROGUE;
1334                 break;
1335         case 31:
1336                 add_flag(o_ptr->art_flags, TR_VAMPIRIC);
1337                 if (!o_ptr->artifact_bias)
1338                         o_ptr->artifact_bias = BIAS_NECROMANTIC;
1339                 break;
1340         case 32:
1341                 add_flag(o_ptr->art_flags, TR_FORCE_WEAPON);
1342                 if (!o_ptr->artifact_bias)
1343                         o_ptr->artifact_bias = (one_in_(2) ? BIAS_MAGE : BIAS_PRIESTLY);
1344                 break;
1345         case 33:
1346         case 34:
1347                 if (one_in_(4))
1348                 {
1349                         add_flag(o_ptr->art_flags, TR_KILL_HUMAN);
1350                 }
1351                 else
1352                 {
1353                         add_flag(o_ptr->art_flags, TR_SLAY_HUMAN);
1354                 }
1355
1356                 break;
1357         default:
1358                 add_flag(o_ptr->art_flags, TR_CHAOTIC);
1359                 if (!o_ptr->artifact_bias)
1360                         o_ptr->artifact_bias = BIAS_CHAOS;
1361                 break;
1362         }
1363 }
1364
1365
1366 /*!
1367  * @brief ランダムアーティファクト生成中、対象のオブジェクトにバイアスに依存した発動を与える。/ Add one activaton of randam artifact depend on bias.
1368  * @details バイアスが無い場合、一部のバイアスの確率によっては one_ability() に処理が移行する。
1369  * @param o_ptr 対象のオブジェクト構造体ポインタ
1370  * @return なし
1371  */
1372 static void give_activation_power(object_type *o_ptr)
1373 {
1374         int type = 0, chance = 0;
1375
1376         switch (o_ptr->artifact_bias)
1377         {
1378         case BIAS_ELEC:
1379                 if (!one_in_(3))
1380                 {
1381                         type = ACT_BO_ELEC_1;
1382                 }
1383                 else if (!one_in_(5))
1384                 {
1385                         type = ACT_BA_ELEC_2;
1386                 }
1387                 else
1388                 {
1389                         type = ACT_BA_ELEC_3;
1390                 }
1391
1392                 chance = 101;
1393                 break;
1394
1395         case BIAS_POIS:
1396                 type = ACT_BA_POIS_1;
1397                 chance = 101;
1398                 break;
1399
1400         case BIAS_FIRE:
1401                 if (!one_in_(3))
1402                 {
1403                         type = ACT_BO_FIRE_1;
1404                 }
1405                 else if (!one_in_(5))
1406                 {
1407                         type = ACT_BA_FIRE_1;
1408                 }
1409                 else
1410                 {
1411                         type = ACT_BA_FIRE_2;
1412                 }
1413
1414                 chance = 101;
1415                 break;
1416
1417         case BIAS_COLD:
1418                 chance = 101;
1419                 if (!one_in_(3))
1420                         type = ACT_BO_COLD_1;
1421                 else if (!one_in_(3))
1422                         type = ACT_BA_COLD_1;
1423                 else if (!one_in_(3))
1424                         type = ACT_BA_COLD_2;
1425                 else
1426                         type = ACT_BA_COLD_3;
1427                 break;
1428
1429         case BIAS_CHAOS:
1430                 chance = 50;
1431                 if (one_in_(6))
1432                         type = ACT_SUMMON_DEMON;
1433                 else
1434                         type = ACT_CALL_CHAOS;
1435                 break;
1436
1437         case BIAS_PRIESTLY:
1438                 chance = 101;
1439
1440                 if (one_in_(13))
1441                         type = ACT_CHARM_UNDEAD;
1442                 else if (one_in_(12))
1443                         type = ACT_BANISH_EVIL;
1444                 else if (one_in_(11))
1445                         type = ACT_DISP_EVIL;
1446                 else if (one_in_(10))
1447                         type = ACT_PROT_EVIL;
1448                 else if (one_in_(9))
1449                         type = ACT_CURE_1000;
1450                 else if (one_in_(8))
1451                         type = ACT_CURE_700;
1452                 else if (one_in_(7))
1453                         type = ACT_REST_ALL;
1454                 else if (one_in_(6))
1455                         type = ACT_REST_EXP;
1456                 else
1457                         type = ACT_CURE_MW;
1458                 break;
1459
1460         case BIAS_NECROMANTIC:
1461                 chance = 101;
1462                 if (one_in_(66))
1463                         type = ACT_WRAITH;
1464                 else if (one_in_(13))
1465                         type = ACT_DISP_GOOD;
1466                 else if (one_in_(9))
1467                         type = ACT_MASS_GENO;
1468                 else if (one_in_(8))
1469                         type = ACT_GENOCIDE;
1470                 else if (one_in_(13))
1471                         type = ACT_SUMMON_UNDEAD;
1472                 else if (one_in_(9))
1473                         type = ACT_DRAIN_2;
1474                 else if (one_in_(6))
1475                         type = ACT_CHARM_UNDEAD;
1476                 else
1477                         type = ACT_DRAIN_1;
1478                 break;
1479
1480         case BIAS_LAW:
1481                 chance = 101;
1482                 if (one_in_(8))
1483                         type = ACT_BANISH_EVIL;
1484                 else if (one_in_(4))
1485                         type = ACT_DISP_EVIL;
1486                 else
1487                         type = ACT_PROT_EVIL;
1488                 break;
1489
1490         case BIAS_ROGUE:
1491                 chance = 101;
1492                 if (one_in_(50))
1493                         type = ACT_SPEED;
1494                 else if (one_in_(4))
1495                         type = ACT_SLEEP;
1496                 else if (one_in_(3))
1497                         type = ACT_DETECT_ALL;
1498                 else if (one_in_(8))
1499                         type = ACT_ID_FULL;
1500                 else
1501                         type = ACT_ID_PLAIN;
1502                 break;
1503
1504         case BIAS_MAGE:
1505                 chance = 66;
1506                 if (one_in_(20))
1507                         type = ACT_SUMMON_ELEMENTAL;
1508                 else if (one_in_(10))
1509                         type = ACT_SUMMON_PHANTOM;
1510                 else if (one_in_(5))
1511                         type = ACT_RUNE_EXPLO;
1512                 else
1513                         type = ACT_ESP;
1514                 break;
1515
1516         case BIAS_WARRIOR:
1517                 chance = 80;
1518                 if (one_in_(100))
1519                         type = ACT_INVULN;
1520                 else
1521                         type = ACT_BERSERK;
1522                 break;
1523
1524         case BIAS_RANGER:
1525                 chance = 101;
1526                 if (one_in_(20))
1527                         type = ACT_CHARM_ANIMALS;
1528                 else if (one_in_(7))
1529                         type = ACT_SUMMON_ANIMAL;
1530                 else if (one_in_(6))
1531                         type = ACT_CHARM_ANIMAL;
1532                 else if (one_in_(4))
1533                         type = ACT_RESIST_ALL;
1534                 else if (one_in_(3))
1535                         type = ACT_SATIATE;
1536                 else
1537                         type = ACT_CURE_POISON;
1538                 break;
1539         }
1540
1541         if (!type || (randint1(100) >= chance))
1542         {
1543                 one_activation(o_ptr);
1544                 return;
1545         }
1546
1547         /* A type was chosen... */
1548         o_ptr->xtra2 = (byte_hack)type;
1549         add_flag(o_ptr->art_flags, TR_ACTIVATE);
1550         o_ptr->timeout = 0;
1551 }
1552
1553
1554 /*!
1555  * @brief ランダムアーティファクト生成中、対象のオブジェクトに名前を与える。/ Set name of randomartifact.
1556  * @details 確率によって、シンダリン銘、漢字銘、固定名のいずれか一つが与えられる。
1557  * @param o_ptr 処理中のアイテム参照ポインタ
1558  * @param return_name 名前を返すための文字列参照ポインタ
1559  * @param armour 対象のオブジェクトが防具が否か
1560  * @param power 銘の基準となるオブジェクトの価値レベル(0=呪い、1=低位、2=中位、3以上=高位)
1561  * @return なし
1562  */
1563 static void get_random_name(object_type *o_ptr, char *return_name, bool armour, int power)
1564 {
1565         PERCENTAGE prob = randint1(100);
1566
1567         if (prob <= SINDARIN_NAME)
1568         {
1569                 get_table_sindarin(return_name);
1570         }
1571         else if (prob <= TABLE_NAME)
1572         {
1573                 get_table_name(return_name);
1574         }
1575         else
1576         {
1577                 concptr filename;
1578
1579                 switch (armour)
1580                 {
1581                 case 1:
1582                         switch (power)
1583                         {
1584                         case 0:
1585                                 filename = _("a_cursed_j.txt", "a_cursed.txt");
1586                                 break;
1587                         case 1:
1588                                 filename = _("a_low_j.txt", "a_low.txt");
1589                                 break;
1590                         case 2:
1591                                 filename = _("a_med_j.txt", "a_med.txt");
1592                                 break;
1593                         default:
1594                                 filename = _("a_high_j.txt", "a_high.txt");
1595                         }
1596                         break;
1597                 default:
1598                         switch (power)
1599                         {
1600                         case 0:
1601                                 filename = _("w_cursed_j.txt", "w_cursed.txt");
1602                                 break;
1603                         case 1:
1604                                 filename = _("w_low_j.txt", "w_low.txt");
1605                                 break;
1606                         case 2:
1607                                 filename = _("w_med_j.txt", "w_med.txt");
1608                                 break;
1609                         default:
1610                                 filename = _("w_high_j.txt", "w_high.txt");
1611                         }
1612                 }
1613
1614                 (void)get_rnd_line(filename, o_ptr->artifact_bias, return_name);
1615 #ifdef JP
1616                 if (return_name[0] == 0) get_table_name(return_name);
1617 #endif
1618         }
1619 }
1620
1621
1622 /*!
1623  * @brief ランダムアーティファクト生成のメインルーチン
1624  * @details 既に生成が済んでいるオブジェクトの構造体を、アーティファクトとして強化する。
1625  * @param player_ptr プレーヤーへの参照ポインタ
1626  * @param o_ptr 対象のオブジェクト構造体ポインタ
1627  * @param a_scroll アーティファクト生成の巻物上の処理。呪いのアーティファクトが生成対象外となる。
1628  * @return 常にTRUE(1)を返す
1629  */
1630 bool become_random_artifact(player_type *player_ptr, object_type *o_ptr, bool a_scroll)
1631 {
1632         GAME_TEXT new_name[1024];
1633         PARAMETER_VALUE has_pval = 0;
1634         int     powers = randint1(5) + 1;
1635         int     max_powers;
1636         int     max_type = (object_is_weapon_ammo(o_ptr) ? 7 : 5);
1637         int     power_level;
1638         s32b    total_flags;
1639         bool    a_cursed = FALSE;
1640         int     warrior_artifact_bias = 0;
1641         int i;
1642
1643         /* Reset artifact bias */
1644         o_ptr->artifact_bias = 0;
1645
1646         /* Nuke enchantments */
1647         o_ptr->name1 = 0;
1648         o_ptr->name2 = 0;
1649
1650         for (i = 0; i < TR_FLAG_SIZE; i++)
1651                 o_ptr->art_flags[i] |= k_info[o_ptr->k_idx].flags[i];
1652
1653         if (o_ptr->pval) has_pval = TRUE;
1654
1655         if (a_scroll && one_in_(4))
1656         {
1657                 switch (player_ptr->pclass)
1658                 {
1659                 case CLASS_WARRIOR:
1660                 case CLASS_BERSERKER:
1661                 case CLASS_ARCHER:
1662                 case CLASS_SAMURAI:
1663                 case CLASS_CAVALRY:
1664                 case CLASS_SMITH:
1665                         o_ptr->artifact_bias = BIAS_WARRIOR;
1666                         break;
1667                 case CLASS_MAGE:
1668                 case CLASS_HIGH_MAGE:
1669                 case CLASS_SORCERER:
1670                 case CLASS_MAGIC_EATER:
1671                 case CLASS_BLUE_MAGE:
1672                         o_ptr->artifact_bias = BIAS_MAGE;
1673                         break;
1674                 case CLASS_PRIEST:
1675                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1676                         break;
1677                 case CLASS_ROGUE:
1678                 case CLASS_NINJA:
1679                         o_ptr->artifact_bias = BIAS_ROGUE;
1680                         warrior_artifact_bias = 25;
1681                         break;
1682                 case CLASS_RANGER:
1683                 case CLASS_SNIPER:
1684                         o_ptr->artifact_bias = BIAS_RANGER;
1685                         warrior_artifact_bias = 30;
1686                         break;
1687                 case CLASS_PALADIN:
1688                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1689                         warrior_artifact_bias = 40;
1690                         break;
1691                 case CLASS_WARRIOR_MAGE:
1692                 case CLASS_RED_MAGE:
1693                         o_ptr->artifact_bias = BIAS_MAGE;
1694                         warrior_artifact_bias = 40;
1695                         break;
1696                 case CLASS_CHAOS_WARRIOR:
1697                         o_ptr->artifact_bias = BIAS_CHAOS;
1698                         warrior_artifact_bias = 40;
1699                         break;
1700                 case CLASS_MONK:
1701                 case CLASS_FORCETRAINER:
1702                         o_ptr->artifact_bias = BIAS_PRIESTLY;
1703                         break;
1704                 case CLASS_MINDCRAFTER:
1705                 case CLASS_BARD:
1706                         if (randint1(5) > 2) o_ptr->artifact_bias = BIAS_PRIESTLY;
1707                         break;
1708                 case CLASS_TOURIST:
1709                         if (randint1(5) > 2) o_ptr->artifact_bias = BIAS_WARRIOR;
1710                         break;
1711                 case CLASS_IMITATOR:
1712                         if (randint1(2) > 1) o_ptr->artifact_bias = BIAS_RANGER;
1713                         break;
1714                 case CLASS_BEASTMASTER:
1715                         o_ptr->artifact_bias = BIAS_CHR;
1716                         warrior_artifact_bias = 50;
1717                         break;
1718                 case CLASS_MIRROR_MASTER:
1719                         if (randint1(4) > 1)
1720                         {
1721                                 o_ptr->artifact_bias = BIAS_MAGE;
1722                         }
1723                         else
1724                         {
1725                                 o_ptr->artifact_bias = BIAS_ROGUE;
1726                         }
1727
1728                         break;
1729                 }
1730         }
1731
1732         if (a_scroll && (randint1(100) <= warrior_artifact_bias))
1733                 o_ptr->artifact_bias = BIAS_WARRIOR;
1734
1735         strcpy(new_name, "");
1736
1737         if (!a_scroll && one_in_(A_CURSED))
1738                 a_cursed = TRUE;
1739         if (((o_ptr->tval == TV_AMULET) || (o_ptr->tval == TV_RING)) && object_is_cursed(o_ptr))
1740                 a_cursed = TRUE;
1741
1742         while (one_in_(powers) || one_in_(7) || one_in_(10))
1743                 powers++;
1744
1745         if (!a_cursed && one_in_(WEIRD_LUCK))
1746                 powers *= 2;
1747
1748         if (a_cursed) powers /= 2;
1749
1750         max_powers = powers;
1751         /* Main loop */
1752         while (powers--)
1753         {
1754                 switch (randint1(max_type))
1755                 {
1756                 case 1: case 2:
1757                         random_plus(o_ptr);
1758                         has_pval = TRUE;
1759                         break;
1760                 case 3: case 4:
1761                         if (one_in_(2) && object_is_weapon_ammo(o_ptr) && (o_ptr->tval != TV_BOW))
1762                         {
1763                                 if (a_cursed && !one_in_(13)) break;
1764                                 if (one_in_(13))
1765                                 {
1766                                         if (one_in_(o_ptr->ds + 4)) o_ptr->ds++;
1767                                 }
1768                                 else
1769                                 {
1770                                         if (one_in_(o_ptr->dd + 1)) o_ptr->dd++;
1771                                 }
1772                         }
1773                         else
1774                                 random_resistance(o_ptr);
1775                         break;
1776                 case 5:
1777                         random_misc(o_ptr);
1778                         break;
1779                 case 6: case 7:
1780                         random_slay(o_ptr);
1781                         break;
1782                 default:
1783                         if (current_world_ptr->wizard) msg_print("Switch error in become_random_artifact!");
1784                         powers++;
1785                 }
1786         };
1787
1788         if (has_pval)
1789         {
1790                 if (have_flag(o_ptr->art_flags, TR_BLOWS))
1791                 {
1792                         o_ptr->pval = randint1(2);
1793                         if ((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_HAYABUSA))
1794                                 o_ptr->pval++;
1795                 }
1796                 else
1797                 {
1798                         do
1799                         {
1800                                 o_ptr->pval++;
1801                         } while (o_ptr->pval < randint1(5) || one_in_(o_ptr->pval));
1802                 }
1803
1804                 if ((o_ptr->pval > 4) && !one_in_(WEIRD_LUCK))
1805                         o_ptr->pval = 4;
1806         }
1807
1808
1809         /* give it some plusses... */
1810         if (object_is_armour(o_ptr))
1811                 o_ptr->to_a += randint1(o_ptr->to_a > 19 ? 1 : 20 - o_ptr->to_a);
1812         else if (object_is_weapon_ammo(o_ptr))
1813         {
1814                 o_ptr->to_h += randint1(o_ptr->to_h > 19 ? 1 : 20 - o_ptr->to_h);
1815                 o_ptr->to_d += randint1(o_ptr->to_d > 19 ? 1 : 20 - o_ptr->to_d);
1816                 if ((have_flag(o_ptr->art_flags, TR_WIS)) && (o_ptr->pval > 0)) add_flag(o_ptr->art_flags, TR_BLESSED);
1817         }
1818
1819         /* Just to be sure */
1820         add_flag(o_ptr->art_flags, TR_IGNORE_ACID);
1821         add_flag(o_ptr->art_flags, TR_IGNORE_ELEC);
1822         add_flag(o_ptr->art_flags, TR_IGNORE_FIRE);
1823         add_flag(o_ptr->art_flags, TR_IGNORE_COLD);
1824
1825         total_flags = flag_cost(o_ptr, o_ptr->pval);
1826
1827         if (a_cursed) curse_artifact(player_ptr, o_ptr);
1828
1829         if (!a_cursed &&
1830                 one_in_(object_is_armour(o_ptr) ? ACTIVATION_CHANCE * 2 : ACTIVATION_CHANCE))
1831         {
1832                 o_ptr->xtra2 = 0;
1833                 give_activation_power(o_ptr);
1834         }
1835
1836         if (object_is_armour(o_ptr))
1837         {
1838                 while ((o_ptr->to_d + o_ptr->to_h) > 20)
1839                 {
1840                         if (one_in_(o_ptr->to_d) && one_in_(o_ptr->to_h)) break;
1841                         o_ptr->to_d -= (HIT_POINT)randint0(3);
1842                         o_ptr->to_h -= (HIT_PROB)randint0(3);
1843                 }
1844                 while ((o_ptr->to_d + o_ptr->to_h) > 10)
1845                 {
1846                         if (one_in_(o_ptr->to_d) || one_in_(o_ptr->to_h)) break;
1847                         o_ptr->to_d -= (HIT_POINT)randint0(3);
1848                         o_ptr->to_h -= (HIT_PROB)randint0(3);
1849                 }
1850         }
1851
1852         if (((o_ptr->artifact_bias == BIAS_MAGE) || (o_ptr->artifact_bias == BIAS_INT)) && (o_ptr->tval == TV_GLOVES)) add_flag(o_ptr->art_flags, TR_FREE_ACT);
1853
1854         if ((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DOKUBARI))
1855         {
1856                 o_ptr->to_h = 0;
1857                 o_ptr->to_d = 0;
1858                 remove_flag(o_ptr->art_flags, TR_BLOWS);
1859                 remove_flag(o_ptr->art_flags, TR_FORCE_WEAPON);
1860                 remove_flag(o_ptr->art_flags, TR_SLAY_ANIMAL);
1861                 remove_flag(o_ptr->art_flags, TR_SLAY_EVIL);
1862                 remove_flag(o_ptr->art_flags, TR_SLAY_UNDEAD);
1863                 remove_flag(o_ptr->art_flags, TR_SLAY_DEMON);
1864                 remove_flag(o_ptr->art_flags, TR_SLAY_ORC);
1865                 remove_flag(o_ptr->art_flags, TR_SLAY_TROLL);
1866                 remove_flag(o_ptr->art_flags, TR_SLAY_GIANT);
1867                 remove_flag(o_ptr->art_flags, TR_SLAY_DRAGON);
1868                 remove_flag(o_ptr->art_flags, TR_KILL_DRAGON);
1869                 remove_flag(o_ptr->art_flags, TR_SLAY_HUMAN);
1870                 remove_flag(o_ptr->art_flags, TR_VORPAL);
1871                 remove_flag(o_ptr->art_flags, TR_BRAND_POIS);
1872                 remove_flag(o_ptr->art_flags, TR_BRAND_ACID);
1873                 remove_flag(o_ptr->art_flags, TR_BRAND_ELEC);
1874                 remove_flag(o_ptr->art_flags, TR_BRAND_FIRE);
1875                 remove_flag(o_ptr->art_flags, TR_BRAND_COLD);
1876         }
1877
1878         if (!object_is_weapon_ammo(o_ptr))
1879         {
1880                 /* For armors */
1881                 if (a_cursed) power_level = 0;
1882                 else if (total_flags < 15000) power_level = 1;
1883                 else if (total_flags < 35000) power_level = 2;
1884                 else power_level = 3;
1885         }
1886
1887         else
1888         {
1889                 /* For weapons */
1890                 if (a_cursed) power_level = 0;
1891                 else if (total_flags < 20000) power_level = 1;
1892                 else if (total_flags < 45000) power_level = 2;
1893                 else power_level = 3;
1894         }
1895
1896         /* ダメージ抑制処理を行う */
1897         while (has_extreme_damage_rate(o_ptr) && !one_in_(SWORDFISH_LUCK))
1898         {
1899                 weakening_artifact(o_ptr);
1900         }
1901
1902         if (a_scroll)
1903         {
1904                 GAME_TEXT dummy_name[MAX_NLEN] = "";
1905                 concptr ask_msg = _("このアーティファクトを何と名付けますか？", "What do you want to call the artifact? ");
1906
1907                 object_aware(player_ptr, o_ptr);
1908                 object_known(o_ptr);
1909
1910                 /* Mark the item as fully known */
1911                 o_ptr->ident |= (IDENT_MENTAL);
1912
1913                 /* For being treated as random artifact in screen_object() */
1914                 o_ptr->art_name = quark_add("");
1915
1916                 (void)screen_object(o_ptr, 0L);
1917
1918                 if (!get_string(ask_msg, dummy_name, sizeof dummy_name)
1919                         || !dummy_name[0])
1920                 {
1921                         /* Cancelled */
1922                         if (one_in_(2))
1923                         {
1924                                 get_table_sindarin_aux(dummy_name);
1925                         }
1926                         else
1927                         {
1928                                 get_table_name_aux(dummy_name);
1929                         }
1930                 }
1931
1932                 sprintf(new_name, _("《%s》", "'%s'"), dummy_name);
1933                 chg_virtue(player_ptr, V_INDIVIDUALISM, 2);
1934                 chg_virtue(player_ptr, V_ENCHANT, 5);
1935         }
1936         else
1937         {
1938                 get_random_name(o_ptr, new_name, object_is_armour(o_ptr), power_level);
1939         }
1940
1941         /* Save the inscription */
1942         o_ptr->art_name = quark_add(new_name);
1943
1944         msg_format_wizard(CHEAT_OBJECT, _("パワー %d で 価値%ld のランダムアーティファクト生成 バイアスは「%s」",
1945                 "Random artifact generated - Power:%d Value:%d Bias:%s."), max_powers, total_flags, artifact_bias_name[o_ptr->artifact_bias]);
1946
1947         player_ptr->window |= (PW_INVEN | PW_EQUIP);
1948
1949         return TRUE;
1950 }
1951
1952
1953 /*!
1954  * @brief オブジェクトから能力発動IDを取得する。
1955  * @details いくつかのケースで定義されている発動効果から、
1956  * 鍛冶師による付与＞固定アーティファクト＞エゴ＞ランダムアーティファクト＞ベースアイテムの優先順位で走査していく。
1957  * @param o_ptr 対象のオブジェクト構造体ポインタ
1958  * @return 発動効果のIDを返す
1959  */
1960 int activation_index(object_type *o_ptr)
1961 {
1962         /* Give priority to weaponsmith's essential activations */
1963         if (object_is_smith(o_ptr))
1964         {
1965                 switch (o_ptr->xtra3 - 1)
1966                 {
1967                 case ESSENCE_TMP_RES_ACID: return ACT_RESIST_ACID;
1968                 case ESSENCE_TMP_RES_ELEC: return ACT_RESIST_ELEC;
1969                 case ESSENCE_TMP_RES_FIRE: return ACT_RESIST_FIRE;
1970                 case ESSENCE_TMP_RES_COLD: return ACT_RESIST_COLD;
1971                 case TR_IMPACT: return ACT_QUAKE;
1972                 }
1973         }
1974
1975         if (object_is_fixed_artifact(o_ptr))
1976         {
1977                 if (have_flag(a_info[o_ptr->name1].flags, TR_ACTIVATE))
1978                 {
1979                         return a_info[o_ptr->name1].act_idx;
1980                 }
1981         }
1982
1983         if (object_is_ego(o_ptr))
1984         {
1985                 if (have_flag(e_info[o_ptr->name2].flags, TR_ACTIVATE))
1986                 {
1987                         return e_info[o_ptr->name2].act_idx;
1988                 }
1989         }
1990
1991         if (!object_is_random_artifact(o_ptr))
1992         {
1993                 if (have_flag(k_info[o_ptr->k_idx].flags, TR_ACTIVATE))
1994                 {
1995                         return k_info[o_ptr->k_idx].act_idx;
1996                 }
1997         }
1998
1999         return o_ptr->xtra2;
2000 }
2001
2002
2003 /*!
2004  * @brief オブジェクトから発動効果構造体のポインタを取得する。
2005  * @details activation_index() 関数の結果から参照する。
2006  * @param o_ptr 対象のオブジェクト構造体ポインタ
2007  * @return 発動効果構造体のポインタを返す
2008  */
2009 const activation_type* find_activation_info(object_type *o_ptr)
2010 {
2011         const int index = activation_index(o_ptr);
2012         const activation_type* p;
2013
2014         for (p = activation_info; p->flag != NULL; ++p) {
2015                 if (p->index == index)
2016                 {
2017                         return p;
2018                 }
2019         }
2020
2021         return NULL;
2022 }
2023
2024
2025 /*!
2026  * @brief 固定アーティファクト生成時の特別なハードコーディング処理を行う。.
2027  * @details random_artifact_resistance()とあるが実際は固定アーティファクトである。
2028  * 対象は恐怖の仮面、村正、ロビントンのハープ、龍争虎鬪、ブラッディムーン、羽衣、天女の羽衣、ミリム、
2029  * その他追加耐性、特性追加処理。
2030  * @attention プレイヤーの各種ステータスに依存した処理がある。
2031  * @todo 折を見て関数名を変更すること。
2032  * @param player_ptr プレーヤーへの参照ポインタ
2033  * @param o_ptr 対象のオブジェクト構造体ポインタ
2034  * @param a_ptr 生成する固定アーティファクト構造体ポインタ
2035  * @return なし
2036  */
2037 void random_artifact_resistance(player_type *player_ptr, object_type *o_ptr, artifact_type *a_ptr)
2038 {
2039         bool give_resistance = FALSE, give_power = FALSE;
2040
2041         if (o_ptr->name1 == ART_TERROR) /* Terror Mask is for warriors... */
2042         {
2043                 if (player_ptr->pclass == CLASS_WARRIOR || player_ptr->pclass == CLASS_ARCHER || player_ptr->pclass == CLASS_CAVALRY || player_ptr->pclass == CLASS_BERSERKER)
2044                 {
2045                         give_power = TRUE;
2046                         give_resistance = TRUE;
2047                 }
2048                 else
2049                 {
2050                         add_flag(o_ptr->art_flags, TR_AGGRAVATE);
2051                         add_flag(o_ptr->art_flags, TR_TY_CURSE);
2052                         o_ptr->curse_flags |=
2053                                 (TRC_CURSED | TRC_HEAVY_CURSE);
2054                         o_ptr->curse_flags |= get_curse(2, o_ptr);
2055                         return;
2056                 }
2057         }
2058
2059         if (o_ptr->name1 == ART_MURAMASA)
2060         {
2061                 if (player_ptr->pclass != CLASS_SAMURAI)
2062                 {
2063                         add_flag(o_ptr->art_flags, TR_NO_MAGIC);
2064                         o_ptr->curse_flags |= (TRC_HEAVY_CURSE);
2065                 }
2066         }
2067
2068         if (o_ptr->name1 == ART_ROBINTON)
2069         {
2070                 if (player_ptr->pclass == CLASS_BARD)
2071                 {
2072                         add_flag(o_ptr->art_flags, TR_DEC_MANA);
2073                 }
2074         }
2075
2076         if (o_ptr->name1 == ART_XIAOLONG)
2077         {
2078                 if (player_ptr->pclass == CLASS_MONK)
2079                         add_flag(o_ptr->art_flags, TR_BLOWS);
2080         }
2081
2082         if (o_ptr->name1 == ART_BLOOD)
2083         {
2084                 get_bloody_moon_flags(o_ptr);
2085         }
2086
2087         if (o_ptr->name1 == ART_HEAVENLY_MAIDEN)
2088         {
2089                 if (player_ptr->psex != SEX_FEMALE)
2090                 {
2091                         add_flag(o_ptr->art_flags, TR_AGGRAVATE);
2092                 }
2093         }
2094
2095         if (o_ptr->name1 == ART_MILIM)
2096         {
2097                 if (player_ptr->pseikaku == SEIKAKU_SEXY)
2098                 {
2099                         o_ptr->pval = 3;
2100                         add_flag(o_ptr->art_flags, TR_STR);
2101                         add_flag(o_ptr->art_flags, TR_INT);
2102                         add_flag(o_ptr->art_flags, TR_WIS);
2103                         add_flag(o_ptr->art_flags, TR_DEX);
2104                         add_flag(o_ptr->art_flags, TR_CON);
2105                         add_flag(o_ptr->art_flags, TR_CHR);
2106                 }
2107         }
2108
2109         if (a_ptr->gen_flags & (TRG_XTRA_POWER)) give_power = TRUE;
2110         if (a_ptr->gen_flags & (TRG_XTRA_H_RES)) give_resistance = TRUE;
2111         if (a_ptr->gen_flags & (TRG_XTRA_RES_OR_POWER))
2112         {
2113                 /* Give a resistance OR a power */
2114                 if (one_in_(2)) give_resistance = TRUE;
2115                 else give_power = TRUE;
2116         }
2117
2118         if (give_power)
2119         {
2120                 one_ability(o_ptr);
2121         }
2122
2123         if (give_resistance)
2124         {
2125                 one_high_resistance(o_ptr);
2126         }
2127 }
2128
2129
2130 /*!
2131  * @brief フロアの指定された位置に固定アーティファクトを生成する。 / Create the artifact of the specified number
2132  * @details 固定アーティファクト構造体から基本ステータスをコピーした後、所定の座標でdrop_item()で落とす。
2133  * @param player_ptr プレーヤーへの参照ポインタ
2134  * @param a_idx 生成する固定アーティファクト構造体のID
2135  * @param y アイテムを落とす地点のy座標
2136  * @param x アイテムを落とす地点のx座標
2137  * @return 生成が成功したか否か、失敗はIDの不全、ベースアイテムの不全、drop_item()の失敗時に起こる。
2138  * @attention この処理はdrop_near()内で普通の固定アーティファクトが重ならない性質に依存する.
2139  * 仮に2個以上存在可能かつ装備品以外の固定アーティファクトが作成されれば
2140  * drop_near()関数の返り値は信用できなくなる.
2141  */
2142 bool create_named_art(player_type *player_ptr, ARTIFACT_IDX a_idx, POSITION y, POSITION x)
2143 {
2144         object_type forge;
2145         object_type *q_ptr;
2146         KIND_OBJECT_IDX i;
2147
2148         artifact_type *a_ptr = &a_info[a_idx];
2149         q_ptr = &forge;
2150
2151         /* Ignore "empty" artifacts */
2152         if (!a_ptr->name) return FALSE;
2153
2154         /* Acquire the "kind" index */
2155         i = lookup_kind(a_ptr->tval, a_ptr->sval);
2156
2157         if (!i) return FALSE;
2158
2159         object_prep(q_ptr, i);
2160
2161         /* Save the name */
2162         q_ptr->name1 = a_idx;
2163
2164         /* Extract the fields */
2165         q_ptr->pval = a_ptr->pval;
2166         q_ptr->ac = a_ptr->ac;
2167         q_ptr->dd = a_ptr->dd;
2168         q_ptr->ds = a_ptr->ds;
2169         q_ptr->to_a = a_ptr->to_a;
2170         q_ptr->to_h = a_ptr->to_h;
2171         q_ptr->to_d = a_ptr->to_d;
2172         q_ptr->weight = a_ptr->weight;
2173
2174         /* Hack -- extract the "cursed" flag */
2175         if (a_ptr->gen_flags & TRG_CURSED) q_ptr->curse_flags |= (TRC_CURSED);
2176         if (a_ptr->gen_flags & TRG_HEAVY_CURSE) q_ptr->curse_flags |= (TRC_HEAVY_CURSE);
2177         if (a_ptr->gen_flags & TRG_PERMA_CURSE) q_ptr->curse_flags |= (TRC_PERMA_CURSE);
2178         if (a_ptr->gen_flags & (TRG_RANDOM_CURSE0)) q_ptr->curse_flags |= get_curse(0, q_ptr);
2179         if (a_ptr->gen_flags & (TRG_RANDOM_CURSE1)) q_ptr->curse_flags |= get_curse(1, q_ptr);
2180         if (a_ptr->gen_flags & (TRG_RANDOM_CURSE2)) q_ptr->curse_flags |= get_curse(2, q_ptr);
2181
2182         random_artifact_resistance(player_ptr, q_ptr, a_ptr);
2183
2184         /* Drop the artifact from heaven */
2185         return drop_near(player_ptr, q_ptr, -1, y, x) ? TRUE : FALSE;
2186 }
2187
2188
2189 /*対邪平均ダメージの計算処理*/
2190 HIT_POINT calc_arm_avgdamage(object_type *o_ptr)
2191 {
2192         BIT_FLAGS flgs[TR_FLAG_SIZE];
2193         object_flags(o_ptr, flgs);
2194
2195         HIT_POINT dam, base, s_evil, forced, vorpal;
2196         s_evil = forced = vorpal = 0;
2197         dam = base = (o_ptr->dd * o_ptr->ds + o_ptr->dd) / 2;
2198
2199         if (have_flag(flgs, TR_KILL_EVIL))
2200         {
2201                 dam = s_evil = dam * 7 / 2;
2202         }
2203         else if (!have_flag(flgs, TR_KILL_EVIL) && have_flag(flgs, TR_SLAY_EVIL))
2204         {
2205                 dam = s_evil = dam * 2;
2206         }
2207         else s_evil = dam;
2208
2209         if (have_flag(flgs, TR_FORCE_WEAPON))
2210         {
2211                 dam = forced = dam * 3 / 2 + (o_ptr->dd * o_ptr->ds + o_ptr->dd);
2212         }
2213         else forced = dam;
2214
2215         if (have_flag(flgs, TR_VORPAL))
2216         {
2217                 dam = vorpal = dam * 11 / 9;
2218         }
2219         else vorpal = dam;
2220
2221         dam = dam + o_ptr->to_d;
2222
2223         msg_format_wizard(CHEAT_OBJECT, "素:%d> 対邪:%d> 理力:%d> 切:%d> 最終:%d", base, s_evil, forced, vorpal, dam);
2224
2225         return dam;
2226 }
2227
2228
2229 static bool has_extreme_damage_rate(object_type *o_ptr)
2230 {
2231         BIT_FLAGS flgs[TR_FLAG_SIZE];
2232         object_flags(o_ptr, flgs);
2233
2234         if (have_flag(flgs, TR_VAMPIRIC))
2235         {
2236                 if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 1) && (calc_arm_avgdamage(o_ptr) > 52))
2237                 {
2238                         return TRUE;
2239                 }
2240                 else if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 2) && (calc_arm_avgdamage(o_ptr) > 43))
2241                 {
2242                         return TRUE;
2243                 }
2244                 else if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 3) && (calc_arm_avgdamage(o_ptr) > 33))
2245                 {
2246                         return TRUE;
2247                 }
2248                 else if (calc_arm_avgdamage(o_ptr) > 63)
2249                 {
2250                         return TRUE;
2251                 }
2252         }
2253         else
2254         {
2255                 if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 1) && (calc_arm_avgdamage(o_ptr) > 65))
2256                 {
2257                         return TRUE;
2258                 }
2259                 else if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 2) && (calc_arm_avgdamage(o_ptr) > 52))
2260                 {
2261                         return TRUE;
2262                 }
2263                 else if (have_flag(flgs, TR_BLOWS) && (o_ptr->pval == 3) && (calc_arm_avgdamage(o_ptr) > 40))
2264                 {
2265                         return TRUE;
2266                 }
2267                 else if (calc_arm_avgdamage(o_ptr) > 75)
2268                 {
2269                         return TRUE;
2270                 }
2271         }
2272         return FALSE;
2273 }
2274
2275
2276 static bool weakening_artifact(object_type *o_ptr)
2277 {
2278         KIND_OBJECT_IDX k_idx = lookup_kind(o_ptr->tval, o_ptr->sval);
2279         object_kind *k_ptr = &k_info[k_idx];
2280         BIT_FLAGS flgs[TR_FLAG_SIZE];
2281         object_flags(o_ptr, flgs);
2282
2283         if (have_flag(flgs, TR_KILL_EVIL))
2284         {
2285                 remove_flag(o_ptr->art_flags, TR_KILL_EVIL);
2286                 add_flag(o_ptr->art_flags, TR_SLAY_EVIL);
2287                 return TRUE;
2288         }
2289         else if (k_ptr->dd < o_ptr->dd)
2290         {
2291                 o_ptr->dd--;
2292                 return TRUE;
2293         }
2294         else if (k_ptr->ds < o_ptr->ds)
2295         {
2296                 o_ptr->ds--;
2297                 return TRUE;
2298         }
2299         else if (o_ptr->to_d > 10)
2300         {
2301                 o_ptr->to_d = o_ptr->to_d - damroll(1, 6);
2302                 if (o_ptr->to_d < 10)
2303                 {
2304                         o_ptr->to_d = 10;
2305                 }
2306                 return TRUE;
2307         }
2308         return FALSE;
2309 }
2310
2311
2312 /*!
2313  * @brief 非INSTA_ART型の固定アーティファクトの生成を確率に応じて試行する。
2314  * Mega-Hack -- Attempt to create one of the "Special Objects"
2315  * @param player_ptr プレーヤーへの参照ポインタ
2316  * @param o_ptr 生成に割り当てたいオブジェクトの構造体参照ポインタ
2317  * @return 生成に成功したらTRUEを返す。
2318  * @details
2319  * Attempt to change an object into an artifact\n
2320  * This routine should only be called by "apply_magic()"\n
2321  * Note -- see "make_artifact_special()" and "apply_magic()"\n
2322  */
2323 bool make_artifact(player_type *player_ptr, object_type *o_ptr)
2324 {
2325         ARTIFACT_IDX i;
2326
2327         floor_type *floor_ptr = player_ptr->current_floor_ptr;
2328         if (floor_ptr->dun_level == 0) return FALSE;
2329
2330         /* Paranoia -- no "plural" artifacts */
2331         if (o_ptr->number != 1) return FALSE;
2332
2333         /* Check the artifact list (skip the "specials") */
2334         for (i = 0; i < max_a_idx; i++)
2335         {
2336                 artifact_type *a_ptr = &a_info[i];
2337
2338                 /* Skip "empty" items */
2339                 if (!a_ptr->name) continue;
2340
2341                 /* Cannot make an artifact twice */
2342                 if (a_ptr->cur_num) continue;
2343
2344                 if (a_ptr->gen_flags & TRG_QUESTITEM) continue;
2345
2346                 if (a_ptr->gen_flags & TRG_INSTA_ART) continue;
2347
2348                 /* Must have the correct fields */
2349                 if (a_ptr->tval != o_ptr->tval) continue;
2350                 if (a_ptr->sval != o_ptr->sval) continue;
2351
2352                 /* XXX XXX Enforce minimum "depth" (loosely) */
2353                 if (a_ptr->level > floor_ptr->dun_level)
2354                 {
2355                         /* Acquire the "out-of-depth factor" */
2356                         int d = (a_ptr->level - floor_ptr->dun_level) * 2;
2357
2358                         /* Roll for out-of-depth creation */
2359                         if (!one_in_(d)) continue;
2360                 }
2361
2362                 /* We must make the "rarity roll" */
2363                 if (!one_in_(a_ptr->rarity)) continue;
2364
2365                 /* Hack -- mark the item as an artifact */
2366                 o_ptr->name1 = i;
2367
2368                 /* Hack: Some artifacts get random extra powers */
2369                 random_artifact_resistance(player_ptr, o_ptr, a_ptr);
2370
2371                 /* Success */
2372                 return TRUE;
2373         }
2374
2375         /* Failure */
2376         return FALSE;
2377 }
2378
2379 /*!
2380  * @brief INSTA_ART型の固定アーティファクトの生成を確率に応じて試行する。
2381  * Mega-Hack -- Attempt to create one of the "Special Objects"
2382  * @param player_ptr プレーヤーへの参照ポインタ
2383  * @param o_ptr 生成に割り当てたいオブジェクトの構造体参照ポインタ
2384  * @return 生成に成功したらTRUEを返す。
2385  * @details
2386  * We are only called from "make_object()", and we assume that\n
2387  * "apply_magic()" is called immediately after we return.\n
2388  *\n
2389  * Note -- see "make_artifact()" and "apply_magic()"\n
2390  */
2391 bool make_artifact_special(player_type *player_ptr, object_type *o_ptr)
2392 {
2393         ARTIFACT_IDX i;
2394         KIND_OBJECT_IDX k_idx = 0;
2395
2396         /*! @note 地上ではキャンセルする / No artifacts in the town */
2397         floor_type *floor_ptr = player_ptr->current_floor_ptr;
2398         if (floor_ptr->dun_level == 0) return FALSE;
2399
2400         /*! @note get_obj_num_hookによる指定がある場合は生成をキャンセルする / Themed object */
2401         if (get_obj_num_hook) return FALSE;
2402
2403         /*! @note 全固定アーティファクト中からIDの若い順に生成対象とその確率を走査する / Check the artifact list (just the "specials") */
2404         for (i = 0; i < max_a_idx; i++)
2405         {
2406                 artifact_type *a_ptr = &a_info[i];
2407
2408                 /*! @note アーティファクト名が空の不正なデータは除外する / Skip "empty" artifacts */
2409                 if (!a_ptr->name) continue;
2410
2411                 /*! @note 既に生成回数がカウントされたアーティファクト、QUESTITEMと非INSTA_ARTは除外 / Cannot make an artifact twice */
2412                 if (a_ptr->cur_num) continue;
2413                 if (a_ptr->gen_flags & TRG_QUESTITEM) continue;
2414                 if (!(a_ptr->gen_flags & TRG_INSTA_ART)) continue;
2415
2416                 /*! @note アーティファクト生成階が現在に対して足りない場合は高確率で1/(不足階層*2)を満たさないと生成リストに加えられない /
2417                  *  XXX XXX Enforce minimum "depth" (loosely) */
2418                 if (a_ptr->level > floor_ptr->object_level)
2419                 {
2420                         /* @note  / Acquire the "out-of-depth factor". Roll for out-of-depth creation. */
2421                         int d = (a_ptr->level - floor_ptr->object_level) * 2;
2422                         if (!one_in_(d)) continue;
2423                 }
2424
2425                 /*! @note 1/(レア度)の確率を満たさないと除外される / Artifact "rarity roll" */
2426                 if (!one_in_(a_ptr->rarity)) continue;
2427
2428                 /*! @note INSTA_ART型固定アーティファクトのベースアイテムもチェック対象とする。ベースアイテムの生成階層が足りない場合1/(不足階層*5) を満たさないと除外される。 /
2429                  *  Find the base object. XXX XXX Enforce minimum "object" level (loosely). Acquire the "out-of-depth factor". Roll for out-of-depth creation. */
2430                 k_idx = lookup_kind(a_ptr->tval, a_ptr->sval);
2431                 if (k_info[k_idx].level > floor_ptr->object_level)
2432                 {
2433                         int d = (k_info[k_idx].level - floor_ptr->object_level) * 5;
2434                         if (!one_in_(d)) continue;
2435                 }
2436
2437                 /*! @note 前述の条件を満たしたら、後のIDのアーティファクトはチェックせずすぐ確定し生成処理に移す /
2438                  * Assign the template. Mega-Hack -- mark the item as an artifact. Hack: Some artifacts get random extra powers. Success. */
2439                 object_prep(o_ptr, k_idx);
2440
2441                 o_ptr->name1 = i;
2442                 random_artifact_resistance(player_ptr, o_ptr, a_ptr);
2443                 return TRUE;
2444         }
2445
2446         /*! @note 全INSTA_ART固定アーティファクトを試行しても決まらなかった場合 FALSEを返す / Failure */
2447         return FALSE;
2448 }