src/monster-floor/one-monster-placer.cpp

   1 /*!
   2  * @brief モンスターをフロアに1体配置する処理
   3  * @date 2020/06/13
   4  * @author Hourier
   5  */
   6
   7 #include "monster-floor/one-monster-placer.h"
   8 #include "core/player-update-types.h"
   9 #include "core/speed-table.h"
  10 #include "dungeon/quest.h"
  11 #include "effect/attribute-types.h"
  12 #include "effect/effect-characteristics.h"
  13 #include "effect/effect-processor.h"
  14 #include "flavor/flavor-describer.h"
  15 #include "flavor/object-flavor-types.h"
  16 #include "floor/cave.h"
  17 #include "floor/floor-save-util.h"
  18 #include "game-option/birth-options.h"
  19 #include "game-option/cheat-types.h"
  20 #include "grid/grid.h"
  21 #include "monster-attack/monster-attack-table.h"
  22 #include "monster-floor/monster-move.h"
  23 #include "monster-floor/monster-summon.h"
  24 #include "monster-floor/place-monster-types.h"
  25 #include "monster-race/monster-kind-mask.h"
  26 #include "monster-race/monster-race.h"
  27 #include "monster-race/race-flags1.h"
  28 #include "monster-race/race-flags2.h"
  29 #include "monster-race/race-flags3.h"
  30 #include "monster-race/race-flags7.h"
  31 #include "monster-race/race-indice-types.h"
  32 #include "monster/monster-flag-types.h"
  33 #include "monster/monster-info.h"
  34 #include "monster/monster-list.h"
  35 #include "monster/monster-status-setter.h"
  36 #include "monster/monster-status.h"
  37 #include "monster/monster-update.h"
  38 #include "monster/monster-util.h"
  39 #include "object/warning.h"
  40 #include "player/player-status.h"
  41 #include "system/floor-type-definition.h"
  42 #include "system/grid-type-definition.h"
  43 #include "system/monster-race-definition.h"
  44 #include "system/player-type-definition.h"
  45 #include "util/bit-flags-calculator.h"
  46 #include "view/display-messages.h"
  47 #include "wizard/wizard-messages.h"
  48 #include "world/world.h"
  49
  50 static bool is_friendly_idx(PlayerType *player_ptr, MONSTER_IDX m_idx)
  51 {
  52     return m_idx > 0 && is_friendly(&player_ptr->current_floor_ptr->m_list[(m_idx)]);
  53 }
  54
  55 /*!
  56  * @brief たぬきの変身対象となるモンスターかどうか判定する / Hook for Tanuki
  57  * @param r_idx モンスター種族ID
  58  * @return 対象にできるならtrueを返す
  59  * @todo グローバル変数対策の上 monster_hook.cへ移す。
  60  */
  61 static bool monster_hook_tanuki(PlayerType *player_ptr, MonsterRaceId r_idx)
  62 {
  63     auto *r_ptr = &r_info[r_idx];
  64     bool unselectable = r_ptr->kind_flags.has(MonsterKindType::UNIQUE);
  65     unselectable |= any_bits(r_ptr->flags2, RF2_MULTIPLY);
  66     unselectable |= r_ptr->behavior_flags.has(MonsterBehaviorType::FRIENDLY);
  67     unselectable |= any_bits(r_ptr->flags7, RF7_AQUATIC | RF7_CHAMELEON);
  68     if (unselectable) {
  69         return false;
  70     }
  71
  72     for (int i = 0; i < 4; i++) {
  73         if (r_ptr->blow[i].method == RaceBlowMethodType::EXPLODE) {
  74             return false;
  75         }
  76     }
  77
  78     auto hook_pf = get_monster_hook(player_ptr);
  79     return (*hook_pf)(player_ptr, r_idx);
  80 }
  81
  82 /*!
  83  * @param player_ptr プレイヤーへの参照ポインタ
  84  * @brief モンスターの表層IDを設定する / Set initial racial appearance of a monster
  85  * @param r_idx モンスター種族ID
  86  * @return モンスター種族の表層ID
  87  */
  88 static MonsterRaceId initial_r_appearance(PlayerType *player_ptr, MonsterRaceId r_idx, BIT_FLAGS generate_mode)
  89 {
  90     auto *floor_ptr = player_ptr->current_floor_ptr;
  91     if (is_chargeman(player_ptr) && any_bits(generate_mode, PM_JURAL) && none_bits(generate_mode, PM_MULTIPLY | PM_KAGE)) {
  92         return MonsterRaceId::ALIEN_JURAL;
  93     }
  94
  95     if (none_bits(r_info[r_idx].flags7, RF7_TANUKI)) {
  96         return r_idx;
  97     }
  98
  99     get_mon_num_prep(player_ptr, monster_hook_tanuki, nullptr);
 100     int attempts = 1000;
 101     DEPTH min = std::min(floor_ptr->base_level - 5, 50);
 102     while (--attempts) {
 103         auto ap_r_idx = get_mon_num(player_ptr, 0, floor_ptr->base_level + 10, 0);
 104         if (r_info[ap_r_idx].level >= min) {
 105             return ap_r_idx;
 106         }
 107     }
 108
 109     return r_idx;
 110 }
 111
 112 /*!
 113  * @brief ユニークが生成可能か評価する
 114  * @param player_ptr プレイヤーへの参照ポインタ
 115  * @param r_idx 生成モンスター種族
 116  * @return ユニークの生成が不可能な条件ならFALSE、それ以外はTRUE
 117  */
 118 static bool check_unique_placeable(PlayerType *player_ptr, MonsterRaceId r_idx)
 119 {
 120     if (player_ptr->phase_out) {
 121         return true;
 122     }
 123
 124     auto *r_ptr = &r_info[r_idx];
 125     if ((r_ptr->kind_flags.has(MonsterKindType::UNIQUE) || any_bits(r_ptr->flags7, RF7_NAZGUL)) && (r_ptr->cur_num >= r_ptr->max_num)) {
 126         return false;
 127     }
 128
 129     if (any_bits(r_ptr->flags7, RF7_UNIQUE2) && (r_ptr->cur_num >= 1)) {
 130         return false;
 131     }
 132
 133     if (r_idx == MonsterRaceId::BANORLUPART) {
 134         if (r_info[MonsterRaceId::BANOR].cur_num > 0) {
 135             return false;
 136         }
 137         if (r_info[MonsterRaceId::LUPART].cur_num > 0) {
 138             return false;
 139         }
 140     }
 141
 142     if (any_bits(r_ptr->flags1, RF1_FORCE_DEPTH) && (player_ptr->current_floor_ptr->dun_level < r_ptr->level) && (!ironman_nightmare || any_bits(r_ptr->flags1, RF1_QUESTOR))) {
 143         return false;
 144     }
 145
 146     return true;
 147 }
 148
 149 /*!
 150  * @brief クエスト内に生成可能か評価する
 151  * @param player_ptr プレイヤーへの参照ポインタ
 152  * @param r_idx 生成モンスター種族
 153  * @return 生成が可能ならTRUE、不可能ならFALSE
 154  */
 155 static bool check_quest_placeable(PlayerType *player_ptr, MonsterRaceId r_idx)
 156 {
 157     auto *floor_ptr = player_ptr->current_floor_ptr;
 158     if (!inside_quest(quest_number(player_ptr, floor_ptr->dun_level))) {
 159         return true;
 160     }
 161
 162     const auto &quest_list = QuestList::get_instance();
 163     QuestId number = quest_number(player_ptr, floor_ptr->dun_level);
 164     if ((quest_list[number].type != QuestKindType::KILL_LEVEL) && (quest_list[number].type != QuestKindType::RANDOM)) {
 165         return true;
 166     }
 167     if (r_idx != quest_list[number].r_idx) {
 168         return true;
 169     }
 170     int number_mon = 0;
 171     for (int i2 = 0; i2 < floor_ptr->width; ++i2) {
 172         for (int j2 = 0; j2 < floor_ptr->height; j2++) {
 173             auto quest_monster = (floor_ptr->grid_array[j2][i2].m_idx > 0);
 174             quest_monster &= (floor_ptr->m_list[floor_ptr->grid_array[j2][i2].m_idx].r_idx == quest_list[number].r_idx);
 175             if (quest_monster) {
 176                 number_mon++;
 177             }
 178         }
 179     }
 180
 181     if (number_mon + quest_list[number].cur_num >= quest_list[number].max_num) {
 182         return false;
 183     }
 184     return true;
 185 }
 186
 187 /*!
 188  * @brief 守りのルーン上にモンスターの配置を試みる
 189  * @param player_ptr プレイヤーへの参照ポインタ
 190  * @param r_idx 生成モンスター種族
 191  * @param y 生成位置y座標
 192  * @param x 生成位置x座標
 193  * @return 生成が可能ならTRUE、不可能ならFALSE
 194  */
 195 static bool check_procection_rune(PlayerType *player_ptr, MonsterRaceId r_idx, POSITION y, POSITION x)
 196 {
 197     auto *g_ptr = &player_ptr->current_floor_ptr->grid_array[y][x];
 198     if (!g_ptr->is_rune_protection()) {
 199         return true;
 200     }
 201
 202     auto *r_ptr = &r_info[r_idx];
 203     if (randint1(BREAK_RUNE_PROTECTION) >= (r_ptr->level + 20)) {
 204         return false;
 205     }
 206
 207     if (any_bits(g_ptr->info, CAVE_MARK)) {
 208         msg_print(_("守りのルーンが壊れた！", "The rune of protection is broken!"));
 209     }
 210
 211     reset_bits(g_ptr->info, CAVE_MARK);
 212     reset_bits(g_ptr->info, CAVE_OBJECT);
 213     g_ptr->mimic = 0;
 214     note_spot(player_ptr, y, x);
 215     return true;
 216 }
 217
 218 static void warn_unique_generation(PlayerType *player_ptr, MonsterRaceId r_idx)
 219 {
 220     if (!player_ptr->warning || !w_ptr->character_dungeon) {
 221         return;
 222     }
 223
 224     auto *r_ptr = &r_info[r_idx];
 225     if (r_ptr->kind_flags.has_not(MonsterKindType::UNIQUE)) {
 226         return;
 227     }
 228
 229     concptr color;
 230     ObjectType *o_ptr;
 231     GAME_TEXT o_name[MAX_NLEN];
 232     if (r_ptr->level > player_ptr->lev + 30) {
 233         color = _("黒く", "black");
 234     } else if (r_ptr->level > player_ptr->lev + 15) {
 235         color = _("紫色に", "purple");
 236     } else if (r_ptr->level > player_ptr->lev + 5) {
 237         color = _("ルビー色に", "deep red");
 238     } else if (r_ptr->level > player_ptr->lev - 5) {
 239         color = _("赤く", "red");
 240     } else if (r_ptr->level > player_ptr->lev - 15) {
 241         color = _("ピンク色に", "pink");
 242     } else {
 243         color = _("白く", "white");
 244     }
 245
 246     o_ptr = choose_warning_item(player_ptr);
 247     if (o_ptr != nullptr) {
 248         describe_flavor(player_ptr, o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
 249         msg_format(_("%sは%s光った。", "%s glows %s."), o_name, color);
 250     } else {
 251         msg_format(_("%s光る物が頭に浮かんだ。", "A %s image forms in your mind."), color);
 252     }
 253 }
 254
 255 /*!
 256  * @brief モンスターを一体生成する / Attempt to place a monster of the given race at the given location.
 257  * @param player_ptr プレイヤーへの参照ポインタ
 258  * @param who 召喚を行ったモンスターID
 259  * @param y 生成位置y座標
 260  * @param x 生成位置x座標
 261  * @param r_idx 生成モンスター種族
 262  * @param mode 生成オプション
 263  * @return 成功したらtrue
 264  */
 265 bool place_monster_one(PlayerType *player_ptr, MONSTER_IDX who, POSITION y, POSITION x, MonsterRaceId r_idx, BIT_FLAGS mode)
 266 {
 267     auto *floor_ptr = player_ptr->current_floor_ptr;
 268     auto *g_ptr = &floor_ptr->grid_array[y][x];
 269     auto *r_ptr = &r_info[r_idx];
 270     concptr name = r_ptr->name.c_str();
 271
 272     if (player_ptr->wild_mode || !in_bounds(floor_ptr, y, x) || !MonsterRace(r_idx).is_valid() || r_ptr->name.empty()) {
 273         return false;
 274     }
 275
 276     if (none_bits(mode, PM_IGNORE_TERRAIN) && (pattern_tile(floor_ptr, y, x) || !monster_can_enter(player_ptr, y, x, r_ptr, 0))) {
 277         return false;
 278     }
 279
 280     if (!check_unique_placeable(player_ptr, r_idx) || !check_quest_placeable(player_ptr, r_idx) || !check_procection_rune(player_ptr, r_idx, y, x)) {
 281         return false;
 282     }
 283
 284     msg_format_wizard(player_ptr, CHEAT_MONSTER, _("%s(Lv%d)を生成しました。", "%s(Lv%d) was generated."), name, r_ptr->level);
 285     if (r_ptr->kind_flags.has(MonsterKindType::UNIQUE) || any_bits(r_ptr->flags7, RF7_NAZGUL) || (r_ptr->level < 10)) {
 286         reset_bits(mode, PM_KAGE);
 287     }
 288
 289     g_ptr->m_idx = m_pop(floor_ptr);
 290     hack_m_idx_ii = g_ptr->m_idx;
 291     if (!g_ptr->m_idx) {
 292         return false;
 293     }
 294
 295     monster_type *m_ptr;
 296     m_ptr = &floor_ptr->m_list[g_ptr->m_idx];
 297     m_ptr->r_idx = r_idx;
 298     m_ptr->ap_r_idx = initial_r_appearance(player_ptr, r_idx, mode);
 299
 300     m_ptr->mflag.clear();
 301     m_ptr->mflag2.clear();
 302     if (any_bits(mode, PM_MULTIPLY) && (who > 0) && !is_original_ap(&floor_ptr->m_list[who])) {
 303         m_ptr->ap_r_idx = floor_ptr->m_list[who].ap_r_idx;
 304         if (floor_ptr->m_list[who].mflag2.has(MonsterConstantFlagType::KAGE)) {
 305             m_ptr->mflag2.set(MonsterConstantFlagType::KAGE);
 306         }
 307     }
 308
 309     if ((who > 0) && r_ptr->kind_flags.has_none_of(alignment_mask)) {
 310         m_ptr->sub_align = floor_ptr->m_list[who].sub_align;
 311     } else {
 312         m_ptr->sub_align = SUB_ALIGN_NEUTRAL;
 313         if (r_ptr->kind_flags.has(MonsterKindType::EVIL)) {
 314             set_bits(m_ptr->sub_align, SUB_ALIGN_EVIL);
 315         }
 316         if (r_ptr->kind_flags.has(MonsterKindType::GOOD)) {
 317             set_bits(m_ptr->sub_align, SUB_ALIGN_GOOD);
 318         }
 319     }
 320
 321     m_ptr->fy = y;
 322     m_ptr->fx = x;
 323     m_ptr->current_floor_ptr = floor_ptr;
 324
 325     for (int cmi = 0; cmi < MAX_MTIMED; cmi++) {
 326         m_ptr->mtimed[cmi] = 0;
 327     }
 328
 329     m_ptr->cdis = 0;
 330     reset_target(m_ptr);
 331     m_ptr->nickname = 0;
 332     m_ptr->exp = 0;
 333
 334     if (who > 0 && is_pet(&floor_ptr->m_list[who])) {
 335         set_bits(mode, PM_FORCE_PET);
 336         m_ptr->parent_m_idx = who;
 337     } else {
 338         m_ptr->parent_m_idx = 0;
 339     }
 340
 341     if (any_bits(r_ptr->flags7, RF7_CHAMELEON)) {
 342         choose_new_monster(player_ptr, g_ptr->m_idx, true, MonsterRace::empty_id());
 343         r_ptr = &r_info[m_ptr->r_idx];
 344         m_ptr->mflag2.set(MonsterConstantFlagType::CHAMELEON);
 345         if (r_ptr->kind_flags.has(MonsterKindType::UNIQUE) && (who <= 0)) {
 346             m_ptr->sub_align = SUB_ALIGN_NEUTRAL;
 347         }
 348     } else if (any_bits(mode, PM_KAGE) && none_bits(mode, PM_FORCE_PET)) {
 349         m_ptr->ap_r_idx = MonsterRaceId::KAGE;
 350         m_ptr->mflag2.set(MonsterConstantFlagType::KAGE);
 351     }
 352
 353     if (any_bits(mode, PM_CLONE)) {
 354         m_ptr->mflag2.set(MonsterConstantFlagType::CLONED);
 355     }
 356
 357     if (any_bits(mode, PM_NO_PET)) {
 358         m_ptr->mflag2.set(MonsterConstantFlagType::NOPET);
 359     }
 360
 361     m_ptr->ml = false;
 362     if (any_bits(mode, PM_FORCE_PET)) {
 363         set_pet(player_ptr, m_ptr);
 364     } else if (((who == 0) && r_ptr->behavior_flags.has(MonsterBehaviorType::FRIENDLY)) || is_friendly_idx(player_ptr, who) || any_bits(mode, PM_FORCE_FRIENDLY)) {
 365         if (!monster_has_hostile_align(player_ptr, nullptr, 0, -1, r_ptr) && !player_ptr->current_floor_ptr->inside_arena) {
 366             set_friendly(m_ptr);
 367         }
 368     }
 369
 370     m_ptr->mtimed[MTIMED_CSLEEP] = 0;
 371     if (any_bits(mode, PM_ALLOW_SLEEP) && r_ptr->sleep && !ironman_nightmare) {
 372         int val = r_ptr->sleep;
 373         (void)set_monster_csleep(player_ptr, g_ptr->m_idx, (val * 2) + randint1(val * 10));
 374     }
 375
 376     if (any_bits(r_ptr->flags1, RF1_FORCE_MAXHP)) {
 377         m_ptr->max_maxhp = maxroll(r_ptr->hdice, r_ptr->hside);
 378     } else {
 379         m_ptr->max_maxhp = damroll(r_ptr->hdice, r_ptr->hside);
 380     }
 381
 382     if (ironman_nightmare) {
 383         auto hp = m_ptr->max_maxhp * 2;
 384         m_ptr->max_maxhp = std::min(MONSTER_MAXHP, hp);
 385     }
 386
 387     m_ptr->maxhp = m_ptr->max_maxhp;
 388     if (r_ptr->cur_hp_per != 0) {
 389         m_ptr->hp = m_ptr->maxhp * r_ptr->cur_hp_per / 100;
 390     } else {
 391         m_ptr->hp = m_ptr->maxhp;
 392     }
 393
 394     m_ptr->dealt_damage = 0;
 395
 396     m_ptr->mspeed = get_mspeed(floor_ptr, r_ptr);
 397
 398     if (any_bits(mode, PM_HASTE)) {
 399         (void)set_monster_fast(player_ptr, g_ptr->m_idx, 100);
 400     }
 401
 402     if (!ironman_nightmare) {
 403         m_ptr->energy_need = ENERGY_NEED() - (int16_t)randint0(100);
 404     } else {
 405         m_ptr->energy_need = ENERGY_NEED() - (int16_t)randint0(100) * 2;
 406     }
 407
 408     if (r_ptr->behavior_flags.has(MonsterBehaviorType::PREVENT_SUDDEN_MAGIC) && !ironman_nightmare) {
 409         m_ptr->mflag.set(MonsterTemporaryFlagType::PREVENT_MAGIC);
 410     }
 411
 412     if (g_ptr->m_idx < hack_m_idx) {
 413         m_ptr->mflag.set(MonsterTemporaryFlagType::BORN);
 414     }
 415
 416     if (any_bits(r_ptr->flags7, RF7_SELF_LD_MASK)) {
 417         set_bits(player_ptr->update, PU_MON_LITE);
 418     } else if (any_bits(r_ptr->flags7, RF7_HAS_LD_MASK) && !monster_csleep_remaining(m_ptr)) {
 419         set_bits(player_ptr->update, PU_MON_LITE);
 420     }
 421     update_monster(player_ptr, g_ptr->m_idx, true);
 422
 423     real_r_ptr(m_ptr)->cur_num++;
 424
 425     /*
 426      * Memorize location of the unique monster in saved floors.
 427      * A unique monster move from old saved floor.
 428      */
 429     if (w_ptr->character_dungeon && (r_ptr->kind_flags.has(MonsterKindType::UNIQUE) || any_bits(r_ptr->flags7, RF7_NAZGUL))) {
 430         real_r_ptr(m_ptr)->floor_id = player_ptr->floor_id;
 431     }
 432
 433     if (any_bits(r_ptr->flags2, RF2_MULTIPLY)) {
 434         floor_ptr->num_repro++;
 435     }
 436
 437     warn_unique_generation(player_ptr, r_idx);
 438     if (!g_ptr->is_rune_explosion()) {
 439         return true;
 440     }
 441
 442     if (randint1(BREAK_RUNE_EXPLOSION) > r_ptr->level) {
 443         if (any_bits(g_ptr->info, CAVE_MARK)) {
 444             msg_print(_("ルーンが爆発した！", "The rune explodes!"));
 445             project(player_ptr, 0, 2, y, x, 2 * (player_ptr->lev + damroll(7, 7)), AttributeType::MANA,
 446                 (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI));
 447         }
 448     } else {
 449         msg_print(_("爆発のルーンは解除された。", "An explosive rune was disarmed."));
 450     }
 451
 452     reset_bits(g_ptr->info, CAVE_MARK);
 453     reset_bits(g_ptr->info, CAVE_OBJECT);
 454     g_ptr->mimic = 0;
 455
 456     note_spot(player_ptr, y, x);
 457     lite_spot(player_ptr, y, x);
 458
 459     return true;
 460 }