2 * @brief モンスターの移動に関する処理
7 #include "monster-floor/monster-move.h"
8 #include "core/disturbance.h"
9 #include "core/player-update-types.h"
10 #include "core/speed-table.h"
11 #include "core/window-redrawer.h"
12 #include "effect/effect-characteristics.h"
13 #include "effect/effect-processor.h"
14 #include "floor/cave.h"
15 #include "floor/geometry.h"
16 #include "game-option/disturbance-options.h"
17 #include "grid/feature.h"
18 #include "grid/grid.h"
19 #include "io/files-util.h"
20 #include "monster-attack/monster-attack-processor.h"
21 #include "monster-floor/monster-object.h"
22 #include "monster-race/monster-race.h"
23 #include "monster-race/race-flags1.h"
24 #include "monster-race/race-flags2.h"
25 #include "monster-race/race-flags7.h"
26 #include "monster-race/race-flags8.h"
27 #include "monster-race/race-indice-types.h"
28 #include "monster/monster-describer.h"
29 #include "monster/monster-flag-types.h"
30 #include "monster/monster-info.h"
31 #include "monster/monster-processor-util.h"
32 #include "monster/monster-status.h"
33 #include "monster/monster-update.h"
34 #include "pet/pet-util.h"
35 #include "player/player-status-flags.h"
36 #include "spell/spell-types.h"
37 #include "system/floor-type-definition.h"
38 #include "system/grid-type-definition.h"
39 #include "system/monster-race-definition.h"
40 #include "system/monster-type-definition.h"
41 #include "system/player-type-definition.h"
42 #include "target/projection-path-calculator.h"
43 #include "util/bit-flags-calculator.h"
44 #include "view/display-messages.h"
46 static bool check_hp_for_feat_destruction(feature_type *f_ptr, monster_type *m_ptr)
48 return !has_flag(f_ptr->flags, FF_GLASS) || (r_info[m_ptr->r_idx].flags2 & RF2_STUPID) || (m_ptr->hp >= MAX(m_ptr->maxhp / 3, 200));
52 * @brief モンスターによる壁の透過・破壊を行う
53 * @param target_ptr プレーヤーへの参照ポインタ
54 * @param m_ptr モンスターへの参照ポインタ
57 * @param can_cross モンスターが地形を踏破できるならばTRUE
58 * @return 透過も破壊もしなかった場合はFALSE、それ以外はTRUE
60 static bool process_wall(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx, bool can_cross)
62 monster_race *r_ptr = &r_info[m_ptr->r_idx];
64 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
66 f_ptr = &f_info[g_ptr->feat];
67 if (player_bold(target_ptr, ny, nx)) {
68 turn_flags_ptr->do_move = true;
72 if (g_ptr->m_idx > 0) {
73 turn_flags_ptr->do_move = true;
77 if (((r_ptr->flags2 & RF2_KILL_WALL) != 0) && (can_cross ? !has_flag(f_ptr->flags, FF_LOS) : !turn_flags_ptr->is_riding_mon)
78 && has_flag(f_ptr->flags, FF_HURT_DISI) && !has_flag(f_ptr->flags, FF_PERMANENT) && check_hp_for_feat_destruction(f_ptr, m_ptr)) {
79 turn_flags_ptr->do_move = true;
81 turn_flags_ptr->must_alter_to_move = true;
83 turn_flags_ptr->did_kill_wall = true;
90 turn_flags_ptr->do_move = true;
91 if (((r_ptr->flags2 & RF2_PASS_WALL) != 0) && (!turn_flags_ptr->is_riding_mon || has_pass_wall(target_ptr)) && has_flag(f_ptr->flags, FF_CAN_PASS)) {
92 turn_flags_ptr->did_pass_wall = true;
99 * @brief モンスターが普通のドアを開ける処理
100 * @param target_ptr プレーヤーへの参照ポインタ
101 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
102 * @param m_ptr モンスターへの参照ポインタ
103 * @param ny モンスターのY座標
104 * @param nx モンスターのX座標
105 * @return ここではドアを開けず、ガラスのドアを開ける可能性があるならTRUE
107 static bool bash_normal_door(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
109 monster_race *r_ptr = &r_info[m_ptr->r_idx];
111 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
113 f_ptr = &f_info[g_ptr->feat];
114 turn_flags_ptr->do_move = false;
115 if (((r_ptr->flags2 & RF2_OPEN_DOOR) == 0) || !has_flag(f_ptr->flags, FF_OPEN) || (is_pet(m_ptr) && ((target_ptr->pet_extra_flags & PF_OPEN_DOORS) == 0)))
118 if (f_ptr->power == 0) {
119 turn_flags_ptr->did_open_door = true;
120 turn_flags_ptr->do_turn = true;
124 if (randint0(m_ptr->hp / 10) > f_ptr->power) {
125 cave_alter_feat(target_ptr, ny, nx, FF_DISARM);
126 turn_flags_ptr->do_turn = true;
134 * @brief モンスターがガラスのドアを開ける処理
135 * @param target_ptr プレーヤーへの参照ポインタ
136 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
137 * @param m_ptr モンスターへの参照ポインタ
138 * @param g_ptr グリッドへの参照ポインタ
139 * @param f_ptr 地形への参照ポインタ
141 static void bash_glass_door(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, feature_type *f_ptr, bool may_bash)
143 monster_race *r_ptr = &r_info[m_ptr->r_idx];
144 if (!may_bash || ((r_ptr->flags2 & RF2_BASH_DOOR) == 0) || !has_flag(f_ptr->flags, FF_BASH)
145 || (is_pet(m_ptr) && ((target_ptr->pet_extra_flags & PF_OPEN_DOORS) == 0)))
148 if (!check_hp_for_feat_destruction(f_ptr, m_ptr) || (randint0(m_ptr->hp / 10) <= f_ptr->power))
151 if (has_flag(f_ptr->flags, FF_GLASS))
152 msg_print(_("ガラスが砕ける音がした!", "You hear glass breaking!"));
154 msg_print(_("ドアを叩き開ける音がした!", "You hear a door burst open!"));
157 disturb(target_ptr, false, false);
159 turn_flags_ptr->did_bash_door = true;
160 turn_flags_ptr->do_move = true;
161 turn_flags_ptr->must_alter_to_move = true;
165 * @brief モンスターによるドアの開放・破壊を行う
166 * @param target_ptr プレーヤーへの参照ポインタ
167 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
168 * @param m_ptr モンスターへの参照ポインタ
169 * @param ny モンスターのY座標
170 * @param nx モンスターのX座標
171 * @return モンスターが死亡した場合のみFALSE
173 static bool process_door(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
175 monster_race *r_ptr = &r_info[m_ptr->r_idx];
177 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
178 if (!is_closed_door(target_ptr, g_ptr->feat))
182 f_ptr = &f_info[g_ptr->feat];
183 bool may_bash = bash_normal_door(target_ptr, turn_flags_ptr, m_ptr, ny, nx);
184 bash_glass_door(target_ptr, turn_flags_ptr, m_ptr, f_ptr, may_bash);
186 if (!turn_flags_ptr->did_open_door && !turn_flags_ptr->did_bash_door)
189 if (turn_flags_ptr->did_bash_door
190 && ((randint0(100) < 50) || (feat_state(target_ptr->current_floor_ptr, g_ptr->feat, FF_OPEN) == g_ptr->feat) || has_flag(f_ptr->flags, FF_GLASS))) {
191 cave_alter_feat(target_ptr, ny, nx, FF_BASH);
192 if (!monster_is_valid(m_ptr)) {
193 target_ptr->update |= (PU_FLOW);
194 target_ptr->window_flags |= (PW_OVERHEAD | PW_DUNGEON);
195 if (is_original_ap_and_seen(target_ptr, m_ptr))
196 r_ptr->r_flags2 |= (RF2_BASH_DOOR);
201 cave_alter_feat(target_ptr, ny, nx, FF_OPEN);
204 f_ptr = &f_info[g_ptr->feat];
205 turn_flags_ptr->do_view = true;
210 * @brief 守りのルーンによるモンスターの移動制限を処理する
211 * @param target_ptr プレーヤーへの参照ポインタ
212 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
213 * @param m_ptr モンスターへの参照ポインタ
214 * @param ny モンスターのY座標
215 * @param nx モンスターのX座標
218 static bool process_protection_rune(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
221 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
222 monster_race *r_ptr = &r_info[m_ptr->r_idx];
223 if (!turn_flags_ptr->do_move || !g_ptr->is_rune_protection() || (((r_ptr->flags1 & RF1_NEVER_BLOW) != 0) && player_bold(target_ptr, ny, nx)))
226 turn_flags_ptr->do_move = false;
227 if (is_pet(m_ptr) || (randint1(BREAK_RUNE_PROTECTION) >= r_ptr->level))
230 if (g_ptr->is_mark()) {
231 msg_print(_("守りのルーンが壊れた!", "The rune of protection is broken!"));
234 g_ptr->info &= ~(CAVE_MARK);
235 g_ptr->info &= ~(CAVE_OBJECT);
237 turn_flags_ptr->do_move = true;
238 note_spot(target_ptr, ny, nx);
244 * @param target_ptr プレーヤーへの参照ポインタ
245 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
246 * @param m_ptr モンスターへの参照ポインタ
247 * @param ny モンスターのY座標
248 * @param nx モンスターのX座標
249 * @return モンスターが死亡した場合のみFALSE
251 static bool process_explosive_rune(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
254 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
255 monster_race *r_ptr = &r_info[m_ptr->r_idx];
256 if (!turn_flags_ptr->do_move || !g_ptr->is_rune_explosion() || (((r_ptr->flags1 & RF1_NEVER_BLOW) != 0) && player_bold(target_ptr, ny, nx)))
259 turn_flags_ptr->do_move = false;
263 if (randint1(BREAK_RUNE_EXPLOSION) > r_ptr->level) {
264 if (g_ptr->info & CAVE_MARK) {
265 msg_print(_("ルーンが爆発した!", "The rune explodes!"));
266 BIT_FLAGS project_flags = PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI;
267 project(target_ptr, 0, 2, ny, nx, 2 * (target_ptr->lev + damroll(7, 7)), GF_MANA, project_flags);
270 msg_print(_("爆発のルーンは解除された。", "An explosive rune was disarmed."));
273 g_ptr->info &= ~(CAVE_MARK);
274 g_ptr->info &= ~(CAVE_OBJECT);
277 note_spot(target_ptr, ny, nx);
278 lite_spot(target_ptr, ny, nx);
280 if (!monster_is_valid(m_ptr))
283 turn_flags_ptr->do_move = true;
288 * @brief モンスターが壁を掘った後続処理を実行する
289 * @param target_ptr プレーヤーへの参照ポインタ
290 * @turn_flags_ptr ターン経過処理フラグへの参照ポインタ
291 * @param m_ptr モンスターへの参照ポインタ
292 * @param ny モンスターのY座標
293 * @param nx モンスターのX座標
294 * @return モンスターが死亡した場合のみFALSE
296 static bool process_post_dig_wall(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
298 monster_race *r_ptr = &r_info[m_ptr->r_idx];
300 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
302 f_ptr = &f_info[g_ptr->feat];
303 if (!turn_flags_ptr->did_kill_wall || !turn_flags_ptr->do_move)
306 if (one_in_(GRINDNOISE)) {
307 if (has_flag(f_ptr->flags, FF_GLASS))
308 msg_print(_("何かの砕ける音が聞こえる。", "There is a crashing sound."));
310 msg_print(_("ギシギシいう音が聞こえる。", "There is a grinding sound."));
313 cave_alter_feat(target_ptr, ny, nx, FF_HURT_DISI);
315 if (!monster_is_valid(m_ptr)) {
316 target_ptr->update |= (PU_FLOW);
317 target_ptr->window_flags |= (PW_OVERHEAD | PW_DUNGEON);
318 if (is_original_ap_and_seen(target_ptr, m_ptr))
319 r_ptr->r_flags2 |= (RF2_KILL_WALL);
324 f_ptr = &f_info[g_ptr->feat];
325 turn_flags_ptr->do_view = true;
326 turn_flags_ptr->do_turn = true;
331 * @brief モンスターの移動に関するメインルーチン
332 * @param target_ptr プレーヤーへの参照ポインタ
333 * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
334 * @param m_idx モンスターID
335 * @param mm モンスターの移動方向
336 * @param oy 移動前の、モンスターのY座標
337 * @param ox 移動前の、モンスターのX座標
338 * @param count 移動回数 (のはず todo)
339 * @return 移動が阻害される何か (ドア等)があったらFALSE
340 * @todo 少し長いが、これといってブロックとしてまとまった部分もないので暫定でこのままとする
342 bool process_monster_movement(player_type *target_ptr, turn_flags *turn_flags_ptr, MONSTER_IDX m_idx, DIRECTION *mm, POSITION oy, POSITION ox, int *count)
344 for (int i = 0; mm[i]; i++) {
347 d = ddd[randint0(8)];
349 POSITION ny = oy + ddy[d];
350 POSITION nx = ox + ddx[d];
351 if (!in_bounds2(target_ptr->current_floor_ptr, ny, nx))
355 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
356 monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
357 monster_race *r_ptr = &r_info[m_ptr->r_idx];
358 bool can_cross = monster_can_cross_terrain(target_ptr, g_ptr->feat, r_ptr, turn_flags_ptr->is_riding_mon ? CEM_RIDING : 0);
360 if (!process_wall(target_ptr, turn_flags_ptr, m_ptr, ny, nx, can_cross)) {
361 if (!process_door(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
365 if (!process_protection_rune(target_ptr, turn_flags_ptr, m_ptr, ny, nx)) {
366 if (!process_explosive_rune(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
370 exe_monster_attack_to_player(target_ptr, turn_flags_ptr, m_idx, ny, nx);
371 if (process_monster_attack_to_monster(target_ptr, turn_flags_ptr, m_idx, g_ptr, can_cross))
374 if (turn_flags_ptr->is_riding_mon) {
375 if (!target_ptr->riding_ryoute && !monster_fear_remaining(&target_ptr->current_floor_ptr->m_list[target_ptr->riding]))
376 turn_flags_ptr->do_move = false;
379 if (!process_post_dig_wall(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
382 if (turn_flags_ptr->must_alter_to_move && (r_ptr->flags7 & RF7_AQUATIC)) {
383 if (!monster_can_cross_terrain(target_ptr, g_ptr->feat, r_ptr, turn_flags_ptr->is_riding_mon ? CEM_RIDING : 0))
384 turn_flags_ptr->do_move = false;
387 if (turn_flags_ptr->do_move && !can_cross && !turn_flags_ptr->did_kill_wall && !turn_flags_ptr->did_bash_door)
388 turn_flags_ptr->do_move = false;
390 if (turn_flags_ptr->do_move && (r_ptr->flags1 & RF1_NEVER_MOVE)) {
391 if (is_original_ap_and_seen(target_ptr, m_ptr))
392 r_ptr->r_flags1 |= (RF1_NEVER_MOVE);
394 turn_flags_ptr->do_move = false;
397 if (!turn_flags_ptr->do_move) {
398 if (turn_flags_ptr->do_turn)
404 turn_flags_ptr->do_turn = true;
406 f_ptr = &f_info[g_ptr->feat];
407 if (has_flag(f_ptr->flags, FF_TREE) && ((r_ptr->flags7 & RF7_CAN_FLY) == 0) && ((r_ptr->flags8 & RF8_WILD_WOOD) == 0))
408 m_ptr->energy_need += ENERGY_NEED();
410 if (!update_riding_monster(target_ptr, turn_flags_ptr, m_idx, oy, ox, ny, nx))
413 monster_race *ap_r_ptr = &r_info[m_ptr->ap_r_idx];
415 && (disturb_move || (disturb_near && m_ptr->mflag.has(MFLAG::VIEW) && projectable(target_ptr, target_ptr->y, target_ptr->x, m_ptr->fy, m_ptr->fx))
416 || (disturb_high && ap_r_ptr->r_tkills && ap_r_ptr->level >= target_ptr->lev))) {
417 if (is_hostile(m_ptr))
418 disturb(target_ptr, false, true);
421 bool is_takable_or_killable = !g_ptr->o_idx_list.empty();
422 is_takable_or_killable &= (r_ptr->flags2 & (RF2_TAKE_ITEM | RF2_KILL_ITEM)) != 0;
424 bool is_pickup_items = (target_ptr->pet_extra_flags & PF_PICKUP_ITEMS) != 0;
425 is_pickup_items &= (r_ptr->flags2 & RF2_TAKE_ITEM) != 0;
427 is_takable_or_killable &= !is_pet(m_ptr) || is_pickup_items;
428 if (!is_takable_or_killable) {
429 if (turn_flags_ptr->do_turn)
435 update_object_by_monster_movement(target_ptr, turn_flags_ptr, m_idx, ny, nx);
436 if (turn_flags_ptr->do_turn)
446 * @brief モンスターを喋らせたり足音を立てたりする
447 * @param target_ptr プレーヤーへの参照ポインタ
448 * @param m_idx モンスターID
449 * @param oy モンスターが元々いたY座標
450 * @param ox モンスターが元々いたX座標
451 * @param aware モンスターがプレーヤーに気付いているならばTRUE、超隠密状態ならばFALSE
453 void process_speak_sound(player_type *target_ptr, MONSTER_IDX m_idx, POSITION oy, POSITION ox, bool aware)
455 if (target_ptr->phase_out)
458 monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
459 monster_race *ap_r_ptr = &r_info[m_ptr->ap_r_idx];
460 if (m_ptr->ap_r_idx == MON_CYBER && one_in_(CYBERNOISE) && !m_ptr->ml && (m_ptr->cdis <= MAX_SIGHT)) {
462 disturb(target_ptr, false, false);
463 msg_print(_("重厚な足音が聞こえた。", "You hear heavy steps."));
466 if (((ap_r_ptr->flags2 & RF2_CAN_SPEAK) == 0) || !aware || !one_in_(SPEAK_CHANCE) || !player_has_los_bold(target_ptr, oy, ox)
467 || !projectable(target_ptr, oy, ox, target_ptr->y, target_ptr->x))
470 GAME_TEXT m_name[MAX_NLEN];
471 char monmessage[1024];
475 monster_desc(target_ptr, m_name, m_ptr, 0);
477 strcpy(m_name, _("それ", "It"));
479 if (monster_fear_remaining(m_ptr))
480 filename = _("monfear_j.txt", "monfear.txt");
481 else if (is_pet(m_ptr))
482 filename = _("monpet_j.txt", "monpet.txt");
483 else if (is_friendly(m_ptr))
484 filename = _("monfrien_j.txt", "monfrien.txt");
486 filename = _("monspeak_j.txt", "monspeak.txt");
488 if (get_rnd_line(filename, m_ptr->ap_r_idx, monmessage) == 0) {
489 msg_format(_("%^s%s", "%^s %s"), m_name, monmessage);
494 * @brief モンスターの目標地点をセットする / Set the target of counter attack
495 * @param m_ptr モンスターの参照ポインタ
499 void set_target(monster_type *m_ptr, POSITION y, POSITION x)
506 * @brief モンスターの目標地点をリセットする / Reset the target of counter attack
507 * @param m_ptr モンスターの参照ポインタ
509 void reset_target(monster_type *m_ptr) { set_target(m_ptr, 0, 0); }