#37353 狂戦士化の効果をberserk()にまとめる。

[hengband/hengband.git] / src / realm-death.c

diff --git a/src/realm-death.c b/src/realm-death.c
index 3a93d7b..cef8d87 100644 (file)
--- a/src/realm-death.c
+++ b/src/realm-death.c
@@ -370,9 +370,7 @@ cptr do_death_spell(SPELL_IDX spell, BIT_FLAGS mode)
 \r
                        if (cast)\r
                        {\r
-                               set_shero(randint1(base) + base, FALSE);\r
-                               hp_player(30);\r
-                               set_afraid(0);\r
+                               (void)berserk(base + randint1(base));\r
                        }\r
                }\r
                break;\r
@@ -426,9 +424,7 @@ cptr do_death_spell(SPELL_IDX spell, BIT_FLAGS mode)
 \r
                        if (cast)\r
                        {\r
-                               set_shero(randint1(25) + 25, FALSE);\r
-                               hp_player(30);\r
-                               set_afraid(0);\r
+                               (void)berserk(b_base + randint1(b_base));\r
                                set_fast(randint1(sp_sides) + sp_base, FALSE);\r
                        }\r
                }\r