OSDN Git Service

Remove Dwarven-Ego randomly add Con process.
[hengband/hengband.git] / src / cmd6.c
index fa96286..6405293 100644 (file)
@@ -1580,7 +1580,6 @@ static void do_cmd_read_scroll_aux(int item, bool known)
 {
        int         k, used_up, ident, lev;
        object_type *o_ptr;
-       char        Rumor[1024];
 
 
        /* Get the item (in the pack) */
@@ -2115,6 +2114,13 @@ take_hit(DAMAGE_NOESCAPE, 111+randint1(111), "
                        amusement(py, px, 1, FALSE);
                        break;
                }
+
+               case SV_SCROLL_STAR_AMUSEMENT:
+               {
+                       ident = TRUE;
+                       amusement(py, px,  randint1(2) + 1, FALSE);
+                       break;
+               }
        }
        }
        else if (o_ptr->name1 == ART_GHB)
@@ -3991,7 +3997,7 @@ static bool ang_sort_comp_pet(vptr u, vptr v, int a, int b)
  */
 static void do_cmd_activate_aux(int item)
 {
-       int         k, dir, lev, chance, fail;
+       int         dir, lev, chance, fail;
        object_type *o_ptr;
        bool success;