src/io/input-key-processor.c

   1 /*!
   2  * todo Ctrl+C がShift+Q に認識されている。仕様の可能性も高いが要確認
   3  * @brief キー入力に応じてゲーム内コマンドを実行する
   4  * @date 2020/05/10
   5  * @author Hourier
   6  */
   7
   8 #include "io/input-key-processor.h"
   9 #include "autopick/autopick-pref-processor.h"
  10 #include "cmd-action/cmd-hissatsu.h"
  11 #include "cmd-action/cmd-mane.h"
  12 #include "cmd-action/cmd-mind.h"
  13 #include "cmd-action/cmd-move.h"
  14 #include "cmd-action/cmd-open-close.h"
  15 #include "cmd-action/cmd-others.h"
  16 #include "cmd-action/cmd-pet.h"
  17 #include "cmd-action/cmd-racial.h"
  18 #include "cmd-action/cmd-shoot.h"
  19 #include "cmd-action/cmd-spell.h"
  20 #include "cmd-action/cmd-travel.h"
  21 #include "cmd-action/cmd-tunnel.h"
  22 #include "cmd-building/cmd-building.h"
  23 #include "cmd-building/cmd-store.h"
  24 #include "cmd-io/cmd-autopick.h"
  25 #include "cmd-io/cmd-diary.h"
  26 #include "cmd-io/cmd-dump.h"
  27 #include "cmd-io/cmd-floor.h"
  28 #include "cmd-io/cmd-gameoption.h"
  29 #include "cmd-io/cmd-help.h"
  30 #include "cmd-io/cmd-knowledge.h"
  31 #include "cmd-io/cmd-lore.h"
  32 #include "cmd-io/cmd-macro.h"
  33 #include "cmd-io/cmd-process-screen.h"
  34 #include "cmd-io/cmd-save.h"
  35 #include "cmd-item/cmd-destroy.h"
  36 #include "cmd-item/cmd-eat.h"
  37 #include "cmd-item/cmd-equipment.h"
  38 #include "cmd-item/cmd-item.h"
  39 #include "cmd-item/cmd-magiceat.h"
  40 #include "cmd-item/cmd-quaff.h"
  41 #include "cmd-item/cmd-read.h"
  42 #include "cmd-item/cmd-refill.h"
  43 #include "cmd-item/cmd-smith.h"
  44 #include "cmd-item/cmd-throw.h"
  45 #include "cmd-item/cmd-usestaff.h"
  46 #include "cmd-item/cmd-zaprod.h"
  47 #include "cmd-item/cmd-zapwand.h"
  48 #include "cmd-visual/cmd-draw.h"
  49 #include "cmd-visual/cmd-map.h"
  50 #include "cmd-visual/cmd-visuals.h"
  51 #include "core/asking-player.h"
  52 #include "core/player-redraw-types.h"
  53 #include "core/player-update-types.h"
  54 #include "core/special-internal-keys.h"
  55 #include "dungeon/dungeon-flag-types.h"
  56 #include "dungeon/dungeon.h"
  57 #include "dungeon/quest.h" // do_cmd_quest() がある。後で移設する.
  58 #include "floor/wild.h"
  59 #include "game-option/birth-options.h"
  60 #include "game-option/disturbance-options.h"
  61 #include "game-option/game-play-options.h"
  62 #include "game-option/input-options.h"
  63 #include "game-option/runtime-arguments.h"
  64 #include "io-dump/random-art-info-dumper.h"
  65 #include "io/record-play-movie.h"
  66 #include "io/command-repeater.h"
  67 #include "io/files-util.h"
  68 #include "io/input-key-requester.h" // todo 相互依存している、後で何とかする.
  69 #include "io/write-diary.h"
  70 #include "knowledge/knowledge-autopick.h"
  71 #include "knowledge/knowledge-quests.h"
  72 #include "main/sound-definitions-table.h"
  73 #include "main/sound-of-music.h"
  74 #include "mind/mind-blue-mage.h"
  75 #include "mind/mind-magic-eater.h"
  76 #include "mind/mind-sniper.h"
  77 #include "mind/snipe-types.h"
  78 #include "player/attack-defense-types.h"
  79 #include "player/player-class.h"
  80 #include "player/special-defense-types.h"
  81 #include "status/action-setter.h"
  82 #include "store/home.h"
  83 #include "store/store-util.h"
  84 #include "system/floor-type-definition.h"
  85 #include "term/screen-processor.h"
  86 #include "util/int-char-converter.h"
  87 #include "view/display-messages.h"
  88 #include "window/display-sub-windows.h"
  89 #include "wizard/cmd-wizard.h"
  90 #include "world/world.h"
  91
  92 /*!
  93  * @brief ウィザードモードへの導入処理
  94  * / Verify use of "wizard" mode
  95  * @param player_ptr プレーヤーへの参照ポインタ
  96  * @return 実際にウィザードモードへ移行したらTRUEを返す。
  97  */
  98 bool enter_wizard_mode(player_type *player_ptr)
  99 {
 100     if (!current_world_ptr->noscore) {
 101         if (!allow_debug_opts || arg_wizard) {
 102             msg_print(_("ウィザードモードは許可されていません。 ", "Wizard mode is not permitted."));
 103             return FALSE;
 104         }
 105
 106         msg_print(_("ウィザードモードはデバッグと実験のためのモードです。 ", "Wizard mode is for debugging and experimenting."));
 107         msg_print(_("一度ウィザードモードに入るとスコアは記録されません。", "The game will not be scored if you enter wizard mode."));
 108         msg_print(NULL);
 109         if (!get_check(_("本当にウィザードモードに入りたいのですか? ", "Are you sure you want to enter wizard mode? "))) {
 110             return FALSE;
 111         }
 112
 113         exe_write_diary(
 114             player_ptr, DIARY_DESCRIPTION, 0, _("ウィザードモードに突入してスコアを残せなくなった。", "gave up recording score to enter wizard mode."));
 115         current_world_ptr->noscore |= 0x0002;
 116     }
 117
 118     return TRUE;
 119 }
 120
 121 /*!
 122  * @brief デバッグコマンドへの導入処理
 123  * / Verify use of "debug" commands
 124  * @param player_ptr プレーヤーへの参照ポインタ
 125  * @return 実際にデバッグコマンドへ移行したらTRUEを返す。
 126  */
 127 static bool enter_debug_mode(player_type *player_ptr)
 128 {
 129     if (!current_world_ptr->noscore) {
 130         if (!allow_debug_opts) {
 131             msg_print(_("デバッグコマンドは許可されていません。 ", "Use of debug command is not permitted."));
 132             return FALSE;
 133         }
 134
 135         msg_print(_("デバッグ・コマンドはデバッグと実験のためのコマンドです。 ", "The debug commands are for debugging and experimenting."));
 136         msg_print(_("デバッグ・コマンドを使うとスコアは記録されません。", "The game will not be scored if you use debug commands."));
 137         msg_print(NULL);
 138         if (!get_check(_("本当にデバッグ・コマンドを使いますか? ", "Are you sure you want to use debug commands? "))) {
 139             return FALSE;
 140         }
 141
 142         exe_write_diary(
 143             player_ptr, DIARY_DESCRIPTION, 0, _("デバッグモードに突入してスコアを残せなくなった。", "gave up sending score to use debug commands."));
 144         current_world_ptr->noscore |= 0x0008;
 145     }
 146
 147     return TRUE;
 148 }
 149
 150 /*!
 151  * @brief プレイヤーから受けた入力コマンドの分岐処理。
 152  * / Parse and execute the current command Give "Warning" on illegal commands.
 153  * @todo Make some "blocks"
 154  * @return なし
 155  */
 156 void process_command(player_type *creature_ptr)
 157 {
 158     COMMAND_CODE old_now_message = now_message;
 159     repeat_check();
 160     now_message = 0;
 161     if ((creature_ptr->pclass == CLASS_SNIPER) && (creature_ptr->concent))
 162         creature_ptr->reset_concent = TRUE;
 163
 164     floor_type *floor_ptr = creature_ptr->current_floor_ptr;
 165     switch (command_cmd) {
 166     case ESCAPE:
 167     case ' ':
 168     case '\r':
 169     case '\n': {
 170         /* Ignore */
 171         break;
 172     }
 173     case KTRL('W'): {
 174         if (current_world_ptr->wizard) {
 175             current_world_ptr->wizard = FALSE;
 176             msg_print(_("ウィザードモード解除。", "Wizard mode off."));
 177         } else if (enter_wizard_mode(creature_ptr)) {
 178             current_world_ptr->wizard = TRUE;
 179             msg_print(_("ウィザードモード突入。", "Wizard mode on."));
 180         }
 181
 182         creature_ptr->update |= (PU_MONSTERS);
 183         creature_ptr->redraw |= (PR_TITLE);
 184         break;
 185     }
 186     case KTRL('A'): {
 187         if (enter_debug_mode(creature_ptr)) {
 188             do_cmd_debug(creature_ptr);
 189         }
 190
 191         break;
 192     }
 193     case 'w': {
 194         if (!creature_ptr->wild_mode)
 195             do_cmd_wield(creature_ptr);
 196
 197         break;
 198     }
 199     case 't': {
 200         if (!creature_ptr->wild_mode)
 201             do_cmd_takeoff(creature_ptr);
 202
 203         break;
 204     }
 205     case 'd': {
 206         if (!creature_ptr->wild_mode)
 207             do_cmd_drop(creature_ptr);
 208
 209         break;
 210     }
 211     case 'k': {
 212         do_cmd_destroy(creature_ptr);
 213         break;
 214     }
 215     case 'e': {
 216         do_cmd_equip(creature_ptr);
 217         break;
 218     }
 219     case 'i': {
 220         do_cmd_inven(creature_ptr);
 221         break;
 222     }
 223     case 'I': {
 224         do_cmd_observe(creature_ptr);
 225         break;
 226     }
 227
 228     case KTRL('I'): {
 229         toggle_inventory_equipment(creature_ptr);
 230         break;
 231     }
 232     case '+': {
 233         if (!creature_ptr->wild_mode)
 234             do_cmd_alter(creature_ptr);
 235
 236         break;
 237     }
 238     case 'T': {
 239         if (!creature_ptr->wild_mode)
 240             do_cmd_tunnel(creature_ptr);
 241
 242         break;
 243     }
 244     case ';': {
 245         do_cmd_walk(creature_ptr, FALSE);
 246         break;
 247     }
 248     case '-': {
 249         do_cmd_walk(creature_ptr, TRUE);
 250         break;
 251     }
 252     case '.': {
 253         if (!creature_ptr->wild_mode)
 254             do_cmd_run(creature_ptr);
 255
 256         break;
 257     }
 258     case ',': {
 259         do_cmd_stay(creature_ptr, always_pickup);
 260         break;
 261     }
 262     case 'g': {
 263         do_cmd_stay(creature_ptr, !always_pickup);
 264         break;
 265     }
 266     case 'R': {
 267         do_cmd_rest(creature_ptr);
 268         break;
 269     }
 270     case 's': {
 271         do_cmd_search(creature_ptr);
 272         break;
 273     }
 274     case 'S': {
 275         if (creature_ptr->action == ACTION_SEARCH)
 276             set_action(creature_ptr, ACTION_NONE);
 277         else
 278             set_action(creature_ptr, ACTION_SEARCH);
 279
 280         break;
 281     }
 282     case SPECIAL_KEY_STORE: {
 283         do_cmd_store(creature_ptr);
 284         break;
 285     }
 286     case SPECIAL_KEY_BUILDING: {
 287         do_cmd_building(creature_ptr);
 288         break;
 289     }
 290     case SPECIAL_KEY_QUEST: {
 291         do_cmd_quest(creature_ptr);
 292         break;
 293     }
 294     case '<': {
 295         if (!creature_ptr->wild_mode && !floor_ptr->dun_level && !floor_ptr->inside_arena && !floor_ptr->inside_quest) {
 296             if (vanilla_town)
 297                 break;
 298
 299             if (creature_ptr->ambush_flag) {
 300                 msg_print(_("襲撃から逃げるにはマップの端まで移動しなければならない。", "To flee the ambush you have to reach the edge of the map."));
 301                 break;
 302             }
 303
 304             if (creature_ptr->food < PY_FOOD_WEAK) {
 305                 msg_print(_("その前に食事をとらないと。", "You must eat something here."));
 306                 break;
 307             }
 308
 309             change_wild_mode(creature_ptr, FALSE);
 310         } else
 311             do_cmd_go_up(creature_ptr);
 312
 313         break;
 314     }
 315     case '>': {
 316         if (creature_ptr->wild_mode)
 317             change_wild_mode(creature_ptr, FALSE);
 318         else
 319             do_cmd_go_down(creature_ptr);
 320
 321         break;
 322     }
 323     case 'o': {
 324         do_cmd_open(creature_ptr);
 325         break;
 326     }
 327     case 'c': {
 328         do_cmd_close(creature_ptr);
 329         break;
 330     }
 331     case 'j': {
 332         do_cmd_spike(creature_ptr);
 333         break;
 334     }
 335     case 'B': {
 336         do_cmd_bash(creature_ptr);
 337         break;
 338     }
 339     case 'D': {
 340         do_cmd_disarm(creature_ptr);
 341         break;
 342     }
 343     case 'G': {
 344         if ((creature_ptr->pclass == CLASS_SORCERER) || (creature_ptr->pclass == CLASS_RED_MAGE))
 345             msg_print(_("呪文を学習する必要はない！", "You don't have to learn spells!"));
 346         else if (creature_ptr->pclass == CLASS_SAMURAI)
 347             do_cmd_gain_hissatsu(creature_ptr);
 348         else if (creature_ptr->pclass == CLASS_MAGIC_EATER)
 349             import_magic_device(creature_ptr);
 350         else
 351             do_cmd_study(creature_ptr);
 352
 353         break;
 354     }
 355     case 'b': {
 356         if ((creature_ptr->pclass == CLASS_MINDCRAFTER) || (creature_ptr->pclass == CLASS_BERSERKER) || (creature_ptr->pclass == CLASS_NINJA)
 357             || (creature_ptr->pclass == CLASS_MIRROR_MASTER))
 358             do_cmd_mind_browse(creature_ptr);
 359         else if (creature_ptr->pclass == CLASS_SMITH)
 360             do_cmd_kaji(creature_ptr, TRUE);
 361         else if (creature_ptr->pclass == CLASS_MAGIC_EATER)
 362             do_cmd_magic_eater(creature_ptr, TRUE, FALSE);
 363         else if (creature_ptr->pclass == CLASS_SNIPER)
 364             do_cmd_snipe_browse(creature_ptr);
 365         else
 366             do_cmd_browse(creature_ptr);
 367
 368         break;
 369     }
 370     case 'm': {
 371         if (!creature_ptr->wild_mode) {
 372             if ((creature_ptr->pclass == CLASS_WARRIOR) || (creature_ptr->pclass == CLASS_ARCHER) || (creature_ptr->pclass == CLASS_CAVALRY)) {
 373                 msg_print(_("呪文を唱えられない！", "You cannot cast spells!"));
 374             } else if (floor_ptr->dun_level && (d_info[creature_ptr->dungeon_idx].flags1 & DF1_NO_MAGIC) && (creature_ptr->pclass != CLASS_BERSERKER)
 375                 && (creature_ptr->pclass != CLASS_SMITH)) {
 376                 msg_print(_("ダンジョンが魔法を吸収した！", "The dungeon absorbs all attempted magic!"));
 377                 msg_print(NULL);
 378             } else if (creature_ptr->anti_magic && (creature_ptr->pclass != CLASS_BERSERKER) && (creature_ptr->pclass != CLASS_SMITH)) {
 379                 concptr which_power = _("魔法", "magic");
 380                 if (creature_ptr->pclass == CLASS_MINDCRAFTER)
 381                     which_power = _("超能力", "psionic powers");
 382                 else if (creature_ptr->pclass == CLASS_IMITATOR)
 383                     which_power = _("ものまね", "imitation");
 384                 else if (creature_ptr->pclass == CLASS_SAMURAI)
 385                     which_power = _("必殺剣", "hissatsu");
 386                 else if (creature_ptr->pclass == CLASS_MIRROR_MASTER)
 387                     which_power = _("鏡魔法", "mirror magic");
 388                 else if (creature_ptr->pclass == CLASS_NINJA)
 389                     which_power = _("忍術", "ninjutsu");
 390                 else if (mp_ptr->spell_book == TV_LIFE_BOOK)
 391                     which_power = _("祈り", "prayer");
 392
 393                 msg_format(_("反魔法バリアが%sを邪魔した！", "An anti-magic shell disrupts your %s!"), which_power);
 394                 free_turn(creature_ptr);
 395             } else if (is_shero(creature_ptr) && (creature_ptr->pclass != CLASS_BERSERKER)) {
 396                 msg_format(_("狂戦士化していて頭が回らない！", "You cannot think directly!"));
 397                 free_turn(creature_ptr);
 398             } else {
 399                 if ((creature_ptr->pclass == CLASS_MINDCRAFTER) || (creature_ptr->pclass == CLASS_BERSERKER) || (creature_ptr->pclass == CLASS_NINJA)
 400                     || (creature_ptr->pclass == CLASS_MIRROR_MASTER))
 401                     do_cmd_mind(creature_ptr);
 402                 else if (creature_ptr->pclass == CLASS_IMITATOR)
 403                     do_cmd_mane(creature_ptr, FALSE);
 404                 else if (creature_ptr->pclass == CLASS_MAGIC_EATER)
 405                     do_cmd_magic_eater(creature_ptr, FALSE, FALSE);
 406                 else if (creature_ptr->pclass == CLASS_SAMURAI)
 407                     do_cmd_hissatsu(creature_ptr);
 408                 else if (creature_ptr->pclass == CLASS_BLUE_MAGE)
 409                     do_cmd_cast_learned(creature_ptr);
 410                 else if (creature_ptr->pclass == CLASS_SMITH)
 411                     do_cmd_kaji(creature_ptr, FALSE);
 412                 else if (creature_ptr->pclass == CLASS_SNIPER)
 413                     do_cmd_snipe(creature_ptr);
 414                 else
 415                     do_cmd_cast(creature_ptr);
 416             }
 417         }
 418
 419         break;
 420     }
 421     case 'p': {
 422         do_cmd_pet(creature_ptr);
 423         break;
 424     }
 425     case '{': {
 426         do_cmd_inscribe(creature_ptr);
 427         break;
 428     }
 429     case '}': {
 430         do_cmd_uninscribe(creature_ptr);
 431         break;
 432     }
 433     case 'A': {
 434         do_cmd_activate(creature_ptr);
 435         break;
 436     }
 437     case 'E': {
 438         do_cmd_eat_food(creature_ptr);
 439         break;
 440     }
 441     case 'F': {
 442         do_cmd_refill(creature_ptr);
 443         break;
 444     }
 445     case 'f': {
 446         do_cmd_fire(creature_ptr, SP_NONE);
 447         break;
 448     }
 449     case 'v': {
 450         do_cmd_throw(creature_ptr, 1, FALSE, -1);
 451         break;
 452     }
 453     case 'a': {
 454         do_cmd_aim_wand(creature_ptr);
 455         break;
 456     }
 457     case 'z': {
 458         if (use_command && rogue_like_commands) {
 459             do_cmd_use(creature_ptr);
 460         } else {
 461             do_cmd_zap_rod(creature_ptr);
 462         }
 463
 464         break;
 465     }
 466     case 'q': {
 467         do_cmd_quaff_potion(creature_ptr);
 468         break;
 469     }
 470     case 'r': {
 471         do_cmd_read_scroll(creature_ptr);
 472         break;
 473     }
 474     case 'u': {
 475         if (use_command && !rogue_like_commands)
 476             do_cmd_use(creature_ptr);
 477         else
 478             do_cmd_use_staff(creature_ptr);
 479
 480         break;
 481     }
 482     case 'U': {
 483         do_cmd_racial_power(creature_ptr);
 484         break;
 485     }
 486     case 'M': {
 487         do_cmd_view_map(creature_ptr);
 488         break;
 489     }
 490     case 'L': {
 491         do_cmd_locate(creature_ptr);
 492         break;
 493     }
 494     case 'l': {
 495         do_cmd_look(creature_ptr);
 496         break;
 497     }
 498     case '*': {
 499         do_cmd_target(creature_ptr);
 500         break;
 501     }
 502     case '?': {
 503         do_cmd_help(creature_ptr);
 504         break;
 505     }
 506     case '/': {
 507         do_cmd_query_symbol(creature_ptr);
 508         break;
 509     }
 510     case 'C': {
 511         do_cmd_player_status(creature_ptr);
 512         break;
 513     }
 514     case '!': {
 515         (void)term_user(0);
 516         break;
 517     }
 518     case '"': {
 519         do_cmd_pref(creature_ptr);
 520         break;
 521     }
 522     case '$': {
 523         do_cmd_reload_autopick(creature_ptr);
 524         break;
 525     }
 526     case '_': {
 527         do_cmd_edit_autopick(creature_ptr);
 528         break;
 529     }
 530     case '@': {
 531         do_cmd_macros(creature_ptr, process_autopick_file_command);
 532         break;
 533     }
 534     case '%': {
 535         do_cmd_visuals(creature_ptr, process_autopick_file_command);
 536         do_cmd_redraw(creature_ptr);
 537         break;
 538     }
 539     case '&': {
 540         do_cmd_colors(creature_ptr, process_autopick_file_command);
 541         do_cmd_redraw(creature_ptr);
 542         break;
 543     }
 544     case '=': {
 545         do_cmd_options(creature_ptr);
 546         (void)combine_and_reorder_home(creature_ptr, STORE_HOME);
 547         do_cmd_redraw(creature_ptr);
 548         break;
 549     }
 550     case ':': {
 551         do_cmd_note();
 552         break;
 553     }
 554     case 'V': {
 555         do_cmd_version();
 556         break;
 557     }
 558     case KTRL('F'): {
 559         do_cmd_feeling(creature_ptr);
 560         break;
 561     }
 562     case KTRL('O'): {
 563         do_cmd_message_one();
 564         break;
 565     }
 566     case KTRL('P'): {
 567         do_cmd_messages(old_now_message);
 568         break;
 569     }
 570     case KTRL('Q'): {
 571         do_cmd_checkquest(creature_ptr);
 572         break;
 573     }
 574     case KTRL('R'): {
 575         now_message = old_now_message;
 576         do_cmd_redraw(creature_ptr);
 577         break;
 578     }
 579     case KTRL('S'): {
 580         do_cmd_save_game(creature_ptr, FALSE);
 581         break;
 582     }
 583     case KTRL('T'): {
 584         do_cmd_time(creature_ptr);
 585         break;
 586     }
 587     case KTRL('X'):
 588     case SPECIAL_KEY_QUIT: {
 589         do_cmd_save_and_exit(creature_ptr);
 590         break;
 591     }
 592     case 'Q': {
 593         do_cmd_suicide(creature_ptr);
 594         break;
 595     }
 596     case '|': {
 597         do_cmd_diary(creature_ptr);
 598         break;
 599     }
 600     case '~': {
 601         do_cmd_knowledge(creature_ptr);
 602         break;
 603     }
 604     case '(': {
 605         do_cmd_load_screen();
 606         break;
 607     }
 608     case ')': {
 609         do_cmd_save_screen(creature_ptr, process_autopick_file_command);
 610         break;
 611     }
 612     case ']': {
 613         prepare_movie_hooks(creature_ptr);
 614         break;
 615     }
 616     case KTRL('V'): {
 617         spoil_random_artifact(creature_ptr, "randifact.txt");
 618         break;
 619     }
 620     case '`': {
 621         if (!creature_ptr->wild_mode)
 622             do_cmd_travel(creature_ptr);
 623         if (creature_ptr->special_defense & KATA_MUSOU) {
 624             set_action(creature_ptr, ACTION_NONE);
 625         }
 626
 627         break;
 628     }
 629     default: {
 630         if (flush_failure)
 631             flush();
 632         if (one_in_(2)) {
 633             char error_m[1024];
 634             sound(SOUND_ILLEGAL);
 635             if (!get_rnd_line(_("error_j.txt", "error.txt"), 0, error_m))
 636                 msg_print(error_m);
 637         } else {
 638             prt(_(" '?' でヘルプが表示されます。", "Type '?' for help."), 0, 0);
 639         }
 640
 641         break;
 642     }
 643     }
 644
 645     if (!creature_ptr->energy_use && !now_message)
 646         now_message = old_now_message;
 647 }