src/combat/shoot.cpp

   1 #include "combat/shoot.h"
   2 #include "artifact/fixed-art-types.h"
   3 #include "avatar/avatar.h"
   4 #include "combat/attack-criticality.h"
   5 #include "core/player-redraw-types.h"
   6 #include "core/player-update-types.h"
   7 #include "core/stuff-handler.h"
   8 #include "effect/attribute-types.h"
   9 #include "effect/effect-characteristics.h"
  10 #include "effect/effect-processor.h"
  11 #include "effect/spells-effect-util.h"
  12 #include "flavor/flavor-describer.h"
  13 #include "flavor/object-flavor-types.h"
  14 #include "floor/cave.h"
  15 #include "floor/floor-object.h"
  16 #include "floor/geometry.h"
  17 #include "game-option/cheat-types.h"
  18 #include "game-option/special-options.h"
  19 #include "grid/feature-flag-types.h"
  20 #include "grid/feature.h"
  21 #include "grid/grid.h"
  22 #include "inventory/inventory-object.h"
  23 #include "inventory/inventory-slot-types.h"
  24 #include "io/cursor.h"
  25 #include "io/screen-util.h"
  26 #include "main/sound-definitions-table.h"
  27 #include "main/sound-of-music.h"
  28 #include "mind/mind-sniper.h"
  29 #include "mind/snipe-types.h"
  30 #include "monster-floor/monster-death.h"
  31 #include "monster-floor/monster-move.h"
  32 #include "monster-race/monster-race.h"
  33 #include "monster-race/race-flags-resistance.h"
  34 #include "monster-race/race-flags1.h"
  35 #include "monster-race/race-flags2.h"
  36 #include "monster-race/race-flags3.h"
  37 #include "monster-race/race-flags7.h"
  38 #include "monster-race/race-indice-types.h"
  39 #include "monster-race/race-resistance-mask.h"
  40 #include "monster/monster-damage.h"
  41 #include "monster/monster-describer.h"
  42 #include "monster/monster-info.h"
  43 #include "monster/monster-status-setter.h"
  44 #include "monster/monster-status.h"
  45 #include "monster/monster-update.h"
  46 #include "object/object-broken.h"
  47 #include "object/object-flags.h"
  48 #include "object/object-info.h"
  49 #include "object/object-mark-types.h"
  50 #include "player-base/player-class.h"
  51 #include "player-info/class-info.h"
  52 #include "player-info/sniper-data-type.h"
  53 #include "player-status/player-energy.h"
  54 #include "player/player-personality-types.h"
  55 #include "player/player-skill.h"
  56 #include "player/player-status-table.h"
  57 #include "sv-definition/sv-bow-types.h"
  58 #include "system/artifact-type-definition.h"
  59 #include "system/baseitem-info.h"
  60 #include "system/floor-type-definition.h"
  61 #include "system/grid-type-definition.h"
  62 #include "system/item-entity.h"
  63 #include "system/monster-entity.h"
  64 #include "system/monster-race-info.h"
  65 #include "system/player-type-definition.h"
  66 #include "target/projection-path-calculator.h"
  67 #include "target/target-checker.h"
  68 #include "target/target-getter.h"
  69 #include "timed-effect/player-hallucination.h"
  70 #include "timed-effect/timed-effects.h"
  71 #include "util/bit-flags-calculator.h"
  72 #include "view/display-messages.h"
  73 #include "wizard/wizard-messages.h"
  74 #include "world/world-object.h"
  75
  76 /*!
  77  * @brief 矢弾の属性を定義する
  78  * @param bow_ptr 弓のオブジェクト構造体参照ポインタ
  79  * @param arrow_ptr 矢弾のオブジェクト構造体参照ポインタ
  80  * @return スナイパーの射撃属性、弓矢の属性を考慮する。デフォルトはGF_PLAYER_SHOOT。
  81  */
  82 AttributeFlags shot_attribute(PlayerType *player_ptr, ItemEntity *bow_ptr, ItemEntity *arrow_ptr, SPELL_IDX snipe_type)
  83 {
  84     AttributeFlags attribute_flags{};
  85     attribute_flags.set(AttributeType::PLAYER_SHOOT);
  86
  87     TrFlags flags{};
  88     auto arrow_flags = object_flags(arrow_ptr);
  89     auto bow_flags = object_flags(bow_ptr);
  90
  91     flags = bow_flags | arrow_flags;
  92
  93     static const struct snipe_convert_table_t {
  94         SPELL_IDX snipe_type;
  95         AttributeType attribute;
  96     } snipe_convert_table[] = {
  97         { SP_LITE, AttributeType::LITE },
  98         { SP_FIRE, AttributeType::FIRE },
  99         { SP_COLD, AttributeType::COLD },
 100         { SP_ELEC, AttributeType::ELEC },
 101         { SP_KILL_WALL, AttributeType::KILL_WALL },
 102         { SP_EVILNESS, AttributeType::HELL_FIRE },
 103         { SP_HOLYNESS, AttributeType::HOLY_FIRE },
 104         { SP_FINAL, AttributeType::MANA },
 105     };
 106
 107     static const struct brand_convert_table_t {
 108         tr_type brand_type;
 109         AttributeType attribute;
 110     } brand_convert_table[] = {
 111         { TR_BRAND_ACID, AttributeType::ACID },
 112         { TR_BRAND_FIRE, AttributeType::FIRE },
 113         { TR_BRAND_ELEC, AttributeType::ELEC },
 114         { TR_BRAND_COLD, AttributeType::COLD },
 115         { TR_BRAND_POIS, AttributeType::POIS },
 116         { TR_SLAY_GOOD, AttributeType::HELL_FIRE },
 117         { TR_KILL_GOOD, AttributeType::HELL_FIRE },
 118         { TR_SLAY_EVIL, AttributeType::HOLY_FIRE },
 119         { TR_KILL_EVIL, AttributeType::HOLY_FIRE },
 120     };
 121
 122     for (size_t i = 0; i < sizeof(snipe_convert_table) / sizeof(snipe_convert_table[0]); ++i) {
 123         const struct snipe_convert_table_t *p = &snipe_convert_table[i];
 124
 125         if (snipe_type == p->snipe_type) {
 126             attribute_flags.set(p->attribute);
 127         }
 128     }
 129
 130     for (size_t i = 0; i < sizeof(brand_convert_table) / sizeof(brand_convert_table[0]); ++i) {
 131         const struct brand_convert_table_t *p = &brand_convert_table[i];
 132
 133         if (flags.has(p->brand_type)) {
 134             attribute_flags.set(p->attribute);
 135         }
 136     }
 137
 138     if ((flags.has(TR_FORCE_WEAPON)) && (player_ptr->csp > (player_ptr->msp / 30))) {
 139         attribute_flags.set(AttributeType::MANA);
 140     }
 141
 142     return attribute_flags;
 143 }
 144
 145 /*!
 146  * @brief 矢弾を射撃した際のスレイ倍率をかけた結果を返す /
 147  * Determines the odds of an object breaking when thrown at a monster
 148  * @param bow_ptr 弓のオブジェクト構造体参照ポインタ
 149  * @param arrow_ptr 矢弾のオブジェクト構造体参照ポインタ
 150  * @param tdam 計算途中のダメージ量
 151  * @param monster_ptr 目標モンスターの構造体参照ポインタ
 152  * @return スレイ倍率をかけたダメージ量
 153  */
 154 static MULTIPLY calc_shot_damage_with_slay(
 155     PlayerType *player_ptr, ItemEntity *bow_ptr, ItemEntity *arrow_ptr, int tdam, MonsterEntity *monster_ptr, SPELL_IDX snipe_type)
 156 {
 157     MULTIPLY mult = 10;
 158
 159     MonsterRaceInfo *race_ptr = &monraces_info[monster_ptr->r_idx];
 160
 161     TrFlags flags{};
 162     auto arrow_flags = object_flags(arrow_ptr);
 163     auto bow_flags = object_flags(bow_ptr);
 164
 165     flags = bow_flags | arrow_flags;
 166
 167     /* Some "weapons" and "ammo" do extra damage */
 168     switch (arrow_ptr->bi_key.tval()) {
 169     case ItemKindType::SHOT:
 170     case ItemKindType::ARROW:
 171     case ItemKindType::BOLT: {
 172         if ((flags.has(TR_SLAY_ANIMAL)) && race_ptr->kind_flags.has(MonsterKindType::ANIMAL)) {
 173             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 174                 race_ptr->r_kind_flags.set(MonsterKindType::ANIMAL);
 175             }
 176             if (mult < 17) {
 177                 mult = 17;
 178             }
 179         }
 180
 181         if ((flags.has(TR_KILL_ANIMAL)) && race_ptr->kind_flags.has(MonsterKindType::ANIMAL)) {
 182             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 183                 race_ptr->r_kind_flags.set(MonsterKindType::ANIMAL);
 184             }
 185             if (mult < 27) {
 186                 mult = 27;
 187             }
 188         }
 189
 190         if ((flags.has(TR_SLAY_EVIL)) && race_ptr->kind_flags.has(MonsterKindType::EVIL)) {
 191             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 192                 race_ptr->r_kind_flags.set(MonsterKindType::EVIL);
 193             }
 194             if (mult < 15) {
 195                 mult = 15;
 196             }
 197         }
 198
 199         if ((flags.has(TR_KILL_EVIL)) && race_ptr->kind_flags.has(MonsterKindType::EVIL)) {
 200             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 201                 race_ptr->r_kind_flags.set(MonsterKindType::EVIL);
 202             }
 203             if (mult < 25) {
 204                 mult = 25;
 205             }
 206         }
 207
 208         if ((flags.has(TR_SLAY_GOOD)) && race_ptr->kind_flags.has(MonsterKindType::GOOD)) {
 209             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 210                 race_ptr->r_kind_flags.set(MonsterKindType::GOOD);
 211             }
 212             if (mult < 15) {
 213                 mult = 15;
 214             }
 215         }
 216
 217         if ((flags.has(TR_KILL_GOOD)) && race_ptr->kind_flags.has(MonsterKindType::GOOD)) {
 218             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 219                 race_ptr->r_kind_flags.set(MonsterKindType::GOOD);
 220             }
 221             if (mult < 25) {
 222                 mult = 25;
 223             }
 224         }
 225
 226         if ((flags.has(TR_SLAY_HUMAN)) && race_ptr->kind_flags.has(MonsterKindType::HUMAN)) {
 227             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 228                 race_ptr->r_kind_flags.set(MonsterKindType::HUMAN);
 229             }
 230             if (mult < 17) {
 231                 mult = 17;
 232             }
 233         }
 234
 235         if ((flags.has(TR_KILL_HUMAN)) && race_ptr->kind_flags.has(MonsterKindType::HUMAN)) {
 236             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 237                 race_ptr->r_kind_flags.set(MonsterKindType::HUMAN);
 238             }
 239             if (mult < 27) {
 240                 mult = 27;
 241             }
 242         }
 243
 244         if ((flags.has(TR_SLAY_UNDEAD)) && race_ptr->kind_flags.has(MonsterKindType::UNDEAD)) {
 245             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 246                 race_ptr->r_kind_flags.set(MonsterKindType::UNDEAD);
 247             }
 248             if (mult < 20) {
 249                 mult = 20;
 250             }
 251         }
 252
 253         if ((flags.has(TR_KILL_UNDEAD)) && race_ptr->kind_flags.has(MonsterKindType::UNDEAD)) {
 254             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 255                 race_ptr->r_kind_flags.set(MonsterKindType::UNDEAD);
 256             }
 257             if (mult < 30) {
 258                 mult = 30;
 259             }
 260         }
 261
 262         if ((flags.has(TR_SLAY_DEMON)) && race_ptr->kind_flags.has(MonsterKindType::DEMON)) {
 263             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 264                 race_ptr->r_kind_flags.set(MonsterKindType::DEMON);
 265             }
 266             if (mult < 20) {
 267                 mult = 20;
 268             }
 269         }
 270
 271         if ((flags.has(TR_KILL_DEMON)) && race_ptr->kind_flags.has(MonsterKindType::DEMON)) {
 272             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 273                 race_ptr->r_kind_flags.set(MonsterKindType::DEMON);
 274             }
 275             if (mult < 30) {
 276                 mult = 30;
 277             }
 278         }
 279
 280         if ((flags.has(TR_SLAY_ORC)) && race_ptr->kind_flags.has(MonsterKindType::ORC)) {
 281             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 282                 race_ptr->r_kind_flags.set(MonsterKindType::ORC);
 283             }
 284             if (mult < 20) {
 285                 mult = 20;
 286             }
 287         }
 288
 289         if ((flags.has(TR_KILL_ORC)) && race_ptr->kind_flags.has(MonsterKindType::ORC)) {
 290             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 291                 race_ptr->r_kind_flags.set(MonsterKindType::ORC);
 292             }
 293             if (mult < 30) {
 294                 mult = 30;
 295             }
 296         }
 297
 298         if ((flags.has(TR_SLAY_TROLL)) && race_ptr->kind_flags.has(MonsterKindType::TROLL)) {
 299             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 300                 race_ptr->r_kind_flags.set(MonsterKindType::TROLL);
 301             }
 302
 303             if (mult < 20) {
 304                 mult = 20;
 305             }
 306         }
 307
 308         if ((flags.has(TR_KILL_TROLL)) && race_ptr->kind_flags.has(MonsterKindType::TROLL)) {
 309             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 310                 race_ptr->r_kind_flags.set(MonsterKindType::TROLL);
 311             }
 312             if (mult < 30) {
 313                 mult = 30;
 314             }
 315         }
 316
 317         if ((flags.has(TR_SLAY_GIANT)) && race_ptr->kind_flags.has(MonsterKindType::GIANT)) {
 318             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 319                 race_ptr->r_kind_flags.set(MonsterKindType::GIANT);
 320             }
 321             if (mult < 20) {
 322                 mult = 20;
 323             }
 324         }
 325
 326         if ((flags.has(TR_KILL_GIANT)) && race_ptr->kind_flags.has(MonsterKindType::GIANT)) {
 327             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 328                 race_ptr->r_kind_flags.set(MonsterKindType::GIANT);
 329             }
 330             if (mult < 30) {
 331                 mult = 30;
 332             }
 333         }
 334
 335         if ((flags.has(TR_SLAY_DRAGON)) && race_ptr->kind_flags.has(MonsterKindType::DRAGON)) {
 336             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 337                 race_ptr->r_kind_flags.set(MonsterKindType::DRAGON);
 338             }
 339             if (mult < 20) {
 340                 mult = 20;
 341             }
 342         }
 343
 344         if ((flags.has(TR_KILL_DRAGON)) && race_ptr->kind_flags.has(MonsterKindType::DRAGON)) {
 345             if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 346                 race_ptr->r_kind_flags.set(MonsterKindType::DRAGON);
 347             }
 348             if (mult < 30) {
 349                 mult = 30;
 350             }
 351
 352             auto can_eliminate_smaug = arrow_ptr->is_specific_artifact(FixedArtifactId::BARD_ARROW);
 353             can_eliminate_smaug &= player_ptr->inventory_list[INVEN_BOW].is_specific_artifact(FixedArtifactId::BARD);
 354             can_eliminate_smaug &= monster_ptr->r_idx == MonsterRaceId::SMAUG;
 355             if (can_eliminate_smaug) {
 356                 mult *= 5;
 357             }
 358         }
 359
 360         if (flags.has(TR_BRAND_ACID)) {
 361             /* Notice immunity */
 362             if (race_ptr->resistance_flags.has_any_of(RFR_EFF_IM_ACID_MASK)) {
 363                 if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 364                     race_ptr->r_resistance_flags.set(race_ptr->resistance_flags & RFR_EFF_IM_ACID_MASK);
 365                 }
 366             } else {
 367                 if (mult < 17) {
 368                     mult = 17;
 369                 }
 370             }
 371         }
 372
 373         if (flags.has(TR_BRAND_ELEC)) {
 374             /* Notice immunity */
 375             if (race_ptr->resistance_flags.has_any_of(RFR_EFF_IM_ELEC_MASK)) {
 376                 if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 377                     race_ptr->r_resistance_flags.set(race_ptr->resistance_flags & RFR_EFF_IM_ELEC_MASK);
 378                 }
 379             } else {
 380                 if (mult < 17) {
 381                     mult = 17;
 382                 }
 383             }
 384         }
 385
 386         if (flags.has(TR_BRAND_FIRE)) {
 387             /* Notice immunity */
 388             if (race_ptr->resistance_flags.has_any_of(RFR_EFF_IM_FIRE_MASK)) {
 389                 if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 390                     race_ptr->r_resistance_flags.set(race_ptr->resistance_flags & RFR_EFF_IM_FIRE_MASK);
 391                 }
 392             }
 393             /* Otherwise, take the damage */
 394             else {
 395                 if (race_ptr->resistance_flags.has(MonsterResistanceType::HURT_FIRE)) {
 396                     if (mult < 25) {
 397                         mult = 25;
 398                     }
 399                     if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 400                         race_ptr->r_resistance_flags.set(MonsterResistanceType::HURT_FIRE);
 401                     }
 402                 } else if (mult < 17) {
 403                     mult = 17;
 404                 }
 405             }
 406         }
 407
 408         if (flags.has(TR_BRAND_COLD)) {
 409             /* Notice immunity */
 410             if (race_ptr->resistance_flags.has_any_of(RFR_EFF_IM_COLD_MASK)) {
 411                 if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 412                     race_ptr->r_resistance_flags.set(race_ptr->resistance_flags & RFR_EFF_IM_COLD_MASK);
 413                 }
 414             }
 415             /* Otherwise, take the damage */
 416             else {
 417                 if (race_ptr->resistance_flags.has(MonsterResistanceType::HURT_COLD)) {
 418                     if (mult < 25) {
 419                         mult = 25;
 420                     }
 421                     if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 422                         race_ptr->r_resistance_flags.set(MonsterResistanceType::HURT_COLD);
 423                     }
 424                 } else if (mult < 17) {
 425                     mult = 17;
 426                 }
 427             }
 428         }
 429
 430         if (flags.has(TR_BRAND_POIS)) {
 431             /* Notice immunity */
 432             if (race_ptr->resistance_flags.has_any_of(RFR_EFF_IM_POISON_MASK)) {
 433                 if (is_original_ap_and_seen(player_ptr, monster_ptr)) {
 434                     race_ptr->r_resistance_flags.set(race_ptr->resistance_flags & RFR_EFF_IM_POISON_MASK);
 435                 }
 436             }
 437             /* Otherwise, take the damage */
 438             else {
 439                 if (mult < 17) {
 440                     mult = 17;
 441                 }
 442             }
 443         }
 444
 445         if ((flags.has(TR_FORCE_WEAPON)) && (player_ptr->csp > (player_ptr->msp / 30))) {
 446             player_ptr->csp -= (1 + (player_ptr->msp / 30));
 447             set_bits(player_ptr->redraw, PR_MANA);
 448             mult = mult * 5 / 2;
 449         }
 450         break;
 451     }
 452
 453     default:
 454         break;
 455     }
 456
 457     /* Sniper */
 458     if (snipe_type) {
 459         mult = calc_snipe_damage_with_slay(player_ptr, mult, monster_ptr, snipe_type);
 460     }
 461
 462     /* Return the total damage */
 463     return tdam * mult / 10;
 464 }
 465
 466 /*!
 467  * @brief 射撃処理実行 /
 468  * Fire an object from the pack or floor.
 469  * @param item 射撃するオブジェクトの所持ID
 470  * @param bow_ptr 射撃武器のオブジェクト参照ポインタ
 471  * @details
 472  * <pre>
 473  * You may only fire items that "match" your missile launcher.
 474  * You must use slings + pebbles/shots, bows + arrows, xbows + bolts.
 475  * See "calc_bonuses()" for more calculations and such.
 476  * Note that "firing" a missile is MUCH better than "throwing" it.
 477  * Note: "unseen" monsters are very hard to hit.
 478  * Objects are more likely to break if they "attempt" to hit a monster.
 479  * Rangers (with Bows) and Anyone (with "Extra Shots") get extra shots.
 480  * The "extra shot" code works by decreasing the amount of energy
 481  * required to make each shot, spreading the shots out over time.
 482  * Note that when firing missiles, the launcher multiplier is applied
 483  * after all the bonuses are added in, making multipliers very useful.
 484  * Note that Bows of "Extra Might" get extra range and an extra bonus
 485  * for the damage multiplier.
 486  * Note that Bows of "Extra Shots" give an extra shot.
 487  * </pre>
 488  */
 489 void exe_fire(PlayerType *player_ptr, INVENTORY_IDX item, ItemEntity *j_ptr, SPELL_IDX snipe_type)
 490 {
 491     POSITION y, x, ny, nx, ty, tx, prev_y, prev_x;
 492     ItemEntity forge;
 493     ItemEntity *q_ptr;
 494     ItemEntity *o_ptr;
 495
 496     AttributeFlags attribute_flags{};
 497     attribute_flags.set(AttributeType::PLAYER_SHOOT);
 498
 499     auto hit_body = false;
 500     auto stick_to = false;
 501
 502     /* Access the item (if in the pack) */
 503     if (item >= 0) {
 504         o_ptr = &player_ptr->inventory_list[item];
 505     } else {
 506         o_ptr = &player_ptr->current_floor_ptr->o_list[0 - item];
 507     }
 508
 509     /* Sniper - Cannot shot a single arrow twice */
 510     if ((snipe_type == SP_DOUBLE) && (o_ptr->number < 2)) {
 511         snipe_type = SP_NONE;
 512     }
 513
 514     GAME_TEXT o_name[MAX_NLEN];
 515     describe_flavor(player_ptr, o_name, o_ptr, OD_OMIT_PREFIX);
 516
 517     /* Use the proper number of shots */
 518     auto thits = player_ptr->num_fire;
 519
 520     /* Use a base distance */
 521     auto tdis = 10;
 522
 523     /* Base damage from thrown object plus launcher bonus */
 524     auto tdam_base = damroll(o_ptr->dd, o_ptr->ds) + o_ptr->to_d + j_ptr->to_d;
 525
 526     /* Actually "fire" the object */
 527     const auto tval = j_ptr->bi_key.tval();
 528     const auto sval = j_ptr->bi_key.sval().value();
 529     auto bonus = (player_ptr->to_h_b + o_ptr->to_h + j_ptr->to_h);
 530     int chance;
 531     auto weapon_exp = player_ptr->weapon_exp[tval][sval];
 532     if ((sval == SV_LIGHT_XBOW) || (sval == SV_HEAVY_XBOW)) {
 533         chance = (player_ptr->skill_thb + (weapon_exp / 400 + bonus) * BTH_PLUS_ADJ);
 534     } else {
 535         chance = (player_ptr->skill_thb + ((weapon_exp - (PlayerSkill::weapon_exp_at(PlayerSkillRank::MASTER) / 2)) / 200 + bonus) * BTH_PLUS_ADJ);
 536     }
 537
 538     PlayerEnergy(player_ptr).set_player_turn_energy(j_ptr->get_bow_energy());
 539     auto tmul = j_ptr->get_arrow_magnification();
 540
 541     /* Get extra "power" from "extra might" */
 542     if (player_ptr->xtra_might) {
 543         tmul++;
 544     }
 545
 546     tmul = tmul * (100 + (int)(adj_str_td[player_ptr->stat_index[A_STR]]) - 128);
 547
 548     /* Boost the damage */
 549     tdam_base *= tmul;
 550     tdam_base /= 100;
 551
 552     auto sniper_data = PlayerClass(player_ptr).get_specific_data<sniper_data_type>();
 553     auto sniper_concent = sniper_data ? sniper_data->concent : 0;
 554
 555     /* Base range */
 556     tdis = 13 + tmul / 80;
 557     if ((sval == SV_LIGHT_XBOW) || (sval == SV_HEAVY_XBOW)) {
 558         tdis -= (5 - (sniper_concent + 1) / 2);
 559     }
 560
 561     project_length = tdis + 1;
 562
 563     /* Get a direction (or cancel) */
 564     DIRECTION dir;
 565     if (!get_aim_dir(player_ptr, &dir)) {
 566         PlayerEnergy(player_ptr).reset_player_turn();
 567
 568         if (snipe_type == SP_AWAY) {
 569             snipe_type = SP_NONE;
 570         }
 571
 572         /* need not to reset project_length (already did)*/
 573
 574         return;
 575     }
 576
 577     if (snipe_type != SP_NONE) {
 578         sound(SOUND_ZAP);
 579     }
 580
 581     /* Predict the "target" location */
 582     tx = player_ptr->x + 99 * ddx[dir];
 583     ty = player_ptr->y + 99 * ddy[dir];
 584
 585     /* Check for "target request" */
 586     if ((dir == 5) && target_okay(player_ptr)) {
 587         tx = target_col;
 588         ty = target_row;
 589     }
 590
 591     /* Get projection path length */
 592     projection_path path_g(player_ptr, project_length, player_ptr->y, player_ptr->x, ty, tx, PROJECT_PATH | PROJECT_THRU);
 593     tdis = path_g.path_num() - 1;
 594
 595     project_length = 0; /* reset to default */
 596
 597     /* Don't shoot at my feet */
 598     if (tx == player_ptr->x && ty == player_ptr->y) {
 599         PlayerEnergy(player_ptr).reset_player_turn();
 600
 601         /* project_length is already reset to 0 */
 602
 603         return;
 604     }
 605
 606     /* Take a (partial) turn */
 607     PlayerEnergy(player_ptr).div_player_turn_energy(thits);
 608     player_ptr->is_fired = true;
 609
 610     /* Sniper - Difficult to shot twice at 1 turn */
 611     if (snipe_type == SP_DOUBLE) {
 612         sniper_concent = (sniper_concent + 1) / 2;
 613     }
 614
 615     /* Sniper - Repeat shooting when double shots */
 616     for (auto i = 0; i < ((snipe_type == SP_DOUBLE) ? 2 : 1); i++) {
 617         /* Start at the player */
 618         y = player_ptr->y;
 619         x = player_ptr->x;
 620         q_ptr = &forge;
 621         q_ptr->copy_from(o_ptr);
 622
 623         /* Single object */
 624         q_ptr->number = 1;
 625
 626         vary_item(player_ptr, item, -1);
 627
 628         sound(SOUND_SHOOT);
 629         handle_stuff(player_ptr);
 630
 631         prev_y = y;
 632         prev_x = x;
 633
 634         /* The shot does not hit yet */
 635         hit_body = false;
 636
 637         /* Travel until stopped */
 638         for (auto cur_dis = 0; cur_dis <= tdis;) {
 639             grid_type *g_ptr;
 640
 641             /* Hack -- Stop at the target */
 642             if ((y == ty) && (x == tx)) {
 643                 break;
 644             }
 645
 646             /* Calculate the new location (see "project()") */
 647             ny = y;
 648             nx = x;
 649             mmove2(&ny, &nx, player_ptr->y, player_ptr->x, ty, tx);
 650
 651             /* Shatter Arrow */
 652             if (snipe_type == SP_KILL_WALL) {
 653                 g_ptr = &player_ptr->current_floor_ptr->grid_array[ny][nx];
 654
 655                 if (g_ptr->cave_has_flag(TerrainCharacteristics::HURT_ROCK) && !g_ptr->m_idx) {
 656                     if (any_bits(g_ptr->info, (CAVE_MARK))) {
 657                         msg_print(_("岩が砕け散った。", "Wall rocks were shattered."));
 658                     }
 659                     /* Forget the wall */
 660                     reset_bits(g_ptr->info, (CAVE_MARK));
 661                     set_bits(player_ptr->update, PU_VIEW | PU_LITE | PU_FLOW | PU_MON_LITE);
 662
 663                     /* Destroy the wall */
 664                     cave_alter_feat(player_ptr, ny, nx, TerrainCharacteristics::HURT_ROCK);
 665
 666                     hit_body = true;
 667                     break;
 668                 }
 669             }
 670
 671             /* Stopped by walls/doors */
 672             if (!cave_has_flag_bold(player_ptr->current_floor_ptr, ny, nx, TerrainCharacteristics::PROJECT) && !player_ptr->current_floor_ptr->grid_array[ny][nx].m_idx) {
 673                 break;
 674             }
 675
 676             /* Advance the distance */
 677             cur_dis++;
 678
 679             /* Sniper */
 680             if (snipe_type == SP_LITE) {
 681                 set_bits(player_ptr->current_floor_ptr->grid_array[ny][nx].info, CAVE_GLOW);
 682                 note_spot(player_ptr, ny, nx);
 683                 lite_spot(player_ptr, ny, nx);
 684             }
 685
 686             /* The player can see the (on screen) missile */
 687             if (panel_contains(ny, nx) && player_can_see_bold(player_ptr, ny, nx)) {
 688                 const auto a = q_ptr->get_color();
 689                 const auto c = q_ptr->get_symbol();
 690
 691                 /* Draw, Hilite, Fresh, Pause, Erase */
 692                 if (delay_factor > 0) {
 693                     print_rel(player_ptr, c, a, ny, nx);
 694                     move_cursor_relative(ny, nx);
 695                     term_fresh();
 696                     term_xtra(TERM_XTRA_DELAY, delay_factor);
 697                     lite_spot(player_ptr, ny, nx);
 698                     term_fresh();
 699                 }
 700             }
 701
 702             /* The player cannot see the missile */
 703             else {
 704                 /* Pause anyway, for consistancy **/
 705                 if (delay_factor > 0) {
 706                     term_xtra(TERM_XTRA_DELAY, delay_factor);
 707                 }
 708             }
 709
 710             /* Sniper */
 711             if (snipe_type == SP_KILL_TRAP) {
 712                 project(player_ptr, 0, 0, ny, nx, 0, AttributeType::KILL_TRAP, (PROJECT_JUMP | PROJECT_HIDE | PROJECT_GRID | PROJECT_ITEM));
 713             }
 714
 715             /* Sniper */
 716             if (snipe_type == SP_EVILNESS) {
 717                 reset_bits(player_ptr->current_floor_ptr->grid_array[ny][nx].info, (CAVE_GLOW | CAVE_MARK));
 718                 note_spot(player_ptr, ny, nx);
 719                 lite_spot(player_ptr, ny, nx);
 720             }
 721
 722             prev_y = y;
 723             prev_x = x;
 724
 725             /* Save the new location */
 726             x = nx;
 727             y = ny;
 728
 729             /* Monster here, Try to hit it */
 730             if (player_ptr->current_floor_ptr->grid_array[y][x].m_idx) {
 731                 sound(SOUND_SHOOT_HIT);
 732                 grid_type *c_mon_ptr = &player_ptr->current_floor_ptr->grid_array[y][x];
 733
 734                 auto *m_ptr = &player_ptr->current_floor_ptr->m_list[c_mon_ptr->m_idx];
 735                 auto *r_ptr = &monraces_info[m_ptr->r_idx];
 736
 737                 /* Check the visibility */
 738                 auto visible = m_ptr->ml;
 739
 740                 /* Note the collision */
 741                 hit_body = true;
 742
 743                 if (m_ptr->is_asleep()) {
 744                     if (r_ptr->kind_flags.has_not(MonsterKindType::EVIL) || one_in_(5)) {
 745                         chg_virtue(player_ptr, V_COMPASSION, -1);
 746                     }
 747                     if (r_ptr->kind_flags.has_not(MonsterKindType::EVIL) || one_in_(5)) {
 748                         chg_virtue(player_ptr, V_HONOUR, -1);
 749                     }
 750                 }
 751
 752                 if ((r_ptr->level + 10) > player_ptr->lev) {
 753                     PlayerSkill(player_ptr).gain_range_weapon_exp(j_ptr);
 754                 }
 755
 756                 if (player_ptr->riding) {
 757                     PlayerSkill(player_ptr).gain_riding_skill_exp_on_range_attack();
 758                 }
 759
 760                 /* Did we hit it (penalize range) */
 761                 if (test_hit_fire(player_ptr, chance - cur_dis, m_ptr, m_ptr->ml, o_name)) {
 762                     bool fear = false;
 763                     auto tdam = tdam_base; //!< @note 実際に与えるダメージ
 764                     auto base_dam = tdam; //!< @note 補正前の与えるダメージ(無傷、全ての耐性など)
 765
 766                     /* Get extra damage from concentration */
 767                     tdam = boost_concentration_damage(player_ptr, tdam);
 768
 769                     /* Handle unseen monster */
 770                     if (!visible) {
 771                         /* Invisible monster */
 772                         msg_format(_("%sが敵を捕捉した。", "The %s finds a mark."), o_name);
 773                     }
 774
 775                     /* Handle visible monster */
 776                     else {
 777                         GAME_TEXT m_name[MAX_NLEN];
 778
 779                         /* Get "the monster" or "it" */
 780                         monster_desc(player_ptr, m_name, m_ptr, 0);
 781
 782                         msg_format(_("%sが%sに命中した。", "The %s hits %s."), o_name, m_name);
 783
 784                         if (m_ptr->ml) {
 785                             if (!player_ptr->effects()->hallucination()->is_hallucinated()) {
 786                                 monster_race_track(player_ptr, m_ptr->ap_r_idx);
 787                             }
 788
 789                             health_track(player_ptr, c_mon_ptr->m_idx);
 790                         }
 791                     }
 792
 793                     if (snipe_type == SP_NEEDLE) {
 794                         const auto is_unique = r_ptr->kind_flags.has(MonsterKindType::UNIQUE);
 795                         const auto fatality = randint1(r_ptr->level / (3 + sniper_concent)) + (8 - sniper_concent);
 796                         if ((randint1(fatality) == 1) && !is_unique && none_bits(r_ptr->flags7, RF7_UNIQUE2)) {
 797                             GAME_TEXT m_name[MAX_NLEN];
 798
 799                             /* Get "the monster" or "it" */
 800                             monster_desc(player_ptr, m_name, m_ptr, 0);
 801
 802                             tdam = m_ptr->hp + 1;
 803                             base_dam = tdam;
 804                             msg_format(_("%sの急所に突き刺さった！", "Your shot hit a fatal spot of %s!"), m_name);
 805                         } else {
 806                             tdam = 1;
 807                             base_dam = tdam;
 808                         }
 809                     } else {
 810
 811                         attribute_flags = shot_attribute(player_ptr, j_ptr, q_ptr, snipe_type);
 812                         /* Apply special damage */
 813                         tdam = calc_shot_damage_with_slay(player_ptr, j_ptr, q_ptr, tdam, m_ptr, snipe_type);
 814                         tdam = critical_shot(player_ptr, q_ptr->weight, q_ptr->to_h, j_ptr->to_h, tdam);
 815
 816                         /* No negative damage */
 817                         if (tdam < 0) {
 818                             tdam = 0;
 819                         }
 820
 821                         /* Modify the damage */
 822                         base_dam = tdam;
 823                         tdam = mon_damage_mod(player_ptr, m_ptr, tdam, false);
 824                     }
 825
 826                     msg_format_wizard(player_ptr, CHEAT_MONSTER, _("%dのダメージを与えた。(残りHP %d/%d(%d))", "You do %d damage. (left HP %d/%d(%d))"), tdam,
 827                         m_ptr->hp - tdam, m_ptr->maxhp, m_ptr->max_maxhp);
 828
 829                     /* Sniper */
 830                     if (snipe_type == SP_EXPLODE) {
 831                         uint16_t flg = (PROJECT_STOP | PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID);
 832
 833                         sound(SOUND_EXPLODE); /* No explode sound - use breath fire instead */
 834                         project(player_ptr, 0, ((sniper_concent + 1) / 2 + 1), ny, nx, base_dam, AttributeType::MISSILE, flg);
 835                         break;
 836                     }
 837
 838                     /* Sniper */
 839                     if (snipe_type == SP_HOLYNESS) {
 840                         set_bits(player_ptr->current_floor_ptr->grid_array[ny][nx].info, CAVE_GLOW);
 841                         note_spot(player_ptr, ny, nx);
 842                         lite_spot(player_ptr, ny, nx);
 843                     }
 844
 845                     /* Hit the monster, check for death */
 846                     MonsterDamageProcessor mdp(player_ptr, c_mon_ptr->m_idx, tdam, &fear, attribute_flags);
 847                     if (mdp.mon_take_hit(extract_note_dies(m_ptr->get_real_r_idx()))) {
 848                         /* Dead monster */
 849                     }
 850
 851                     /* No death */
 852                     else {
 853                         /* STICK TO */
 854                         if (q_ptr->is_fixed_artifact() && (sniper_concent == 0)) {
 855                             GAME_TEXT m_name[MAX_NLEN];
 856
 857                             monster_desc(player_ptr, m_name, m_ptr, 0);
 858
 859                             stick_to = true;
 860                             msg_format(_("%sは%sに突き刺さった！", "%^s is stuck in %s!"), o_name, m_name);
 861                         }
 862
 863                         message_pain(player_ptr, c_mon_ptr->m_idx, tdam);
 864
 865                         /* Anger the monster */
 866                         if (tdam > 0) {
 867                             anger_monster(player_ptr, m_ptr);
 868                         }
 869
 870                         if (fear && m_ptr->ml) {
 871                             GAME_TEXT m_name[MAX_NLEN];
 872                             sound(SOUND_FLEE);
 873                             monster_desc(player_ptr, m_name, m_ptr, 0);
 874                             msg_format(_("%^sは恐怖して逃げ出した！", "%^s flees in terror!"), m_name);
 875                         }
 876
 877                         set_target(m_ptr, player_ptr->y, player_ptr->x);
 878
 879                         /* Sniper */
 880                         if (snipe_type == SP_RUSH) {
 881                             int n = randint1(5) + 3;
 882                             MONSTER_IDX m_idx = c_mon_ptr->m_idx;
 883
 884                             for (; cur_dis <= tdis;) {
 885                                 POSITION ox = nx;
 886                                 POSITION oy = ny;
 887
 888                                 if (!n) {
 889                                     break;
 890                                 }
 891
 892                                 /* Calculate the new location (see "project()") */
 893                                 mmove2(&ny, &nx, player_ptr->y, player_ptr->x, ty, tx);
 894
 895                                 /* Stopped by wilderness boundary */
 896                                 if (!in_bounds2(player_ptr->current_floor_ptr, ny, nx)) {
 897                                     break;
 898                                 }
 899
 900                                 /* Stopped by walls/doors */
 901                                 if (!player_can_enter(player_ptr, player_ptr->current_floor_ptr->grid_array[ny][nx].feat, 0)) {
 902                                     break;
 903                                 }
 904
 905                                 /* Stopped by monsters */
 906                                 if (!is_cave_empty_bold(player_ptr, ny, nx)) {
 907                                     break;
 908                                 }
 909
 910                                 player_ptr->current_floor_ptr->grid_array[ny][nx].m_idx = m_idx;
 911                                 player_ptr->current_floor_ptr->grid_array[oy][ox].m_idx = 0;
 912
 913                                 m_ptr->fx = nx;
 914                                 m_ptr->fy = ny;
 915
 916                                 update_monster(player_ptr, m_idx, true);
 917
 918                                 if (delay_factor > 0) {
 919                                     lite_spot(player_ptr, ny, nx);
 920                                     lite_spot(player_ptr, oy, ox);
 921                                     term_fresh();
 922                                     term_xtra(TERM_XTRA_DELAY, delay_factor);
 923                                 }
 924
 925                                 x = nx;
 926                                 y = ny;
 927                                 cur_dis++;
 928                                 n--;
 929                             }
 930                         }
 931                     }
 932                 }
 933
 934                 /* Sniper */
 935                 if (snipe_type == SP_PIERCE && sniper_concent > 0) {
 936                     sniper_concent--;
 937                     continue;
 938                 }
 939
 940                 /* Stop looking */
 941                 break;
 942             }
 943         }
 944
 945         /* Chance of breakage (during attacks) */
 946         auto j = (hit_body ? breakage_chance(player_ptr, q_ptr, PlayerClass(player_ptr).equals(PlayerClassType::ARCHER), snipe_type) : 0);
 947
 948         if (stick_to) {
 949             MONSTER_IDX m_idx = player_ptr->current_floor_ptr->grid_array[y][x].m_idx;
 950             auto *m_ptr = &player_ptr->current_floor_ptr->m_list[m_idx];
 951             OBJECT_IDX o_idx = o_pop(player_ptr->current_floor_ptr);
 952
 953             if (!o_idx) {
 954                 msg_format(_("%sはどこかへ行った。", "The %s went somewhere."), o_name);
 955                 if (q_ptr->is_fixed_artifact()) {
 956                     artifacts_info.at(j_ptr->fixed_artifact_idx).is_generated = false;
 957                 }
 958                 return;
 959             }
 960
 961             o_ptr = &player_ptr->current_floor_ptr->o_list[o_idx];
 962             o_ptr->copy_from(q_ptr);
 963
 964             /* Forget mark */
 965             o_ptr->marked.reset(OmType::TOUCHED);
 966
 967             /* Forget location */
 968             o_ptr->iy = o_ptr->ix = 0;
 969
 970             /* Memorize monster */
 971             o_ptr->held_m_idx = m_idx;
 972
 973             /* Carry object */
 974             m_ptr->hold_o_idx_list.add(player_ptr->current_floor_ptr, o_idx);
 975         } else if (cave_has_flag_bold(player_ptr->current_floor_ptr, y, x, TerrainCharacteristics::PROJECT)) {
 976             /* Drop (or break) near that location */
 977             (void)drop_near(player_ptr, q_ptr, j, y, x);
 978         } else {
 979             /* Drop (or break) near that location */
 980             (void)drop_near(player_ptr, q_ptr, j, prev_y, prev_x);
 981         }
 982
 983         /* Sniper - Repeat shooting when double shots */
 984     }
 985
 986     /* Sniper - Loose his/her concentration after any shot */
 987     reset_concentration(player_ptr, false);
 988 }
 989
 990 /*!
 991  * @brief プレイヤーからモンスターへの射撃命中判定 /
 992  * Determine if the player "hits" a monster (normal combat).
 993  * @param chance 基本命中値
 994  * @param monster_ptr モンスターの構造体参照ポインタ
 995  * @param vis 目標を視界に捕らえているならばTRUEを指定
 996  * @param o_name メッセージ表示時のモンスター名
 997  * @return 命中と判定された場合TRUEを返す
 998  * @note Always miss 5%, always hit 5%, otherwise random.
 999  */
