OSDN Git Service

抹殺/消滅, ペット爆破, 親モンスター消滅, モンスター圧縮, 不潔な病人の
[hengbandforosx/hengbandosx.git] / src / spells1.c
index 215f469..8ff230a 100644 (file)
@@ -671,13 +671,10 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
 #else
                        msg_format("A tree %s", message);
 #endif
-                       cave_set_feat(y, x, (one_in_(3) ? FEAT_DEEP_GRASS : FEAT_GRASS));
+                       cave_set_feat(y, x, one_in_(3) ? feat_brake : feat_grass);
 
                        /* Observe */
                        if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
-
-                       /* Update some things */
-                       p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
                }
        }
 
@@ -808,13 +805,6 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                        obvious = TRUE;
                                }
 
-                               /* Visibility change */
-                               if (have_flag(f_ptr->flags, FF_DOOR))
-                               {
-                                       /* Update some things */
-                                       p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
-                               }
-
                                /* Destroy the feature */
                                cave_alter_feat(y, x, FF_TUNNEL);
                        }
@@ -887,7 +877,7 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                cave_alter_feat(y, x, FF_HURT_ROCK);
 
                                /* Update some things */
-                               p_ptr->update |= (PU_VIEW | PU_LITE | PU_FLOW | PU_MONSTERS | PU_MON_LITE);
+                               p_ptr->update |= (PU_FLOW);
                        }
 
                        break;
@@ -903,14 +893,11 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                        if (player_bold(y, x)) break;
 
                        /* Create a closed door */
-                       cave_set_feat(y, x, FEAT_DOOR_HEAD + 0x00);
+                       cave_set_feat(y, x, feat_door[DOOR_DOOR].closed);
 
                        /* Observe */
                        if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
 
-                       /* Update some things */
-                       p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
-
                        break;
                }
 
@@ -933,13 +920,11 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                        if (player_bold(y, x)) break;
 
                        /* Create a closed door */
-                       cave_set_feat(y, x, FEAT_TREES);
+                       cave_set_feat(y, x, feat_tree);
 
                        /* Observe */
                        if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
 
-                       /* Update some things */
-                       p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
 
                        break;
                }
@@ -951,7 +936,7 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
 
                        /* Create a glyph */
                        c_ptr->info |= CAVE_OBJECT;
-                       c_ptr->mimic = FEAT_GLYPH;
+                       c_ptr->mimic = feat_glyph;
 
                        /* Notice */
                        note_spot(y, x);
@@ -971,10 +956,7 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                        if (player_bold(y, x)) break;
 
                        /* Place a wall */
-                       cave_set_feat(y, x, FEAT_WALL);
-
-                       /* Update some things */
-                       p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
+                       cave_set_feat(y, x, feat_granite);
 
                        break;
                }
@@ -992,13 +974,13 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
 
                                /* Place a shallow lava */
-                               cave_set_feat(y, x, FEAT_SHAL_LAVA);
+                               cave_set_feat(y, x, feat_shallow_lava);
                        }
                        /* Deep Lava */
                        else if (dam)
                        {
                                /* Place a deep lava */
-                               cave_set_feat(y, x, FEAT_DEEP_LAVA);
+                               cave_set_feat(y, x, feat_deep_lava);
                        }
                        break;
                }
@@ -1015,13 +997,13 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
 
                                /* Place a shallow water */
-                               cave_set_feat(y, x, FEAT_SHAL_WATER);
+                               cave_set_feat(y, x, feat_shallow_water);
                        }
                        /* Deep Water */
                        else if (dam)
                        {
                                /* Place a deep water */
-                               cave_set_feat(y, x, FEAT_DEEP_WATER);
+                               cave_set_feat(y, x, feat_deep_water);
                        }
                        break;
                }
@@ -1049,6 +1031,11 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                /* Mega-Hack -- Update the monster in the affected grid */
                                /* This allows "spear of light" (etc) to work "correctly" */
                                if (c_ptr->m_idx) update_mon(c_ptr->m_idx, FALSE);
+
+                               if (p_ptr->special_defense & NINJA_S_STEALTH)
+                               {
+                                       if (player_bold(y, x)) set_superstealth(FALSE);
+                               }
                        }
 
                        break;
@@ -1064,24 +1051,27 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                        /* Turn off the light. */
                        if (do_dark)
                        {
-                               for (j = 0; j < 9; j++)
+                               if (dun_level || !is_daytime())
                                {
-                                       int by = y + ddy_ddd[j];
-                                       int bx = x + ddx_ddd[j];
-
-                                       if (in_bounds2(by, bx))
+                                       for (j = 0; j < 9; j++)
                                        {
-                                               cave_type *cc_ptr = &cave[by][bx];
+                                               int by = y + ddy_ddd[j];
+                                               int bx = x + ddx_ddd[j];
 
-                                               if (have_flag(f_info[get_feat_mimic(cc_ptr)].flags, FF_GLOW))
+                                               if (in_bounds2(by, bx))
                                                {
-                                                       do_dark = FALSE;
-                                                       break;
+                                                       cave_type *cc_ptr = &cave[by][bx];
+
+                                                       if (have_flag(f_info[get_feat_mimic(cc_ptr)].flags, FF_GLOW))
+                                                       {
+                                                               do_dark = FALSE;
+                                                               break;
+                                                       }
                                                }
                                        }
-                               }
 
-                               if (!do_dark) break;
+                                       if (!do_dark) break;
+                               }
 
                                c_ptr->info &= ~(CAVE_GLOW);
 
@@ -1111,6 +1101,7 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                        /* All done */
                        break;
                }
+
                case GF_SHARDS:
                case GF_ROCKET:
                {
@@ -1121,11 +1112,33 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
 #else
                                msg_print("The mirror was crashed!");
 #endif
+                               sound(SOUND_GLASS);
                                remove_mirror(y, x);
                                project(0, 2, y, x, p_ptr->lev / 2 + 5, GF_SHARDS, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
                        }
+
+                       if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 50))
+                       {
+                               /* Message */
+                               if (known && (c_ptr->info & CAVE_MARK))
+                               {
+#ifdef JP
+                                       msg_format("%s¤¬³ä¤ì¤¿¡ª", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#else
+                                       msg_format("The %s was crashed!", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#endif
+                                       sound(SOUND_GLASS);
+                               }
+
+                               /* Destroy the wall */
+                               cave_alter_feat(y, x, FF_HURT_ROCK);
+
+                               /* Update some things */
+                               p_ptr->update |= (PU_FLOW);
+                       }
                        break;
                }
+
                case GF_SOUND:
                {
                        if (is_mirror_grid(c_ptr) && p_ptr->lev < 40)
@@ -1135,9 +1148,30 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
 #else
                                msg_print("The mirror was crashed!");
 #endif
+                               sound(SOUND_GLASS);
                                remove_mirror(y, x);
                                project(0, 2, y, x, p_ptr->lev / 2 + 5, GF_SHARDS, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
                        }
+
+                       if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 200))
+                       {
+                               /* Message */
+                               if (known && (c_ptr->info & CAVE_MARK))
+                               {
+#ifdef JP
+                                       msg_format("%s¤¬³ä¤ì¤¿¡ª", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#else
+                                       msg_format("The %s was crashed!", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#endif
+                                       sound(SOUND_GLASS);
+                               }
+
+                               /* Destroy the wall */
+                               cave_alter_feat(y, x, FF_HURT_ROCK);
+
+                               /* Update some things */
+                               p_ptr->update |= (PU_FLOW);
+                       }
                        break;
                }
 
@@ -1153,7 +1187,7 @@ static bool project_f(int who, int r, int y, int x, int dam, int typ)
                                cave_alter_feat(y, x, FF_HURT_DISI);
 
                                /* Update some things -- similar to GF_KILL_WALL */
-                               p_ptr->update |= (PU_VIEW | PU_LITE | PU_FLOW | PU_MONSTERS | PU_MON_LITE);
+                               p_ptr->update |= (PU_FLOW);
                        }
                        break;
                }
@@ -1464,7 +1498,7 @@ note_kill = "
                                                object_known(o_ptr);
 
                                                /* Notice */
-                                               if (known && o_ptr->marked)
+                                               if (known && (o_ptr->marked & OM_FOUND))
                                                {
 #ifdef JP
 msg_print("¥«¥Á¥Ã¤È²»¤¬¤·¤¿¡ª");
@@ -1509,7 +1543,7 @@ note_kill = "
 #ifdef JP
 note_kill = "À¸¤­Ê֤ä¿¡£";
 #else
-                                       note_kill = "rivived.";
+                                       note_kill = " revived.";
 #endif
                                                }
                                                else if (!note_kill)
