src/dungeon/quest.cpp

   1 #include "dungeon/quest.h"
   2 #include "artifact/fixed-art-types.h"
   3 #include "cmd-io/cmd-dump.h"
   4 #include "core/asking-player.h"
   5 #include "floor/cave.h"
   6 #include "floor/floor-events.h"
   7 #include "floor/floor-mode-changer.h"
   8 #include "floor/floor-object.h"
   9 #include "game-option/play-record-options.h"
  10 #include "info-reader/fixed-map-parser.h"
  11 #include "io/write-diary.h"
  12 #include "locale/english.h"
  13 #include "main/music-definitions-table.h"
  14 #include "main/sound-of-music.h"
  15 #include "monster-floor/place-monster-types.h"
  16 #include "monster-race/monster-race-hook.h"
  17 #include "monster-race/monster-race.h"
  18 #include "monster/monster-info.h"
  19 #include "monster/monster-list.h"
  20 #include "monster/monster-util.h"
  21 #include "monster/smart-learn-types.h"
  22 #include "object-enchant/item-apply-magic.h"
  23 #include "object-enchant/trg-types.h"
  24 #include "player-status/player-energy.h"
  25 #include "player/player-personality-types.h"
  26 #include "player/player-status.h"
  27 #include "system/artifact-type-definition.h"
  28 #include "system/dungeon-info.h"
  29 #include "system/floor-type-definition.h" // @todo 相互参照、将来的に削除する.
  30 #include "system/grid-type-definition.h"
  31 #include "system/item-entity.h"
  32 #include "system/monster-race-info.h"
  33 #include "system/player-type-definition.h"
  34 #include "system/terrain-type-definition.h"
  35 #include "util/bit-flags-calculator.h"
  36 #include "view/display-messages.h"
  37 #include "world/world.h"
  38 #include <sstream>
  39 #include <stdexcept>
  40
  41 char quest_text[10][80]; /*!< Quest text */
  42 int quest_text_line; /*!< Current line of the quest text */
  43 QuestId leaving_quest = QuestId::NONE;
  44
  45 /*!
  46  * @brief クエスト突入時のメッセージテーブル / Array of places to find an inscription
  47  */
  48 static concptr find_quest_map[] = {
  49     _("床にメッセージが刻まれている:", "You find the following inscription in the floor"),
  50     _("壁にメッセージが刻まれている:", "You see a message inscribed in the wall"),
  51     _("メッセージを見つけた:", "There is a sign saying"),
  52     _("何かが階段の上に書いてある:", "Something is written on the staircase"),
  53     _("巻物を見つけた。メッセージが書いてある:", "You find a scroll with the following message"),
  54 };
  55
  56 QuestList &QuestList::get_instance()
  57 {
  58     static QuestList instance{};
  59     return instance;
  60 }
  61
  62 QuestType &QuestList::operator[](QuestId id)
  63 {
  64     return this->quest_data.at(id);
  65 }
  66
  67 const QuestType &QuestList::operator[](QuestId id) const
  68 {
  69     return this->quest_data.at(id);
  70 }
  71
  72 QuestList::iterator QuestList::begin()
  73 {
  74     return this->quest_data.begin();
  75 }
  76
  77 QuestList::const_iterator QuestList::begin() const
  78 {
  79     return this->quest_data.cbegin();
  80 }
  81
  82 QuestList::iterator QuestList::end()
  83 {
  84     return this->quest_data.end();
  85 }
  86
  87 QuestList::const_iterator QuestList::end() const
  88 {
  89     return this->quest_data.cend();
  90 }
  91
  92 QuestList::reverse_iterator QuestList::rbegin()
  93 {
  94     return this->quest_data.rbegin();
  95 }
  96
  97 QuestList::const_reverse_iterator QuestList::rbegin() const
  98 {
  99     return this->quest_data.crbegin();
 100 }
 101
 102 QuestList::reverse_iterator QuestList::rend()
 103 {
 104     return this->quest_data.rend();
 105 }
 106
 107 QuestList::const_reverse_iterator QuestList::rend() const
 108 {
 109     return this->quest_data.crend();
 110 }
 111
 112 QuestList::iterator QuestList::find(QuestId id)
 113 {
 114     return this->quest_data.find(id);
 115 }
 116
 117 QuestList::const_iterator QuestList::find(QuestId id) const
 118 {
 119     return this->quest_data.find(id);
 120 }
 121
 122 size_t QuestList::size() const
 123 {
 124     return this->quest_data.size();
 125 }
 126
 127 /*!
 128  * @brief クエスト情報初期化のメインルーチン /
 129  * Initialize quest array
 130  */
 131 void QuestList::initialize()
 132 {
 133     if (initialized) {
 134         return;
 135     }
 136     try {
 137         auto quest_numbers = parse_quest_info(QUEST_DEFINITION_LIST);
 138         QuestType init_quest{};
 139         init_quest.status = QuestStatusType::UNTAKEN;
 140         this->quest_data.insert({ QuestId::NONE, init_quest });
 141         for (auto q : quest_numbers) {
 142             this->quest_data.insert({ q, init_quest });
 143         }
 144         initialized = true;
 145     } catch (const std::runtime_error &r) {
 146         std::stringstream ss;
 147         ss << _("ファイル読み込みエラー: ", "File loading error: ") << r.what();
 148
 149         msg_print(ss.str());
 150         msg_print(nullptr);
 151         quit(_("クエスト初期化エラー", "Error of quests initializing"));
 152     }
 153 }
 154
 155 /*!
 156  * @brief 該当IDが固定クエストかどうかを判定する.
 157  * @param quest_idx クエストID
 158  * @return 固定クエストならばTRUEを返す
 159  */
 160 bool QuestType::is_fixed(QuestId quest_idx)
 161 {
 162     return (enum2i(quest_idx) < MIN_RANDOM_QUEST) || (enum2i(quest_idx) > MAX_RANDOM_QUEST);
 163 }
 164
 165 bool QuestType::has_reward() const
 166 {
 167     return this->reward_artifact_idx != FixedArtifactId::NONE;
 168 }
 169
 170 ArtifactType &QuestType::get_reward() const
 171 {
 172     const auto &artifacts = ArtifactsInfo::get_instance();
 173     return artifacts.get_artifact(this->reward_artifact_idx);
 174 }
 175
 176 /*!
 177  * @brief ランダムクエストの討伐ユニークを決める / Determine the random quest uniques
 178  * @param q_ptr クエスト構造体の参照ポインタ
 179  */
 180 void determine_random_questor(PlayerType *player_ptr, QuestType *q_ptr)
 181 {
 182     get_mon_num_prep(player_ptr, mon_hook_quest, nullptr);
 183     MonsterRaceId r_idx;
 184     while (true) {
 185         r_idx = get_mon_num(player_ptr, 0, q_ptr->level + 5 + randint1(q_ptr->level / 10), PM_ARENA);
 186         const auto &monrace = monraces_info[r_idx];
 187         if (monrace.kind_flags.has_not(MonsterKindType::UNIQUE)) {
 188             continue;
 189         }
 190
 191         if (monrace.misc_flags.has(MonsterMiscType::NO_QUEST)) {
 192             continue;
 193         }
 194
 195         if (monrace.misc_flags.has(MonsterMiscType::QUESTOR)) {
 196             continue;
 197         }
 198
 199         if (monrace.rarity > 100) {
 200             continue;
 201         }
 202
 203         if (monrace.behavior_flags.has(MonsterBehaviorType::FRIENDLY)) {
 204             continue;
 205         }
 206
 207         if (monrace.feature_flags.has(MonsterFeatureType::AQUATIC)) {
 208             continue;
 209         }
 210
 211         if (monrace.wilderness_flags.has(MonsterWildernessType::WILD_ONLY)) {
 212             continue;
 213         }
 214
 215         if (MonraceList::get_instance().can_unify_separate(r_idx)) {
 216             continue;
 217         }
 218
 219         /*
 220          * Accept monsters that are 2 - 6 levels
 221          * out of depth depending on the quest level
 222          */
 223         if (monrace.level > (q_ptr->level + (q_ptr->level / 20))) {
 224             break;
 225         }
 226     }
 227
 228     q_ptr->r_idx = r_idx;
 229 }
 230
 231 /*!
 232  * @brief クエストの最終状態を記録する(成功or失敗、時間)
 233  * @param PlayerType プレイヤー情報への参照ポインタ
 234  * @param q_ptr クエスト情報への参照ポインタ
 235  * @param stat ステータス(成功or失敗)
 236  */
 237 void record_quest_final_status(QuestType *q_ptr, PLAYER_LEVEL lev, QuestStatusType stat)
 238 {
 239     q_ptr->status = stat;
 240     q_ptr->complev = lev;
 241     w_ptr->update_playtime();
 242     q_ptr->comptime = w_ptr->play_time;
 243 }
 244
 245 /*!
 246  * @brief クエストを達成状態にする /
 247  * @param player_ptr プレイヤーへの参照ポインタ
 248  * @param quest_num 達成状態にしたいクエストのID
 249  */
 250 void complete_quest(PlayerType *player_ptr, QuestId quest_num)
 251 {
 252     auto &quest_list = QuestList::get_instance();
 253     auto *const q_ptr = &quest_list[quest_num];
 254
 255     switch (q_ptr->type) {
 256     case QuestKindType::RANDOM:
 257         if (record_rand_quest) {
 258             exe_write_diary_quest(player_ptr, DiaryKind::RAND_QUEST_C, quest_num);
 259         }
 260         break;
 261     default:
 262         if (record_fix_quest) {
 263             exe_write_diary_quest(player_ptr, DiaryKind::FIX_QUEST_C, quest_num);
 264         }
 265         break;
 266     }
 267
 268     record_quest_final_status(q_ptr, player_ptr->lev, QuestStatusType::COMPLETED);
 269
 270     if (q_ptr->flags & QUEST_FLAG_SILENT) {
 271         return;
 272     }
 273
 274     play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_QUEST_CLEAR);
 275     msg_print(_("クエストを達成した！", "You just completed your quest!"));
 276     msg_print(nullptr);
 277 }
 278
 279 /*!
 280  * @brief 特定のアーティファクトを入手した際のクエスト達成処理 /
 281  * Check for "Quest" completion when a quest monster is killed or charmed.
 282  * @param player_ptr プレイヤーへの参照ポインタ
 283  * @param o_ptr 入手したオブジェクトの構造体参照ポインタ
 284  */
 285 void check_find_art_quest_completion(PlayerType *player_ptr, ItemEntity *o_ptr)
 286 {
 287     const auto &quest_list = QuestList::get_instance();
 288     /* Check if completed a quest */
 289     for (const auto &[q_idx, quest] : quest_list) {
 290         auto found_artifact = (quest.type == QuestKindType::FIND_ARTIFACT);
 291         found_artifact &= (quest.status == QuestStatusType::TAKEN);
 292         found_artifact &= (o_ptr->is_specific_artifact(quest.reward_artifact_idx));
 293         if (found_artifact) {
 294             complete_quest(player_ptr, q_idx);
 295         }
 296     }
 297 }
 298
 299 /*!
 300  * @brief クエストの導入メッセージを表示する / Discover quest
 301  * @param q_idx 開始されたクエストのID
 302  */
 303 void quest_discovery(QuestId q_idx)
 304 {
 305     auto &quest_list = QuestList::get_instance();
 306     auto *q_ptr = &quest_list[q_idx];
 307     auto *r_ptr = &monraces_info[q_ptr->r_idx];
 308     MONSTER_NUMBER q_num = q_ptr->max_num;
 309
 310     if (!inside_quest(q_idx)) {
 311         return;
 312     }
 313
 314     GAME_TEXT name[MAX_NLEN];
 315     strcpy(name, (r_ptr->name.data()));
 316
 317     msg_print(find_quest_map[rand_range(0, 4)]);
 318     msg_print(nullptr);
 319
 320     if (q_num != 1) {
 321 #ifdef JP
 322 #else
 323         plural_aux(name);
 324 #endif
 325         msg_format(_("注意しろ！この階は%d体の%sによって守られている！", "Be warned, this level is guarded by %d %s!"), q_num, name);
 326         return;
 327     }
 328
 329     bool is_random_quest_skipped = r_ptr->kind_flags.has(MonsterKindType::UNIQUE);
 330     is_random_quest_skipped &= r_ptr->max_num == 0;
 331     if (!is_random_quest_skipped) {
 332         msg_format(_("注意せよ！この階は%sによって守られている！", "Beware, this level is protected by %s!"), name);
 333         return;
 334     }
 335
 336     msg_print(_("この階は以前は誰かによって守られていたようだ…。", "It seems that this level was protected by someone before..."));
 337     record_quest_final_status(q_ptr, 0, QuestStatusType::FINISHED);
 338 }
 339
 340 /*!
 341  * @brief クエスト階層から離脱する際の処理
 342  * @param player_ptr プレイヤーへの参照ポインタ
 343  */
 344 void leave_quest_check(PlayerType *player_ptr)
 345 {
 346     leaving_quest = player_ptr->current_floor_ptr->quest_number;
 347     if (!inside_quest(leaving_quest)) {
 348         return;
 349     }
 350
 351     auto &quest_list = QuestList::get_instance();
 352     auto *q_ptr = &quest_list[leaving_quest];
 353     bool is_one_time_quest = ((q_ptr->flags & QUEST_FLAG_ONCE) || (q_ptr->type == QuestKindType::RANDOM)) && (q_ptr->status == QuestStatusType::TAKEN);
 354     if (!is_one_time_quest) {
 355         return;
 356     }
 357
 358     record_quest_final_status(q_ptr, player_ptr->lev, QuestStatusType::FAILED);
 359
 360     /* Additional settings */
 361     switch (q_ptr->type) {
 362     case QuestKindType::TOWER:
 363         quest_list[QuestId::TOWER1].status = QuestStatusType::FAILED;
 364         quest_list[QuestId::TOWER1].complev = player_ptr->lev;
 365         break;
 366     case QuestKindType::FIND_ARTIFACT:
 367         q_ptr->get_reward().gen_flags.reset(ItemGenerationTraitType::QUESTITEM);
 368         break;
 369     case QuestKindType::RANDOM:
 370         monraces_info[q_ptr->r_idx].misc_flags.reset(MonsterMiscType::QUESTOR);
 371         prepare_change_floor_mode(player_ptr, CFM_NO_RETURN);
 372         break;
 373     default:
 374         break;
 375     }
 376
 377     /* Record finishing a quest */
 378     if (q_ptr->type == QuestKindType::RANDOM) {
 379         if (record_rand_quest) {
 380             exe_write_diary_quest(player_ptr, DiaryKind::RAND_QUEST_F, leaving_quest);
 381         }
 382         return;
 383     }
 384
 385     if (record_fix_quest) {
 386         exe_write_diary_quest(player_ptr, DiaryKind::FIX_QUEST_F, leaving_quest);
 387     }
 388 }
 389
 390 /*!
 391  * @brief 「塔」クエストの各階層から離脱する際の処理
 392  */
 393 void leave_tower_check(PlayerType *player_ptr)
 394 {
 395     auto &quest_list = QuestList::get_instance();
 396     leaving_quest = player_ptr->current_floor_ptr->quest_number;
 397
 398     auto &tower1 = quest_list[QuestId::TOWER1];
 399     bool is_leaving_from_tower = inside_quest(leaving_quest);
 400     is_leaving_from_tower &= quest_list[leaving_quest].type == QuestKindType::TOWER;
 401     is_leaving_from_tower &= tower1.status != QuestStatusType::COMPLETED;
 402     if (!is_leaving_from_tower) {
 403         return;
 404     }
 405     if (quest_list[leaving_quest].type != QuestKindType::TOWER) {
 406         return;
 407     }
 408     tower1.status = QuestStatusType::FAILED;
 409     tower1.complev = player_ptr->lev;
 410     w_ptr->update_playtime();
 411     tower1.comptime = w_ptr->play_time;
 412 }
 413
 414 /*!
 415  * @brief Player enters a new quest
 416  */
 417 void exe_enter_quest(PlayerType *player_ptr, QuestId quest_idx)
 418 {
 419     const auto &quest_list = QuestList::get_instance();
 420     if (quest_list[quest_idx].type != QuestKindType::RANDOM) {
 421         player_ptr->current_floor_ptr->dun_level = 1;
 422     }
 423     player_ptr->current_floor_ptr->quest_number = quest_idx;
 424
 425     player_ptr->leaving = true;
 426 }
 427
 428 /*!
 429  * @brief クエスト入り口にプレイヤーが乗った際の処理 / Do building commands
 430  * @param player_ptr プレイヤーへの参照ポインタ
 431  */
 432 void do_cmd_quest(PlayerType *player_ptr)
 433 {
 434     if (player_ptr->wild_mode) {
 435         return;
 436     }
 437
 438     PlayerEnergy(player_ptr).set_player_turn_energy(100);
 439
 440     if (!cave_has_flag_bold(player_ptr->current_floor_ptr, player_ptr->y, player_ptr->x, TerrainCharacteristics::QUEST_ENTER)) {
 441         msg_print(_("ここにはクエストの入口はない。", "You see no quest level here."));
 442         return;
 443     }
 444
 445     msg_print(_("ここにはクエストへの入口があります。", "There is an entry of a quest."));
 446     if (!input_check(_("クエストに入りますか？", "Do you enter? "))) {
 447         return;
 448     }
 449     if (is_echizen(player_ptr)) {
 450         msg_print(_("『とにかく入ってみようぜぇ。』", "\"Let's go in anyway.\""));
 451     } else if (is_chargeman(player_ptr)) {
 452         msg_print(_("『全滅してやるぞ！』", "\"I'll annihilate THEM!\""));
 453     }
 454
 455     player_ptr->oldpy = 0;
 456     player_ptr->oldpx = 0;
 457     leave_quest_check(player_ptr);
 458
 459     exe_enter_quest(player_ptr, i2enum<QuestId>(player_ptr->current_floor_ptr->grid_array[player_ptr->y][player_ptr->x].special));
 460 }
 461
 462 bool inside_quest(QuestId id)
 463 {
 464     return id != QuestId::NONE;
 465 }