- if (p_ptr->riding)
- {
-#ifdef JP
- msg_print("º£¤Ï¾èÇÏÃæ¤À¡£");
-#else
- msg_print("You ARE riding.");
-#endif
- return FALSE;
- }
- if (!do_riding(TRUE)) return TRUE;
- m_ptr = &m_list[p_ptr->riding];
- r_ptr = &r_info[m_ptr->r_idx];
- monster_desc(m_name, m_ptr, 0);
-#ifdef JP
- msg_format("%s¤Ë¾è¤Ã¤¿¡£",m_name);
-#else
- msg_format("You ride on %s.",m_name);
-#endif
- if (is_pet(m_ptr)) break;
- rlev = r_ptr->level;
- if (r_ptr->flags1 & RF1_UNIQUE) rlev = rlev * 3 / 2;
- if (rlev > 60) rlev = 60+(rlev-60)/2;
- if ((randint1(skill_exp[GINOU_RIDING]/120+p_ptr->lev*2/3) > rlev) && one_in_(2) && !p_ptr->inside_arena && !p_ptr->inside_battle && !(r_ptr->flags7 & (RF7_GUARDIAN)) && !(r_ptr->flags1 & (RF1_QUESTOR)) && (rlev < p_ptr->lev*3/2+randint0(p_ptr->lev/5)))
- {
-#ifdef JP
- msg_format("%s¤ò¼ê¤Ê¤º¤±¤¿¡£",m_name);
-#else
- msg_format("You tame %s.",m_name);
-#endif
- set_pet(m_ptr);
- }
- else
- {
-#ifdef JP
- msg_format("%s¤Ë¿¶¤êÍî¤È¤µ¤ì¤¿¡ª",m_name);
-#else
- msg_format("You have thrown off by %s.",m_name);
-#endif
- rakuba(1,TRUE);
- }