src/io-dump/character-dump.c

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