src/birth/birth-wizard.c

   1 #include "birth/birth-wizard.h"
   2 #include "birth/auto-roller.h"
   3 #include "birth/birth-body-spec.h"
   4 #include "birth/birth-explanations-table.h"
   5 #include "birth/birth-select-class.h"
   6 #include "birth/birth-select-personality.h"
   7 #include "birth/birth-select-race.h"
   8 #include "birth/birth-select-realm.h"
   9 #include "birth/birth-stat.h"
  10 #include "birth/birth-util.h"
  11 #include "birth/game-play-initializer.h"
  12 #include "birth/history-editor.h"
  13 #include "birth/history-generator.h"
  14 #include "birth/quick-start.h"
  15 #include "cmd-io/cmd-gameoption.h"
  16 #include "cmd-io/cmd-help.h"
  17 #include "core/asking-player.h"
  18 #include "core/player-update-types.h"
  19 #include "game-option/birth-options.h"
  20 #include "io/input-key-acceptor.h"
  21 #include "main/sound-definitions-table.h"
  22 #include "main/sound-of-music.h"
  23 #include "player-info/avatar.h"
  24 #include "player/patron.h"
  25 #include "player/player-class.h"
  26 #include "player/player-race.h"
  27 #include "player/player-sex.h"
  28 #include "player/process-name.h"
  29 #include "player/player-status-table.h"
  30 #include "system/game-option-types.h"
  31 #include "term/screen-processor.h"
  32 #include "term/term-color-types.h"
  33 #include "util/buffer-shaper.h"
  34 #include "util/int-char-converter.h"
  35 #include "view/display-birth.h" // 暫定。後で消す予定。
  36 #include "view/display-player.h" // 暫定。後で消す.
  37 #include "world/world.h"
  38
  39 /*!
  40  * オートローラーの内容を描画する間隔 /
  41  * How often the autoroller will update the display and pause
  42  * to check for user interuptions.
  43  * Bigger values will make the autoroller faster, but slower
  44  * system may have problems because the user can't stop the
  45  * autoroller for this number of rolls.
  46  */
  47 #define AUTOROLLER_STEP 54321L
  48
  49 static void display_initial_birth_message(player_type *creature_ptr)
  50 {
  51     term_clear();
  52     put_str(_("名前  :", "Name  :"), 1, 26);
  53     put_str(_("性別        :", "Sex         :"), 3, 1);
  54     put_str(_("種族        :", "Race        :"), 4, 1);
  55     put_str(_("職業        :", "Class       :"), 5, 1);
  56     c_put_str(TERM_L_BLUE, creature_ptr->name, 1, 34);
  57     put_str(_("キャラクターを作成します。('S'やり直す, 'Q'終了, '?'ヘルプ)", "Make your character. ('S' Restart, 'Q' Quit, '?' Help)"), 8, 10);
  58     put_str(_("注意：《性別》の違いはゲーム上ほとんど影響を及ぼしません。", "Note: Your 'sex' does not have any significant gameplay effects."), 23, 5);
  59 }
  60
  61 /*!
  62  * @prief 性別選択画面でヘルプを表示させる
  63  * @param creature_ptr プレーヤーへの参照ポインタ
  64  * @param c 入力したコマンド
  65  * @return なし
  66  * @details 他の関数名と被りそうだったので少し眺め
  67  */
  68 static void display_help_on_sex_select(player_type *creature_ptr, char c)
  69 {
  70     if (c == '?')
  71         do_cmd_help(creature_ptr);
  72     else if (c == '=') {
  73         screen_save();
  74         do_cmd_options_aux(creature_ptr, OPT_PAGE_BIRTH, _("初期オプション((*)はスコアに影響)", "Birth Option((*)s effect score)"));
  75         screen_load();
  76     } else if (c != '4' && c != '6')
  77         bell();
  78 }
  79
  80 /*!
  81  * @brief プレイヤーの性別選択を行う / Player sex
  82  * @param creature_ptr プレーヤーへの参照ポインタ
  83  * @buf 表示用バッファ
  84  * @return やり直すならFALSE、それ以外はTRUE
  85  */
  86 static bool get_player_sex(player_type *creature_ptr, char *buf)
  87 {
  88     const char p2 = ')';
  89     char cur[80];
  90     sprintf(cur, _("%c%c%s", "%c%c %s"), '*', p2, _("ランダム", "Random"));
  91     int k = -1;
  92     int cs = 0;
  93     int os = MAX_SEXES;
  94     while (TRUE) {
  95         if (cs != os) {
  96             put_str(cur, 12 + (os / 5), 2 + 15 * (os % 5));
  97             if (cs == MAX_SEXES)
  98                 sprintf(cur, _("%c%c%s", "%c%c %s"), '*', p2, _("ランダム", "Random"));
  99             else {
 100                 sp_ptr = &sex_info[cs];
 101                 concptr str = sp_ptr->title;
 102                 sprintf(cur, _("%c%c%s", "%c%c %s"), I2A(cs), p2, str);
 103             }
 104
 105             c_put_str(TERM_YELLOW, cur, 12 + (cs / 5), 2 + 15 * (cs % 5));
 106             os = cs;
 107         }
 108
 109         if (k >= 0)
 110             break;
 111
 112         sprintf(buf, _("性別を選んで下さい (%c-%c) ('='初期オプション設定): ", "Choose a sex (%c-%c) ('=' for options): "), I2A(0), I2A(1));
 113         put_str(buf, 10, 10);
 114         char c = inkey();
 115         if (c == 'Q')
 116             birth_quit();
 117
 118         if (c == 'S')
 119             return FALSE;
 120
 121         if (c == ' ' || c == '\r' || c == '\n') {
 122             k = cs == MAX_SEXES ? randint0(MAX_SEXES) : cs;
 123             break;
 124         }
 125
 126         if (c == '*') {
 127             k = randint0(MAX_SEXES);
 128             break;
 129         }
 130
 131         if (c == '4') {
 132             if (cs > 0)
 133                 cs--;
 134         }
 135
 136         if (c == '6') {
 137             if (cs < MAX_SEXES)
 138                 cs++;
 139         }
 140
 141         k = (islower(c) ? A2I(c) : -1);
 142         if ((k >= 0) && (k < MAX_SEXES)) {
 143             cs = k;
 144             continue;
 145         } else
 146             k = -1;
 147
 148         display_help_on_sex_select(creature_ptr, c);
 149     }
 150
 151     creature_ptr->psex = (byte)k;
 152     sp_ptr = &sex_info[creature_ptr->psex];
 153     c_put_str(TERM_L_BLUE, sp_ptr->title, 3, 15);
 154     return TRUE;
 155 }
 156
 157 static bool let_player_select_race(player_type *creature_ptr)
 158 {
 159     clear_from(10);
 160     creature_ptr->prace = 0;
 161     while (TRUE) {
 162         char temp[80 * 10];
 163         if (!get_player_race(creature_ptr))
 164             return FALSE;
 165
 166         clear_from(10);
 167         shape_buffer(race_explanations[creature_ptr->prace], 74, temp, sizeof(temp));
 168         concptr t = temp;
 169         for (int i = 0; i < 10; i++) {
 170             if (t[0] == 0)
 171                 break;
 172             else {
 173                 prt(t, 12 + i, 3);
 174                 t += strlen(t) + 1;
 175             }
 176         }
 177         if (get_check_strict(creature_ptr, _("よろしいですか？", "Are you sure? "), CHECK_DEFAULT_Y))
 178             break;
 179
 180         clear_from(10);
 181         c_put_str(TERM_WHITE, "              ", 4, 15);
 182     }
 183
 184     return TRUE;
 185 }
 186
 187 static bool let_player_select_class(player_type *creature_ptr)
 188 {
 189     clear_from(10);
 190     creature_ptr->pclass = 0;
 191     while (TRUE) {
 192         char temp[80 * 9];
 193         if (!get_player_class(creature_ptr))
 194             return FALSE;
 195
 196         clear_from(10);
 197         shape_buffer(class_explanations[creature_ptr->pclass], 74, temp, sizeof(temp));
 198         concptr t = temp;
 199         for (int i = 0; i < 9; i++) {
 200             if (t[0] == 0)
 201                 break;
 202             else {
 203                 prt(t, 12 + i, 3);
 204                 t += strlen(t) + 1;
 205             }
 206         }
 207
 208         if (get_check_strict(creature_ptr, _("よろしいですか？", "Are you sure? "), CHECK_DEFAULT_Y))
 209             break;
 210
 211         c_put_str(TERM_WHITE, "              ", 5, 15);
 212     }
 213
 214     return TRUE;
 215 }
 216
 217 static bool let_player_select_personality(player_type *creature_ptr)
 218 {
 219     creature_ptr->pseikaku = 0;
 220     while (TRUE) {
 221         char temp[80 * 8];
 222         if (!get_player_personality(creature_ptr))
 223             return FALSE;
 224
 225         clear_from(10);
 226         shape_buffer(personality_explanations[creature_ptr->pseikaku], 74, temp, sizeof(temp));
 227         concptr t = temp;
 228         for (int i = 0; i < A_MAX; i++) {
 229             if (t[0] == 0)
 230                 break;
 231             else {
 232                 prt(t, 12 + i, 3);
 233                 t += strlen(t) + 1;
 234             }
 235         }
 236
 237         if (get_check_strict(creature_ptr, _("よろしいですか？", "Are you sure? "), CHECK_DEFAULT_Y))
 238             break;
 239
 240         c_put_str(TERM_L_BLUE, creature_ptr->name, 1, 34);
 241         prt("", 1, 34 + strlen(creature_ptr->name));
 242     }
 243
 244     return TRUE;
 245 }
 246
 247 static bool let_player_build_character(player_type *creature_ptr)
 248 {
 249     char buf[80];
 250     if (!get_player_sex(creature_ptr, buf))
 251         return FALSE;
 252
 253     if (!let_player_select_race(creature_ptr))
 254         return FALSE;
 255
 256     if (!let_player_select_class(creature_ptr))
 257         return FALSE;
 258
 259     if (!get_player_realms(creature_ptr))
 260         return FALSE;
 261
 262     if (!let_player_select_personality(creature_ptr))
 263         return FALSE;
 264
 265     return TRUE;
 266 }
 267
 268 static void display_initial_options(player_type *creature_ptr)
 269 {
 270     clear_from(10);
 271     put_str("                                   ", 3, 40);
 272     put_str("                                   ", 4, 40);
 273     put_str("                                   ", 5, 40);
 274     screen_save();
 275     do_cmd_options_aux(creature_ptr, OPT_PAGE_BIRTH, _("初期オプション((*)はスコアに影響)", "Birth Option((*)s effect score)"));
 276     screen_load();
 277 }
 278
 279 static void display_auto_roller_success_rate(const int col)
 280 {
 281     if (!autoroller)
 282         return;
 283
 284     put_str(_("最小値", " Limit"), 2, col + 13);
 285     put_str(_("現在値", "  Roll"), 2, col + 24);
 286
 287     char buf[32];
 288
 289     if (autoroll_chance >= 1)
 290         sprintf(buf, _("確率 :  1/%8d00", "Prob :  1/%8d00"), autoroll_chance);
 291     else if (autoroll_chance == -999)
 292         sprintf(buf, _("確率 :     不可能", "Prob :     Impossible"));
 293     else
 294         sprintf(buf, _("確率 :     1/10000以上", "Prob :     >1/10000"));
 295     put_str(buf, 11, col + 10);
 296
 297     put_str(_(
 298         "注意 : 体格等のオートローラを併用時は、上記確率より困難です。",
 299         "Note : Prob may be lower when you use the 'autochara' option."
 300         ), 22, 5);
 301
 302     for (int i = 0; i < A_MAX; i++) {
 303         put_str(stat_names[i], 3 + i, col + 8);
 304         int j = rp_ptr->r_adj[i] + cp_ptr->c_adj[i] + ap_ptr->a_adj[i];
 305         int m = adjust_stat(stat_limit[i], j);
 306         cnv_stat(m, buf);
 307         c_put_str(TERM_L_BLUE, buf, 3 + i, col + 13);
 308     }
 309 }
 310
 311 static void auto_roller_count(void)
 312 {
 313     if (auto_round < 1000000000L)
 314         return;
 315
 316     auto_round = 1;
 317     if (!autoroller)
 318         return;
 319
 320     auto_upper_round++;
 321 }
 322
 323 static bool decide_initial_stat(player_type *creature_ptr)
 324 {
 325     if (!autoroller)
 326         return TRUE;
 327
 328     bool accept = TRUE;
 329     for (int i = 0; i < A_MAX; i++) {
 330         if (creature_ptr->stat_max[i] < stat_limit[i]) {
 331             accept = FALSE;
 332             break;
 333         }
 334     }
 335
 336     return accept;
 337 }
 338
 339 static bool decide_body_spec(player_type *creature_ptr, chara_limit_type chara_limit, bool *accept)
 340 {
 341     if (!*accept)
 342         return FALSE;
 343
 344     get_ahw(creature_ptr);
 345     get_history(creature_ptr);
 346
 347     if (autochara) {
 348         if ((creature_ptr->age < chara_limit.agemin) || (creature_ptr->age > chara_limit.agemax))
 349             *accept = FALSE;
 350         if ((creature_ptr->ht < chara_limit.htmin) || (creature_ptr->ht > chara_limit.htmax))
 351             *accept = FALSE;
 352         if ((creature_ptr->wt < chara_limit.wtmin) || (creature_ptr->wt > chara_limit.wtmax))
 353             *accept = FALSE;
 354         if ((creature_ptr->sc < chara_limit.scmin) || (creature_ptr->sc > chara_limit.scmax))
 355             *accept = FALSE;
 356     }
 357
 358     return *accept;
 359 }
 360
 361 static bool display_auto_roller_count(player_type *creature_ptr, const int col)
 362 {
 363     if ((auto_round % AUTOROLLER_STEP) != 0)
 364         return FALSE;
 365
 366     birth_put_stats(creature_ptr);
 367     if (auto_upper_round)
 368         put_str(format("%ld%09ld", auto_upper_round, auto_round), 10, col + 20);
 369     else
 370         put_str(format("%10ld", auto_round), 10, col + 20);
 371     term_fresh();
 372     inkey_scan = TRUE;
 373     if (inkey()) {
 374         get_ahw(creature_ptr);
 375         get_history(creature_ptr);
 376         return TRUE;
 377     }
 378
 379     return FALSE;
 380 }
 381
 382 static void exe_auto_roller(player_type *creature_ptr, chara_limit_type chara_limit, const int col)
 383 {
 384     while (autoroller || autochara) {
 385         get_stats(creature_ptr);
 386         auto_round++;
 387         auto_roller_count();
 388         bool accept = decide_initial_stat(creature_ptr);
 389         if (decide_body_spec(creature_ptr, chara_limit, &accept))
 390             return;
 391
 392         if (display_auto_roller_count(creature_ptr, col))
 393             return;
 394     }
 395 }
 396
 397 static bool display_auto_roller_result(player_type *creature_ptr, bool prev, char *c)
 398 {
 399     BIT_FLAGS mode = 0;
 400     while (TRUE) {
 401         creature_ptr->update |= (PU_BONUS | PU_HP);
 402         update_creature(creature_ptr);
 403         creature_ptr->chp = creature_ptr->mhp;
 404         creature_ptr->csp = creature_ptr->msp;
 405         display_player(creature_ptr, mode);
 406         term_gotoxy(2, 23);
 407         const char b1 = '[';
 408         term_addch(TERM_WHITE, b1);
 409         term_addstr(-1, TERM_WHITE, _("'r' 次の数値", "'r'eroll"));
 410         if (prev)
 411             term_addstr(-1, TERM_WHITE, _(", 'p' 前の数値", "'p'previous"));
 412
 413         if (mode)
 414             term_addstr(-1, TERM_WHITE, _(", 'h' その他の情報", ", 'h' Misc."));
 415         else
 416             term_addstr(-1, TERM_WHITE, _(", 'h' 生い立ちを表示", ", 'h'istory"));
 417
 418         term_addstr(-1, TERM_WHITE, _(", Enter この数値に決定", ", or Enter to accept"));
 419         const char b2 = ']';
 420         term_addch(TERM_WHITE, b2);
 421         *c = inkey();
 422         if (*c == 'Q')
 423             birth_quit();
 424
 425         if (*c == 'S')
 426             return FALSE;
 427
 428         if (*c == '\r' || *c == '\n' || *c == ESCAPE)
 429             break;
 430
 431         if ((*c == ' ') || (*c == 'r'))
 432             break;
 433
 434         if (prev && (*c == 'p')) {
 435             load_prev_data(creature_ptr, TRUE);
 436             continue;
 437         }
 438
 439         if ((*c == 'H') || (*c == 'h')) {
 440             mode = ((mode != 0) ? 0 : 1);
 441             continue;
 442         }
 443
 444         birth_help_option(creature_ptr, *c, BK_AUTO_ROLLER);
 445         bell();
 446     }
 447
 448     return TRUE;
 449 }
 450
 451 /*
 452  * @brief オートロールを回して結果を表示し、その数値に決めるかさらに回すか確認する。
 453  * @param creature_ptr プレーヤーへの参照ポインタ
 454  * @param chara_limit 社会的地位の要求水準
 455  * @detail 2つめの結果以降は、'p'キーで1つ前のロール結果に戻せる。
 456  */
 457 static bool display_auto_roller(player_type *creature_ptr, chara_limit_type chara_limit)
 458 {
 459     bool prev = FALSE;
 460
 461     while (TRUE) {
 462         int col = 22;
 463         if (autoroller || autochara) {
 464             term_clear();
 465             put_str(_("回数 :", "Round:"), 10, col + 10);
 466             put_str(_("(ESCで停止)", "(Hit ESC to stop)"), 13, col + 13);
 467         } else {
 468             get_stats(creature_ptr);
 469             get_ahw(creature_ptr);
 470             get_history(creature_ptr);
 471         }
 472
 473         display_auto_roller_success_rate(col);
 474         exe_auto_roller(creature_ptr, chara_limit, col);
 475         if (autoroller || autochara)
 476             sound(SOUND_LEVEL);
 477
 478         flush();
 479
 480         get_extra(creature_ptr, TRUE);
 481         get_money(creature_ptr);
 482         creature_ptr->chaos_patron = (s16b)randint0(MAX_PATRON);
 483
 484         char c;
 485         if (!display_auto_roller_result(creature_ptr, prev, &c))
 486             return FALSE;
 487
 488         if (c == '\r' || c == '\n' || c == ESCAPE)
 489             break;
 490
 491         save_prev_data(creature_ptr, &previous_char);
 492         previous_char.quick_ok = FALSE;
 493         prev = TRUE;
 494     }
 495
 496     return TRUE;
 497 }
 498
 499 /*!
 500  * @brief 名前と生い立ちを設定する
 501  * @param creature_ptr プレーヤーへの参照ポインタ
 502  * @param process_autopick_file_command 自動拾いコマンドへの関数ポインタ
 503  * @return なし
 504  * @details ついでにステータス限界もここで決めている
 505  */
 506 static void set_name_history(player_type *creature_ptr, void (*process_autopick_file_command)(char *))
 507 {
 508     clear_from(23);
 509     get_name(creature_ptr);
 510     process_player_name(creature_ptr, current_world_ptr->creating_savefile);
 511     edit_history(creature_ptr, process_autopick_file_command);
 512     get_max_stats(creature_ptr);
 513     get_virtues(creature_ptr);
 514     prt(_("[ 'Q' 中断, 'S' 初めから, Enter ゲーム開始 ]", "['Q'uit, 'S'tart over, or Enter to continue]"), 23, _(14, 10));
 515 }
 516
 517 /*!
 518  * @brief プレーヤーキャラ作成ウィザード
 519  * @details
 520  * The delay may be reduced, but is recommended to keep players
 521  * from continuously rolling up characters, which can be VERY
 522  * expensive CPU wise.  And it cuts down on player stupidity.
 523  * @return なし
 524  */
 525 bool player_birth_wizard(player_type *creature_ptr, void (*process_autopick_file_command)(char *))
 526 {
 527     display_initial_birth_message(creature_ptr);
 528     const char p2 = ')';
 529     char buf[80];
 530     for (int n = 0; n < MAX_SEXES; n++) {
 531         sp_ptr = &sex_info[n];
 532         sprintf(buf, _("%c%c%s", "%c%c %s"), I2A(n), p2, sp_ptr->title);
 533         put_str(buf, 12 + (n / 5), 2 + 15 * (n % 5));
 534     }
 535
 536     if (!let_player_build_character(creature_ptr))
 537         return FALSE;
 538
 539     display_initial_options(creature_ptr);
 540     if (autoroller || autochara) {
 541         auto_round = 0L;
 542         auto_upper_round = 0L;
 543         autoroll_chance = 0L;
 544     }
 545
 546     if (autoroller)
 547         if (!get_stat_limits(creature_ptr))
 548             return FALSE;
 549
 550     chara_limit_type chara_limit;
 551     initialize_chara_limit(&chara_limit);
 552     if (autochara)
 553         if (!get_chara_limits(creature_ptr, &chara_limit))
 554             return FALSE;
 555
 556     clear_from(10);
 557     init_turn(creature_ptr);
 558     if (!display_auto_roller(creature_ptr, chara_limit))
 559         return FALSE;
 560
 561     set_name_history(creature_ptr, process_autopick_file_command);
 562     char c = inkey();
 563     if (c == 'Q')
 564         birth_quit();
 565
 566     if (c == 'S')
 567         return FALSE;
 568
 569     init_dungeon_quests(creature_ptr);
 570     save_prev_data(creature_ptr, &previous_char);
 571     previous_char.quick_ok = TRUE;
 572     return TRUE;
 573 }