1000 bool test_hit_fire(PlayerType *player_ptr, int chance, MonsterEntity *m_ptr, int vis, char *o_name)
1001 {
1002     int k;
1003     ARMOUR_CLASS ac;
1004     auto *r_ptr = &monraces_info[m_ptr->r_idx];
1005
1006     /* Percentile dice */
1007     k = randint1(100);
1008
1009     auto sniper_data = PlayerClass(player_ptr).get_specific_data<sniper_data_type>();
1010     auto sniper_concent = sniper_data ? sniper_data->concent : 0;
1011
1012     /* Snipers with high-concentration reduce instant miss percentage.*/
1013     k += sniper_concent;
1014
1015     /* Hack -- Instant miss or hit */
1016     if (k <= 5) {
1017         return false;
1018     }
1019     if (k > 95) {
1020         return true;
1021     }
1022
1023     if (player_ptr->ppersonality == PERSONALITY_LAZY) {
1024         if (one_in_(20)) {
1025             return false;
1026         }
1027     }
1028
1029     /* Never hit */
1030     if (chance <= 0) {
1031         return false;
1032     }
1033
1034     ac = r_ptr->ac;
1035     ac = ac * (8 - sniper_concent) / 8;
1036
1037     if (m_ptr->r_idx == MonsterRaceId::GOEMON && !m_ptr->is_asleep()) {
1038         ac *= 3;
1039     }
1040
1041     /* Invisible monsters are harder to hit */
1042     if (!vis) {
1043         chance = (chance + 1) / 2;
1044     }
1045
1046     /* Power competes against armor */
1047     if (randint0(chance) < (ac * 3 / 4)) {
1048         if (m_ptr->r_idx == MonsterRaceId::GOEMON && !m_ptr->is_asleep()) {
1049             GAME_TEXT m_name[MAX_NLEN];
1050             monster_desc(player_ptr, m_name, m_ptr, 0);
1051             msg_format(_("%sは%sを斬り捨てた！", "%s cuts down %s!"), m_name, o_name);
1052         }
1053         return false;
1054     }
1055
1056     /* Assume hit */
1057     return true;
1058 }
1059
1060 /*!
1061  * @brief プレイヤーからモンスターへの射撃クリティカル判定 /
1062  * Critical hits (from objects thrown by player) Factor in item weight, total plusses, and player level.
1063  * @param weight 矢弾の重量
1064  * @param plus_ammo 矢弾の命中修正
1065  * @param plus_bow 弓の命中修正
1066  * @param dam 現在算出中のダメージ値
1067  * @return クリティカル修正が入ったダメージ値
1068  */
1069 int critical_shot(PlayerType *player_ptr, WEIGHT weight, int plus_ammo, int plus_bow, int dam)
1070 {
1071     auto *j_ptr = &player_ptr->inventory_list[INVEN_BOW];
1072
1073     /* Extract "shot" power */
1074     auto i = player_ptr->to_h_b + plus_ammo;
1075     const auto tval = j_ptr->bi_key.tval();
1076     const auto sval = j_ptr->bi_key.sval().value();
1077     if (player_ptr->tval_ammo == ItemKindType::BOLT) {
1078         i = (player_ptr->skill_thb + (player_ptr->weapon_exp[tval][sval] / 400 + i) * BTH_PLUS_ADJ);
1079     } else {
1080         i = (player_ptr->skill_thb + ((player_ptr->weapon_exp[tval][sval] - (PlayerSkill::weapon_exp_at(PlayerSkillRank::MASTER) / 2)) / 200 + i) * BTH_PLUS_ADJ);
1081     }
1082
1083     PlayerClass pc(player_ptr);
1084     auto sniper_data = pc.get_specific_data<sniper_data_type>();
1085     auto sniper_concent = sniper_data ? sniper_data->concent : 0;
1086
1087     /* Snipers can shot more critically with crossbows */
1088     i += ((i * sniper_concent) / 5);
1089     if (pc.equals(PlayerClassType::SNIPER) && (player_ptr->tval_ammo == ItemKindType::BOLT)) {
1090         i *= 2;
1091     }
1092
1093     /* Good bow makes more critical */
1094     i += plus_bow * 8 * (sniper_concent + 5);
1095
1096     /* Critical hit */
1097     if (randint1(10000) <= i) {
1098         const auto k = weight * randint1(500);
1099         if (k < 900) {
1100             msg_print(_("手ごたえがあった！", "It was a good hit!"));
1101             dam += (dam / 2);
1102         } else if (k < 1350) {
1103             msg_print(_("かなりの手ごたえがあった！", "It was a great hit!"));
1104             dam *= 2;
1105         } else {
1106             msg_print(_("会心の一撃だ！", "It was a superb hit!"));
1107             dam *= 3;
1108         }
1109     }
1110
1111     return dam;
1112 }
1113
1114 /*!
1115  * @brief 射撃時クリティカルによるダメージ期待値修正計算（スナイパーの集中処理と武器経験値） / critical happens at i / 10000
1116  * @param player_ptr プレイヤーへの参照ポインタ
1117  * @param plus_ammo 矢弾のダメージ修正
1118  * @param plus_bow 弓のダメージ修正
1119  * @return ダメージ期待値
1120  * @note 基本ダメージ量と重量はこの部位では計算に加わらない。
1121  */
1122 int calc_crit_ratio_shot(PlayerType *player_ptr, int plus_ammo, int plus_bow)
1123 {
1124     auto *j_ptr = &player_ptr->inventory_list[INVEN_BOW];
1125
1126     /* Extract "shot" power */
1127     auto i = player_ptr->to_h_b + plus_ammo;
1128     const auto tval = j_ptr->bi_key.tval();
1129     const auto sval = j_ptr->bi_key.sval().value();
1130     if (player_ptr->tval_ammo == ItemKindType::BOLT) {
1131         i = (player_ptr->skill_thb + (player_ptr->weapon_exp[tval][sval] / 400 + i) * BTH_PLUS_ADJ);
1132     } else {
1133         i = (player_ptr->skill_thb + ((player_ptr->weapon_exp[tval][sval] - (PlayerSkill::weapon_exp_at(PlayerSkillRank::MASTER) / 2)) / 200 + i) * BTH_PLUS_ADJ);
1134     }
1135
1136     PlayerClass pc(player_ptr);
1137     auto sniper_data = pc.get_specific_data<sniper_data_type>();
1138     auto sniper_concent = sniper_data ? sniper_data->concent : 0;
1139
1140     /* Snipers can shot more critically with crossbows */
1141     i += ((i * sniper_concent) / 5);
1142     if (pc.equals(PlayerClassType::SNIPER) && (player_ptr->tval_ammo == ItemKindType::BOLT)) {
1143         i *= 2;
1144     }
1145
1146     /* Good bow makes more critical */
1147     i += plus_bow * 8 * (sniper_concent + 5);
1148
1149     if (i < 0) {
1150         i = 0;
1151     }
1152
1153     return i;
1154 }
1155
1156 /*!
1157  * @brief 射撃時クリティカルによるダメージ期待値修正計算（重量依存部分） / critical happens at i / 10000
1158  * @param weight 武器の重量
1159  * @param plus_ammo 矢弾のダメージ修正
1160  * @param plus_bow 弓のダメージ修正
1161  * @param dam 基本ダメージ量
1162  * @return ダメージ期待値
1163  */
1164 int calc_expect_crit_shot(PlayerType *player_ptr, WEIGHT weight, int plus_ammo, int plus_bow, int dam)
1165 {
1166     uint32_t num;
1167     int i, k, crit;
1168     i = calc_crit_ratio_shot(player_ptr, plus_ammo, plus_bow);
1169
1170     k = 0;
1171     num = 0;
1172
1173     crit = std::min(500, 900 / weight);
1174     num += dam * 3 / 2 * crit;
1175     k = crit;
1176
1177     crit = std::min(500, 1350 / weight);
1178     crit -= k;
1179     num += dam * 2 * crit;
1180     k += crit;
1181
1182     if (k < 500) {
1183         crit = 500 - k;
1184         num += dam * 3 * crit;
1185     }
1186
1187     num /= 500;
1188
1189     num *= i;
1190     num += (10000 - i) * dam;
1191     num /= 10000;
1192
1193     return num;
1194 }
1195
1196 /*!
1197  * @brief 攻撃時クリティカルによるダメージ期待値修正計算（重量と毒針処理） / critical happens at i / 10000
1198  * @param player_ptr プレイヤーへの参照ポインタ
1199  * @param weight 武器の重量
1200  * @param plus 武器のダメージ修正
1201  * @param dam 基本ダメージ
1202  * @param meichuu 命中値
1203  * @param dokubari 毒針処理か否か
1204  * @param impact 強撃かどうか
1205  * @return ダメージ期待値
1206  */
1207 int calc_expect_crit(PlayerType *player_ptr, WEIGHT weight, int plus, int dam, int16_t meichuu, bool dokubari, bool impact)
1208 {
1209     if (dokubari) {
1210         return dam;
1211     }
1212
1213     int i = (weight + (meichuu * 3 + plus * 5) + player_ptr->skill_thn);
1214     if (i < 0) {
1215         i = 0;
1216     }
1217
1218     // 通常ダメージdam、武器重量weightでクリティカルが発生した時のクリティカルダメージ期待値
1219     auto calc_weight_expect_dam = [](int dam, WEIGHT weight) {
1220         int sum = 0;
1221         for (int d = 1; d <= 650; ++d) {
1222             int k = weight + d;
1223             sum += std::get<0>(apply_critical_norm_damage(k, dam));
1224         }
1225         return sum / 650;
1226     };
1227
1228     uint32_t num = 0;
1229
1230     if (impact) {
1231         for (int d = 1; d <= 650; ++d) {
1232             num += calc_weight_expect_dam(dam, weight + d);
1233         }
1234         num /= 650;
1235     } else {
1236         num += calc_weight_expect_dam(dam, weight);
1237     }
1238
1239     int pow = PlayerClass(player_ptr).equals(PlayerClassType::NINJA) ? 4444 : 5000;
1240     if (impact) {
1241         pow /= 2;
1242     }
1243
1244     num *= i;
1245     num += (pow - i) * dam;
1246     num /= pow;
1247
1248     return num;
1249 }