src/monster-floor/monster-move.c

   1 /*!
   2  * @brief モンスターの移動に関する処理
   3  * @date 2020/03/08
   4  * @author Hourier
   5  */
   6
   7 #include "monster-floor/monster-move.h"
   8 #include "effect/effect-characteristics.h"
   9 #include "game-option/disturbance-options.h"
  10 #include "io/files-util.h"
  11 #include "monster-race/race-indice-types.h"
  12 #include "core/speed-table.h"
  13 #include "monster-race/monster-race.h"
  14 #include "monster-race/race-flags1.h"
  15 #include "monster-race/race-flags2.h"
  16 #include "monster-race/race-flags7.h"
  17 #include "monster-race/race-flags8.h"
  18 #include "monster-attack/monster-attack-processor.h"
  19 #include "monster/monster-describer.h"
  20 #include "monster/monster-flag-types.h"
  21 #include "monster-floor/monster-object.h"
  22 #include "monster/monster-status.h"
  23 #include "monster/monster-update.h"
  24 #include "monster/monster-info.h"
  25 #include "pet/pet-util.h"
  26 #include "player/player-move.h"
  27 #include "spell/process-effect.h"
  28 #include "spell/spell-types.h"
  29 #include "util/bit-flags-calculator.h"
  30 #include "view/display-messages.h"
  31
  32 static bool check_hp_for_feat_destruction(feature_type *f_ptr, monster_type *m_ptr)
  33 {
  34         return !have_flag(f_ptr->flags, FF_GLASS) ||
  35                 (r_info[m_ptr->r_idx].flags2 & RF2_STUPID) ||
  36                 (m_ptr->hp >= MAX(m_ptr->maxhp / 3, 200));
  37 }
  38
  39
  40 /*!
  41   * @brief モンスターによる壁の透過・破壊を行う
  42   * @param target_ptr プレーヤーへの参照ポインタ
  43   * @param m_ptr モンスターへの参照ポインタ
  44   * @param ny モンスターのY座標
  45   * @param nx モンスターのX座標
  46   * @param can_cross モンスターが地形を踏破できるならばTRUE
  47   * @return 透過も破壊もしなかった場合はFALSE、それ以外はTRUE
  48   */
  49 static bool process_wall(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx, bool can_cross)
  50 {
  51         monster_race *r_ptr = &r_info[m_ptr->r_idx];
  52         grid_type *g_ptr;
  53         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
  54         feature_type *f_ptr;
  55         f_ptr = &f_info[g_ptr->feat];
  56         if (player_bold(target_ptr, ny, nx))
  57         {
  58                 turn_flags_ptr->do_move = TRUE;
  59                 return TRUE;
  60         }
  61
  62         if (g_ptr->m_idx > 0)
  63         {
  64                 turn_flags_ptr->do_move = TRUE;
  65                 return TRUE;
  66         }
  67
  68         if (((r_ptr->flags2 & RF2_KILL_WALL) != 0) &&
  69                 (can_cross ? !have_flag(f_ptr->flags, FF_LOS) : !turn_flags_ptr->is_riding_mon) &&
  70                 have_flag(f_ptr->flags, FF_HURT_DISI) && !have_flag(f_ptr->flags, FF_PERMANENT) &&
  71                 check_hp_for_feat_destruction(f_ptr, m_ptr))
  72         {
  73                 turn_flags_ptr->do_move = TRUE;
  74                 if (!can_cross) turn_flags_ptr->must_alter_to_move = TRUE;
  75
  76                 turn_flags_ptr->did_kill_wall = TRUE;
  77                 return TRUE;
  78         }
  79
  80         if (!can_cross) return FALSE;
  81
  82         turn_flags_ptr->do_move = TRUE;
  83         if (((r_ptr->flags2 & RF2_PASS_WALL) != 0) && (!turn_flags_ptr->is_riding_mon || target_ptr->pass_wall) &&
  84                 have_flag(f_ptr->flags, FF_CAN_PASS))
  85         {
  86                 turn_flags_ptr->did_pass_wall = TRUE;
  87         }
  88
  89         return TRUE;
  90 }
  91
  92
  93 /*!
  94  * @brief モンスターが普通のドアを開ける処理
  95  * @param target_ptr プレーヤーへの参照ポインタ
  96  * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
  97  * @param m_ptr モンスターへの参照ポインタ
  98  * @param ny モンスターのY座標
  99  * @param nx モンスターのX座標
 100  * @return ここではドアを開けず、ガラスのドアを開ける可能性があるならTRUE
 101  */
 102 static bool bash_normal_door(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
 103 {
 104         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 105         grid_type *g_ptr;
 106         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 107         feature_type *f_ptr;
 108         f_ptr = &f_info[g_ptr->feat];
 109         turn_flags_ptr->do_move = FALSE;
 110         if (((r_ptr->flags2 & RF2_OPEN_DOOR) == 0) || !have_flag(f_ptr->flags, FF_OPEN) ||
 111                 (is_pet(m_ptr) && ((target_ptr->pet_extra_flags & PF_OPEN_DOORS) == 0)))
 112                 return TRUE;
 113
 114         if (f_ptr->power == 0)
 115         {
 116                 turn_flags_ptr->did_open_door = TRUE;
 117                 turn_flags_ptr->do_turn = TRUE;
 118                 return FALSE;
 119         }
 120
 121         if (randint0(m_ptr->hp / 10) > f_ptr->power)
 122         {
 123                 cave_alter_feat(target_ptr, ny, nx, FF_DISARM);
 124                 turn_flags_ptr->do_turn = TRUE;
 125                 return FALSE;
 126         }
 127
 128         return TRUE;
 129 }
 130
 131
 132 /*!
 133  * @brief モンスターがガラスのドアを開ける処理
 134  * @param target_ptr プレーヤーへの参照ポインタ
 135  * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
 136  * @param m_ptr モンスターへの参照ポインタ
 137  * @param g_ptr グリッドへの参照ポインタ
 138  * @param f_ptr 地形への参照ポインタ
 139  * @return なし
 140  */
 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)
 142 {
 143         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 144         if (!may_bash || ((r_ptr->flags2 & RF2_BASH_DOOR) == 0) || !have_flag(f_ptr->flags, FF_BASH) ||
 145                 (is_pet(m_ptr) && ((target_ptr->pet_extra_flags & PF_OPEN_DOORS) == 0)))
 146                 return;
 147
 148         if (!check_hp_for_feat_destruction(f_ptr, m_ptr) || (randint0(m_ptr->hp / 10) <= f_ptr->power))
 149                 return;
 150
 151         if (have_flag(f_ptr->flags, FF_GLASS))
 152                 msg_print(_("ガラスが砕ける音がした！", "You hear glass breaking!"));
 153         else
 154                 msg_print(_("ドアを叩き開ける音がした！", "You hear a door burst open!"));
 155
 156         if (disturb_minor) disturb(target_ptr, FALSE, FALSE);
 157
 158         turn_flags_ptr->did_bash_door = TRUE;
 159         turn_flags_ptr->do_move = TRUE;
 160         turn_flags_ptr->must_alter_to_move = TRUE;
 161 }
 162
 163
 164 /*!
 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
 172  */
 173 static bool process_door(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
 174 {
 175         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 176         grid_type *g_ptr;
 177         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 178         if (!is_closed_door(target_ptr, g_ptr->feat)) return TRUE;
 179
 180         feature_type *f_ptr;
 181         f_ptr = &f_info[g_ptr->feat];
 182         bool may_bash = bash_normal_door(target_ptr, turn_flags_ptr, m_ptr, ny, nx);
 183         bash_glass_door(target_ptr, turn_flags_ptr, m_ptr, f_ptr, may_bash);
 184
 185         if (!turn_flags_ptr->did_open_door && !turn_flags_ptr->did_bash_door) return TRUE;
 186
 187         if (turn_flags_ptr->did_bash_door &&
 188                 ((randint0(100) < 50) || (feat_state(target_ptr, g_ptr->feat, FF_OPEN) == g_ptr->feat) || have_flag(f_ptr->flags, FF_GLASS)))
 189         {
 190                 cave_alter_feat(target_ptr, ny, nx, FF_BASH);
 191                 if (!monster_is_valid(m_ptr))
 192                 {
 193                         target_ptr->update |= (PU_FLOW);
 194                         target_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
 195                         if (is_original_ap_and_seen(target_ptr, m_ptr)) r_ptr->r_flags2 |= (RF2_BASH_DOOR);
 196
 197                         return FALSE;
 198                 }
 199         }
 200         else
 201         {
 202                 cave_alter_feat(target_ptr, ny, nx, FF_OPEN);
 203         }
 204
 205         f_ptr = &f_info[g_ptr->feat];
 206         turn_flags_ptr->do_view = TRUE;
 207         return TRUE;
 208 }
 209
 210
 211 /*!
 212  * @brief 守りのルーンによるモンスターの移動制限を処理する
 213  * @param target_ptr プレーヤーへの参照ポインタ
 214  * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
 215  * @param m_ptr モンスターへの参照ポインタ
 216  * @param ny モンスターのY座標
 217  * @param nx モンスターのX座標
 218  * @return ルーンのある/なし
 219  */
 220 static bool process_protection_rune(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
 221 {
 222         grid_type *g_ptr;
 223         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 224         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 225         if (!turn_flags_ptr->do_move || !is_glyph_grid(g_ptr) ||
 226                 (((r_ptr->flags1 & RF1_NEVER_BLOW) != 0) && player_bold(target_ptr, ny, nx)))
 227                 return FALSE;
 228
 229         turn_flags_ptr->do_move = FALSE;
 230         if (is_pet(m_ptr) || (randint1(BREAK_GLYPH) >= r_ptr->level))
 231                 return TRUE;
 232
 233         if (g_ptr->info & CAVE_MARK)
 234         {
 235                 msg_print(_("守りのルーンが壊れた！", "The rune of protection is broken!"));
 236         }
 237
 238         g_ptr->info &= ~(CAVE_MARK);
 239         g_ptr->info &= ~(CAVE_OBJECT);
 240         g_ptr->mimic = 0;
 241         turn_flags_ptr->do_move = TRUE;
 242         note_spot(target_ptr, ny, nx);
 243         return TRUE;
 244 }
 245
 246
 247 /*!
 248  * @brief 爆発のルーンを処理する
 249  * @param target_ptr プレーヤーへの参照ポインタ
 250  * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
 251  * @param m_ptr モンスターへの参照ポインタ
 252  * @param ny モンスターのY座標
 253  * @param nx モンスターのX座標
 254  * @return モンスターが死亡した場合のみFALSE
 255  */
 256 static bool process_explosive_rune(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
 257 {
 258         grid_type *g_ptr;
 259         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 260         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 261         if (!turn_flags_ptr->do_move || !is_explosive_rune_grid(g_ptr) ||
 262                 (((r_ptr->flags1 & RF1_NEVER_BLOW) != 0) && player_bold(target_ptr, ny, nx)))
 263                 return TRUE;
 264
 265         turn_flags_ptr->do_move = FALSE;
 266         if (is_pet(m_ptr)) return TRUE;
 267
 268         if (randint1(BREAK_MINOR_GLYPH) > r_ptr->level)
 269         {
 270                 if (g_ptr->info & CAVE_MARK)
 271                 {
 272                         msg_print(_("ルーンが爆発した！", "The rune explodes!"));
 273                         BIT_FLAGS project_flags = PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI;
 274                         project(target_ptr, 0, 2, ny, nx, 2 * (target_ptr->lev + damroll(7, 7)), GF_MANA, project_flags, -1);
 275                 }
 276         }
 277         else
 278         {
 279                 msg_print(_("爆発のルーンは解除された。", "An explosive rune was disarmed."));
 280         }
 281
 282         g_ptr->info &= ~(CAVE_MARK);
 283         g_ptr->info &= ~(CAVE_OBJECT);
 284         g_ptr->mimic = 0;
 285
 286         note_spot(target_ptr, ny, nx);
 287         lite_spot(target_ptr, ny, nx);
 288
 289         if (!monster_is_valid(m_ptr)) return FALSE;
 290
 291         turn_flags_ptr->do_move = TRUE;
 292         return TRUE;
 293 }
 294
 295
 296 /*!
 297  * @brief モンスターが壁を掘った後続処理を実行する
 298  * @param target_ptr プレーヤーへの参照ポインタ
 299  * @turn_flags_ptr ターン経過処理フラグへの参照ポインタ
 300  * @param m_ptr モンスターへの参照ポインタ
 301  * @param ny モンスターのY座標
 302  * @param nx モンスターのX座標
 303  * @return モンスターが死亡した場合のみFALSE
 304  */
 305 static bool process_post_dig_wall(player_type *target_ptr, turn_flags *turn_flags_ptr, monster_type *m_ptr, POSITION ny, POSITION nx)
 306 {
 307         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 308         grid_type *g_ptr;
 309         g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 310         feature_type *f_ptr;
 311         f_ptr = &f_info[g_ptr->feat];
 312         if (!turn_flags_ptr->did_kill_wall || !turn_flags_ptr->do_move) return TRUE;
 313
 314         if (one_in_(GRINDNOISE))
 315         {
 316                 if (have_flag(f_ptr->flags, FF_GLASS))
 317                         msg_print(_("何かの砕ける音が聞こえる。", "There is a crashing sound."));
 318                 else
 319                         msg_print(_("ギシギシいう音が聞こえる。", "There is a grinding sound."));
 320         }
 321
 322         cave_alter_feat(target_ptr, ny, nx, FF_HURT_DISI);
 323
 324         if (!monster_is_valid(m_ptr))
 325         {
 326                 target_ptr->update |= (PU_FLOW);
 327                 target_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
 328                 if (is_original_ap_and_seen(target_ptr, m_ptr)) r_ptr->r_flags2 |= (RF2_KILL_WALL);
 329
 330                 return FALSE;
 331         }
 332
 333         f_ptr = &f_info[g_ptr->feat];
 334         turn_flags_ptr->do_view = TRUE;
 335         turn_flags_ptr->do_turn = TRUE;
 336         return TRUE;
 337 }
 338
 339
 340 /*!
 341  * todo 少し長いが、これといってブロックとしてまとまった部分もないので暫定でこのままとする
 342  * @brief モンスターの移動に関するメインルーチン
 343  * @param target_ptr プレーヤーへの参照ポインタ
 344  * @param turn_flags_ptr ターン経過処理フラグへの参照ポインタ
 345  * @param m_idx モンスターID
 346  * @param mm モンスターの移動方向
 347  * @param oy 移動前の、モンスターのY座標
 348  * @param ox 移動前の、モンスターのX座標
 349  * @param count 移動回数 (のはず todo)
 350  * @return 移動が阻害される何か (ドア等)があったらFALSE
 351  */
 352 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)
 353 {
 354         for (int i = 0; mm[i]; i++)
 355         {
 356                 int d = mm[i];
 357                 if (d == 5) d = ddd[randint0(8)];
 358
 359                 POSITION ny = oy + ddy[d];
 360                 POSITION nx = ox + ddx[d];
 361                 if (!in_bounds2(target_ptr->current_floor_ptr, ny, nx)) continue;
 362
 363                 grid_type *g_ptr;
 364                 g_ptr = &target_ptr->current_floor_ptr->grid_array[ny][nx];
 365                 monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
 366                 monster_race *r_ptr = &r_info[m_ptr->r_idx];
 367                 bool can_cross = monster_can_cross_terrain(target_ptr, g_ptr->feat, r_ptr, turn_flags_ptr->is_riding_mon ? CEM_RIDING : 0);
 368
 369                 if (!process_wall(target_ptr, turn_flags_ptr, m_ptr, ny, nx, can_cross))
 370                 {
 371                         if (!process_door(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
 372                                 return FALSE;
 373                 }
 374
 375                 if (!process_protection_rune(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
 376                 {
 377                         if (!process_explosive_rune(target_ptr, turn_flags_ptr, m_ptr, ny, nx))
 378                                 return FALSE;
 379                 }
 380
 381                 exe_monster_attack_to_player(target_ptr, turn_flags_ptr, m_idx, ny, nx);
 382                 if (process_monster_attack_to_monster(target_ptr, turn_flags_ptr, m_idx, g_ptr, can_cross)) return FALSE;
 383
 384                 if (turn_flags_ptr->is_riding_mon)
 385                 {
 386                         if (!target_ptr->riding_ryoute && !monster_fear_remaining(&target_ptr->current_floor_ptr->m_list[target_ptr->riding])) turn_flags_ptr->do_move = FALSE;
 387                 }
 388
 389                 if (!process_post_dig_wall(target_ptr, turn_flags_ptr, m_ptr, ny, nx)) return FALSE;
 390
 391                 if (turn_flags_ptr->must_alter_to_move && (r_ptr->flags7 & RF7_AQUATIC))
 392                 {
 393                         if (!monster_can_cross_terrain(target_ptr, g_ptr->feat, r_ptr, turn_flags_ptr->is_riding_mon ? CEM_RIDING : 0))
 394                                 turn_flags_ptr->do_move = FALSE;
 395                 }
 396
 397                 if (turn_flags_ptr->do_move && !can_cross && !turn_flags_ptr->did_kill_wall && !turn_flags_ptr->did_bash_door)
 398                         turn_flags_ptr->do_move = FALSE;
 399
 400                 if (turn_flags_ptr->do_move && (r_ptr->flags1 & RF1_NEVER_MOVE))
 401                 {
 402                         if (is_original_ap_and_seen(target_ptr, m_ptr))
 403                                 r_ptr->r_flags1 |= (RF1_NEVER_MOVE);
 404
 405                         turn_flags_ptr->do_move = FALSE;
 406                 }
 407
 408                 if (!turn_flags_ptr->do_move)
 409                 {
 410                         if (turn_flags_ptr->do_turn) break;
 411
 412                         continue;
 413                 }
 414
 415                 turn_flags_ptr->do_turn = TRUE;
 416                 feature_type *f_ptr;
 417                 f_ptr = &f_info[g_ptr->feat];
 418                 if (have_flag(f_ptr->flags, FF_TREE))
 419                 {
 420                         if (!(r_ptr->flags7 & RF7_CAN_FLY) && !(r_ptr->flags8 & RF8_WILD_WOOD))
 421                         {
 422                                 m_ptr->energy_need += ENERGY_NEED();
 423                         }
 424                 }
 425
 426                 if (!update_riding_monster(target_ptr, turn_flags_ptr, m_idx, oy, ox, ny, nx)) break;
 427
 428                 monster_race *ap_r_ptr = &r_info[m_ptr->ap_r_idx];
 429                 if (m_ptr->ml &&
 430                         (disturb_move ||
 431                         (disturb_near && (m_ptr->mflag & MFLAG_VIEW) && projectable(target_ptr, target_ptr->y, target_ptr->x, m_ptr->fy, m_ptr->fx)) ||
 432                                 (disturb_high && ap_r_ptr->r_tkills && ap_r_ptr->level >= target_ptr->lev)))
 433                 {
 434                         if (is_hostile(m_ptr))
 435                                 disturb(target_ptr, FALSE, TRUE);
 436                 }
 437
 438                 bool is_takable_or_killable = g_ptr->o_idx > 0;
 439                 is_takable_or_killable &= (r_ptr->flags2 & (RF2_TAKE_ITEM | RF2_KILL_ITEM)) != 0;
 440
 441                 bool is_pickup_items = (target_ptr->pet_extra_flags & PF_PICKUP_ITEMS) != 0;
 442                 is_pickup_items &= (r_ptr->flags2 & RF2_TAKE_ITEM) != 0;
 443
 444                 is_takable_or_killable &= !is_pet(m_ptr) || is_pickup_items;
 445                 if (!is_takable_or_killable)
 446                 {
 447                         if (turn_flags_ptr->do_turn) break;
 448
 449                         continue;
 450                 }
 451
 452                 update_object_by_monster_movement(target_ptr, turn_flags_ptr, m_idx, ny, nx);
 453                 if (turn_flags_ptr->do_turn) break;
 454
 455                 (*count)++;
 456         }
 457
 458         return TRUE;
 459 }
 460
 461
 462 /*!
 463  * @brief モンスターを喋らせたり足音を立てたりする
 464  * @param target_ptr プレーヤーへの参照ポインタ
 465  * @param m_idx モンスターID
 466  * @param oy モンスターが元々いたY座標
 467  * @param ox モンスターが元々いたX座標
 468  * @param aware モンスターがプレーヤーに気付いているならばTRUE、超隠密状態ならばFALSE
 469  * @return なし
 470  */
 471 void process_speak_sound(player_type *target_ptr, MONSTER_IDX m_idx, POSITION oy, POSITION ox, bool aware)
 472 {
 473         if (target_ptr->phase_out) return;
 474
 475         monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
 476         monster_race *ap_r_ptr = &r_info[m_ptr->ap_r_idx];
 477         if (m_ptr->ap_r_idx == MON_CYBER &&
 478                 one_in_(CYBERNOISE) &&
 479                 !m_ptr->ml && (m_ptr->cdis <= MAX_SIGHT))
 480         {
 481                 if (disturb_minor) disturb(target_ptr, FALSE, FALSE);
 482                 msg_print(_("重厚な足音が聞こえた。", "You hear heavy steps."));
 483         }
 484
 485         if (((ap_r_ptr->flags2 & RF2_CAN_SPEAK) == 0) || !aware ||
 486                 !one_in_(SPEAK_CHANCE) ||
 487                 !player_has_los_bold(target_ptr, oy, ox) ||
 488                 !projectable(target_ptr, oy, ox, target_ptr->y, target_ptr->x))
 489                 return;
 490
 491         GAME_TEXT m_name[MAX_NLEN];
 492         char monmessage[1024];
 493         concptr filename;
 494
 495         if (m_ptr->ml)
 496                 monster_desc(target_ptr, m_name, m_ptr, 0);
 497         else
 498                 strcpy(m_name, _("それ", "It"));
 499
 500         if (monster_fear_remaining(m_ptr))
 501                 filename = _("monfear_j.txt", "monfear.txt");
 502         else if (is_pet(m_ptr))
 503                 filename = _("monpet_j.txt", "monpet.txt");
 504         else if (is_friendly(m_ptr))
 505                 filename = _("monfrien_j.txt", "monfrien.txt");
 506         else
 507                 filename = _("monspeak_j.txt", "monspeak.txt");
 508
 509         if (get_rnd_line(filename, m_ptr->ap_r_idx, monmessage) == 0)
 510         {
 511                 msg_format(_("%^s%s", "%^s %s"), m_name, monmessage);
 512         }
 513 }
 514
 515 /*!
 516  * @brief モンスターの目標地点をセットする / Set the target of counter attack
 517  * @param m_ptr モンスターの参照ポインタ
 518  * @param y 目標y座標
 519  * @param x 目標x座標
 520  * @return なし
 521  */
 522 void set_target(monster_type *m_ptr, POSITION y, POSITION x)
 523 {
 524     m_ptr->target_y = y;
 525     m_ptr->target_x = x;
 526 }
 527
 528 /*!
 529  * @brief モンスターの目標地点をリセットする / Reset the target of counter attack
 530  * @param m_ptr モンスターの参照ポインタ
 531  * @return なし
 532  */
 533 void reset_target(monster_type *m_ptr) { set_target(m_ptr, 0, 0); }