1 #include "monster-floor/monster-death.h"
2 #include "artifact/fixed-art-generator.h"
3 #include "artifact/fixed-art-types.h"
4 #include "cmd-building/cmd-building.h"
5 #include "dungeon/quest-completion-checker.h"
6 #include "effect/effect-characteristics.h"
7 #include "effect/effect-processor.h"
8 #include "floor/floor-object.h"
9 #include "game-option/birth-options.h"
10 #include "game-option/play-record-options.h"
11 #include "io/write-diary.h"
12 #include "lore/lore-store.h"
13 #include "main/music-definitions-table.h"
14 #include "main/sound-of-music.h"
15 #include "market/arena-info-table.h"
16 #include "monster-floor/monster-death-util.h"
17 #include "monster-floor/monster-object.h"
18 #include "monster-floor/special-death-switcher.h"
19 #include "monster-race/monster-race-hook.h"
20 #include "monster-race/monster-race.h"
21 #include "monster-race/race-brightness-mask.h"
22 #include "monster-race/race-flags1.h"
23 #include "monster-race/race-flags2.h"
24 #include "monster-race/race-flags7.h"
25 #include "monster-race/race-indice-types.h"
26 #include "monster/monster-describer.h"
27 #include "monster/monster-description-types.h"
28 #include "monster/monster-flag-types.h"
29 #include "monster/monster-info.h"
30 #include "monster/monster-list.h"
31 #include "object-enchant/item-apply-magic.h"
32 #include "object-enchant/item-magic-applier.h"
33 #include "object/object-kind-hook.h"
34 #include "pet/pet-fall-off.h"
35 #include "player/patron.h"
36 #include "sv-definition/sv-other-types.h"
37 #include "sv-definition/sv-scroll-types.h"
38 #include "system/angband-system.h"
39 #include "system/artifact-type-definition.h"
40 #include "system/building-type-definition.h"
41 #include "system/dungeon-info.h"
42 #include "system/floor-type-definition.h"
43 #include "system/item-entity.h"
44 #include "system/monster-entity.h"
45 #include "system/monster-race-info.h"
46 #include "system/player-type-definition.h"
47 #include "system/redrawing-flags-updater.h"
48 #include "system/system-variables.h"
49 #include "timed-effect/player-hallucination.h"
50 #include "timed-effect/timed-effects.h"
51 #include "util/bit-flags-calculator.h"
52 #include "view/display-messages.h"
53 #include "world/world.h"
56 static void write_pet_death(PlayerType *player_ptr, MonsterDeath *md_ptr)
58 md_ptr->md_y = md_ptr->m_ptr->fy;
59 md_ptr->md_x = md_ptr->m_ptr->fx;
60 if (record_named_pet && md_ptr->m_ptr->is_named_pet()) {
61 const auto m_name = monster_desc(player_ptr, md_ptr->m_ptr, MD_INDEF_VISIBLE);
62 exe_write_diary(player_ptr, DiaryKind::NAMED_PET, 3, m_name);
66 static void on_dead_explosion(PlayerType *player_ptr, MonsterDeath *md_ptr)
68 for (const auto &blow : md_ptr->r_ptr->blows) {
69 if (blow.method != RaceBlowMethodType::EXPLODE) {
73 BIT_FLAGS flg = PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL;
74 AttributeType typ = mbe_info[enum2i(blow.effect)].explode_type;
75 DICE_NUMBER d_dice = blow.d_dice;
76 DICE_SID d_side = blow.d_side;
77 int damage = damroll(d_dice, d_side);
78 (void)project(player_ptr, md_ptr->m_idx, 3, md_ptr->md_y, md_ptr->md_x, damage, typ, flg);
83 static void on_defeat_arena_monster(PlayerType *player_ptr, MonsterDeath *md_ptr)
85 auto *floor_ptr = player_ptr->current_floor_ptr;
86 if (!floor_ptr->inside_arena || md_ptr->m_ptr->is_pet()) {
90 w_ptr->set_arena(true);
91 if (player_ptr->arena_number > MAX_ARENA_MONS) {
92 msg_print(_("素晴らしい!君こそ真の勝利者だ。", "You are a Genuine Champion!"));
94 msg_print(_("勝利!チャンピオンへの道を進んでいる。", "Victorious! You're on your way to becoming Champion."));
97 const auto &arena = arena_info[player_ptr->arena_number];
98 const auto tval = arena.key.tval();
99 if (tval > ItemKindType::NONE) {
101 auto *q_ptr = &forge;
102 q_ptr->prep(lookup_baseitem_id(arena.key));
103 ItemMagicApplier(player_ptr, q_ptr, floor_ptr->object_level, AM_NO_FIXED_ART).execute();
104 (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
107 if (player_ptr->arena_number > MAX_ARENA_MONS) {
108 player_ptr->arena_number++;
111 player_ptr->arena_number++;
116 const auto m_name = monster_desc(player_ptr, md_ptr->m_ptr, MD_WRONGDOER_NAME);
117 exe_write_diary(player_ptr, DiaryKind::ARENA, player_ptr->arena_number, m_name);
120 static void drop_corpse(PlayerType *player_ptr, MonsterDeath *md_ptr)
122 auto *floor_ptr = player_ptr->current_floor_ptr;
123 bool is_drop_corpse = one_in_(md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE) ? 1 : 4);
124 is_drop_corpse &= md_ptr->r_ptr->drop_flags.has_any_of({ MonsterDropType::DROP_CORPSE, MonsterDropType::DROP_SKELETON });
125 is_drop_corpse &= !(floor_ptr->inside_arena || AngbandSystem::get_instance().is_phase_out() || md_ptr->cloned || ((md_ptr->m_ptr->r_idx == w_ptr->today_mon) && md_ptr->m_ptr->is_pet()));
126 if (!is_drop_corpse) {
131 if (md_ptr->r_ptr->drop_flags.has_not(MonsterDropType::DROP_SKELETON)) {
133 } else if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_CORPSE) && md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE)) {
135 } else if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_CORPSE)) {
136 if ((0 - ((md_ptr->m_ptr->maxhp) / 4)) > md_ptr->m_ptr->hp) {
148 auto *q_ptr = &forge;
149 q_ptr->prep(lookup_baseitem_id({ ItemKindType::CORPSE, (corpse ? SV_CORPSE : SV_SKELETON) }));
150 ItemMagicApplier(player_ptr, q_ptr, floor_ptr->object_level, AM_NO_FIXED_ART).execute();
151 q_ptr->pval = enum2i(md_ptr->m_ptr->r_idx);
152 (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
156 * @brief アーティファクトのドロップ判定処理
157 * @param player_ptr プレイヤーへの参照ポインタ
158 * @param md_ptr モンスター死亡構造体への参照ポインタ
159 * @return 何かドロップするならドロップしたアーティファクトのID、何もドロップしないなら0
161 static void drop_artifact_from_unique(PlayerType *player_ptr, MonsterDeath *md_ptr)
163 for (const auto &[a_idx, chance] : md_ptr->r_ptr->drop_artifacts) {
164 if (!w_ptr->wizard && (randint0(100) >= chance)) {
168 if (drop_single_artifact(player_ptr, md_ptr, a_idx)) {
175 * @brief 特定アーティファクトのドロップ処理
176 * @param player_ptr プレイヤーへの参照ポインタ
177 * @param md_ptr モンスター死亡構造体への参照ポインタ
178 * @param a_ix ドロップを試みるアーティファクトID
179 * @return ドロップするならtrue
181 bool drop_single_artifact(PlayerType *player_ptr, MonsterDeath *md_ptr, FixedArtifactId a_idx)
183 auto &artifact = ArtifactsInfo::get_instance().get_artifact(a_idx);
184 if (artifact.is_generated) {
188 return create_named_art(player_ptr, a_idx, md_ptr->md_y, md_ptr->md_x);
191 static short drop_dungeon_final_artifact(PlayerType *player_ptr, MonsterDeath *md_ptr)
193 const auto &dungeon = player_ptr->current_floor_ptr->get_dungeon_definition();
194 const auto has_reward = dungeon.final_object > 0;
195 const auto bi_id = has_reward ? dungeon.final_object : lookup_baseitem_id({ ItemKindType::SCROLL, SV_SCROLL_ACQUIREMENT });
196 if (dungeon.final_artifact == FixedArtifactId::NONE) {
200 const auto a_idx = dungeon.final_artifact;
201 const auto &artifact = ArtifactsInfo::get_instance().get_artifact(a_idx);
202 if (artifact.is_generated) {
206 create_named_art(player_ptr, a_idx, md_ptr->md_y, md_ptr->md_x);
208 return dungeon.final_object ? bi_id : 0;
211 static void drop_artifacts(PlayerType *player_ptr, MonsterDeath *md_ptr)
213 if (!md_ptr->drop_chosen_item) {
217 drop_artifact_from_unique(player_ptr, md_ptr);
218 const auto *floor_ptr = player_ptr->current_floor_ptr;
219 const auto &dungeon = floor_ptr->get_dungeon_definition();
220 if (md_ptr->r_ptr->misc_flags.has_not(MonsterMiscType::GUARDIAN) || (dungeon.final_guardian != md_ptr->m_ptr->r_idx)) {
224 short bi_id = drop_dungeon_final_artifact(player_ptr, md_ptr);
227 auto *q_ptr = &forge;
229 ItemMagicApplier(player_ptr, q_ptr, floor_ptr->object_level, AM_NO_FIXED_ART | AM_GOOD).execute();
230 (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
233 msg_format(_("あなたは%sを制覇した!", "You have conquered %s!"), dungeon.name.data());
236 static void decide_drop_quality(MonsterDeath *md_ptr)
238 md_ptr->mo_mode = 0L;
239 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_GOOD)) {
240 md_ptr->mo_mode |= AM_GOOD;
243 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_GREAT)) {
244 md_ptr->mo_mode |= (AM_GOOD | AM_GREAT);
248 static int decide_drop_numbers(MonsterDeath *md_ptr, const bool drop_item, const bool inside_arena)
250 int drop_numbers = 0;
251 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_60) && (randint0(100) < 60)) {
255 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_90) && (randint0(100) < 90)) {
259 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_1D2)) {
260 drop_numbers += damroll(1, 2);
263 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_2D2)) {
264 drop_numbers += damroll(2, 2);
267 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_3D2)) {
268 drop_numbers += damroll(3, 2);
271 if (md_ptr->r_ptr->drop_flags.has(MonsterDropType::DROP_4D2)) {
272 drop_numbers += damroll(4, 2);
275 if (md_ptr->cloned && md_ptr->r_ptr->kind_flags.has_not(MonsterKindType::UNIQUE)) {
279 if (md_ptr->m_ptr->is_pet() || AngbandSystem::get_instance().is_phase_out() || inside_arena) {
283 if (!drop_item && (md_ptr->r_ptr->d_char != '$')) {
287 if (md_ptr->r_ptr->misc_flags.has(MonsterMiscType::MULTIPLY) && (md_ptr->r_ptr->r_akills > 1024)) {
294 static void drop_items_golds(PlayerType *player_ptr, MonsterDeath *md_ptr, int drop_numbers)
298 for (int i = 0; i < drop_numbers; i++) {
300 auto *q_ptr = &forge;
302 if (md_ptr->do_gold && (!md_ptr->do_item || (randint0(100) < 50))) {
303 if (!make_gold(player_ptr, q_ptr)) {
309 if (!make_object(player_ptr, q_ptr, md_ptr->mo_mode)) {
316 (void)drop_near(player_ptr, q_ptr, -1, md_ptr->md_y, md_ptr->md_x);
319 auto *floor_ptr = player_ptr->current_floor_ptr;
320 floor_ptr->object_level = floor_ptr->base_level;
322 bool visible = (md_ptr->m_ptr->ml && !player_ptr->effects()->hallucination()->is_hallucinated()) || (md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE));
323 if (visible && (dump_item || dump_gold)) {
324 lore_treasure(player_ptr, md_ptr->m_idx, dump_item, dump_gold);
329 * @brief 最終ボス(混沌のサーペント)を倒したときの処理
330 * @param player_ptr プレイヤー情報への参照ポインタ
332 static void on_defeat_last_boss(PlayerType *player_ptr)
334 w_ptr->total_winner = true;
335 w_ptr->add_winner_class(player_ptr->pclass);
336 RedrawingFlagsUpdater::get_instance().set_flag(MainWindowRedrawingFlag::TITLE);
337 play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_FINAL_QUEST_CLEAR);
338 exe_write_diary(player_ptr, DiaryKind::DESCRIPTION, 0, _("見事に変愚蛮怒の勝利者となった!", "finally became *WINNER* of Hengband!"));
339 patron_list[player_ptr->chaos_patron].admire(player_ptr);
340 msg_print(_("*** おめでとう ***", "*** CONGRATULATIONS ***"));
341 msg_print(_("あなたはゲームをコンプリートしました。", "You have won the game!"));
342 msg_print(_("準備が整ったら引退(自殺コマンド)しても結構です。", "You may retire (commit suicide) when you are ready."));
346 * @brief モンスターが死亡した時の処理 /
347 * Handle the "death" of a monster.
348 * @param m_idx 死亡したモンスターのID
349 * @param drop_item TRUEならばモンスターのドロップ処理を行う
350 * @param type ラストアタックの属性 (単一属性)
352 void monster_death(PlayerType *player_ptr, MONSTER_IDX m_idx, bool drop_item, AttributeType type)
354 AttributeFlags flags;
357 monster_death(player_ptr, m_idx, drop_item, flags);
361 * @brief モンスターが死亡した時の処理 /
362 * Handle the "death" of a monster.
363 * @param m_idx 死亡したモンスターのID
364 * @param drop_item TRUEならばモンスターのドロップ処理を行う
365 * @param attribute_flags ラストアタックの属性 (複数属性)
368 * Disperse treasures centered at the monster location based on the
369 * various flags contained in the monster flags fields.
370 * Check for "Quest" completion when a quest monster is killed.
371 * Note that only the player can induce "monster_death()" on Uniques.
372 * Thus (for now) all Quest monsters should be Uniques.
373 * Note that monsters can now carry objects, and when a monster dies,
374 * it drops all of its objects, which may disappear in crowded rooms.
377 void monster_death(PlayerType *player_ptr, MONSTER_IDX m_idx, bool drop_item, AttributeFlags attribute_flags)
379 auto &floor = *player_ptr->current_floor_ptr;
380 MonsterDeath tmp_md(floor, m_idx, drop_item);
381 MonsterDeath *md_ptr = &tmp_md;
382 if (w_ptr->timewalk_m_idx && w_ptr->timewalk_m_idx == m_idx) {
383 w_ptr->timewalk_m_idx = 0;
386 // プレイヤーしかユニークを倒せないのでここで時間を記録
387 if (md_ptr->r_ptr->kind_flags.has(MonsterKindType::UNIQUE) && md_ptr->m_ptr->mflag2.has_not(MonsterConstantFlagType::CLONED)) {
388 w_ptr->update_playtime();
389 md_ptr->r_ptr->defeat_time = w_ptr->play_time;
390 md_ptr->r_ptr->defeat_level = player_ptr->lev;
393 if (md_ptr->r_ptr->brightness_flags.has_any_of(ld_mask)) {
394 RedrawingFlagsUpdater::get_instance().set_flag(StatusRecalculatingFlag::MONSTER_LITE);
397 write_pet_death(player_ptr, md_ptr);
398 on_dead_explosion(player_ptr, md_ptr);
399 if (md_ptr->m_ptr->mflag2.has(MonsterConstantFlagType::CHAMELEON)) {
400 choose_new_monster(player_ptr, m_idx, true, MonsterRaceId::CHAMELEON);
401 md_ptr->r_ptr = &md_ptr->m_ptr->get_monrace();
404 QuestCompletionChecker(player_ptr, md_ptr->m_ptr).complete();
405 on_defeat_arena_monster(player_ptr, md_ptr);
406 if (m_idx == player_ptr->riding && process_fall_off_horse(player_ptr, -1, false)) {
407 msg_print(_("地面に落とされた。", "You have fallen from the pet you were riding."));
410 drop_corpse(player_ptr, md_ptr);
411 monster_drop_carried_objects(player_ptr, md_ptr->m_ptr);
412 decide_drop_quality(md_ptr);
413 switch_special_death(player_ptr, md_ptr, attribute_flags);
414 drop_artifacts(player_ptr, md_ptr);
415 int drop_numbers = decide_drop_numbers(md_ptr, drop_item, floor.inside_arena);
416 coin_type = md_ptr->force_coin;
417 floor.object_level = (floor.dun_level + md_ptr->r_ptr->level) / 2;
418 drop_items_golds(player_ptr, md_ptr, drop_numbers);
419 if ((md_ptr->r_ptr->misc_flags.has_not(MonsterMiscType::QUESTOR)) || AngbandSystem::get_instance().is_phase_out() || (md_ptr->m_ptr->r_idx != MonsterRaceId::SERPENT) || md_ptr->cloned) {
423 on_defeat_last_boss(player_ptr);