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