src/io/input-key-processor.cpp

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