[Fix] 死亡時召喚でクローンフラグが維持されない

クローンを倒したとき、分裂モンスターもクローンであるべきである。
モンスター生成モードにクローン指定を可能にし、死亡分裂でクローンフラグが遺伝するように設定した。

diff --git a/src/monster-floor/one-monster-placer.cpp b/src/monster-floor/one-monster-placer.cpp
index 09040aa..c1960a3 100644 (file)
--- a/src/monster-floor/one-monster-placer.cpp
+++ b/src/monster-floor/one-monster-placer.cpp
@@ -317,6 +317,9 @@ bool place_monster_one(PlayerType *player_ptr, MONSTER_IDX who, POSITION y, POSI
         m_ptr->mflag2.set(MonsterConstantFlagType::KAGE);
     }
 
+    if (any_bits(mode, PM_CLONE))
+        m_ptr->mflag2.set(MonsterConstantFlagType::CLONED);
+
     if (any_bits(mode, PM_NO_PET))
         m_ptr->mflag2.set(MonsterConstantFlagType::NOPET);
 

diff --git a/src/monster-floor/place-monster-types.h b/src/monster-floor/place-monster-types.h
index 7e40514..062e1ed 100644 (file)
--- a/src/monster-floor/place-monster-types.h
+++ b/src/monster-floor/place-monster-types.h
@@ -18,4 +18,5 @@ enum place_monster_type {
     PM_MULTIPLY = 0x00000400, /*!< モンスター生成フラグ: 増殖処理時として生成する */
     PM_JURAL = 0x00000800, /*!< モンスター生成フラグ: ジュラル星人として誤認生成する */
     PM_NO_QUEST = 0x00001000, /*!< モンスター生成フラグ: クエスト除外モンスターを生成しない */
+    PM_CLONE = 0x00002000, /*!< モンスター生成フラグ: クローンとして生成する */
 };

diff --git a/src/monster-floor/special-death-switcher.cpp b/src/monster-floor/special-death-switcher.cpp
index 857678e..97561ed 100644 (file)
--- a/src/monster-floor/special-death-switcher.cpp
+++ b/src/monster-floor/special-death-switcher.cpp
@@ -44,7 +44,23 @@
 #include "view/display-messages.h"
 #include "world/world.h"
 
-/*!
+ /*!
+ * @brief 死亡召喚に使用するモード選択
+ * @param md_ptr モンスター撃破構造体への参照ポインタ
+ * @return 撃破モンスターがPETであればPM_FORCE_PETを、CLONEであればPM_CLONEを立てる
+ */
+ static BIT_FLAGS dead_mode(monster_death_type *md_ptr)
+{
+     bool pet = is_pet(md_ptr->m_ptr);
+     bool clone = md_ptr->m_ptr->mflag2.has(MonsterConstantFlagType::CLONED);
+     BIT_FLAGS mode = pet ? PM_FORCE_PET : PM_NONE;
+     if (clone)
+         mode = mode | PM_CLONE;
+
+     return mode;
+ }
+ 
+ /*!
  * @brief 死亡時召喚処理 (今のところ自分自身のみ)
  * @param player_ptr プレイヤーへの参照ポインタ
  * @param md_ptr モンスター撃破構造体への参照ポインタ
@@ -70,7 +86,7 @@ static void summon_self(PlayerType *player_ptr, monster_death_type *md_ptr, summ
     if (attempts <= 0)
         return;
 
-    BIT_FLAGS mode = pet ? PM_FORCE_PET : PM_NONE;
+    BIT_FLAGS mode = dead_mode(md_ptr);
     if (summon_specific(player_ptr, (pet ? -1 : md_ptr->m_idx), wy, wx, 100, type, mode) && player_can_see_bold(player_ptr, wy, wx))
         msg_print(message);
 }
@@ -86,7 +102,7 @@ static void on_dead_pink_horror(PlayerType *player_ptr, monster_death_type *md_p
         POSITION wy = md_ptr->md_y;
         POSITION wx = md_ptr->md_x;
         bool pet = is_pet(md_ptr->m_ptr);
-        BIT_FLAGS mode = pet ? PM_FORCE_PET : PM_NONE;
+        BIT_FLAGS mode = dead_mode(md_ptr);
         if (summon_specific(player_ptr, (pet ? -1 : md_ptr->m_idx), wy, wx, 100, SUMMON_BLUE_HORROR, mode) && player_can_see_bold(player_ptr, wy, wx))
             notice = true;
     }
@@ -250,7 +266,7 @@ static void on_dead_aqua_illusion(PlayerType *player_ptr, monster_death_type *md
         POSITION wy = md_ptr->md_y;
         POSITION wx = md_ptr->md_x;
         bool pet = is_pet(md_ptr->m_ptr);
-        BIT_FLAGS mode = pet ? PM_FORCE_PET : PM_NONE;
+        BIT_FLAGS mode = dead_mode(md_ptr);
         MONSTER_IDX smaller_bubble = md_ptr->m_ptr->r_idx - 1;
         if (summon_named_creature(player_ptr, (pet ? -1 : md_ptr->m_idx), wy, wx, smaller_bubble, mode) && player_can_see_bold(player_ptr, wy, wx))
             notice = true;
@@ -303,7 +319,8 @@ static void on_dead_dragon_centipede(PlayerType *player_ptr, monster_death_type
         POSITION wy = md_ptr->md_y;
         POSITION wx = md_ptr->md_x;
         bool pet = is_pet(md_ptr->m_ptr);
-        BIT_FLAGS mode = pet ? PM_FORCE_PET : PM_NONE;
+        BIT_FLAGS mode = dead_mode(md_ptr);
+
         MONSTER_IDX smaller_centipede = md_ptr->m_ptr->r_idx - 1;
         if (summon_named_creature(player_ptr, (pet ? -1 : md_ptr->m_idx), wy, wx, smaller_centipede, mode) && player_can_see_bold(player_ptr, wy, wx))
             notice = true;
@@ -473,7 +490,7 @@ static void on_dead_chest_mimic(PlayerType *player_ptr, monster_death_type *md_p
         auto wy = md_ptr->md_y;
         auto wx = md_ptr->md_x;
         auto pet = is_pet(md_ptr->m_ptr);
-        auto mode = pet ? PM_FORCE_PET : PM_NONE;
+        BIT_FLAGS mode = dead_mode(md_ptr);
         if (summon_named_creature(player_ptr, (pet ? -1 : md_ptr->m_idx), wy, wx, (MONSTER_IDX)mimic_inside, (BIT_FLAGS)mode)
             && player_can_see_bold(player_ptr, wy, wx)) {
             notice = true;