src/variable.c

   1 /*!
   2  * @file variable.c
   3  * @brief グローバル変数定義 / Angband variables
   4  * @date 2014/10/05
   5  * @author
   6  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke<br>
   7  * <br>
   8  * This software may be copied and distributed for educational, research,<br>
   9  * and not for profit purposes provided that this copyright and statement<br>
  10  * are included in all such copies.  Other copyrights may also apply.<br>
  11  */
  12
  13 #include "angband.h"
  14 #include "geometry.h"
  15
  16 /*!
  17  * コピーライト情報 /
  18  * Hack -- Link a copyright message into the executable
  19  */
  20 const concptr copyright[5] =
  21 {
  22         "Copyright (c) 1989 James E. Wilson, Robert A. Keoneke",
  23         "",
  24         "This software may be copied and distributed for educational, research,",
  25         "and not for profit purposes provided that this copyright and statement",
  26         "are included in all such copies."
  27 };
  28
  29 int max_macrotrigger = 0; /*!< 現在登録中のマクロ(トリガー)の数 */
  30 concptr macro_template = NULL; /*!< Angband設定ファイルのT: タグ情報から読み込んだ長いTコードを処理するために利用する文字列ポインタ */
  31 concptr macro_modifier_chr; /*!< &x# で指定されるマクロトリガーに関する情報を記録する文字列ポインタ */
  32 concptr macro_modifier_name[MAX_MACRO_MOD]; /*!< マクロ上で取り扱う特殊キーを文字列上で表現するためのフォーマットを記録した文字列ポインタ配列 */
  33 concptr macro_trigger_name[MAX_MACRO_TRIG]; /*!< マクロのトリガーコード */
  34 concptr macro_trigger_keycode[2][MAX_MACRO_TRIG];  /*!< マクロの内容 */
  35
  36 int level_up = 0; /*!< レベルアップの際に遅延してcalc_mana()関数上で上昇量を表示するかどうかの判定フラグ */
  37
  38
  39 /*
  40  * 自動拾い/破壊設定のリストに関する変数 / List for auto-picker/destroyer entries
  41  */
  42 int max_autopick = 0; /*!< 現在登録している自動拾い/破壊設定の数 */
  43 int max_max_autopick = 0; /*!< 自動拾い/破壊設定の限界数 */
  44 autopick_type *autopick_list = NULL; /*!< 自動拾い/破壊設定構造体のポインタ配列 */
  45
  46 /*
  47  * Savefile version
  48  */
  49 byte h_ver_major; /* Savefile version for Hengband 1.1.1 and later */
  50 byte h_ver_minor;
  51 byte h_ver_patch;
  52 byte h_ver_extra;
  53
  54 byte sf_extra;          /* Savefile's encoding key */
  55
  56 byte z_major;           /* Savefile version for Hengband */
  57 byte z_minor;
  58 byte z_patch;
  59
  60 /*
  61  * Savefile information
  62  */
  63 u32b sf_system;                 /* Operating system info */
  64 u32b sf_when;                   /* Time when savefile created */
  65 u16b sf_lives;                  /* Number of past "lives" with this file */
  66 u16b sf_saves;                  /* Number of "saves" during this life */
  67
  68 /*
  69  * Run-time arguments
  70  */
  71 bool arg_fiddle;                        /* Command arg -- Request fiddle mode */
  72 bool arg_wizard;                        /* Command arg -- Request wizard mode */
  73 bool arg_sound;                         /* Command arg -- Request special sounds */
  74 bool arg_music;                         /* Command arg -- Request special musics */
  75 byte arg_graphics;                      /* Command arg -- Request graphics mode */
  76 bool arg_monochrome;            /* Command arg -- Request monochrome mode */
  77 bool arg_force_original;        /* Command arg -- Request original keyset */
  78 bool arg_force_roguelike;       /* Command arg -- Request roguelike keyset */
  79 bool arg_bigtile = FALSE;       /* Command arg -- Request big tile mode */
  80
  81 /*
  82  * Various things
  83  */
  84 bool character_generated;       /* The character exists */
  85 bool character_dungeon;         /* The character has a dungeon */
  86 bool character_loaded;          /* The character was loaded from a savefile */
  87 bool character_saved;           /* The character was just saved to a savefile */
  88
  89 bool character_icky;            /* The game is in an icky full screen mode */
  90 bool character_xtra;            /* The game is in an icky startup mode */
  91
  92 bool creating_savefile;         /* New savefile is currently created */
  93
  94 u32b seed_flavor;               /* Hack -- consistent object colors */
  95 u32b seed_town;                 /* Hack -- consistent town layout */
  96
  97 s16b command_cmd;               /* Current "Angband Command" */
  98
  99 COMMAND_ARG command_arg;        /*!< 各種コマンドの汎用的な引数として扱う / Gives argument of current command */
 100 COMMAND_NUM command_rep;        /*!< 各種コマンドの汎用的なリピート数として扱う / Gives repetition of current command */
 101 DIRECTION command_dir;          /*!< 各種コマンドの汎用的な方向値処理として扱う/ Gives direction of current command */
 102
 103 s16b command_see;               /* See "object1.c" */
 104 s16b command_wrk;               /* See "object1.c" */
 105
 106 TERM_LEN command_gap = 999;         /* See "object1.c" */
 107
 108 s16b command_new;               /* Command chaining from inven/equip view */
 109
 110 bool msg_flag;                  /* Used in msg_print() for "buffering" */
 111
 112 s16b running;                   /* Current counter for running, if any */
 113
 114 bool invoking_midnight_curse; /*!< 悪夢モード時の真夜中太古の呪い発生処理フラグ */
 115
 116 GAME_TURN old_battle;
 117
 118 bool use_sound;                 /* The "sound" mode is enabled */
 119 bool use_music;                 /* The "music" mode is enabled */
 120 bool use_graphics;              /* The "graphics" mode is enabled */
 121 bool use_bigtile = FALSE;
 122
 123 s16b signal_count;              /* Hack -- Count interupts */
 124
 125 bool inkey_base;                /* See the "inkey()" function */
 126 bool inkey_xtra;                /* See the "inkey()" function */
 127 bool inkey_scan;                /* See the "inkey()" function */
 128 bool inkey_flag;                /* See the "inkey()" function */
 129 bool get_com_no_macros = FALSE; /* Expand macros in "get_com" or not */
 130
 131 OBJECT_SUBTYPE_VALUE coin_type; /* Hack -- force coin type */
 132
 133 bool opening_chest;             /* Hack -- prevent chest generation */
 134
 135 bool shimmer_monsters;  /* Hack -- optimize multi-hued monsters */
 136 bool shimmer_objects;   /* Hack -- optimize multi-hued objects */
 137
 138 bool repair_monsters;   /* Hack -- optimize detect monsters */
 139 bool repair_objects;    /* Hack -- optimize detect objects */
 140
 141 bool is_loading_now;    /*!< ロード直後にcalc_bonus()時の徳変化、及びsanity_blast()による異常を抑止する */
 142
 143 MONSTER_IDX hack_m_idx = 0;     /* Hack -- see "process_monsters()" */
 144 MONSTER_IDX hack_m_idx_ii = 0;
 145
 146 bool multi_rew = FALSE;
 147 char summon_kin_type;   /* Hack, by Julian Lighton: summon 'relatives' */
 148
 149 int total_friends = 0;
 150 int leaving_quest = 0;
 151 bool reinit_wilderness = FALSE;
 152
 153
 154
 155 /*
 156  * Dungeon variables
 157  */
 158
 159 bool closing_flag;              /* Dungeon is closing */
 160
 161
 162 /*
 163  * Dungeon size info
 164  */
 165
 166 POSITION panel_row_min, panel_row_max;
 167 POSITION panel_col_min, panel_col_max;
 168 POSITION panel_col_prt, panel_row_prt;
 169
 170
 171 /*
 172  * Targetting variables
 173  */
 174 MONSTER_IDX target_who;
 175 POSITION target_col;
 176 POSITION target_row;
 177
 178
 179 /*
 180  * User info
 181  */
 182 int player_uid;
 183 int player_euid;
 184 int player_egid;
 185
 186 /*
 187  * Stripped version of "player_name"
 188  */
 189 char player_base[32];
 190
 191
 192 /*
 193  * Buffer to hold the current savefile name
 194  * 'savefile' holds full path name. 'savefile_base' holds only base name.
 195  */
 196 char savefile[1024];
 197 char savefile_base[40];
 198
 199
 200 pos_list tmp_pos;
 201
 202
 203 /*
 204  * Number of active macros.
 205  */
 206 s16b macro__num;
 207
 208 /*
 209  * Array of macro patterns [MACRO_MAX]
 210  */
 211 concptr *macro__pat;
 212
 213 /*
 214  * Array of macro actions [MACRO_MAX]
 215  */
 216 concptr *macro__act;
 217
 218 /*
 219  * Array of macro types [MACRO_MAX]
 220  */
 221 bool *macro__cmd;
 222
 223 /*
 224  * Current macro action [1024]
 225  */
 226 char *macro__buf;
 227
 228
 229 /*
 230  * The number of quarks
 231  */
 232 STR_OFFSET quark__num;
 233
 234 /*
 235  * The pointers to the quarks [QUARK_MAX]
 236  */
 237 concptr *quark__str;
 238
 239
 240 /*
 241  * The next "free" index to use
 242  */
 243 u32b message__next;
 244
 245 /*
 246  * The index of the oldest message (none yet)
 247  */
 248 u32b message__last;
 249
 250 /*
 251  * The next "free" offset
 252  */
 253 u32b message__head;
 254
 255 /*
 256  * The offset to the oldest used char (none yet)
 257  */
 258 u32b message__tail;
 259
 260 /*
 261  * The array of offsets, by index [MESSAGE_MAX]
 262  */
 263 u32b *message__ptr;
 264
 265 /*
 266  * The array of chars, by offset [MESSAGE_BUF]
 267  */
 268 char *message__buf;
 269
 270 BIT_FLAGS option_flag[8]; //!< The array of normal options
 271 BIT_FLAGS option_mask[8]; //!< The array of normal options
 272 BIT_FLAGS window_flag[8]; //!< The array of window options
 273 BIT_FLAGS window_mask[8]; //!< The array of window options
 274
 275 /*
 276  * The array of window pointers
 277  */
 278 term *angband_term[8];
 279
 280 /*
 281  * Standard window names
 282  */
 283 const char angband_term_name[8][16] =
 284 {
 285         "Hengband",
 286         "Term-1",
 287         "Term-2",
 288         "Term-3",
 289         "Term-4",
 290         "Term-5",
 291         "Term-6",
 292         "Term-7"
 293 };
 294
 295
 296 /*
 297  * Global table of color definitions
 298  */
 299 byte angband_color_table[256][4] =
 300 {
 301         {0x00, 0x00, 0x00, 0x00},       /* TERM_DARK */
 302         {0x00, 0xFF, 0xFF, 0xFF},       /* TERM_WHITE */
 303         {0x00, 0x80, 0x80, 0x80},       /* TERM_SLATE */
 304         {0x00, 0xFF, 0x80, 0x00},       /* TERM_ORANGE */
 305         {0x00, 0xC0, 0x00, 0x00},       /* TERM_RED */
 306         {0x00, 0x00, 0x80, 0x40},       /* TERM_GREEN */
 307         {0x00, 0x00, 0x00, 0xFF},       /* TERM_BLUE */
 308         {0x00, 0x80, 0x40, 0x00},       /* TERM_UMBER */
 309         {0x00, 0x40, 0x40, 0x40},       /* TERM_L_DARK */
 310         {0x00, 0xC0, 0xC0, 0xC0},       /* TERM_L_WHITE */
 311         {0x00, 0xFF, 0x00, 0xFF},       /* TERM_VIOLET */
 312         {0x00, 0xFF, 0xFF, 0x00},       /* TERM_YELLOW */
 313         {0x00, 0xFF, 0x00, 0x00},       /* TERM_L_RED */
 314         {0x00, 0x00, 0xFF, 0x00},       /* TERM_L_GREEN */
 315         {0x00, 0x00, 0xFF, 0xFF},       /* TERM_L_BLUE */
 316         {0x00, 0xC0, 0x80, 0x40}        /* TERM_L_UMBER */
 317 };
 318
 319
 320 /*
 321  * Standard sound names
 322  */
 323 const concptr angband_sound_name[SOUND_MAX] =
 324 {
 325         "dummy",
 326         "hit",
 327         "miss",
 328         "flee",
 329         "drop",
 330         "kill",
 331         "level",
 332         "death",
 333         "study",
 334         "teleport",
 335         "shoot",
 336         "quaff",
 337         "zap",
 338         "walk",
 339         "tpother",
 340         "hitwall",
 341         "eat",
 342         "store1",
 343         "store2",
 344         "store3",
 345         "store4",
 346         "dig",
 347         "opendoor",
 348         "shutdoor",
 349         "tplevel",
 350         "scroll",
 351         "buy",
 352         "sell",
 353         "warn",
 354         "rocket",
 355         "n_kill",
 356         "u_kill",
 357         "quest",
 358         "heal",
 359         "x_heal",
 360         "bite",
 361         "claw",
 362         "m_spell",
 363         "summon",
 364         "breath",
 365         "ball",
 366         "m_heal",
 367         "atkspell",
 368         "evil",
 369         "touch",
 370         "sting",
 371         "crush",
 372         "slime",
 373         "wail",
 374         "winner",
 375         "fire",
 376         "acid",
 377         "elec",
 378         "cold",
 379         "illegal",
 380         "fail",
 381         "wakeup",
 382         "invuln",
 383         "fall",
 384         "pain",
 385         "destitem",
 386         "moan",
 387         "show",
 388         "unused",
 389         "explode",
 390         "glass",
 391         "reflect",
 392 };
 393
 394 /*
 395  * Standard music names
 396  */
 397 const concptr angband_music_basic_name[MUSIC_BASIC_MAX] =
 398 {
 399         "default",
 400         "gameover",
 401         "exit",
 402         "town",
 403         "field1",
 404         "field2",
 405         "field3",
 406         "dun_low",
 407         "dun_med",
 408         "dun_high",
 409         "feel1",
 410         "feel2",
 411         "winner",
 412         "build",
 413         "wild",
 414         "quest",
 415         "arena",
 416         "battle",
 417         "quest_clear",
 418         "final_quest_clear",
 419         "ambush",
 420 };
 421
 422
 423 /*
 424  * Number of floor_id used from birth
 425  */
 426 FLOOR_IDX max_floor_id;
 427
 428 /*
 429  * Sign for current process used in temporal files.
 430  * Actually it is the start time of current process.
 431  */
 432 u32b saved_floor_file_sign;
 433
 434 /*
 435  * Maximum number of towns
 436  */
 437 TOWN_IDX max_towns;
 438
 439 /*
 440  * The towns [max_towns]
 441  */
 442 town_type *town_info;
 443
 444 /*
 445  * The size of "alloc_kind_table" (at most max_k_idx * 4)
 446  */
 447 s16b alloc_kind_size;
 448
 449 /*
 450  * The entries in the "kind allocator table"
 451  */
 452 alloc_entry *alloc_kind_table;
 453
 454
 455 /*
 456  * The size of "alloc_race_table" (at most max_r_idx)
 457  */
 458 s16b alloc_race_size;
 459
 460 /*
 461  * The entries in the "race allocator table"
 462  */
 463 alloc_entry *alloc_race_table;
 464
 465
 466 /*
 467  * Specify attr/char pairs for visual special effects
 468  * Be sure to use "index & 0x7F" to avoid illegal access
 469  */
 470 TERM_COLOR misc_to_attr[256];
 471 SYMBOL_CODE misc_to_char[256];
 472
 473
 474 /*
 475  * Specify attr/char pairs for p_ptr->inventory_list items (by tval)
 476  * Be sure to use "index & 0x7F" to avoid illegal access
 477  */
 478 TERM_COLOR tval_to_attr[128];
 479 SYMBOL_CODE tval_to_char[128];
 480
 481
 482 /*
 483  * Keymaps for each "mode" associated with each keypress.
 484  */
 485 concptr keymap_act[KEYMAP_MODES][256];
 486
 487
 488
 489 /*** Player information ***/
 490
 491 /*
 492  * Static player info record
 493  */
 494 player_type p_body;
 495
 496 /*
 497  * Pointer to the player info
 498  */
 499 player_type *p_ptr = &p_body;
 500
 501 /*
 502  * Pointer to the player tables
 503  * (sex, race, class, magic)
 504  */
 505 const player_sex *sp_ptr;
 506 const player_race *rp_ptr;
 507 const player_class *cp_ptr;
 508 const player_seikaku *ap_ptr;
 509 const player_magic *mp_ptr;
 510
 511
 512 /*
 513  * The last character rolled,
 514  * holded for quick start
 515  */
 516 birther previous_char;
 517
 518 /*
 519  * The magic info
 520  */
 521 player_magic *m_info;
 522
 523 /*
 524  * The object kind arrays
 525  */
 526 object_kind *k_info;
 527 char *k_name;
 528 char *k_text;
 529
 530 /*
 531  * The ego-item arrays
 532  */
 533 ego_item_type *e_info;
 534 char *e_name;
 535 char *e_text;
 536
 537
 538 /*
 539  * The monster race arrays
 540  */
 541 monster_race *r_info;
 542 char *r_name;
 543 char *r_text;
 544
 545 concptr ANGBAND_SYS = "xxx"; //!< Hack -- The special Angband "System Suffix" This variable is used to choose an appropriate "pref-xxx" file
 546
 547
 548 #ifdef JP
 549 concptr ANGBAND_KEYBOARD = "JAPAN"; //!< Hack -- The special Angband "Keyboard Suffix" This variable is used to choose an appropriate macro-trigger definition
 550 #else
 551 concptr ANGBAND_KEYBOARD = "0";
 552 #endif
 553
 554 concptr ANGBAND_GRAF = "ascii"; //!< Hack -- The special Angband "Graphics Suffix" This variable is used to choose an appropriate "graf-xxx" file
 555 concptr ANGBAND_DIR; //!< Path name: The main "lib" directory This variable is not actually used anywhere in the code
 556 concptr ANGBAND_DIR_APEX; //!< High score files (binary) These files may be portable between platforms
 557 concptr ANGBAND_DIR_BONE; //!< Bone files for player ghosts (ascii) These files are portable between platforms
 558 concptr ANGBAND_DIR_DATA; //!< Binary image files for the "*_info" arrays (binary) These files are not portable between platforms
 559 concptr ANGBAND_DIR_EDIT; //!< Textual template files for the "*_info" arrays (ascii) These files are portable between platforms
 560 concptr ANGBAND_DIR_SCRIPT; //!< Script files These files are portable between platforms.
 561 concptr ANGBAND_DIR_FILE; //!< Various extra files (ascii) These files may be portable between platforms
 562 concptr ANGBAND_DIR_HELP; //!< Help files (normal) for the online help (ascii) These files are portable between platforms
 563 concptr ANGBAND_DIR_INFO; //!< Help files (spoilers) for the online help (ascii) These files are portable between platforms
 564 concptr ANGBAND_DIR_PREF; //!< Default user "preference" files (ascii) These files are rarely portable between platforms
 565 concptr ANGBAND_DIR_SAVE; //!< Savefiles for current characters (binary)
 566 concptr ANGBAND_DIR_USER; //!< User "preference" files (ascii) These files are rarely portable between platforms
 567 concptr ANGBAND_DIR_XTRA; //!< Various extra files (binary) These files are rarely portable between platforms
 568
 569
 570 /*
 571  * Here is a "pseudo-hook" used during calls to "get_item()" and
 572  * "show_inven()" and "show_equip()", and the choice window routines.
 573  */
 574 OBJECT_TYPE_VALUE item_tester_tval;
 575
 576
 577 /*
 578  * Here is a "hook" used during calls to "get_item()" and
 579  * "show_inven()" and "show_equip()", and the choice window routines.
 580  */
 581 bool (*item_tester_hook)(object_type*);
 582
 583
 584
 585
 586 /*
 587  * Hack -- function hooks to restrict "get_mon_num_prep()" function
 588  */
 589 monsterrace_hook_type get_mon_num_hook;
 590 monsterrace_hook_type get_mon_num2_hook;
 591
 592
 593 /*
 594  * Hack -- function hook to restrict "get_obj_num_prep()" function
 595  */
 596 bool (*get_obj_num_hook)(KIND_OBJECT_IDX k_idx);
 597
 598 /*
 599  * Maximum number of quests
 600  */
 601 QUEST_IDX max_q_idx;
 602
 603 /*
 604  * Maximum number of monsters in r_info.txt
 605  */
 606 MONRACE_IDX max_r_idx;
 607
 608 /*
 609  * Maximum number of items in k_info.txt
 610  */
 611 KIND_OBJECT_IDX max_k_idx;
 612
 613 /*
 614  * Maximum number of vaults in v_info.txt
 615  */
 616 VAULT_IDX max_v_idx;
 617
 618 /*
 619  * Maximum number of terrain features in f_info.txt
 620  */
 621 FEAT_IDX max_f_idx;
 622
 623 /*
 624  * Maximum number of artifacts in a_info.txt
 625  */
 626 ARTIFACT_IDX max_a_idx;
 627
 628 /*
 629  * Maximum number of ego-items in e_info.txt
 630  */
 631 EGO_IDX max_e_idx;
 632
 633 /*
 634  * Maximum number of dungeon in e_info.txt
 635  */
 636 DUNGEON_IDX max_d_idx;
 637
 638
 639 /*
 640  * Quest text
 641  */
 642 char quest_text[10][80];
 643
 644 /*
 645  * Current line of the quest text
 646  */
 647 int quest_text_line;
 648
 649 /*
 650  * Flags for initialization
 651  */
 652 int init_flags;
 653
 654
 655 /*
 656  * The "highscore" file descriptor, if available.
 657  */
 658 int highscore_fd = -1;
 659
 660 bool can_save = FALSE;        /* Game can be saved */
 661
 662
 663 int cap_mon;
 664 int cap_mspeed;
 665 HIT_POINT cap_hp;
 666 HIT_POINT cap_maxhp;
 667 STR_OFFSET cap_nickname;
 668
 669 MONRACE_IDX battle_mon[4];
 670 int sel_monster;
 671 int battle_odds;
 672 PRICE kakekin;
 673 u32b mon_odds[4];
 674
 675 MONSTER_IDX pet_t_m_idx;
 676 MONSTER_IDX riding_t_m_idx;
 677
 678 MONSTER_IDX today_mon;
 679
 680 bool write_level;
 681
 682 u32b start_time;
 683
 684 bool sukekaku;
 685 bool new_mane;
 686
 687 bool mon_fight;
 688
 689 bool generate_encounter;
 690
 691 concptr screen_dump = NULL;
 692
 693
 694 /*
 695  * Which dungeon ?
 696  */
 697 DEPTH *max_dlv;
 698
 699 FEAT_IDX feat_wall_outer;
 700 FEAT_IDX feat_wall_inner;
 701 FEAT_IDX feat_wall_solid;
 702 FEAT_IDX feat_ground_type[100], feat_wall_type[100];
 703
 704 COMMAND_CODE now_message;
 705 bool use_menu;
 706
 707 #ifdef CHUUKEI
 708 bool chuukei_server;
 709 bool chuukei_client;
 710 char *server_name;
 711 int server_port;
 712 #endif
 713
 714 /* for movie */
 715 bool browsing_movie;
 716
 717 #ifdef TRAVEL
 718 /* for travel */
 719 travel_type travel;
 720 #endif
 721
 722 /* for snipers */
 723 bool reset_concent = FALSE;   /* Concentration reset flag */
 724 bool is_fired = FALSE;
 725