src/io-dump/character-dump.c

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