src/knowledge/knowledge-uniques.c

   1 /*!
   2  * @brief 既知/存命のユニークを表示する
   3  * @date 2020/04/23
   4  * @author Hourier
   5  */
   6
   7 #include "core/show-file.h"
   8 #include "game-option/cheat-options.h"
   9 #include "io-dump/dump-util.h"
  10 #include "knowledge-items.h"
  11 #include "monster-race/monster-race.h"
  12 #include "monster-race/race-flags1.h"
  13 #include "util/angband-files.h"
  14 #include "util/sort.h"
  15
  16 typedef struct unique_list_type {
  17     bool is_alive;
  18     u16b why;
  19     IDX *who;
  20     int num_uniques[10];
  21     int num_uniques_surface;
  22     int num_uniques_over100;
  23     int num_uniques_total;
  24     int max_lev;
  25     int n;
  26 } unique_list_type;
  27
  28 unique_list_type *initialize_unique_lsit_type(unique_list_type *unique_list_ptr, bool is_alive)
  29 {
  30     unique_list_ptr->is_alive = is_alive;
  31     unique_list_ptr->why = 2;
  32     unique_list_ptr->num_uniques_surface = 0;
  33     unique_list_ptr->num_uniques_over100 = 0;
  34     unique_list_ptr->num_uniques_total = 0;
  35     unique_list_ptr->max_lev = -1;
  36     unique_list_ptr->n = 0;
  37     for (IDX i = 0; i < 10; i++)
  38         unique_list_ptr->num_uniques[i] = 0;
  39
  40     return unique_list_ptr;
  41 }
  42
  43 /*!
  44  * @brief モンスターリストを走査し、生きているか死んでいるユニークだけを抽出する
  45  * @param r_ptr モンスター種別への参照ポインタ
  46  * @param is_alive 生きているユニークのリストならばTRUE、撃破したユニークのリストならばFALSE
  47  * @return is_aliveの条件に見合うユニークがいたらTRUE、それ以外はFALSE
  48  * @details 闘技場のモンスターとは再戦できないので、生きているなら表示から外す
  49  */
  50 static bool sweep_uniques(monster_race *r_ptr, bool is_alive)
  51 {
  52     if (!r_ptr->name)
  53         return FALSE;
  54
  55     if (!(r_ptr->flags1 & RF1_UNIQUE))
  56
  57         return FALSE;
  58
  59     if (!cheat_know && !r_ptr->r_sights)
  60         return FALSE;
  61
  62     bool is_except_arena = is_alive ? (r_ptr->rarity > 100) && ((r_ptr->flags1 & RF1_QUESTOR) == 0) : FALSE;
  63     if (!r_ptr->rarity || is_except_arena)
  64         return FALSE;
  65
  66     if (is_alive) {
  67         if (r_ptr->max_num == 0)
  68             return FALSE;
  69     } else {
  70         if (r_ptr->max_num > 0)
  71             return FALSE;
  72     }
  73
  74     return TRUE;
  75 }
  76
  77 static void display_uniques(unique_list_type *unique_list_ptr, FILE *fff)
  78 {
  79     if (unique_list_ptr->num_uniques_surface) {
  80         concptr surface_desc = unique_list_ptr->is_alive ? _("     地上  生存: %3d体\n", "      Surface  alive: %3d\n")
  81                                                          : _("     地上  撃破: %3d体\n", "      Surface  dead: %3d\n");
  82         fprintf(fff, surface_desc, unique_list_ptr->num_uniques_surface);
  83         unique_list_ptr->num_uniques_total += unique_list_ptr->num_uniques_surface;
  84     }
  85
  86     for (IDX i = 0; i <= unique_list_ptr->max_lev; i++) {
  87         concptr dungeon_desc = unique_list_ptr->is_alive ? _("%3d-%3d階  生存: %3d体\n", "Level %3d-%3d  alive: %3d\n")
  88                                                          : _("%3d-%3d階  撃破: %3d体\n", "Level %3d-%3d  dead: %3d\n");
  89         fprintf(fff, dungeon_desc, 1 + i * 10, 10 + i * 10, unique_list_ptr->num_uniques[i]);
  90         unique_list_ptr->num_uniques_total += unique_list_ptr->num_uniques[i];
  91     }
  92
  93     if (unique_list_ptr->num_uniques_over100) {
  94         concptr deep_desc = unique_list_ptr->is_alive ? _("101-   階  生存: %3d体\n", "Level 101-     alive: %3d\n")
  95                                                       : _("101-   階  撃破: %3d体\n", "Level 101-     dead: %3d\n");
  96         fprintf(fff, deep_desc, unique_list_ptr->num_uniques_over100);
  97         unique_list_ptr->num_uniques_total += unique_list_ptr->num_uniques_over100;
  98     }
  99
 100     if (unique_list_ptr->num_uniques_total) {
 101         fputs(_("---------  -----------\n", "-------------  ----------\n"), fff);
 102         concptr total_desc = unique_list_ptr->is_alive ? _("     合計  生存: %3d体\n\n", "        Total  alive: %3d\n\n")
 103                                                        : _("     合計  撃破: %3d体\n\n", "        Total  dead: %3d\n\n");
 104         fprintf(fff, total_desc, unique_list_ptr->num_uniques_total);
 105     } else {
 106         concptr no_unique_desc = unique_list_ptr->is_alive ? _("現在は既知の生存ユニークはいません。\n", "No known uniques alive.\n")
 107                                                            : _("現在は既知の撃破ユニークはいません。\n", "No known uniques dead.\n");
 108         fputs(no_unique_desc, fff);
 109     }
 110
 111     for (int k = 0; k < unique_list_ptr->n; k++) {
 112         monster_race *r_ptr = &r_info[unique_list_ptr->who[k]];
 113         fprintf(fff, _("     %s (レベル%d)\n", "     %s (level %d)\n"), r_name + r_ptr->name, (int)r_ptr->level);
 114     }
 115 }
 116
 117 /*!
 118  * @brief 既知の生きているユニークまたは撃破済ユニークの一覧を表示させる
 119  * @param creature_ptr プレーヤーへの参照ポインタ
 120  * @param is_alive 生きているユニークのリストならばTRUE、撃破したユニークのリストならばFALSE
 121  * @return なし
 122  */
 123 void do_cmd_knowledge_uniques(player_type *creature_ptr, bool is_alive)
 124 {
 125     unique_list_type tmp_list;
 126     unique_list_type *unique_list_ptr = initialize_unique_lsit_type(&tmp_list, is_alive);
 127     FILE *fff = NULL;
 128     GAME_TEXT file_name[FILE_NAME_SIZE];
 129     if (!open_temporary_file(&fff, file_name))
 130         return;
 131
 132     C_MAKE(unique_list_ptr->who, max_r_idx, MONRACE_IDX);
 133     for (IDX i = 1; i < max_r_idx; i++) {
 134         monster_race *r_ptr = &r_info[i];
 135         if (!sweep_uniques(r_ptr, unique_list_ptr->is_alive))
 136             continue;
 137
 138         if (r_ptr->level) {
 139             int lev = (r_ptr->level - 1) / 10;
 140             if (lev < 10) {
 141                 unique_list_ptr->num_uniques[lev]++;
 142                 if (unique_list_ptr->max_lev < lev)
 143                     unique_list_ptr->max_lev = lev;
 144             } else
 145                 unique_list_ptr->num_uniques_over100++;
 146         } else
 147             unique_list_ptr->num_uniques_surface++;
 148
 149         unique_list_ptr->who[unique_list_ptr->n++] = i;
 150     }
 151
 152     ang_sort(creature_ptr, unique_list_ptr->who, &unique_list_ptr->why, unique_list_ptr->n, ang_sort_comp_hook, ang_sort_swap_hook);
 153     display_uniques(unique_list_ptr, fff);
 154     C_KILL(unique_list_ptr->who, max_r_idx, s16b);
 155     angband_fclose(fff);
 156     concptr title_desc
 157         = unique_list_ptr->is_alive ? _("まだ生きているユニーク・モンスター", "Alive Uniques") : _("もう撃破したユニーク・モンスター", "Dead Uniques");
 158     (void)show_file(creature_ptr, TRUE, file_name, title_desc, 0, 0);
 159     fd_kill(file_name);
 160 }