Add new option -- show_ammo_detail / show_ammo_no_crit

[hengband/hengband.git] / src / mspells1.c

diff --git a/src/mspells1.c b/src/mspells1.c
index 8119c40..1b2ab43 100644 (file)
--- a/src/mspells1.c
+++ b/src/mspells1.c
@@ -484,7 +484,8 @@ bool clean_shot(int y1, int x1, int y2, int x2, bool friend)
  */
 static void bolt(int m_idx, int typ, int dam_hp, int monspell, bool learnable)
 {
-       int flg = PROJECT_STOP | PROJECT_KILL | PROJECT_PLAYER | PROJECT_REFLECTABLE;
+       int flg = PROJECT_STOP | PROJECT_KILL | PROJECT_PLAYER;
+       if (typ != GF_ARROW) flg  |= PROJECT_REFLECTABLE;
 
        /* Target the player with a bolt attack */
        (void)project(m_idx, 0, py, px, dam_hp, typ, flg, (learnable ? monspell : -1));
@@ -1192,6 +1193,48 @@ bool spell_is_inate(u16b spell)
 }
 
 
+static bool adjacent_grid_check(monster_type *m_ptr, int *yp, int *xp,
+       int f_flag, bool (*path_check)(int, int, int, int))
+{
+       int i;
+       int tonari;
+       static int tonari_y[4][8] = {{-1, -1, -1,  0,  0,  1,  1,  1},
+                                            {-1, -1, -1,  0,  0,  1,  1,  1},
+                                            { 1,  1,  1,  0,  0, -1, -1, -1},
+                                            { 1,  1,  1,  0,  0, -1, -1, -1}};
+       static int tonari_x[4][8] = {{-1,  0,  1, -1,  1, -1,  0,  1},
+                                            { 1,  0, -1,  1, -1,  1,  0, -1},
+                                            {-1,  0,  1, -1,  1, -1,  0,  1},
+                                            { 1,  0, -1,  1, -1,  1,  0, -1}};
+
+       if (m_ptr->fy < py && m_ptr->fx < px) tonari = 0;
+       else if (m_ptr->fy < py) tonari = 1;
+       else if (m_ptr->fx < px) tonari = 2;
+       else tonari = 3;
+
+       for (i = 0; i < 8; i++)
+       {
+               int next_x = *xp + tonari_x[tonari][i];
+               int next_y = *yp + tonari_y[tonari][i];
+               cave_type *c_ptr;
+
+               /* Access the next grid */
+               c_ptr = &cave[next_y][next_x];
+
+               /* Skip this feature */
+               if (!cave_have_flag_grid(c_ptr, f_flag)) continue;
+
+               if (path_check(m_ptr->fy, m_ptr->fx, next_y, next_x))
+               {
+                       *yp = next_y;
+                       *xp = next_x;
+                       return TRUE;
+               }
+       }
+
+       return FALSE;
+}
+
 #define DO_SPELL_NONE    0
 #define DO_SPELL_BR_LITE 1
 #define DO_SPELL_BR_DISI 2
@@ -1268,11 +1311,16 @@ bool make_attack_spell(int m_idx)
        u32b mode = 0L;
        int s_num_6 = (easy_band ? 2 : 6);
        int s_num_4 = (easy_band ? 1 : 4);
+       int rad = 0; //For elemental spells
 
        /* Target location */
        int x = px;
        int y = py;
 
+       /* Target location for lite breath */
+       int x_br_lite = 0;
+       int y_br_lite = 0;
+
        /* Summon count */
        int count = 0;
 
@@ -1323,6 +1371,33 @@ bool make_attack_spell(int m_idx)
        /* Check range */
        if ((m_ptr->cdis > MAX_RANGE) && !m_ptr->target_y) return (FALSE);
 
