OSDN Git Service

Merge pull request #2310 from habu1010/feature/create-cache-for-ccache-workflow
[hengbandforosx/hengbandosx.git] / src / io-dump / character-dump.cpp
1 #include <string>
2
3 #include "artifact/fixed-art-types.h"
4 #include "avatar/avatar.h"
5 #include "cmd-building/cmd-building.h"
6 #include "dungeon/dungeon.h"
7 #include "dungeon/quest.h"
8 #include "flavor/flavor-describer.h"
9 #include "floor/floor-town.h"
10 #include "game-option/birth-options.h"
11 #include "game-option/game-play-options.h"
12 #include "inventory/inventory-slot-types.h"
13 #include "io-dump/character-dump.h"
14 #include "io-dump/player-status-dump.h"
15 #include "io-dump/special-class-dump.h"
16 #include "io/mutations-dump.h"
17 #include "io/write-diary.h"
18 #include "knowledge/knowledge-quests.h"
19 #include "main/angband-headers.h"
20 #include "market/arena-info-table.h"
21 #include "monster-race/monster-race.h"
22 #include "monster-race/race-flags1.h"
23 #include "monster/monster-describer.h"
24 #include "monster/monster-description-types.h"
25 #include "monster/monster-info.h"
26 #include "monster/monster-status.h"
27 #include "monster/smart-learn-types.h"
28 #include "object/object-info.h"
29 #include "pet/pet-util.h"
30 #include "player-info/alignment.h"
31 #include "player/player-status-flags.h"
32 #include "player/player-status-table.h"
33 #include "player/race-info-table.h"
34 #include "realm/realm-names-table.h"
35 #include "store/store-util.h"
36 #include "store/store.h"
37 #include "system/angband-version.h"
38 #include "system/building-type-definition.h"
39 #include "system/floor-type-definition.h"
40 #include "system/monster-race-definition.h"
41 #include "system/monster-type-definition.h"
42 #include "system/object-type-definition.h"
43 #include "system/player-type-definition.h"
44 #include "util/enum-converter.h"
45 #include "util/int-char-converter.h"
46 #include "util/sort.h"
47 #include "view/display-messages.h"
48 #include "world/world.h"
49
50 #include <numeric>
51
52 /*!
53  * @brief プレイヤーのペット情報をファイルにダンプする
54  * @param player_ptr プレイヤーへの参照ポインタ
55  * @param fff ファイルポインタ
56  */
57 static void dump_aux_pet(PlayerType *player_ptr, FILE *fff)
58 {
59     bool pet = false;
60     bool pet_settings = false;
61     for (int i = player_ptr->current_floor_ptr->m_max - 1; i >= 1; i--) {
62         auto *m_ptr = &player_ptr->current_floor_ptr->m_list[i];
63
64         if (!monster_is_valid(m_ptr)) {
65             continue;
66         }
67         if (!is_pet(m_ptr)) {
68             continue;
69         }
70         pet_settings = true;
71         if (!m_ptr->nickname && (player_ptr->riding != i)) {
72             continue;
73         }
74         if (!pet) {
75             fprintf(fff, _("\n\n  [主なペット]\n\n", "\n\n  [Leading Pets]\n\n"));
76             pet = true;
77         }
78
79         GAME_TEXT pet_name[MAX_NLEN];
80         monster_desc(player_ptr, pet_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
81         fprintf(fff, "%s\n", pet_name);
82     }
83
84     if (!pet_settings) {
85         return;
86     }
87
88     fprintf(fff, _("\n\n  [ペットへの命令]\n", "\n\n  [Command for Pets]\n"));
89
90     fprintf(fff, _("\n ドアを開ける:                       %s", "\n Pets open doors:                    %s"),
91         (player_ptr->pet_extra_flags & PF_OPEN_DOORS) ? "ON" : "OFF");
92
93     fprintf(fff, _("\n アイテムを拾う:                     %s", "\n Pets pick up items:                 %s"),
94         (player_ptr->pet_extra_flags & PF_PICKUP_ITEMS) ? "ON" : "OFF");
95
96     fprintf(fff, _("\n テレポート系魔法を使う:             %s", "\n Allow teleport:                     %s"),
97         (player_ptr->pet_extra_flags & PF_TELEPORT) ? "ON" : "OFF");
98
99     fprintf(fff, _("\n 攻撃魔法を使う:                     %s", "\n Allow cast attack spell:            %s"),
100         (player_ptr->pet_extra_flags & PF_ATTACK_SPELL) ? "ON" : "OFF");
101
102     fprintf(fff, _("\n 召喚魔法を使う:                     %s", "\n Allow cast summon spell:            %s"),
103         (player_ptr->pet_extra_flags & PF_SUMMON_SPELL) ? "ON" : "OFF");
104
105     fprintf(fff, _("\n プレイヤーを巻き込む範囲魔法を使う: %s", "\n Allow involve player in area spell: %s"),
106         (player_ptr->pet_extra_flags & PF_BALL_SPELL) ? "ON" : "OFF");
107
108     fputc('\n', fff);
109 }
110
111 /*!
112  * @brief クエスト情報をファイルにダンプする
113  * @param player_ptr プレイヤーへの参照ポインタ
114  * @param fff ファイルポインタ
115  */
116 static void dump_aux_quest(PlayerType *player_ptr, FILE *fff)
117 {
118     fprintf(fff, _("\n\n  [クエスト情報]\n", "\n\n  [Quest Information]\n"));
119
120     std::vector<QuestId> quest_numbers;
121     for (auto &[q_idx, q_ref] : quest_map) {
122         quest_numbers.push_back(q_idx);
123     }
124     int dummy;
125     ang_sort(player_ptr, quest_numbers.data(), &dummy, quest_numbers.size(), ang_sort_comp_quest_num, ang_sort_swap_quest_num);
126
127     fputc('\n', fff);
128     do_cmd_knowledge_quests_completed(player_ptr, fff, quest_numbers);
129     fputc('\n', fff);
130     do_cmd_knowledge_quests_failed(player_ptr, fff, quest_numbers);
131     fputc('\n', fff);
132 }
133
134 /*!
135  * @brief 死の直前メッセージ並びに遺言をファイルにダンプする
136  * @param player_ptr プレイヤーへの参照ポインタ
137  * @param fff ファイルポインタ
138  */
139 static void dump_aux_last_message(PlayerType *player_ptr, FILE *fff)
140 {
141     if (!player_ptr->is_dead) {
142         return;
143     }
144
145     if (!w_ptr->total_winner) {
146         fprintf(fff, _("\n  [死ぬ直前のメッセージ]\n\n", "\n  [Last Messages]\n\n"));
147         for (int i = std::min(message_num(), 30); i >= 0; i--) {
148             fprintf(fff, "> %s\n", message_str((int16_t)i));
149         }
150
151         fputc('\n', fff);
152         return;
153     }
154
155     if (player_ptr->last_message) {
156         fprintf(fff, _("\n  [*勝利*メッセージ]\n\n", "\n  [*Winning* Message]\n\n"));
157         fprintf(fff, "  %s\n", player_ptr->last_message);
158         fputc('\n', fff);
159     }
160 }
161
162 /*!
163  * @brief 帰還場所情報をファイルにダンプする
164  * @param fff ファイルポインタ
165  */
166 static void dump_aux_recall(FILE *fff)
167 {
168     fprintf(fff, _("\n  [帰還場所]\n\n", "\n  [Recall Depth]\n\n"));
169     for (const auto &d_ref : d_info) {
170         bool seiha = false;
171
172         if (d_ref.idx == 0 || !d_ref.maxdepth) {
173             continue;
174         }
175         if (!max_dlv[d_ref.idx]) {
176             continue;
177         }
178         if (d_ref.final_guardian) {
179             if (!r_info[d_ref.final_guardian].max_num) {
180                 seiha = true;
181             }
182         } else if (max_dlv[d_ref.idx] == d_ref.maxdepth) {
183             seiha = true;
184         }
185
186         fprintf(fff, _("   %c%-12s: %3d 階\n", "   %c%-16s: level %3d\n"), seiha ? '!' : ' ', d_ref.name.c_str(), (int)max_dlv[d_ref.idx]);
187     }
188 }
189
190 /*!
191  * @brief オプション情報をファイルにダンプする
192  * @param fff ファイルポインタ
193  */
194 static void dump_aux_options(FILE *fff)
195 {
196     fprintf(fff, _("\n  [オプション設定]\n", "\n  [Option Settings]\n"));
197     if (preserve_mode) {
198         fprintf(fff, _("\n 保存モード:         ON", "\n Preserve Mode:      ON"));
199     } else {
200         fprintf(fff, _("\n 保存モード:         OFF", "\n Preserve Mode:      OFF"));
201     }
202
203     if (ironman_small_levels) {
204         fprintf(fff, _("\n 小さいダンジョン:   ALWAYS", "\n Small Levels:       ALWAYS"));
205     } else if (always_small_levels) {
206         fprintf(fff, _("\n 小さいダンジョン:   ON", "\n Small Levels:       ON"));
207     } else if (small_levels) {
208         fprintf(fff, _("\n 小さいダンジョン:   ENABLED", "\n Small Levels:       ENABLED"));
209     } else {
210         fprintf(fff, _("\n 小さいダンジョン:   OFF", "\n Small Levels:       OFF"));
211     }
212
213     if (vanilla_town) {
214         fprintf(fff, _("\n 元祖の町のみ:       ON", "\n Vanilla Town:       ON"));
215     } else if (lite_town) {
216         fprintf(fff, _("\n 小規模な町:         ON", "\n Lite Town:          ON"));
217     }
218
219     if (ironman_shops) {
220         fprintf(fff, _("\n 店なし:             ON", "\n No Shops:           ON"));
221     }
222
223     if (ironman_downward) {
224         fprintf(fff, _("\n 階段を上がれない:   ON", "\n Diving Only:        ON"));
225     }
226
227     if (ironman_rooms) {
228         fprintf(fff, _("\n 普通でない部屋:     ON", "\n Unusual Rooms:      ON"));
229     }
230
231     if (ironman_nightmare) {
232         fprintf(fff, _("\n 悪夢モード:         ON", "\n Nightmare Mode:     ON"));
233     }
234
235     if (ironman_empty_levels) {
236         fprintf(fff, _("\n アリーナ:           ALWAYS", "\n Arena Levels:       ALWAYS"));
237     } else if (empty_levels) {
238         fprintf(fff, _("\n アリーナ:           ENABLED", "\n Arena Levels:       ENABLED"));
239     } else {
240         fprintf(fff, _("\n アリーナ:           OFF", "\n Arena Levels:       OFF"));
241     }
242
243     fputc('\n', fff);
244
245     if (w_ptr->noscore) {
246         fprintf(fff, _("\n 何か不正なことをしてしまっています。\n", "\n You have done something illegal.\n"));
247     }
248
249     fputc('\n', fff);
250 }
251
252 /*!
253  * @brief 闘技場の情報をファイルにダンプする
254  * @param player_ptr プレイヤーへの参照ポインタ
255  * @param fff ファイルポインタ
256  */
257 static void dump_aux_arena(PlayerType *player_ptr, FILE *fff)
258 {
259     if (lite_town || vanilla_town) {
260         return;
261     }
262
263     if (player_ptr->arena_number < 0) {
264         if (player_ptr->arena_number <= ARENA_DEFEATED_OLD_VER) {
265             fprintf(fff, _("\n 闘技場: 敗北\n", "\n Arena: Defeated\n"));
266         } else {
267 #ifdef JP
268             fprintf(
269                 fff, "\n 闘技場: %d回戦で%sの前に敗北\n", -player_ptr->arena_number, r_info[arena_info[-1 - player_ptr->arena_number].r_idx].name.c_str());
270 #else
271             fprintf(fff, "\n Arena: Defeated by %s in the %d%s fight\n", r_info[arena_info[-1 - player_ptr->arena_number].r_idx].name.c_str(),
272                 -player_ptr->arena_number, get_ordinal_number_suffix(-player_ptr->arena_number));
273 #endif
274         }
275
276         fprintf(fff, "\n");
277         return;
278     }
279
280     if (player_ptr->arena_number > MAX_ARENA_MONS + 2) {
281         fprintf(fff, _("\n 闘技場: 真のチャンピオン\n", "\n Arena: True Champion\n"));
282         fprintf(fff, "\n");
283         return;
284     }
285
286     if (player_ptr->arena_number > MAX_ARENA_MONS - 1) {
287         fprintf(fff, _("\n 闘技場: チャンピオン\n", "\n Arena: Champion\n"));
288         fprintf(fff, "\n");
289         return;
290     }
291
292 #ifdef JP
293     fprintf(fff, "\n 闘技場: %2d勝\n", (player_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : player_ptr->arena_number));
294 #else
295     fprintf(fff, "\n Arena: %2d Victor%s\n", (player_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : player_ptr->arena_number),
296         (player_ptr->arena_number > 1) ? "ies" : "y");
297 #endif
298     fprintf(fff, "\n");
299 }
300
301 /*!
302  * @brief 撃破モンスターの情報をファイルにダンプする
303  * @param fff ファイルポインタ
304  */
305 static void dump_aux_monsters(PlayerType *player_ptr, FILE *fff)
306 {
307     fprintf(fff, _("\n  [倒したモンスター]\n\n", "\n  [Defeated Monsters]\n\n"));
308
309     /* Allocate the "who" array */
310     uint16_t why = 2;
311     std::vector<MONRACE_IDX> who;
312
313     /* Count monster kills */
314     auto norm_total = 0;
315     for (const auto &r_ref : r_info) {
316         /* Ignore unused index */
317         if (r_ref.idx == 0 || r_ref.name.empty()) {
318             continue;
319         }
320
321         if (r_ref.kind_flags.has(MonsterKindType::UNIQUE)) {
322             bool dead = (r_ref.max_num == 0);
323             if (dead) {
324                 norm_total++;
325
326                 /* Add a unique monster to the list */
327                 who.push_back(r_ref.idx);
328             }
329
330             continue;
331         }
332
333         if (r_ref.r_pkills > 0) {
334             norm_total += r_ref.r_pkills;
335         }
336     }
337
338     /* No monsters is defeated */
339     if (norm_total < 1) {
340         fprintf(fff, _("まだ敵を倒していません。\n", "You have defeated no enemies yet.\n"));
341         return;
342     }
343
344     auto uniq_total = static_cast<int>(who.size());
345     /* Defeated more than one normal monsters */
346     if (uniq_total == 0) {
347 #ifdef JP
348         fprintf(fff, "%d体の敵を倒しています。\n", norm_total);
349 #else
350         fprintf(fff, "You have defeated %d %s.\n", norm_total, norm_total == 1 ? "enemy" : "enemies");
351 #endif
352         return;
353     }
354
355     /* Defeated more than one unique monsters */
356 #ifdef JP
357     fprintf(fff, "%d体のユニーク・モンスターを含む、合計%d体の敵を倒しています。\n", uniq_total, norm_total);
358 #else
359     fprintf(fff, "You have defeated %d %s including %d unique monster%s in total.\n", norm_total, norm_total == 1 ? "enemy" : "enemies", uniq_total,
360         (uniq_total == 1 ? "" : "s"));
361 #endif
362
363     /* Sort the array by dungeon depth of monsters */
364     ang_sort(player_ptr, who.data(), &why, uniq_total, ang_sort_comp_hook, ang_sort_swap_hook);
365     fprintf(fff, _("\n《上位%d体のユニーク・モンスター》\n", "\n< Unique monsters top %d >\n"), std::min(uniq_total, 10));
366
367     char buf[80];
368     for (auto it = who.rbegin(); it != who.rend() && std::distance(who.rbegin(), it) < 10; it++) {
369         auto *r_ptr = &r_info[*it];
370         if (r_ptr->defeat_level && r_ptr->defeat_time) {
371             sprintf(buf, _(" - レベル%2d - %d:%02d:%02d", " - level %2d - %d:%02d:%02d"), r_ptr->defeat_level, r_ptr->defeat_time / (60 * 60),
372                 (r_ptr->defeat_time / 60) % 60, r_ptr->defeat_time % 60);
373         } else {
374             buf[0] = '\0';
375         }
376
377         fprintf(fff, _("  %-40s (レベル%3d)%s\n", "  %-40s (level %3d)%s\n"), r_ptr->name.c_str(), (int)r_ptr->level, buf);
378     }
379 }
380
381 /*!
382  * @brief 元種族情報をファイルにダンプする
383  * @param player_ptr プレイヤーへの参照ポインタ
384  * @param fff ファイルポインタ
385  */
386 static void dump_aux_race_history(PlayerType *player_ptr, FILE *fff)
387 {
388     if (!player_ptr->old_race1 && !player_ptr->old_race2) {
389         return;
390     }
391
392     fprintf(fff, _("\n\n あなたは%sとして生まれた。", "\n\n You were born as %s."), race_info[enum2i(player_ptr->start_race)].title);
393     for (int i = 0; i < MAX_RACES; i++) {
394         if (enum2i(player_ptr->start_race) == i) {
395             continue;
396         }
397         if (i < 32) {
398             if (!(player_ptr->old_race1 & 1UL << i)) {
399                 continue;
400             }
401         } else {
402             if (!(player_ptr->old_race2 & 1UL << (i - 32))) {
403                 continue;
404             }
405         }
406
407         fprintf(fff, _("\n あなたはかつて%sだった。", "\n You were a %s before."), race_info[i].title);
408     }
409
410     fputc('\n', fff);
411 }
412
413 /*!
414  * @brief 元魔法領域情報をファイルにダンプする
415  * @param player_ptr プレイヤーへの参照ポインタ
416  * @param fff ファイルポインタ
417  */
418 static void dump_aux_realm_history(PlayerType *player_ptr, FILE *fff)
419 {
420     if (player_ptr->old_realm == 0) {
421         return;
422     }
423
424     fputc('\n', fff);
425     for (int i = 0; i < MAX_MAGIC; i++) {
426         if (!(player_ptr->old_realm & 1UL << i)) {
427             continue;
428         }
429         fprintf(fff, _("\n あなたはかつて%s魔法を使えた。", "\n You were able to use %s magic before."), realm_names[i + 1]);
430     }
431
432     fputc('\n', fff);
433 }
434
435 /*!
436  * @brief 徳の情報をファイルにダンプする
437  * @param player_ptr プレイヤーへの参照ポインタ
438  * @param fff ファイルポインタ
439  */
440 static void dump_aux_virtues(PlayerType *player_ptr, FILE *fff)
441 {
442     fprintf(fff, _("\n\n  [自分に関する情報]\n\n", "\n\n  [HP-rate & Max stat & Virtues]\n\n"));
443
444     int percent = (int)(((long)player_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) / (2 * player_ptr->hitdie + ((PY_MAX_LEVEL - 1 + 3) * (player_ptr->hitdie + 1))));
445
446 #ifdef JP
447     if (player_ptr->knowledge & KNOW_HPRATE) {
448         fprintf(fff, "現在の体力ランク : %d/100\n\n", percent);
449     } else {
450         fprintf(fff, "現在の体力ランク : ???\n\n");
451     }
452     fprintf(fff, "能力の最大値\n");
453 #else
454     if (player_ptr->knowledge & KNOW_HPRATE) {
455         fprintf(fff, "Your current Life Rating is %d/100.\n\n", percent);
456     } else {
457         fprintf(fff, "Your current Life Rating is ???.\n\n");
458     }
459     fprintf(fff, "Limits of maximum stats\n");
460 #endif
461     for (int v_nr = 0; v_nr < A_MAX; v_nr++) {
462         if ((player_ptr->knowledge & KNOW_STAT) || player_ptr->stat_max[v_nr] == player_ptr->stat_max_max[v_nr]) {
463             fprintf(fff, "%s 18/%d\n", stat_names[v_nr], player_ptr->stat_max_max[v_nr] - 18);
464         } else {
465             fprintf(fff, "%s ???\n", stat_names[v_nr]);
466         }
467     }
468
469     std::string alg = PlayerAlignment(player_ptr).get_alignment_description();
470     fprintf(fff, _("\n属性 : %s\n", "\nYour alignment : %s\n"), alg.c_str());
471     fprintf(fff, "\n");
472     dump_virtues(player_ptr, fff);
473 }
474
475 /*!
476  * @brief 突然変異の情報をファイルにダンプする
477  * @param player_ptr プレイヤーへの参照ポインタ
478  * @param fff ファイルポインタ
479  */
480 static void dump_aux_mutations(PlayerType *player_ptr, FILE *fff)
481 {
482     if (player_ptr->muta.any()) {
483         fprintf(fff, _("\n\n  [突然変異]\n\n", "\n\n  [Mutations]\n\n"));
484         dump_mutations(player_ptr, fff);
485     }
486 }
487
488 /*!
489  * @brief 所持品の情報をファイルにダンプする
490  * @param player_ptr プレイヤーへの参照ポインタ
491  * @param fff ファイルポインタ
492  */
493 static void dump_aux_equipment_inventory(PlayerType *player_ptr, FILE *fff)
494 {
495     GAME_TEXT o_name[MAX_NLEN];
496     if (player_ptr->equip_cnt) {
497         fprintf(fff, _("  [キャラクタの装備]\n\n", "  [Character Equipment]\n\n"));
498         for (int i = INVEN_MAIN_HAND; i < INVEN_TOTAL; i++) {
499             describe_flavor(player_ptr, o_name, &player_ptr->inventory_list[i], 0);
500             if ((((i == INVEN_MAIN_HAND) && can_attack_with_sub_hand(player_ptr)) || ((i == INVEN_SUB_HAND) && can_attack_with_main_hand(player_ptr))) && has_two_handed_weapons(player_ptr)) {
501                 strcpy(o_name, _("(武器を両手持ち)", "(wielding with two-hands)"));
502             }
503
504             fprintf(fff, "%c) %s\n", index_to_label(i), o_name);
505         }
506
507         fprintf(fff, "\n\n");
508     }
509
510     fprintf(fff, _("  [キャラクタの持ち物]\n\n", "  [Character Inventory]\n\n"));
511
512     for (int i = 0; i < INVEN_PACK; i++) {
513         if (!player_ptr->inventory_list[i].k_idx) {
514             break;
515         }
516         describe_flavor(player_ptr, o_name, &player_ptr->inventory_list[i], 0);
517         fprintf(fff, "%c) %s\n", index_to_label(i), o_name);
518     }
519
520     fprintf(fff, "\n\n");
521 }
522
523 /*!
524  * @brief 我が家と博物館のオブジェクト情報をファイルにダンプする
525  * @param fff ファイルポインタ
526  */
527 static void dump_aux_home_museum(PlayerType *player_ptr, FILE *fff)
528 {
529     store_type *store_ptr;
530     store_ptr = &town_info[1].store[enum2i(StoreSaleType::HOME)];
531
532     GAME_TEXT o_name[MAX_NLEN];
533     if (store_ptr->stock_num) {
534         fprintf(fff, _("  [我が家のアイテム]\n", "  [Home Inventory]\n"));
535
536         TERM_LEN x = 1;
537         for (int i = 0; i < store_ptr->stock_num; i++) {
538             if ((i % 12) == 0) {
539                 fprintf(fff, _("\n ( %d ページ )\n", "\n ( page %d )\n"), x++);
540             }
541             describe_flavor(player_ptr, o_name, &store_ptr->stock[i], 0);
542             fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
543         }
544
545         fprintf(fff, "\n\n");
546     }
547
548     store_ptr = &town_info[1].store[enum2i(StoreSaleType::MUSEUM)];
549
550     if (store_ptr->stock_num == 0) {
551         return;
552     }
553
554     fprintf(fff, _("  [博物館のアイテム]\n", "  [Museum]\n"));
555
556     TERM_LEN x = 1;
557     for (int i = 0; i < store_ptr->stock_num; i++) {
558 #ifdef JP
559         if ((i % 12) == 0) {
560             fprintf(fff, "\n ( %d ページ )\n", x++);
561         }
562         describe_flavor(player_ptr, o_name, &store_ptr->stock[i], 0);
563         fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
564 #else
565         if ((i % 12) == 0) {
566             fprintf(fff, "\n ( page %d )\n", x++);
567         }
568         describe_flavor(player_ptr, o_name, &st_ptr->stock[i], 0);
569         fprintf(fff, "%c) %s\n", I2A(i % 12), o_name);
570 #endif
571     }
572
573     fprintf(fff, "\n\n");
574 }
575
576 /*!
577  * @brief チェックサム情報を出力 / Get check sum in string form
578  * @return チェックサム情報の文字列
579  */
580 static concptr get_check_sum(void)
581 {
582     return format("%02x%02x%02x%02x%02x%02x%02x%02x%02x", f_head.checksum, k_head.checksum, a_head.checksum, e_head.checksum, r_head.checksum, d_head.checksum,
583         m_head.checksum, s_head.checksum, v_head.checksum);
584 }
585
586 /*!
587  * @brief ダンプ出力のメインルーチン
588  * Output the character dump to a file
589  * @param player_ptr プレイヤーへの参照ポインタ
590  * @param fff ファイルポインタ
591  * @return エラーコード
592  */
593 void make_character_dump(PlayerType *player_ptr, FILE *fff)
594 {
595     char title[127];
596     put_version(title);
597     fprintf(fff, _("  [%s キャラクタ情報]\n\n", "  [%s Character Dump]\n\n"), title);
598
599     dump_aux_player_status(player_ptr, fff);
600     dump_aux_last_message(player_ptr, fff);
601     dump_aux_options(fff);
602     dump_aux_recall(fff);
603     dump_aux_quest(player_ptr, fff);
604     dump_aux_arena(player_ptr, fff);
605     dump_aux_monsters(player_ptr, fff);
606     dump_aux_virtues(player_ptr, fff);
607     dump_aux_race_history(player_ptr, fff);
608     dump_aux_realm_history(player_ptr, fff);
609     dump_aux_class_special(player_ptr, fff);
610     dump_aux_mutations(player_ptr, fff);
611     dump_aux_pet(player_ptr, fff);
612     fputs("\n\n", fff);
613     dump_aux_equipment_inventory(player_ptr, fff);
614     dump_aux_home_museum(player_ptr, fff);
615
616     fprintf(fff, _("  [チェックサム: \"%s\"]\n\n", "  [Check Sum: \"%s\"]\n\n"), get_check_sum());
617 }