-#ifdef JP
-else msg_format("%^s¤¬°ðºÊ¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes lightning.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_ELEC, dam,0, TRUE, MS_BR_ELEC, learnable);
- update_smart_learn(m_idx, DRS_ELEC);
- break;
- }
-
- /* RF4_BR_FIRE */
- case 96+10:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬²Ð±ê¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes fire.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_FIRE, dam,0, TRUE, MS_BR_FIRE, learnable);
- update_smart_learn(m_idx, DRS_FIRE);
- break;
- }
-
- /* RF4_BR_COLD */
- case 96+11:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Î䵤¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes frost.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_COLD, dam,0, TRUE, MS_BR_COLD, learnable);
- update_smart_learn(m_idx, DRS_COLD);
- break;
- }
-
- /* RF4_BR_POIS */
- case 96+12:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥¬¥¹¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes gas.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 800 ? 800 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_POIS, dam, 0, TRUE, MS_BR_POIS, learnable);
- update_smart_learn(m_idx, DRS_POIS);
- break;
- }
-
-
- /* RF4_BR_NETH */
- case 96+13:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬ÃϹö¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes nether.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 550 ? 550 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_NETHER, dam,0, TRUE, MS_BR_NETHER, learnable);
- update_smart_learn(m_idx, DRS_NETH);
- break;
- }
-
- /* RF4_BR_LITE */
- case 96+14:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Á®¸÷¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes light.", m_name);
-#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);
- update_smart_learn(m_idx, DRS_LITE);
- break;
- }
-
- /* RF4_BR_DARK */
- case 96+15:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬°Å¹õ¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes darkness.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 400 ? 400 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_DARK, dam,0, TRUE, MS_BR_DARK, learnable);
- update_smart_learn(m_idx, DRS_DARK);
- break;
- }
-
- /* RF4_BR_CONF */
- case 96+16:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬º®Íð¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes confusion.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 450 ? 450 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_CONFUSION, dam,0, TRUE, MS_BR_CONF, learnable);
- update_smart_learn(m_idx, DRS_CONF);
- break;
- }
-
- /* RF4_BR_SOUN */
- case 96+17:
- {
- disturb(1, 0);
- if (m_ptr->r_idx == MON_JAIAN)
-#ifdef JP
- msg_format("¡Ö¥Ü¥©¥¨¡Á¡Á¡Á¡Á¡Á¡Á¡×");
-#else
- msg_format("'Booooeeeeee'");
-#endif
-#ifdef JP
-else if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¹ì²»¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes sound.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 450 ? 450 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_SOUND, dam,0, TRUE, MS_BR_SOUND, learnable);
- update_smart_learn(m_idx, DRS_SOUND);
- break;
- }
-
- /* RF4_BR_CHAO */
- case 96+18:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥«¥ª¥¹¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes chaos.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 600 ? 600 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_CHAOS, dam,0, TRUE, MS_BR_CHAOS, learnable);
- update_smart_learn(m_idx, DRS_CHAOS);
- break;
- }
-
- /* RF4_BR_DISE */
- case 96+19:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Îô²½¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes disenchantment.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 500 ? 500 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_DISENCHANT, dam,0, TRUE, MS_BR_DISEN, learnable);
- update_smart_learn(m_idx, DRS_DISEN);
- break;
- }
-
- /* RF4_BR_NEXU */
- case 96+20:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬°ø²Ìº®Íð¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes nexus.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 250 ? 250 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_NEXUS, dam,0, TRUE, MS_BR_NEXUS, learnable);
- update_smart_learn(m_idx, DRS_NEXUS);
- break;
- }
-
- /* RF4_BR_TIME */
- case 96+21:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬»þ´ÖµÕž¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes time.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 150 ? 150 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_TIME, dam,0, TRUE, MS_BR_TIME, learnable);
- break;
- }
-
- /* RF4_BR_INER */
- case 96+22:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬ÃÙÆߤΥ֥쥹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes inertia.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 200 ? 200 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_INERTIA, dam,0, TRUE, MS_BR_INERTIA, learnable);
- break;
- }
-
- /* RF4_BR_GRAV */
- case 96+23:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬½ÅÎϤΥ֥쥹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes gravity.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 200 ? 200 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_GRAVITY, dam,0, TRUE, MS_BR_GRAVITY, learnable);
- break;
- }
-
- /* RF4_BR_SHAR */
- case 96+24:
- {
- disturb(1, 0);
- if (m_ptr->r_idx == MON_BOTEI)
-#ifdef JP
- msg_format("¡Ö¥ÜÄë¥Ó¥ë¥«¥Ã¥¿¡¼¡ª¡ª¡ª¡×");
-#else
- msg_format("'Boty-Build cutter!!!'");
-#endif
-#ifdef JP
-else if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬ÇËÊҤΥ֥쥹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes shards.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 500 ? 500 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_SHARDS, dam,0, TRUE, MS_BR_SHARDS, learnable);
- update_smart_learn(m_idx, DRS_SHARD);
- break;
- }
-
- /* RF4_BR_PLAS */
- case 96+25:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥×¥é¥º¥Þ¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes plasma.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 150 ? 150 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_PLASMA, dam,0, TRUE, MS_BR_PLASMA, learnable);
- break;
- }
-
- /* RF4_BR_WALL */
- case 96+26:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥Õ¥©¡¼¥¹¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes force.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 200 ? 200 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_FORCE, dam,0, TRUE, MS_BR_FORCE, learnable);
- break;
- }
-
- /* RF4_BR_MANA */
- case 96+27:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬ËâÎϤΥ֥쥹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes mana.", m_name);
-#endif
- dam = ((m_ptr->hp / 3) > 250 ? 250 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_MANA, dam,0, TRUE, MS_BR_MANA, learnable);
- break;
- }
-
- /* RF4_BA_NUKE */
- case 96+28:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 ball of radiation.", m_name);
-#endif
-
- dam = (rlev + damroll(10, 6)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- breath(y, x, m_idx, GF_NUKE, dam, 2, FALSE, MS_BALL_NUKE, learnable);
- update_smart_learn(m_idx, DRS_POIS);
- break;
- }
-
- /* RF4_BR_NUKE */
- case 96+29:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Êü¼ÍÀÇÑ´þʪ¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes toxic waste.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 3) > 800 ? 800 : (m_ptr->hp / 3));
- breath(y, x, m_idx, GF_NUKE, dam,0, TRUE, MS_BR_NUKE, learnable);
- update_smart_learn(m_idx, DRS_POIS);
- break;
- }
-
- /* RF4_BA_CHAO */
- case 96+30:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬¶²¤í¤·¤²¤Ë¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles frighteningly.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬½ã¥í¥°¥ë¥¹¤òÊü¤Ã¤¿¡£", m_name);/*nuke me*/
-#else
- else msg_format("%^s invokes a raw Logrus.", m_name);
-#endif
-
- dam = ((r_ptr->flags2 & RF2_POWERFUL) ? (rlev * 3) : (rlev * 2))+ damroll(10, 10);
- breath(y, x, m_idx, GF_CHAOS, dam, 4, FALSE, MS_BALL_CHAOS, learnable);
- update_smart_learn(m_idx, DRS_CHAOS);
- break;
- }
-
- /* RF4_BR_DISI */
- case 96+31:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s breathes.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Ê¬²ò¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿¡£", m_name);
-#else
- else msg_format("%^s breathes disintegration.", m_name);
-#endif
-
- dam = ((m_ptr->hp / 6) > 150 ? 150 : (m_ptr->hp / 6));
- breath(y, x, m_idx, GF_DISINTEGRATE, dam,0, TRUE, MS_BR_DISI, learnable);
- break;
- }
-
-
-
- /* RF5_BA_ACID */
- case 128+0:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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);
- update_smart_learn(m_idx, DRS_ACID);
- break;
- }
-
- /* RF5_BA_ELEC */
- case 128+1:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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);
- update_smart_learn(m_idx, DRS_ELEC);
- break;
- }
-
- /* RF5_BA_FIRE */
- case 128+2:
- {
- disturb(1, 0);
-
- if (m_ptr->r_idx == MON_ROLENTO)
- {
-#ifdef JP
- if (blind)
- msg_format("%s¤¬²¿¤«¤òÅꤲ¤¿¡£", m_name);
- else
- msg_format("%s¤Ï¼êÜØÃƤòÅꤲ¤¿¡£", m_name);
-#else
- if (blind)
- msg_format("%^s throws something.", m_name);
- else
- msg_format("%^s throws a hand grenade.", m_name);
-#endif
- }
- else
- {
-#ifdef JP
-if (blind) 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);
- update_smart_learn(m_idx, DRS_FIRE);
- break;
- }
-
- /* RF5_BA_COLD */
- case 128+3:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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);
- update_smart_learn(m_idx, DRS_COLD);
- break;
- }
-
- /* RF5_BA_POIS */
- case 128+4:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 stinking cloud.", m_name);
-#endif
-
- dam = damroll(12, 2) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- breath(y, x, m_idx, GF_POIS, dam, 2, FALSE, MS_BALL_POIS, learnable);
- update_smart_learn(m_idx, DRS_POIS);
- break;
- }
-
- /* RF5_BA_NETH */
- case 128+5:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 nether ball.", m_name);
-#endif
-
- dam = 50 + damroll(10, 10) + (rlev * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1));
- breath(y, x, m_idx, GF_NETHER, dam, 2, FALSE, MS_BALL_NETHER, learnable);
- update_smart_learn(m_idx, DRS_NETH);
- break;
- }
-
- /* RF5_BA_WATE */
- case 128+6:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 gestures fluidly.", m_name);
-#endif
-
-#ifdef JP
-msg_print("¤¢¤Ê¤¿¤Ï±²´¬¤¤Ë°û¤ß¹þ¤Þ¤ì¤¿¡£");
-#else
- msg_print("You are engulfed in a whirlpool.");
-#endif
-
- dam = ((r_ptr->flags2 & RF2_POWERFUL) ? randint1(rlev * 3) : randint1(rlev * 2)) + 50;
- breath(y, x, m_idx, GF_WATER, dam, 4, FALSE, MS_BALL_WATER, learnable);
- break;
- }
-
- /* RF5_BA_MANA */
- case 128+7:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles powerfully.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬ËâÎϤÎÍò¤Î¼öʸ¤òÇ°¤¸¤¿¡£", m_name);
-#else
- else msg_format("%^s invokes a mana storm.", m_name);
-#endif
-
- dam = (rlev * 4) + 50 + damroll(10, 10);
- breath(y, x, m_idx, GF_MANA, dam, 4, FALSE, MS_BALL_MANA, learnable);
- break;
- }
-
- /* RF5_BA_DARK */
- case 128+8:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles powerfully.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬°Å¹õ¤ÎÍò¤Î¼öʸ¤òÇ°¤¸¤¿¡£", m_name);
-#else
- else msg_format("%^s invokes a darkness storm.", m_name);
-#endif
-
- dam = (rlev * 4) + 50 + damroll(10, 10);
- breath(y, x, m_idx, GF_DARK, dam, 4, FALSE, MS_BALL_DARK, learnable);
- update_smart_learn(m_idx, DRS_DARK);
- break;
- }
-
- /* RF5_DRAIN_MANA */
- case 128+9:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
- if (p_ptr->csp)
- {
- int r1;
-
- /* Basic message */
-#ifdef JP
-msg_format("%^s¤ËÀº¿À¥¨¥Í¥ë¥®¡¼¤òµÛ¤¤¼è¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¡ª", m_name);
-#else
- msg_format("%^s draws psychic energy from you!", m_name);
-#endif
-
-
- /* Attack power */
- r1 = (randint1(rlev) / 2) + 1;
-
- /* Full drain */
- if (r1 >= p_ptr->csp)
- {
- r1 = p_ptr->csp;
- p_ptr->csp = 0;
- p_ptr->csp_frac = 0;
- }
-
- /* Partial drain */
- else
- {
- p_ptr->csp -= r1;
- }
-
- learn_spell(MS_DRAIN_MANA);
-
- /* Redraw mana */
- p_ptr->redraw |= (PR_MANA);
-
- /* Window stuff */
- p_ptr->window |= (PW_PLAYER);
- p_ptr->window |= (PW_SPELL);
-
- /* Heal the monster */
- if (m_ptr->hp < m_ptr->maxhp)
- {
- /* Heal */
- m_ptr->hp += (6 * r1);
- if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
-
- /* Redraw (later) if needed */
- if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
-
- /* Special message */
- if (seen)
- {
-#ifdef JP
-msg_format("%^s¤Ïµ¤Ê¬¤¬Îɤµ¤½¤¦¤À¡£", m_name);
-#else
- msg_format("%^s appears healthier.", m_name);
-#endif
-
- }
- }
- }
- update_smart_learn(m_idx, DRS_MANA);
- break;
- }
-
- /* RF5_MIND_BLAST */
- case 128+10:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
- if (!seen)
- {
-#ifdef JP
-msg_print("²¿¤«¤¬¤¢¤Ê¤¿¤ÎÀº¿À¤ËÇ°¤òÊü¤Ã¤Æ¤¤¤ë¤è¤¦¤À¡£");
-#else
- msg_print("You feel something focusing on your mind.");
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤¬¤¢¤Ê¤¿¤ÎÆ·¤ò¤¸¤Ã¤È¤Ë¤é¤ó¤Ç¤¤¤ë¡£", m_name);
-#else
- msg_format("%^s gazes deep into your eyes.", m_name);
-#endif
-
- }
-
- dam = damroll(7, 7);
- breath(y, x, m_idx, GF_MIND_BLAST, dam, 0, FALSE, MS_MIND_BLAST, learnable);
- break;
- }
-
- /* RF5_BRAIN_SMASH */
- case 128+11:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
- if (!seen)
- {
-#ifdef JP
-msg_print("²¿¤«¤¬¤¢¤Ê¤¿¤ÎÀº¿À¤ËÇ°¤òÊü¤Ã¤Æ¤¤¤ë¤è¤¦¤À¡£");
-#else
- msg_print("You feel something focusing on your mind.");
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤¬¤¢¤Ê¤¿¤ÎÆ·¤ò¤¸¤Ã¤È¸«¤Æ¤¤¤ë¡£", m_name);
-#else
- msg_format("%^s looks deep into your eyes.", m_name);
-#endif
-
- }
-
- dam = damroll(12, 12);
- breath(y, x, m_idx, GF_BRAIN_SMASH, dam, 0, FALSE, MS_BRAIN_SMASH, learnable);
- break;
- }
-
- /* RF5_CAUSE_1 */
- case 128+12:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 points at you and curses.", m_name);
-#endif
-
- dam = damroll(3, 8);
- breath(y, x, m_idx, GF_CAUSE_1, dam, 0, FALSE, MS_CAUSE_1, learnable);
- break;
- }
-
- /* RF5_CAUSE_2 */
- case 128+13:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 points at you and curses horribly.", m_name);
-#endif
-
- dam = damroll(8, 8);
- breath(y, x, m_idx, GF_CAUSE_2, dam, 0, FALSE, MS_CAUSE_2, learnable);
- break;
- }
-
- /* RF5_CAUSE_3 */
- case 128+14:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤òÂçÀ¼¤Ç¶«¤ó¤À¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles loudly.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¤¢¤Ê¤¿¤ò»Ø¤µ¤·¤Æ¶²¤í¤·¤²¤Ë¼öʸ¤ò¾§¤¨¤¿¡ª", m_name);
-#else
- else msg_format("%^s points at you, incanting terribly!", m_name);
-#endif
-
- dam = damroll(10, 15);
- breath(y, x, m_idx, GF_CAUSE_3, dam, 0, FALSE, MS_CAUSE_3, learnable);
- break;
- }
-
- /* RF5_CAUSE_4 */
- case 128+15:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£", m_name);
-#else
- if (blind) msg_format("%^s screams the word 'DIE!'", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¤¢¤Ê¤¿¤ÎÈ빦¤òÆͤ¤¤Æ¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£", m_name);
-#else
- else msg_format("%^s points at you, screaming the word DIE!", m_name);
-#endif
-
- dam = damroll(15, 15);
- breath(y, x, m_idx, GF_CAUSE_4, dam, 0, FALSE, MS_CAUSE_4, learnable);
- break;
- }
-
- /* RF5_BO_ACID */
- case 128+16:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 acid bolt.", m_name);
-#endif
-
- dam = (damroll(7, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- bolt(m_idx, GF_ACID, dam, MS_BOLT_ACID, learnable);
- update_smart_learn(m_idx, DRS_ACID);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_ELEC */
- case 128+17:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 bolt.", m_name);
-#endif
-
- dam = (damroll(4, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- bolt(m_idx, GF_ELEC, dam, MS_BOLT_ELEC, learnable);
- update_smart_learn(m_idx, DRS_ELEC);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_FIRE */
- case 128+18:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 bolt.", m_name);
-#endif
-
- dam = (damroll(9, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- bolt(m_idx, GF_FIRE, dam, MS_BOLT_FIRE, learnable);
- update_smart_learn(m_idx, DRS_FIRE);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_COLD */
- case 128+19:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 bolt.", m_name);
-#endif
-
- dam = (damroll(6, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
- bolt(m_idx, GF_COLD, dam, MS_BOLT_COLD, learnable);
- update_smart_learn(m_idx, DRS_COLD);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BA_LITE */
- case 128+20:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles powerfully.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¥¹¥¿¡¼¥Ð¡¼¥¹¥È¤Î¼öʸ¤òÇ°¤¸¤¿¡£", m_name);
-#else
- else msg_format("%^s invokes a starburst.", m_name);
-#endif
-
- dam = (rlev * 4) + 50 + damroll(10, 10);
- breath(y, x, m_idx, GF_LITE, dam, 4, FALSE, MS_STARBURST, learnable);
- update_smart_learn(m_idx, DRS_LITE);
- break;
- }
-
- /* RF5_BO_NETH */
- case 128+21:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 nether bolt.", m_name);
-#endif
-
- dam = 30 + damroll(5, 5) + (rlev * 4) / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3);
- bolt(m_idx, GF_NETHER, dam, MS_BOLT_NETHER, learnable);
- update_smart_learn(m_idx, DRS_NETH);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_WATE */
- case 128+22:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 water bolt.", m_name);
-#endif
-
- dam = damroll(10, 10) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
- bolt(m_idx, GF_WATER, dam, MS_BOLT_WATER, learnable);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_MANA */
- case 128+23:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 mana bolt.", m_name);
-#endif
-
- dam = randint1(rlev * 7 / 2) + 50;
- bolt(m_idx, GF_MANA, dam, MS_BOLT_MANA, learnable);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_PLAS */
- case 128+24:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 plasma bolt.", m_name);
-#endif
-
- dam = 10 + damroll(8, 7) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
- bolt(m_idx, GF_PLASMA, dam, MS_BOLT_PLASMA, learnable);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_BO_ICEE */
- case 128+25:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 ice bolt.", m_name);
-#endif
-
- dam = damroll(6, 6) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
- bolt(m_idx, GF_ICE, dam, MS_BOLT_ICE, learnable);
- update_smart_learn(m_idx, DRS_COLD);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_MISSILE */
- case 128+26:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magic missile.", m_name);
-#endif
-
- dam = damroll(2, 6) + (rlev / 3);
- bolt(m_idx, GF_MISSILE, dam, MS_MAGIC_MISSILE, learnable);
- update_smart_learn(m_idx, DRS_REFLECT);
- break;
- }
-
- /* RF5_SCARE */
- case 128+27:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¯¤È¡¢¶²¤í¤·¤²¤Ê²»¤¬Ê¹¤³¤¨¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles, and you hear scary noises.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¶²¤í¤·¤²¤Ê¸¸³Ð¤òºî¤ê½Ð¤·¤¿¡£", m_name);
-#else
- else msg_format("%^s casts a fearful illusion.", m_name);
-#endif
-
- if (p_ptr->resist_fear)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¶²Éݤ˿¯¤µ¤ì¤Ê¤«¤Ã¤¿¡£");
-#else
- msg_print("You refuse to be frightened.");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¶²Éݤ˿¯¤µ¤ì¤Ê¤«¤Ã¤¿¡£");
-#else
- msg_print("You refuse to be frightened.");
-#endif
-
- }
- else
- {
- (void)set_afraid(p_ptr->afraid + randint0(4) + 4);
- }
- learn_spell(MS_SCARE);
- update_smart_learn(m_idx, DRS_FEAR);
- break;
- }
-
- /* RF5_BLIND */
- case 128+28:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 spell, burning your eyes!", m_name);
-#endif
-
- if (p_ptr->resist_blind)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª");
-#else
- msg_print("You are unaffected!");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
-#else
- msg_print("You resist the effects!");
-#endif
-
- }
- else
- {
- (void)set_blind(12 + randint0(4));
- }
- learn_spell(MS_BLIND);
- update_smart_learn(m_idx, DRS_BLIND);
- break;
- }
-
- /* RF5_CONF */
- case 128+29:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¯¤È¡¢Æ¬¤òǺ¤Þ¤¹²»¤¬¤·¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles, and you hear puzzling noises.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬Í¶ÏÇŪ¤Ê¸¸³Ð¤òºî¤ê½Ð¤·¤¿¡£", m_name);
-#else
- else msg_format("%^s creates a mesmerising illusion.", m_name);
-#endif
-
- if (p_ptr->resist_conf)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸¸³Ð¤Ë¤Ï¤À¤Þ¤µ¤ì¤Ê¤«¤Ã¤¿¡£");
-#else
- msg_print("You disbelieve the feeble spell.");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸¸³Ð¤Ë¤Ï¤À¤Þ¤µ¤ì¤Ê¤«¤Ã¤¿¡£");
-#else
- msg_print("You disbelieve the feeble spell.");
-#endif
-
- }
- else
- {
- (void)set_confused(p_ptr->confused + randint0(4) + 4);
- }
- learn_spell(MS_CONF);
- update_smart_learn(m_idx, DRS_CONF);
- break;
- }
-
- /* RF5_SLOW */
- case 128+30:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬¤¢¤Ê¤¿¤Î¶ÚÎϤòµÛ¤¤¼è¤í¤¦¤È¤·¤¿¡ª", m_name);
-#else
- msg_format("%^s drains power from your muscles!", m_name);
-#endif
-
- if (p_ptr->free_act)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª");
-#else
- msg_print("You are unaffected!");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
-#else
- msg_print("You resist the effects!");
-#endif
-
- }
- else
- {
- (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
- }
- learn_spell(MS_SLOW);
- update_smart_learn(m_idx, DRS_FREE);
- break;
- }
-
- /* RF5_HOLD */
- case 128+31:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 stares deep into your eyes!", m_name);
-#endif
-
- if (p_ptr->free_act)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª");
-#else
- msg_print("You are unaffected!");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_format("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
-#else
- msg_format("You resist the effects!");
-#endif
-
- }
- else
- {
- (void)set_paralyzed(p_ptr->paralyzed + randint0(4) + 4);
- }
- learn_spell(MS_SLEEP);
- update_smart_learn(m_idx, DRS_FREE);
- break;
- }
-
- /* RF6_HASTE */
- case 160+0:
- {
- disturb(1, 0);
- if (blind)
- {
-#ifdef JP
-msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- msg_format("%^s mumbles.", m_name);
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤¬¼«Ê¬¤ÎÂΤËÇ°¤òÁ÷¤Ã¤¿¡£", m_name, m_poss);
-#else
- msg_format("%^s concentrates on %s body.", m_name, m_poss);
-#endif
-
- }
-
- /* Allow quick speed increases to base+10 */
- if (!m_ptr->fast)
- {
-#ifdef JP
-msg_format("%^s¤ÎÆ°¤¤¬Â®¤¯¤Ê¤Ã¤¿¡£", m_name);
-#else
- msg_format("%^s starts moving faster.", m_name);
-#endif
- }
- m_ptr->fast = MIN(200, m_ptr->fast + 100);
- if (p_ptr->riding == m_idx) p_ptr->update |= PU_BONUS;
- break;
- }
-
- /* RF6_HAND_DOOM */
- case 160+1:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬ÇËÌǤμê¤òÊü¤Ã¤¿¡ª", m_name);
-#else
- msg_format("%^s invokes the Hand of Doom!", m_name);
-#endif
- dam = (((s32b) ((40 + randint1(20)) * (p_ptr->chp))) / 100);
- breath(y, x, m_idx, GF_HAND_DOOM, dam, 0, FALSE, MS_HAND_DOOM, learnable);
- break;
- }
-
- /* RF6_HEAL */
- case 160+2:
- {
- disturb(1, 0);
-
- /* Message */
- if (blind)
- {
-#ifdef JP
-msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- msg_format("%^s mumbles.", m_name);
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤¬¼«Ê¬¤Î½ý¤Ë½¸Ã椷¤¿¡£", m_name);
-#else
- msg_format("%^s concentrates on %s wounds.", m_name, m_poss);
-#endif
-
- }
-
- /* Heal some */
- m_ptr->hp += (rlev * 6);
-
- /* Fully healed */
- if (m_ptr->hp >= m_ptr->maxhp)
- {
- /* Fully healed */
- m_ptr->hp = m_ptr->maxhp;
-
- /* Message */
- if (seen)
- {
-#ifdef JP
-msg_format("%^s¤Ï´°Á´¤Ë¼£¤Ã¤¿¡ª", m_name);
-#else
- msg_format("%^s looks completely healed!", m_name);
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤Ï´°Á´¤Ë¼£¤Ã¤¿¤è¤¦¤À¡ª", m_name);
-#else
- msg_format("%^s sounds completely healed!", m_name);
-#endif
-
- }
- }
-
- /* Partially healed */
- else
- {
- /* Message */
- if (seen)
- {
-#ifdef JP
-msg_format("%^s¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£", m_name);
-#else
- msg_format("%^s looks healthier.", m_name);
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%^s¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£", m_name);
-#else
- msg_format("%^s sounds healthier.", m_name);
-#endif
-
- }
- }
-
- /* Redraw (later) if needed */
- if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
-
- /* Cancel fear */
- if (m_ptr->monfear)
- {
- /* Cancel fear */
- m_ptr->monfear = 0;
-
- /* Message */
-#ifdef JP
-msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name, m_poss);
-#else
- msg_format("%^s recovers %s courage.", m_name, m_poss);
-#endif
-
- }
- break;
- }
-
- /* RF6_INVULNER */
- case 160+3:
- {
- disturb(1, 0);
-
- /* Message */
- if (!seen)
- {
-#ifdef JP
-msg_format("%^s¤¬²¿¤«¤òÎ϶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- msg_format("%^s mumbles powerfully.", m_name);
-#endif
-
- }
- else
- {
-#ifdef JP
-msg_format("%s¤Ï̵½ý¤Îµå¤Î¼öʸ¤ò¾§¤¨¤¿¡£", m_name);
-#else
- msg_format("%^s casts a Globe of Invulnerability.", m_name);
-#endif
-
- }
-
- if (!(m_ptr->invulner))
- m_ptr->invulner = randint1(4) + 4;
-
- if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
- break;
- }
-
- /* RF6_BLINK */
- case 160+4:
- {
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬½Ö»þ¤Ë¾Ã¤¨¤¿¡£", m_name);
-#else
- msg_format("%^s blinks away.", m_name);
-#endif
-
- teleport_away(m_idx, 10, FALSE);
- p_ptr->update |= (PU_MONSTERS | PU_MON_LITE);
- break;
- }
-
- /* RF6_TPORT */
- case 160+5:
- {
- int i, oldfy, oldfx;
- u32b flgs[TR_FLAG_SIZE];
- object_type *o_ptr;
-
- oldfy = m_ptr->fy;
- oldfx = m_ptr->fx;
-
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬¥Æ¥ì¥Ý¡¼¥È¤·¤¿¡£", m_name);
-#else
- msg_format("%^s teleports away.", m_name);
-#endif
-
- teleport_away(m_idx, MAX_SIGHT * 2 + 5, FALSE);
-
- if (los(py, px, oldfy, oldfx) && !world_monster)
- {
- for (i=INVEN_RARM;i<INVEN_TOTAL;i++)
- {
- o_ptr = &inventory[i];
- if(!cursed_p(o_ptr))
- {
- object_flags(o_ptr, flgs);
-
- if((have_flag(flgs, TR_TELEPORT)) || (p_ptr->muta1 & MUT1_VTELEPORT) || (p_ptr->pclass == CLASS_IMITATOR))
- {
-#ifdef JP
- if(get_check_strict("¤Ä¤¤¤Æ¤¤¤¤Þ¤¹¤«¡©", CHECK_OKAY_CANCEL))
-#else
- if(get_check_strict("Do you follow it? ", CHECK_OKAY_CANCEL))
-#endif
- {
- if (one_in_(3))
- {
- teleport_player(200);
-#ifdef JP
- msg_print("¼ºÇÔ¡ª");
-#else
- msg_print("Failed!");
-#endif
- }
- else teleport_player_to(m_ptr->fy, m_ptr->fx, TRUE);
- p_ptr->energy_need += ENERGY_NEED();
- }
- break;
- }
- }
- }
- }
- break;
- }
-
- /* RF6_WORLD */
- case 160+6:
- {
- int who = 0;
- disturb(1, 0);
- if(m_ptr->r_idx == MON_DIO) who = 1;
- else if(m_ptr->r_idx == MON_WONG) who = 3;
- dam = who;
- if (!process_the_world(randint1(2)+2, who, TRUE)) return (FALSE);
- break;
- }
-
- /* RF6_SPECIAL */
- case 160+7:
- {
- int k;
-
- disturb(1, 0);
- switch(m_ptr->r_idx)
- {
- case MON_OHMU:
- if (p_ptr->inside_arena || p_ptr->inside_battle) return FALSE;
- for (k = 0; k < 6; k++)
- {
- count += summon_specific(m_idx, m_ptr->fy, m_ptr->fx, rlev, SUMMON_BIZARRE1, PM_ALLOW_GROUP);
- }
- return FALSE;
-
- case MON_BANORLUPART:
- {
- int dummy_hp = (m_ptr->hp + 1) / 2;
- int dummy_maxhp = m_ptr->maxhp/2;
- int dummy_y = m_ptr->fy;
- int dummy_x = m_ptr->fx;
-
- if (p_ptr->inside_arena || p_ptr->inside_battle || !summon_possible(m_ptr->fy, m_ptr->fx)) return FALSE;
- delete_monster_idx(cave[m_ptr->fy][m_ptr->fx].m_idx);
- summon_named_creature(0, dummy_y, dummy_x, MON_BANOR, mode);
- m_list[hack_m_idx_ii].hp = dummy_hp;
- m_list[hack_m_idx_ii].maxhp = dummy_maxhp;
- summon_named_creature(0, dummy_y, dummy_x, MON_LUPART, mode);
- m_list[hack_m_idx_ii].hp = dummy_hp;
- m_list[hack_m_idx_ii].maxhp = dummy_maxhp;
-
-#ifdef JP
- msg_print("¡Ø¥Ð¡¼¥Î¡¼¥ë¡¦¥ë¥Ñ¡¼¥È¡Ù¤¬Ê¬Îö¤·¤¿¡ª");
-#else
- msg_print("Banor=Rupart splits in two person!");
-#endif
-
- break;
- }
- case MON_BANOR:
- case MON_LUPART:
- {
- int dummy_hp = 0;
- int dummy_maxhp = 0;
- int dummy_y = m_ptr->fy;
- int dummy_x = m_ptr->fx;
-
- if (!r_info[MON_BANOR].cur_num || !r_info[MON_LUPART].cur_num) return (FALSE);
- for (k = 1; k < m_max; k++)
- {
- if (m_list[k].r_idx == MON_BANOR || m_list[k].r_idx == MON_LUPART)
- {
- dummy_hp += m_list[k].hp;
- dummy_maxhp += m_list[k].maxhp;
- if (m_list[k].r_idx != m_ptr->r_idx)
- {
- dummy_y = m_list[k].fy;
- dummy_x = m_list[k].fx;
- }
- delete_monster_idx(k);
- }
- }
- summon_named_creature(0, dummy_y, dummy_x, MON_BANORLUPART, mode);
- m_list[hack_m_idx_ii].hp = dummy_hp;
- m_list[hack_m_idx_ii].maxhp = dummy_maxhp;
-
-#ifdef JP
- msg_print("¡Ø¥Ð¡¼¥Î¡¼¥ë¡Ù¤È¡Ø¥ë¥Ñ¡¼¥È¡Ù¤¬¹çÂΤ·¤¿¡ª");
-#else
- msg_print("Banor and Rupart combine into one!");
-#endif
-
- break;
- }
-
- default:
- if (r_ptr->d_char == 'B')
- {
- if (!direct) break;
- disturb(1, 0);
- if (one_in_(3) || x!=px || y!=py)
- {
-#ifdef JP
- msg_format("%^s¤ÏÆÍÁ³»ë³¦¤«¤é¾Ã¤¨¤¿!", m_name);
-#else
- msg_format("%^s suddenly go out of your sight!", m_name);
-#endif
- teleport_away(m_idx, 10, FALSE);
- p_ptr->update |= (PU_MONSTERS | PU_MON_LITE);
- }
- else
- {
- int dam = damroll(4, 8);
- int get_damage = 0;
-#ifdef JP
- msg_format("%^s¤¬¤¢¤Ê¤¿¤òÄϤó¤Ç¶õÃ椫¤éÅꤲÍ¤¿¡£", m_name);
-#else
- msg_format("%^s holds you, and drops from the sky.", m_name);
-#endif
- teleport_player_to(m_ptr->fy, m_ptr->fx, FALSE);
-
- sound(SOUND_FALL);
-
- if (p_ptr->ffall)
- {
-#ifdef JP
- msg_print("¤¢¤Ê¤¿¤ÏÀŤ«¤ËÃåÃϤ·¤¿¡£");
-#else
- msg_print("You float gently down to the ground.");
-#endif
- }
- else
- {
-#ifdef JP
- msg_print("¤¢¤Ê¤¿¤ÏÃÏÌ̤ËᤤĤ±¤é¤ì¤¿¡£");
-#else
- msg_print("You crashed into the ground.");
-#endif
- dam += damroll(6, 8);
- }
-
- /* Mega hack -- this special action deals damage to the player. Therefore the code of "eyeeye" is necessary.
- -- henkma
- */
- get_damage = take_hit(DAMAGE_NOESCAPE, dam, m_name, -1);
- if (p_ptr->tim_eyeeye && get_damage > 0 && !p_ptr->is_dead)
- {
-#ifdef JP
- msg_format("¹¶·â¤¬%s¼«¿È¤ò½ý¤Ä¤±¤¿¡ª", m_name);
-#else
- char m_name_self[80];
-
- /* hisself */
- monster_desc(m_name_self, m_ptr, 0x23);
-
- msg_format("The attack of %s has wounded %s!", m_name, m_name_self);
-#endif
- project(0, 0, m_ptr->fy, m_ptr->fx, get_damage, GF_MISSILE, PROJECT_KILL, -1);
- set_tim_eyeeye(p_ptr->tim_eyeeye-5, TRUE);
- }
- }
- break;
- }
-
- /* Something is wrong */
- else return FALSE;
- }
- break;
- }
-
- /* RF6_TELE_TO */
- case 160+8:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬¤¢¤Ê¤¿¤ò°ú¤Ìᤷ¤¿¡£", m_name);
-#else
- msg_format("%^s commands you to return.", m_name);
-#endif
-
- teleport_player_to(m_ptr->fy, m_ptr->fx, TRUE);
- learn_spell(MS_TELE_TO);
- break;
- }
-
- /* RF6_TELE_AWAY */
- case 160+9:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤Ë¥Æ¥ì¥Ý¡¼¥È¤µ¤»¤é¤ì¤¿¡£", m_name);
- if ((p_ptr->pseikaku == SEIKAKU_COMBAT) || (inventory[INVEN_BOW].name1 == ART_CRIMSON))
- msg_print("¤¯¤Ã¤½¡Á");
-#else
- msg_format("%^s teleports you away.", m_name);
-#endif
-
- learn_spell(MS_TELE_AWAY);
- teleport_player(100);
- break;
- }
-
- /* RF6_TELE_LEVEL */
- case 160+10:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«´ñ̯¤Ê¸ÀÍÕ¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles strangely.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¤¢¤Ê¤¿¤Î¤ò»Ø¤µ¤·¤¿¡£", m_name);
-#else
- else msg_format("%^s gestures at your feet.", m_name);
-#endif
-
- if (p_ptr->resist_nexus)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª");
-#else
- msg_print("You are unaffected!");
-#endif
-
- }
- else if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
-#else
- msg_print("You resist the effects!");
-#endif
-
- }
- else
- {
- teleport_player_level();
- }
- learn_spell(MS_TELE_LEVEL);
- update_smart_learn(m_idx, DRS_NEXUS);
- break;
- }
-
- /* RF6_PSY_SPEAR */
- case 160+11:
- {
- if (x!=px || y!=py) return (FALSE);
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 throw a Psycho-Spear.", m_name);
-#endif
-
- dam = (r_ptr->flags2 & RF2_POWERFUL) ? (randint1(rlev * 2) + 150) : (randint1(rlev * 3 / 2) + 100);
- beam(m_idx, GF_PSY_SPEAR, dam, MS_PSY_SPEAR, learnable);
- break;
- }
-
- /* RF6_DARKNESS */
- case 160+12:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles.", m_name);
-#endif
-
-#ifdef JP
-else if (p_ptr->pclass == CLASS_NINJA) msg_format("%^s¤¬ÊÕ¤ê¤òÌÀ¤ë¤¯¾È¤é¤·¤¿¡£", m_name);
-else msg_format("%^s¤¬°Å°Ç¤ÎÃæ¤Ç¼ê¤ò¿¶¤Ã¤¿¡£", m_name);
-#else
- else if (p_ptr->pclass == CLASS_NINJA)
- msg_format("%^s cast a spell to light up.", m_name);
- else msg_format("%^s gestures in shadow.", m_name);
-#endif
-
- learn_spell(MS_DARKNESS);
- if (p_ptr->pclass == CLASS_NINJA)
- (void)lite_area(0, 3);
- else
- (void)unlite_area(0, 3);
- break;
- }
-
- /* RF6_TRAPS */
- case 160+13:
- {
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤Æ¼Ù°¤ËÈù¾Ð¤ó¤À¡£", m_name);
-#else
- if (blind) msg_format("%^s mumbles, and then cackles evilly.", m_name);
-#endif
-
-#ifdef JP
-else msg_format("%^s¤¬¼öʸ¤ò¾§¤¨¤Æ¼Ù°¤ËÈù¾Ð¤ó¤À¡£", m_name);
-#else
- else msg_format("%^s casts a spell and cackles evilly.", m_name);
-#endif
-
- learn_spell(MS_MAKE_TRAP);
- (void)trap_creation(y, x);
- break;
- }
-
- /* RF6_FORGET */
- case 160+14:
- {
- if (x!=px || y!=py) return (FALSE);
- if (!direct) break;
- disturb(1, 0);
-#ifdef JP
-msg_format("%^s¤¬¤¢¤Ê¤¿¤Îµ²±¤ò¾Ãµî¤·¤è¤¦¤È¤·¤Æ¤¤¤ë¡£", m_name);
-#else
- msg_format("%^s tries to blank your mind.", m_name);
-#endif
-
-
- if (randint0(100 + rlev/2) < p_ptr->skill_sav)
- {
-#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
-#else
- msg_print("You resist the effects!");
-#endif
-
- }
- else if (lose_all_info())
- {
-#ifdef JP
-msg_print("µ²±¤¬Çö¤ì¤Æ¤·¤Þ¤Ã¤¿¡£");
-#else
- msg_print("Your memories fade away.");
-#endif
-
- }
- learn_spell(MS_FORGET);
- break;
- }
-
- /* RF6_RAISE_DEAD */
- case 160+15:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 spell to revive corpses.", m_name);
-#endif
- animate_dead(m_idx, m_ptr->fy, m_ptr->fx);
- break;
- }
-
- /* RF6_SUMMON_KIN */
- case 160+16:
- {
- disturb(1, 0);
- if (m_ptr->r_idx == MON_ROLENTO)
- {
-#ifdef JP
- if (blind)
- msg_format("%^s¤¬²¿¤«ÂçÎ̤ËÅꤲ¤¿¡£", m_name);
- else
- msg_format("%^s¤Ï¼êÜØÃƤò¤Ð¤é¤Þ¤¤¤¿¡£", m_name);
-#else
- if (blind)
- msg_format("%^s spreads something.", m_name);
- else
- msg_format("%^s throws some hand grenades.", m_name);
-#endif
- }
- else if (m_ptr->r_idx == MON_SERPENT || m_ptr->r_idx == MON_ZOMBI_SERPENT)
- {
-#ifdef JP
- if (blind)
- msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
- else
- msg_format("%^s¤¬¥À¥ó¥¸¥ç¥ó¤Î¼ç¤ò¾¤´¤·¤¿¡£", m_name);
-#else
- if (blind)
- msg_format("%^s mumbles.", m_name);
- else
- msg_format("%^s magically summons guardians of dungeons.", m_name);
-#endif
- }
- else
- {
-#ifdef JP
- if (blind)
- msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
- else
- msg_format("%^s¤ÏËâË¡¤Ç%s¤ò¾¤´¤·¤¿¡£",
- m_name,
- ((r_ptr->flags1) & RF1_UNIQUE ?
- "¼ê²¼" : "Ãç´Ö"));
-#else
- if (blind)
- msg_format("%^s mumbles.", m_name);
- else
- msg_format("%^s magically summons %s %s.",
- m_name, m_poss,
- ((r_ptr->flags1) & RF1_UNIQUE ?
- "minions" : "kin"));
-#endif
- }
-
- if(m_ptr->r_idx == MON_ROLENTO)
- {
- int num = 1 + randint1(3);
-
- for (k = 0; k < num; k++)
- {
- count += summon_named_creature(m_idx, y, x, MON_SHURYUUDAN, mode);
- }
- }
- else if(m_ptr->r_idx == MON_THORONDOR ||
- m_ptr->r_idx == MON_GWAIHIR ||
- m_ptr->r_idx == MON_MENELDOR)
- {
- int num = 4 + randint1(3);
- for (k = 0; k < num; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_EAGLES, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
- }
- else if(m_ptr->r_idx == MON_LOUSY)
- {
- int num = 2 + randint1(3);
- for (k = 0; k < num; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_LOUSE, PM_ALLOW_GROUP);
- }
- }
- else if(m_ptr->r_idx == MON_BULLGATES)
- {
- int num = 2 + randint1(3);
- for (k = 0; k < num; k++)
- {
- count += summon_named_creature(m_idx, y, x, 921, mode);
- }
- }
- else if (m_ptr->r_idx == MON_CALDARM)
- {
- int num = randint1(3);
- for (k = 0; k < num; k++)
- {
- count += summon_named_creature(m_idx, y, x, 930, mode);
- }
- }
- else if (m_ptr->r_idx == MON_SERPENT || m_ptr->r_idx == MON_ZOMBI_SERPENT)
- {
- int num = 2 + randint1(3);
-
- if (r_info[MON_JORMUNGAND].cur_num < r_info[MON_JORMUNGAND].max_num && one_in_(6))
- {
-#ifdef JP
- msg_print("ÃÏÌ̤«¤é¿å¤¬¿á¤½Ð¤·¤¿¡ª");
-#else
- msg_print("Water blew off from the ground!");
-#endif
- fire_ball_hide(GF_WATER_FLOW, 0, 3, 8);
- }
-
- for (k = 0; k < num; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_GUARDIANS, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
- }
- else
- {
-
- summon_kin_type = r_ptr->d_char; /* Big hack */
-
- for (k = 0; k < 4; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_KIN, PM_ALLOW_GROUP);
- }
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
-
- break;
- }
-
- /* RF6_S_CYBER */
- case 160+17:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons Cyberdemons!", m_name);
-#endif
-
-#ifdef JP
-if (blind && count) msg_print("½Å¸ü¤Ê²»¤¬¶á¤¯¤Çʹ¤³¤¨¤ë¡£");
-#else
- if (blind && count) msg_print("You hear heavy steps nearby.");
-#endif
-
- summon_cyber(m_idx, y, x);
- break;
- }
-
- /* RF6_S_MONSTER */
- case 160+18:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons help!", m_name);
-#endif
-
- for (k = 0; k < 1; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
-#ifdef JP
-if (blind && count) msg_print("²¿¤«¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear something appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_MONSTERS */
- case 160+19:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons monsters!", m_name);
-#endif
-
- for (k = 0; k < s_num_6; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_ANT */
- case 160+20:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons ants.", m_name);
-#endif
-
- for (k = 0; k < s_num_6; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_ANT, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_SPIDER */
- case 160+21:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons spiders.", m_name);
-#endif
-
- for (k = 0; k < s_num_6; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_SPIDER, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_HOUND */
- case 160+22:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons hounds.", m_name);
-#endif
-
- for (k = 0; k < s_num_4; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_HOUND, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_HYDRA */
- case 160+23:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons hydras.", m_name);
-#endif
-
- for (k = 0; k < s_num_4; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_HYDRA, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear many things appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_ANGEL */
- case 160+24:
- {
- int num = 1;
-
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons an angel!", m_name);
-#endif
-
- if ((r_ptr->flags1 & RF1_UNIQUE) && !easy_band)
- {
- num += r_ptr->level/40;
- }
-
- for (k = 0; k < num; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_ANGEL, PM_ALLOW_GROUP);
- }
-
- if (count < 2)
- {
-#ifdef JP
-if (blind && count) msg_print("²¿¤«¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear something appear nearby.");
-#endif
- }
- else
- {
-#ifdef JP
-if (blind) msg_print("¿¤¯¤Î¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind) msg_print("You hear many things appear nearby.");
-#endif
- }
-
- break;
- }
-
- /* RF6_S_DEMON */
- case 160+25:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons a demon from the Courts of Chaos!", m_name);
-#endif
-
- for (k = 0; k < 1; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_DEMON, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("²¿¤«¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear something appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_UNDEAD */
- case 160+26:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons an undead adversary!", m_name);
-#endif
-
- for (k = 0; k < 1; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_UNDEAD, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("²¿¤«¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear something appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_DRAGON */
- case 160+27:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons a dragon!", m_name);
-#endif
-
- for (k = 0; k < 1; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_DRAGON, PM_ALLOW_GROUP);
- }
-#ifdef JP
-if (blind && count) msg_print("²¿¤«¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬¤¹¤ë¡£");
-#else
- if (blind && count) msg_print("You hear something appear nearby.");
-#endif
-
- break;
- }
-
- /* RF6_S_HI_UNDEAD */
- case 160+28:
- {
- disturb(1, 0);
-
- 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))
- {
- int cy = y;
- int cx = x;
-
-#ifdef JP
-if (blind) 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 magically summons rangers of Nazgul!", m_name);
-#endif
- msg_print(NULL);
-
- for (k = 0; k < 30; k++)
- {
- if (!summon_possible(cy, cx) || !cave_floor_bold(cy, cx))
- {
- int j;
- for (j = 100; j > 0; j--)
- {
- scatter(&cy, &cx, y, x, 2, 0);
- if (cave_floor_bold(cy, cx)) break;
- }
- if (!j) break;
- }
- if (!cave_floor_bold(cy, cx)) continue;
-
- if (summon_named_creature(m_idx, cy, cx, MON_NAZGUL, mode))
- {
- y = cy;
- x = cx;
- count++;
- if (count == 1)
-#ifdef JP
-msg_format("¡ÖÍ©µ´ÀïÂâ%d¹æ¡¢¥Ê¥º¥°¥ë¡¦¥Ö¥é¥Ã¥¯¡ª¡×", count);
-#else
- msg_format("A Nazgul says 'Nazgul-Rangers Number %d, Nazgul-Black!'",count);
-#endif
- else
-#ifdef JP
-msg_format("¡ÖƱ¤¸¤¯%d¹æ¡¢¥Ê¥º¥°¥ë¡¦¥Ö¥é¥Ã¥¯¡ª¡×", count);
-#else
- msg_format("Another one says 'Number %d, Nazgul-Black!'",count);
-#endif
- msg_print(NULL);
- }
- }
-#ifdef JP
-msg_format("¡Ö%dɤ¤½¤í¤Ã¤Æ¡¢¥ê¥ó¥°¥ì¥ó¥¸¥ã¡¼¡ª¡×", count);
-#else
-msg_format("They say 'The %d meets! We are the Ring-Ranger!'.", count);
-#endif
- msg_print(NULL);
- }
- else
- {
-#ifdef JP
-if (blind) 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 magically summons greater undead!", m_name);
-#endif
-
- for (k = 0; k < s_num_6; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_HI_UNDEAD, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
- }
- if (blind && count)
- {
-#ifdef JP
-msg_print("´Ö¶á¤Ç²¿¤«Â¿¤¯¤Î¤â¤Î¤¬Ç礤²ó¤ë²»¤¬Ê¹¤³¤¨¤ë¡£");
-#else
- msg_print("You hear many creepy things appear nearby.");
-#endif
-
- }
- break;
- }
-
- /* RF6_S_HI_DRAGON */
- case 160+29:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons ancient dragons!", m_name);
-#endif
-
- for (k = 0; k < s_num_4; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_HI_DRAGON, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
- if (blind && count)
- {
-#ifdef JP
-msg_print("¿¤¯¤ÎÎ϶¯¤¤¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬Ê¹¤³¤¨¤ë¡£");
-#else
- msg_print("You hear many powerful things appear nearby.");
-#endif
-
- }
- break;
- }
-
- /* RF6_S_AMBERITES */
- case 160+30:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons Lords of Amber!", m_name);
-#endif
-
-
-
- for (k = 0; k < s_num_4; k++)
- {
- count += summon_specific(m_idx, y, x, rlev, SUMMON_AMBERITES, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
- }
- if (blind && count)
- {
-#ifdef JP
-msg_print("ÉÔ»à¤Î¼Ô¤¬¶á¤¯¤Ë¸½¤ì¤ë¤Î¤¬Ê¹¤³¤¨¤¿¡£");
-#else
- msg_print("You hear immortal beings appear nearby.");
-#endif
-
- }
- break;
- }
-
- /* RF6_S_UNIQUE */
- case 160+31:
- {
- disturb(1, 0);
-#ifdef JP
-if (blind) 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 magically summons special opponents!", m_name);
-#endif
-
- for (k = 0; k < s_num_4; k++)
- {
- 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
- {
- 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));
- }
- }
- if (blind && count)
- {
-#ifdef JP
-msg_print("¿¤¯¤ÎÎ϶¯¤¤¤â¤Î¤¬´Ö¶á¤Ë¸½¤ì¤¿²»¤¬Ê¹¤³¤¨¤ë¡£");
-#else
- msg_print("You hear many powerful things appear nearby.");
-#endif
-
- }
- break;
- }
- }