src/scores.c

   1 /*!
   2  * @file scores.c
   3  * @brief ハイスコア処理 / Highscores handling
   4  * @date 2014/07/14
   5  * @author
   6  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
   7  * This software may be copied and distributed for educational, research,
   8  * and not for profit purposes provided that this copyright and statement
   9  * are included in all such copies.  Other copyrights may also apply.
  10  * 2014 Deskull rearranged comment for Doxygen.
  11  */
  12
  13 #include "angband.h"
  14 #include "term.h"
  15 #include "util.h"
  16 #include "core.h"
  17
  18 #include "dungeon.h"
  19 #include "player-race.h"
  20 #include "player-status.h"
  21 #include "player-class.h"
  22 #include "player-personality.h"
  23 #include "player-sex.h"
  24 #include "files.h"
  25 #include "scores.h"
  26 #include "floor.h"
  27 #include "world.h"
  28 #include "cmd-dump.h"
  29 #include "report.h"
  30 #include "japanese.h"
  31
  32  /*
  33   * The "highscore" file descriptor, if available.
  34   */
  35 int highscore_fd = -1;
  36
  37 /*!
  38  * @brief i番目のスコア情報にバッファ位置をシークする / Seek score 'i' in the highscore file
  39  * @param i スコア情報ID
  40  * @return 問題がなければ0を返す
  41  */
  42 static int highscore_seek(int i)
  43 {
  44         /* Seek for the requested record */
  45         return (fd_seek(highscore_fd, (huge)(i) * sizeof(high_score)));
  46 }
  47
  48
  49 /*!
  50  * @brief 所定ポインタからスコア情報を読み取る / Read one score from the highscore file
  51  * @param score スコア情報参照ポインタ
  52  * @return エラーコード
  53  */
  54 static errr highscore_read(high_score *score)
  55 {
  56         /* Read the record, note failure */
  57         return (fd_read(highscore_fd, (char*)(score), sizeof(high_score)));
  58 }
  59
  60
  61 /*!
  62  * @brief 所定ポインタへスコア情報を書き込む / Write one score to the highscore file
  63  * @param score スコア情報参照ポインタ
  64  * @return エラーコード(問題がなければ0を返す)
  65  */
  66 static int highscore_write(high_score *score)
  67 {
  68         /* Write the record, note failure */
  69         return (fd_write(highscore_fd, (char*)(score), sizeof(high_score)));
  70 }
  71
  72 /*!
  73  * @brief スコア情報を全て得るまで繰り返し取得する / Just determine where a new score *would* be placed
  74  * @param score スコア情報参照ポインタ
  75  * @return 正常ならば(MAX_HISCORES - 1)、問題があれば-1を返す
  76  */
  77 static int highscore_where(high_score *score)
  78 {
  79         int                     i;
  80
  81         high_score              the_score;
  82         int my_score;
  83
  84         my_score = atoi(score->pts);
  85
  86         /* Paranoia -- it may not have opened */
  87         if (highscore_fd < 0) return (-1);
  88
  89         /* Go to the start of the highscore file */
  90         if (highscore_seek(0)) return (-1);
  91
  92         /* Read until we get to a higher score */
  93         for (i = 0; i < MAX_HISCORES; i++)
  94         {
  95                 int old_score;
  96                 if (highscore_read(&the_score)) return (i);
  97                 old_score = atoi(the_score.pts);
  98 /*              if (strcmp(the_score.pts, score->pts) < 0) return (i); */
  99                 if (my_score > old_score) return (i);
 100         }
 101
 102         /* The "last" entry is always usable */
 103         return (MAX_HISCORES - 1);
 104 }
 105
 106
 107 /*!
 108  * @brief スコア情報をバッファの末尾に追加する / Actually place an entry into the high score file
 109  * @param score スコア情報参照ポインタ
 110  * @return 正常ならば書き込んだスロット位置、問題があれば-1を返す / Return the location (0 is best) or -1 on "failure"
 111  */
 112 static int highscore_add(high_score *score)
 113 {
 114         int                     i, slot;
 115         bool            done = FALSE;
 116
 117         high_score              the_score, tmpscore;
 118
 119
 120         /* Paranoia -- it may not have opened */
 121         if (highscore_fd < 0) return (-1);
 122
 123         /* Determine where the score should go */
 124         slot = highscore_where(score);
 125
 126         /* Hack -- Not on the list */
 127         if (slot < 0) return (-1);
 128
 129         /* Hack -- prepare to dump the new score */
 130         the_score = (*score);
 131
 132         /* Slide all the scores down one */
 133         for (i = slot; !done && (i < MAX_HISCORES); i++)
 134         {
 135                 /* Read the old guy, note errors */
 136                 if (highscore_seek(i)) return (-1);
 137                 if (highscore_read(&tmpscore)) done = TRUE;
 138
 139                 /* Back up and dump the score we were holding */
 140                 if (highscore_seek(i)) return (-1);
 141                 if (highscore_write(&the_score)) return (-1);
 142
 143                 /* Hack -- Save the old score, for the next pass */
 144                 the_score = tmpscore;
 145         }
 146
 147         /* Return location used */
 148         return (slot);
 149 }
 150
 151
 152
 153 /*!
 154  * @brief 指定された順位範囲でスコアを並べて表示する / Display the scores in a given range.
 155  * @param from 順位先頭
 156  * @param to 順位末尾
 157  * @param note 黄色表示でハイライトする順位
 158  * @param score スコア配列参照ポインタ
 159  * @return なし
 160  * @details
 161  * <pre>
 162  * Assumes the high score list is already open.
 163  * Only five entries per line, too much info.
 164  *
 165  * Mega-Hack -- allow "fake" entry at the given position.
 166  * </pre>
 167  */
 168 void display_scores_aux(int from, int to, int note, high_score *score)
 169 {
 170         int i, j, k, n, place;
 171         TERM_COLOR attr;
 172
 173         high_score the_score;
 174
 175         GAME_TEXT out_val[256];
 176         GAME_TEXT tmp_val[160];
 177
 178         TERM_LEN wid, hgt, per_screen;
 179
 180         Term_get_size(&wid, &hgt);
 181         per_screen = (hgt - 4) / 4;
 182
 183         /* Paranoia -- it may not have opened */
 184         if (highscore_fd < 0) return;
 185
 186
 187         /* Assume we will show the first 10 */
 188         if (from < 0) from = 0;
 189         if (to < 0) to = 10;
 190         if (to > MAX_HISCORES) to = MAX_HISCORES;
 191
 192
 193         /* Seek to the beginning */
 194         if (highscore_seek(0)) return;
 195
 196         /* Hack -- Count the high scores */
 197         for (i = 0; i < MAX_HISCORES; i++)
 198         {
 199                 if (highscore_read(&the_score)) break;
 200         }
 201
 202         /* Hack -- allow "fake" entry to be last */
 203         if ((note == i) && score) i++;
 204
 205         /* Forget about the last entries */
 206         if (i > to) i = to;
 207
 208
 209         /* Show per_screen per page, until "done" */
 210         for (k = from, place = k+1; k < i; k += per_screen)
 211         {
 212                 Term_clear();
 213
 214                 /* Title */
 215                 put_str(_("                変愚蛮怒: 勇者の殿堂", "                Hengband Hall of Fame"), 0, 0);
 216
 217                 /* Indicate non-top scores */
 218                 if (k > 0)
 219                 {
 220                         sprintf(tmp_val, _("( %d 位以下 )", "(from position %d)"), k + 1);
 221                         put_str(tmp_val, 0, 40);
 222                 }
 223
 224                 /* Dump per_screen entries */
 225                 for (j = k, n = 0; j < i && n < per_screen; place++, j++, n++)
 226                 {
 227                         int pr, pc, pa, clev, mlev, cdun, mdun;
 228
 229                         concptr user, gold, when, aged;
 230
 231
 232                         /* Hack -- indicate death in yellow */
 233                         attr = (j == note) ? TERM_YELLOW : TERM_WHITE;
 234
 235
 236                         /* Mega-Hack -- insert a "fake" record */
 237                         if ((note == j) && score)
 238                         {
 239                                 the_score = (*score);
 240                                 attr = TERM_L_GREEN;
 241                                 score = NULL;
 242                                 note = -1;
 243                                 j--;
 244                         }
 245
 246                         /* Read a normal record */
 247                         else
 248                         {
 249                                 /* Read the proper record */
 250                                 if (highscore_seek(j)) break;
 251                                 if (highscore_read(&the_score)) break;
 252                         }
 253
 254                         /* Extract the race/class */
 255                         pr = atoi(the_score.p_r);
 256                         pc = atoi(the_score.p_c);
 257                         pa = atoi(the_score.p_a);
 258
 259                         /* Extract the level info */
 260                         clev = atoi(the_score.cur_lev);
 261                         mlev = atoi(the_score.max_lev);
 262                         cdun = atoi(the_score.cur_dun);
 263                         mdun = atoi(the_score.max_dun);
 264
 265                         /* Hack -- extract the gold and such */
 266                         for (user = the_score.uid; iswspace(*user); user++) /* loop */;
 267                         for (when = the_score.day; iswspace(*when); when++) /* loop */;
 268                         for (gold = the_score.gold; iswspace(*gold); gold++) /* loop */;
 269                         for (aged = the_score.turns; iswspace(*aged); aged++) /* loop */;
 270
 271                         /* Clean up standard encoded form of "when" */
 272                         if ((*when == '@') && strlen(when) == 9)
 273                         {
 274                                 sprintf(tmp_val, "%.4s-%.2s-%.2s",
 275                                         when + 1, when + 5, when + 7);
 276                                 when = tmp_val;
 277                         }
 278
 279                         /* Dump some info */
 280 #ifdef JP
 281 /*sprintf(out_val, "%3d.%9s  %s%s%sという名の%sの%s (レベル %d)", */
 282                         sprintf(out_val, "%3d.%9s  %s%s%s - %s%s (レベル %d)",
 283                                 place, the_score.pts,
 284                                 seikaku_info[pa].title, (seikaku_info[pa].no ? "の" : ""),
 285                                 the_score.who,
 286                                 race_info[pr].title, class_info[pc].title,
 287                                 clev);
 288
 289 #else
 290                         sprintf(out_val, "%3d.%9s  %s %s the %s %s, Level %d",
 291                                 place, the_score.pts,
 292                                 seikaku_info[pa].title,
 293                                 the_score.who, race_info[pr].title, class_info[pc].title,
 294                                 clev);
 295 #endif
 296
 297
 298                         /* Append a "maximum level" */
 299                         if (mlev > clev) strcat(out_val, format(_(" (最高%d)", " (Max %d)"), mlev));
 300
 301                         /* Dump the first line */
 302                         c_put_str(attr, out_val, n*4 + 2, 0);
 303
 304                         /* Another line of info */
 305 #ifdef JP
 306                         if (mdun != 0)
 307                                 sprintf(out_val, "    最高%3d階", mdun);
 308                         else
 309                                 sprintf(out_val, "             ");
 310
 311
 312                         /* 死亡原因をオリジナルより細かく表示 */
 313                         if (streq(the_score.how, "yet"))
 314                         {
 315                                 sprintf(out_val+13, "  まだ生きている (%d%s)",
 316                                        cdun, "階");
 317                         }
 318                         else
 319                         if (streq(the_score.how, "ripe"))
 320                         {
 321                                 sprintf(out_val+13, "  勝利の後に引退 (%d%s)",
 322                                         cdun, "階");
 323                         }
 324                         else if (streq(the_score.how, "Seppuku"))
 325                         {
 326                                 sprintf(out_val+13, "  勝利の後に切腹 (%d%s)",
 327                                         cdun, "階");
 328                         }
 329                         else
 330                         {
 331                                 codeconv(the_score.how);
 332
 333                                 /* Some people die outside of the dungeon */
 334                                 if (!cdun)
 335                                         sprintf(out_val+13, "  地上で%sに殺された", the_score.how);
 336                                 else
 337                                         sprintf(out_val+13, "  %d階で%sに殺された",
 338                                                 cdun, the_score.how);
 339                         }
 340
 341 #else
 342                         /* Some people die outside of the dungeon */
 343                         if (!cdun)
 344                                 sprintf(out_val,
 345                                         "               Killed by %s on the surface",
 346                                         the_score.how);
 347                         else
 348                                 sprintf(out_val,
 349                                         "               Killed by %s on %s %d",
 350                                         the_score.how, "Dungeon Level", cdun);
 351
 352                         /* Append a "maximum level" */
 353                         if (mdun > cdun) strcat(out_val, format(" (Max %d)", mdun));
 354 #endif
 355
 356                         /* Dump the info */
 357                         c_put_str(attr, out_val, n*4 + 3, 0);
 358
 359                         /* And still another line of info */
 360 #ifdef JP
 361                         {
 362                                 char buf[11];
 363
 364                                 /* 日付を 19yy/mm/dd の形式に変更する */
 365                                 if (strlen(when) == 8 && when[2] == '/' && when[5] == '/') {
 366                                         sprintf(buf, "%d%s/%.5s", 19 + (when[6] < '8'), when + 6, when);
 367                                         when = buf;
 368                                 }
 369                                 sprintf(out_val,
 370                                                 "        (ユーザー:%s, 日付:%s, 所持金:%s, ターン:%s)",
 371                                                 user, when, gold, aged);
 372                         }
 373
 374 #else
 375                         sprintf(out_val,
 376                                 "               (User %s, Date %s, Gold %s, Turn %s).",
 377                                 user, when, gold, aged);
 378 #endif
 379
 380                         c_put_str(attr, out_val, n*4 + 4, 0);
 381                 }
 382
 383
 384                 /* Wait for response */
 385                 prt(_("[ ESCで中断, その他のキーで続けます ]", "[Press ESC to quit, any other key to continue.]"), hgt - 1, _(21, 17));
 386
 387                 j = inkey();
 388                 prt("", hgt - 1, 0);
 389
 390                 /* Hack -- notice Escape */
 391                 if (j == ESCAPE) break;
 392         }
 393 }
 394
 395
 396 /*!
 397  * @brief スコア表示処理メインルーチン / Hack -- Display the scores in a given range and quit.
 398  * @param from 順位先頭
 399  * @param to 順位末尾
 400  * @return なし
 401  * @details
 402  * <pre>
 403  * This function is only called from "main.c" when the user asks
 404  * to see the "high scores".
 405  * </pre>
 406  */
 407 void display_scores(int from, int to)
 408 {
 409         char buf[1024];
 410         path_build(buf, sizeof(buf), ANGBAND_DIR_APEX, "scores.raw");
 411
 412         /* Open the binary high score file, for reading */
 413         highscore_fd = fd_open(buf, O_RDONLY);
 414
 415         /* Paranoia -- No score file */
 416         if (highscore_fd < 0) quit(_("スコア・ファイルが使用できません。", "Score file unavailable."));
 417         Term_clear();
 418
 419         /* Display the scores */
 420         display_scores_aux(from, to, -1, NULL);
 421
 422         /* Shut the high score file */
 423         (void)fd_close(highscore_fd);
 424
 425         /* Forget the high score fd */
 426         highscore_fd = -1;
 427
 428         /* Quit */
 429         quit(NULL);
 430 }
 431
 432
 433 /*!
 434  * @brief スコアサーバへの転送処理
 435  * @param current_player_ptr プレーヤーへの参照ポインタ
 436  * @param do_send 実際に転送ア処置を行うか否か
 437  * @return 転送が成功したらTRUEを返す
 438  */
 439 bool send_world_score(player_type *current_player_ptr, bool do_send)
 440 {
 441 #ifdef WORLD_SCORE
 442         if(send_score && do_send)
 443         {
 444                 if(easy_band)
 445                 {
 446                         msg_print(_("初心者モードではワールドスコアに登録できません。",
 447                         "Since you are in the Easy Mode, you cannot send score to world score server."));
 448                 }
 449                 else if(get_check_strict(_("スコアをスコア・サーバに登録しますか? ", "Do you send score to the world score server? "),
 450                                 (CHECK_NO_ESCAPE | CHECK_NO_HISTORY)))
 451                 {
 452                         errr err;
 453                         prt("",0,0);
 454                         prt(_("送信中．．", "Sending..."),0,0);
 455                         Term_fresh();
 456                         screen_save();
 457                         err = report_score(current_player_ptr);
 458                         screen_load();
 459                         if (err)
 460                         {
 461                                 return FALSE;
 462                         }
 463                         prt(_("完了。何かキーを押してください。", "Completed.  Hit any key."), 0, 0);
 464                         (void)inkey();
 465                 }
 466                 else return FALSE;
 467         }
 468 #endif
 469         return TRUE;
 470 }
 471
 472 /*!
 473  * @brief スコアの過去二十位内ランキングを表示する
 474  * Enters a players name on a hi-score table, if "legal", and in any
 475  * case, displays some relevant portion of the high score list.
 476  * @param current_player_ptr スコアに適用するための現在プレイヤークリーチャー参照ポインタ
 477  * @return エラーコード
 478  * @details
 479  * Assumes "signals_ignore_tstp()" has been called.
 480  */
 481 errr top_twenty(player_type *current_player_ptr)
 482 {
 483         int          j;
 484
 485         high_score   the_score;
 486
 487         time_t ct = time((time_t*)0);
 488
 489         errr err;
 490
 491         /* Clear the record */
 492         (void)WIPE(&the_score, high_score);
 493
 494         /* Save the version */
 495         sprintf(the_score.what, "%u.%u.%u",
 496                 FAKE_VER_MAJOR, FAKE_VER_MINOR, FAKE_VER_PATCH);
 497
 498         /* Calculate and save the points */
 499         sprintf(the_score.pts, "%9ld", (long)calc_score(current_player_ptr));
 500         the_score.pts[9] = '\0';
 501
 502         /* Save the current gold */
 503         sprintf(the_score.gold, "%9lu", (long)current_player_ptr->au);
 504         the_score.gold[9] = '\0';
 505
 506         /* Save the current turn */
 507         sprintf(the_score.turns, "%9lu", (long)turn_real(current_world_ptr->game_turn));
 508         the_score.turns[9] = '\0';
 509
 510 #ifdef HIGHSCORE_DATE_HACK
 511         /* Save the date in a hacked up form (9 chars) */
 512         (void)sprintf(the_score.day, "%-.6s %-.2s", ctime(&ct) + 4, ctime(&ct) + 22);
 513 #else
 514         /* Save the date in standard form (8 chars) */
 515 /*      (void)strftime(the_score.day, 9, "%m/%d/%y", localtime(&ct)); */
 516         /* Save the date in standard encoded form (9 chars) */
 517         strftime(the_score.day, 10, "@%Y%m%d", localtime(&ct));
 518 #endif
 519
 520         /* Save the player name (15 chars) */
 521         sprintf(the_score.who, "%-.15s", current_player_ptr->name);
 522
 523         /* Save the player info */
 524         sprintf(the_score.uid, "%7u", current_player_ptr->player_uid);
 525         sprintf(the_score.sex, "%c", (current_player_ptr->psex ? 'm' : 'f'));
 526         sprintf(the_score.p_r, "%2d", MIN(current_player_ptr->prace, MAX_RACES));
 527         sprintf(the_score.p_c, "%2d", MIN(current_player_ptr->pclass, MAX_CLASS));
 528         sprintf(the_score.p_a, "%2d", MIN(current_player_ptr->pseikaku, MAX_SEIKAKU));
 529
 530         /* Save the level and such */
 531         sprintf(the_score.cur_lev, "%3d", MIN((u16b)current_player_ptr->lev, 999));
 532         sprintf(the_score.cur_dun, "%3d", (int)current_player_ptr->current_floor_ptr->dun_level);
 533         sprintf(the_score.max_lev, "%3d", MIN((u16b)current_player_ptr->max_plv, 999));
 534         sprintf(the_score.max_dun, "%3d", (int)max_dlv[current_player_ptr->dungeon_idx]);
 535
 536         /* Save the cause of death (31 chars) */
 537         if (strlen(current_player_ptr->died_from) >= sizeof(the_score.how))
 538         {
 539 #ifdef JP
 540                 my_strcpy(the_score.how, current_player_ptr->died_from, sizeof(the_score.how) - 2);
 541                 strcat(the_score.how, "…");
 542 #else
 543                 my_strcpy(the_score.how, current_player_ptr->died_from, sizeof(the_score.how) - 3);
 544                 strcat(the_score.how, "...");
 545 #endif
 546         }
 547         else
 548         {
 549                 strcpy(the_score.how, current_player_ptr->died_from);
 550         }
 551
 552         /* Grab permissions */
 553         safe_setuid_grab();
 554
 555         /* Lock (for writing) the highscore file, or fail */
 556         err = fd_lock(highscore_fd, F_WRLCK);
 557
 558         /* Drop permissions */
 559         safe_setuid_drop();
 560
 561         if (err) return (1);
 562
 563         /* Add a new entry to the score list, see where it went */
 564         j = highscore_add(&the_score);
 565
 566         /* Grab permissions */
 567         safe_setuid_grab();
 568
 569         /* Unlock the highscore file, or fail */
 570         err = fd_lock(highscore_fd, F_UNLCK);
 571
 572         /* Drop permissions */
 573         safe_setuid_drop();
 574
 575         if (err) return (1);
 576
 577
 578         /* Hack -- Display the top fifteen scores */
 579         if (j < 10)
 580         {
 581                 display_scores_aux(0, 15, j, NULL);
 582         }
 583
 584         /* Display the scores surrounding the player */
 585         else
 586         {
 587                 display_scores_aux(0, 5, j, NULL);
 588                 display_scores_aux(j - 2, j + 7, j, NULL);
 589         }
 590
 591
 592         /* Success */
 593         return (0);
 594 }
 595
 596 /*!
 597  * @brief プレイヤーの現在のスコアをランキングに挟む /
 598  * Predict the players location, and display it.
 599  * @return エラーコード
 600  */
 601 errr predict_score(player_type *current_player_ptr)
 602 {
 603         int j;
 604         high_score the_score;
 605
 606         /* No score file */
 607         if (highscore_fd < 0)
 608         {
 609                 msg_print(_("スコア・ファイルが使用できません。", "Score file unavailable."));
 610                 msg_print(NULL);
 611                 return (0);
 612         }
 613
 614         /* Save the version */
 615         sprintf(the_score.what, "%u.%u.%u",
 616                 FAKE_VER_MAJOR, FAKE_VER_MINOR, FAKE_VER_PATCH);
 617
 618         /* Calculate and save the points */
 619         sprintf(the_score.pts, "%9ld", (long)calc_score(current_player_ptr));
 620
 621         /* Save the current gold */
 622         sprintf(the_score.gold, "%9lu", (long)current_player_ptr->au);
 623
 624         /* Save the current turn */
 625         sprintf(the_score.turns, "%9lu", (long)turn_real(current_world_ptr->game_turn));
 626
 627         /* Hack -- no time needed */
 628         strcpy(the_score.day, _("今日", "TODAY"));
 629
 630         /* Save the player name (15 chars) */
 631         sprintf(the_score.who, "%-.15s", current_player_ptr->name);
 632
 633         /* Save the player info */
 634         sprintf(the_score.uid, "%7u", current_player_ptr->player_uid);
 635         sprintf(the_score.sex, "%c", (current_player_ptr->psex ? 'm' : 'f'));
 636         sprintf(the_score.p_r, "%2d", MIN(current_player_ptr->prace, MAX_RACES));
 637         sprintf(the_score.p_c, "%2d", MIN(current_player_ptr->pclass, MAX_CLASS));
 638         sprintf(the_score.p_a, "%2d", MIN(current_player_ptr->pseikaku, MAX_SEIKAKU));
 639
 640         /* Save the level and such */
 641         sprintf(the_score.cur_lev, "%3d", MIN((u16b)current_player_ptr->lev, 999));
 642         sprintf(the_score.cur_dun, "%3d", (int)current_player_ptr->current_floor_ptr->dun_level);
 643         sprintf(the_score.max_lev, "%3d", MIN((u16b)current_player_ptr->max_plv, 999));
 644         sprintf(the_score.max_dun, "%3d", (int)max_dlv[current_player_ptr->dungeon_idx]);
 645
 646         /* Hack -- no cause of death */
 647         /* まだ死んでいないときの識別文字 */
 648         strcpy(the_score.how, _("yet", "nobody (yet!)"));
 649
 650         /* See where the entry would be placed */
 651         j = highscore_where(&the_score);
 652
 653
 654         /* Hack -- Display the top fifteen scores */
 655         if (j < 10)
 656         {
 657                 display_scores_aux(0, 15, j, &the_score);
 658         }
 659
 660         /* Display some "useful" scores */
 661         else
 662         {
 663                 display_scores_aux(0, 5, -1, NULL);
 664                 display_scores_aux(j - 2, j + 7, j, &the_score);
 665         }
 666
 667
 668         /* Success */
 669         return (0);
 670 }
 671
 672
 673 /*!
 674  * @brief スコアランキングの簡易表示 /
 675  * show_highclass - selectively list highscores based on class -KMW-
 676  * @return なし
 677  */
 678 void show_highclass(player_type *current_player_ptr)
 679 {
 680
 681         register int i = 0, j, m = 0;
 682         int pr;
 683         PLAYER_LEVEL clev/*, al*/;
 684         high_score the_score;
 685         char buf[1024], out_val[256];
 686
 687         screen_save();
 688         path_build(buf, sizeof(buf), ANGBAND_DIR_APEX, "scores.raw");
 689
 690         highscore_fd = fd_open(buf, O_RDONLY);
 691
 692         if (highscore_fd < 0)
 693         {
 694                 msg_print(_("スコア・ファイルが使用できません。", "Score file unavailable."));
 695                 msg_print(NULL);
 696                 return;
 697         }
 698
 699         if (highscore_seek(0)) return;
 700
 701         for (i = 0; i < MAX_HISCORES; i++)
 702                 if (highscore_read(&the_score)) break;
 703
 704         m = 0;
 705         j = 0;
 706         clev = 0;
 707
 708         while ((m < 9) && (j < MAX_HISCORES))
 709         {
 710                 if (highscore_seek(j)) break;
 711                 if (highscore_read(&the_score)) break;
 712                 pr = atoi(the_score.p_r);
 713                 clev = (PLAYER_LEVEL)atoi(the_score.cur_lev);
 714
 715 #ifdef JP
 716                 sprintf(out_val, "   %3d) %sの%s (レベル %2d)",
 717                     (m + 1), race_info[pr].title,the_score.who, clev);
 718 #else
 719                 sprintf(out_val, "%3d) %s the %s (Level %2d)",
 720                     (m + 1), the_score.who, race_info[pr].title, clev);
 721 #endif
 722
 723                 prt(out_val, (m + 7), 0);
 724                 m++;
 725                 j++;
 726         }
 727
 728 #ifdef JP
 729         sprintf(out_val, "あなた) %sの%s (レベル %2d)",
 730             race_info[current_player_ptr->prace].title,current_player_ptr->name, current_player_ptr->lev);
 731 #else
 732         sprintf(out_val, "You) %s the %s (Level %2d)",
 733             current_player_ptr->name, race_info[current_player_ptr->prace].title, current_player_ptr->lev);
 734 #endif
 735
 736         prt(out_val, (m + 8), 0);
 737
 738         (void)fd_close(highscore_fd);
 739         highscore_fd = -1;
 740         prt(_("何かキーを押すとゲームに戻ります", "Hit any key to continue"),0,0);
 741
 742         (void)inkey();
 743
 744         for (j = 5; j < 18; j++) prt("", j, 0);
 745         screen_load();
 746 }
 747
 748 /*!
 749  * @brief スコアランキングの簡易表示(種族毎)サブルーチン /
 750  * Race Legends -KMW-
 751  * @param race_num 種族ID
 752  * @return なし
 753  */
 754 void race_score(player_type *current_player_ptr, int race_num)
 755 {
 756         register int i = 0, j, m = 0;
 757         int pr, clev, lastlev;
 758         high_score the_score;
 759         char buf[1024], out_val[256], tmp_str[80];
 760
 761         lastlev = 0;
 762
 763         /* rr9: TODO - pluralize the race */
 764         sprintf(tmp_str,_("最高の%s", "The Greatest of all the %s"), race_info[race_num].title);
 765
 766         prt(tmp_str, 5, 15);
 767         path_build(buf, sizeof(buf), ANGBAND_DIR_APEX, "scores.raw");
 768
 769         highscore_fd = fd_open(buf, O_RDONLY);
 770
 771         if (highscore_fd < 0)
 772         {
 773                 msg_print(_("スコア・ファイルが使用できません。", "Score file unavailable."));
 774                 msg_print(NULL);
 775                 return;
 776         }
 777
 778         if (highscore_seek(0)) return;
 779
 780         for (i = 0; i < MAX_HISCORES; i++)
 781         {
 782                 if (highscore_read(&the_score)) break;
 783         }
 784
 785         m = 0;
 786         j = 0;
 787
 788         while ((m < 10) || (j < MAX_HISCORES))
 789         {
 790                 if (highscore_seek(j)) break;
 791                 if (highscore_read(&the_score)) break;
 792                 pr = atoi(the_score.p_r);
 793                 clev = atoi(the_score.cur_lev);
 794
 795                 if (pr == race_num)
 796                 {
 797 #ifdef JP
 798                 sprintf(out_val, "   %3d) %sの%s (レベル %2d)",
 799                             (m + 1), race_info[pr].title,
 800                                 the_score.who,clev);
 801 #else
 802                         sprintf(out_val, "%3d) %s the %s (Level %3d)",
 803                             (m + 1), the_score.who,
 804                         race_info[pr].title, clev);
 805 #endif
 806
 807                         prt(out_val, (m + 7), 0);
 808                         m++;
 809                         lastlev = clev;
 810                 }
 811                 j++;
 812         }
 813
 814         /* add player if qualified */
 815         if ((current_player_ptr->prace == race_num) && (current_player_ptr->lev >= lastlev))
 816         {
 817 #ifdef JP
 818         sprintf(out_val, "あなた) %sの%s (レベル %2d)",
 819                      race_info[current_player_ptr->prace].title,current_player_ptr->name, current_player_ptr->lev);
 820 #else
 821                 sprintf(out_val, "You) %s the %s (Level %3d)",
 822                     current_player_ptr->name, race_info[current_player_ptr->prace].title, current_player_ptr->lev);
 823 #endif
 824
 825                 prt(out_val, (m + 8), 0);
 826         }
 827
 828         (void)fd_close(highscore_fd);
 829         highscore_fd = -1;
 830 }
 831
 832
 833 /*!
 834  * @brief スコアランキングの簡易表示(種族毎)メインルーチン /
 835  * Race Legends -KMW-
 836  * @return なし
 837  */
 838 void race_legends(player_type *current_player_ptr)
 839 {
 840         int i, j;
 841
 842         for (i = 0; i < MAX_RACES; i++)
 843         {
 844                 race_score(current_player_ptr, i);
 845                 msg_print(_("何かキーを押すとゲームに戻ります", "Hit any key to continue"));
 846                 msg_print(NULL);
 847                 for (j = 5; j < 19; j++)
 848                         prt("", j, 0);
 849         }
 850 }
 851
 852 /*!
 853  * @brief 勝利者用の引退演出処理 /
 854  * Change the player into a King! -RAK-
 855  * @return なし
 856  */
 857 void kingly(player_type *winner_ptr)
 858 {
 859         TERM_LEN wid, hgt;
 860         TERM_LEN cx, cy;
 861         bool seppuku = streq(winner_ptr->died_from, "Seppuku");
 862
 863         /* Hack -- retire in town */
 864         winner_ptr->current_floor_ptr->dun_level = 0;
 865
 866         /* Fake death */
 867         if (!seppuku)
 868                 /* 引退したときの識別文字 */
 869                 (void)strcpy(winner_ptr->died_from, _("ripe", "Ripe Old Age"));
 870
 871         /* Restore the experience */
 872         winner_ptr->exp = winner_ptr->max_exp;
 873
 874         /* Restore the level */
 875         winner_ptr->lev = winner_ptr->max_plv;
 876
 877         Term_get_size(&wid, &hgt);
 878         cy = hgt / 2;
 879         cx = wid / 2;
 880
 881         /* Hack -- Instant Gold */
 882         winner_ptr->au += 10000000L;
 883         Term_clear();
 884
 885         /* Display a crown */
 886         put_str("#", cy - 11, cx - 1);
 887         put_str("#####", cy - 10, cx - 3);
 888         put_str("#", cy - 9, cx - 1);
 889         put_str(",,,  $$$  ,,,", cy - 8, cx - 7);
 890         put_str(",,=$   \"$$$$$\"   $=,,", cy - 7, cx - 11);
 891         put_str(",$$        $$$        $$,", cy - 6, cx - 13);
 892         put_str("*>         <*>         <*", cy - 5, cx - 13);
 893         put_str("$$         $$$         $$", cy - 4, cx - 13);
 894         put_str("\"$$        $$$        $$\"", cy - 3, cx - 13);
 895         put_str("\"$$       $$$       $$\"", cy - 2, cx - 12);
 896         put_str("*#########*#########*", cy - 1, cx - 11);
 897         put_str("*#########*#########*", cy, cx - 11);
 898
 899         /* Display a message */
 900 #ifdef JP
 901         put_str("Veni, Vidi, Vici!", cy + 3, cx - 9);
 902         put_str("来た、見た、勝った！", cy + 4, cx - 10);
 903         put_str(format("偉大なる%s万歳！", sp_ptr->winner), cy + 5, cx - 11);
 904 #else
 905         put_str("Veni, Vidi, Vici!", cy + 3, cx - 9);
 906         put_str("I came, I saw, I conquered!", cy + 4, cx - 14);
 907         put_str(format("All Hail the Mighty %s!", sp_ptr->winner), cy + 5, cx - 13);
 908 #endif
 909
 910         /* If player did Seppuku, that is already written in playrecord */
 911         if (!seppuku)
 912         {
 913                 exe_write_diary(winner_ptr, NIKKI_BUNSHOU, 0, _("ダンジョンの探索から引退した。", "retired exploring dungeons."));
 914                 exe_write_diary(winner_ptr, NIKKI_GAMESTART, 1, _("-------- ゲームオーバー --------", "--------   Game  Over   --------"));
 915                 exe_write_diary(winner_ptr, NIKKI_BUNSHOU, 1, "\n\n\n\n");
 916         }
 917
 918         /* Flush input */
 919         flush();
 920
 921         /* Wait for response */
 922         pause_line(hgt - 1);
 923 }
 924
 925 /*!
 926  * @brief スコアファイル出力
 927  * Display some character info
 928  * @return なし
 929  */
 930 bool check_score(player_type *current_player_ptr)
 931 {
 932         Term_clear();
 933
 934         /* No score file */
 935         if (highscore_fd < 0)
 936         {
 937                 msg_print(_("スコア・ファイルが使用できません。", "Score file unavailable."));
 938                 msg_print(NULL);
 939                 return FALSE;
 940         }
 941
 942 #ifndef SCORE_WIZARDS
 943         /* Wizard-mode pre-empts scoring */
 944         if (current_world_ptr->noscore & 0x000F)
 945         {
 946                 msg_print(_("ウィザード・モードではスコアが記録されません。", "Score not registered for wizards."));
 947                 msg_print(NULL);
 948                 return FALSE;
 949         }
 950 #endif
 951
 952 #ifndef SCORE_BORGS
 953         /* Borg-mode pre-empts scoring */
 954         if (current_world_ptr->noscore & 0x00F0)
 955         {
 956                 msg_print(_("ボーグ・モードではスコアが記録されません。", "Score not registered for borgs."));
 957                 msg_print(NULL);
 958                 return FALSE;
 959         }
 960 #endif
 961
 962 #ifndef SCORE_CHEATERS
 963         /* Cheaters are not scored */
 964         if (current_world_ptr->noscore & 0xFF00)
 965         {
 966                 msg_print(_("詐欺をやった人はスコアが記録されません。", "Score not registered for cheaters."));
 967                 msg_print(NULL);
 968                 return FALSE;
 969         }
 970 #endif
 971
 972         /* Interupted */
 973         if (!current_world_ptr->total_winner && streq(current_player_ptr->died_from, _("強制終了", "Interrupting")))
 974         {
 975                 msg_print(_("強制終了のためスコアが記録されません。", "Score not registered due to interruption."));
 976                 msg_print(NULL);
 977                 return FALSE;
 978         }
 979
 980         /* Quitter */
 981         if (!current_world_ptr->total_winner && streq(current_player_ptr->died_from, _("途中終了", "Quitting")))
 982         {
 983                 msg_print(_("途中終了のためスコアが記録されません。", "Score not registered due to quitting."));
 984                 msg_print(NULL);
 985                 return FALSE;
 986         }
 987         return TRUE;
 988 }
 989