OSDN Git Service

ヘルプの検索機能や強調機能をキャンセルするとフリーズする場合があった
[hengband/hengband.git] / src / spells1.c
index 793793e..90b4b1d 100644 (file)
@@ -671,7 +671,7 @@ 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;
@@ -893,7 +893,7 @@ 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;
@@ -920,7 +920,7 @@ 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;
@@ -936,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);
@@ -956,7 +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);
+                       cave_set_feat(y, x, feat_granite);
 
                        break;
                }
@@ -974,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;
                }
@@ -997,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;
                }
@@ -1051,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);
 
@@ -1109,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)
@@ -1123,16 +1148,38 @@ 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;
                }
 
                case GF_DISINTEGRATE:
                {
-                       /* Destroy mirror */
-                       if (is_mirror_grid(c_ptr)) remove_mirror(y, x);
+                       /* Destroy mirror/glyph */
+                       if (is_mirror_grid(c_ptr) || is_glyph_grid(c_ptr) || is_explosive_rune_grid(c_ptr))
+                               remove_mirror(y, x);
 
                        /* Permanent features don't get effect */
                        /* But not protect monsters and other objects */
@@ -1497,7 +1544,7 @@ note_kill = "
 #ifdef JP
 note_kill = "À¸¤­Ê֤ä¿¡£";
 #else
-                                       note_kill = "rivived.";
+                                       note_kill = " revived.";
 #endif
                                                }
                                                else if (!note_kill)
@@ -1636,7 +1683,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;
 
@@ -1653,7 +1700,7 @@ static bool project_m(int who, int r, int y, int x, int dam, int typ , int flg)
        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;
@@ -1661,9 +1708,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_msg = ((who <= 0) || is_seen(caster_ptr));
-
        /* Were the effects "irrelevant"? */
        bool skipped = FALSE;
 
@@ -2491,7 +2535,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 = "¤ÎÆ°¤­¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
@@ -2499,9 +2543,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;
@@ -2610,17 +2651,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 */
@@ -2766,7 +2804,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -2780,7 +2818,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))
                                                        {
@@ -2902,29 +2940,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;
@@ -3377,9 +3417,7 @@ 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)
                        {
@@ -3406,36 +3444,33 @@ 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);
-
-                       if (m_ptr->stunned)
+                       (void)set_monster_csleep(c_ptr->m_idx, 0);
+                       if (MON_STUNNED(m_ptr))
                        {
 #ifdef JP
                                if (seen_msg) msg_format("%^s¤ÏÛ¯Û°¾õÂÖ¤«¤éΩ¤Áľ¤Ã¤¿¡£", m_name);
 #else
                                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
                                if (seen_msg) msg_format("%^s¤Ïº®Í𤫤éΩ¤Áľ¤Ã¤¿¡£", m_name);
 #else
                                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
                                if (seen_msg) msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name);
 #else
                                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 */
@@ -3494,18 +3529,14 @@ 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 (!who)
                        {
@@ -3553,18 +3584,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 */
@@ -5122,9 +5149,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;
                }
@@ -5137,7 +5162,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)
@@ -5173,7 +5198,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)
@@ -5329,7 +5354,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
@@ -5337,7 +5362,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
@@ -5346,7 +5371,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
@@ -5356,24 +5381,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
@@ -5425,7 +5447,7 @@ msg_format("
                        if (r_ptr->flags2 & RF2_EMPTY_MIND)
                        {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                               note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
                                note = " is immune!";
 #endif
@@ -5434,10 +5456,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
@@ -5458,7 +5480,7 @@ note = "
                                    (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
                                {
 #ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+                                       note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
 #else
                                        note = " is unaffected!";
 #endif
@@ -5469,18 +5491,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);
                                }
                        }
 
@@ -5668,7 +5686,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;
                                }
 
@@ -5685,13 +5703,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);
@@ -5806,7 +5824,7 @@ note = "
                        if (seen) obvious = TRUE;
 
                        /* Get stunned */