+       /* Check path for lite breath */
+       if (f4 & RF4_BR_LITE)
+       {
+               y_br_lite = y;
+               x_br_lite = x;
+
+               if (los(m_ptr->fy, m_ptr->fx, y_br_lite, x_br_lite))
+               {
+                       feature_type *f_ptr = &f_info[cave[y_br_lite][x_br_lite].feat];
+
+                       if (!have_flag(f_ptr->flags, FF_LOS))
+                       {
+                               if (have_flag(f_ptr->flags, FF_PROJECT) && one_in_(2)) f4 &= ~(RF4_BR_LITE);
+                       }
+               }
+
+               /* Check path to next grid */
+               else if (!adjacent_grid_check(m_ptr, &y_br_lite, &x_br_lite, FF_LOS, los)) f4 &= ~(RF4_BR_LITE);
+
+               /* Don't breath lite to the wall if impossible */
+               if (!(f4 & RF4_BR_LITE))
+               {
+                       y_br_lite = 0;
+                       x_br_lite = 0;
+               }
+       }
+
        /* Check path */
        if (projectable(m_ptr->fy, m_ptr->fx, y, x))
        {
@@ -1351,8 +1426,7 @@ bool make_attack_spell(int m_idx)
                        success = TRUE;
                }
                else if ((f4 & RF4_BR_LITE) && (m_ptr->cdis < MAX_RANGE/2) &&
-                   los(m_ptr->fy, m_ptr->fx, y, x) &&
-                   (one_in_(10) || (projectable(y, x, m_ptr->fy, m_ptr->fx) && one_in_(2))))
+                   los(m_ptr->fy, m_ptr->fx, y, x) && one_in_(5))
                {
                        do_spell = DO_SPELL_BR_LITE;
                        success = TRUE;
@@ -1361,53 +1435,14 @@ bool make_attack_spell(int m_idx)
                {
                        int by = y, bx = x;
                        get_project_point(m_ptr->fy, m_ptr->fx, &by, &bx, 0L);
-                       if ((distance(by, bx, y, x) <= 3) && los(by, bx, y, x) &&
-                           (one_in_(10) || (projectable(y, x, m_ptr->fy, m_ptr->fx) && one_in_(2))))
+                       if ((distance(by, bx, y, x) <= 3) && los(by, bx, y, x) && one_in_(5))
                        {
                                do_spell = DO_SPELL_BA_LITE;
                                success = TRUE;
                        }
                }
 
-               if (!success)
-               {
-                       int i;
-                       int tonari;
-                       int tonari_y[4][8] = {{-1,-1,-1,0,0,1,1,1},
-                                             {-1,-1,-1,0,0,1,1,1},
-                                             {1,1,1,0,0,-1,-1,-1},
-                                             {1,1,1,0,0,-1,-1,-1}};
-                       int tonari_x[4][8] = {{-1,0,1,-1,1,-1,0,1},
-                                             {1,0,-1,1,-1,1,0,-1},
-                                             {-1,0,1,-1,1,-1,0,1},
-                                             {1,0,-1,1,-1,1,0,-1}};
-
-                       if (m_ptr->fy < py && m_ptr->fx < px) tonari = 0;
-                       else if (m_ptr->fy < py) tonari = 1;
-                       else if (m_ptr->fx < px) tonari = 2;
-                       else tonari = 3;
-
-                       for (i = 0; i < 8; i++)
-                       {
-                               int next_x = x + tonari_x[tonari][i];
-                               int next_y = y + tonari_y[tonari][i];
-                               cave_type *c_ptr;
-
-                               /* Access the next grid */
-                               c_ptr = &cave[next_y][next_x];
-
-                               /* Skip door, rubble, wall, tree, mountain, etc. */
-                               if (!cave_have_flag_grid(c_ptr, FF_PROJECT)) continue;
-
-                               if (projectable(m_ptr->fy, m_ptr->fx, next_y, next_x))
-                               {
-                                       y = next_y;
-                                       x = next_x;
-                                       success = TRUE;
-                                       break;
-                               }
-                       }
-               }
+               if (!success) success = adjacent_grid_check(m_ptr, &y, &x, FF_PROJECT, projectable);
 
                if (!success)
                {
@@ -1420,6 +1455,18 @@ bool make_attack_spell(int m_idx)
                                f6 &= (RF6_INDIRECT_MASK);
                                success = TRUE;
                        }
+
+                       if (y_br_lite && x_br_lite && (m_ptr->cdis < MAX_RANGE/2) && one_in_(5))
+                       {
+                               if (!success)
+                               {
+                                       y = y_br_lite;
+                                       x = x_br_lite;
+                                       do_spell = DO_SPELL_BR_LITE;
+                                       success = TRUE;
+                               }
+                               else f4 |= (RF4_BR_LITE);
+                       }
                }
 
                /* No spells */
