1 #include "io-dump/character-dump.h"
2 #include "art-definition/art-bow-types.h"
3 #include "cmd-building/cmd-building.h"
4 #include "dungeon/dungeon.h"
5 #include "dungeon/quest.h"
6 #include "flavor/flavor-describer.h"
7 #include "floor/floor-town.h"
8 #include "game-option/birth-options.h"
9 #include "game-option/game-play-options.h"
10 #include "inventory/inventory-slot-types.h"
11 #include "io-dump/player-status-dump.h"
12 #include "io-dump/special-class-dump.h"
13 #include "io/mutations-dump.h"
14 #include "io/write-diary.h"
15 #include "knowledge/knowledge-quests.h"
16 #include "main/angband-headers.h"
17 #include "market/arena-info-table.h"
18 #include "monster-race/monster-race.h"
19 #include "monster-race/race-flags1.h"
20 #include "monster/monster-describer.h"
21 #include "monster/monster-description-types.h"
22 #include "monster/monster-info.h"
23 #include "monster/monster-status.h"
24 #include "monster/smart-learn-types.h"
25 #include "object/object-info.h"
26 #include "pet/pet-util.h"
27 #include "player-info/avatar.h"
28 #include "player/race-info-table.h"
29 #include "player/player-status-flags.h"
30 #include "player/player-status-table.h"
31 #include "realm/realm-names-table.h"
32 #include "store/store-util.h"
33 #include "store/store.h"
34 #include "system/angband-version.h"
35 #include "system/building-type-definition.h"
36 #include "system/floor-type-definition.h"
37 #include "util/int-char-converter.h"
38 #include "util/sort.h"
39 #include "view/display-messages.h"
40 #include "world/world.h"
43 * @brief プレイヤーのペット情報をファイルにダンプする
44 * @param creature_ptr プレーヤーへの参照ポインタ
48 static void dump_aux_pet(player_type *master_ptr, FILE *fff)
51 bool pet_settings = FALSE;
52 for (int i = master_ptr->current_floor_ptr->m_max - 1; i >= 1; i--) {
53 monster_type *m_ptr = &master_ptr->current_floor_ptr->m_list[i];
55 if (!monster_is_valid(m_ptr))
60 if (!m_ptr->nickname && (master_ptr->riding != i))
63 fprintf(fff, _("\n\n [主なペット]\n\n", "\n\n [Leading Pets]\n\n"));
67 GAME_TEXT pet_name[MAX_NLEN];
68 monster_desc(master_ptr, pet_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
69 fprintf(fff, "%s\n", pet_name);
75 fprintf(fff, _("\n\n [ペットへの命令]\n", "\n\n [Command for Pets]\n"));
77 fprintf(fff, _("\n ドアを開ける: %s", "\n Pets open doors: %s"),
78 (master_ptr->pet_extra_flags & PF_OPEN_DOORS) ? "ON" : "OFF");
80 fprintf(fff, _("\n アイテムを拾う: %s", "\n Pets pick up items: %s"),
81 (master_ptr->pet_extra_flags & PF_PICKUP_ITEMS) ? "ON" : "OFF");
83 fprintf(fff, _("\n テレポート系魔法を使う: %s", "\n Allow teleport: %s"),
84 (master_ptr->pet_extra_flags & PF_TELEPORT) ? "ON" : "OFF");
86 fprintf(fff, _("\n 攻撃魔法を使う: %s", "\n Allow cast attack spell: %s"),
87 (master_ptr->pet_extra_flags & PF_ATTACK_SPELL) ? "ON" : "OFF");
89 fprintf(fff, _("\n 召喚魔法を使う: %s", "\n Allow cast summon spell: %s"),
90 (master_ptr->pet_extra_flags & PF_SUMMON_SPELL) ? "ON" : "OFF");
92 fprintf(fff, _("\n プレイヤーを巻き込む範囲魔法を使う: %s", "\n Allow involve player in area spell: %s"),
93 (master_ptr->pet_extra_flags & PF_BALL_SPELL) ? "ON" : "OFF");
99 * @brief クエスト情報をファイルにダンプする
100 * @param creature_ptr プレーヤーへの参照ポインタ
101 * @param fff ファイルポインタ
104 static void dump_aux_quest(player_type *creature_ptr, FILE *fff)
106 fprintf(fff, _("\n\n [クエスト情報]\n", "\n\n [Quest Information]\n"));
107 QUEST_IDX *quest_num;
108 C_MAKE(quest_num, max_q_idx, QUEST_IDX);
110 for (QUEST_IDX i = 1; i < max_q_idx; i++)
113 ang_sort(creature_ptr, quest_num, &dummy, max_q_idx, ang_sort_comp_quest_num, ang_sort_swap_quest_num);
116 do_cmd_knowledge_quests_completed(creature_ptr, fff, quest_num);
118 do_cmd_knowledge_quests_failed(creature_ptr, fff, quest_num);
121 C_KILL(quest_num, max_q_idx, QUEST_IDX);
125 * @brief 死の直前メッセージ並びに遺言をファイルにダンプする
126 * @param creature_ptr プレーヤーへの参照ポインタ
127 * @param fff ファイルポインタ
130 static void dump_aux_last_message(player_type *creature_ptr, FILE *fff)
132 if (!creature_ptr->is_dead)
135 if (!current_world_ptr->total_winner) {
136 fprintf(fff, _("\n [死ぬ直前のメッセージ]\n\n", "\n [Last Messages]\n\n"));
137 for (int i = MIN(message_num(), 30); i >= 0; i--) {
138 fprintf(fff, "> %s\n", message_str((s16b)i));
145 if (creature_ptr->last_message) {
146 fprintf(fff, _("\n [*勝利*メッセージ]\n\n", "\n [*Winning* Message]\n\n"));
147 fprintf(fff, " %s\n", creature_ptr->last_message);
153 * @brief 帰還場所情報をファイルにダンプする
154 * @param fff ファイルポインタ
157 static void dump_aux_recall(FILE *fff)
159 fprintf(fff, _("\n [帰還場所]\n\n", "\n [Recall Depth]\n\n"));
160 for (int y = 1; y < current_world_ptr->max_d_idx; y++) {
163 if (!d_info[y].maxdepth)
167 if (d_info[y].final_guardian) {
168 if (!r_info[d_info[y].final_guardian].max_num)
170 } else if (max_dlv[y] == d_info[y].maxdepth)
173 fprintf(fff, _(" %c%-12s: %3d 階\n", " %c%-16s: level %3d\n"), seiha ? '!' : ' ', d_name + d_info[y].name, (int)max_dlv[y]);
178 * @brief オプション情報をファイルにダンプする
179 * @param fff ファイルポインタ
182 static void dump_aux_options(FILE *fff)
184 fprintf(fff, _("\n [オプション設定]\n", "\n [Option Settings]\n"));
186 fprintf(fff, _("\n 保存モード: ON", "\n Preserve Mode: ON"));
188 fprintf(fff, _("\n 保存モード: OFF", "\n Preserve Mode: OFF"));
190 if (ironman_small_levels)
191 fprintf(fff, _("\n 小さいダンジョン: ALWAYS", "\n Small Levels: ALWAYS"));
192 else if (always_small_levels)
193 fprintf(fff, _("\n 小さいダンジョン: ON", "\n Small Levels: ON"));
194 else if (small_levels)
195 fprintf(fff, _("\n 小さいダンジョン: ENABLED", "\n Small Levels: ENABLED"));
197 fprintf(fff, _("\n 小さいダンジョン: OFF", "\n Small Levels: OFF"));
200 fprintf(fff, _("\n 元祖の町のみ: ON", "\n Vanilla Town: ON"));
202 fprintf(fff, _("\n 小規模な町: ON", "\n Lite Town: ON"));
205 fprintf(fff, _("\n 店なし: ON", "\n No Shops: ON"));
207 if (ironman_downward)
208 fprintf(fff, _("\n 階段を上がれない: ON", "\n Diving Only: ON"));
211 fprintf(fff, _("\n 普通でない部屋: ON", "\n Unusual Rooms: ON"));
213 if (ironman_nightmare)
214 fprintf(fff, _("\n 悪夢モード: ON", "\n Nightmare Mode: ON"));
216 if (ironman_empty_levels)
217 fprintf(fff, _("\n アリーナ: ALWAYS", "\n Arena Levels: ALWAYS"));
218 else if (empty_levels)
219 fprintf(fff, _("\n アリーナ: ENABLED", "\n Arena Levels: ENABLED"));
221 fprintf(fff, _("\n アリーナ: OFF", "\n Arena Levels: OFF"));
225 if (current_world_ptr->noscore)
226 fprintf(fff, _("\n 何か不正なことをしてしまっています。\n", "\n You have done something illegal.\n"));
232 * @brief 闘技場の情報をファイルにダンプする
233 * @param creature_ptr プレーヤーへの参照ポインタ
234 * @param fff ファイルポインタ
237 static void dump_aux_arena(player_type *creature_ptr, FILE *fff)
239 if (lite_town || vanilla_town)
242 if (creature_ptr->arena_number < 0) {
243 if (creature_ptr->arena_number <= ARENA_DEFEATED_OLD_VER) {
244 fprintf(fff, _("\n 闘技場: 敗北\n", "\n Arena: Defeated\n"));
248 fff, "\n 闘技場: %d回戦で%sの前に敗北\n", -creature_ptr->arena_number, r_name + r_info[arena_info[-1 - creature_ptr->arena_number].r_idx].name);
250 fprintf(fff, "\n Arena: Defeated by %s in the %d%s fight\n", r_name + r_info[arena_info[-1 - creature_ptr->arena_number].r_idx].name,
251 -creature_ptr->arena_number, get_ordinal_number_suffix(-creature_ptr->arena_number));
259 if (creature_ptr->arena_number > MAX_ARENA_MONS + 2) {
260 fprintf(fff, _("\n 闘技場: 真のチャンピオン\n", "\n Arena: True Champion\n"));
265 if (creature_ptr->arena_number > MAX_ARENA_MONS - 1) {
266 fprintf(fff, _("\n 闘技場: チャンピオン\n", "\n Arena: Champion\n"));
272 fprintf(fff, "\n 闘技場: %2d勝\n", (creature_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : creature_ptr->arena_number));
274 fprintf(fff, "\n Arena: %2d Victor%s\n", (creature_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : creature_ptr->arena_number),
275 (creature_ptr->arena_number > 1) ? "ies" : "y");
281 * @brief 撃破モンスターの情報をファイルにダンプする
282 * @param fff ファイルポインタ
285 static void dump_aux_monsters(player_type *creature_ptr, FILE *fff)
287 fprintf(fff, _("\n [倒したモンスター]\n\n", "\n [Defeated Monsters]\n\n"));
289 /* Allocate the "who" array */
292 C_MAKE(who, max_r_idx, MONRACE_IDX);
294 /* Count monster kills */
297 for (IDX k = 1; k < max_r_idx; k++) {
298 /* Ignore unused index */
299 monster_race *r_ptr = &r_info[k];
303 if (r_ptr->flags1 & RF1_UNIQUE) {
304 bool dead = (r_ptr->max_num == 0);
308 /* Add a unique monster to the list */
309 who[uniq_total++] = k;
315 if (r_ptr->r_pkills > 0) {
316 norm_total += r_ptr->r_pkills;
320 /* No monsters is defeated */
321 if (norm_total < 1) {
322 fprintf(fff, _("まだ敵を倒していません。\n", "You have defeated no enemies yet.\n"));
323 C_KILL(who, max_r_idx, s16b);
327 /* Defeated more than one normal monsters */
328 if (uniq_total == 0) {
330 fprintf(fff, "%ld体の敵を倒しています。\n", norm_total);
332 fprintf(fff, "You have defeated %ld %s.\n", norm_total, norm_total == 1 ? "enemy" : "enemies");
334 C_KILL(who, max_r_idx, s16b);
338 /* Defeated more than one unique monsters */
340 fprintf(fff, "%ld体のユニーク・モンスターを含む、合計%ld体の敵を倒しています。\n", uniq_total, norm_total);
342 fprintf(fff, "You have defeated %ld %s including %ld unique monster%s in total.\n", norm_total, norm_total == 1 ? "enemy" : "enemies", uniq_total,
343 (uniq_total == 1 ? "" : "s"));
346 /* Sort the array by dungeon depth of monsters */
347 ang_sort(creature_ptr, who, &why, uniq_total, ang_sort_comp_hook, ang_sort_swap_hook);
348 fprintf(fff, _("\n《上位%ld体のユニーク・モンスター》\n", "\n< Unique monsters top %ld >\n"), MIN(uniq_total, 10));
350 for (IDX k = uniq_total - 1; k >= 0 && k >= uniq_total - 10; k--) {
351 monster_race *r_ptr = &r_info[who[k]];
352 fprintf(fff, _(" %-40s (レベル%3d)\n", " %-40s (level %3d)\n"), (r_name + r_ptr->name), (int)r_ptr->level);
355 C_KILL(who, max_r_idx, s16b);
359 * @brief 元種族情報をファイルにダンプする
360 * @param creature_ptr プレーヤーへの参照ポインタ
361 * @param fff ファイルポインタ
364 static void dump_aux_race_history(player_type *creature_ptr, FILE *fff)
366 if (!creature_ptr->old_race1 && !creature_ptr->old_race2)
369 fprintf(fff, _("\n\n あなたは%sとして生まれた。", "\n\n You were born as %s."), race_info[creature_ptr->start_race].title);
370 for (int i = 0; i < MAX_RACES; i++) {
371 if (creature_ptr->start_race == i)
374 if (!(creature_ptr->old_race1 & 1L << i))
377 if (!(creature_ptr->old_race2 & 1L << (i - 32)))
381 fprintf(fff, _("\n あなたはかつて%sだった。", "\n You were a %s before."), race_info[i].title);
388 * @brief 元魔法領域情報をファイルにダンプする
389 * @param creature_ptr プレーヤーへの参照ポインタ
390 * @param fff ファイルポインタ
393 static void dump_aux_realm_history(player_type *creature_ptr, FILE *fff)
395 if (creature_ptr->old_realm)
399 for (int i = 0; i < MAX_MAGIC; i++) {
400 if (!(creature_ptr->old_realm & 1L << i))
402 fprintf(fff, _("\n あなたはかつて%s魔法を使えた。", "\n You were able to use %s magic before."), realm_names[i + 1]);
409 * @brief 徳の情報をファイルにダンプする
410 * @param creature_ptr プレーヤーへの参照ポインタ
411 * @param fff ファイルポインタ
414 static void dump_aux_virtues(player_type *creature_ptr, FILE *fff)
416 fprintf(fff, _("\n\n [自分に関する情報]\n\n", "\n\n [HP-rate & Max stat & Virtues]\n\n"));
419 = (int)(((long)creature_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) / (2 * creature_ptr->hitdie + ((PY_MAX_LEVEL - 1 + 3) * (creature_ptr->hitdie + 1))));
422 if (creature_ptr->knowledge & KNOW_HPRATE)
423 fprintf(fff, "現在の体力ランク : %d/100\n\n", percent);
425 fprintf(fff, "現在の体力ランク : ???\n\n");
426 fprintf(fff, "能力の最大値\n");
428 if (creature_ptr->knowledge & KNOW_HPRATE)
429 fprintf(fff, "Your current Life Rating is %d/100.\n\n", percent);
431 fprintf(fff, "Your current Life Rating is ???.\n\n");
432 fprintf(fff, "Limits of maximum stats\n");
434 for (int v_nr = 0; v_nr < A_MAX; v_nr++) {
435 if ((creature_ptr->knowledge & KNOW_STAT) || creature_ptr->stat_max[v_nr] == creature_ptr->stat_max_max[v_nr])
436 fprintf(fff, "%s 18/%d\n", stat_names[v_nr], creature_ptr->stat_max_max[v_nr] - 18);
438 fprintf(fff, "%s ???\n", stat_names[v_nr]);
441 fprintf(fff, _("\n属性 : %s\n", "\nYour alignment : %s\n"), your_alignment(creature_ptr));
443 dump_virtues(creature_ptr, fff);
447 * @brief 突然変異の情報をファイルにダンプする
448 * @param creature_ptr プレーヤーへの参照ポインタ
449 * @param fff ファイルポインタ
452 static void dump_aux_mutations(player_type *creature_ptr, FILE *fff)
454 if (creature_ptr->muta1 || creature_ptr->muta2 || creature_ptr->muta3) {
455 fprintf(fff, _("\n\n [突然変異]\n\n", "\n\n [Mutations]\n\n"));
456 dump_mutations(creature_ptr, fff);
461 * @brief 所持品の情報をファイルにダンプする
462 * @param creature_ptr プレーヤーへの参照ポインタ
463 * @param fff ファイルポインタ
466 static void dump_aux_equipment_inventory(player_type *creature_ptr, FILE *fff)
468 GAME_TEXT o_name[MAX_NLEN];
469 if (creature_ptr->equip_cnt) {
470 fprintf(fff, _(" [キャラクタの装備]\n\n", " [Character Equipment]\n\n"));
471 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
472 describe_flavor(creature_ptr, o_name, &creature_ptr->inventory_list[i], 0);
473 if ((((i == INVEN_RARM) && have_left_hand_weapon(creature_ptr)) || ((i == INVEN_LARM) && have_right_hand_weapon(creature_ptr))) && have_two_handed_weapons(creature_ptr))
474 strcpy(o_name, _("(武器を両手持ち)", "(wielding with two-hands)"));
476 fprintf(fff, "%c) %s\n", index_to_label(i), o_name);
479 fprintf(fff, "\n\n");
482 fprintf(fff, _(" [キャラクタの持ち物]\n\n", " [Character Inventory]\n\n"));
484 for (int i = 0; i < INVEN_PACK; i++) {
485 if (!creature_ptr->inventory_list[i].k_idx)
487 describe_flavor(creature_ptr, o_name, &creature_ptr->inventory_list[i], 0);
488 fprintf(fff, "%c) %s\n", index_to_label(i), o_name);
491 fprintf(fff, "\n\n");
495 * @brief 我が家と博物館のオブジェクト情報をファイルにダンプする
496 * @param fff ファイルポインタ
499 static void dump_aux_home_museum(player_type *creature_ptr, FILE *fff)
501 store_type *store_ptr;
502 store_ptr = &town_info[1].store[STORE_HOME];
504 GAME_TEXT o_name[MAX_NLEN];
505 if (store_ptr->stock_num) {
506 fprintf(fff, _(" [我が家のアイテム]\n", " [Home Inventory]\n"));
509 for (int i = 0; i < store_ptr->stock_num; i++) {
511 fprintf(fff, _("\n ( %d ページ )\n", "\n ( page %d )\n"), x++);
512 describe_flavor(creature_ptr, o_name, &store_ptr->stock[i], 0);
513 fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
516 fprintf(fff, "\n\n");
519 store_ptr = &town_info[1].store[STORE_MUSEUM];
521 if (store_ptr->stock_num == 0)
524 fprintf(fff, _(" [博物館のアイテム]\n", " [Museum]\n"));
527 for (int i = 0; i < store_ptr->stock_num; i++) {
530 fprintf(fff, "\n ( %d ページ )\n", x++);
531 describe_flavor(creature_ptr, o_name, &store_ptr->stock[i], 0);
532 fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
535 fprintf(fff, "\n ( page %d )\n", x++);
536 describe_flavor(creature_ptr, o_name, &st_ptr->stock[i], 0);
537 fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
541 fprintf(fff, "\n\n");
545 * @brief チェックサム情報を出力 / Get check sum in string form
546 * @return チェックサム情報の文字列
548 static concptr get_check_sum(void)
550 return format("%02x%02x%02x%02x%02x%02x%02x%02x%02x", f_head.v_extra, k_head.v_extra, a_head.v_extra, e_head.v_extra, r_head.v_extra, d_head.v_extra,
551 m_head.v_extra, s_head.v_extra, v_head.v_extra);
555 * @brief ダンプ出力のメインルーチン
556 * Output the character dump to a file
557 * @param creature_ptr プレーヤーへの参照ポインタ
558 * @param fff ファイルポインタ
561 void make_character_dump(player_type *creature_ptr, FILE *fff, void (*update_playtime)(void), display_player_pf display_player)
564 fff, _(" [馬鹿馬鹿蛮怒 %d.%d.%d キャラクタ情報]\n\n", " [Bakabakaband %d.%d.%d Character Dump]\n\n"), FAKE_VER_MAJOR - 10, FAKE_VER_MINOR, FAKE_VER_PATCH);
565 (*update_playtime)();
567 dump_aux_player_status(creature_ptr, fff, display_player);
568 dump_aux_last_message(creature_ptr, fff);
569 dump_aux_options(fff);
570 dump_aux_recall(fff);
571 dump_aux_quest(creature_ptr, fff);
572 dump_aux_arena(creature_ptr, fff);
573 dump_aux_monsters(creature_ptr, fff);
574 dump_aux_virtues(creature_ptr, fff);
575 dump_aux_race_history(creature_ptr, fff);
576 dump_aux_realm_history(creature_ptr, fff);
577 dump_aux_class_special(creature_ptr, fff);
578 dump_aux_mutations(creature_ptr, fff);
579 dump_aux_pet(creature_ptr, fff);
581 dump_aux_equipment_inventory(creature_ptr, fff);
582 dump_aux_home_museum(creature_ptr, fff);
584 fprintf(fff, _(" [チェックサム: \"%s\"]\n\n", " [Check Sum: \"%s\"]\n\n"), get_check_sum());