-                       if (m_ptr->stunned)
+                       if (MON_STUNNED(m_ptr))
                        {
 #ifdef JP
                                note = "¤Ï¤Ò¤É¤¯¤â¤¦¤í¤¦¤È¤·¤¿¡£";
@@ -5814,7 +5832,7 @@ note = "
                                note = " is more dazed.";
 #endif
 
-                               tmp = m_ptr->stunned + (do_stun / 2);
+                               tmp = MON_STUNNED(m_ptr) + (do_stun / 2);
                        }
                        else
                        {
@@ -5828,7 +5846,7 @@ note = "
                        }
 
                        /* Apply stun */
-                       m_ptr->stunned = (tmp < 200) ? tmp : 200;
+                       (void)set_monster_stunned(c_ptr->m_idx, tmp);
 
                        /* Get angry */
                        get_angry = TRUE;
@@ -5843,7 +5861,7 @@ note = "
                        if (seen) obvious = TRUE;
 
                        /* Already partially confused */
-                       if (m_ptr->confused)
+                       if (MON_CONFUSED(m_ptr))
                        {
 #ifdef JP
                                note = "¤Ï¤µ¤é¤Ëº®Í𤷤¿¤è¤¦¤À¡£";
@@ -5851,7 +5869,7 @@ note = "
                                note = " looks more confused.";
 #endif
 
-                               tmp = m_ptr->confused + (do_conf / 2);
+                               tmp = MON_CONFUSED(m_ptr) + (do_conf / 2);
                        }
 
                        /* Was not confused */
@@ -5867,7 +5885,7 @@ note = "
                        }
 
                        /* Apply confusion */
-                       m_ptr->confused = (tmp < 200) ? tmp : 200;
+                       (void)set_monster_confused(c_ptr->m_idx, tmp);
 
                        /* Get angry */
                        get_angry = TRUE;
@@ -5910,12 +5928,6 @@ note = "
 
                                /* Turn off the damage */
                                dam = 0;
-
-                               /* Hack -- Get new monster */
-                               m_ptr = &m_list[c_ptr->m_idx];
-
-                               /* Hack -- Get new race */
-                               r_ptr = &r_info[m_ptr->r_idx];
                        }
                        else
                        {
@@ -5926,6 +5938,12 @@ note = "
                                note = " is unaffected!";
 #endif
                        }
+
+                       /* Hack -- Get new monster */
+                       m_ptr = &m_list[c_ptr->m_idx];
+
+                       /* Hack -- Get new race */
+                       r_ptr = &r_info[m_ptr->r_idx];
                }
 
                /* Handle "teleport" */
@@ -5944,7 +5962,8 @@ note = "
                        if (!who) chg_virtue(V_VALOUR, -1);
 
                        /* Teleport */
-                       teleport_away(c_ptr->m_idx, do_dist, (bool)(!who), TRUE);
+                       teleport_away(c_ptr->m_idx, do_dist,
+                                               (!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
 
                        /* Hack -- get new location */
                        y = m_ptr->fy;
@@ -5957,11 +5976,8 @@ note = "
                /* Fear */
                if (do_fear)
                {
-                       /* Increase fear */
-                       tmp = m_ptr->monfear + do_fear;
-
                        /* Set fear */
-                       m_ptr->monfear = (tmp < 200) ? tmp : 200;
+                       (void)set_monster_monfear(c_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
 
                        /* Get angry */
                        get_angry = TRUE;
@@ -5981,9 +5997,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;
@@ -6021,11 +6035,10 @@ note = "
                        if (sad)
                        {
 #ifdef JP
-msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
+                               msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
 #else
                                msg_print("You feel sad for a moment.");
 #endif
-
                        }
                }
 
@@ -6046,7 +6059,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);
                }
        }
 
@@ -6058,6 +6071,14 @@ msg_print("
                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);
        }
 
@@ -6112,7 +6133,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);
                }
        }
 
@@ -6158,7 +6179,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;
                                }
@@ -6236,14 +6257,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);
@@ -6354,8 +6375,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 */
@@ -6378,18 +6398,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);
@@ -6423,13 +6451,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, "À©¸æ¤Ç¤­¤Ê¤¤ÎϤÎÈÅή");
+#else
+                       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, "æ«");
+                       strcpy(killer, "æ«");
 #else
