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