src/view/display-player.c

   1 /*!
   2  * @brief プレーヤーのステータス表示メインルーチン群
   3  * @date 2020/02/25
   4  * @author Hourier
   5  * @details
   6  * ここにこれ以上関数を引っ越してくるのは禁止。何ならここから更に分割していく
   7  */
   8
   9 #include "display-player.h"
  10 #include "player-personality.h"
  11 #include "term.h"
  12 #include "status-first-page.h"
  13 #include "player-sex.h"
  14 #include "patron.h"
  15 #include "world.h"
  16 #include "quest.h"
  17 #include "core.h" // 暫定。後で消す
  18 #include "player/permanent-resistances.h" // 暫定。後で消す
  19 #include "mutation.h"
  20 #include "player-skill.h"
  21 #include "player-effects.h"
  22 #include "realm-song.h"
  23 #include "object-hook.h"
  24 #include "shoot.h"
  25 #include "dungeon-file.h"
  26 #include "objectkind.h"
  27 #include "view/display-util.h"
  28 #include "view/display-characteristic.h"
  29
  30 /*!
  31  * @brief プレイヤーの特性フラグ一覧表示2a /
  32  * @param creature_ptr プレーヤーへの参照ポインタ
  33  * Special display, part 2a
  34  * @return なし
  35  */
  36 static void display_player_misc_info(player_type *creature_ptr)
  37 {
  38 #ifdef JP
  39         put_str("名前  :", 1, 26);
  40         put_str("性別  :", 3, 1);
  41         put_str("種族  :", 4, 1);
  42         put_str("職業  :", 5, 1);
  43 #else
  44         put_str("Name  :", 1, 26);
  45         put_str("Sex   :", 3, 1);
  46         put_str("Race  :", 4, 1);
  47         put_str("Class :", 5, 1);
  48 #endif
  49
  50         char    buf[80];
  51         char    tmp[80];
  52         strcpy(tmp, ap_ptr->title);
  53 #ifdef JP
  54         if (ap_ptr->no == 1)
  55                 strcat(tmp, "の");
  56 #else
  57         strcat(tmp, " ");
  58 #endif
  59         strcat(tmp, creature_ptr->name);
  60
  61         c_put_str(TERM_L_BLUE, tmp, 1, 34);
  62         c_put_str(TERM_L_BLUE, sp_ptr->title, 3, 9);
  63         c_put_str(TERM_L_BLUE, (creature_ptr->mimic_form ? mimic_info[creature_ptr->mimic_form].title : rp_ptr->title), 4, 9);
  64         c_put_str(TERM_L_BLUE, cp_ptr->title, 5, 9);
  65
  66 #ifdef JP
  67         put_str("レベル:", 6, 1);
  68         put_str("ＨＰ  :", 7, 1);
  69         put_str("ＭＰ  :", 8, 1);
  70 #else
  71         put_str("Level :", 6, 1);
  72         put_str("Hits  :", 7, 1);
  73         put_str("Mana  :", 8, 1);
  74 #endif
  75
  76         (void)sprintf(buf, "%d", (int)creature_ptr->lev);
  77         c_put_str(TERM_L_BLUE, buf, 6, 9);
  78         (void)sprintf(buf, "%d/%d", (int)creature_ptr->chp, (int)creature_ptr->mhp);
  79         c_put_str(TERM_L_BLUE, buf, 7, 9);
  80         (void)sprintf(buf, "%d/%d", (int)creature_ptr->csp, (int)creature_ptr->msp);
  81         c_put_str(TERM_L_BLUE, buf, 8, 9);
  82 }
  83
  84
  85 /*!
  86  * @brief 特殊な種族の時、腕力等の基礎パラメータを変動させる
  87  * @param creature_ptr プレーヤーへの参照ポインタ
  88  * @param stat_num パラメータ番号
  89  * @return 補正後の基礎パラメータ
  90  */
  91 static int compensate_special_race(player_type *creature_ptr, int stat_num)
  92 {
  93         if (!PRACE_IS_(creature_ptr, RACE_ENT)) return;
  94
  95         int r_adj = 0;
  96         switch (stat_num)
  97         {
  98         case A_STR:
  99         case A_CON:
 100                 if (creature_ptr->lev > 25) r_adj++;
 101                 if (creature_ptr->lev > 40) r_adj++;
 102                 if (creature_ptr->lev > 45) r_adj++;
 103                 break;
 104         case A_DEX:
 105                 if (creature_ptr->lev > 25) r_adj--;
 106                 if (creature_ptr->lev > 40) r_adj--;
 107                 if (creature_ptr->lev > 45) r_adj--;
 108                 break;
 109         }
 110
 111         return r_adj;
 112 }
 113
 114
 115 /*!
 116  * @brief プレイヤーの特性フラグ一覧表示2b /
 117  * Special display, part 2b
 118  * @param creature_ptr プレーヤーへの参照ポインタ
 119  * @return なし
 120  * @details
 121  * <pre>
 122  * How to print out the modifications and sustains.
 123  * Positive mods with no sustain will be light green.
 124  * Positive mods with a sustain will be dark green.
 125  * Sustains (with no modification) will be a dark green 's'.
 126  * Negative mods (from a curse) will be red.
 127  * Huge mods (>9), like from MICoMorgoth, will be a '*'
 128  * No mod, no sustain, will be a slate '.'
 129  * </pre>
 130  */
 131 static void display_player_stat_info(player_type *creature_ptr)
 132 {
 133         int stat_col = 22;
 134         int row = 3;
 135         c_put_str(TERM_WHITE, _("能力", "Stat"), row, stat_col + 1);
 136         c_put_str(TERM_BLUE, _("  基本", "  Base"), row, stat_col + 7);
 137         c_put_str(TERM_L_BLUE, _(" 種 職 性 装 ", "RacClaPerMod"), row, stat_col + 13);
 138         c_put_str(TERM_L_GREEN, _("合計", "Actual"), row, stat_col + 28);
 139         c_put_str(TERM_YELLOW, _("現在", "Current"), row, stat_col + 35);
 140
 141         char buf[80];
 142         for (int i = 0; i < A_MAX; i++)
 143         {
 144                 int r_adj;
 145                 if (creature_ptr->mimic_form) r_adj = mimic_info[creature_ptr->mimic_form].r_adj[i];
 146                 else r_adj = rp_ptr->r_adj[i];
 147
 148                 int e_adj = 0;
 149
 150                 if ((creature_ptr->stat_max[i] > 18) && (creature_ptr->stat_top[i] > 18))
 151                         e_adj = (creature_ptr->stat_top[i] - creature_ptr->stat_max[i]) / 10;
 152                 if ((creature_ptr->stat_max[i] <= 18) && (creature_ptr->stat_top[i] <= 18))
 153                         e_adj = creature_ptr->stat_top[i] - creature_ptr->stat_max[i];
 154                 if ((creature_ptr->stat_max[i] <= 18) && (creature_ptr->stat_top[i] > 18))
 155                         e_adj = (creature_ptr->stat_top[i] - 18) / 10 - creature_ptr->stat_max[i] + 18;
 156
 157                 if ((creature_ptr->stat_max[i] > 18) && (creature_ptr->stat_top[i] <= 18))
 158                         e_adj = creature_ptr->stat_top[i] - (creature_ptr->stat_max[i] - 19) / 10 - 19;
 159
 160                 r_adj += compensate_special_race(creature_ptr, i);
 161                 e_adj -= r_adj;
 162                 e_adj -= cp_ptr->c_adj[i];
 163                 e_adj -= ap_ptr->a_adj[i];
 164
 165                 if (creature_ptr->stat_cur[i] < creature_ptr->stat_max[i])
 166                         c_put_str(TERM_WHITE, stat_names_reduced[i], row + i + 1, stat_col + 1);
 167                 else
 168                         c_put_str(TERM_WHITE, stat_names[i], row + i + 1, stat_col + 1);
 169
 170                 /* Internal "natural" max value.  Maxes at 18/100 */
 171                 /* This is useful to see if you are maxed out */
 172                 cnv_stat(creature_ptr->stat_max[i], buf);
 173                 if (creature_ptr->stat_max[i] == creature_ptr->stat_max_max[i])
 174                         c_put_str(TERM_WHITE, "!", row + i + 1, _(stat_col + 6, stat_col + 4));
 175
 176                 c_put_str(TERM_BLUE, buf, row + i + 1, stat_col + 13 - strlen(buf));
 177
 178                 (void)sprintf(buf, "%3d", r_adj);
 179                 c_put_str(TERM_L_BLUE, buf, row + i + 1, stat_col + 13);
 180                 (void)sprintf(buf, "%3d", (int)cp_ptr->c_adj[i]);
 181                 c_put_str(TERM_L_BLUE, buf, row + i + 1, stat_col + 16);
 182                 (void)sprintf(buf, "%3d", (int)ap_ptr->a_adj[i]);
 183                 c_put_str(TERM_L_BLUE, buf, row + i + 1, stat_col + 19);
 184                 (void)sprintf(buf, "%3d", (int)e_adj);
 185                 c_put_str(TERM_L_BLUE, buf, row + i + 1, stat_col + 22);
 186
 187                 cnv_stat(creature_ptr->stat_top[i], buf);
 188                 c_put_str(TERM_L_GREEN, buf, row + i + 1, stat_col + 26);
 189
 190                 if (creature_ptr->stat_use[i] < creature_ptr->stat_top[i])
 191                 {
 192                         cnv_stat(creature_ptr->stat_use[i], buf);
 193                         c_put_str(TERM_YELLOW, buf, row + i + 1, stat_col + 33);
 194                 }
 195         }
 196
 197         int col = stat_col + 41;
 198         c_put_str(TERM_WHITE, "abcdefghijkl@", row, col);
 199         c_put_str(TERM_L_GREEN, _("能力修正", "Modification"), row - 1, col);
 200
 201         BIT_FLAGS flgs[TR_FLAG_SIZE];
 202         for (int i = INVEN_RARM; i < INVEN_TOTAL; i++)
 203         {
 204                 object_type *o_ptr;
 205                 o_ptr = &creature_ptr->inventory_list[i];
 206                 object_flags_known(o_ptr, flgs);
 207                 for (int stat = 0; stat < A_MAX; stat++)
 208                 {
 209                         byte a = TERM_SLATE;
 210                         char c = '.';
 211                         if (have_flag(flgs, stat))
 212                         {
 213                                 c = '*';
 214
 215                                 if (o_ptr->pval > 0)
 216                                 {
 217                                         a = TERM_L_GREEN;
 218                                         if (o_ptr->pval < 10) c = '0' + o_ptr->pval;
 219                                 }
 220
 221                                 if (have_flag(flgs, stat + TR_SUST_STR))
 222                                 {
 223                                         a = TERM_GREEN;
 224                                 }
 225
 226                                 if (o_ptr->pval < 0)
 227                                 {
 228                                         a = TERM_RED;
 229                                         if (o_ptr->pval > -10) c = '0' - o_ptr->pval;
 230                                 }
 231                         }
 232                         else if (have_flag(flgs, stat + TR_SUST_STR))
 233                         {
 234                                 a = TERM_GREEN;
 235                                 c = 's';
 236                         }
 237
 238                         Term_putch(col, row + stat + 1, a, c);
 239                 }
 240
 241                 col++;
 242         }
 243
 244         player_flags(creature_ptr, flgs);
 245         for (int stat = 0; stat < A_MAX; stat++)
 246         {
 247                 byte a = TERM_SLATE;
 248                 char c = '.';
 249
 250                 if (creature_ptr->muta3 || creature_ptr->tsuyoshi)
 251                 {
 252                         int dummy = 0;
 253
 254                         if (stat == A_STR)
 255                         {
 256                                 if (creature_ptr->muta3 & MUT3_HYPER_STR) dummy += 4;
 257                                 if (creature_ptr->muta3 & MUT3_PUNY) dummy -= 4;
 258                                 if (creature_ptr->tsuyoshi) dummy += 4;
 259                         }
 260                         else if (stat == A_WIS || stat == A_INT)
 261                         {
 262                                 if (creature_ptr->muta3 & MUT3_HYPER_INT) dummy += 4;
 263                                 if (creature_ptr->muta3 & MUT3_MORONIC) dummy -= 4;
 264                         }
 265                         else if (stat == A_DEX)
 266                         {
 267                                 if (creature_ptr->muta3 & MUT3_IRON_SKIN) dummy -= 1;
 268                                 if (creature_ptr->muta3 & MUT3_LIMBER) dummy += 3;
 269                                 if (creature_ptr->muta3 & MUT3_ARTHRITIS) dummy -= 3;
 270                         }
 271                         else if (stat == A_CON)
 272                         {
 273                                 if (creature_ptr->muta3 & MUT3_RESILIENT) dummy += 4;
 274                                 if (creature_ptr->muta3 & MUT3_XTRA_FAT) dummy += 2;
 275                                 if (creature_ptr->muta3 & MUT3_ALBINO) dummy -= 4;
 276                                 if (creature_ptr->muta3 & MUT3_FLESH_ROT) dummy -= 2;
 277                                 if (creature_ptr->tsuyoshi) dummy += 4;
 278                         }
 279                         else if (stat == A_CHR)
 280                         {
 281                                 if (creature_ptr->muta3 & MUT3_SILLY_VOI) dummy -= 4;
 282                                 if (creature_ptr->muta3 & MUT3_BLANK_FAC) dummy -= 1;
 283                                 if (creature_ptr->muta3 & MUT3_FLESH_ROT) dummy -= 1;
 284                                 if (creature_ptr->muta3 & MUT3_SCALES) dummy -= 1;
 285                                 if (creature_ptr->muta3 & MUT3_WART_SKIN) dummy -= 2;
 286                                 if (creature_ptr->muta3 & MUT3_ILL_NORM) dummy = 0;
 287                         }
 288
 289                         if (dummy != 0)
 290                         {
 291                                 c = '*';
 292                                 if (dummy > 0)
 293                                 {
 294                                         /* Good */
 295                                         a = TERM_L_GREEN;
 296
 297                                         /* Label boost */
 298                                         if (dummy < 10) c = '0' + dummy;
 299                                 }
 300
 301                                 if (dummy < 0)
 302                                 {
 303                                         a = TERM_RED;
 304                                         if (dummy > -10) c = '0' - dummy;
 305                                 }
 306                         }
 307                 }
 308
 309                 if (have_flag(flgs, stat + TR_SUST_STR))
 310                 {
 311                         a = TERM_GREEN;
 312                         c = 's';
 313                 }
 314
 315                 Term_putch(col, row + stat + 1, a, c);
 316         }
 317 }
 318
 319
 320 /*!
 321  * @brief プレイヤーの打撃能力修正を表示する
 322  * @param creature_ptr プレーヤーへの参照ポインタ
 323  * @param hand 武器の装備部位ID
 324  * @param hand_entry 項目ID
 325  * @return なし
 326  */
 327 static void display_player_melee_bonus(player_type *creature_ptr, int hand, int hand_entry)
 328 {
 329         HIT_PROB show_tohit = creature_ptr->dis_to_h[hand];
 330         HIT_POINT show_todam = creature_ptr->dis_to_d[hand];
 331         object_type *o_ptr = &creature_ptr->inventory_list[INVEN_RARM + hand];
 332
 333         if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
 334         if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
 335
 336         show_tohit += creature_ptr->skill_thn / BTH_PLUS_ADJ;
 337
 338         char buf[160];
 339         sprintf(buf, "(%+d,%+d)", (int)show_tohit, (int)show_todam);
 340
 341         if (!has_melee_weapon(creature_ptr, INVEN_RARM) && !has_melee_weapon(creature_ptr, INVEN_LARM))
 342                 display_player_one_line(ENTRY_BARE_HAND, buf, TERM_L_BLUE);
 343         else if (creature_ptr->ryoute)
 344                 display_player_one_line(ENTRY_TWO_HANDS, buf, TERM_L_BLUE);
 345         else
 346                 display_player_one_line(hand_entry, buf, TERM_L_BLUE);
 347 }
 348
 349
 350 /*!
 351  * @brief プレイヤーステータス表示の中央部分を表示するサブルーチン
 352  * @param creature_ptr プレーヤーへの参照ポインタ
 353  * Prints the following information on the screen.
 354  * @return なし
 355  */
 356 static void display_player_middle(player_type *creature_ptr)
 357 {
 358         HIT_PROB show_tohit = creature_ptr->dis_to_h_b;
 359         HIT_POINT show_todam = 0;
 360         if (creature_ptr->migite)
 361         {
 362                 display_player_melee_bonus(creature_ptr, 0, left_hander ? ENTRY_LEFT_HAND1 : ENTRY_RIGHT_HAND1);
 363         }
 364
 365         if (creature_ptr->hidarite)
 366         {
 367                 display_player_melee_bonus(creature_ptr, 1, left_hander ? ENTRY_RIGHT_HAND2 : ENTRY_LEFT_HAND2);
 368         }
 369         else if ((creature_ptr->pclass == CLASS_MONK) && (empty_hands(creature_ptr, TRUE) & EMPTY_HAND_RARM))
 370         {
 371                 int i;
 372                 if (creature_ptr->special_defense & KAMAE_MASK)
 373                 {
 374                         for (i = 0; i < MAX_KAMAE; i++)
 375                         {
 376                                 if ((creature_ptr->special_defense >> i) & KAMAE_GENBU) break;
 377                         }
 378                         if (i < MAX_KAMAE)
 379                         {
 380                                 display_player_one_line(ENTRY_POSTURE, format(_("%sの構え", "%s form"), kamae_shurui[i].desc), TERM_YELLOW);
 381                         }
 382                 }
 383                 else
 384                 {
 385                         display_player_one_line(ENTRY_POSTURE, _("構えなし", "none"), TERM_YELLOW);
 386                 }
 387         }
 388
 389         object_type *o_ptr = &creature_ptr->inventory_list[INVEN_BOW];
 390         if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
 391         if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
 392
 393         if ((o_ptr->sval == SV_LIGHT_XBOW) || (o_ptr->sval == SV_HEAVY_XBOW))
 394                 show_tohit += creature_ptr->weapon_exp[0][o_ptr->sval] / 400;
 395         else
 396                 show_tohit += (creature_ptr->weapon_exp[0][o_ptr->sval] - (WEAPON_EXP_MASTER / 2)) / 200;
 397
 398         show_tohit += creature_ptr->skill_thb / BTH_PLUS_ADJ;
 399
 400         display_player_one_line(ENTRY_SHOOT_HIT_DAM, format("(%+d,%+d)", show_tohit, show_todam), TERM_L_BLUE);
 401         int tmul = 0;
 402         if (creature_ptr->inventory_list[INVEN_BOW].k_idx)
 403         {
 404                 tmul = bow_tmul(creature_ptr->inventory_list[INVEN_BOW].sval);
 405                 if (creature_ptr->xtra_might) tmul++;
 406
 407                 tmul = tmul * (100 + (int)(adj_str_td[creature_ptr->stat_ind[A_STR]]) - 128);
 408         }
 409
 410         display_player_one_line(ENTRY_SHOOT_POWER, format("x%d.%02d", tmul / 100, tmul % 100), TERM_L_BLUE);
 411         display_player_one_line(ENTRY_BASE_AC, format("[%d,%+d]", creature_ptr->dis_ac, creature_ptr->dis_to_a), TERM_L_BLUE);
 412
 413         int i = creature_ptr->pspeed - 110;
 414         if (creature_ptr->action == ACTION_SEARCH) i += 10;
 415
 416         TERM_COLOR attr;
 417         if (i > 0)
 418         {
 419                 if (!creature_ptr->riding)
 420                         attr = TERM_L_GREEN;
 421                 else
 422                         attr = TERM_GREEN;
 423         }
 424         else if (i == 0)
 425         {
 426                 if (!creature_ptr->riding)
 427                         attr = TERM_L_BLUE;
 428                 else
 429                         attr = TERM_GREEN;
 430         }
 431         else
 432         {
 433                 if (!creature_ptr->riding)
 434                         attr = TERM_L_UMBER;
 435                 else
 436                         attr = TERM_RED;
 437         }
 438
 439         int tmp_speed = 0;
 440         if (!creature_ptr->riding)
 441         {
 442                 if (IS_FAST(creature_ptr)) tmp_speed += 10;
 443                 if (creature_ptr->slow) tmp_speed -= 10;
 444                 if (creature_ptr->lightspeed) tmp_speed = 99;
 445         }
 446         else
 447         {
 448                 if (MON_FAST(&creature_ptr->current_floor_ptr->m_list[creature_ptr->riding])) tmp_speed += 10;
 449                 if (MON_SLOW(&creature_ptr->current_floor_ptr->m_list[creature_ptr->riding])) tmp_speed -= 10;
 450         }
 451
 452         char buf[160];
 453         if (tmp_speed)
 454         {
 455                 if (!creature_ptr->riding)
 456                         sprintf(buf, "(%+d%+d)", i - tmp_speed, tmp_speed);
 457                 else
 458                         sprintf(buf, _("乗馬中 (%+d%+d)", "Riding (%+d%+d)"), i - tmp_speed, tmp_speed);
 459
 460                 if (tmp_speed > 0)
 461                         attr = TERM_YELLOW;
 462                 else
 463                         attr = TERM_VIOLET;
 464         }
 465         else
 466         {
 467                 if (!creature_ptr->riding)
 468                         sprintf(buf, "(%+d)", i);
 469                 else
 470                         sprintf(buf, _("乗馬中 (%+d)", "Riding (%+d)"), i);
 471         }
 472
 473         display_player_one_line(ENTRY_SPEED, buf, attr);
 474         display_player_one_line(ENTRY_LEVEL, format("%d", creature_ptr->lev), TERM_L_GREEN);
 475
 476         int e = (creature_ptr->prace == RACE_ANDROID) ? ENTRY_EXP_ANDR : ENTRY_CUR_EXP;
 477         if (creature_ptr->exp >= creature_ptr->max_exp)
 478                 display_player_one_line(e, format("%ld", creature_ptr->exp), TERM_L_GREEN);
 479         else
 480                 display_player_one_line(e, format("%ld", creature_ptr->exp), TERM_YELLOW);
 481
 482         if (creature_ptr->prace != RACE_ANDROID)
 483                 display_player_one_line(ENTRY_MAX_EXP, format("%ld", creature_ptr->max_exp), TERM_L_GREEN);
 484
 485         e = (creature_ptr->prace == RACE_ANDROID) ? ENTRY_EXP_TO_ADV_ANDR : ENTRY_EXP_TO_ADV;
 486
 487         if (creature_ptr->lev >= PY_MAX_LEVEL)
 488                 display_player_one_line(e, "*****", TERM_L_GREEN);
 489         else if (creature_ptr->prace == RACE_ANDROID)
 490                 display_player_one_line(e, format("%ld", (s32b)(player_exp_a[creature_ptr->lev - 1] * creature_ptr->expfact / 100L)), TERM_L_GREEN);
 491         else
 492                 display_player_one_line(e, format("%ld", (s32b)(player_exp[creature_ptr->lev - 1] * creature_ptr->expfact / 100L)), TERM_L_GREEN);
 493
 494         display_player_one_line(ENTRY_GOLD, format("%ld", creature_ptr->au), TERM_L_GREEN);
 495
 496         int day, hour, min;
 497         extract_day_hour_min(creature_ptr, &day, &hour, &min);
 498
 499         if (day < MAX_DAYS)
 500                 sprintf(buf, _("%d日目 %2d:%02d", "Day %d %2d:%02d"), day, hour, min);
 501         else
 502                 sprintf(buf, _("*****日目 %2d:%02d", "Day ***** %2d:%02d"), hour, min);
 503
 504         display_player_one_line(ENTRY_DAY, buf, TERM_L_GREEN);
 505
 506         if (creature_ptr->chp >= creature_ptr->mhp)
 507                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_L_GREEN);
 508         else if (creature_ptr->chp > (creature_ptr->mhp * hitpoint_warn) / 10)
 509                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_YELLOW);
 510         else
 511                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_RED);
 512
 513         if (creature_ptr->csp >= creature_ptr->msp)
 514                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_L_GREEN);
 515         else if (creature_ptr->csp > (creature_ptr->msp * mana_warn) / 10)
 516                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_YELLOW);
 517         else
 518                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_RED);
 519
 520         u32b play_hour = current_world_ptr->play_time / (60 * 60);
 521         u32b play_min = (current_world_ptr->play_time / 60) % 60;
 522         u32b play_sec = current_world_ptr->play_time % 60;
 523         display_player_one_line(ENTRY_PLAY_TIME, format("%.2lu:%.2lu:%.2lu", play_hour, play_min, play_sec), TERM_L_GREEN);
 524 }
 525
 526
 527 /*!
 528  * @brief プレイヤーのステータス表示メイン処理
 529  * Display the character on the screen (various modes)
 530  * @param creature_ptr プレーヤーへの参照ポインタ
 531  * @param mode 表示モードID
 532  * @return なし
 533  * @details
 534  * <pre>
 535  * The top one and bottom two lines are left blank.
 536  * Mode 0 = standard display with skills
 537  * Mode 1 = standard display with history
 538  * Mode 2 = summary of various things
 539  * Mode 3 = summary of various things (part 2)
 540  * Mode 4 = mutations
 541  * </pre>
 542  */
 543 void display_player(player_type *creature_ptr, int mode, map_name_pf map_name)
 544 {
 545         if ((creature_ptr->muta1 || creature_ptr->muta2 || creature_ptr->muta3) && display_mutations)
 546                 mode = (mode % 5);
 547         else
 548                 mode = (mode % 4);
 549
 550         clear_from(0);
 551
 552         if (mode == 2)
 553         {
 554                 display_player_misc_info(creature_ptr);
 555                 display_player_stat_info(creature_ptr);
 556                 display_player_flag_info_1(creature_ptr, display_player_equippy);
 557                 return;
 558         }
 559
 560         if (mode == 3)
 561         {
 562                 display_player_flag_info_2(creature_ptr, display_player_equippy);
 563                 return;
 564         }
 565
 566         if (mode == 4)
 567         {
 568                 do_cmd_knowledge_mutations(creature_ptr);
 569                 return;
 570         }
 571
 572         char tmp[64];
 573         if ((mode != 0) && (mode != 1)) return;
 574
 575         /* Name, Sex, Race, Class */
 576 #ifdef JP
 577         sprintf(tmp, "%s%s%s", ap_ptr->title, ap_ptr->no == 1 ? "の" : "", creature_ptr->name);
 578 #else
 579         sprintf(tmp, "%s %s", ap_ptr->title, creature_ptr->name);
 580 #endif
 581
 582         display_player_one_line(ENTRY_NAME, tmp, TERM_L_BLUE);
 583         display_player_one_line(ENTRY_SEX, sp_ptr->title, TERM_L_BLUE);
 584         display_player_one_line(ENTRY_RACE, (creature_ptr->mimic_form ? mimic_info[creature_ptr->mimic_form].title : rp_ptr->title), TERM_L_BLUE);
 585         display_player_one_line(ENTRY_CLASS, cp_ptr->title, TERM_L_BLUE);
 586
 587         if (creature_ptr->realm1)
 588         {
 589                 if (creature_ptr->realm2)
 590                         sprintf(tmp, "%s, %s", realm_names[creature_ptr->realm1], realm_names[creature_ptr->realm2]);
 591                 else
 592                         strcpy(tmp, realm_names[creature_ptr->realm1]);
 593                 display_player_one_line(ENTRY_REALM, tmp, TERM_L_BLUE);
 594         }
 595
 596         if ((creature_ptr->pclass == CLASS_CHAOS_WARRIOR) || (creature_ptr->muta2 & MUT2_CHAOS_GIFT))
 597                 display_player_one_line(ENTRY_PATRON, chaos_patrons[creature_ptr->chaos_patron], TERM_L_BLUE);
 598
 599         /* Age, Height, Weight, Social */
 600         /* 身長はセンチメートルに、体重はキログラムに変更してあります */
 601 #ifdef JP
 602         display_player_one_line(ENTRY_AGE, format("%d才", (int)creature_ptr->age), TERM_L_BLUE);
 603         display_player_one_line(ENTRY_HEIGHT, format("%dcm", (int)((creature_ptr->ht * 254) / 100)), TERM_L_BLUE);
 604         display_player_one_line(ENTRY_WEIGHT, format("%dkg", (int)((creature_ptr->wt * 4536) / 10000)), TERM_L_BLUE);
 605         display_player_one_line(ENTRY_SOCIAL, format("%d  ", (int)creature_ptr->sc), TERM_L_BLUE);
 606 #else
 607         display_player_one_line(ENTRY_AGE, format("%d", (int)creature_ptr->age), TERM_L_BLUE);
 608         display_player_one_line(ENTRY_HEIGHT, format("%d", (int)creature_ptr->ht), TERM_L_BLUE);
 609         display_player_one_line(ENTRY_WEIGHT, format("%d", (int)creature_ptr->wt), TERM_L_BLUE);
 610         display_player_one_line(ENTRY_SOCIAL, format("%d", (int)creature_ptr->sc), TERM_L_BLUE);
 611 #endif
 612         display_player_one_line(ENTRY_ALIGN, format("%s", your_alignment(creature_ptr)), TERM_L_BLUE);
 613
 614         char buf[80];
 615         for (int i = 0; i < A_MAX; i++)
 616         {
 617                 if (creature_ptr->stat_cur[i] < creature_ptr->stat_max[i])
 618                 {
 619                         put_str(stat_names_reduced[i], 3 + i, 53);
 620                         int value = creature_ptr->stat_use[i];
 621                         cnv_stat(value, buf);
 622                         c_put_str(TERM_YELLOW, buf, 3 + i, 60);
 623                         value = creature_ptr->stat_top[i];
 624                         cnv_stat(value, buf);
 625                         c_put_str(TERM_L_GREEN, buf, 3 + i, 67);
 626                 }
 627                 else
 628                 {
 629                         put_str(stat_names[i], 3 + i, 53);
 630                         cnv_stat(creature_ptr->stat_use[i], buf);
 631                         c_put_str(TERM_L_GREEN, buf, 3 + i, 60);
 632                 }
 633
 634                 if (creature_ptr->stat_max[i] == creature_ptr->stat_max_max[i])
 635                 {
 636                         c_put_str(TERM_WHITE, "!", 3 + i, _(58, 58 - 2));
 637                 }
 638         }
 639
 640         floor_type *floor_ptr = creature_ptr->current_floor_ptr;
 641         if (mode == 0)
 642         {
 643                 display_player_middle(creature_ptr);
 644                 display_player_various(creature_ptr);
 645                 return;
 646         }
 647
 648         char statmsg[1000];
 649         put_str(_("(キャラクターの生い立ち)", "(Character Background)"), 11, 25);
 650
 651         for (int i = 0; i < 4; i++)
 652         {
 653                 put_str(creature_ptr->history[i], i + 12, 10);
 654         }
 655
 656         *statmsg = '\0';
 657
 658         if (creature_ptr->is_dead)
 659         {
 660                 if (current_world_ptr->total_winner)
 661                 {
 662 #ifdef JP
 663                         sprintf(statmsg, "…あなたは勝利の後%sした。", streq(creature_ptr->died_from, "Seppuku") ? "切腹" : "引退");
 664 #else
 665                         sprintf(statmsg, "...You %s after winning.", streq(creature_ptr->died_from, "Seppuku") ? "committed seppuku" : "retired from the adventure");
 666 #endif
 667                 }
 668                 else if (!floor_ptr->dun_level)
 669                 {
 670 #ifdef JP
 671                         sprintf(statmsg, "…あなたは%sで%sに殺された。", (*map_name)(creature_ptr), creature_ptr->died_from);
 672 #else
 673                         sprintf(statmsg, "...You were killed by %s in %s.", creature_ptr->died_from, map_name(creature_ptr));
 674 #endif
 675                 }
 676                 else if (floor_ptr->inside_quest && is_fixed_quest_idx(floor_ptr->inside_quest))
 677                 {
 678                         /* Get the quest text */
 679                         /* Bewere that INIT_ASSIGN resets the cur_num. */
 680                         init_flags = INIT_NAME_ONLY;
 681
 682                         process_dungeon_file(creature_ptr, "q_info.txt", 0, 0, 0, 0);
 683
 684 #ifdef JP
 685                         sprintf(statmsg, "…あなたは、クエスト「%s」で%sに殺された。", quest[floor_ptr->inside_quest].name, creature_ptr->died_from);
 686 #else
 687                         sprintf(statmsg, "...You were killed by %s in the quest '%s'.", creature_ptr->died_from, quest[floor_ptr->inside_quest].name);
 688 #endif
 689                 }
 690                 else
 691                 {
 692 #ifdef JP
 693                         sprintf(statmsg, "…あなたは、%sの%d階で%sに殺された。", (*map_name)(creature_ptr), (int)floor_ptr->dun_level, creature_ptr->died_from);
 694 #else
 695                         sprintf(statmsg, "...You were killed by %s on level %d of %s.", creature_ptr->died_from, floor_ptr->dun_level, map_name(creature_ptr));
 696 #endif
 697                 }
 698         }
 699         else if (current_world_ptr->character_dungeon)
 700         {
 701                 if (!floor_ptr->dun_level)
 702                 {
 703                         sprintf(statmsg, _("…あなたは現在、 %s にいる。", "...Now, you are in %s."), map_name(creature_ptr));
 704                 }
 705                 else if (floor_ptr->inside_quest && is_fixed_quest_idx(floor_ptr->inside_quest))
 706                 {
 707                         /* Clear the text */
 708                         /* Must be done before doing INIT_SHOW_TEXT */
 709                         for (int i = 0; i < 10; i++)
 710                         {
 711                                 quest_text[i][0] = '\0';
 712                         }
 713
 714                         quest_text_line = 0;
 715                         init_flags = INIT_NAME_ONLY;
 716                         process_dungeon_file(creature_ptr, "q_info.txt", 0, 0, 0, 0);
 717                         sprintf(statmsg, _("…あなたは現在、 クエスト「%s」を遂行中だ。", "...Now, you are in the quest '%s'."), quest[floor_ptr->inside_quest].name);
 718                 }
 719                 else
 720                 {
 721 #ifdef JP
 722                         sprintf(statmsg, "…あなたは現在、 %s の %d 階で探索している。", map_name(creature_ptr), (int)floor_ptr->dun_level);
 723 #else
 724                         sprintf(statmsg, "...Now, you are exploring level %d of %s.", floor_ptr->dun_level, map_name(creature_ptr));
 725 #endif
 726                 }
 727         }
 728
 729         if (!*statmsg) return;
 730
 731         char temp[64 * 2];
 732         roff_to_buf(statmsg, 60, temp, sizeof(temp));
 733         char  *t;
 734         t = temp;
 735         for (int i = 0; i < 2; i++)
 736         {
 737                 if (t[0] == 0) return;
 738
 739                 put_str(t, i + 5 + 12, 10);
 740                 t += strlen(t) + 1;
 741         }
 742 }
 743
 744
 745 /*!
 746  * todo y = 6、x = 0、mode = 0で固定。何とかする
 747  * @brief プレイヤーの装備一覧をシンボルで並べる
 748  * Equippy chars
 749  * @param creature_ptr プレーヤーへの参照ポインタ
 750  * @param y 表示するコンソールの行
 751  * @param x 表示するコンソールの列
 752  * @param mode オプション
 753  * @return なし
 754  */
 755 void display_player_equippy(player_type *creature_ptr, TERM_LEN y, TERM_LEN x, BIT_FLAGS16 mode)
 756 {
 757         int max_i = (mode & DP_WP) ? INVEN_LARM + 1 : INVEN_TOTAL;
 758         for (int i = INVEN_RARM; i < max_i; i++)
 759         {
 760                 object_type *o_ptr;
 761                 o_ptr = &creature_ptr->inventory_list[i];
 762
 763                 TERM_COLOR a = object_attr(o_ptr);
 764                 char c = object_char(o_ptr);
 765
 766                 if (!equippy_chars || !o_ptr->k_idx)
 767                 {
 768                         c = ' ';
 769                         a = TERM_DARK;
 770                 }
 771
 772                 Term_putch(x + i - INVEN_RARM, y, a, c);
 773         }
 774 }