src/mspell/mspell-floor.cpp

   1 /*!
   2  * @brief フロアの一定範囲に効果を及ぼす (悲鳴、テレポート等)スペルの効果
   3  * @date 2020/05/16
   4  * @author Hourier
   5  */
   6
   7 #include "mspell/mspell-floor.h"
   8 #include "blue-magic/blue-magic-checker.h"
   9 #include "core/disturbance.h"
  10 #include "core/player-update-types.h"
  11 #include "effect/effect-characteristics.h"
  12 #include "effect/effect-processor.h"
  13 #include "mind/drs-types.h"
  14 #include "monster-race/monster-race.h"
  15 #include "monster-race/race-flags-resistance.h"
  16 #include "monster-race/race-flags1.h"
  17 #include "monster-race/race-flags3.h"
  18 #include "monster-race/race-flags7.h"
  19 #include "monster-race/race-indice-types.h"
  20 #include "monster/monster-info.h"
  21 #include "monster/monster-status-setter.h"
  22 #include "monster/monster-status.h"
  23 #include "monster/monster-update.h"
  24 #include "mspell/mspell-status.h"
  25 #include "mspell/mspell-type.h"
  26 #include "mspell/mspell-util.h"
  27 #include "player/player-personalities-types.h"
  28 #include "player/player-status-flags.h"
  29 #include "spell-kind/spells-lite.h"
  30 #include "spell-kind/spells-neighbor.h"
  31 #include "spell-kind/spells-sight.h"
  32 #include "spell-kind/spells-teleport.h"
  33 #include "spell-kind/spells-world.h"
  34 #include "spell-realm/spells-hex.h"
  35 #include "spell/spell-types.h"
  36 #include "system/floor-type-definition.h"
  37 #include "view/display-messages.h"
  38
  39 /*!
  40  * @brief RF4_SHRIEKの処理。叫び。 /
  41  * @param m_idx 呪文を唱えるモンスターID
  42  * @param target_ptr プレーヤーへの参照ポインタ
  43  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
  44  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
  45  */
  46 void spell_RF4_SHRIEK(MONSTER_IDX m_idx, player_type *target_ptr, MONSTER_IDX t_idx, int TARGET_TYPE)
  47 {
  48     simple_monspell_message(target_ptr, m_idx, t_idx, _("%^sがかん高い金切り声をあげた。", "%^s makes a high pitched shriek."),
  49         _("%^sが%sに向かって叫んだ。", "%^s shrieks at %s."), TARGET_TYPE);
  50
  51     if (TARGET_TYPE == MONSTER_TO_PLAYER) {
  52         aggravate_monsters(target_ptr, m_idx);
  53         return;
  54     }
  55
  56     if (TARGET_TYPE == MONSTER_TO_MONSTER) {
  57         set_monster_csleep(target_ptr, t_idx, 0);
  58     }
  59 }
  60
  61 /*!
  62  * @brief RF6_WORLDの処理。時を止める。 /
  63  * @param target_ptr プレーヤーへの参照ポインタ
  64  * @param m_idx 呪文を唱えるモンスターID
  65  */
  66 HIT_POINT spell_RF6_WORLD(player_type *target_ptr, MONSTER_IDX m_idx)
  67 {
  68     monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
  69     MONSTER_IDX who = 0;
  70     GAME_TEXT m_name[MAX_NLEN];
  71     monster_name(target_ptr, m_idx, m_name);
  72
  73     disturb(target_ptr, TRUE, TRUE);
  74     if (m_ptr->r_idx == MON_DIO)
  75         who = 1;
  76     else if (m_ptr->r_idx == MON_WONG)
  77         who = 3;
  78     if (!set_monster_timewalk(target_ptr, randint1(2) + 2, who, TRUE))
  79         return FALSE;
  80     return who;
  81 }
  82
  83 /*!
  84  * @brief RF6_BLINKの処理。ショート・テレポート。 /
  85  * @param target_ptr プレーヤーへの参照ポインタ
  86  * @param m_idx 呪文を唱えるモンスターID
  87  * @param is_quantum_effect 量子的効果によるショート・テレポートの場合時TRUE
  88  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
  89  */
  90 void spell_RF6_BLINK(player_type *target_ptr, MONSTER_IDX m_idx, int TARGET_TYPE, bool is_quantum_effect)
  91 {
  92     GAME_TEXT m_name[MAX_NLEN];
  93     monster_name(target_ptr, m_idx, m_name);
  94
  95     if (TARGET_TYPE == MONSTER_TO_PLAYER)
  96         disturb(target_ptr, TRUE, TRUE);
  97
  98     if (!is_quantum_effect && teleport_barrier(target_ptr, m_idx)) {
  99         if (see_monster(target_ptr, m_idx))
 100             msg_format(_("魔法のバリアが%^sのテレポートを邪魔した。", "Magic barrier obstructs teleporting of %^s."), m_name);
 101         return;
 102     }
 103
 104     if (see_monster(target_ptr, m_idx))
 105         msg_format(_("%^sが瞬時に消えた。", "%^s blinks away."), m_name);
 106
 107     teleport_away(target_ptr, m_idx, 10, TELEPORT_SPONTANEOUS);
 108
 109     if (TARGET_TYPE == MONSTER_TO_PLAYER)
 110         target_ptr->update |= (PU_MONSTERS);
 111 }
 112
 113 /*!
 114  * @brief RF6_TPORTの処理。テレポート。 /
 115  * @param target_ptr プレーヤーへの参照ポインタ
 116  * @param m_idx 呪文を唱えるモンスターID
 117  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 118  */
 119 void spell_RF6_TPORT(player_type *target_ptr, MONSTER_IDX m_idx, int TARGET_TYPE)
 120 {
 121     GAME_TEXT m_name[MAX_NLEN];
 122     monster_name(target_ptr, m_idx, m_name);
 123
 124     if (TARGET_TYPE == MONSTER_TO_PLAYER)
 125         disturb(target_ptr, TRUE, TRUE);
 126     if (teleport_barrier(target_ptr, m_idx)) {
 127         if (see_monster(target_ptr, m_idx))
 128             msg_format(_("魔法のバリアが%^sのテレポートを邪魔した。", "Magic barrier obstructs teleporting of %^s."), m_name);
 129         return;
 130     }
 131
 132     if (see_monster(target_ptr, m_idx))
 133         msg_format(_("%^sがテレポートした。", "%^s teleports away."), m_name);
 134
 135     teleport_away_followable(target_ptr, m_idx);
 136 }
 137
 138 /*!
 139  * @brief RF6_TELE_TOの処理。テレポート・バック。 /
 140  * @param target_ptr プレーヤーへの参照ポインタ
 141  * @param m_idx 呪文を唱えるモンスターID
 142  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
 143  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 144  * @return ダメージ量を返す。
 145  */
 146 void spell_RF6_TELE_TO(player_type *target_ptr, MONSTER_IDX m_idx, MONSTER_IDX t_idx, int TARGET_TYPE)
 147 {
 148     floor_type *floor_ptr = target_ptr->current_floor_ptr;
 149     monster_type *m_ptr = &floor_ptr->m_list[m_idx];
 150     monster_type *t_ptr = &floor_ptr->m_list[t_idx];
 151     monster_race *tr_ptr = &r_info[t_ptr->r_idx];
 152
 153     simple_monspell_message(target_ptr, m_idx, t_idx, _("%^sがあなたを引き戻した。", "%^s commands you to return."),
 154         _("%^sが%sを引き戻した。", "%^s commands %s to return."), TARGET_TYPE);
 155
 156     if (TARGET_TYPE == MONSTER_TO_PLAYER) {
 157         teleport_player_to(target_ptr, m_ptr->fy, m_ptr->fx, TELEPORT_PASSIVE);
 158         return;
 159     }
 160
 161     if (TARGET_TYPE != MONSTER_TO_MONSTER)
 162         return;
 163
 164     bool resists_tele = FALSE;
 165     GAME_TEXT t_name[MAX_NLEN];
 166     monster_name(target_ptr, t_idx, t_name);
 167
 168     if (tr_ptr->flagsr & RFR_RES_TELE) {
 169         if ((tr_ptr->flags1 & RF1_UNIQUE) || (tr_ptr->flagsr & RFR_RES_ALL)) {
 170             if (is_original_ap_and_seen(target_ptr, t_ptr))
 171                 tr_ptr->r_flagsr |= RFR_RES_TELE;
 172             if (see_monster(target_ptr, t_idx)) {
 173                 msg_format(_("%^sには効果がなかった。", "%^s is unaffected!"), t_name);
 174             }
 175             resists_tele = TRUE;
 176         } else if (tr_ptr->level > randint1(100)) {
 177             if (is_original_ap_and_seen(target_ptr, t_ptr))
 178                 tr_ptr->r_flagsr |= RFR_RES_TELE;
 179             if (see_monster(target_ptr, t_idx)) {
 180                 msg_format(_("%^sは耐性を持っている！", "%^s resists!"), t_name);
 181             }
 182             resists_tele = TRUE;
 183         }
 184     }
 185
 186     if (resists_tele) {
 187         set_monster_csleep(target_ptr, t_idx, 0);
 188         return;
 189     }
 190
 191     if (t_idx == target_ptr->riding)
 192         teleport_player_to(target_ptr, m_ptr->fy, m_ptr->fx, TELEPORT_PASSIVE);
 193     else
 194         teleport_monster_to(target_ptr, t_idx, m_ptr->fy, m_ptr->fx, 100, TELEPORT_PASSIVE);
 195     set_monster_csleep(target_ptr, t_idx, 0);
 196 }
 197
 198 /*!
 199  * @brief RF6_TELE_AWAYの処理。テレポート・アウェイ。 /
 200  * @param target_ptr プレーヤーへの参照ポインタ
 201  * @param m_idx 呪文を唱えるモンスターID
 202  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
 203  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 204  * @return ダメージ量を返す。
 205  */
 206 void spell_RF6_TELE_AWAY(player_type *target_ptr, MONSTER_IDX m_idx, MONSTER_IDX t_idx, int TARGET_TYPE)
 207 {
 208     floor_type *floor_ptr = target_ptr->current_floor_ptr;
 209     monster_type *t_ptr = &floor_ptr->m_list[t_idx];
 210     monster_race *tr_ptr = &r_info[t_ptr->r_idx];
 211
 212     simple_monspell_message(target_ptr, m_idx, t_idx, _("%^sにテレポートさせられた。", "%^s teleports you away."),
 213         _("%^sは%sをテレポートさせた。", "%^s teleports %s away."), TARGET_TYPE);
 214
 215     if (TARGET_TYPE == MONSTER_TO_PLAYER) {
 216         if (is_echizen(target_ptr))
 217             msg_print(_("くっそ～", ""));
 218         else if (target_ptr->pseikaku == PERSONALITY_CHARGEMAN) {
 219             if (randint0(2) == 0)
 220                 msg_print(_("ジュラル星人め！", ""));
 221             else
 222                 msg_print(_("弱い者いじめは止めるんだ！", ""));
 223         }
 224
 225         teleport_player_away(m_idx, target_ptr, 100, FALSE);
 226         return;
 227     }
 228
 229     if (TARGET_TYPE != MONSTER_TO_MONSTER)
 230         return;
 231
 232     bool resists_tele = FALSE;
 233     GAME_TEXT t_name[MAX_NLEN];
 234     monster_name(target_ptr, t_idx, t_name);
 235
 236     if (tr_ptr->flagsr & RFR_RES_TELE) {
 237         if ((tr_ptr->flags1 & RF1_UNIQUE) || (tr_ptr->flagsr & RFR_RES_ALL)) {
 238             if (is_original_ap_and_seen(target_ptr, t_ptr))
 239                 tr_ptr->r_flagsr |= RFR_RES_TELE;
 240             if (see_monster(target_ptr, t_idx)) {
 241                 msg_format(_("%^sには効果がなかった。", "%^s is unaffected!"), t_name);
 242             }
 243             resists_tele = TRUE;
 244         } else if (tr_ptr->level > randint1(100)) {
 245             if (is_original_ap_and_seen(target_ptr, t_ptr))
 246                 tr_ptr->r_flagsr |= RFR_RES_TELE;
 247             if (see_monster(target_ptr, t_idx)) {
 248                 msg_format(_("%^sは耐性を持っている！", "%^s resists!"), t_name);
 249             }
 250             resists_tele = TRUE;
 251         }
 252     }
 253
 254     if (resists_tele) {
 255         set_monster_csleep(target_ptr, t_idx, 0);
 256         return;
 257     }
 258
 259     if (t_idx == target_ptr->riding)
 260         teleport_player_away(m_idx, target_ptr, MAX_SIGHT * 2 + 5, FALSE);
 261     else
 262         teleport_away(target_ptr, t_idx, MAX_SIGHT * 2 + 5, TELEPORT_PASSIVE);
 263     set_monster_csleep(target_ptr, t_idx, 0);
 264 }
 265
 266 /*!
 267  * @brief RF6_TELE_LEVELの処理。テレポート・レベル。 /
 268  * @param target_ptr プレーヤーへの参照ポインタ
 269  * @param m_idx 呪文を唱えるモンスターID
 270  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
 271  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 272  * @return ダメージ量を返す。
 273  */
 274 void spell_RF6_TELE_LEVEL(player_type *target_ptr, MONSTER_IDX m_idx, MONSTER_IDX t_idx, int TARGET_TYPE)
 275 {
 276     floor_type *floor_ptr = target_ptr->current_floor_ptr;
 277     monster_type *t_ptr = &floor_ptr->m_list[t_idx];
 278     monster_race *tr_ptr = &r_info[t_ptr->r_idx];
 279     DEPTH rlev = monster_level_idx(floor_ptr, m_idx);
 280     bool resist, saving_throw;
 281
 282     if (TARGET_TYPE == MONSTER_TO_PLAYER) {
 283         resist = (has_resist_nexus(target_ptr) != 0);
 284         saving_throw = (randint0(100 + rlev / 2) < target_ptr->skill_sav);
 285         spell_badstatus_message(target_ptr, m_idx, t_idx, _("%^sが何か奇妙な言葉をつぶやいた。", "%^s mumbles strangely."),
 286             _("%^sがあなたの足を指さした。", "%^s gestures at your feet."), _("しかし効果がなかった！", "You are unaffected!"),
 287             _("しかし効力を跳ね返した！", "You resist the effects!"), resist, saving_throw, TARGET_TYPE);
 288
 289         if (!resist && !saving_throw) {
 290             teleport_level(target_ptr, 0);
 291         }
 292
 293         update_smart_learn(target_ptr, m_idx, DRS_NEXUS);
 294         return;
 295     }
 296
 297     if (TARGET_TYPE != MONSTER_TO_MONSTER)
 298         return;
 299
 300     resist = tr_ptr->flagsr & (RFR_EFF_RES_NEXU_MASK | RFR_RES_TELE);
 301     saving_throw = (tr_ptr->flags1 & RF1_QUESTOR) || (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10);
 302
 303     spell_badstatus_message(target_ptr, m_idx, t_idx, _("%^sが%sの足を指さした。", "%^s gestures at %s's feet."),
 304         _("%^sには効果がなかった。", "%^s is unaffected!"), _("%^sは効力を跳ね返した！", "%^s resist the effects!"), "", resist, saving_throw, TARGET_TYPE);
 305
 306     if (!resist && !saving_throw) {
 307         teleport_level(target_ptr, (t_idx == target_ptr->riding) ? 0 : t_idx);
 308     }
 309 }
 310
 311 /*!
 312  * @brief RF6_DARKNESSの処理。暗闇or閃光。 /
 313  * @param target_type プレーヤーへの参照ポインタ
 314  * @param y 対象の地点のy座標
 315  * @param x 対象の地点のx座標
 316  * @param m_idx 呪文を唱えるモンスターID
 317  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
 318  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 319  */
 320 void spell_RF6_DARKNESS(player_type *target_ptr, POSITION y, POSITION x, MONSTER_IDX m_idx, MONSTER_IDX t_idx, int TARGET_TYPE)
 321 {
 322     floor_type *floor_ptr = target_ptr->current_floor_ptr;
 323     monster_type *m_ptr = &floor_ptr->m_list[m_idx];
 324     monster_type *t_ptr = &floor_ptr->m_list[t_idx];
 325     monster_race *r_ptr = &r_info[m_ptr->r_idx];
 326     bool can_use_lite_area = FALSE;
 327     bool monster_to_monster = TARGET_TYPE == MONSTER_TO_MONSTER;
 328     bool monster_to_player = TARGET_TYPE == MONSTER_TO_PLAYER;
 329     GAME_TEXT t_name[MAX_NLEN];
 330     monster_name(target_ptr, t_idx, t_name);
 331
 332     if ((target_ptr->pclass == CLASS_NINJA) && !(r_ptr->flags3 & (RF3_UNDEAD | RF3_HURT_LITE)) && !(r_ptr->flags7 & RF7_DARK_MASK))
 333         can_use_lite_area = TRUE;
 334
 335     if (monster_to_monster && !is_hostile(t_ptr))
 336         can_use_lite_area = FALSE;
 337
 338     if (can_use_lite_area) {
 339         monspell_message(target_ptr, m_idx, t_idx, _("%^sが何かをつぶやいた。", "%^s mumbles."),
 340             _("%^sが辺りを明るく照らした。", "%^s cast a spell to light up."), _("%^sが辺りを明るく照らした。", "%^s cast a spell to light up."), TARGET_TYPE);
 341
 342         if (see_monster(target_ptr, t_idx) && monster_to_monster) {
 343             msg_format(_("%^sは白い光に包まれた。", "%^s is surrounded by a white light."), t_name);
 344         }
 345     } else {
 346         monspell_message(target_ptr, m_idx, t_idx, _("%^sが何かをつぶやいた。", "%^s mumbles."), _("%^sが暗闇の中で手を振った。", "%^s gestures in shadow."),
 347             _("%^sが暗闇の中で手を振った。", "%^s gestures in shadow."), TARGET_TYPE);
 348
 349         if (see_monster(target_ptr, t_idx) && monster_to_monster) {
 350             msg_format(_("%^sは暗闇に包まれた。", "%^s is surrounded by darkness."), t_name);
 351         }
 352     }
 353
 354     if (monster_to_player) {
 355         if (can_use_lite_area) {
 356             (void)lite_area(target_ptr, 0, 3);
 357         } else {
 358             // XXX: ラーニング条件が特技IDのみから決まらないため、やむを得ずここでラーニング処理を行う。
 359             learn_spell(target_ptr, MS_DARKNESS);
 360             (void)unlite_area(target_ptr, 0, 3);
 361         }
 362
 363         return;
 364     }
 365
 366     if (!monster_to_monster)
 367         return;
 368
 369     int lite_area = can_use_lite_area ? -1 : MS_DARKNESS;
 370     (void)project(target_ptr, m_idx, 3, y, x, 0, GF_LITE_WEAK, PROJECT_GRID | PROJECT_KILL, lite_area);
 371     lite_room(target_ptr, y, x);
 372 }
 373
 374 /*!
 375  * @brief RF6_TRAPSの処理。トラップ。 /
 376  * @param target_ptr プレーヤーへの参照ポインタ
 377  * @param y 対象の地点のy座標
 378  * @param x 対象の地点のx座標
 379  * @param m_idx 呪文を唱えるモンスターID
 380  * @param なし
 381  */
 382 void spell_RF6_TRAPS(player_type *target_ptr, POSITION y, POSITION x, MONSTER_IDX m_idx)
 383 {
 384     GAME_TEXT m_name[MAX_NLEN];
 385     monster_name(target_ptr, m_idx, m_name);
 386     disturb(target_ptr, TRUE, TRUE);
 387
 388     if (target_ptr->blind)
 389         msg_format(_("%^sが何かをつぶやいて邪悪に微笑んだ。", "%^s mumbles, and then cackles evilly."), m_name);
 390     else
 391         msg_format(_("%^sが呪文を唱えて邪悪に微笑んだ。", "%^s casts a spell and cackles evilly."), m_name);
 392
 393     (void)trap_creation(target_ptr, y, x);
 394 }
 395
 396 /*!
 397  * @brief RF6_RAISE_DEADの処理。死者復活。 /
 398  * @param target_ptr プレーヤーへの参照ポインタ
 399  * @param m_idx 呪文を唱えるモンスターID
 400  * @param t_idx 呪文を受けるモンスターID。プレイヤーの場合はdummyで0とする。
 401  * @param TARGET_TYPE プレイヤーを対象とする場合MONSTER_TO_PLAYER、モンスターを対象とする場合MONSTER_TO_MONSTER
 402  */
 403 void spell_RF6_RAISE_DEAD(player_type *target_ptr, MONSTER_IDX m_idx, MONSTER_IDX t_idx, int TARGET_TYPE)
 404 {
 405     monster_type *m_ptr = &target_ptr->current_floor_ptr->m_list[m_idx];
 406
 407     monspell_message(target_ptr, m_idx, t_idx, _("%^sが何かをつぶやいた。", "%^s mumbles."),
 408         _("%^sが死者復活の呪文を唱えた。", "%^s casts a spell to revive corpses."), _("%^sが死者復活の呪文を唱えた。", "%^s casts a spell to revive corpses."),
 409         TARGET_TYPE);
 410
 411     animate_dead(target_ptr, m_idx, m_ptr->fy, m_ptr->fx);
 412 }