-               strcpy(killer, "a trap");
+                       strcpy(killer, "a trap");
 #endif
+                       break;
+               }
+
+               /* Paranoia */
+               strcpy(m_name, killer);
        }
 
        /* Analyze the damage */
@@ -6439,7 +6491,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
@@ -6452,7 +6504,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
@@ -6465,7 +6517,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
@@ -6478,7 +6530,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
@@ -6492,7 +6544,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
@@ -6501,14 +6553,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);
                        }
@@ -6520,7 +6572,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
@@ -6528,14 +6580,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
@@ -6558,7 +6610,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
@@ -6571,7 +6623,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
@@ -6587,7 +6639,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
@@ -6602,7 +6654,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
@@ -6631,7 +6683,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);
@@ -6651,23 +6703,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
@@ -6687,23 +6738,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);
@@ -6714,7 +6768,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
@@ -6723,33 +6777,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;
                }
@@ -6758,7 +6818,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
@@ -6767,7 +6827,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                (void)set_cut(p_ptr->cut + dam);
                        }
@@ -6785,7 +6845,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
@@ -6794,7 +6854,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);
@@ -6813,7 +6873,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
@@ -6822,7 +6882,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);
                        }
@@ -6843,7 +6903,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                (void)apply_disenchant(0);
                        }
@@ -6855,7 +6915,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
@@ -6864,7 +6924,7 @@ if (fuzzy) msg_print("
                        {
                                dam *= 6; dam /= (randint1(4) + 7);
                        }
-                       else
+                       else if (!CHECK_MULTISHADOW())
                        {
                                apply_nexus(m_ptr);
                        }
@@ -6876,12 +6936,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));
                        }
@@ -6894,25 +6954,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);
                        }
@@ -6925,12 +6986,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;
                }
@@ -6939,7 +7000,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
@@ -6948,16 +7009,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;
@@ -6966,14 +7028,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
@@ -6996,7 +7059,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
@@ -7007,7 +7070,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);
                        }
@@ -7019,7 +7082,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
@@ -7029,13 +7092,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))
                                {
@@ -7043,7 +7105,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
@@ -7057,12 +7119,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;
@@ -7071,16 +7133,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);
@@ -7090,12 +7150,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;
@@ -7122,13 +7181,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)
                        {
@@ -7148,7 +7210,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
@@ -7160,7 +7222,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
@@ -7173,7 +7235,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
@@ -7186,7 +7248,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
@@ -7199,7 +7261,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
@@ -7208,12 +7270,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);
 
@@ -7235,7 +7296,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
@@ -7248,7 +7309,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
@@ -7261,7 +7322,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
@@ -7280,24 +7341,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;
@@ -7307,7 +7371,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
@@ -7349,7 +7413,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
@@ -7416,7 +7488,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7427,29 +7499,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);
                        }
@@ -7459,7 +7534,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7470,43 +7545,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)
-                               {
-                                       (void)set_blind(p_ptr->blind + 8 + randint0(8));
-                               }
-                               if (!p_ptr->resist_conf)
+                               if (!CHECK_MULTISHADOW())
                                {
-                                       (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;
@@ -7515,7 +7596,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7526,7 +7607,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;
@@ -7535,7 +7616,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7546,7 +7627,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;
@@ -7555,7 +7636,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7566,7 +7647,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;
@@ -7575,7 +7656,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("¤·¤«¤·È빦¤òÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7587,7 +7668,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;
                }
@@ -7595,7 +7676,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("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
@@ -7606,16 +7687,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;
                }
@@ -7630,7 +7714,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);
@@ -7658,8 +7742,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?" */
@@ -8209,6 +8292,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';
 
@@ -8411,16 +8497,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);
@@ -8433,17 +8522,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);
@@ -8563,16 +8655,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);
@@ -8847,6 +8942,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))
        {
@@ -8944,7 +9046,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;
@@ -8978,8 +9082,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);
@@ -9073,7 +9177,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;
                }
 
 
@@ -9089,11 +9193,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);
+                               }
                        }
                }
        }
@@ -9339,7 +9446,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);
                                }
                        }
                }
@@ -9367,7 +9474,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 )
                                        {