@@ -1622,7 +1669,7 @@ bool make_attack_spell(int m_idx)
        if (!spell_is_inate(thrown_spell)
            && (in_no_magic_dungeon || (MON_STUNNED(m_ptr) && one_in_(2)) || (randint0(100) < failrate)))
        {
-               disturb(1, 0);
+               disturb(1, 1);
                /* Message */
 #ifdef JP
                msg_format("%^s¤Ï¼öʸ¤ò¾§¤¨¤è¤¦¤È¤·¤¿¤¬¼ºÇÔ¤·¤¿¡£", m_name);
@@ -1633,6 +1680,17 @@ bool make_attack_spell(int m_idx)
                return (TRUE);
        }
 
+       /* Hex: Anti Magic Barrier */
+       if (!spell_is_inate(thrown_spell) && magic_barrier(m_idx))
+       {
+#ifdef JP
+               msg_format("È¿ËâË¡¥Ð¥ê¥¢¤¬%^s¤Î¼öʸ¤ò¤«¤­¾Ã¤·¤¿¡£", m_name);
+#else
+               msg_format("Anti magic barrier cancels the spell which %^s casts.");
+#endif
+               return (TRUE);
+       }
+
        /* Projectable? */
        direct = player_bold(y, x);
 
@@ -1644,7 +1702,7 @@ bool make_attack_spell(int m_idx)
                /* RF4_SHRIEK */
                case 96+0:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤¬¤«¤ó¹â¤¤¶âÀÚ¤êÀ¼¤ò¤¢¤²¤¿¡£", m_name);
 #else
