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

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

diff --git a/src/realm-craft.c b/src/realm-craft.c
index c768d91..29aca14 100644 (file)
--- a/src/realm-craft.c
+++ b/src/realm-craft.c
@@ -208,9 +208,7 @@ cptr do_craft_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