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