src/mspell/mspell-attack.cpp

   1 #include "mspell/mspell-attack.h"
   2 #include "blue-magic/blue-magic-checker.h"
   3 #include "core/disturbance.h"
   4 #include "dungeon/dungeon-flag-types.h"
   5 #include "dungeon/quest.h"
   6 #include "floor/cave.h"
   7 #include "monster-floor/monster-move.h"
   8 #include "monster-race/monster-race.h"
   9 #include "monster-race/race-ability-mask.h"
  10 #include "monster-race/race-flags2.h"
  11 #include "monster-race/race-indice-types.h"
  12 #include "monster/monster-describer.h"
  13 #include "monster/monster-flag-types.h"
  14 #include "monster/monster-info.h"
  15 #include "monster/monster-status.h"
  16 #include "mspell/assign-monster-spell.h"
  17 #include "mspell/improper-mspell-remover.h"
  18 #include "mspell/mspell-attack-util.h"
  19 #include "mspell/mspell-checker.h"
  20 #include "mspell/mspell-learn-checker.h"
  21 #include "mspell/mspell-lite.h"
  22 #include "mspell/mspell-result.h"
  23 #include "mspell/mspell-selector.h"
  24 #include "mspell/mspell-util.h"
  25 #include "player-base/player-class.h"
  26 #include "player-info/mane-data-type.h"
  27 #include "player/attack-defense-types.h"
  28 #include "spell-kind/spells-world.h"
  29 #include "spell-realm/spells-hex.h"
  30 #include "system/dungeon-info.h"
  31 #include "system/floor-type-definition.h"
  32 #include "system/monster-entity.h"
  33 #include "system/monster-race-info.h"
  34 #include "system/player-type-definition.h"
  35 #include "system/redrawing-flags-updater.h"
  36 #include "target/projection-path-calculator.h"
  37 #include "timed-effect/player-blindness.h"
  38 #include "timed-effect/timed-effects.h"
  39 #include "util/string-processor.h"
  40 #include "view/display-messages.h"
  41 #include "world/world.h"
  42 #include <iterator>
  43 #ifdef JP
  44 #else
  45 #include "monster/monster-description-types.h"
  46 #endif
  47
  48 static void set_no_magic_mask(msa_type *msa_ptr)
  49 {
  50     if (!msa_ptr->no_inate) {
  51         return;
  52     }
  53
  54     msa_ptr->ability_flags.reset(RF_ABILITY_NOMAGIC_MASK);
  55 }
  56
  57 static void check_mspell_stupid(PlayerType *player_ptr, msa_type *msa_ptr)
  58 {
  59     auto *floor_ptr = player_ptr->current_floor_ptr;
  60     msa_ptr->in_no_magic_dungeon = floor_ptr->get_dungeon_definition().flags.has(DungeonFeatureType::NO_MAGIC) && floor_ptr->dun_level && (!inside_quest(floor_ptr->quest_number) || QuestType::is_fixed(floor_ptr->quest_number));
  61     if (!msa_ptr->in_no_magic_dungeon || (msa_ptr->r_ptr->behavior_flags.has(MonsterBehaviorType::STUPID))) {
  62         return;
  63     }
  64
  65     msa_ptr->ability_flags &= RF_ABILITY_NOMAGIC_MASK;
  66 }
  67
  68 static void check_mspell_smart(PlayerType *player_ptr, msa_type *msa_ptr)
  69 {
  70     if (msa_ptr->r_ptr->behavior_flags.has_not(MonsterBehaviorType::SMART)) {
  71         return;
  72     }
  73
  74     if ((msa_ptr->m_ptr->hp < msa_ptr->m_ptr->maxhp / 10) && (randint0(100) < 50)) {
  75         msa_ptr->ability_flags &= RF_ABILITY_INT_MASK;
  76     }
  77
  78     if (msa_ptr->ability_flags.has(MonsterAbilityType::TELE_LEVEL) && is_teleport_level_ineffective(player_ptr, 0)) {
  79         msa_ptr->ability_flags.reset(MonsterAbilityType::TELE_LEVEL);
  80     }
  81 }
  82
  83 static void check_mspell_arena(PlayerType *player_ptr, msa_type *msa_ptr)
  84 {
  85     if (!player_ptr->current_floor_ptr->inside_arena && !player_ptr->phase_out) {
  86         return;
  87     }
  88
  89     msa_ptr->ability_flags.reset(RF_ABILITY_SUMMON_MASK).reset(MonsterAbilityType::TELE_LEVEL);
  90
  91     if (msa_ptr->m_ptr->r_idx == MonsterRaceId::ROLENTO) {
  92         msa_ptr->ability_flags.reset(MonsterAbilityType::SPECIAL);
  93     }
  94 }
  95
  96 static bool check_mspell_non_stupid(PlayerType *player_ptr, msa_type *msa_ptr)
  97 {
  98     if (msa_ptr->r_ptr->behavior_flags.has(MonsterBehaviorType::STUPID)) {
  99         return true;
 100     }
 101
 102     if (!player_ptr->csp) {
 103         msa_ptr->ability_flags.reset(MonsterAbilityType::DRAIN_MANA);
 104     }
 105
 106     if (msa_ptr->ability_flags.has_any_of(RF_ABILITY_BOLT_MASK) &&
 107         !clean_shot(player_ptr, msa_ptr->m_ptr->fy, msa_ptr->m_ptr->fx, player_ptr->y, player_ptr->x, false)) {
 108         msa_ptr->ability_flags.reset(RF_ABILITY_BOLT_MASK);
 109     }
 110
 111     if (msa_ptr->ability_flags.has_any_of(RF_ABILITY_SUMMON_MASK) && !(summon_possible(player_ptr, msa_ptr->y, msa_ptr->x))) {
 112         msa_ptr->ability_flags.reset(RF_ABILITY_SUMMON_MASK);
 113     }
 114
 115     if (msa_ptr->ability_flags.has(MonsterAbilityType::RAISE_DEAD) && !raise_possible(player_ptr, msa_ptr->m_ptr)) {
 116         msa_ptr->ability_flags.reset(MonsterAbilityType::RAISE_DEAD);
 117     }
 118
 119     if (msa_ptr->ability_flags.has(MonsterAbilityType::SPECIAL) && (msa_ptr->m_ptr->r_idx == MonsterRaceId::ROLENTO) &&
 120         !summon_possible(player_ptr, msa_ptr->y, msa_ptr->x)) {
 121         msa_ptr->ability_flags.reset(MonsterAbilityType::SPECIAL);
 122     }
 123
 124     return msa_ptr->ability_flags.any();
 125 }
 126
 127 static void set_mspell_list(msa_type *msa_ptr)
 128 {
 129     EnumClassFlagGroup<MonsterAbilityType>::get_flags(msa_ptr->ability_flags, std::back_inserter(msa_ptr->mspells));
 130 }
 131
 132 static bool switch_do_spell(PlayerType *player_ptr, msa_type *msa_ptr)
 133 {
 134     switch (msa_ptr->do_spell) {
 135     case DO_SPELL_NONE: {
 136         int attempt = 10;
 137         while (attempt--) {
 138             msa_ptr->thrown_spell = choose_attack_spell(player_ptr, msa_ptr);
 139             if (msa_ptr->thrown_spell != MonsterAbilityType::MAX) {
 140                 break;
 141             }
 142         }
 143
 144         return true;
 145     }
 146     case DO_SPELL_BR_LITE:
 147         msa_ptr->thrown_spell = MonsterAbilityType::BR_LITE;
 148         return true;
 149     case DO_SPELL_BR_DISI:
 150         msa_ptr->thrown_spell = MonsterAbilityType::BR_DISI;
 151         return true;
 152     case DO_SPELL_BA_LITE:
 153         msa_ptr->thrown_spell = MonsterAbilityType::BA_LITE;
 154         return true;
 155     default:
 156         return false;
 157     }
 158 }
 159
 160 static bool check_mspell_continuation(PlayerType *player_ptr, msa_type *msa_ptr)
 161 {
 162     if (msa_ptr->ability_flags.none()) {
 163         return false;
 164     }
 165
 166     remove_bad_spells(msa_ptr->m_idx, player_ptr, msa_ptr->ability_flags);
 167     check_mspell_arena(player_ptr, msa_ptr);
 168     if (msa_ptr->ability_flags.none() || !check_mspell_non_stupid(player_ptr, msa_ptr)) {
 169         return false;
 170     }
 171
 172     set_mspell_list(msa_ptr);
 173     if (msa_ptr->mspells.empty() || !player_ptr->playing || player_ptr->is_dead || player_ptr->leaving) {
 174         return false;
 175     }
 176
 177     msa_ptr->m_name = monster_desc(player_ptr, msa_ptr->m_ptr, 0x00);
 178     if (!switch_do_spell(player_ptr, msa_ptr) || (msa_ptr->thrown_spell == MonsterAbilityType::MAX)) {
 179         return false;
 180     }
 181
 182     return true;
 183 }
 184
 185 static bool check_mspell_unexploded(PlayerType *player_ptr, msa_type *msa_ptr)
 186 {
 187     PERCENTAGE fail_rate = 25 - (msa_ptr->rlev + 3) / 4;
 188     if (msa_ptr->r_ptr->behavior_flags.has(MonsterBehaviorType::STUPID)) {
 189         fail_rate = 0;
 190     }
 191
 192     if (!spell_is_inate(msa_ptr->thrown_spell) && (msa_ptr->in_no_magic_dungeon || (msa_ptr->m_ptr->get_remaining_stun() && one_in_(2)) || (randint0(100) < fail_rate))) {
 193         disturb(player_ptr, true, true);
 194         msg_format(_("%s^は呪文を唱えようとしたが失敗した。", "%s^ tries to cast a spell, but fails."), msa_ptr->m_name.data());
 195         return true;
 196     }
 197
 198     if (!spell_is_inate(msa_ptr->thrown_spell) && SpellHex(player_ptr).check_hex_barrier(msa_ptr->m_idx, HEX_ANTI_MAGIC)) {
 199         msg_format(_("反魔法バリアが%s^の呪文をかき消した。", "Anti magic barrier cancels the spell which %s^ casts."), msa_ptr->m_name.data());
 200         return true;
 201     }
 202
 203     return false;
 204 }
 205
 206 /*!
 207  * @brief モンスターが使おうとする特技がプレイヤーに届くかどうかを返す
 208  *
 209  * ターゲット (msa_ptr->y, msa_ptr->x) は設定済みとする。
 210  */
 211 static bool check_thrown_mspell(PlayerType *player_ptr, msa_type *msa_ptr)
 212 {
 213     // プレイヤーがモンスターを正しく視認できていれば思い出に残る。
 214     // FIXME: ここで処理するのはおかしいような?
 215     msa_ptr->can_remember = is_original_ap_and_seen(player_ptr, msa_ptr->m_ptr);
 216
 217     // ターゲットがプレイヤー位置なら直接射線が通っているので常に届く。
 218     bool direct = player_bold(player_ptr, msa_ptr->y, msa_ptr->x);
 219     if (direct) {
 220         return true;
 221     }
 222
 223     // ターゲットがプレイヤー位置からずれているとき、直接の射線を必要とする特技
 224     // (ボルト系など)は届かないものとみなす。
 225     switch (msa_ptr->thrown_spell) {
 226     case MonsterAbilityType::DISPEL:
 227     case MonsterAbilityType::SHOOT:
 228     case MonsterAbilityType::DRAIN_MANA:
 229     case MonsterAbilityType::MIND_BLAST:
 230     case MonsterAbilityType::BRAIN_SMASH:
 231     case MonsterAbilityType::CAUSE_1:
 232     case MonsterAbilityType::CAUSE_2:
 233     case MonsterAbilityType::CAUSE_3:
 234     case MonsterAbilityType::CAUSE_4:
 235     case MonsterAbilityType::BO_ACID:
 236     case MonsterAbilityType::BO_ELEC:
 237     case MonsterAbilityType::BO_FIRE:
 238     case MonsterAbilityType::BO_COLD:
 239     case MonsterAbilityType::BO_NETH:
 240     case MonsterAbilityType::BO_WATE:
 241     case MonsterAbilityType::BO_MANA:
 242     case MonsterAbilityType::BO_PLAS:
 243     case MonsterAbilityType::BO_ICEE:
 244     case MonsterAbilityType::BO_VOID:
 245     case MonsterAbilityType::BO_ABYSS:
 246     case MonsterAbilityType::MISSILE:
 247     case MonsterAbilityType::SCARE:
 248     case MonsterAbilityType::BLIND:
 249     case MonsterAbilityType::CONF:
 250     case MonsterAbilityType::SLOW:
 251     case MonsterAbilityType::HOLD:
 252     case MonsterAbilityType::HAND_DOOM:
 253     case MonsterAbilityType::TELE_TO:
 254     case MonsterAbilityType::TELE_AWAY:
 255     case MonsterAbilityType::TELE_LEVEL:
 256     case MonsterAbilityType::PSY_SPEAR:
 257     case MonsterAbilityType::DARKNESS:
 258     case MonsterAbilityType::FORGET:
 259         return false;
 260     default:
 261         return true;
 262     }
 263 }
 264
 265 static void check_mspell_imitation(PlayerType *player_ptr, msa_type *msa_ptr)
 266 {
 267     const auto seen = (!player_ptr->effects()->blindness()->is_blind() && msa_ptr->m_ptr->ml);
 268     const auto can_imitate = player_has_los_bold(player_ptr, msa_ptr->m_ptr->fy, msa_ptr->m_ptr->fx);
 269     PlayerClass pc(player_ptr);
 270     if (!seen || !can_imitate || (w_ptr->timewalk_m_idx != 0) || !pc.equals(PlayerClassType::IMITATOR)) {
 271         return;
 272     }
 273
 274     /* Not RF_ABILITY::SPECIAL */
 275     if (msa_ptr->thrown_spell == MonsterAbilityType::SPECIAL) {
 276         return;
 277     }
 278
 279     auto mane_data = pc.get_specific_data<mane_data_type>();
 280
 281     if (mane_data->mane_list.size() == MAX_MANE) {
 282         mane_data->mane_list.pop_front();
 283     }
 284
 285     mane_data->mane_list.push_back({ msa_ptr->thrown_spell, msa_ptr->dam });
 286     mane_data->new_mane = true;
 287     RedrawingFlagsUpdater::get_instance().set_flag(MainWindowRedrawingFlag::IMITATION);
 288 }
 289
 290 static void remember_mspell(msa_type *msa_ptr)
 291 {
 292     if (!msa_ptr->can_remember) {
 293         return;
 294     }
 295
 296     msa_ptr->r_ptr->r_ability_flags.set(msa_ptr->thrown_spell);
 297     if (msa_ptr->r_ptr->r_cast_spell < MAX_UCHAR) {
 298         msa_ptr->r_ptr->r_cast_spell++;
 299     }
 300 }
 301
 302 /*!
 303  * @brief モンスターの特殊技能メインルーチン /
 304  * Creatures can cast spells, shoot missiles, and breathe.
 305  * @param player_ptr プレイヤーへの参照ポインタ
 306  * @param m_idx モンスター構造体配列のID
 307  * @return 実際に特殊技能を利用したらTRUEを返す
 308  */
 309 bool make_attack_spell(PlayerType *player_ptr, MONSTER_IDX m_idx)
 310 {
 311     msa_type tmp_msa(player_ptr, m_idx);
 312     msa_type *msa_ptr = &tmp_msa;
 313     if (msa_ptr->m_ptr->is_confused()) {
 314         reset_target(msa_ptr->m_ptr);
 315         return false;
 316     }
 317
 318     const auto &m_ref = *msa_ptr->m_ptr;
 319     if (m_ref.mflag.has(MonsterTemporaryFlagType::PREVENT_MAGIC) || !m_ref.is_hostile() || ((m_ref.cdis > get_max_range(player_ptr)) && !m_ref.target_y)) {
 320         return false;
 321     }
 322
 323     decide_lite_range(player_ptr, msa_ptr);
 324     if (!decide_lite_projection(player_ptr, msa_ptr)) {
 325         return false;
 326     }
 327
 328     reset_target(msa_ptr->m_ptr);
 329     msa_ptr->rlev = ((msa_ptr->r_ptr->level >= 1) ? msa_ptr->r_ptr->level : 1);
 330     set_no_magic_mask(msa_ptr);
 331     decide_lite_area(player_ptr, msa_ptr);
 332     check_mspell_stupid(player_ptr, msa_ptr);
 333     check_mspell_smart(player_ptr, msa_ptr);
 334     if (!check_mspell_continuation(player_ptr, msa_ptr)) {
 335         return false;
 336     }
 337
 338     if (check_mspell_unexploded(player_ptr, msa_ptr)) {
 339         return true;
 340     }
 341
 342     // 特技がプレイヤーに届かないなら使わない。
 343     if (!check_thrown_mspell(player_ptr, msa_ptr)) {
 344         return false;
 345     }
 346
 347     // 特技を使う。
 348     const auto monspell_res = monspell_to_player(player_ptr, msa_ptr->thrown_spell, msa_ptr->y, msa_ptr->x, m_idx);
 349     if (!monspell_res.valid) {
 350         return false;
 351     }
 352
 353     msa_ptr->dam = monspell_res.dam;
 354     check_mspell_imitation(player_ptr, msa_ptr);
 355     remember_mspell(msa_ptr);
 356     if (player_ptr->is_dead && (msa_ptr->r_ptr->r_deaths < MAX_SHORT) && !player_ptr->current_floor_ptr->inside_arena) {
 357         msa_ptr->r_ptr->r_deaths++;
 358     }
 359
 360     return true;
 361 }