- if (is_pet(m_ptr) && !player_cast) continue;
-
- /* Hack -- Skip unique monsters */
- if (r_ptr->flags1 & (RF1_UNIQUE)) angry = TRUE;
-
- /* Hack -- Skip Quest Monsters */
- else if (r_ptr->flags1 & RF1_QUESTOR) angry = TRUE;
-
- else if (r_ptr->flags7 & RF7_UNIQUE2) angry = TRUE;
-
- else if (i == p_ptr->riding) angry = TRUE;
-
- else if (player_cast && (r_ptr->level > randint0(power))) angry = TRUE;
-
- else if (player_cast && (m_ptr->mflag2 & MFLAG2_NOGENO)) angry = TRUE;
-
- /* Delete the monster */
- else delete_monster_idx(i);
-
- if (angry && player_cast)
- {
- monster_desc(m_name, m_ptr, 0);
- if (m_ptr->ml && !p_ptr->blind)
- {
-#ifdef JP
-msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", m_name);
-#else
- msg_format("%^s is unaffected.", m_name);
-#endif
- }
- if (m_ptr->csleep)
- {
- m_ptr->csleep = 0;
- if (r_ptr->flags7 & RF7_HAS_LD_MASK) p_ptr->update |= (PU_MON_LITE);
- if (m_ptr->ml && !p_ptr->blind)
- {
-#ifdef JP
-msg_format("%^s¤¬Ìܤò³Ð¤Þ¤·¤¿¡£", m_name);
-#else
- msg_format("%^s wakes up.", m_name);
-#endif
- }
- }
- if (is_friendly(m_ptr) && !is_pet(m_ptr))
- {
- if (m_ptr->ml && !p_ptr->blind)
- {
-#ifdef JP
- msg_format("%s¤ÏÅܤä¿¡ª", m_name);
-#else
- msg_format("%^s gets angry!", m_name);
-#endif
- }
- set_hostile(m_ptr);
- }
- if (one_in_(13)) m_ptr->mflag2 |= MFLAG2_NOGENO;
- }
-
- if (player_cast)
- {
- /* Hack -- visual feedback */