[Refactor] #37287 #37353 型の置換。 / Type replacement.

[hengband/hengband.git] / src / cmd-quaff.c

diff --git a/src/cmd-quaff.c b/src/cmd-quaff.c
index f4fb7da..57f6c1c 100644 (file)
--- a/src/cmd-quaff.c
+++ b/src/cmd-quaff.c
@@ -18,14 +18,12 @@
  */\r
 void do_cmd_quaff_potion_aux(int item)\r
 {\r
-       int         ident, lev;\r
+       int ident, lev;\r
        object_type *o_ptr;\r
        object_type forge;\r
        object_type *q_ptr;\r
 \r
-\r
-       /* Take a turn */\r
-       p_ptr->energy_use = 100;\r
+       p_ptr->energy_use = 100; /* Take a turn */\r
 \r
        if (world_player)\r
        {\r
@@ -329,9 +327,7 @@ void do_cmd_quaff_potion_aux(int item)
                        break;\r
 \r
                case SV_POTION_BESERK_STRENGTH:\r
-                       if (set_afraid(0)) ident = TRUE;\r
-                       if (set_shero(p_ptr->shero + randint1(25) + 25, FALSE)) ident = TRUE;\r
-                       if (hp_player(30)) ident = TRUE;\r
+                       ident = berserk(randint1(25) + 25);\r
                        break;\r
 \r
                case SV_POTION_CURE_LIGHT:\r