@@ -1533,7 +1567,7 @@ note_kill = "
                if (do_kill)
                {
                        /* Effect "observed" */
-                       if (known && o_ptr->marked)
+                       if (known && (o_ptr->marked & OM_FOUND))
                        {
                                obvious = TRUE;
                                object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
@@ -1543,7 +1577,7 @@ note_kill = "
                        if (is_art || ignore)
                        {
                                /* Observe the resist */
-                               if (known && o_ptr->marked)
+                               if (known && (o_ptr->marked & OM_FOUND))
                                {
 #ifdef JP
 msg_format("%s¤Ï±Æ¶Á¤ò¼õ¤±¤Ê¤¤¡ª",
@@ -1560,7 +1594,7 @@ msg_format("%s
                        else
                        {
                                /* Describe if needed */
-                               if (known && o_ptr->marked && note_kill)
+                               if (known && (o_ptr->marked & OM_FOUND) && note_kill)
                                {
 #ifdef JP
 msg_format("%s¤Ï%s", o_name, note_kill);
@@ -1648,7 +1682,7 @@ msg_format("%s
  * We attempt to return "TRUE" if the player saw anything "useful" happen.
  */
 /* "flg" was added. */
-static bool project_m(int who, int r, int y, int x, int dam, int typ , int flg)
+static bool project_m(int who, int r, int y, int x, int dam, int typ, int flg, bool see_s_msg)
 {
        int tmp;
 
@@ -1663,8 +1697,9 @@ static bool project_m(int who, int r, int y, int x, int dam, int typ , int flg)
 
        /* Is the monster "seen"? */
        bool seen = m_ptr->ml;
+       bool seen_msg = is_seen(m_ptr);
 
-       bool slept = (bool)(m_ptr->csleep > 0);
+       bool slept = (bool)MON_CSLEEP(m_ptr);
 
        /* Were the effects "obvious" (if seen)? */
        bool obvious = FALSE;
@@ -1672,9 +1707,6 @@ static bool project_m(int who, int r, int y, int x, int dam, int typ , int flg)
        /* Can the player know about this effect? */
        bool known = ((m_ptr->cdis <= MAX_SIGHT) || p_ptr->inside_battle);
 
-       /* Can the player see the source of this effect? */
-       bool see_s = ((who <= 0) || is_seen(caster_ptr));
-
        /* Were the effects "irrelevant"? */
        bool skipped = FALSE;
 
@@ -2502,7 +2534,7 @@ note = "
                                /* Normal monsters slow down */
                                else
                                {
-                                       if (!m_ptr->slow)
+                                       if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
                                        {
 #ifdef JP
                                                note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
@@ -2510,9 +2542,6 @@ note = "
                                                note = " starts moving slower.";
 #endif
                                        }
-                                       m_ptr->slow = MIN(200, m_ptr->slow + 50);
-                                       if (c_ptr->m_idx == p_ptr->riding)
-                                               p_ptr->update |= (PU_BONUS);
                                }
                        }
                        break;
@@ -2621,17 +2650,14 @@ note = "
                                /* Normal monsters slow down */
                                else
                                {
-                                       if (!m_ptr->slow)
+                                       if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
                                        {
 #ifdef JP
-note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+                                               note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
 #else
                                                note = " starts moving slower.";
 #endif
                                        }
-                                       m_ptr->slow = MIN(200, m_ptr->slow + 50);
-                                       if (c_ptr->m_idx == p_ptr->riding)
-                                               p_ptr->update |= (PU_BONUS);
                                }
 
                                /* 2. stun */
@@ -2718,9 +2744,9 @@ note_dies = "
                        if (!(los(m_ptr->fy, m_ptr->fx, py, px)))
                        {
 #ifdef JP
-                               if (is_seen(m_ptr)) msg_format("%s¤Ï¤¢¤Ê¤¿¤¬¸«¤¨¤Ê¤¤¤Î¤Ç±Æ¶Á¤µ¤ì¤Ê¤¤¡ª", m_name);
+                               if (seen_msg) msg_format("%s¤Ï¤¢¤Ê¤¿¤¬¸«¤¨¤Ê¤¤¤Î¤Ç±Æ¶Á¤µ¤ì¤Ê¤¤¡ª", m_name);
 #else
-                               if (is_seen(m_ptr)) msg_format("%^s can't see you, and isn't affected!", m_name);
+                               if (seen_msg) msg_format("%^s can't see you, and isn't affected!", m_name);
 #endif
                                skipped = TRUE;
                                break;
@@ -2777,7 +2803,7 @@ note_dies = "
 #endif
 
                                        /* Saving throw */
-                                       if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
+                                       if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                                        {
 #ifdef JP
                                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -2791,7 +2817,7 @@ note_dies = "
                                                /* Injure +/- confusion */
                                                monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
                                                take_hit(DAMAGE_ATTACK, dam, killer, -1);  /* has already been /3 */
-                                               if (one_in_(4))
+                                               if (one_in_(4) && !CHECK_MULTISHADOW())
                                                {
                                                        switch (randint1(4))
                                                        {
@@ -2913,29 +2939,31 @@ note_dies = "
 #endif
 
                                        /* Saving throw */
-                                       if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
+                                       if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                                        {
 #ifdef JP
                                                msg_print("¤¢¤Ê¤¿¤Ï¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
 #else
                                                msg_print("You resist the effects!");
 #endif
-
                                        }
                                        else
                                        {
                                                /* Injure + mana drain */
                                                monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
+                                               if (!CHECK_MULTISHADOW())
+                                               {
 #ifdef JP
-                                               msg_print("ĶǽÎϥѥ¤òµÛ¤¤¤È¤é¤ì¤¿¡ª");
+                                                       msg_print("ĶǽÎϥѥ¤òµÛ¤¤¤È¤é¤ì¤¿¡ª");
 #else
-                                               msg_print("Your psychic energy is drained!");
+                                                       msg_print("Your psychic energy is drained!");
 #endif
 
-                                               p_ptr->csp -= damroll(5, dam) / 2;
-                                               if (p_ptr->csp < 0) p_ptr->csp = 0;
-                                               p_ptr->redraw |= PR_MANA;
-                                               p_ptr->window |= (PW_SPELL);
+                                                       p_ptr->csp -= damroll(5, dam) / 2;
+                                                       if (p_ptr->csp < 0) p_ptr->csp = 0;
+                                                       p_ptr->redraw |= PR_MANA;
+                                                       p_ptr->window |= (PW_SPELL);
+                                               }
                                                take_hit(DAMAGE_ATTACK, dam, killer, -1);  /* has already been /3 */
                                        }
                                        dam = 0;
@@ -3388,56 +3416,60 @@ note = "
                        if (seen) obvious = TRUE;
 
                        /* Wake up */
-                       m_ptr->csleep = 0;
-
-                       if (r_ptr->flags7 & RF7_HAS_LD_MASK) p_ptr->update |= (PU_MON_LITE);
+                       (void)set_monster_csleep(c_ptr->m_idx, 0);
 
                        if (m_ptr->maxhp < m_ptr->max_maxhp)
                        {
 #ifdef JP
-msg_format("%^s¤Î¶¯¤µ¤¬Ìá¤Ã¤¿¡£", m_name);
+                               if (seen_msg) msg_format("%^s¤Î¶¯¤µ¤¬Ìá¤Ã¤¿¡£", m_name);
 #else
-                               msg_format("%^s recovers %s vitality.", m_name, m_poss);
+                               if (seen_msg) msg_format("%^s recovers %s vitality.", m_name, m_poss);
 #endif
                                m_ptr->maxhp = m_ptr->max_maxhp;
                        }
-                       if (!dam) break;
+
+                       if (!dam)
+                       {
+                               /* Redraw (later) if needed */
+                               if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
+                               if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
+                               break;
+                       }
+
+                       /* Fall through */
                }
                case GF_OLD_HEAL:
                {
                        if (seen) obvious = TRUE;
 
                        /* Wake up */
-                       m_ptr->csleep = 0;
-
-                       if (r_ptr->flags7 & RF7_HAS_LD_MASK) p_ptr->update |= (PU_MON_LITE);
-
-                       if (m_ptr->stunned)
+                       (void)set_monster_csleep(c_ptr->m_idx, 0);
+                       if (MON_STUNNED(m_ptr))
                        {
 #ifdef JP
-msg_format("%^s¤ÏÛ¯Û°¾õÂÖ¤«¤éΩ¤Áľ¤Ã¤¿¡£", m_name);
+                               if (seen_msg) msg_format("%^s¤ÏÛ¯Û°¾õÂÖ¤«¤éΩ¤Áľ¤Ã¤¿¡£", m_name);
 #else
-                               msg_format("%^s is no longer stunned.", m_name);
+                               if (seen_msg) msg_format("%^s is no longer stunned.", m_name);
 #endif
-                               m_ptr->stunned = 0;
+                               (void)set_monster_stunned(c_ptr->m_idx, 0);
                        }
-                       if (m_ptr->confused)
+                       if (MON_CONFUSED(m_ptr))
                        {
 #ifdef JP
-msg_format("%^s¤Ïº®Í𤫤éΩ¤Áľ¤Ã¤¿¡£", m_name);
+                               if (seen_msg) msg_format("%^s¤Ïº®Í𤫤éΩ¤Áľ¤Ã¤¿¡£", m_name);
 #else
-                               msg_format("%^s is no longer confused.", m_name);
+                               if (seen_msg) msg_format("%^s is no longer confused.", m_name);
 #endif
-                               m_ptr->confused = 0;
+                               (void)set_monster_confused(c_ptr->m_idx, 0);
                        }
-                       if (m_ptr->monfear)
+                       if (MON_MONFEAR(m_ptr))
                        {
 #ifdef JP
-msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name);
+                               if (seen_msg) msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name);
 #else
-                               msg_format("%^s recovers %s courage.", m_name, m_poss);
+                               if (seen_msg) msg_format("%^s recovers %s courage.", m_name, m_poss);
 #endif
-                               m_ptr->monfear = 0;
+                               (void)set_monster_monfear(c_ptr->m_idx, 0);
                        }
 
                        /* Heal */
@@ -3446,29 +3478,32 @@ msg_format("%^s
                        /* No overflow */
                        if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
 
-                       chg_virtue(V_VITALITY, 1);
-                       
-                       if (r_ptr->flags1 & RF1_UNIQUE)
-                               chg_virtue(V_INDIVIDUALISM, 1);
-       
-                       if (is_friendly(m_ptr))
-                               chg_virtue(V_HONOUR, 1);
-                       else if (!(r_ptr->flags3 & RF3_EVIL))
-                       {
-                               if (r_ptr->flags3 & RF3_GOOD)
-                                       chg_virtue(V_COMPASSION, 2);
-                               else
-                                       chg_virtue(V_COMPASSION, 1);
+                       if (!who)
+                       {
+                               chg_virtue(V_VITALITY, 1);
+
+                               if (r_ptr->flags1 & RF1_UNIQUE)
+                                       chg_virtue(V_INDIVIDUALISM, 1);
+
+                               if (is_friendly(m_ptr))
+                                       chg_virtue(V_HONOUR, 1);
+                               else if (!(r_ptr->flags3 & RF3_EVIL))
+                               {
+                                       if (r_ptr->flags3 & RF3_GOOD)
+                                               chg_virtue(V_COMPASSION, 2);
+                                       else
+                                               chg_virtue(V_COMPASSION, 1);
+                               }
+
+                               if (r_ptr->flags3 & RF3_ANIMAL)
+                                       chg_virtue(V_NATURE, 1);
                        }
 
                        if (m_ptr->r_idx == MON_LEPER)
                        {
                                heal_leper = TRUE;
-                               chg_virtue(V_COMPASSION, 5);
+                               if (!who) chg_virtue(V_COMPASSION, 5);
                        }
-       
-                       if (r_ptr->flags3 & RF3_ANIMAL)
-                               chg_virtue(V_NATURE, 1);
 
                        /* Redraw (later) if needed */
                        if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
@@ -3476,12 +3511,11 @@ msg_format("%^s
 
                        /* Message */
 #ifdef JP
-note = "¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£";
+                       note = "¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£";
 #else
                        note = " looks healthier.";
 #endif
 
-
                        /* No "real" damage */
                        dam = 0;
                        break;
@@ -3494,23 +3528,22 @@ note = "
                        if (seen) obvious = TRUE;
 
                        /* Speed up */
-                       if (!m_ptr->fast)
+                       if (set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100))
                        {
 #ifdef JP
-note = "¤ÎÆ°¤­¤¬Â®¤¯¤Ê¤Ã¤¿¡£";
+                               note = "¤ÎÆ°¤­¤¬Â®¤¯¤Ê¤Ã¤¿¡£";
 #else
                                note = " starts moving faster.";
 #endif
                        }
-                       m_ptr->fast = MIN(200, m_ptr->fast + 100);
-
-                       if (c_ptr->m_idx == p_ptr->riding)
-                               p_ptr->update |= (PU_BONUS);
 
-                       if (r_ptr->flags1 & RF1_UNIQUE)
-                               chg_virtue(V_INDIVIDUALISM, 1);
-                       if (is_friendly(m_ptr))
-                               chg_virtue(V_HONOUR, 1);
+                       if (!who)
+                       {
+                               if (r_ptr->flags1 & RF1_UNIQUE)
+                                       chg_virtue(V_INDIVIDUALISM, 1);
+                               if (is_friendly(m_ptr))
+                                       chg_virtue(V_HONOUR, 1);
+                       }
 
                        /* No "real" damage */
                        dam = 0;
@@ -3550,18 +3583,14 @@ note = "
                        /* Normal monsters slow down */
                        else
                        {
-                               if (!m_ptr->slow)
+                               if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
                                {
 #ifdef JP
-note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+                                       note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
 #else
                                        note = " starts moving slower.";
 #endif
                                }
-                               m_ptr->slow = MIN(200, m_ptr->slow + 50);
-
-                               if (c_ptr->m_idx == p_ptr->riding)
-                                       p_ptr->update |= (PU_BONUS);
                        }
 
                        /* No "real" damage */
@@ -4927,7 +4956,7 @@ note_dies = "
                                                if (p_ptr->riding == who) p_ptr->redraw |= (PR_UHEALTH);
 
                                                /* Special message */
-                                               if (is_seen(caster_ptr))
+                                               if (see_s_msg)
                                                {
                                                        /* Get the monster name */
                                                        monster_desc(killer, caster_ptr, 0);
@@ -4954,9 +4983,9 @@ note_dies = "
                        else
                        {
 #ifdef JP
-                               msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", m_name);
+                               if (see_s_msg) msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", m_name);
 #else
-                               msg_format("%s is unaffected.", m_name);
+                               if (see_s_msg) msg_format("%s is unaffected.", m_name);
 #endif
                        }
                        dam = 0;
@@ -5119,9 +5148,7 @@ note_dies = "
                                        do_conf = randint0(8) + 8;
                                        do_stun = randint0(8) + 8;
                                }
-                               m_ptr->slow = MIN(200, m_ptr->slow + 10);
-                               if (c_ptr->m_idx == p_ptr->riding)
-                                       p_ptr->update |= (PU_BONUS);
+                               (void)set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 10);
                        }
                        break;
                }
@@ -5134,7 +5161,7 @@ note_dies = "
 #ifdef JP
                        if (!who) msg_format("%s¤ò»Øº¹¤·¤Æ¼ö¤¤¤ò¤«¤±¤¿¡£", m_name);
 #else
-                       if (!who) msg_format("You point at %s and curses.", m_name);
+                       if (!who) msg_format("You point at %s and curse.", m_name);
 #endif
 
                        if (r_ptr->flagsr & RFR_RES_ALL)
@@ -5170,7 +5197,7 @@ note_dies = "
 #ifdef JP
                        if (!who) msg_format("%s¤ò»Øº¹¤·¤Æ¶²¤í¤·¤²¤Ë¼ö¤¤¤ò¤«¤±¤¿¡£", m_name);
 #else
-                       if (!who) msg_format("You point at %s and curses horribly.", m_name);
+                       if (!who) msg_format("You point at %s and curse horribly.", m_name);
 #endif
 
                        if (r_ptr->flagsr & RFR_RES_ALL)
@@ -5326,7 +5353,7 @@ note_dies = "
                            (r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags7 & (RF7_NAZGUL)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (r_ptr->flags1 & RF1_QUESTOR) || m_ptr->parent_m_idx)
                        {
 #ifdef JP
-msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£",m_name);
+                               msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£",m_name);
 #else
                                msg_format("%^s is unaffected.", m_name);
 #endif
@@ -5334,7 +5361,7 @@ msg_format("%s
                                break;
                        }
 
-                       if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp*4L;
+                       if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp * 4L;
                        else if ((p_ptr->pclass == CLASS_BEASTMASTER) && monster_living(r_ptr))
                                nokori_hp = m_ptr->maxhp * 3 / 10;
                        else
@@ -5343,7 +5370,7 @@ msg_format("%s
                        if (m_ptr->hp >= nokori_hp)
                        {
 #ifdef JP
-msg_format("¤â¤Ã¤È¼å¤é¤»¤Ê¤¤¤È¡£");
+                               msg_format("¤â¤Ã¤È¼å¤é¤»¤Ê¤¤¤È¡£");
 #else
                                msg_format("You need to weaken %s more.", m_name);
 #endif
@@ -5353,24 +5380,21 @@ msg_format("
                        {
                                if (m_ptr->mflag2 & MFLAG2_CHAMELEON) choose_new_monster(c_ptr->m_idx, FALSE, MON_CHAMELEON);
 #ifdef JP
-msg_format("%s¤òÊᤨ¤¿¡ª",m_name);
+                               msg_format("%s¤òÊᤨ¤¿¡ª",m_name);
 #else
                                msg_format("You capture %^s!", m_name);
 #endif
-                               cap_mon = m_list[c_ptr->m_idx].r_idx;
-                               cap_mspeed = m_list[c_ptr->m_idx].mspeed;
-                               cap_hp = m_list[c_ptr->m_idx].hp;
-                               cap_maxhp = m_list[c_ptr->m_idx].max_maxhp;
-                               if (m_list[c_ptr->m_idx].nickname)
-                                       cap_nickname = quark_add(quark_str(m_list[c_ptr->m_idx].nickname));
-                               else
-                                       cap_nickname = 0;
+                               cap_mon = m_ptr->r_idx;
+                               cap_mspeed = m_ptr->mspeed;
+                               cap_hp = m_ptr->hp;
+                               cap_maxhp = m_ptr->max_maxhp;
+                               cap_nickname = m_ptr->nickname; /* Quark transfer */
                                if (c_ptr->m_idx == p_ptr->riding)
                                {
                                        if (rakuba(-1, FALSE))
                                        {
 #ifdef JP
-msg_print("ÃÏÌ̤ËÍî¤È¤µ¤ì¤¿¡£");
+                                               msg_print("ÃÏÌ̤ËÍî¤È¤µ¤ì¤¿¡£");
 #else
                                                msg_format("You have fallen from %s.", m_name);
 #endif
@@ -5422,7 +5446,7 @@ msg_format("
                        if (r_ptr->flags2 & RF2_EMPTY_MIND)
                        {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                               note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
                                note = " is immune!";
 #endif
@@ -5431,10 +5455,10 @@ note = "
                                if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
                                break;
                        }
-                       if (m_ptr->csleep)
+                       if (MON_CSLEEP(m_ptr))
                        {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                               note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
                                note = " is immune!";
 #endif
@@ -5455,7 +5479,7 @@ note = "
                                    (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
                                {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                                       note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
                                        note = " is unaffected!";
 #endif
@@ -5466,18 +5490,14 @@ note = "
                                /* Normal monsters slow down */
                                else
                                {
-                                       if (!m_ptr->slow)
+                                       if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
                                        {
 #ifdef JP
-note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+                                               note = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
 #else
                                                note = " starts moving slower.";
 #endif
                                        }
-                                       m_ptr->slow = MIN(200, m_ptr->slow + 50);
-
-                                       if (c_ptr->m_idx == p_ptr->riding)
-                                               p_ptr->update |= (PU_BONUS);
                                }
                        }
 
@@ -5555,7 +5575,6 @@ note = "
                /* GENOCIDE */
                case GF_GENOCIDE:
                {
-                       bool angry = FALSE;
                        if (seen) obvious = TRUE;
 
                        if (r_ptr->flagsr & RFR_RES_ALL)
@@ -5570,56 +5589,22 @@ note = "
                                break;
                        }
 
-                       if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (c_ptr->m_idx == p_ptr->riding)) || p_ptr->inside_arena || p_ptr->inside_quest)
-                       {
-                               dam = 0;
-                               angry = TRUE;
-                       }
-                       else
-                       {
-                               if ((r_ptr->level > randint0(dam)) || (m_ptr->mflag2 & MFLAG2_NOGENO))
-                               {
-                                       dam = 0;
-                                       angry = TRUE;
-                               }
-                               else
-                               {
-                                       delete_monster_idx(c_ptr->m_idx);
 #ifdef JP
-                                       msg_format("%s¤Ï¾ÃÌǤ·¤¿¡ª",m_name);
+                       if (genocide_aux(c_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, "¥â¥ó¥¹¥¿¡¼¾ÃÌÇ"))
 #else
-                                       msg_format("%^s disappered!",m_name);
+                       if (genocide_aux(c_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, "Genocide One"))
 #endif
-
-#ifdef JP
-                                       take_hit(DAMAGE_GENO, randint1((r_ptr->level+1)/2), "¥â¥ó¥¹¥¿¡¼¾ÃÌǤμöʸ¤ò¾§¤¨¤¿ÈèÏ«", -1);
-#else
-                                       take_hit(DAMAGE_GENO, randint1((r_ptr->level+1)/2), "the strain of casting Genocide One", -1);
-#endif
-                                       dam = 0;
-
-                                       chg_virtue(V_VITALITY, -1);
-
-                                       skipped = TRUE;
-
-                                       /* Redraw */
-                                       p_ptr->redraw |= (PR_HP);
-
-                                       /* Window stuff */
-                                       p_ptr->window |= (PW_PLAYER);
-                                       return TRUE;
-                               }
-                       }
-                       if (angry)
                        {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                               if (seen_msg) msg_format("%s¤Ï¾ÃÌǤ·¤¿¡ª", m_name);
 #else
-                               note = "is unaffected!";
+                               if (seen_msg) msg_format("%^s disappered!", m_name);
 #endif
-                               get_angry = TRUE;
-                               if (one_in_(13)) m_ptr->mflag2 |= MFLAG2_NOGENO;
+                               chg_virtue(V_VITALITY, -1);
+                               return TRUE;
                        }
+
+                       skipped = TRUE;
                        break;
                }
 
@@ -5700,7 +5685,7 @@ note = "
                                        note = " starts moving faster.";
 #endif
 
-                                       m_ptr->fast = MIN(200, m_ptr->fast + 100);
+                                       (void)set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100);
                                        success = TRUE;
                                }
 
@@ -5717,13 +5702,13 @@ note = "
                                else
                                {
 #ifdef JP
-note = "¤ò»ÙÇÛ¤·¤¿¡£";
+                                       note = "¤ò»ÙÇÛ¤·¤¿¡£";
 #else
                                        note = " is tamed!";
 #endif
 
                                        set_pet(m_ptr);
-                                       m_ptr->fast = MIN(200, m_ptr->fast + 100);
+                                       (void)set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100);
 
                                        /* Learn about type */
                                        if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
@@ -5827,181 +5812,177 @@ note = "
                /* Extract method of death */
                note = note_dies;
        }
-
-       /* Mega-Hack -- Handle "polymorph" -- monsters get a saving throw */
-       else if (do_poly && (randint1(90) > r_ptr->level))
+       else
        {
-               if (polymorph_monster(y, x))
+               /* Sound and Impact resisters never stun */
+               if (do_stun &&
+                   !(r_ptr->flagsr & (RFR_RES_SOUN | RFR_RES_WALL)) &&
+                   !(r_ptr->flags3 & RF3_NO_STUN))
                {
                        /* Obvious */
                        if (seen) obvious = TRUE;
 
-                       /* Monster polymorphs */
+                       /* Get stunned */
+                       if (MON_STUNNED(m_ptr))
+                       {
 #ifdef JP
-                       note = "¤¬ÊѿȤ·¤¿¡ª";
+                               note = "¤Ï¤Ò¤É¤¯¤â¤¦¤í¤¦¤È¤·¤¿¡£";
 #else
-                       note = " changes!";
+                               note = " is more dazed.";
 #endif
 
+                               tmp = MON_STUNNED(m_ptr) + (do_stun / 2);
+                       }
+                       else
+                       {
+#ifdef JP
+                               note = "¤Ï¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+#else
+                               note = " is dazed.";
+#endif
 
-                       /* Turn off the damage */
-                       dam = 0;
+                               tmp = do_stun;
+                       }
 
-                       /* Hack -- Get new monster */
-                       m_ptr = &m_list[c_ptr->m_idx];
+                       /* Apply stun */
+                       (void)set_monster_stunned(c_ptr->m_idx, tmp);
 
-                       /* Hack -- Get new race */
-                       r_ptr = &r_info[m_ptr->r_idx];
+                       /* Get angry */
+                       get_angry = TRUE;
                }
-               else
+
+               /* Confusion and Chaos resisters (and sleepers) never confuse */
+               if (do_conf &&
+                        !(r_ptr->flags3 & RF3_NO_CONF) &&
+                        !(r_ptr->flagsr & RFR_EFF_RES_CHAO_MASK))
                {
-                       /* No polymorph */
+                       /* Obvious */
+                       if (seen) obvious = TRUE;
+
+                       /* Already partially confused */
+                       if (MON_CONFUSED(m_ptr))
+                       {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                               note = "¤Ï¤µ¤é¤Ëº®Í𤷤¿¤è¤¦¤À¡£";
 #else
-                       note = " is unaffected!";
+                               note = " looks more confused.";
 #endif
 
-               }
-       }
-
-       /* Handle "teleport" */
-       else if (do_dist)
-       {
-               /* Obvious */
-               if (seen) obvious = TRUE;
+                               tmp = MON_CONFUSED(m_ptr) + (do_conf / 2);
+                       }
 
-               /* Message */
+                       /* Was not confused */
+                       else
+                       {
 #ifdef JP
-               note = "¤¬¾Ã¤¨µî¤Ã¤¿¡ª";
+                               note = "¤Ïº®Í𤷤¿¤è¤¦¤À¡£";
 #else
-               note = " disappears!";
+                               note = " looks confused.";
 #endif
 
-               chg_virtue(V_VALOUR, -1);
+                               tmp = do_conf;
+                       }
 
-               /* Teleport */
-               teleport_away(c_ptr->m_idx, do_dist, (bool)(!who), TRUE);
+                       /* Apply confusion */
+                       (void)set_monster_confused(c_ptr->m_idx, tmp);
 
-               /* Hack -- get new location */
-               y = m_ptr->fy;
-               x = m_ptr->fx;
+                       /* Get angry */
+                       get_angry = TRUE;
+               }
 
-               /* Hack -- get new grid */
-               c_ptr = &cave[y][x];
-       }
+               if (do_time)
+               {
+                       /* Obvious */
+                       if (seen) obvious = TRUE;
 
-       /* Sound and Impact resisters never stun */
-       else if (do_stun &&
-           !(r_ptr->flagsr & (RFR_RES_SOUN | RFR_RES_WALL)) &&
-           !(r_ptr->flags3 & RF3_NO_STUN))
-       {
-               /* Obvious */
-               if (seen) obvious = TRUE;
+                       if (do_time >= m_ptr->maxhp) do_time = m_ptr->maxhp - 1;
 
-               /* Get stunned */
-               if (m_ptr->stunned)
-               {
+                       if (do_time)
+                       {
 #ifdef JP
-                       note = "¤Ï¤Ò¤É¤¯¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+                               note = "¤Ï¼å¤¯¤Ê¤Ã¤¿¤è¤¦¤À¡£";
 #else
-                       note = " is more dazed.";
+                               note = " seems weakened.";
 #endif
-
-                       tmp = m_ptr->stunned + (do_stun / 2);
+                               m_ptr->maxhp -= do_time;
+                               if ((m_ptr->hp - dam) > m_ptr->maxhp) dam = m_ptr->hp - m_ptr->maxhp;
+                       }
+                       get_angry = TRUE;
                }
-               else
+
+               /* Mega-Hack -- Handle "polymorph" -- monsters get a saving throw */
+               if (do_poly && (randint1(90) > r_ptr->level))
                {
+                       if (polymorph_monster(y, x))
+                       {
+                               /* Obvious */
+                               if (seen) obvious = TRUE;
+
+                               /* Monster polymorphs */
 #ifdef JP
-                       note = "¤Ï¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+                               note = "¤¬ÊѿȤ·¤¿¡ª";
 #else
-                       note = " is dazed.";
+                               note = " changes!";
 #endif
 
-                       tmp = do_stun;
-               }
-
-               /* Apply stun */
-               m_ptr->stunned = (tmp < 200) ? tmp : 200;
-
-               /* Get angry */
-               get_angry = TRUE;
-       }
-
-       /* Confusion and Chaos resisters (and sleepers) never confuse */
-       else if (do_conf &&
-                !(r_ptr->flags3 & RF3_NO_CONF) &&
-                !(r_ptr->flagsr & RFR_EFF_RES_CHAO_MASK))
-       {
-               /* Obvious */
-               if (seen) obvious = TRUE;
-
-               /* Already partially confused */
-               if (m_ptr->confused)
-               {
+                               /* Turn off the damage */
+                               dam = 0;
+                       }
+                       else
+                       {
+                               /* No polymorph */
 #ifdef JP
-                       note = "¤Ï¤µ¤é¤Ëº®Í𤷤¿¤è¤¦¤À¡£";
+                               note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
-                       note = " looks more confused.";
+                               note = " is unaffected!";
 #endif
+                       }
+
+                       /* Hack -- Get new monster */
+                       m_ptr = &m_list[c_ptr->m_idx];
 
-                       tmp = m_ptr->confused + (do_conf / 2);
+                       /* Hack -- Get new race */
+                       r_ptr = &r_info[m_ptr->r_idx];
                }
 
-               /* Was not confused */
-               else
+               /* Handle "teleport" */
+               if (do_dist)
                {
+                       /* Obvious */
+                       if (seen) obvious = TRUE;
+
+                       /* Message */
 #ifdef JP
-                       note = "¤Ïº®Í𤷤¿¤è¤¦¤À¡£";
+                       note = "¤¬¾Ã¤¨µî¤Ã¤¿¡ª";
 #else
-                       note = " looks confused.";
+                       note = " disappears!";
 #endif
 
-                       tmp = do_conf;
-               }
-
-               /* Apply confusion */
-               m_ptr->confused = (tmp < 200) ? tmp : 200;
-
-               /* Get angry */
-               get_angry = TRUE;
-       }
+                       if (!who) chg_virtue(V_VALOUR, -1);
 
-       else if (do_time)
-       {
-               /* Obvious */
-               if (seen) obvious = TRUE;
+                       /* Teleport */
+                       teleport_away(c_ptr->m_idx, do_dist,
+                                               (!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
 
-               if (do_time >= m_ptr->maxhp) do_time = m_ptr->maxhp - 1;
+                       /* Hack -- get new location */
+                       y = m_ptr->fy;
+                       x = m_ptr->fx;
 
-               if (do_time)
-               {
-#ifdef JP
-                       note = "¤Ï¼å¤¯¤Ê¤Ã¤¿¤è¤¦¤À¡£";
-#else
-                       note = " seems weakened.";
-#endif
-                       m_ptr->maxhp -= do_time;
-                       if ((m_ptr->hp - dam) > m_ptr->maxhp) dam = m_ptr->hp - m_ptr->maxhp;
+                       /* Hack -- get new grid */
+                       c_ptr = &cave[y][x];
                }
-               get_angry = TRUE;
-       }
 
+               /* Fear */
+               if (do_fear)
+               {
+                       /* Set fear */
+                       (void)set_monster_monfear(c_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
 
-       /* Fear */
-       if (do_fear)
-       {
-               /* Increase fear */
-               tmp = m_ptr->monfear + do_fear;
-
-               /* Set fear */
-               m_ptr->monfear = (tmp < 200) ? tmp : 200;
-
-               /* Get angry */
-               get_angry = TRUE;
+                       /* Get angry */
+                       get_angry = TRUE;
+               }
        }
 
-
        if (typ == GF_DRAIN_MANA)
        {
                /* Drain mana does nothing */
@@ -6015,9 +5996,7 @@ note = "
                if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
 
                /* Wake the monster up */
-               m_ptr->csleep = 0;
-
-               if (r_ptr->flags7 & RF7_HAS_LD_MASK) p_ptr->update |= (PU_MON_LITE);
+               (void)set_monster_csleep(c_ptr->m_idx, 0);
 
                /* Hurt the monster */
                m_ptr->hp -= dam;
@@ -6034,7 +6013,7 @@ note = "
                        if (known && note)
                        {
                                monster_desc(m_name, m_ptr, MD_TRUE_NAME);
-                               if (see_s)
+                               if (see_s_msg)
                                {
                                        msg_format("%^s%s", m_name, note);
                                }
@@ -6055,11 +6034,10 @@ note = "
                        if (sad)
                        {
 #ifdef JP
-msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
+                               msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
 #else
                                msg_print("You feel sad for a moment.");
 #endif
-
                        }
                }
 
@@ -6067,10 +6045,10 @@ msg_print("
                else
                {
                        /* Give detailed messages if visible or destroyed */
-                       if (note && is_seen(m_ptr)) msg_format("%^s%s", m_name, note);
+                       if (note && seen_msg) msg_format("%^s%s", m_name, note);
 
                        /* Hack -- Pain message */
-                       else if (see_s)
+                       else if (see_s_msg)
                        {
                                message_pain(c_ptr->m_idx, dam);
                        }
@@ -6080,18 +6058,26 @@ msg_print("
                        }
 
                        /* Hack -- handle sleep */
-                       if (do_sleep) m_ptr->csleep = do_sleep;
+                       if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
                }
        }
 
        else if (heal_leper)
        {
 #ifdef JP
-               if (is_seen(m_ptr)) msg_print("ÉÔ·é¤ÊÉ¿ͤÏɵ¤¤¬¼£¤Ã¤¿¡ª");
+               if (seen_msg) msg_print("ÉÔ·é¤ÊÉ¿ͤÏɵ¤¤¬¼£¤Ã¤¿¡ª");
 #else
-               if (is_seen(m_ptr)) msg_print("The Mangy looking leper is healed!");
+               if (seen_msg) msg_print("The Mangy looking leper is healed!");
 #endif
 
+               if (record_named_pet && is_pet(m_ptr) && m_ptr->nickname)
+               {
+                       char m2_name[80];
+
+                       monster_desc(m2_name, m_ptr, MD_INDEF_VISIBLE);
+                       do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_HEAL_LEPER, m2_name);
+               }
+
                delete_monster_idx(c_ptr->m_idx);
        }
 
@@ -6113,7 +6099,7 @@ msg_print("
                        if (do_sleep) anger_monster(m_ptr);
 
                        /* Give detailed messages if visible or destroyed */
-                       if (note && is_seen(m_ptr))
+                       if (note && seen_msg)
 #ifdef JP
                                msg_format("%s%s", m_name, note);
 #else
@@ -6132,7 +6118,7 @@ msg_print("
                                anger_monster(m_ptr);
 
                        /* Take note */
-                       if ((fear || do_fear) && is_seen(m_ptr))
+                       if ((fear || do_fear) && seen)
                        {
                                /* Sound */
                                sound(SOUND_FLEE);
@@ -6146,7 +6132,7 @@ msg_print("
                        }
 
                        /* Hack -- handle sleep */
-                       if (do_sleep) m_ptr->csleep = do_sleep;
+                       if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
                }
        }
 
@@ -6192,7 +6178,7 @@ msg_print("
                                        msg_print("Space warps about you!");
 #endif
 
-                                       if (m_ptr->r_idx) teleport_away(c_ptr->m_idx, damroll(10, 10), FALSE, TRUE);
+                                       if (m_ptr->r_idx) teleport_away(c_ptr->m_idx, damroll(10, 10), TELEPORT_PASSIVE);
                                        if (one_in_(13)) count += activate_hi_summon(ty, tx, TRUE);
                                        if (!one_in_(6)) break;
                                }
@@ -6270,14 +6256,14 @@ msg_print("
        /* XXX XXX XXX Verify this code */
 
        /* Update the monster */
-       update_mon(c_ptr->m_idx, FALSE);
+       if (m_ptr->r_idx) update_mon(c_ptr->m_idx, FALSE);
 
        /* Redraw the monster grid */
        lite_spot(y, x);
 
 
        /* Update monster recall window */
-       if (p_ptr->monster_race_idx == m_ptr->r_idx)
+       if ((p_ptr->monster_race_idx == m_ptr->r_idx) && (seen || !m_ptr->r_idx))
        {
                /* Window stuff */
                p_ptr->window |= (PW_MONSTER);
@@ -6388,8 +6374,7 @@ static bool project_p(int who, cptr who_name, int r, int y, int x, int dam, int
 
        if ((p_ptr->special_defense & NINJA_KAWARIMI) && dam && (randint0(55) < (p_ptr->lev*3/5+20)) && who && (who != p_ptr->riding))
        {
-               kawarimi(TRUE);
-               return FALSE;
+               if (kawarimi(TRUE)) return FALSE;
        }
 
        /* Player cannot hurt himself */
@@ -6412,18 +6397,26 @@ static bool project_p(int who, cptr who_name, int r, int y, int x, int dam, int
 
 
                /* Choose 'new' target */
-               do
+               if (who > 0)
                {
-                       t_y = m_list[who].fy - 1 + randint1(3);
-                       t_x = m_list[who].fx - 1 + randint1(3);
-                       max_attempts--;
-               }
-               while (max_attempts && in_bounds2u(t_y, t_x) && !projectable(py, px, t_y, t_x));
+                       do
+                       {
+                               t_y = m_list[who].fy - 1 + randint1(3);
+                               t_x = m_list[who].fx - 1 + randint1(3);
+                               max_attempts--;
+                       }
+                       while (max_attempts && in_bounds2u(t_y, t_x) && !projectable(py, px, t_y, t_x));
 
-               if (max_attempts < 1)
+                       if (max_attempts < 1)
+                       {
+                               t_y = m_list[who].fy;
+                               t_x = m_list[who].fx;
+                       }
+               }
+               else
                {
-                       t_y = m_list[who].fy;
-                       t_x = m_list[who].fx;
+                       t_y = py - 1 + randint1(3);
+                       t_x = px - 1 + randint1(3);
                }
 
                project(0, 0, t_y, t_x, dam, typ, (PROJECT_STOP|PROJECT_KILL|PROJECT_REFLECTABLE), monspell);
@@ -6457,13 +6450,37 @@ static bool project_p(int who, cptr who_name, int r, int y, int x, int dam, int
                /* Get the monster's real name (gotten before polymorph!) */
                strcpy(killer, who_name);
        }
-       else if (who < 0)
+       else
        {
+               switch (who)
+               {
+               case PROJECT_WHO_UNCTRL_POWER:
 #ifdef JP
-               strcpy(killer, "æ«");
+                       strcpy(killer, "À©¸æ¤Ç¤­¤Ê¤¤ÎϤÎÈÅή");
 #else
-               strcpy(killer, "a trap");
+                       strcpy(killer, "uncontrollable power storm");
 #endif
+                       break;
+
+               case PROJECT_WHO_GLASS_SHARDS:
+#ifdef JP
+                       strcpy(killer, "¥¬¥é¥¹¤ÎÇËÊÒ");
+#else
+                       strcpy(killer, "shards of glass");
+#endif
+                       break;
+
+               default:
+#ifdef JP
+                       strcpy(killer, "æ«");
+#else
+                       strcpy(killer, "a trap");
+#endif
+                       break;
+               }
+
+               /* Paranoia */
+               strcpy(m_name, killer);
        }
 
        /* Analyze the damage */
@@ -6473,7 +6490,7 @@ static bool project_p(int who, cptr who_name, int r, int y, int x, int dam, int
                case GF_ACID:
                {
 #ifdef JP
-if (fuzzy) msg_print("»À¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("»À¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by acid!");
 #endif
@@ -6486,7 +6503,7 @@ if (fuzzy) msg_print("
                case GF_FIRE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²Ð±ê¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²Ð±ê¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by fire!");
 #endif
@@ -6499,7 +6516,7 @@ if (fuzzy) msg_print("
                case GF_COLD:
                {
 #ifdef JP
-if (fuzzy) msg_print("Î䵤¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("Î䵤¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by cold!");
 #endif
@@ -6512,7 +6529,7 @@ if (fuzzy) msg_print("
                case GF_ELEC:
                {
 #ifdef JP
-if (fuzzy) msg_print("ÅÅ·â¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("ÅÅ·â¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by lightning!");
 #endif
@@ -6526,7 +6543,7 @@ if (fuzzy) msg_print("
                {
                        bool double_resist = IS_OPPOSE_POIS();
 #ifdef JP
-if (fuzzy) msg_print("ÆǤǹ¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("ÆǤǹ¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by poison!");
 #endif
@@ -6535,14 +6552,14 @@ if (fuzzy) msg_print("
                        if (double_resist) dam = (dam + 2) / 3;
 
                        if ((!(double_resist || p_ptr->resist_pois)) &&
-                            one_in_(HURT_CHANCE))
+                            one_in_(HURT_CHANCE) && !CHECK_MULTISHADOW())
                        {
                                do_dec_stat(A_CON);
                        }
 
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
 
-                       if (!(double_resist || p_ptr->resist_pois))
+                       if (!(double_resist || p_ptr->resist_pois) && !CHECK_MULTISHADOW())
                        {
                                set_poisoned(p_ptr->poisoned + randint0(dam) + 10);
                        }
@@ -6554,7 +6571,7 @@ if (fuzzy) msg_print("
                {
                        bool double_resist = IS_OPPOSE_POIS();
 #ifdef JP
-if (fuzzy) msg_print("Êü¼Íǽ¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("Êü¼Íǽ¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by radiation!");
 #endif
@@ -6562,14 +6579,14 @@ if (fuzzy) msg_print("
                        if (p_ptr->resist_pois) dam = (2 * dam + 2) / 5;
                        if (double_resist) dam = (2 * dam + 2) / 5;
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
-                       if (!(double_resist || p_ptr->resist_pois))
+                       if (!(double_resist || p_ptr->resist_pois) && !CHECK_MULTISHADOW())
                        {
                                set_poisoned(p_ptr->poisoned + randint0(dam) + 10);
 
                                if (one_in_(5)) /* 6 */
                                {
 #ifdef JP
-msg_print("´ñ·ÁŪ¤ÊÊѿȤò¿ë¤²¤¿¡ª");
+                                       msg_print("´ñ·ÁŪ¤ÊÊѿȤò¿ë¤²¤¿¡ª");
 #else
                                        msg_print("You undergo a freakish metamorphosis!");
 #endif
@@ -6592,7 +6609,7 @@ msg_print("
                case GF_MISSILE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -6605,7 +6622,7 @@ if (fuzzy) msg_print("
                case GF_HOLY_FIRE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -6621,7 +6638,7 @@ if (fuzzy) msg_print("
                case GF_HELL_FIRE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -6636,7 +6653,7 @@ if (fuzzy) msg_print("
                case GF_ARROW:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something sharp!");
 #endif
@@ -6665,7 +6682,7 @@ if (fuzzy) msg_print("
 
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
 
-                       if (!p_ptr->resist_sound)
+                       if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
                        {
                                int k = (randint1((dam > 40) ? 35 : (dam * 3 / 4 + 5)));
                                (void)set_stun(p_ptr->stun + k);
@@ -6685,23 +6702,22 @@ if (fuzzy) msg_print("
                case GF_NETHER:
                {
 #ifdef JP
-if (fuzzy) msg_print("ÃϹö¤ÎÎϤǹ¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("ÃϹö¤ÎÎϤǹ¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by nether forces!");
 #endif
 
-
                        if (p_ptr->resist_neth)
                        {
                                if (!prace_is_(RACE_SPECTRE))
                                        dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else drain_exp(200 + (p_ptr->exp / 100), 200 + (p_ptr->exp / 1000), 75);
+                       else if (!CHECK_MULTISHADOW()) drain_exp(200 + (p_ptr->exp / 100), 200 + (p_ptr->exp / 1000), 75);
 
-                       if (prace_is_(RACE_SPECTRE))
+                       if (prace_is_(RACE_SPECTRE) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
-msg_print("µ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
+                               msg_print("µ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
 #else
                                msg_print("You feel invigorated!");
 #endif
@@ -6721,23 +6737,26 @@ msg_print("
                case GF_WATER:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¼¾¤Ã¤¿¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¼¾¤Ã¤¿¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something wet!");
 #endif
 
-                       if (!p_ptr->resist_sound)
-                       {
-                               set_stun(p_ptr->stun + randint1(40));
-                       }
-                       if (!p_ptr->resist_conf)
+                       if (!CHECK_MULTISHADOW())
                        {
-                               set_confused(p_ptr->confused + randint1(5) + 5);
-                       }
+                               if (!p_ptr->resist_sound)
+                               {
+                                       set_stun(p_ptr->stun + randint1(40));
+                               }
+                               if (!p_ptr->resist_conf)
+                               {
+                                       set_confused(p_ptr->confused + randint1(5) + 5);
+                               }
 
-                       if (one_in_(5))
-                       {
-                               inven_damage(set_cold_destroy, 3);
+                               if (one_in_(5))
+                               {
+                                       inven_damage(set_cold_destroy, 3);
+                               }
                        }
 
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
@@ -6748,7 +6767,7 @@ if (fuzzy) msg_print("
                case GF_CHAOS:
                {
 #ifdef JP
-if (fuzzy) msg_print("̵Ãá½ø¤ÎÇÈÆ°¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("̵Ãá½ø¤ÎÇÈÆ°¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by a wave of anarchy!");
 #endif
@@ -6757,33 +6776,39 @@ if (fuzzy) msg_print("̵
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       if (!p_ptr->resist_conf)
-                       {
-                               (void)set_confused(p_ptr->confused + randint0(20) + 10);
-                       }
-                       if (!p_ptr->resist_chaos)
+
+                       if (!CHECK_MULTISHADOW())
                        {
-                               (void)set_image(p_ptr->image + randint1(10));
-                               if (one_in_(3))
+                               if (!p_ptr->resist_conf)
                                {
+                                       (void)set_confused(p_ptr->confused + randint0(20) + 10);
+                               }
+                               if (!p_ptr->resist_chaos)
+                               {
+                                       (void)set_image(p_ptr->image + randint1(10));
+                                       if (one_in_(3))
+                                       {
 #ifdef JP
-msg_print("¤¢¤Ê¤¿¤Î¿ÈÂΤϥ«¥ª¥¹¤ÎÎϤÇDZ¤¸¶Ê¤²¤é¤ì¤¿¡ª");
+                                               msg_print("¤¢¤Ê¤¿¤Î¿ÈÂΤϥ«¥ª¥¹¤ÎÎϤÇDZ¤¸¶Ê¤²¤é¤ì¤¿¡ª");
 #else
-                                       msg_print("Your body is twisted by chaos!");
+                                               msg_print("Your body is twisted by chaos!");
 #endif
 
-                                       (void)gain_random_mutation(0);
+                                               (void)gain_random_mutation(0);
+                                       }
+                               }
+                               if (!p_ptr->resist_neth && !p_ptr->resist_chaos)
+                               {
+                                       drain_exp(5000 + (p_ptr->exp / 100), 500 + (p_ptr->exp / 1000), 75);
+                               }
+
+                               if (!p_ptr->resist_chaos || one_in_(9))
+                               {
+                                       inven_damage(set_elec_destroy, 2);
+                                       inven_damage(set_fire_destroy, 2);
                                }
                        }
-                       if (!p_ptr->resist_neth && !p_ptr->resist_chaos)
-                       {
-                               drain_exp(5000 + (p_ptr->exp / 100), 500 + (p_ptr->exp / 1000), 75);
-                       }
-                       if (!p_ptr->resist_chaos || one_in_(9))
-                       {
-                               inven_damage(set_elec_destroy, 2);
-                               inven_damage(set_fire_destroy, 2);
-                       }
+
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        break;
                }
@@ -6792,7 +6817,7 @@ msg_print("
                case GF_SHARDS:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something sharp!");
 #endif
@@ -6801,7 +6826,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                (void)set_cut(p_ptr->cut + dam);
                        }
@@ -6819,7 +6844,7 @@ if (fuzzy) msg_print("
                case GF_SOUND:
                {
 #ifdef JP
-if (fuzzy) msg_print("¹ì²»¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("¹ì²»¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by a loud noise!");
 #endif
@@ -6828,7 +6853,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 5; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
                                (void)set_stun(p_ptr->stun + k);
@@ -6847,7 +6872,7 @@ if (fuzzy) msg_print("
                case GF_CONFUSION:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«º®Í𤹤ë¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«º®Í𤹤ë¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something puzzling!");
 #endif
@@ -6856,7 +6881,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 5; dam /= (randint1(4) + 7);
                        }
-                       if (!p_ptr->resist_conf)
+                       else if (!CHECK_MULTISHADOW())
                        {
                                (void)set_confused(p_ptr->confused + randint1(20) + 10);
                        }
@@ -6877,7 +6902,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                (void)apply_disenchant(0);
                        }
@@ -6889,7 +6914,7 @@ if (fuzzy) msg_print("
                case GF_NEXUS:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«´ñ̯¤Ê¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«´ñ̯¤Ê¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something strange!");
 #endif
@@ -6898,7 +6923,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                apply_nexus(m_ptr);
                        }
@@ -6910,12 +6935,12 @@ if (fuzzy) msg_print("
                case GF_FORCE:
                {
 #ifdef JP
-if (fuzzy) msg_print("±¿Æ°¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("±¿Æ°¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by kinetic force!");
 #endif
 
-                       if (!p_ptr->resist_sound)
+                       if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
                        {
                                (void)set_stun(p_ptr->stun + randint1(20));
                        }
@@ -6928,25 +6953,26 @@ if (fuzzy) msg_print("
                case GF_ROCKET:
                {
 #ifdef JP
-if (fuzzy) msg_print("Çúȯ¤¬¤¢¤Ã¤¿¡ª");
+                       if (fuzzy) msg_print("Çúȯ¤¬¤¢¤Ã¤¿¡ª");
 #else
                        if (fuzzy) msg_print("There is an explosion!");
 #endif
 
-                       if (!p_ptr->resist_sound)
+                       if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
                        {
                                (void)set_stun(p_ptr->stun + randint1(20));
                        }
+
                        if (p_ptr->resist_shard)
                        {
                                dam /= 2;
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
-                               (void)set_cut(p_ptr->  cut + ( dam / 2));
+                               (void)set_cut(p_ptr->cut + (dam / 2));
                        }
 
-                       if ((!p_ptr->resist_shard) || one_in_(12))
+                       if (!p_ptr->resist_shard || one_in_(12))
                        {
                                inven_damage(set_cold_destroy, 3);
                        }
@@ -6959,12 +6985,12 @@ if (fuzzy) msg_print("
                case GF_INERTIA:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something slow!");
 #endif
 
-                       (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+                       if (!CHECK_MULTISHADOW()) (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        break;
                }
@@ -6973,7 +6999,7 @@ if (fuzzy) msg_print("
                case GF_LITE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -6982,16 +7008,17 @@ if (fuzzy) msg_print("
                        {
                                dam *= 4; dam /= (randint1(4) + 7);
                        }
-                       else if (!blind && !p_ptr->resist_blind)
+                       else if (!blind && !p_ptr->resist_blind && !CHECK_MULTISHADOW())
                        {
                                (void)set_blind(p_ptr->blind + randint1(5) + 2);
                        }
+
                        if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE))
                        {
 #ifdef JP
-msg_print("¸÷¤ÇÆùÂΤ¬¾Ç¤¬¤µ¤ì¤¿¡ª");
+                               if (!CHECK_MULTISHADOW()) msg_print("¸÷¤ÇÆùÂΤ¬¾Ç¤¬¤µ¤ì¤¿¡ª");
 #else
-                               msg_print("The light scorches your flesh!");
+                               if (!CHECK_MULTISHADOW()) msg_print("The light scorches your flesh!");
 #endif
 
                                dam *= 2;
@@ -7000,14 +7027,15 @@ msg_print("
                        {
                                dam = dam * 4 / 3;
                        }
+
                        if (p_ptr->wraith_form) dam *= 2;
                        get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
 
-                       if (p_ptr->wraith_form)
+                       if (p_ptr->wraith_form && !CHECK_MULTISHADOW())
                        {
                                p_ptr->wraith_form = 0;
 #ifdef JP
-msg_print("Á®¸÷¤Î¤¿¤áÈóʪ¼ÁŪ¤Ê±Æ¤Î¸ºß¤Ç¤¤¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£");
+                               msg_print("Á®¸÷¤Î¤¿¤áÈóʪ¼ÁŪ¤Ê±Æ¤Î¸ºß¤Ç¤¤¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£");
 #else
                                msg_print("The light forces you out of your incorporeal shadow form.");
 #endif
@@ -7030,7 +7058,7 @@ msg_print("
                case GF_DARK:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -7041,7 +7069,7 @@ if (fuzzy) msg_print("
 
                                if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE) || p_ptr->wraith_form) dam = 0;
                        }
-                       else if (!blind && !p_ptr->resist_blind)
+                       else if (!blind && !p_ptr->resist_blind && !CHECK_MULTISHADOW())
                        {
                                (void)set_blind(p_ptr->blind + randint1(5) + 2);
                        }
@@ -7053,7 +7081,7 @@ if (fuzzy) msg_print("
                case GF_TIME:
                {
 #ifdef JP
-if (fuzzy) msg_print("²áµî¤«¤é¤Î¾×·â¤Ë¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²áµî¤«¤é¤Î¾×·â¤Ë¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by a blast from the past!");
 #endif
@@ -7063,13 +7091,12 @@ if (fuzzy) msg_print("
                                dam *= 4;
                                dam /= (randint1(4) + 7);
 #ifdef JP
-msg_print("»þ´Ö¤¬Ä̤ê²á¤®¤Æ¤¤¤¯µ¤¤¬¤¹¤ë¡£");
+                               msg_print("»þ´Ö¤¬Ä̤ê²á¤®¤Æ¤¤¤¯µ¤¤¬¤¹¤ë¡£");
 #else
                                msg_print("You feel as if time is passing you by.");
 #endif
-
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                switch (randint1(10))
                                {
@@ -7077,7 +7104,7 @@ msg_print("
                                        {
                                                if (p_ptr->prace == RACE_ANDROID) break;
 #ifdef JP
-msg_print("¿ÍÀ¸¤¬µÕÌá¤ê¤·¤¿µ¤¤¬¤¹¤ë¡£");
+                                               msg_print("¿ÍÀ¸¤¬µÕÌá¤ê¤·¤¿µ¤¤¬¤¹¤ë¡£");
 #else
                                                msg_print("You feel life has clocked back.");
 #endif
@@ -7091,12 +7118,12 @@ msg_print("
                                                switch (randint1(6))
                                                {
 #ifdef JP
-case 1: k = A_STR; act = "¶¯¤¯"; break;
-case 2: k = A_INT; act = "ÁïÌÀ¤Ç"; break;
-case 3: k = A_WIS; act = "¸­ÌÀ¤Ç"; break;
-case 4: k = A_DEX; act = "´ïÍѤÇ"; break;
-case 5: k = A_CON; act = "·ò¹¯¤Ç"; break;
-case 6: k = A_CHR; act = "Èþ¤·¤¯"; break;
+                                                       case 1: k = A_STR; act = "¶¯¤¯"; break;
+                                                       case 2: k = A_INT; act = "ÁïÌÀ¤Ç"; break;
+                                                       case 3: k = A_WIS; act = "¸­ÌÀ¤Ç"; break;
+                                                       case 4: k = A_DEX; act = "´ïÍѤÇ"; break;
+                                                       case 5: k = A_CON; act = "·ò¹¯¤Ç"; break;
+                                                       case 6: k = A_CHR; act = "Èþ¤·¤¯"; break;
 #else
                                                        case 1: k = A_STR; act = "strong"; break;
                                                        case 2: k = A_INT; act = "bright"; break;
@@ -7105,16 +7132,14 @@ case 6: k = A_CHR; act = "
                                                        case 5: k = A_CON; act = "hale"; break;
                                                        case 6: k = A_CHR; act = "beautiful"; break;
 #endif
-
                                                }
 
 #ifdef JP
-msg_format("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤É%s¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£", act);
+                                               msg_format("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤É%s¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£", act);
 #else
                                                msg_format("You're not as %s as you used to be...", act);
 #endif
 
-
                                                p_ptr->stat_cur[k] = (p_ptr->stat_cur[k] * 3) / 4;
                                                if (p_ptr->stat_cur[k] < 3) p_ptr->stat_cur[k] = 3;
                                                p_ptr->update |= (PU_BONUS);
@@ -7124,12 +7149,11 @@ msg_format("
                                        case 10:
                                        {
 #ifdef JP
-msg_print("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤ÉÎ϶¯¤¯¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£");
+                                               msg_print("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤ÉÎ϶¯¤¯¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£");
 #else
                                                msg_print("You're not as powerful as you used to be...");
 #endif
 
-
                                                for (k = 0; k < 6; k++)
                                                {
                                                        p_ptr->stat_cur[k] = (p_ptr->stat_cur[k] * 7) / 8;
@@ -7156,13 +7180,16 @@ msg_print("
                        msg_print("Gravity warps around you.");
 #endif
 
-                       teleport_player(5, TRUE);
-                       if (!p_ptr->levitation)
-                               (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
-                       if (!(p_ptr->resist_sound || p_ptr->levitation))
+                       if (!CHECK_MULTISHADOW())
                        {
-                               int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
-                               (void)set_stun(p_ptr->stun + k);
+                               teleport_player(5, TELEPORT_PASSIVE);
+                               if (!p_ptr->levitation)
+                                       (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+                               if (!(p_ptr->resist_sound || p_ptr->levitation))
+                               {
+                                       int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
+                                       (void)set_stun(p_ptr->stun + k);
+                               }
                        }
                        if (p_ptr->levitation)
                        {
@@ -7182,7 +7209,7 @@ msg_print("
                case GF_DISINTEGRATE:
                {
 #ifdef JP
-if (fuzzy) msg_print("½ã¿è¤Ê¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("½ã¿è¤Ê¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by pure energy!");
 #endif
@@ -7194,7 +7221,7 @@ if (fuzzy) msg_print("
                case GF_OLD_HEAL:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤é¤«¤Î¹¶·â¤Ë¤è¤Ã¤Æµ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
+                       if (fuzzy) msg_print("²¿¤é¤«¤Î¹¶·â¤Ë¤è¤Ã¤Æµ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
 #else
                        if (fuzzy) msg_print("You are hit by something invigorating!");
 #endif
@@ -7207,7 +7234,7 @@ if (fuzzy) msg_print("
                case GF_OLD_SPEED:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something!");
 #endif
@@ -7220,7 +7247,7 @@ if (fuzzy) msg_print("
                case GF_OLD_SLOW:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something slow!");
 #endif
@@ -7233,7 +7260,7 @@ if (fuzzy) msg_print("
                {
                        if (p_ptr->free_act)  break;
 #ifdef JP
-if (fuzzy) msg_print("̲¤Ã¤Æ¤·¤Þ¤Ã¤¿¡ª");
+                       if (fuzzy) msg_print("̲¤Ã¤Æ¤·¤Þ¤Ã¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You fall asleep!");
 #endif
@@ -7242,12 +7269,11 @@ if (fuzzy) msg_print("̲
                        if (ironman_nightmare)
                        {
 #ifdef JP
-msg_print("¶²¤í¤·¤¤¸÷·Ê¤¬Æ¬¤ËÉ⤫¤ó¤Ç¤­¤¿¡£");
+                               msg_print("¶²¤í¤·¤¤¸÷·Ê¤¬Æ¬¤ËÉ⤫¤ó¤Ç¤­¤¿¡£");
 #else
                                msg_print("A horrible vision enters your mind.");
 #endif
 
-
                                /* Pick a nightmare */
                                get_mon_num_prep(get_nightmare, NULL);
 
@@ -7269,7 +7295,7 @@ msg_print("
                case GF_SUPER_RAY:
                {
 #ifdef JP
-if (fuzzy) msg_print("ËâË¡¤Î¥ª¡¼¥é¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("ËâË¡¤Î¥ª¡¼¥é¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by an aura of magic!");
 #endif
@@ -7282,7 +7308,7 @@ if (fuzzy) msg_print("
                case GF_PSY_SPEAR:
                {
 #ifdef JP
-if (fuzzy) msg_print("¥¨¥Í¥ë¥®¡¼¤Î²ô¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("¥¨¥Í¥ë¥®¡¼¤Î²ô¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by an energy!");
 #endif
@@ -7295,7 +7321,7 @@ if (fuzzy) msg_print("
                case GF_METEOR:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«¤¬¶õ¤«¤é¤¢¤Ê¤¿¤ÎƬ¾å¤ËÍî¤Á¤Æ¤­¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«¤¬¶õ¤«¤é¤¢¤Ê¤¿¤ÎƬ¾å¤ËÍî¤Á¤Æ¤­¤¿¡ª");
 #else
                        if (fuzzy) msg_print("Something falls from the sky on you!");
 #endif
@@ -7314,24 +7340,27 @@ if (fuzzy) msg_print("
                case GF_ICE:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¯Î䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«±Ô¤¯Î䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something sharp and cold!");
 #endif
 
                        cold_dam(dam, killer, monspell);
-                       if (!p_ptr->resist_shard)
-                       {
-                               (void)set_cut(p_ptr->cut + damroll(5, 8));
-                       }
-                       if (!p_ptr->resist_sound)
+                       if (!CHECK_MULTISHADOW())
                        {
-                               (void)set_stun(p_ptr->stun + randint1(15));
-                       }
+                               if (!p_ptr->resist_shard)
+                               {
+                                       (void)set_cut(p_ptr->cut + damroll(5, 8));
+                               }
+                               if (!p_ptr->resist_sound)
+                               {
+                                       (void)set_stun(p_ptr->stun + randint1(15));
+                               }
 
-                       if ((!(p_ptr->resist_cold || IS_OPPOSE_COLD())) || one_in_(12))
-                       {
-                               if (!p_ptr->immune_cold) inven_damage(set_cold_destroy, 3);
+                               if ((!(p_ptr->resist_cold || IS_OPPOSE_COLD())) || one_in_(12))
+                               {
+                                       if (!p_ptr->immune_cold) inven_damage(set_cold_destroy, 3);
+                               }
                        }
 
                        break;
@@ -7341,7 +7370,7 @@ if (fuzzy) msg_print("
                case GF_DEATH_RAY:
                {
 #ifdef JP
-if (fuzzy) msg_print("²¿¤«Èó¾ï¤ËÎ䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+                       if (fuzzy) msg_print("²¿¤«Èó¾ï¤ËÎ䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
 #else
                        if (fuzzy) msg_print("You are hit by something extremely cold!");
 #endif
@@ -7383,7 +7412,15 @@ if (fuzzy) msg_print("
                /* Drain mana */
                case GF_DRAIN_MANA:
                {
-                       if (p_ptr->csp)
+                       if (CHECK_MULTISHADOW())
+                       {
+#ifdef JP
+                               msg_print("¹¶·â¤Ï¸¸±Æ¤ËÌ¿Ã椷¡¢¤¢¤Ê¤¿¤Ë¤ÏÆϤ«¤Ê¤«¤Ã¤¿¡£");
+#else
+                               msg_print("The attack hits Shadow, you are unharmed!");
+#endif
+                       }
+                       else if (p_ptr->csp)
                        {
                                /* Basic message */
 #ifdef JP
@@ -7450,7 +7487,7 @@ if (fuzzy) msg_print("
                /* Mind blast */
                case GF_MIND_BLAST:
                {
-                       if (randint0(100 + rlev/2) < (MAX(5, p_ptr->skill_sav)))
+                       if ((randint0(100 + rlev / 2) < MAX(5, p_ptr->skill_sav)) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7461,29 +7498,32 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
+                               if (!CHECK_MULTISHADOW())
+                               {
 #ifdef JP
-                               msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
+                                       msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
 #else
-                               msg_print("Your mind is blasted by psyonic energy.");
+                                       msg_print("Your mind is blasted by psyonic energy.");
 #endif
 
-                               if (!p_ptr->resist_conf)
-                               {
-                                       (void)set_confused(p_ptr->confused + randint0(4) + 4);
-                               }
+                                       if (!p_ptr->resist_conf)
+                                       {
+                                               (void)set_confused(p_ptr->confused + randint0(4) + 4);
+                                       }
 
-                               if (!p_ptr->resist_chaos && one_in_(3))
-                               {
-                                       (void)set_image(p_ptr->image + randint0(250) + 150);
-                               }
+                                       if (!p_ptr->resist_chaos && one_in_(3))
+                                       {
+                                               (void)set_image(p_ptr->image + randint0(250) + 150);
+                                       }
 
-                               p_ptr->csp -= 50;
-                               if (p_ptr->csp < 0)
-                               {
-                                       p_ptr->csp = 0;
-                                       p_ptr->csp_frac = 0;
+                                       p_ptr->csp -= 50;
+                                       if (p_ptr->csp < 0)
+                                       {
+                                               p_ptr->csp = 0;
+                                               p_ptr->csp_frac = 0;
+                                       }
+                                       p_ptr->redraw |= PR_MANA;
                                }
-                               p_ptr->redraw |= PR_MANA;
 
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        }
@@ -7493,7 +7533,7 @@ if (fuzzy) msg_print("
                /* Brain smash */
                case GF_BRAIN_SMASH:
                {
-                       if (randint0(100 + rlev/2) < (MAX(5, p_ptr->skill_sav)))
+                       if ((randint0(100 + rlev / 2) < MAX(5, p_ptr->skill_sav)) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7504,43 +7544,49 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
+                               if (!CHECK_MULTISHADOW())
+                               {
 #ifdef JP
-                               msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
+                                       msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
 #else
-                               msg_print("Your mind is blasted by psionic energy.");
+                                       msg_print("Your mind is blasted by psionic energy.");
 #endif
 
-                               p_ptr->csp -= 100;
-                               if (p_ptr->csp < 0)
-                               {
-                                       p_ptr->csp = 0;
-                                       p_ptr->csp_frac = 0;
+                                       p_ptr->csp -= 100;
+                                       if (p_ptr->csp < 0)
+                                       {
+                                               p_ptr->csp = 0;
+                                               p_ptr->csp_frac = 0;
+                                       }
+                                       p_ptr->redraw |= PR_MANA;
                                }
-                               p_ptr->redraw |= PR_MANA;
 
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
-                               if (!p_ptr->resist_blind)
+                               if (!CHECK_MULTISHADOW())
                                {
-                                       (void)set_blind(p_ptr->blind + 8 + randint0(8));
-                               }
-                               if (!p_ptr->resist_conf)
-                               {
-                                       (void)set_confused(p_ptr->confused + randint0(4) + 4);
-                               }
-                               if (!p_ptr->free_act)
-                               {
-                                       (void)set_paralyzed(p_ptr->paralyzed + randint0(4) + 4);
-                               }
-                               (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+                                       if (!p_ptr->resist_blind)
+                                       {
+                                               (void)set_blind(p_ptr->blind + 8 + randint0(8));
+                                       }
+                                       if (!p_ptr->resist_conf)
+                                       {
+                                               (void)set_confused(p_ptr->confused + randint0(4) + 4);
+                                       }
+                                       if (!p_ptr->free_act)
+                                       {
+                                               (void)set_paralyzed(p_ptr->paralyzed + randint0(4) + 4);
+                                       }
+                                       (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
 
-                               while (randint0(100 + rlev/2) > (MAX(5, p_ptr->skill_sav)))
-                                       (void)do_dec_stat(A_INT);
-                               while (randint0(100 + rlev/2) > (MAX(5, p_ptr->skill_sav)))
-                                       (void)do_dec_stat(A_WIS);
+                                       while (randint0(100 + rlev / 2) > (MAX(5, p_ptr->skill_sav)))
+                                               (void)do_dec_stat(A_INT);
+                                       while (randint0(100 + rlev / 2) > (MAX(5, p_ptr->skill_sav)))
+                                               (void)do_dec_stat(A_WIS);
 
-                               if (!p_ptr->resist_chaos)
-                               {
-                                       (void)set_image(p_ptr->image + randint0(250) + 150);
+                                       if (!p_ptr->resist_chaos)
+                                       {
+                                               (void)set_image(p_ptr->image + randint0(250) + 150);
+                                       }
                                }
                        }
                        break;
@@ -7549,7 +7595,7 @@ if (fuzzy) msg_print("
                /* cause 1 */
                case GF_CAUSE_1:
                {
-                       if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+                       if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7560,7 +7606,7 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
-                               curse_equipment(15, 0);
+                               if (!CHECK_MULTISHADOW()) curse_equipment(15, 0);
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        }
                        break;
@@ -7569,7 +7615,7 @@ if (fuzzy) msg_print("
                /* cause 2 */
                case GF_CAUSE_2:
                {
-                       if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+                       if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7580,7 +7626,7 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
-                               curse_equipment(25, MIN(rlev/2-15, 5));
+                               if (!CHECK_MULTISHADOW()) curse_equipment(25, MIN(rlev / 2 - 15, 5));
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        }
                        break;
@@ -7589,7 +7635,7 @@ if (fuzzy) msg_print("
                /* cause 3 */
                case GF_CAUSE_3:
                {
-                       if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+                       if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7600,7 +7646,7 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
-                               curse_equipment(33, MIN(rlev/2-15, 15));
+                               if (!CHECK_MULTISHADOW()) curse_equipment(33, MIN(rlev / 2 - 15, 15));
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
                        }
                        break;
@@ -7609,7 +7655,7 @@ if (fuzzy) msg_print("
                /* cause 4 */
                case GF_CAUSE_4:
                {
-                       if ((randint0(100 + rlev/2) < p_ptr->skill_sav) && !(m_ptr->r_idx == MON_KENSHIROU))
+                       if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !(m_ptr->r_idx == MON_KENSHIROU) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_print("¤·¤«¤·È빦¤òÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7621,7 +7667,7 @@ if (fuzzy) msg_print("
                        else
                        {
                                get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
-                               (void)set_cut(p_ptr->cut + damroll(10, 10));
+                               if (!CHECK_MULTISHADOW()) (void)set_cut(p_ptr->cut + damroll(10, 10));
                        }
                        break;
                }
@@ -7629,7 +7675,7 @@ if (fuzzy) msg_print("
                /* Hand of Doom */
                case GF_HAND_DOOM:
                {
-                       if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+                       if ((randint0(100 + rlev/2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
                        {
 #ifdef JP
                                msg_format("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7640,16 +7686,19 @@ if (fuzzy) msg_print("
                        }
                        else
                        {
+                               if (!CHECK_MULTISHADOW())
+                               {
 #ifdef JP
-                               msg_print("¤¢¤Ê¤¿¤ÏÌ¿¤¬Çö¤Þ¤Ã¤Æ¤¤¤¯¤è¤¦¤Ë´¶¤¸¤¿¡ª");
+                                       msg_print("¤¢¤Ê¤¿¤ÏÌ¿¤¬Çö¤Þ¤Ã¤Æ¤¤¤¯¤è¤¦¤Ë´¶¤¸¤¿¡ª");
 #else
-                               msg_print("You feel your life fade away!");
+                                       msg_print("You feel your life fade away!");
 #endif
+                                       curse_equipment(40, 20);
+                               }
 
                                get_damage = take_hit(DAMAGE_ATTACK, dam, m_name, monspell);
-                               curse_equipment(40, 20);
 
-                               if (p_ptr->chp < 1) p_ptr->chp = 1;
+                               if (p_ptr->chp < 1) p_ptr->chp = 1; /* Paranoia */
                        }
                        break;
                }
@@ -7664,7 +7713,7 @@ if (fuzzy) msg_print("
                }
        }
 
-       if (p_ptr->tim_eyeeye && get_damage > 0 && !p_ptr->is_dead)
+       if (p_ptr->tim_eyeeye && (get_damage > 0) && !p_ptr->is_dead && (who > 0))
        {
 #ifdef JP
                msg_format("¹¶·â¤¬%s¼«¿È¤ò½ý¤Ä¤±¤¿¡ª", m_name);
@@ -7692,8 +7741,7 @@ if (fuzzy) msg_print("
 
        if ((p_ptr->special_defense & NINJA_KAWARIMI) && dam && who && (who != p_ptr->riding))
        {
-               kawarimi(FALSE);
-               return obvious;
+               (void)kawarimi(FALSE);
        }
 
        /* Return "Anything seen?" */
@@ -8243,6 +8291,9 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
        /* Attacker's name (prepared before polymorph)*/
        char who_name[80];
 
+       /* Can the player see the source of this effect? */
+       bool see_s_msg = TRUE;
+
        /* Initialize by null string */
        who_name[0] = '\0';
 
@@ -8445,16 +8496,19 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                                {
                                        y = GRID_Y(path_g[j]);
                                        x = GRID_X(path_g[j]);
-                                       if(project_m(0,0,y,x,dam,GF_SEEKER,flg))notice=TRUE;
+                                       if(project_m(0,0,y,x,dam,GF_SEEKER,flg,TRUE))notice=TRUE;
                                        if(!who && (project_m_n==1) && !jump ){
                                          if(cave[project_m_y][project_m_x].m_idx >0 ){
                                            monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
 
-                                           /* Hack -- auto-recall */
-                                           if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
+                                           if (m_ptr->ml)
+                                           {
+                                             /* Hack -- auto-recall */
+                                             if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
 
-                                           /* Hack - auto-track */
-                                           if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+                                             /* Hack - auto-track */
+                                             health_track(cave[project_m_y][project_m_x].m_idx);
+                                           }
                                          }
                                        }
                                        (void)project_f(0,0,y,x,dam,GF_SEEKER);
@@ -8467,17 +8521,20 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                        int x,y;
                        y = GRID_Y(path_g[i]);
                        x = GRID_X(path_g[i]);
-                       if(project_m(0,0,y,x,dam,GF_SEEKER,flg))
+                       if(project_m(0,0,y,x,dam,GF_SEEKER,flg,TRUE))
                          notice=TRUE;
                        if(!who && (project_m_n==1) && !jump ){
                          if(cave[project_m_y][project_m_x].m_idx >0 ){
                            monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
-                           
-                           /* Hack -- auto-recall */
-                           if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
-                           
-                           /* Hack - auto-track */
-                           if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+
+                           if (m_ptr->ml)
+                           {
+                             /* Hack -- auto-recall */
+                             if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
+
+                             /* Hack - auto-track */
+                             health_track(cave[project_m_y][project_m_x].m_idx);
+                           }
                          }
                        }
                        (void)project_f(0,0,y,x,dam,GF_SEEKER);
@@ -8597,16 +8654,19 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                        int x,y;
                        y = GRID_Y(path_g[i]);
                        x = GRID_X(path_g[i]);
-                       (void)project_m(0,0,y,x,dam,GF_SUPER_RAY,flg);
+                       (void)project_m(0,0,y,x,dam,GF_SUPER_RAY,flg,TRUE);
                        if(!who && (project_m_n==1) && !jump ){
                          if(cave[project_m_y][project_m_x].m_idx >0 ){
                            monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
-                           
-                           /* Hack -- auto-recall */
-                           if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
-                           
-                           /* Hack - auto-track */
-                           if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+
+                           if (m_ptr->ml)
+                           {
+                             /* Hack -- auto-recall */
+                             if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
+
+                             /* Hack - auto-track */
+                             health_track(cave[project_m_y][project_m_x].m_idx);
+                           }
                          }
                        }
                        (void)project_f(0,0,y,x,dam,GF_SUPER_RAY);
@@ -8881,6 +8941,13 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
        if (p_ptr->update) update_stuff();
 
 
+       if (flg & PROJECT_KILL)
+       {
+               see_s_msg = (who > 0) ? is_seen(&m_list[who]) :
+                       (!who ? TRUE : (player_can_see_bold(y1, x1) && projectable(py, px, y1, x1)));
+       }
+
+
        /* Check features */
        if (flg & (PROJECT_GRID))
        {
@@ -8978,7 +9045,9 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                                monster_type *m_ptr = &m_list[cave[y][x].m_idx];
                                monster_race *ref_ptr = &r_info[m_ptr->r_idx];
 
-                               if ((ref_ptr->flags2 & RF2_REFLECTING) && (flg & PROJECT_REFLECTABLE) && (!who || dist_hack > 1) && !one_in_(10))
+                               if ((flg & PROJECT_REFLECTABLE) && cave[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
+                                   ((cave[y][x].m_idx != p_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
+                                   (!who || dist_hack > 1) && !one_in_(10))
                                {
                                        byte t_y, t_x;
                                        int max_attempts = 10;
@@ -9012,8 +9081,8 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                                        if (is_original_ap_and_seen(m_ptr)) ref_ptr->r_flags2 |= RF2_REFLECTING;
 
                                        /* Reflected bolts randomly target either one */
-                                       if (one_in_(2)) flg |= PROJECT_PLAYER;
-                                       else flg &= ~(PROJECT_PLAYER);
+                                       if (player_bold(y, x) || one_in_(2)) flg &= ~(PROJECT_PLAYER);
+                                       else flg |= PROJECT_PLAYER;
 
                                        /* The bolt is reflected */
                                        project(cave[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
@@ -9107,7 +9176,7 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                        }
 
                        /* Affect the monster in the grid */
-                       if (project_m(who, effective_dist, y, x, dam, typ,flg)) notice = TRUE;
+                       if (project_m(who, effective_dist, y, x, dam, typ, flg, see_s_msg)) notice = TRUE;
                }
 
 
@@ -9123,11 +9192,14 @@ bool project(int who, int rad, int y, int x, int dam, int typ, int flg, int mons
                        {
                                monster_type *m_ptr = &m_list[cave[y][x].m_idx];
 
-                               /* Hack -- auto-recall */
-                               if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
+                               if (m_ptr->ml)
+                               {
+                                       /* Hack -- auto-recall */
+                                       if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
 
-                               /* Hack - auto-track */
-                               if (m_ptr->ml) health_track(cave[y][x].m_idx);
+                                       /* Hack - auto-track */
+                                       if (m_ptr->ml) health_track(cave[y][x].m_idx);
+                               }
                        }
                }
        }
@@ -9373,7 +9445,7 @@ bool binding_field( int dam )
                        {
                                if (player_has_los_bold(y, x) && projectable(py, px, y, x)) {
                                        (void)project_m(0,0,y,x,dam,GF_MANA,
-                                         (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP));
+                                         (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP),TRUE);
                                }
                        }
                }
@@ -9401,7 +9473,7 @@ void seal_of_mirror( int dam )
                        if( is_mirror_grid(&cave[y][x]))
                        {
                                if(project_m(0,0,y,x,dam,GF_GENOCIDE,
-                                                        (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP)))
+                                                        (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP),TRUE))
                                {
                                        if( !cave[y][x].m_idx )
                                        {