src/monster-floor/monster-death.cpp

   1 #include "monster-floor/monster-death.h"
   2 #include "artifact/fixed-art-generator.h"
   3 #include "cmd-building/cmd-building.h"
   4 #include "core/player-redraw-types.h"
   5 #include "core/player-update-types.h"
   6 #include "dungeon/dungeon.h"
   7 #include "dungeon/quest-completion-checker.h"
   8 #include "effect/effect-characteristics.h"
   9 #include "effect/effect-processor.h"
  10 #include "floor/floor-object.h"
  11 #include "game-option/birth-options.h"
  12 #include "game-option/play-record-options.h"
  13 #include "io/write-diary.h"
  14 #include "lore/lore-store.h"
  15 #include "main/music-definitions-table.h"
  16 #include "main/sound-of-music.h"
  17 #include "market/arena-info-table.h"
  18 #include "monster-floor/monster-death-util.h"
  19 #include "monster-floor/monster-object.h"
  20 #include "monster-floor/special-death-switcher.h"
  21 #include "monster-race/monster-race-hook.h"
  22 #include "monster-race/monster-race.h"
  23 #include "monster-race/race-flags1.h"
  24 #include "monster-race/race-flags2.h"
  25 #include "monster-race/race-flags7.h"
  26 #include "monster-race/race-flags9.h"
  27 #include "monster-race/race-indice-types.h"
  28 #include "monster/monster-describer.h"
  29 #include "monster/monster-description-types.h"
  30 #include "monster/monster-flag-types.h"
  31 #include "monster/monster-info.h"
  32 #include "monster/monster-list.h"
  33 #include "object-enchant/apply-magic.h"
  34 #include "object-enchant/item-apply-magic.h"
  35 #include "object/object-kind-hook.h"
  36 #include "pet/pet-fall-off.h"
  37 #include "player/patron.h"
  38 #include "sv-definition/sv-other-types.h"
  39 #include "sv-definition/sv-scroll-types.h"
  40 #include "system/artifact-type-definition.h"
  41 #include "system/building-type-definition.h"
  42 #include "system/floor-type-definition.h"
  43 #include "system/monster-race-definition.h"
  44 #include "system/monster-type-definition.h"
  45 #include "system/player-type-definition.h"
  46 #include "system/system-variables.h"
  47 #include "timed-effect/player-hallucination.h"
  48 #include "timed-effect/timed-effects.h"
  49 #include "util/bit-flags-calculator.h"
  50 #include "view/display-messages.h"
  51 #include "world/world.h"
  52
  53 static void write_pet_death(PlayerType *player_ptr, monster_death_type *md_ptr)
  54 {
  55     md_ptr->md_y = md_ptr->m_ptr->fy;
  56     md_ptr->md_x = md_ptr->m_ptr->fx;
  57     if (record_named_pet && is_pet(md_ptr->m_ptr) && md_ptr->m_ptr->nickname) {
  58         GAME_TEXT m_name[MAX_NLEN];
  59         monster_desc(player_ptr, m_name, md_ptr->m_ptr, MD_INDEF_VISIBLE);
  60         exe_write_diary(player_ptr, DIARY_NAMED_PET, 3, m_name);
  61     }
  62 }
  63
  64 static void on_dead_explosion(PlayerType *player_ptr, monster_death_type *md_ptr)
  65 {
  66     for (int i = 0; i < 4; i++) {
  67         if (md_ptr->r_ptr->blow[i].method != RaceBlowMethodType::EXPLODE) {
  68             continue;
  69         }
  70
  71         BIT_FLAGS flg = PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL;
  72         AttributeType typ = mbe_info[enum2i(md_ptr->r_ptr->blow[i].effect)].explode_type;
  73         DICE_NUMBER d_dice = md_ptr->r_ptr->blow[i].d_dice;
  74         DICE_SID d_side = md_ptr->r_ptr->blow[i].d_side;
  75         int damage = damroll(d_dice, d_side);
  76         (void)project(player_ptr, md_ptr->m_idx, 3, md_ptr->md_y, md_ptr->md_x, damage, typ, flg);
  77         break;
  78     }
  79 }
  80
  81 static void on_defeat_arena_monster(PlayerType *player_ptr, monster_death_type *md_ptr)
  82 {
  83     auto *floor_ptr = player_ptr->current_floor_ptr;
  84     if (!floor_ptr->inside_arena || is_pet(md_ptr->m_ptr)) {
  85         return;
  86     }
  87
  88     player_ptr->exit_bldg = true;
  89     if (player_ptr->arena_number > MAX_ARENA_MONS) {
  90         msg_print(_("素晴らしい！君こそ真の勝利者だ。", "You are a Genuine Champion!"));
  91     } else {
  92         msg_print(_("勝利！チャンピオンへの道を進んでいる。", "Victorious! You're on your way to becoming Champion."));
  93     }
  94
  95     if (arena_info[player_ptr->arena_number].tval > ItemKindType::NONE) {
  96         ObjectType forge;
  97         auto *q_ptr = &forge;
  98         q_ptr->prep(lookup_kind(arena_info[player_ptr->arena_number].tval, arena_info[player_ptr->arena_number].sval));
  99         apply_magic_to_object(player_ptr, q_ptr, floor_ptr->object_level, AM_NO_FIXED_ART);
 100         (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
 101     }
 102
 103     if (player_ptr->arena_number > MAX_ARENA_MONS) {
 104         player_ptr->arena_number++;
 105     }
 106
 107     player_ptr->arena_number++;
 108     if (!record_arena) {
 109         return;
 110     }
 111
 112     GAME_TEXT m_name[MAX_NLEN];
 113     monster_desc(player_ptr, m_name, md_ptr->m_ptr, MD_WRONGDOER_NAME);
 114     exe_write_diary(player_ptr, DIARY_ARENA, player_ptr->arena_number, m_name);
 115 }
 116
 117 static void drop_corpse(PlayerType *player_ptr, monster_death_type *md_ptr)
 118 {
 119     auto *floor_ptr = player_ptr->current_floor_ptr;
 120     bool is_drop_corpse = one_in_(md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE) ? 1 : 4);
 121     is_drop_corpse &= md_ptr->r_ptr->drop_flags.has_any_of({ MonsterDropType::DROP_CORPSE, MonsterDropType::DROP_SKELETON });
 122     is_drop_corpse &= !(floor_ptr->inside_arena || player_ptr->phase_out || md_ptr->cloned || ((md_ptr->m_ptr->r_idx == w_ptr->today_mon) && is_pet(md_ptr->m_ptr)));
 123     if (!is_drop_corpse) {
 124         return;
 125     }
 126
 127     bool corpse = false;
 128     if (md_ptr->r_ptr->drop_flags.has_not(MonsterDropType::DROP_SKELETON)) {
 129         corpse = true;
 130     } else if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_CORPSE) && md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE)) {
 131         corpse = true;
 132     } else if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_CORPSE)) {
 133         if ((0 - ((md_ptr->m_ptr->maxhp) / 4)) > md_ptr->m_ptr->hp) {
 134             if (one_in_(5)) {
 135                 corpse = true;
 136             }
 137         } else {
 138             if (!one_in_(5)) {
 139                 corpse = true;
 140             }
 141         }
 142     }
 143
 144     ObjectType forge;
 145     auto *q_ptr = &forge;
 146     q_ptr->prep(lookup_kind(ItemKindType::CORPSE, (corpse ? SV_CORPSE : SV_SKELETON)));
 147     apply_magic_to_object(player_ptr, q_ptr, floor_ptr->object_level, AM_NO_FIXED_ART);
 148     q_ptr->pval = enum2i(md_ptr->m_ptr->r_idx);
 149     (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
 150 }
 151
 152 /*!
 153  * @brief アーティファクトのドロップ判定処理
 154  * @param player_ptr プレイヤーへの参照ポインタ
 155  * @param md_ptr モンスター死亡構造体への参照ポインタ
 156  * @return 何かドロップするならドロップしたアーティファクトのID、何もドロップしないなら0
 157  */
 158 static ARTIFACT_IDX drop_artifact_index(PlayerType *player_ptr, monster_death_type *md_ptr)
 159 {
 160     for (auto [a_idx, chance] : md_ptr->r_ptr->drop_artifacts) {
 161         if ((randint0(100) >= chance) && !w_ptr->wizard) {
 162             continue;
 163         }
 164
 165         if (drop_single_artifact(player_ptr, md_ptr, a_idx)) {
 166             return a_idx;
 167         }
 168     }
 169
 170     return 0;
 171 }
 172
 173 /*!
 174  * @brief 特定アーティファクトのドロップ処理
 175  * @param player_ptr プレイヤーへの参照ポインタ
 176  * @param md_ptr モンスター死亡構造体への参照ポインタ
 177  * @param a_ix ドロップを試みるアーティファクトID
 178  * @return ドロップするならtrue
 179  */
 180 bool drop_single_artifact(PlayerType *player_ptr, monster_death_type *md_ptr, ARTIFACT_IDX a_idx)
 181 {
 182     auto *a_ptr = &a_info[a_idx];
 183     if (a_ptr->cur_num == 1) {
 184         return false;
 185     }
 186
 187     if (create_named_art(player_ptr, a_idx, md_ptr->md_y, md_ptr->md_x)) {
 188         a_ptr->cur_num = 1;
 189
 190         if (w_ptr->character_dungeon) {
 191             a_ptr->floor_id = player_ptr->floor_id;
 192         }
 193
 194         if (!preserve_mode) {
 195             a_ptr->cur_num = 1;
 196         }
 197
 198         return true;
 199     }
 200     return false;
 201 }
 202
 203 static KIND_OBJECT_IDX drop_dungeon_final_artifact(PlayerType *player_ptr, monster_death_type *md_ptr, ARTIFACT_IDX a_idx)
 204 {
 205     auto k_idx = d_info[player_ptr->dungeon_idx].final_object != 0 ? d_info[player_ptr->dungeon_idx].final_object : lookup_kind(ItemKindType::SCROLL, SV_SCROLL_ACQUIREMENT);
 206     if (d_info[player_ptr->dungeon_idx].final_artifact == 0) {
 207         return k_idx;
 208     }
 209
 210     a_idx = d_info[player_ptr->dungeon_idx].final_artifact;
 211     auto *a_ptr = &a_info[a_idx];
 212     if (a_ptr->cur_num == 1) {
 213         return k_idx;
 214     }
 215     if (create_named_art(player_ptr, a_idx, md_ptr->md_y, md_ptr->md_x)) {
 216         a_ptr->cur_num = 1;
 217         if (w_ptr->character_dungeon) {
 218             a_ptr->floor_id = player_ptr->floor_id;
 219         }
 220     } else if (!preserve_mode) {
 221         a_ptr->cur_num = 1;
 222     }
 223
 224     return d_info[player_ptr->dungeon_idx].final_object ? k_idx : 0;
 225 }
 226
 227 static void drop_artifact(PlayerType *player_ptr, monster_death_type *md_ptr)
 228 {
 229     if (!md_ptr->drop_chosen_item) {
 230         return;
 231     }
 232
 233     ARTIFACT_IDX a_idx = drop_artifact_index(player_ptr, md_ptr);
 234     if (((md_ptr->r_ptr->flags7 & RF7_GUARDIAN) == 0) || (d_info[player_ptr->dungeon_idx].final_guardian != md_ptr->m_ptr->r_idx)) {
 235         return;
 236     }
 237
 238     KIND_OBJECT_IDX k_idx = drop_dungeon_final_artifact(player_ptr, md_ptr, a_idx);
 239     if (k_idx != 0) {
 240         ObjectType forge;
 241         auto *q_ptr = &forge;
 242         q_ptr->prep(k_idx);
 243         apply_magic_to_object(player_ptr, q_ptr, player_ptr->current_floor_ptr->object_level, AM_NO_FIXED_ART | AM_GOOD);
 244         (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
 245     }
 246
 247     msg_format(_("あなたは%sを制覇した！", "You have conquered %s!"), d_info[player_ptr->dungeon_idx].name.c_str());
 248 }
 249
 250 static void decide_drop_quality(monster_death_type *md_ptr)
 251 {
 252     md_ptr->mo_mode = 0L;
 253     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_GOOD)) {
 254         md_ptr->mo_mode |= AM_GOOD;
 255     }
 256
 257     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_GREAT)) {
 258         md_ptr->mo_mode |= (AM_GOOD | AM_GREAT);
 259     }
 260 }
 261
 262 static int decide_drop_numbers(PlayerType *player_ptr, monster_death_type *md_ptr, const bool drop_item)
 263 {
 264     int drop_numbers = 0;
 265     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_60) && (randint0(100) < 60)) {
 266         drop_numbers++;
 267     }
 268
 269     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_90) && (randint0(100) < 90)) {
 270         drop_numbers++;
 271     }
 272
 273     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_1D2)) {
 274         drop_numbers += damroll(1, 2);
 275     }
 276
 277     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_2D2)) {
 278         drop_numbers += damroll(2, 2);
 279     }
 280
 281     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_3D2)) {
 282         drop_numbers += damroll(3, 2);
 283     }
 284
 285     if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_4D2)) {
 286         drop_numbers += damroll(4, 2);
 287     }
 288
 289     if (md_ptr->cloned && md_ptr->r_ptr->kind_flags.has_not(MonsterKindType::UNIQUE)) {
 290         drop_numbers = 0;
 291     }
 292
 293     if (is_pet(md_ptr->m_ptr) || player_ptr->phase_out || player_ptr->current_floor_ptr->inside_arena) {
 294         drop_numbers = 0;
 295     }
 296
 297     if (!drop_item && (md_ptr->r_ptr->d_char != '$')) {
 298         drop_numbers = 0;
 299     }
 300
 301     if ((md_ptr->r_ptr->flags2 & (RF2_MULTIPLY)) && (md_ptr->r_ptr->r_akills > 1024)) {
 302         drop_numbers = 0;
 303     }
 304
 305     return drop_numbers;
 306 }
 307
 308 static void drop_items_golds(PlayerType *player_ptr, monster_death_type *md_ptr, int drop_numbers)
 309 {
 310     int dump_item = 0;
 311     int dump_gold = 0;
 312     for (int i = 0; i < drop_numbers; i++) {
 313         ObjectType forge;
 314         auto *q_ptr = &forge;
 315         q_ptr->wipe();
 316         if (md_ptr->do_gold && (!md_ptr->do_item || (randint0(100) < 50))) {
 317             if (!make_gold(player_ptr, q_ptr)) {
 318                 continue;
 319             }
 320
 321             dump_gold++;
 322         } else {
 323             if (!make_object(player_ptr, q_ptr, md_ptr->mo_mode)) {
 324                 continue;
 325             }
 326
 327             dump_item++;
 328         }
 329
 330         (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
 331     }
 332
 333     auto *floor_ptr = player_ptr->current_floor_ptr;
 334     floor_ptr->object_level = floor_ptr->base_level;
 335     coin_type = 0;
 336     bool visible = (md_ptr->m_ptr->ml && !player_ptr->effects()->hallucination()->is_hallucinated()) || (md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE));
 337     if (visible && (dump_item || dump_gold)) {
 338         lore_treasure(player_ptr, md_ptr->m_idx, dump_item, dump_gold);
 339     }
 340 }
 341
 342 /*!
 343  * @brief 最終ボス(混沌のサーペント)を倒したときの処理
 344  * @param player_ptr プレイヤー情報への参照ポインタ
 345  */
 346 static void on_defeat_last_boss(PlayerType *player_ptr)
 347 {
 348     w_ptr->total_winner = true;
 349     add_winner_class(player_ptr->pclass);
 350     player_ptr->redraw |= PR_TITLE;
 351     play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_FINAL_QUEST_CLEAR);
 352     exe_write_diary(player_ptr, DIARY_DESCRIPTION, 0, _("見事に変愚蛮怒の勝利者となった！", "finally became *WINNER* of Hengband!"));
 353     patron_list[player_ptr->chaos_patron].admire(player_ptr);
 354     msg_print(_("*** おめでとう ***", "*** CONGRATULATIONS ***"));
 355     msg_print(_("あなたはゲームをコンプリートしました。", "You have won the game!"));
 356     msg_print(_("準備が整ったら引退(自殺コマンド)しても結構です。", "You may retire (commit suicide) when you are ready."));
 357 }
 358
 359 /*!
 360  * @brief モンスターが死亡した時の処理 /
 361  * Handle the "death" of a monster.
 362  * @param m_idx 死亡したモンスターのID
 363  * @param drop_item TRUEならばモンスターのドロップ処理を行う
 364  * @param type ラストアタックの属性 (単一属性)
 365  */
 366 void monster_death(PlayerType *player_ptr, MONSTER_IDX m_idx, bool drop_item, AttributeType type)
 367 {
 368     AttributeFlags flags;
 369     flags.clear();
 370     flags.set(type);
 371     monster_death(player_ptr, m_idx, drop_item, flags);
 372 }
 373
 374 /*!
 375  * @brief モンスターが死亡した時の処理 /
 376  * Handle the "death" of a monster.
 377  * @param m_idx 死亡したモンスターのID
 378  * @param drop_item TRUEならばモンスターのドロップ処理を行う
 379  * @param attribute_flags ラストアタックの属性 (複数属性)
 380  * @details
 381  * <pre>
 382  * Disperse treasures centered at the monster location based on the
 383  * various flags contained in the monster flags fields.
 384  * Check for "Quest" completion when a quest monster is killed.
 385  * Note that only the player can induce "monster_death()" on Uniques.
 386  * Thus (for now) all Quest monsters should be Uniques.
 387  * Note that monsters can now carry objects, and when a monster dies,
 388  * it drops all of its objects, which may disappear in crowded rooms.
 389  * </pre>
 390  */
 391 void monster_death(PlayerType *player_ptr, MONSTER_IDX m_idx, bool drop_item, AttributeFlags attribute_flags)
 392 {
 393     monster_death_type tmp_md;
 394     monster_death_type *md_ptr = initialize_monster_death_type(player_ptr, &tmp_md, m_idx, drop_item);
 395     if (w_ptr->timewalk_m_idx && w_ptr->timewalk_m_idx == m_idx) {
 396         w_ptr->timewalk_m_idx = 0;
 397     }
 398
 399     // プレイヤーしかユニークを倒せないのでここで時間を記録
 400     if (md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE) && md_ptr->m_ptr->mflag2.has_not(MonsterConstantFlagType::CLONED)) {
 401         update_playtime();
 402         md_ptr->r_ptr->defeat_time = w_ptr->play_time;
 403         md_ptr->r_ptr->defeat_level = player_ptr->lev;
 404     }
 405
 406     if (md_ptr->r_ptr->flags7 & (RF7_LITE_MASK | RF7_DARK_MASK)) {
 407         player_ptr->update |= PU_MON_LITE;
 408     }
 409
 410     write_pet_death(player_ptr, md_ptr);
 411     on_dead_explosion(player_ptr, md_ptr);
 412     if (md_ptr->m_ptr->mflag2.has(MonsterConstantFlagType::CHAMELEON)) {
 413         choose_new_monster(player_ptr, m_idx, true, MonsterRaceId::CHAMELEON);
 414         md_ptr->r_ptr = &r_info[md_ptr->m_ptr->r_idx];
 415     }
 416
 417     QuestCompletionChecker(player_ptr, md_ptr->m_ptr).complete();
 418     on_defeat_arena_monster(player_ptr, md_ptr);
 419     if (m_idx == player_ptr->riding && process_fall_off_horse(player_ptr, -1, false)) {
 420         msg_print(_("地面に落とされた。", "You have fallen from the pet you were riding."));
 421     }
 422
 423     drop_corpse(player_ptr, md_ptr);
 424     monster_drop_carried_objects(player_ptr, md_ptr->m_ptr);
 425     decide_drop_quality(md_ptr);
 426     switch_special_death(player_ptr, md_ptr, attribute_flags);
 427     drop_artifact(player_ptr, md_ptr);
 428     int drop_numbers = decide_drop_numbers(player_ptr, md_ptr, drop_item);
 429     coin_type = md_ptr->force_coin;
 430     auto *floor_ptr = player_ptr->current_floor_ptr;
 431     floor_ptr->object_level = (floor_ptr->dun_level + md_ptr->r_ptr->level) / 2;
 432     drop_items_golds(player_ptr, md_ptr, drop_numbers);
 433     if (((md_ptr->r_ptr->flags1 & RF1_QUESTOR) == 0) || player_ptr->phase_out || (md_ptr->m_ptr->r_idx != MonsterRaceId::SERPENT) || md_ptr->cloned) {
 434         return;
 435     }
 436
 437     on_defeat_last_boss(player_ptr);
 438 }
 439
 440 /*!
 441  * @brief モンスターを撃破した際の述語メッセージを返す /
 442  * Return monster death string
 443  * @param r_ptr 撃破されたモンスターの種族情報を持つ構造体の参照ポインタ
 444  * @return 撃破されたモンスターの述語
 445  */
 446 concptr extract_note_dies(MonsterRaceId r_idx)
 447 {
 448     auto *r_ptr = &r_info[r_idx];
 449     if (monster_living(r_idx)) {
 450         return _("は死んだ。", " dies.");
 451     }
 452
 453     for (int i = 0; i < 4; i++) {
 454         if (r_ptr->blow[i].method == RaceBlowMethodType::EXPLODE) {
 455             return _("は爆発して粉々になった。", " explodes into tiny shreds.");
 456         }
 457     }
 458
 459     return _("を倒した。", " is destroyed.");
 460 }