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
  15 /*!
  16  * コピーライト情報 /
  17  * Hack -- Link a copyright message into the executable
  18  */
  19 const cptr copyright[5] =
  20 {
  21         "Copyright (c) 1989 James E. Wilson, Robert A. Keoneke",
  22         "",
  23         "This software may be copied and distributed for educational, research,",
  24         "and not for profit purposes provided that this copyright and statement",
  25         "are included in all such copies."
  26 };
  27
  28
  29 int max_macrotrigger = 0; /*!< 現在登録中のマクロ(トリガー)の数 */
  30 cptr macro_template = NULL; /*!< Angband設定ファイルのT: タグ情報から読み込んだ長いTコードを処理するために利用する文字列ポインタ */
  31 cptr macro_modifier_chr; /*!< &x# で指定されるマクロトリガーに関する情報を記録する文字列ポインタ */
  32 cptr macro_modifier_name[MAX_MACRO_MOD]; /*!< マクロ上で取り扱う特殊キーを文字列上で表現するためのフォーマットを記録した文字列ポインタ配列 */
  33 cptr macro_trigger_name[MAX_MACRO_TRIG]; /*!< マクロのトリガーコード */
  34 cptr 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 GAME_TURN resting;                      /* Current counter for resting, if any */
 114
 115 POSITION cur_hgt;               /* Current dungeon height */
 116 POSITION cur_wid;               /* Current dungeon width */
 117 DEPTH dun_level;                /*!< 現在の実ダンジョン階層、base_levelの参照元となる / Current dungeon level */
 118 MONSTER_NUMBER num_repro; /*!< Current reproducer count */
 119 DEPTH base_level;               /*!< 基本生成レベル、後述のobject_level, monster_levelの参照元となる / Base dungeon level */
 120 DEPTH object_level;             /*!< アイテムの生成レベル、base_levelを起点に一時変更する時に参照 / Current object creation level */
 121 DEPTH monster_level;    /*!< モンスターの生成レベル、base_levelを起点に一時変更する時に参照 / Current monster creation level */
 122 bool invoking_midnight_curse; /*!< 悪夢モード時の真夜中太古の呪い発生処理フラグ */
 123
 124 GAME_TURN turn;                         /*!< 画面表示上のゲーム時間基準となるターン / Current game turn */
 125 GAME_TURN turn_limit;           /*!< turnの最大値 / Limit of game turn */
 126 GAME_TURN dungeon_turn;                 /*!< NASTY生成の計算に関わる内部ターン値 / Game turn in dungeon */
 127 GAME_TURN dungeon_turn_limit;   /*!< dungeon_turnの最大値 / Limit of game turn in dungeon */
 128 GAME_TURN old_turn;                     /* Turn when level began */
 129 GAME_TURN old_battle;
 130
 131 bool use_sound;                 /* The "sound" mode is enabled */
 132 bool use_music;                 /* The "music" mode is enabled */
 133 bool use_graphics;              /* The "graphics" mode is enabled */
 134 bool use_bigtile = FALSE;
 135
 136 s16b signal_count;              /* Hack -- Count interupts */
 137
 138 bool inkey_base;                /* See the "inkey()" function */
 139 bool inkey_xtra;                /* See the "inkey()" function */
 140 bool inkey_scan;                /* See the "inkey()" function */
 141 bool inkey_flag;                /* See the "inkey()" function */
 142 bool get_com_no_macros = FALSE; /* Expand macros in "get_com" or not */
 143
 144 OBJECT_SUBTYPE_VALUE coin_type; /* Hack -- force coin type */
 145
 146 bool opening_chest;             /* Hack -- prevent chest generation */
 147
 148 bool shimmer_monsters;  /* Hack -- optimize multi-hued monsters */
 149 bool shimmer_objects;   /* Hack -- optimize multi-hued objects */
 150
 151 bool repair_monsters;   /* Hack -- optimize detect monsters */
 152 bool repair_objects;    /* Hack -- optimize detect objects */
 153
 154 bool is_loading_now;    /*!< ロード直後にcalc_bonus()時の徳変化、及びsanity_blast()による異常を抑止する */
 155 bool hack_mutation;
 156
 157 s16b inven_cnt; /* Number of items in inventory */
 158 s16b equip_cnt; /* Number of items in equipment */
 159
 160 s16b o_max = 1; /* Number of allocated objects */
 161 s16b o_cnt = 0; /* Number of live objects */
 162
 163 MONSTER_IDX m_max = 1; /* Number of allocated monsters */
 164 MONSTER_IDX m_cnt = 0; /* Number of live monsters */
 165
 166 MONSTER_IDX hack_m_idx = 0;     /* Hack -- see "process_monsters()" */
 167 MONSTER_IDX hack_m_idx_ii = 0;
 168 bool multi_rew = FALSE;
 169 char summon_kin_type;   /* Hack, by Julian Lighton: summon 'relatives' */
 170
 171 int total_friends = 0;
 172 s32b friend_align = 0;
 173
 174 int leaving_quest = 0;
 175 bool reinit_wilderness = FALSE;
 176
 177
 178
 179 /*
 180  * Dungeon variables
 181  */
 182
 183 bool closing_flag;              /* Dungeon is closing */
 184
 185
 186 /*
 187  * Dungeon size info
 188  */
 189
 190 POSITION panel_row_min, panel_row_max;
 191 POSITION panel_col_min, panel_col_max;
 192 POSITION panel_col_prt, panel_row_prt;
 193
 194
 195 /*
 196  * Targetting variables
 197  */
 198 IDX target_who;
 199 POSITION target_col;
 200 POSITION target_row;
 201
 202
 203 /*
 204  * User info
 205  */
 206 int player_uid;
 207 int player_euid;
 208 int player_egid;
 209
 210 /*
 211  * Stripped version of "player_name"
 212  */
 213 char player_base[32];
 214
 215
 216 /*
 217  * Buffer to hold the current savefile name
 218  * 'savefile' holds full path name. 'savefile_base' holds only base name.
 219  */
 220 char savefile[1024];
 221 char savefile_base[40];
 222
 223 POSITION_IDX lite_n; //!< Array of grids lit by player lite (see "cave.c")
 224 POSITION lite_y[LITE_MAX];
 225 POSITION lite_x[LITE_MAX];
 226
 227 POSITION_IDX mon_lite_n; //!< Array of grids lit by player lite (see "cave.c")
 228 POSITION mon_lite_y[MON_LITE_MAX];
 229 POSITION mon_lite_x[MON_LITE_MAX];
 230
 231 POSITION_IDX view_n; //!< Array of grids viewable to the player (see "cave.c")
 232 POSITION view_y[VIEW_MAX];
 233 POSITION view_x[VIEW_MAX];
 234
 235 POSITION_IDX temp_n; //!< Array of grids for use by various functions (see "cave.c")
 236 POSITION temp_y[TEMP_MAX];
 237 POSITION temp_x[TEMP_MAX];
 238
 239 POSITION_IDX redraw_n = 0; //!< Array of grids for delayed visual updating (see "cave.c")
 240 POSITION redraw_y[REDRAW_MAX];
 241 POSITION redraw_x[REDRAW_MAX];
 242
 243
 244 /*
 245  * Number of active macros.
 246  */
 247 s16b macro__num;
 248
 249 /*
 250  * Array of macro patterns [MACRO_MAX]
 251  */
 252 cptr *macro__pat;
 253
 254 /*
 255  * Array of macro actions [MACRO_MAX]
 256  */
 257 cptr *macro__act;
 258
 259 /*
 260  * Array of macro types [MACRO_MAX]
 261  */
 262 bool *macro__cmd;
 263
 264 /*
 265  * Current macro action [1024]
 266  */
 267 char *macro__buf;
 268
 269
 270 /*
 271  * The number of quarks
 272  */
 273 STR_OFFSET quark__num;
 274
 275 /*
 276  * The pointers to the quarks [QUARK_MAX]
 277  */
 278 cptr *quark__str;
 279
 280
 281 /*
 282  * The next "free" index to use
 283  */
 284 u32b message__next;
 285
 286 /*
 287  * The index of the oldest message (none yet)
 288  */
 289 u32b message__last;
 290
 291 /*
 292  * The next "free" offset
 293  */
 294 u32b message__head;
 295
 296 /*
 297  * The offset to the oldest used char (none yet)
 298  */
 299 u32b message__tail;
 300
 301 /*
 302  * The array of offsets, by index [MESSAGE_MAX]
 303  */
 304 u32b *message__ptr;
 305
 306 /*
 307  * The array of chars, by offset [MESSAGE_BUF]
 308  */
 309 char *message__buf;
 310
 311 BIT_FLAGS option_flag[8]; //!< The array of normal options
 312 BIT_FLAGS option_mask[8]; //!< The array of normal options
 313 BIT_FLAGS window_flag[8]; //!< The array of window options
 314 BIT_FLAGS window_mask[8]; //!< The array of window options
 315
 316 /*
 317  * The array of window pointers
 318  */
 319 term *angband_term[8];
 320
 321 /*
 322  * Standard window names
 323  */
 324 const char angband_term_name[8][16] =
 325 {
 326         "Hengband",
 327         "Term-1",
 328         "Term-2",
 329         "Term-3",
 330         "Term-4",
 331         "Term-5",
 332         "Term-6",
 333         "Term-7"
 334 };
 335
 336
 337 /*
 338  * Global table of color definitions
 339  */
 340 byte angband_color_table[256][4] =
 341 {
 342         {0x00, 0x00, 0x00, 0x00},       /* TERM_DARK */
 343         {0x00, 0xFF, 0xFF, 0xFF},       /* TERM_WHITE */
 344         {0x00, 0x80, 0x80, 0x80},       /* TERM_SLATE */
 345         {0x00, 0xFF, 0x80, 0x00},       /* TERM_ORANGE */
 346         {0x00, 0xC0, 0x00, 0x00},       /* TERM_RED */
 347         {0x00, 0x00, 0x80, 0x40},       /* TERM_GREEN */
 348         {0x00, 0x00, 0x00, 0xFF},       /* TERM_BLUE */
 349         {0x00, 0x80, 0x40, 0x00},       /* TERM_UMBER */
 350         {0x00, 0x40, 0x40, 0x40},       /* TERM_L_DARK */
 351         {0x00, 0xC0, 0xC0, 0xC0},       /* TERM_L_WHITE */
 352         {0x00, 0xFF, 0x00, 0xFF},       /* TERM_VIOLET */
 353         {0x00, 0xFF, 0xFF, 0x00},       /* TERM_YELLOW */
 354         {0x00, 0xFF, 0x00, 0x00},       /* TERM_L_RED */
 355         {0x00, 0x00, 0xFF, 0x00},       /* TERM_L_GREEN */
 356         {0x00, 0x00, 0xFF, 0xFF},       /* TERM_L_BLUE */
 357         {0x00, 0xC0, 0x80, 0x40}        /* TERM_L_UMBER */
 358 };
 359
 360
 361 /*
 362  * Standard sound names
 363  */
 364 const cptr angband_sound_name[SOUND_MAX] =
 365 {
 366         "dummy",
 367         "hit",
 368         "miss",
 369         "flee",
 370         "drop",
 371         "kill",
 372         "level",
 373         "death",
 374         "study",
 375         "teleport",
 376         "shoot",
 377         "quaff",
 378         "zap",
 379         "walk",
 380         "tpother",
 381         "hitwall",
 382         "eat",
 383         "store1",
 384         "store2",
 385         "store3",
 386         "store4",
 387         "dig",
 388         "opendoor",
 389         "shutdoor",
 390         "tplevel",
 391         "scroll",
 392         "buy",
 393         "sell",
 394         "warn",
 395         "rocket",
 396         "n_kill",
 397         "u_kill",
 398         "quest",
 399         "heal",
 400         "x_heal",
 401         "bite",
 402         "claw",
 403         "m_spell",
 404         "summon",
 405         "breath",
 406         "ball",
 407         "m_heal",
 408         "atkspell",
 409         "evil",
 410         "touch",
 411         "sting",
 412         "crush",
 413         "slime",
 414         "wail",
 415         "winner",
 416         "fire",
 417         "acid",
 418         "elec",
 419         "cold",
 420         "illegal",
 421         "fail",
 422         "wakeup",
 423         "invuln",
 424         "fall",
 425         "pain",
 426         "destitem",
 427         "moan",
 428         "show",
 429         "unused",
 430         "explode",
 431         "glass",
 432         "reflect",
 433 };
 434
 435 /*
 436  * Standard music names
 437  */
 438 const cptr angband_music_basic_name[MUSIC_BASIC_MAX] =
 439 {
 440         "default",
 441         "gameover",
 442         "exit",
 443         "town",
 444         "field1",
 445         "field2",
 446         "field3",
 447         "dun_low",
 448         "dun_med",
 449         "dun_high",
 450         "feel1",
 451         "feel2",
 452         "winner",
 453         "build",
 454         "wild",
 455         "quest",
 456         "arena",
 457         "battle",
 458         "quest_clear",
 459         "final_quest_clear",
 460         "ambush",
 461 };
 462
 463
 464 /*
 465  * The array of "cave grids" [MAX_WID][MAX_HGT].
 466  * Not completely allocated, that would be inefficient
 467  * Not completely hardcoded, that would overflow memory
 468  */
 469 cave_type *cave[MAX_HGT];
 470
 471
 472 /*
 473  * The array of saved floors
 474  */
 475 saved_floor_type saved_floors[MAX_SAVED_FLOORS];
 476
 477
 478 /*
 479  * Number of floor_id used from birth
 480  */
 481 s16b max_floor_id;
 482
 483
 484 /*
 485  * Sign for current process used in temporal files.
 486  * Actually it is the start time of current process.
 487  */
 488 u32b saved_floor_file_sign;
 489
 490
 491 /*
 492  * The array of dungeon items [max_o_idx]
 493  */
 494 object_type *o_list;
 495
 496 /*
 497  * The array of dungeon monsters [max_m_idx]
 498  */
 499 monster_type *m_list;
 500
 501 /*
 502  * The array to process dungeon monsters [max_m_idx]
 503  */
 504 s16b *mproc_list[MAX_MTIMED];
 505 s16b mproc_max[MAX_MTIMED]; /* Number of monsters to be processed */
 506
 507
 508 /*
 509  * Maximum number of towns
 510  */
 511 u16b max_towns;
 512
 513 /*
 514  * The towns [max_towns]
 515  */
 516 town_type *town;
 517
 518
 519 /*
 520  * The player's inventory [INVEN_TOTAL]
 521  */
 522 object_type *inventory;
 523
 524
 525 /*
 526  * The size of "alloc_kind_table" (at most max_k_idx * 4)
 527  */
 528 s16b alloc_kind_size;
 529
 530 /*
 531  * The entries in the "kind allocator table"
 532  */
 533 alloc_entry *alloc_kind_table;
 534
 535
 536 /*
 537  * The size of "alloc_race_table" (at most max_r_idx)
 538  */
 539 s16b alloc_race_size;
 540
 541 /*
 542  * The entries in the "race allocator table"
 543  */
 544 alloc_entry *alloc_race_table;
 545
 546
 547 /*
 548  * Specify attr/char pairs for visual special effects
 549  * Be sure to use "index & 0x7F" to avoid illegal access
 550  */
 551 TERM_COLOR misc_to_attr[256];
 552 char misc_to_char[256];
 553
 554
 555 /*
 556  * Specify attr/char pairs for inventory items (by tval)
 557  * Be sure to use "index & 0x7F" to avoid illegal access
 558  */
 559 TERM_COLOR tval_to_attr[128];
 560 char tval_to_char[128];
 561
 562
 563 /*
 564  * Keymaps for each "mode" associated with each keypress.
 565  */
 566 cptr keymap_act[KEYMAP_MODES][256];
 567
 568
 569
 570 /*** Player information ***/
 571
 572 /*
 573  * Static player info record
 574  */
 575 player_type p_body;
 576
 577 /*
 578  * Pointer to the player info
 579  */
 580 player_type *p_ptr = &p_body;
 581
 582 /*
 583  * Pointer to the player tables
 584  * (sex, race, class, magic)
 585  */
 586 const player_sex *sp_ptr;
 587 const player_race *rp_ptr;
 588 const player_class *cp_ptr;
 589 const player_seikaku *ap_ptr;
 590 const player_magic *mp_ptr;
 591
 592
 593 /*
 594  * The last character rolled,
 595  * holded for quick start
 596  */
 597 birther previous_char;
 598
 599
 600 /*
 601  * The vault generation arrays
 602  */
 603 vault_type *v_info;
 604 char *v_name;
 605 char *v_text;
 606
 607 /*
 608  * The skill table
 609  */
 610 skill_table *s_info;
 611
 612 /*
 613  * The magic info
 614  */
 615 player_magic *m_info;
 616
 617 /*
 618  * The terrain feature arrays
 619  */
 620 feature_type *f_info;
 621 char *f_name;
 622 char *f_tag;
 623
 624 /*
 625  * The object kind arrays
 626  */
 627 object_kind *k_info;
 628 char *k_name;
 629 char *k_text;
 630
 631 /*
 632  * The artifact arrays
 633  */
 634 artifact_type *a_info;
 635 char *a_name;
 636 char *a_text;
 637
 638 /*
 639  * The ego-item arrays
 640  */
 641 ego_item_type *e_info;
 642 char *e_name;
 643 char *e_text;
 644
 645
 646 /*
 647  * The monster race arrays
 648  */
 649 monster_race *r_info;
 650 char *r_name;
 651 char *r_text;
 652
 653
 654 /*
 655  * The dungeon arrays
 656  */
 657 dungeon_info_type *d_info;
 658 char *d_name;
 659 char *d_text;
 660
 661
 662 cptr ANGBAND_SYS = "xxx"; //!< Hack -- The special Angband "System Suffix" This variable is used to choose an appropriate "pref-xxx" file
 663
 664
 665 #ifdef JP
 666 cptr ANGBAND_KEYBOARD = "JAPAN"; //!< Hack -- The special Angband "Keyboard Suffix" This variable is used to choose an appropriate macro-trigger definition
 667 #else
 668 cptr ANGBAND_KEYBOARD = "0";
 669 #endif
 670
 671 cptr ANGBAND_GRAF = "ascii"; //!< Hack -- The special Angband "Graphics Suffix" This variable is used to choose an appropriate "graf-xxx" file
 672 cptr ANGBAND_DIR; //!< Path name: The main "lib" directory This variable is not actually used anywhere in the code
 673 cptr ANGBAND_DIR_APEX; //!< High score files (binary) These files may be portable between platforms
 674 cptr ANGBAND_DIR_BONE; //!< Bone files for player ghosts (ascii) These files are portable between platforms
 675 cptr ANGBAND_DIR_DATA; //!< Binary image files for the "*_info" arrays (binary) These files are not portable between platforms
 676 cptr ANGBAND_DIR_EDIT; //!< Textual template files for the "*_info" arrays (ascii) These files are portable between platforms
 677 cptr ANGBAND_DIR_SCRIPT; //!< Script files These files are portable between platforms.
 678 cptr ANGBAND_DIR_FILE; //!< Various extra files (ascii) These files may be portable between platforms
 679 cptr ANGBAND_DIR_HELP; //!< Help files (normal) for the online help (ascii) These files are portable between platforms
 680 cptr ANGBAND_DIR_INFO; //!< Help files (spoilers) for the online help (ascii) These files are portable between platforms
 681 cptr ANGBAND_DIR_PREF; //!< Default user "preference" files (ascii) These files are rarely portable between platforms
 682 cptr ANGBAND_DIR_SAVE; //!< Savefiles for current characters (binary)
 683 cptr ANGBAND_DIR_USER; //!< User "preference" files (ascii) These files are rarely portable between platforms
 684 cptr ANGBAND_DIR_XTRA; //!< Various extra files (binary) These files are rarely portable between platforms
 685 bool item_tester_full; //!< Total Hack -- allow all items to be listed (even empty ones) This is only used by "do_cmd_inven_e()" and is cleared there.
 686
 687 bool item_tester_no_ryoute = FALSE;
 688
 689 /*
 690  * Here is a "pseudo-hook" used during calls to "get_item()" and
 691  * "show_inven()" and "show_equip()", and the choice window routines.
 692  */
 693 OBJECT_TYPE_VALUE item_tester_tval;
 694
 695
 696 /*
 697  * Here is a "hook" used during calls to "get_item()" and
 698  * "show_inven()" and "show_equip()", and the choice window routines.
 699  */
 700 bool (*item_tester_hook)(object_type*);
 701
 702
 703
 704 /*
 705  * Current "comp" function for ang_sort()
 706  */
 707 bool (*ang_sort_comp)(vptr u, vptr v, int a, int b);
 708
 709
 710 /*
 711  * Current "swap" function for ang_sort()
 712  */
 713 void (*ang_sort_swap)(vptr u, vptr v, int a, int b);
 714
 715
 716
 717 /*
 718  * Hack -- function hooks to restrict "get_mon_num_prep()" function
 719  */
 720 monster_hook_type get_mon_num_hook;
 721 monster_hook_type get_mon_num2_hook;
 722
 723
 724 /*
 725  * Hack -- function hook to restrict "get_obj_num_prep()" function
 726  */
 727 bool (*get_obj_num_hook)(KIND_OBJECT_IDX k_idx);
 728
 729
 730 /* Hack, monk armour */
 731 bool monk_armour_aux;
 732 bool monk_notify_aux;
 733
 734
 735 /*
 736  * Wilderness
 737  */
 738 wilderness_type **wilderness;
 739
 740
 741 /*
 742  * Buildings
 743  */
 744 building_type building[MAX_BLDG];
 745
 746
 747 /*
 748  * Maximum number of quests
 749  */
 750 QUEST_IDX max_q_idx;
 751
 752 /*
 753  * Maximum number of monsters in r_info.txt
 754  */
 755 MONRACE_IDX max_r_idx;
 756
 757 /*
 758  * Maximum number of items in k_info.txt
 759  */
 760 KIND_OBJECT_IDX max_k_idx;
 761
 762 /*
 763  * Maximum number of vaults in v_info.txt
 764  */
 765 IDX max_v_idx;
 766
 767 /*
 768  * Maximum number of terrain features in f_info.txt
 769  */
 770 IDX max_f_idx;
 771
 772 /*
 773  * Maximum number of artifacts in a_info.txt
 774  */
 775 ARTIFACT_IDX max_a_idx;
 776
 777 /*
 778  * Maximum number of ego-items in e_info.txt
 779  */
 780 IDX max_e_idx;
 781
 782 /*
 783  * Maximum number of dungeon in e_info.txt
 784  */
 785 DUNGEON_IDX max_d_idx;
 786
 787 /*
 788  * Maximum number of objects in the level
 789  */
 790 OBJECT_IDX max_o_idx;
 791
 792 /*
 793  * Maximum number of monsters in the level
 794  */
 795 MONSTER_IDX max_m_idx;
 796
 797 /*
 798  * Maximum size of the wilderness
 799  */
 800 POSITION max_wild_x;
 801 POSITION max_wild_y;
 802
 803 /*
 804  * Quest info
 805  */
 806 quest_type *quest;
 807
 808 /*
 809  * Quest text
 810  */
 811 char quest_text[10][80];
 812
 813 /*
 814  * Current line of the quest text
 815  */
 816 int quest_text_line;
 817
 818 /*
 819  * Default spell color table (quark index)
 820  */
 821 s16b gf_color[MAX_GF];
 822
 823 /*
 824  * Flags for initialization
 825  */
 826 int init_flags;
 827
 828
 829 /*
 830  * The "highscore" file descriptor, if available.
 831  */
 832 int highscore_fd = -1;
 833
 834 int mutant_regenerate_mod = 100;
 835
 836 bool can_save = FALSE;        /* Game can be saved */
 837
 838 s16b world_monster;
 839 bool world_player;
 840
 841 int cap_mon;
 842 int cap_mspeed;
 843 HIT_POINT cap_hp;
 844 HIT_POINT cap_maxhp;
 845 STR_OFFSET cap_nickname;
 846
 847 MONRACE_IDX battle_mon[4];
 848 int sel_monster;
 849 int battle_odds;
 850 PRICE kakekin;
 851 u32b mon_odds[4];
 852
 853 MONSTER_IDX pet_t_m_idx;
 854 MONSTER_IDX riding_t_m_idx;
 855
 856 MONSTER_IDX kubi_r_idx[MAX_KUBI];
 857 MONSTER_IDX today_mon;
 858
 859 bool write_level;
 860
 861 u32b playtime;
 862 u32b start_time;
 863
 864 bool sukekaku;
 865 bool new_mane;
 866
 867 bool mon_fight;
 868
 869 bool ambush_flag;
 870 bool generate_encounter;
 871
 872 cptr screen_dump = NULL;
 873
 874 /*** Terrain feature variables ***/
 875
 876 /* Nothing */
 877 FEAT_IDX feat_none;
 878
 879 /* Floor */
 880 FEAT_IDX feat_floor;
 881
 882 /* Objects */
 883 FEAT_IDX feat_glyph;
 884 FEAT_IDX feat_explosive_rune;
 885 FEAT_IDX feat_mirror;
 886
 887 /* Doors */
 888 door_type feat_door[MAX_DOOR_TYPES];
 889
 890 /* Stairs */
 891 FEAT_IDX feat_up_stair;
 892 FEAT_IDX feat_down_stair;
 893 FEAT_IDX feat_entrance;
 894
 895 /* Special traps */
 896 FEAT_IDX feat_trap_open;
 897 FEAT_IDX feat_trap_armageddon;
 898 FEAT_IDX feat_trap_piranha;
 899
 900 /* Rubble */
 901 FEAT_IDX feat_rubble;
 902
 903 /* Seams */
 904 FEAT_IDX feat_magma_vein;
 905 FEAT_IDX feat_quartz_vein;
 906
 907 /* Walls */
 908 FEAT_IDX feat_granite;
 909 FEAT_IDX feat_permanent;
 910
 911 /* Glass floor */
 912 FEAT_IDX feat_glass_floor;
 913
 914 /* Glass walls */
 915 FEAT_IDX feat_glass_wall;
 916 FEAT_IDX feat_permanent_glass_wall;
 917
 918 /* Pattern */
 919 FEAT_IDX feat_pattern_start;
 920 FEAT_IDX feat_pattern_1;
 921 FEAT_IDX feat_pattern_2;
 922 FEAT_IDX feat_pattern_3;
 923 FEAT_IDX feat_pattern_4;
 924 FEAT_IDX feat_pattern_end;
 925 FEAT_IDX feat_pattern_old;
 926 FEAT_IDX feat_pattern_exit;
 927 FEAT_IDX feat_pattern_corrupted;
 928
 929 /* Various */
 930 FEAT_IDX feat_black_market;
 931 FEAT_IDX feat_town;
 932
 933 /* Terrains */
 934 FEAT_IDX feat_deep_water;
 935 FEAT_IDX feat_shallow_water;
 936 FEAT_IDX feat_deep_lava;
 937 FEAT_IDX feat_shallow_lava;
 938 FEAT_IDX feat_dirt;
 939 FEAT_IDX feat_grass;
 940 FEAT_IDX feat_flower;
 941 FEAT_IDX feat_brake;
 942 FEAT_IDX feat_tree;
 943 FEAT_IDX feat_mountain;
 944 FEAT_IDX feat_swamp;
 945
 946 /* Unknown grid (not detected) */
 947 FEAT_IDX feat_undetected;
 948
 949 /*
 950  * Which dungeon ?
 951  */
 952 DUNGEON_IDX dungeon_type;
 953 DEPTH *max_dlv;
 954
 955 FEAT_IDX feat_wall_outer;
 956 FEAT_IDX feat_wall_inner;
 957 FEAT_IDX feat_wall_solid;
 958 FEAT_IDX floor_type[100], fill_type[100];
 959
 960 bool now_damaged;
 961 COMMAND_CODE now_message;
 962 bool use_menu;
 963
 964 #ifdef CHUUKEI
 965 bool chuukei_server;
 966 bool chuukei_client;
 967 char *server_name;
 968 int server_port;
 969 #endif
 970
 971 /* for movie */
 972 bool browsing_movie;
 973
 974 #ifdef TRAVEL
 975 /* for travel */
 976 travel_type travel;
 977 #endif
 978
 979 /* for snipers */
 980 int snipe_type = SP_NONE;
 981 bool reset_concent = FALSE;   /* Concentration reset flag */
 982 bool is_fired = FALSE;
 983