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 "mutation.h"
  19 #include "player-skill.h"
  20 #include "player-effects.h"
  21 #include "realm-song.h"
  22 #include "object-hook.h"
  23 #include "shoot.h"
  24 #include "dungeon-file.h"
  25 #include "objectkind.h"
  26 #include "view/display-util.h"
  27 #include "view/display-characteristic.h"
  28 #include "view/display-player-stat-info.h"
  29 #include "view/display-player-misc-info.h"
  30
  31 /*!
  32  * @brief プレイヤーの打撃能力修正を表示する
  33  * @param creature_ptr プレーヤーへの参照ポインタ
  34  * @param hand 武器の装備部位ID
  35  * @param hand_entry 項目ID
  36  * @return なし
  37  */
  38 static void display_player_melee_bonus(player_type *creature_ptr, int hand, int hand_entry)
  39 {
  40         HIT_PROB show_tohit = creature_ptr->dis_to_h[hand];
  41         HIT_POINT show_todam = creature_ptr->dis_to_d[hand];
  42         object_type *o_ptr = &creature_ptr->inventory_list[INVEN_RARM + hand];
  43
  44         if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
  45         if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
  46
  47         show_tohit += creature_ptr->skill_thn / BTH_PLUS_ADJ;
  48
  49         char buf[160];
  50         sprintf(buf, "(%+d,%+d)", (int)show_tohit, (int)show_todam);
  51
  52         if (!has_melee_weapon(creature_ptr, INVEN_RARM) && !has_melee_weapon(creature_ptr, INVEN_LARM))
  53                 display_player_one_line(ENTRY_BARE_HAND, buf, TERM_L_BLUE);
  54         else if (creature_ptr->ryoute)
  55                 display_player_one_line(ENTRY_TWO_HANDS, buf, TERM_L_BLUE);
  56         else
  57                 display_player_one_line(hand_entry, buf, TERM_L_BLUE);
  58 }
  59
  60
  61 /*!
  62  * @brief 右手に比べて左手の表示ルーチンが複雑なので分離
  63  * @param creature_ptr プレーヤーへの参照ポインタ
  64  * @return なし
  65  */
  66 static void display_left_hand(player_type *creature_ptr)
  67 {
  68         if (creature_ptr->hidarite)
  69         {
  70                 display_player_melee_bonus(creature_ptr, 1, left_hander ? ENTRY_RIGHT_HAND2 : ENTRY_LEFT_HAND2);
  71                 return;
  72         }
  73
  74         if ((creature_ptr->pclass != CLASS_MONK) || ((empty_hands(creature_ptr, TRUE) & EMPTY_HAND_RARM) == 0))
  75                 return;
  76
  77         if ((creature_ptr->special_defense & KAMAE_MASK) == 0)
  78         {
  79                 display_player_one_line(ENTRY_POSTURE, _("構えなし", "none"), TERM_YELLOW);
  80                 return;
  81         }
  82
  83         int kamae_num;
  84         for (kamae_num = 0; kamae_num < MAX_KAMAE; kamae_num++)
  85         {
  86                 if ((creature_ptr->special_defense >> kamae_num) & KAMAE_GENBU)
  87                         break;
  88         }
  89
  90         if (kamae_num < MAX_KAMAE)
  91         {
  92                 display_player_one_line(ENTRY_POSTURE, format(_("%sの構え", "%s form"), kamae_shurui[kamae_num].desc), TERM_YELLOW);
  93         }
  94 }
  95
  96
  97 /*!
  98  * @brief 武器による命中率とダメージの補正を表示する
  99  * @param creature_ptr プレーヤーへの参照ポインタ
 100  * @return なし
 101  */
 102 static void display_hit_damage(player_type *creature_ptr)
 103 {
 104         object_type *o_ptr = &creature_ptr->inventory_list[INVEN_BOW];
 105         HIT_PROB show_tohit = creature_ptr->dis_to_h_b;
 106         HIT_POINT show_todam = 0;
 107         if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
 108         if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
 109
 110         if ((o_ptr->sval == SV_LIGHT_XBOW) || (o_ptr->sval == SV_HEAVY_XBOW))
 111                 show_tohit += creature_ptr->weapon_exp[0][o_ptr->sval] / 400;
 112         else
 113                 show_tohit += (creature_ptr->weapon_exp[0][o_ptr->sval] - (WEAPON_EXP_MASTER / 2)) / 200;
 114
 115         show_tohit += creature_ptr->skill_thb / BTH_PLUS_ADJ;
 116
 117         display_player_one_line(ENTRY_SHOOT_HIT_DAM, format("(%+d,%+d)", show_tohit, show_todam), TERM_L_BLUE);
 118 }
 119
 120
 121 /*!
 122  * @brief 射撃武器倍率を表示する
 123  * @param creature_ptr プレーヤーへの参照ポインタ
 124  * @return なし
 125  */
 126 static void display_shoot_magnification(player_type *creature_ptr)
 127 {
 128         int tmul = 0;
 129         if (creature_ptr->inventory_list[INVEN_BOW].k_idx)
 130         {
 131                 tmul = bow_tmul(creature_ptr->inventory_list[INVEN_BOW].sval);
 132                 if (creature_ptr->xtra_might) tmul++;
 133
 134                 tmul = tmul * (100 + (int)(adj_str_td[creature_ptr->stat_ind[A_STR]]) - 128);
 135         }
 136
 137         display_player_one_line(ENTRY_SHOOT_POWER, format("x%d.%02d", tmul / 100, tmul % 100), TERM_L_BLUE);
 138 }
 139
 140
 141 /*!
 142  * @brief プレイヤーステータス表示の中央部分を表示するサブルーチン
 143  * @param creature_ptr プレーヤーへの参照ポインタ
 144  * Prints the following information on the screen.
 145  * @return なし
 146  */
 147 static void display_player_middle(player_type *creature_ptr)
 148 {
 149         if (creature_ptr->migite)
 150         {
 151                 display_player_melee_bonus(creature_ptr, 0, left_hander ? ENTRY_LEFT_HAND1 : ENTRY_RIGHT_HAND1);
 152         }
 153
 154         display_left_hand(creature_ptr);
 155         display_hit_damage(creature_ptr);
 156         display_shoot_magnification(creature_ptr);
 157         display_player_one_line(ENTRY_BASE_AC, format("[%d,%+d]", creature_ptr->dis_ac, creature_ptr->dis_to_a), TERM_L_BLUE);
 158
 159         int i = creature_ptr->pspeed - 110;
 160         if (creature_ptr->action == ACTION_SEARCH) i += 10;
 161
 162         TERM_COLOR attr;
 163         if (i > 0)
 164         {
 165                 if (!creature_ptr->riding)
 166                         attr = TERM_L_GREEN;
 167                 else
 168                         attr = TERM_GREEN;
 169         }
 170         else if (i == 0)
 171         {
 172                 if (!creature_ptr->riding)
 173                         attr = TERM_L_BLUE;
 174                 else
 175                         attr = TERM_GREEN;
 176         }
 177         else
 178         {
 179                 if (!creature_ptr->riding)
 180                         attr = TERM_L_UMBER;
 181                 else
 182                         attr = TERM_RED;
 183         }
 184
 185         int tmp_speed = 0;
 186         if (!creature_ptr->riding)
 187         {
 188                 if (IS_FAST(creature_ptr)) tmp_speed += 10;
 189                 if (creature_ptr->slow) tmp_speed -= 10;
 190                 if (creature_ptr->lightspeed) tmp_speed = 99;
 191         }
 192         else
 193         {
 194                 if (MON_FAST(&creature_ptr->current_floor_ptr->m_list[creature_ptr->riding])) tmp_speed += 10;
 195                 if (MON_SLOW(&creature_ptr->current_floor_ptr->m_list[creature_ptr->riding])) tmp_speed -= 10;
 196         }
 197
 198         char buf[160];
 199         if (tmp_speed)
 200         {
 201                 if (!creature_ptr->riding)
 202                         sprintf(buf, "(%+d%+d)", i - tmp_speed, tmp_speed);
 203                 else
 204                         sprintf(buf, _("乗馬中 (%+d%+d)", "Riding (%+d%+d)"), i - tmp_speed, tmp_speed);
 205
 206                 if (tmp_speed > 0)
 207                         attr = TERM_YELLOW;
 208                 else
 209                         attr = TERM_VIOLET;
 210         }
 211         else
 212         {
 213                 if (!creature_ptr->riding)
 214                         sprintf(buf, "(%+d)", i);
 215                 else
 216                         sprintf(buf, _("乗馬中 (%+d)", "Riding (%+d)"), i);
 217         }
 218
 219         display_player_one_line(ENTRY_SPEED, buf, attr);
 220         display_player_one_line(ENTRY_LEVEL, format("%d", creature_ptr->lev), TERM_L_GREEN);
 221
 222         int e = (creature_ptr->prace == RACE_ANDROID) ? ENTRY_EXP_ANDR : ENTRY_CUR_EXP;
 223         if (creature_ptr->exp >= creature_ptr->max_exp)
 224                 display_player_one_line(e, format("%ld", creature_ptr->exp), TERM_L_GREEN);
 225         else
 226                 display_player_one_line(e, format("%ld", creature_ptr->exp), TERM_YELLOW);
 227
 228         if (creature_ptr->prace != RACE_ANDROID)
 229                 display_player_one_line(ENTRY_MAX_EXP, format("%ld", creature_ptr->max_exp), TERM_L_GREEN);
 230
 231         e = (creature_ptr->prace == RACE_ANDROID) ? ENTRY_EXP_TO_ADV_ANDR : ENTRY_EXP_TO_ADV;
 232
 233         if (creature_ptr->lev >= PY_MAX_LEVEL)
 234                 display_player_one_line(e, "*****", TERM_L_GREEN);
 235         else if (creature_ptr->prace == RACE_ANDROID)
 236                 display_player_one_line(e, format("%ld", (s32b)(player_exp_a[creature_ptr->lev - 1] * creature_ptr->expfact / 100L)), TERM_L_GREEN);
 237         else
 238                 display_player_one_line(e, format("%ld", (s32b)(player_exp[creature_ptr->lev - 1] * creature_ptr->expfact / 100L)), TERM_L_GREEN);
 239
 240         display_player_one_line(ENTRY_GOLD, format("%ld", creature_ptr->au), TERM_L_GREEN);
 241
 242         int day, hour, min;
 243         extract_day_hour_min(creature_ptr, &day, &hour, &min);
 244
 245         if (day < MAX_DAYS)
 246                 sprintf(buf, _("%d日目 %2d:%02d", "Day %d %2d:%02d"), day, hour, min);
 247         else
 248                 sprintf(buf, _("*****日目 %2d:%02d", "Day ***** %2d:%02d"), hour, min);
 249
 250         display_player_one_line(ENTRY_DAY, buf, TERM_L_GREEN);
 251
 252         if (creature_ptr->chp >= creature_ptr->mhp)
 253                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_L_GREEN);
 254         else if (creature_ptr->chp > (creature_ptr->mhp * hitpoint_warn) / 10)
 255                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_YELLOW);
 256         else
 257                 display_player_one_line(ENTRY_HP, format("%4d/%4d", creature_ptr->chp, creature_ptr->mhp), TERM_RED);
 258
 259         if (creature_ptr->csp >= creature_ptr->msp)
 260                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_L_GREEN);
 261         else if (creature_ptr->csp > (creature_ptr->msp * mana_warn) / 10)
 262                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_YELLOW);
 263         else
 264                 display_player_one_line(ENTRY_SP, format("%4d/%4d", creature_ptr->csp, creature_ptr->msp), TERM_RED);
 265
 266         u32b play_hour = current_world_ptr->play_time / (60 * 60);
 267         u32b play_min = (current_world_ptr->play_time / 60) % 60;
 268         u32b play_sec = current_world_ptr->play_time % 60;
 269         display_player_one_line(ENTRY_PLAY_TIME, format("%.2lu:%.2lu:%.2lu", play_hour, play_min, play_sec), TERM_L_GREEN);
 270 }
 271
 272
 273 /*!
 274  * @brief プレイヤーのステータス表示メイン処理
 275  * Display the character on the screen (various modes)
 276  * @param creature_ptr プレーヤーへの参照ポインタ
 277  * @param mode 表示モードID
 278  * @return なし
 279  * @details
 280  * <pre>
 281  * The top one and bottom two lines are left blank.
 282  * Mode 0 = standard display with skills
 283  * Mode 1 = standard display with history
 284  * Mode 2 = summary of various things
 285  * Mode 3 = summary of various things (part 2)
 286  * Mode 4 = mutations
 287  * </pre>
 288  */
 289 void display_player(player_type *creature_ptr, int mode, map_name_pf map_name)
 290 {
 291         if ((creature_ptr->muta1 || creature_ptr->muta2 || creature_ptr->muta3) && display_mutations)
 292                 mode = (mode % 5);
 293         else
 294                 mode = (mode % 4);
 295
 296         clear_from(0);
 297
 298         if (mode == 2)
 299         {
 300                 display_player_misc_info(creature_ptr);
 301                 display_player_stat_info(creature_ptr);
 302                 display_player_flag_info_1(creature_ptr, display_player_equippy);
 303                 return;
 304         }
 305
 306         if (mode == 3)
 307         {
 308                 display_player_flag_info_2(creature_ptr, display_player_equippy);
 309                 return;
 310         }
 311
 312         if (mode == 4)
 313         {
 314                 do_cmd_knowledge_mutations(creature_ptr);
 315                 return;
 316         }
 317
 318         char tmp[64];
 319         if ((mode != 0) && (mode != 1)) return;
 320
 321         /* Name, Sex, Race, Class */
 322 #ifdef JP
 323         sprintf(tmp, "%s%s%s", ap_ptr->title, ap_ptr->no == 1 ? "の" : "", creature_ptr->name);
 324 #else
 325         sprintf(tmp, "%s %s", ap_ptr->title, creature_ptr->name);
 326 #endif
 327
 328         display_player_one_line(ENTRY_NAME, tmp, TERM_L_BLUE);
 329         display_player_one_line(ENTRY_SEX, sp_ptr->title, TERM_L_BLUE);
 330         display_player_one_line(ENTRY_RACE, (creature_ptr->mimic_form ? mimic_info[creature_ptr->mimic_form].title : rp_ptr->title), TERM_L_BLUE);
 331         display_player_one_line(ENTRY_CLASS, cp_ptr->title, TERM_L_BLUE);
 332
 333         if (creature_ptr->realm1)
 334         {
 335                 if (creature_ptr->realm2)
 336                         sprintf(tmp, "%s, %s", realm_names[creature_ptr->realm1], realm_names[creature_ptr->realm2]);
 337                 else
 338                         strcpy(tmp, realm_names[creature_ptr->realm1]);
 339                 display_player_one_line(ENTRY_REALM, tmp, TERM_L_BLUE);
 340         }
 341
 342         if ((creature_ptr->pclass == CLASS_CHAOS_WARRIOR) || (creature_ptr->muta2 & MUT2_CHAOS_GIFT))
 343                 display_player_one_line(ENTRY_PATRON, chaos_patrons[creature_ptr->chaos_patron], TERM_L_BLUE);
 344
 345         /* Age, Height, Weight, Social */
 346         /* 身長はセンチメートルに、体重はキログラムに変更してあります */
 347 #ifdef JP
 348         display_player_one_line(ENTRY_AGE, format("%d才", (int)creature_ptr->age), TERM_L_BLUE);
 349         display_player_one_line(ENTRY_HEIGHT, format("%dcm", (int)((creature_ptr->ht * 254) / 100)), TERM_L_BLUE);
 350         display_player_one_line(ENTRY_WEIGHT, format("%dkg", (int)((creature_ptr->wt * 4536) / 10000)), TERM_L_BLUE);
 351         display_player_one_line(ENTRY_SOCIAL, format("%d  ", (int)creature_ptr->sc), TERM_L_BLUE);
 352 #else
 353         display_player_one_line(ENTRY_AGE, format("%d", (int)creature_ptr->age), TERM_L_BLUE);
 354         display_player_one_line(ENTRY_HEIGHT, format("%d", (int)creature_ptr->ht), TERM_L_BLUE);
 355         display_player_one_line(ENTRY_WEIGHT, format("%d", (int)creature_ptr->wt), TERM_L_BLUE);
 356         display_player_one_line(ENTRY_SOCIAL, format("%d", (int)creature_ptr->sc), TERM_L_BLUE);
 357 #endif
 358         display_player_one_line(ENTRY_ALIGN, format("%s", your_alignment(creature_ptr)), TERM_L_BLUE);
 359
 360         char buf[80];
 361         for (int i = 0; i < A_MAX; i++)
 362         {
 363                 if (creature_ptr->stat_cur[i] < creature_ptr->stat_max[i])
 364                 {
 365                         put_str(stat_names_reduced[i], 3 + i, 53);
 366                         int value = creature_ptr->stat_use[i];
 367                         cnv_stat(value, buf);
 368                         c_put_str(TERM_YELLOW, buf, 3 + i, 60);
 369                         value = creature_ptr->stat_top[i];
 370                         cnv_stat(value, buf);
 371                         c_put_str(TERM_L_GREEN, buf, 3 + i, 67);
 372                 }
 373                 else
 374                 {
 375                         put_str(stat_names[i], 3 + i, 53);
 376                         cnv_stat(creature_ptr->stat_use[i], buf);
 377                         c_put_str(TERM_L_GREEN, buf, 3 + i, 60);
 378                 }
 379
 380                 if (creature_ptr->stat_max[i] == creature_ptr->stat_max_max[i])
 381                 {
 382                         c_put_str(TERM_WHITE, "!", 3 + i, _(58, 58 - 2));
 383                 }
 384         }
 385
 386         floor_type *floor_ptr = creature_ptr->current_floor_ptr;
 387         if (mode == 0)
 388         {
 389                 display_player_middle(creature_ptr);
 390                 display_player_various(creature_ptr);
 391                 return;
 392         }
 393
 394         char statmsg[1000];
 395         put_str(_("(キャラクターの生い立ち)", "(Character Background)"), 11, 25);
 396
 397         for (int i = 0; i < 4; i++)
 398         {
 399                 put_str(creature_ptr->history[i], i + 12, 10);
 400         }
 401
 402         *statmsg = '\0';
 403
 404         if (creature_ptr->is_dead)
 405         {
 406                 if (current_world_ptr->total_winner)
 407                 {
 408 #ifdef JP
 409                         sprintf(statmsg, "…あなたは勝利の後%sした。", streq(creature_ptr->died_from, "Seppuku") ? "切腹" : "引退");
 410 #else
 411                         sprintf(statmsg, "...You %s after winning.", streq(creature_ptr->died_from, "Seppuku") ? "committed seppuku" : "retired from the adventure");
 412 #endif
 413                 }
 414                 else if (!floor_ptr->dun_level)
 415                 {
 416 #ifdef JP
 417                         sprintf(statmsg, "…あなたは%sで%sに殺された。", (*map_name)(creature_ptr), creature_ptr->died_from);
 418 #else
 419                         sprintf(statmsg, "...You were killed by %s in %s.", creature_ptr->died_from, map_name(creature_ptr));
 420 #endif
 421                 }
 422                 else if (floor_ptr->inside_quest && is_fixed_quest_idx(floor_ptr->inside_quest))
 423                 {
 424                         /* Get the quest text */
 425                         /* Bewere that INIT_ASSIGN resets the cur_num. */
 426                         init_flags = INIT_NAME_ONLY;
 427
 428                         process_dungeon_file(creature_ptr, "q_info.txt", 0, 0, 0, 0);
 429
 430 #ifdef JP
 431                         sprintf(statmsg, "…あなたは、クエスト「%s」で%sに殺された。", quest[floor_ptr->inside_quest].name, creature_ptr->died_from);
 432 #else
 433                         sprintf(statmsg, "...You were killed by %s in the quest '%s'.", creature_ptr->died_from, quest[floor_ptr->inside_quest].name);
 434 #endif
 435                 }
 436                 else
 437                 {
 438 #ifdef JP
 439                         sprintf(statmsg, "…あなたは、%sの%d階で%sに殺された。", (*map_name)(creature_ptr), (int)floor_ptr->dun_level, creature_ptr->died_from);
 440 #else
 441                         sprintf(statmsg, "...You were killed by %s on level %d of %s.", creature_ptr->died_from, floor_ptr->dun_level, map_name(creature_ptr));
 442 #endif
 443                 }
 444         }
 445         else if (current_world_ptr->character_dungeon)
 446         {
 447                 if (!floor_ptr->dun_level)
 448                 {
 449                         sprintf(statmsg, _("…あなたは現在、 %s にいる。", "...Now, you are in %s."), map_name(creature_ptr));
 450                 }
 451                 else if (floor_ptr->inside_quest && is_fixed_quest_idx(floor_ptr->inside_quest))
 452                 {
 453                         /* Clear the text */
 454                         /* Must be done before doing INIT_SHOW_TEXT */
 455                         for (int i = 0; i < 10; i++)
 456                         {
 457                                 quest_text[i][0] = '\0';
 458                         }
 459
 460                         quest_text_line = 0;
 461                         init_flags = INIT_NAME_ONLY;
 462                         process_dungeon_file(creature_ptr, "q_info.txt", 0, 0, 0, 0);
 463                         sprintf(statmsg, _("…あなたは現在、 クエスト「%s」を遂行中だ。", "...Now, you are in the quest '%s'."), quest[floor_ptr->inside_quest].name);
 464                 }
 465                 else
 466                 {
 467 #ifdef JP
 468                         sprintf(statmsg, "…あなたは現在、 %s の %d 階で探索している。", map_name(creature_ptr), (int)floor_ptr->dun_level);
 469 #else
 470                         sprintf(statmsg, "...Now, you are exploring level %d of %s.", floor_ptr->dun_level, map_name(creature_ptr));
 471 #endif
 472                 }
 473         }
 474
 475         if (!*statmsg) return;
 476
 477         char temp[64 * 2];
 478         roff_to_buf(statmsg, 60, temp, sizeof(temp));
 479         char  *t;
 480         t = temp;
 481         for (int i = 0; i < 2; i++)
 482         {
 483                 if (t[0] == 0) return;
 484
 485                 put_str(t, i + 5 + 12, 10);
 486                 t += strlen(t) + 1;
 487         }
 488 }
 489
 490
 491 /*!
 492  * todo y = 6、x = 0、mode = 0で固定。何とかする
 493  * @brief プレイヤーの装備一覧をシンボルで並べる
 494  * Equippy chars
 495  * @param creature_ptr プレーヤーへの参照ポインタ
 496  * @param y 表示するコンソールの行
 497  * @param x 表示するコンソールの列
 498  * @param mode オプション
 499  * @return なし
 500  */
 501 void display_player_equippy(player_type *creature_ptr, TERM_LEN y, TERM_LEN x, BIT_FLAGS16 mode)
 502 {
 503         int max_i = (mode & DP_WP) ? INVEN_LARM + 1 : INVEN_TOTAL;
 504         for (int i = INVEN_RARM; i < max_i; i++)
 505         {
 506                 object_type *o_ptr;
 507                 o_ptr = &creature_ptr->inventory_list[i];
 508
 509                 TERM_COLOR a = object_attr(o_ptr);
 510                 char c = object_char(o_ptr);
 511
 512                 if (!equippy_chars || !o_ptr->k_idx)
 513                 {
 514                         c = ' ';
 515                         a = TERM_DARK;
 516                 }
 517
 518                 Term_putch(x + i - INVEN_RARM, y, a, c);
 519         }
 520 }