src/dungeon/dungeon-processor.c

   1 #include "dungeon/dungeon-processor.h"
   2 #include "cmd-building/cmd-building.h"
   3 #include "cmd-io/cmd-dump.h"
   4 #include "core/disturbance.h"
   5 #include "core/hp-mp-regenerator.h"
   6 #include "core/object-compressor.h"
   7 #include "core/player-processor.h"
   8 #include "core/player-redraw-types.h"
   9 #include "core/player-update-types.h"
  10 #include "core/stuff-handler.h"
  11 #include "core/turn-compensator.h"
  12 #include "core/window-redrawer.h"
  13 #include "dungeon/dungeon.h"
  14 #include "dungeon/quest.h"
  15 #include "floor/floor-leaver.h"
  16 #include "floor/floor-save-util.h"
  17 #include "floor/floor-save.h"
  18 #include "game-option/map-screen-options.h"
  19 #include "game-option/play-record-options.h"
  20 #include "io/cursor.h"
  21 #include "io/input-key-requester.h"
  22 #include "io/write-diary.h"
  23 #include "market/arena.h"
  24 #include "mind/mind-ninja.h"
  25 #include "monster-race/monster-race.h"
  26 #include "monster-race/race-flags1.h"
  27 #include "monster/monster-compaction.h"
  28 #include "monster/monster-processor.h"
  29 #include "monster/monster-status.h"
  30 #include "monster/monster-util.h"
  31 #include "player/special-defense-types.h"
  32 #include "realm/realm-song-numbers.h"
  33 #include "realm/realm-song.h"
  34 #include "system/floor-type-definition.h"
  35 #include "target/target-checker.h"
  36 #include "view/display-messages.h"
  37 #include "world/world-turn-processor.h"
  38 #include "world/world.h"
  39
  40 /*!
  41  * process_player()、process_world() をcore.c から移設するのが先.
  42  * process_upkeep_with_speed() はこの関数と同じところでOK
  43  * @brief 現在プレイヤーがいるダンジョンの全体処理 / Interact with the current dungeon level.
  44  * @return なし
  45  * @details
  46  * <p>
  47  * この関数から現在の階層を出る、プレイヤーがキャラが死ぬ、
  48  * ゲームを終了するかのいずれかまでループする。
  49  * </p>
  50  * <p>
  51  * This function will not exit until the level is completed,\n
  52  * the user dies, or the game is terminated.\n
  53  * </p>
  54  */
  55 void process_dungeon(player_type *player_ptr, bool load_game)
  56 {
  57     floor_type *floor_ptr = player_ptr->current_floor_ptr;
  58     floor_ptr->base_level = floor_ptr->dun_level;
  59     current_world_ptr->is_loading_now = FALSE;
  60     player_ptr->leaving = FALSE;
  61
  62     command_cmd = 0;
  63     command_rep = 0;
  64     command_arg = 0;
  65     command_dir = 0;
  66
  67     target_who = 0;
  68     player_ptr->pet_t_m_idx = 0;
  69     player_ptr->riding_t_m_idx = 0;
  70     player_ptr->ambush_flag = FALSE;
  71     health_track(player_ptr, 0);
  72     repair_monsters = TRUE;
  73
  74     disturb(player_ptr, TRUE, TRUE);
  75     int quest_num = quest_num = quest_number(player_ptr, floor_ptr->dun_level);
  76     if (quest_num) {
  77         r_info[quest[quest_num].r_idx].flags1 |= RF1_QUESTOR;
  78     }
  79
  80     if (player_ptr->max_plv < player_ptr->lev) {
  81         player_ptr->max_plv = player_ptr->lev;
  82     }
  83
  84     if ((max_dlv[player_ptr->dungeon_idx] < floor_ptr->dun_level) && !floor_ptr->inside_quest) {
  85         max_dlv[player_ptr->dungeon_idx] = floor_ptr->dun_level;
  86         if (record_maxdepth)
  87             exe_write_diary(player_ptr, DIARY_MAXDEAPTH, floor_ptr->dun_level, NULL);
  88     }
  89
  90     (void)calculate_upkeep(player_ptr);
  91     panel_bounds_center();
  92     verify_panel(player_ptr);
  93     msg_erase();
  94
  95     current_world_ptr->character_xtra = TRUE;
  96     player_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER | PW_MONSTER | PW_OVERHEAD | PW_DUNGEON);
  97     player_ptr->redraw |= (PR_WIPE | PR_BASIC | PR_EXTRA | PR_EQUIPPY | PR_MAP);
  98     player_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS | PU_VIEW | PU_LITE | PU_MON_LITE | PU_TORCH | PU_MONSTERS | PU_DISTANCE | PU_FLOW);
  99     handle_stuff(player_ptr);
 100
 101     current_world_ptr->character_xtra = FALSE;
 102     player_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS);
 103     player_ptr->update |= (PU_COMBINE | PU_REORDER);
 104     handle_stuff(player_ptr);
 105     term_fresh();
 106
 107     if (quest_num
 108         && (is_fixed_quest_idx(quest_num) && !((quest_num == QUEST_OBERON) || (quest_num == QUEST_SERPENT) || !(quest[quest_num].flags & QUEST_FLAG_PRESET))))
 109         do_cmd_feeling(player_ptr);
 110
 111     if (player_ptr->phase_out) {
 112         if (load_game) {
 113             player_ptr->energy_need = 0;
 114             update_gambling_monsters(player_ptr);
 115         } else {
 116             msg_print(_("試合開始！", "Ready..Fight!"));
 117             msg_print(NULL);
 118         }
 119     }
 120
 121     if ((player_ptr->pclass == CLASS_BARD) && (SINGING_SONG_EFFECT(player_ptr) > MUSIC_DETECT))
 122         SINGING_SONG_EFFECT(player_ptr) = MUSIC_DETECT;
 123
 124     if (!player_ptr->playing || player_ptr->is_dead)
 125         return;
 126
 127     if (!floor_ptr->inside_quest && (player_ptr->dungeon_idx == DUNGEON_ANGBAND)) {
 128         quest_discovery(random_quest_number(player_ptr, floor_ptr->dun_level));
 129         floor_ptr->inside_quest = random_quest_number(player_ptr, floor_ptr->dun_level);
 130     }
 131     if ((floor_ptr->dun_level == d_info[player_ptr->dungeon_idx].maxdepth) && d_info[player_ptr->dungeon_idx].final_guardian) {
 132         if (r_info[d_info[player_ptr->dungeon_idx].final_guardian].max_num)
 133 #ifdef JP
 134             msg_format("この階には%sの主である%sが棲んでいる。", d_name + d_info[player_ptr->dungeon_idx].name,
 135                 r_name + r_info[d_info[player_ptr->dungeon_idx].final_guardian].name);
 136 #else
 137             msg_format("%^s lives in this level as the keeper of %s.", r_name + r_info[d_info[player_ptr->dungeon_idx].final_guardian].name,
 138                 d_name + d_info[player_ptr->dungeon_idx].name);
 139 #endif
 140     }
 141
 142     if (!load_game && (player_ptr->special_defense & NINJA_S_STEALTH))
 143         set_superstealth(player_ptr, FALSE);
 144
 145     floor_ptr->monster_level = floor_ptr->base_level;
 146     floor_ptr->object_level = floor_ptr->base_level;
 147     current_world_ptr->is_loading_now = TRUE;
 148     if (player_ptr->energy_need > 0 && !player_ptr->phase_out && (floor_ptr->dun_level || player_ptr->leaving_dungeon || floor_ptr->inside_arena))
 149         player_ptr->energy_need = 0;
 150
 151     player_ptr->leaving_dungeon = FALSE;
 152     mproc_init(floor_ptr);
 153
 154     while (TRUE) {
 155         if ((floor_ptr->m_cnt + 32 > current_world_ptr->max_m_idx) && !player_ptr->phase_out)
 156             compact_monsters(player_ptr, 64);
 157
 158         if ((floor_ptr->m_cnt + 32 < floor_ptr->m_max) && !player_ptr->phase_out)
 159             compact_monsters(player_ptr, 0);
 160
 161         if (floor_ptr->o_cnt + 32 > current_world_ptr->max_o_idx)
 162             compact_objects(player_ptr, 64);
 163
 164         if (floor_ptr->o_cnt + 32 < floor_ptr->o_max)
 165             compact_objects(player_ptr, 0);
 166
 167         process_player(player_ptr);
 168         process_upkeep_with_speed(player_ptr);
 169         handle_stuff(player_ptr);
 170
 171         move_cursor_relative(player_ptr->y, player_ptr->x);
 172         if (fresh_after)
 173             term_fresh();
 174
 175         if (!player_ptr->playing || player_ptr->is_dead)
 176             break;
 177
 178         process_monsters(player_ptr);
 179         handle_stuff(player_ptr);
 180
 181         move_cursor_relative(player_ptr->y, player_ptr->x);
 182         if (fresh_after)
 183             term_fresh();
 184
 185         if (!player_ptr->playing || player_ptr->is_dead)
 186             break;
 187
 188         process_world(player_ptr);
 189         handle_stuff(player_ptr);
 190
 191         move_cursor_relative(player_ptr->y, player_ptr->x);
 192         if (fresh_after)
 193             term_fresh();
 194
 195         if (!player_ptr->playing || player_ptr->is_dead)
 196             break;
 197
 198         current_world_ptr->game_turn++;
 199         if (current_world_ptr->dungeon_turn < current_world_ptr->dungeon_turn_limit) {
 200             if (!player_ptr->wild_mode || wild_regen)
 201                 current_world_ptr->dungeon_turn++;
 202             else if (player_ptr->wild_mode && !(current_world_ptr->game_turn % ((MAX_HGT + MAX_WID) / 2)))
 203                 current_world_ptr->dungeon_turn++;
 204         }
 205
 206         prevent_turn_overflow(player_ptr);
 207
 208         if (player_ptr->leaving)
 209             break;
 210
 211         if (wild_regen)
 212             wild_regen--;
 213     }
 214
 215     if (quest_num && !(r_info[quest[quest_num].r_idx].flags1 & RF1_UNIQUE)) {
 216         r_info[quest[quest_num].r_idx].flags1 &= ~RF1_QUESTOR;
 217     }
 218
 219     if (player_ptr->playing && !player_ptr->is_dead) {
 220         /*
 221          * Maintain Unique monsters and artifact, save current
 222          * floor, then prepare next floor
 223          */
 224         leave_floor(player_ptr);
 225         reinit_wilderness = FALSE;
 226     }
 227
 228     write_level = TRUE;
 229 }