@@ -1666,7 +1724,7 @@ msg_format("%^s
                case 96+2:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
                        if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
                        else msg_format("%^s¤¬ËâÎϾõî¤Î¼öʸ¤òÇ°¤¸¤¿¡£", m_name);
@@ -1688,7 +1746,7 @@ msg_format("%^s
                /* RF4_ROCKET */
                case 96+3:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¼Í¤Ã¤¿¡£", m_name);
 #else
@@ -1712,7 +1770,7 @@ else msg_format("%^s
                case 96+4:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬´ñ̯¤Ê²»¤òȯ¤·¤¿¡£", m_name);
 #else
@@ -1755,7 +1813,7 @@ else msg_format("%^s
                /* RF4_BR_ACID */
                case 96+8:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1777,7 +1835,7 @@ else msg_format("%^s
                /* RF4_BR_ELEC */
                case 96+9:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1799,7 +1857,7 @@ else msg_format("%^s
                /* RF4_BR_FIRE */
                case 96+10:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1821,7 +1879,7 @@ else msg_format("%^s
                /* RF4_BR_COLD */
                case 96+11:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1843,7 +1901,7 @@ else msg_format("%^s
                /* RF4_BR_POIS */
                case 96+12:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1866,7 +1924,7 @@ else msg_format("%^s
                /* RF4_BR_NETH */
                case 96+13:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1888,7 +1946,7 @@ else msg_format("%^s
                /* RF4_BR_LITE */
                case 96+14:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1902,7 +1960,7 @@ else msg_format("%^s
 #endif
 
                        dam = ((m_ptr->hp / 6) > 400 ? 400 : (m_ptr->hp / 6));
-                       breath(y, x, m_idx, GF_LITE, dam,0, TRUE, MS_BR_LITE, learnable);
+                       breath(y_br_lite, x_br_lite, m_idx, GF_LITE, dam,0, TRUE, MS_BR_LITE, learnable);
                        update_smart_learn(m_idx, DRS_LITE);
                        break;
                }
@@ -1910,7 +1968,7 @@ else msg_format("%^s
                /* RF4_BR_DARK */
                case 96+15:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1932,7 +1990,7 @@ else msg_format("%^s
                /* RF4_BR_CONF */
                case 96+16:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -1954,7 +2012,7 @@ else msg_format("%^s
                /* RF4_BR_SOUN */
                case 96+17:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (m_ptr->r_idx == MON_JAIAN)
 #ifdef JP
                                msg_format("¡Ö¥Ü¥©¥¨¡Á¡Á¡Á¡Á¡Á¡Á¡×");
@@ -1982,7 +2040,7 @@ else msg_format("%^s
                /* RF4_BR_CHAO */
                case 96+18:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2004,7 +2062,7 @@ else msg_format("%^s
                /* RF4_BR_DISE */
                case 96+19:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2026,7 +2084,7 @@ else msg_format("%^s
                /* RF4_BR_NEXU */
                case 96+20:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2048,7 +2106,7 @@ else msg_format("%^s
                /* RF4_BR_TIME */
                case 96+21:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2069,7 +2127,7 @@ else msg_format("%^s
                /* RF4_BR_INER */
                case 96+22:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2090,7 +2148,7 @@ else msg_format("%^s
                /* RF4_BR_GRAV */
                case 96+23:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2111,7 +2169,7 @@ else msg_format("%^s
                /* RF4_BR_SHAR */
                case 96+24:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (m_ptr->r_idx == MON_BOTEI)
 #ifdef JP
                                msg_format("¡Ö¥ÜÄë¥Ó¥ë¥«¥Ã¥¿¡¼¡ª¡ª¡ª¡×");
@@ -2139,7 +2197,7 @@ else msg_format("%^s
                /* RF4_BR_PLAS */
                case 96+25:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2160,7 +2218,7 @@ else msg_format("%^s
                /* RF4_BR_WALL */
                case 96+26:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2181,7 +2239,7 @@ else msg_format("%^s
                /* RF4_BR_MANA */
                case 96+27:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2201,7 +2259,7 @@ else msg_format("%^s
                /* RF4_BA_NUKE */
                case 96+28:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2223,7 +2281,7 @@ else msg_format("%^s
                /* RF4_BR_NUKE */
                case 96+29:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2245,7 +2303,7 @@ else msg_format("%^s
                /* RF4_BA_CHAO */
                case 96+30:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬¶²¤í¤·¤²¤Ë¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2267,7 +2325,7 @@ else msg_format("%^s
                /* RF4_BR_DISI */
                case 96+31:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
 #else
@@ -2290,21 +2348,25 @@ else msg_format("%^s
                /* RF5_BA_ACID */
                case 128+0:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       else msg_format("%^s¤¬¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
 #else
                        if (blind) msg_format("%^s mumbles.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
-#else
                        else msg_format("%^s casts an acid ball.", m_name);
 #endif
-
-                       dam = (randint1(rlev * 3) + 15) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
-                       breath(y, x, m_idx, GF_ACID, dam, 2, FALSE, MS_BALL_ACID, learnable);
+                       if (r_ptr->flags2 & RF2_POWERFUL)
+                       {
+                               rad = 4;
+                               dam = (rlev * 4) + 50 + damroll(10, 10);
+                       }
+                       else
+                       {
+                               rad = 2;
+                               dam = (randint1(rlev * 3) + 15);
+                       }
+                       breath(y, x, m_idx, GF_ACID, dam, rad, FALSE, MS_BALL_ACID, learnable);
                        update_smart_learn(m_idx, DRS_ACID);
                        break;
                }
@@ -2312,21 +2374,26 @@ else msg_format("%^s
                /* RF5_BA_ELEC */
                case 128+1:
                {
-                       disturb(1, 0);
+                       int rad = (r_ptr->flags2 & RF2_POWERFUL) ? 4 : 2;
+                       disturb(1, 1);
 #ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       else msg_format("%^s¤¬¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
 #else
                        if (blind) msg_format("%^s mumbles.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
-#else
                        else msg_format("%^s casts a lightning ball.", m_name);
 #endif
-
-                       dam = (randint1(rlev * 3 / 2) + 8) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
-                       breath(y, x, m_idx, GF_ELEC, dam, 2, FALSE, MS_BALL_ELEC, learnable);
+                       if (r_ptr->flags2 & RF2_POWERFUL)
+                       {
+                               rad = 4;
+                               dam = (rlev * 4) + 50 + damroll(10, 10);
+                       }
+                       else
+                       {
+                               rad = 2;
+                               dam = (randint1(rlev * 3 / 2) + 8);
+                       }
+                       breath(y, x, m_idx, GF_ELEC, dam, rad, FALSE, MS_BALL_ELEC, learnable);
                        update_smart_learn(m_idx, DRS_ELEC);
                        break;
                }
@@ -2334,7 +2401,8 @@ else msg_format("%^s
                /* RF5_BA_FIRE */
                case 128+2:
                {
-                       disturb(1, 0);
+                       int rad = (r_ptr->flags2 & RF2_POWERFUL) ? 4 : 2;
+                       disturb(1, 1);
 
                        if (m_ptr->r_idx == MON_ROLENTO)
                        {
@@ -2353,20 +2421,25 @@ else msg_format("%^s
                        else
                        {
 #ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                               if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                               else msg_format("%^s¤¬¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
 #else
                                if (blind) msg_format("%^s mumbles.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
-#else
                                else msg_format("%^s casts a fire ball.", m_name);
 #endif
                        }
 
-                       dam = (randint1(rlev * 7 / 2) + 10) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
-                       breath(y, x, m_idx, GF_FIRE, dam, 2, FALSE, MS_BALL_FIRE, learnable);
+                       if (r_ptr->flags2 & RF2_POWERFUL)
+                       {
+                               rad = 4;
+                               dam = (rlev * 4) + 50 + damroll(10, 10);
+                       }
+                       else
+                       {
+                               rad = 2;
+                               dam = (randint1(rlev * 7 / 2) + 10);
+                       }
+                       breath(y, x, m_idx, GF_FIRE, dam, rad, FALSE, MS_BALL_FIRE, learnable);
                        update_smart_learn(m_idx, DRS_FIRE);
                        break;
                }
@@ -2374,21 +2447,26 @@ else msg_format("%^s
                /* RF5_BA_COLD */
                case 128+3:
                {
-                       disturb(1, 0);
+                       int rad = (r_ptr->flags2 & RF2_POWERFUL) ? 4 : 2;
+                       disturb(1, 1);
 #ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
+                       else msg_format("%^s¤¬¥¢¥¤¥¹¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
 #else
                        if (blind) msg_format("%^s mumbles.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥¢¥¤¥¹¡¦¥Ü¡¼¥ë¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
-#else
                        else msg_format("%^s casts a frost ball.", m_name);
 #endif
-
-                       dam = (randint1(rlev * 3 / 2) + 10) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
-                       breath(y, x, m_idx, GF_COLD, dam, 2, FALSE, MS_BALL_COLD, learnable);
+                       if (r_ptr->flags2 & RF2_POWERFUL)
+                       {
+                               rad = 4;
+                               dam = (rlev * 4) + 50 + damroll(10, 10);
+                       }
+                       else
+                       {
+                               rad = 2;
+                               dam = (randint1(rlev * 3 / 2) + 10);
+                       }
+                       breath(y, x, m_idx, GF_COLD, dam, rad, FALSE, MS_BALL_COLD, learnable);
                        update_smart_learn(m_idx, DRS_COLD);
                        break;
                }
@@ -2396,7 +2474,7 @@ else msg_format("%^s
                /* RF5_BA_POIS */
                case 128+4:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2418,7 +2496,7 @@ else msg_format("%^s
                /* RF5_BA_NETH */
                case 128+5:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2440,7 +2518,7 @@ else msg_format("%^s
                /* RF5_BA_WATE */
                case 128+6:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2467,7 +2545,7 @@ msg_print("
                /* RF5_BA_MANA */
                case 128+7:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2488,7 +2566,7 @@ else msg_format("%^s
                /* RF5_BA_DARK */
                case 128+8:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2511,7 +2589,7 @@ else msg_format("%^s
                case 128+9:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 
                        dam = (randint1(rlev) / 2) + 1;
                        breath(y, x, m_idx, GF_DRAIN_MANA, dam, 0, FALSE, MS_DRAIN_MANA, learnable);
@@ -2523,7 +2601,7 @@ else msg_format("%^s
                case 128+10:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (!seen)
                        {
 #ifdef JP
@@ -2552,7 +2630,7 @@ msg_format("%^s
                case 128+11:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (!seen)
                        {
 #ifdef JP
@@ -2581,7 +2659,7 @@ msg_format("%^s
                case 128+12:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2603,7 +2681,7 @@ else msg_format("%^s
                case 128+13:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2625,7 +2703,7 @@ else msg_format("%^s
                case 128+14:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤òÂçÀ¼¤Ç¶«¤ó¤À¡£", m_name);
 #else
@@ -2647,7 +2725,7 @@ else msg_format("%^s
                case 128+15:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£", m_name);
 #else
@@ -2669,7 +2747,7 @@ else msg_format("%^s
                case 128+16:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2693,7 +2771,7 @@ else msg_format("%^s
                case 128+17:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2717,7 +2795,7 @@ else msg_format("%^s
                case 128+18:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2741,7 +2819,7 @@ else msg_format("%^s
                case 128+19:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2764,7 +2842,7 @@ else msg_format("%^s
                /* RF5_BA_LITE */
                case 128+20:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2787,7 +2865,7 @@ else msg_format("%^s
                case 128+21:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2811,7 +2889,7 @@ else msg_format("%^s
                case 128+22:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2834,7 +2912,7 @@ else msg_format("%^s
                case 128+23:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2857,7 +2935,7 @@ else msg_format("%^s
                case 128+24:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2880,7 +2958,7 @@ else msg_format("%^s
                case 128+25:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2904,7 +2982,7 @@ else msg_format("%^s
                case 128+26:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -2927,7 +3005,7 @@ else msg_format("%^s
                case 128+27:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¯¤È¡¢¶²¤í¤·¤²¤Ê²»¤¬Ê¹¤³¤¨¤¿¡£", m_name);
 #else
@@ -2971,7 +3049,7 @@ msg_print("
                case 128+28:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3015,7 +3093,7 @@ msg_print("
                case 128+29:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¯¤È¡¢Æ¬¤òǺ¤Þ¤¹²»¤¬¤·¤¿¡£", m_name);
 #else
@@ -3059,7 +3137,7 @@ msg_print("
                case 128+30:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤¬¤¢¤Ê¤¿¤Î¶ÚÎϤòµÛ¤¤¼è¤í¤¦¤È¤·¤¿¡ª", m_name);
 #else
@@ -3097,7 +3175,7 @@ msg_print("
                case 128+31:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3140,7 +3218,7 @@ msg_format("
                /* RF6_HASTE */
                case 160+0:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (blind)
                        {
 #ifdef JP
@@ -3176,7 +3254,7 @@ msg_format("%^s
                case 160+1:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤¬<ÇËÌǤμê>¤òÊü¤Ã¤¿¡ª", m_name);
 #else
@@ -3190,7 +3268,7 @@ msg_format("%^s
                /* RF6_HEAL */
                case 160+2:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 
                        /* Message */
                        if (blind)
@@ -3289,7 +3367,7 @@ msg_format("%^s
                /* RF6_INVULNER */
                case 160+3:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 
                        /* Message */
                        if (!seen)
@@ -3318,29 +3396,49 @@ msg_format("%s
                /* RF6_BLINK */
                case 160+4:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
+                       if (teleport_barrier(m_idx))
+                       {
 #ifdef JP
-msg_format("%^s¤¬½Ö»þ¤Ë¾Ã¤¨¤¿¡£", m_name);
+                               msg_format("ËâË¡¤Î¥Ð¥ê¥¢¤¬%^s¤Î¥Æ¥ì¥Ý¡¼¥È¤ò¼ÙË⤷¤¿¡£", m_name);
 #else
-                       msg_format("%^s blinks away.", m_name);
+                               msg_format("Magic barrier obstructs teleporting of %^s.", m_name);
 #endif
-
-                       teleport_away(m_idx, 10, 0L);
-                       p_ptr->update |= (PU_MONSTERS);
+                       }
+                       else
+                       {
+#ifdef JP
+                               msg_format("%^s¤¬½Ö»þ¤Ë¾Ã¤¨¤¿¡£", m_name);
+#else
+                               msg_format("%^s blinks away.", m_name);
+#endif
+                               teleport_away(m_idx, 10, 0L);
+                               p_ptr->update |= (PU_MONSTERS);
+                       }
                        break;
                }
 
                /* RF6_TPORT */
                case 160+5:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
+                       if (teleport_barrier(m_idx))
+                       {
 #ifdef JP
-                       msg_format("%^s¤¬¥Æ¥ì¥Ý¡¼¥È¤·¤¿¡£", m_name);
+                               msg_format("ËâË¡¤Î¥Ð¥ê¥¢¤¬%^s¤Î¥Æ¥ì¥Ý¡¼¥È¤ò¼ÙË⤷¤¿¡£", m_name);
 #else
-                       msg_format("%^s teleports away.", m_name);
+                               msg_format("Magic barrier obstructs teleporting of %^s.", m_name);
 #endif
-
-                       teleport_away_followable(m_idx);
+                       }
+                       else
+                       {
+#ifdef JP
+                               msg_format("%^s¤¬¥Æ¥ì¥Ý¡¼¥È¤·¤¿¡£", m_name);
+#else
+                               msg_format("%^s teleports away.", m_name);
+#endif
+                               teleport_away_followable(m_idx);
+                       }
                        break;
                }
 
@@ -3348,7 +3446,7 @@ msg_format("%^s
                case 160+6:
                {
                        int who = 0;
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if(m_ptr->r_idx == MON_DIO) who = 1;
                        else if(m_ptr->r_idx == MON_WONG) who = 3;
                        dam = who;
@@ -3361,7 +3459,7 @@ msg_format("%^s
                {
                        int k;
 
-                       disturb(1, 0);
+                       disturb(1, 1);
                        switch (m_ptr->r_idx)
                        {
                        case MON_OHMU:
@@ -3456,7 +3554,7 @@ msg_format("%^s
                        default:
                                if (r_ptr->d_char == 'B')
                                {
-                                       disturb(1, 0);
+                                       disturb(1, 1);
                                        if (one_in_(3) || !direct)
                                        {
 #ifdef JP
@@ -3535,7 +3633,7 @@ msg_format("%^s
                case 160+8:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤¬¤¢¤Ê¤¿¤ò°ú¤­Ìᤷ¤¿¡£", m_name);
 #else
@@ -3551,7 +3649,7 @@ msg_format("%^s
                case 160+9:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤Ë¥Æ¥ì¥Ý¡¼¥È¤µ¤»¤é¤ì¤¿¡£", m_name);
                        if ((p_ptr->pseikaku == SEIKAKU_COMBAT) || (inventory[INVEN_BOW].name1 == ART_CRIMSON))
@@ -3569,7 +3667,7 @@ msg_format("%^s
                case 160+10:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«´ñ̯¤Ê¸ÀÍÕ¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3613,7 +3711,7 @@ msg_print("
                case 160+11:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3635,7 +3733,7 @@ else msg_format("%^s
                case 160+12:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
                        if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3662,7 +3760,7 @@ else msg_format("%^s
                /* RF6_TRAPS */
                case 160+13:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤Æ¼Ù°­¤ËÈù¾Ð¤ó¤À¡£", m_name);
 #else
@@ -3684,7 +3782,7 @@ else msg_format("%^s
                case 160+14:
                {
                        if (!direct) return (FALSE);
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 msg_format("%^s¤¬¤¢¤Ê¤¿¤Îµ­²±¤ò¾Ãµî¤·¤è¤¦¤È¤·¤Æ¤¤¤ë¡£", m_name);
 #else
@@ -3717,7 +3815,7 @@ msg_print("
                /* RF6_RAISE_DEAD */
                case 160+15:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3736,7 +3834,7 @@ else msg_format("%^s
                /* RF6_S_KIN */
                case 160+16:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
                        if (m_ptr->r_idx == MON_SERPENT || m_ptr->r_idx == MON_ZOMBI_SERPENT)
                        {
 #ifdef JP
@@ -3859,7 +3957,7 @@ else msg_format("%^s
                /* RF6_S_CYBER */
                case 160+17:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3885,7 +3983,7 @@ if (blind && count) msg_print("
                /* RF6_S_MONSTER */
                case 160+18:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3914,7 +4012,7 @@ if (blind && count) msg_print("
                /* RF6_S_MONSTERS */
                case 160+19:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3943,7 +4041,7 @@ if (blind && count) msg_print("¿
                /* RF6_S_ANT */
                case 160+20:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -3972,7 +4070,7 @@ if (blind && count) msg_print("¿
                /* RF6_S_SPIDER */
                case 160+21:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4001,7 +4099,7 @@ if (blind && count) msg_print("¿
                /* RF6_S_HOUND */
                case 160+22:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4030,7 +4128,7 @@ if (blind && count) msg_print("¿
                /* RF6_S_HYDRA */
                case 160+23:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4061,7 +4159,7 @@ if (blind && count) msg_print("¿
                {
                        int num = 1;
 
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4107,7 +4205,7 @@ if (blind) msg_print("¿
                /* RF6_S_DEMON */
                case 160+25:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4136,7 +4234,7 @@ if (blind && count) msg_print("
                /* RF6_S_UNDEAD */
                case 160+26:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4165,7 +4263,7 @@ if (blind && count) msg_print("
                /* RF6_S_DRAGON */
                case 160+27:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4194,7 +4292,7 @@ if (blind && count) msg_print("
                /* RF6_S_HI_UNDEAD */
                case 160+28:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 
                        if (((m_ptr->r_idx == MON_MORGOTH) || (m_ptr->r_idx == MON_SAURON) || (m_ptr->r_idx == MON_ANGMAR)) && ((r_info[MON_NAZGUL].cur_num+2) < r_info[MON_NAZGUL].max_num))
                        {
@@ -4289,7 +4387,7 @@ msg_print("
                /* RF6_S_HI_DRAGON */
                case 160+29:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4321,7 +4419,7 @@ msg_print("¿
                /* RF6_S_AMBERITES */
                case 160+30:
                {
-                       disturb(1, 0);
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4355,7 +4453,10 @@ msg_print("
                /* RF6_S_UNIQUE */
                case 160+31:
                {
-                       disturb(1, 0);
+                       bool uniques_are_summoned = FALSE;
+                       int non_unique_type = SUMMON_HI_UNDEAD;
+
+                       disturb(1, 1);
 #ifdef JP
 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
 #else
@@ -4372,28 +4473,26 @@ else msg_format("%^s
                        {
                                count += summon_specific(m_idx, y, x, rlev, SUMMON_UNIQUE, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
                        }
-                       if (r_ptr->flags3 & RF3_GOOD)
-                       {
-                               for (k = count; k < s_num_4; k++)
-                               {
-                                       count += summon_specific(m_idx, y, x, rlev, SUMMON_ANGEL, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
-                               }
-                       }
-                       else
+
+                       if (count) uniques_are_summoned = TRUE;
+
+                       if ((m_ptr->sub_align & (SUB_ALIGN_GOOD | SUB_ALIGN_EVIL)) == (SUB_ALIGN_GOOD | SUB_ALIGN_EVIL))
+                               non_unique_type = 0;
+                       else if (m_ptr->sub_align & SUB_ALIGN_GOOD)
+                               non_unique_type = SUMMON_ANGEL;
+
+                       for (k = count; k < s_num_4; k++)
                        {
-                               for (k = count; k < s_num_4; k++)
-                               {
-                                       count += summon_specific(m_idx, y, x, rlev, SUMMON_HI_UNDEAD, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
-                               }
+                               count += summon_specific(m_idx, y, x, rlev, non_unique_type, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
                        }
+
                        if (blind && count)
                        {
 #ifdef JP
-msg_print("¿¤¯¤ÎÎ϶¯¤¤¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬Ê¹¤³¤¨¤ë¡£");
+                               msg_format("¿¤¯¤Î%s¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬Ê¹¤³¤¨¤ë¡£", uniques_are_summoned ? "Î϶¯¤¤¤â¤Î" : "¤â¤Î");
 #else
-                               msg_print("You hear many powerful things appear nearby.");
+                               msg_format("You hear many %s appear nearby.", uniques_are_summoned ? "powerful things" : "things");
 #endif
-
                        }
                        break;
                }
@@ -4423,7 +4522,7 @@ msg_print("¿
                        p_ptr->mane_num++;
                        new_mane = TRUE;
 
-                       p_ptr->redraw |= (PR_MANE);
+                       p_ptr->redraw |= (PR_IMITATION);
                }
        }