7 #include "mind/mind-cavalry.h"
8 #include "cmd-action/cmd-pet.h"
9 #include "floor/floor.h"
10 #include "monster-race/monster-race.h"
11 #include "monster-race/race-flags1.h"
12 #include "monster-race/race-flags7.h"
13 #include "monster/smart-learn-types.h"
14 #include "monster/monster-describer.h"
15 #include "monster/monster-info.h"
16 #include "pet/pet-fall-off.h"
17 #include "player/player-skill.h"
18 #include "view/display-messages.h"
22 * @param creature_ptr プレーヤーへの参照ポインタ
23 * @return 結果はどうあれ騎乗したらTRUE
25 bool rodeo(player_type *creature_ptr)
27 GAME_TEXT m_name[MAX_NLEN];
32 if (creature_ptr->riding) {
33 msg_print(_("今は乗馬中だ。", "You ARE riding."));
37 if (!do_cmd_riding(creature_ptr, TRUE))
40 m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
41 r_ptr = &r_info[m_ptr->r_idx];
42 monster_desc(creature_ptr, m_name, m_ptr, 0);
43 msg_format(_("%sに乗った。", "You ride on %s."), m_name);
50 if (r_ptr->flags1 & RF1_UNIQUE)
53 rlev = 60 + (rlev - 60) / 2;
54 if ((randint1(creature_ptr->skill_exp[GINOU_RIDING] / 120 + creature_ptr->lev * 2 / 3) > rlev) && one_in_(2)
55 && !creature_ptr->current_floor_ptr->inside_arena && !creature_ptr->phase_out && !(r_ptr->flags7 & (RF7_GUARDIAN)) && !(r_ptr->flags1 & (RF1_QUESTOR))
56 && (rlev < creature_ptr->lev * 3 / 2 + randint0(creature_ptr->lev / 5))) {
57 msg_format(_("%sを手なずけた。", "You tame %s."), m_name);
58 set_pet(creature_ptr, m_ptr);
60 msg_format(_("%sに振り落とされた!", "You have been thrown off by %s."), m_name);
61 process_fall_off_horse(creature_ptr, 1, TRUE);
63 /* 落馬処理に失敗してもとにかく乗馬解除 */
64 creature_ptr->riding = 0;