src/player/player-status-flags.c

   1 #include "player/player-status-flags.h"
   2 #include "art-definition/art-sword-types.h"
   3 #include "grid/grid.h"
   4 #include "inventory/inventory-slot-types.h"
   5 #include "monster-race/monster-race.h"
   6 #include "monster-race/race-flags2.h"
   7 #include "monster-race/race-flags7.h"
   8 #include "mutation/mutation-flag-types.h"
   9 #include "object-enchant/object-ego.h"
  10 #include "object-enchant/tr-types.h"
  11 #include "object-enchant/trc-types.h"
  12 #include "object-hook/hook-checker.h"
  13 #include "object-hook/hook-weapon.h"
  14 #include "object/object-flags.h"
  15 #include "player/player-class.h"
  16 #include "player/player-race-types.h"
  17 #include "player/player-race.h"
  18 #include "player/player-skill.h"
  19 #include "player/player-status.h"
  20 #include "player/special-defense-types.h"
  21 #include "realm/realm-hex-numbers.h"
  22 #include "realm/realm-song-numbers.h"
  23 #include "realm/realm-types.h"
  24 #include "spell-realm/spells-hex.h"
  25 #include "sv-definition/sv-weapon-types.h"
  26 #include "system/floor-type-definition.h"
  27 #include "system/monster-type-definition.h"
  28 #include "system/object-type-definition.h"
  29 #include "util/bit-flags-calculator.h"
  30 #include "util/quarks.h"
  31 #include "util/string-processor.h"
  32
  33 static BIT_FLAGS check_equipment_flags(player_type *creature_ptr, tr_type tr_flag);
  34
  35 /*!
  36  * @brief 装備による所定の特性フラグを得ているかを一括して取得する関数。
  37  */
  38 static BIT_FLAGS check_equipment_flags(player_type *creature_ptr, tr_type tr_flag)
  39 {
  40     object_type *o_ptr;
  41     BIT_FLAGS flgs[TR_FLAG_SIZE];
  42     BIT_FLAGS result = 0L;
  43     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
  44         o_ptr = &creature_ptr->inventory_list[i];
  45         if (!o_ptr->k_idx)
  46             continue;
  47
  48         object_flags(creature_ptr, o_ptr, flgs);
  49
  50         if (has_flag(flgs, tr_flag))
  51             result |= 0x01 << (i - INVEN_RARM);
  52     }
  53     return result;
  54 }
  55
  56 /*!
  57  * @brief クリーチャーが壁破壊進行を持っているかを返す。
  58  */
  59 bool has_kill_wall(player_type *creature_ptr)
  60 {
  61     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || music_singing(creature_ptr, MUSIC_WALL)) {
  62         return TRUE;
  63     }
  64
  65     if (creature_ptr->riding) {
  66         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
  67         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
  68         if (riding_r_ptr->flags2 & RF2_KILL_WALL)
  69             return TRUE;
  70     }
  71
  72     return FALSE;
  73 }
  74
  75 /*!
  76  * @brief クリーチャーが壁通過を持っているかを返す。
  77  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
  78  * @return 持っていたらTRUE
  79  * @details
  80  * * 時限で幽体化、壁抜けをもつか種族幽霊ならばひとまずTRUE。
  81  * * 但し騎乗中は乗騎が壁抜けを持っていなければ不能になる。
  82  */
  83 bool has_pass_wall(player_type *creature_ptr)
  84 {
  85     bool pow = FALSE;
  86
  87     if (creature_ptr->wraith_form || creature_ptr->tim_pass_wall || (!creature_ptr->mimic_form && creature_ptr->prace == RACE_SPECTRE)) {
  88         pow = TRUE;
  89     }
  90
  91     if (creature_ptr->riding) {
  92         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
  93         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
  94         if (!(riding_r_ptr->flags2 & RF2_PASS_WALL))
  95             pow = FALSE;
  96     }
  97
  98     return pow;
  99 }
 100
 101 /*!
 102  * @brief クリーチャーが強力射を持っているかを返す。
 103  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 104  * @return 持っていたら所持前提ビットフラグを返す。
 105  */
 106 BIT_FLAGS has_xtra_might(player_type *creature_ptr)
 107 {
 108     BIT_FLAGS result = 0L;
 109     result |= check_equipment_flags(creature_ptr, TR_XTRA_MIGHT);
 110     return result;
 111 }
 112
 113 /*!
 114  * @brief クリーチャーが邪悪感知を持っているかを返す。
 115  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 116  * @return 持っていたら所持前提ビットフラグを返す。
 117  */
 118 BIT_FLAGS has_esp_evil(player_type *creature_ptr)
 119 {
 120     BIT_FLAGS result = 0L;
 121     if (creature_ptr->realm1 == REALM_HEX) {
 122         if (hex_spelling(creature_ptr, HEX_DETECT_EVIL))
 123             result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 124     }
 125     result |= check_equipment_flags(creature_ptr, TR_ESP_EVIL);
 126     return result;
 127 }
 128
 129 /*!
 130  * @brief クリーチャーが自然界の動物感知を持っているかを返す。
 131  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 132  * @return 持っていたら所持前提ビットフラグを返す。
 133  */
 134 BIT_FLAGS has_esp_animal(player_type *creature_ptr)
 135 {
 136     BIT_FLAGS result = 0L;
 137     result |= check_equipment_flags(creature_ptr, TR_ESP_ANIMAL);
 138     return result;
 139 }
 140
 141 /*!
 142  * @brief クリーチャーがアンデッド感知を持っているかを返す。
 143  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 144  * @return 持っていたら所持前提ビットフラグを返す。
 145  */
 146 BIT_FLAGS has_esp_undead(player_type *creature_ptr)
 147 {
 148     BIT_FLAGS result = 0L;
 149     result |= check_equipment_flags(creature_ptr, TR_ESP_UNDEAD);
 150     return result;
 151 }
 152
 153 /*!
 154  * @brief クリーチャーが悪魔感知を持っているかを返す。
 155  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 156  * @return 持っていたら所持前提ビットフラグを返す。
 157  */
 158 BIT_FLAGS has_esp_demon(player_type *creature_ptr)
 159 {
 160     BIT_FLAGS result = 0L;
 161     result |= check_equipment_flags(creature_ptr, TR_ESP_DEMON);
 162     return result;
 163 }
 164
 165 /*!
 166  * @brief クリーチャーがオーク感知を持っているかを返す。
 167  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 168  * @return 持っていたら所持前提ビットフラグを返す。
 169  */
 170 BIT_FLAGS has_esp_orc(player_type *creature_ptr)
 171 {
 172     BIT_FLAGS result = 0L;
 173     result |= check_equipment_flags(creature_ptr, TR_ESP_ORC);
 174     return result;
 175 }
 176
 177 /*!
 178  * @brief クリーチャーがトロル感知を持っているかを返す。
 179  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 180  * @return 持っていたら所持前提ビットフラグを返す。
 181  */
 182 BIT_FLAGS has_esp_troll(player_type *creature_ptr)
 183 {
 184     BIT_FLAGS result = 0L;
 185     result |= check_equipment_flags(creature_ptr, TR_ESP_TROLL);
 186     return result;
 187 }
 188
 189 /*!
 190  * @brief クリーチャーが巨人感知を持っているかを返す。
 191  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 192  * @return 持っていたら所持前提ビットフラグを返す。
 193  */
 194 BIT_FLAGS has_esp_giant(player_type *creature_ptr)
 195 {
 196     BIT_FLAGS result = 0L;
 197     result |= check_equipment_flags(creature_ptr, TR_ESP_GIANT);
 198     return result;
 199 }
 200
 201 /*!
 202  * @brief クリーチャーがドラゴン感知を持っているかを返す。
 203  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 204  * @return 持っていたら所持前提ビットフラグを返す。
 205  */
 206 BIT_FLAGS has_esp_dragon(player_type *creature_ptr)
 207 {
 208     BIT_FLAGS result = 0L;
 209     result |= check_equipment_flags(creature_ptr, TR_ESP_DRAGON);
 210     return result;
 211 }
 212
 213 /*!
 214  * @brief クリーチャーが人間感知を持っているかを返す。
 215  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 216  * @return 持っていたら所持前提ビットフラグを返す。
 217  */
 218 BIT_FLAGS has_esp_human(player_type *creature_ptr)
 219 {
 220     BIT_FLAGS result = 0L;
 221     result |= check_equipment_flags(creature_ptr, TR_ESP_HUMAN);
 222     return result;
 223 }
 224
 225 /*!
 226  * @brief クリーチャーが善良感知を持っているかを返す。
 227  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 228  * @return 持っていたら所持前提ビットフラグを返す。
 229  */
 230 BIT_FLAGS has_esp_good(player_type *creature_ptr)
 231 {
 232     BIT_FLAGS result = 0L;
 233     result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
 234     return result;
 235 }
 236
 237 /*!
 238  * @brief クリーチャーが無生物感知を持っているかを返す。
 239  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 240  * @return 持っていたら所持前提ビットフラグを返す。
 241  */
 242 BIT_FLAGS has_esp_nonliving(player_type *creature_ptr)
 243 {
 244     BIT_FLAGS result = 0L;
 245     result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
 246     return result;
 247 }
 248
 249 /*!
 250  * @brief クリーチャーがユニーク感知を持っているかを返す。
 251  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 252  * @return 持っていたら所持前提ビットフラグを返す。
 253  */
 254 BIT_FLAGS has_esp_unique(player_type *creature_ptr)
 255 {
 256     BIT_FLAGS result = 0L;
 257     result |= check_equipment_flags(creature_ptr, TR_ESP_UNIQUE);
 258     return result;
 259 }
 260
 261 /*!
 262  * @brief クリーチャーがテレパシーを持っているかを返す。
 263  * @param cretature_ptr 判定対象のクリーチャー参照ポインタ
 264  * @return 持っていたら所持前提ビットフラグを返す。
 265  */
 266 BIT_FLAGS has_esp_telepathy(player_type *creature_ptr)
 267 {
 268     BIT_FLAGS result = 0L;
 269
 270     if (is_time_limit_esp(creature_ptr) || creature_ptr->ult_res || (creature_ptr->special_defense & KATA_MUSOU)) {
 271         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 272     }
 273
 274     if (creature_ptr->muta3 & MUT3_ESP) {
 275         result |= 0x01 << FLAG_CAUSE_MUTATION;
 276     }
 277
 278     if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 29)
 279         result |= 0x01 << FLAG_CAUSE_RACE;
 280
 281     if (is_specific_player_race(creature_ptr, RACE_SPECTRE) && creature_ptr->lev > 34)
 282         result |= 0x01 << FLAG_CAUSE_RACE;
 283
 284     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 39)
 285         result |= 0x01 << FLAG_CAUSE_CLASS;
 286
 287     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 288         result |= 0x01 << FLAG_CAUSE_RACE;
 289     }
 290
 291     result |= check_equipment_flags(creature_ptr, TR_TELEPATHY);
 292     return result;
 293 }
 294
 295 BIT_FLAGS has_bless_blade(player_type *creature_ptr)
 296 {
 297     BIT_FLAGS result = 0L;
 298     result |= check_equipment_flags(creature_ptr, TR_BLESSED);
 299     return result;
 300 }
 301
 302 BIT_FLAGS has_easy2_weapon(player_type *creature_ptr)
 303 {
 304     BIT_FLAGS result = 0L;
 305     result |= check_equipment_flags(creature_ptr, TR_EASY2_WEAPON);
 306     return result;
 307 }
 308
 309 BIT_FLAGS has_down_saving(player_type *creature_ptr)
 310 {
 311     BIT_FLAGS result = 0L;
 312     result |= check_equipment_flags(creature_ptr, TR_DOWN_SAVING);
 313     return result;
 314 }
 315
 316 BIT_FLAGS has_no_ac(player_type *creature_ptr)
 317 {
 318     BIT_FLAGS result = 0L;
 319     result |= check_equipment_flags(creature_ptr, TR_NO_AC);
 320     return result;
 321 }
 322
 323 BIT_FLAGS has_invuln_arrow(player_type *creature_ptr)
 324 {
 325     BIT_FLAGS result = 0L;
 326     if (creature_ptr->blind)
 327         return result;
 328     result |= check_equipment_flags(creature_ptr, TR_INVULN_ARROW);
 329     return result;
 330 }
 331
 332 void has_no_flowed(player_type *creature_ptr)
 333 {
 334     object_type *o_ptr;
 335     bool has_sw = FALSE, has_kabe = FALSE;
 336     OBJECT_IDX this_o_idx, next_o_idx = 0;
 337
 338     creature_ptr->no_flowed = FALSE;
 339
 340     if (creature_ptr->pass_wall && !creature_ptr->kill_wall)
 341         creature_ptr->no_flowed = TRUE;
 342
 343     for (int i = 0; i < INVEN_PACK; i++) {
 344         if ((creature_ptr->inventory_list[i].tval == TV_NATURE_BOOK) && (creature_ptr->inventory_list[i].sval == 2))
 345             has_sw = TRUE;
 346         if ((creature_ptr->inventory_list[i].tval == TV_CRAFT_BOOK) && (creature_ptr->inventory_list[i].sval == 2))
 347             has_kabe = TRUE;
 348     }
 349
 350     for (this_o_idx = creature_ptr->current_floor_ptr->grid_array[creature_ptr->y][creature_ptr->x].o_idx; this_o_idx; this_o_idx = next_o_idx) {
 351         o_ptr = &creature_ptr->current_floor_ptr->o_list[this_o_idx];
 352         next_o_idx = o_ptr->next_o_idx;
 353
 354         if ((o_ptr->tval == TV_NATURE_BOOK) && (o_ptr->sval == 2))
 355             has_sw = TRUE;
 356         if ((o_ptr->tval == TV_CRAFT_BOOK) && (o_ptr->sval == 2))
 357             has_kabe = TRUE;
 358     }
 359
 360     if (has_sw && ((creature_ptr->realm1 == REALM_NATURE) || (creature_ptr->realm2 == REALM_NATURE) || (creature_ptr->pclass == CLASS_SORCERER))) {
 361         const magic_type *s_ptr = &mp_ptr->info[REALM_NATURE - 1][SPELL_SW];
 362         if (creature_ptr->lev >= s_ptr->slevel)
 363             creature_ptr->no_flowed = TRUE;
 364     }
 365
 366     if (has_kabe && ((creature_ptr->realm1 == REALM_CRAFT) || (creature_ptr->realm2 == REALM_CRAFT) || (creature_ptr->pclass == CLASS_SORCERER))) {
 367         const magic_type *s_ptr = &mp_ptr->info[REALM_CRAFT - 1][SPELL_WALL];
 368         if (creature_ptr->lev >= s_ptr->slevel)
 369             creature_ptr->no_flowed = TRUE;
 370     }
 371 }
 372
 373 BIT_FLAGS has_mighty_throw(player_type *creature_ptr)
 374 {
 375     BIT_FLAGS result = 0L;
 376     result |= check_equipment_flags(creature_ptr, TR_MIGHTY_THROW);
 377     return result;
 378 }
 379
 380 BIT_FLAGS has_dec_mana(player_type *creature_ptr)
 381 {
 382     BIT_FLAGS result = 0L;
 383     result |= check_equipment_flags(creature_ptr, TR_DEC_MANA);
 384     return result;
 385 }
 386
 387 BIT_FLAGS has_reflect(player_type *creature_ptr)
 388 {
 389     BIT_FLAGS result = 0L;
 390
 391     if (creature_ptr->pclass == CLASS_BERSERKER && creature_ptr->lev > 39)
 392         result |= 0x01 << FLAG_CAUSE_CLASS;
 393
 394     if (creature_ptr->pclass == CLASS_MIRROR_MASTER && creature_ptr->lev > 39)
 395         result |= 0x01 << FLAG_CAUSE_CLASS;
 396
 397     if (creature_ptr->special_defense & KAMAE_GENBU || creature_ptr->special_defense & KATA_MUSOU) {
 398         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 399     }
 400
 401     if (creature_ptr->ult_res || creature_ptr->wraith_form || creature_ptr->magicdef || creature_ptr->tim_reflect) {
 402         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 403     }
 404
 405     result |= check_equipment_flags(creature_ptr, TR_REFLECT);
 406     return result;
 407 }
 408
 409 BIT_FLAGS has_see_nocto(player_type *creature_ptr) { return creature_ptr->pclass == CLASS_NINJA ? FLAG_CAUSE_CLASS : 0L; }
 410
 411 BIT_FLAGS has_warning(player_type *creature_ptr)
 412 {
 413     BIT_FLAGS result = 0L;
 414     object_type *o_ptr;
 415     BIT_FLAGS flgs[TR_FLAG_SIZE];
 416
 417     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 418         o_ptr = &creature_ptr->inventory_list[i];
 419         if (!o_ptr->k_idx)
 420             continue;
 421
 422         object_flags(creature_ptr, o_ptr, flgs);
 423
 424         if (has_flag(flgs, TR_WARNING)) {
 425             if (!o_ptr->inscription || !(angband_strchr(quark_str(o_ptr->inscription), '$')))
 426                 result |= 0x01 << (i - INVEN_RARM);
 427         }
 428     }
 429     return result;
 430 }
 431
 432 BIT_FLAGS has_anti_magic(player_type *creature_ptr)
 433 {
 434     BIT_FLAGS result = 0L;
 435     result |= check_equipment_flags(creature_ptr, TR_NO_MAGIC);
 436     return result;
 437 }
 438
 439 BIT_FLAGS has_anti_tele(player_type *creature_ptr)
 440 {
 441     BIT_FLAGS result = 0L;
 442     result |= check_equipment_flags(creature_ptr, TR_NO_TELE);
 443     return result;
 444 }
 445
 446 BIT_FLAGS has_sh_fire(player_type *creature_ptr)
 447 {
 448     BIT_FLAGS result = 0L;
 449
 450     if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
 451         result |= 0x01 << FLAG_CAUSE_MUTATION;
 452     }
 453
 454     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 455         result |= 0x01 << FLAG_CAUSE_RACE;
 456     }
 457
 458     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 459         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 460     }
 461
 462     if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_sh_fire) {
 463         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 464     }
 465
 466     result |= check_equipment_flags(creature_ptr, TR_SH_FIRE);
 467     return result;
 468 }
 469
 470 BIT_FLAGS has_sh_elec(player_type *creature_ptr)
 471 {
 472     BIT_FLAGS result = 0L;
 473
 474     if (creature_ptr->muta3 & MUT3_ELEC_TOUC)
 475         result |= 0x01 << FLAG_CAUSE_MUTATION;
 476
 477     if (hex_spelling(creature_ptr, HEX_SHOCK_CLOAK) || creature_ptr->ult_res) {
 478         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 479     }
 480
 481     if (creature_ptr->special_defense & KAMAE_SEIRYU || (creature_ptr->special_defense & KATA_MUSOU)) {
 482         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 483     }
 484
 485     result |= check_equipment_flags(creature_ptr, TR_SH_ELEC);
 486     return result;
 487 }
 488
 489 BIT_FLAGS has_sh_cold(player_type *creature_ptr)
 490 {
 491     BIT_FLAGS result = 0L;
 492
 493     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 494         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 495     }
 496
 497     if (creature_ptr->ult_res || hex_spelling(creature_ptr, HEX_ICE_ARMOR)) {
 498         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 499     }
 500
 501     result |= check_equipment_flags(creature_ptr, TR_SH_COLD);
 502     return result;
 503 }
 504
 505 BIT_FLAGS has_easy_spell(player_type *creature_ptr)
 506 {
 507     BIT_FLAGS result = 0L;
 508     result |= check_equipment_flags(creature_ptr, TR_EASY_SPELL);
 509     return result;
 510 }
 511
 512 BIT_FLAGS has_heavy_spell(player_type *creature_ptr)
 513 {
 514     BIT_FLAGS result = 0L;
 515     result |= check_equipment_flags(creature_ptr, TR_HEAVY_SPELL);
 516     return result;
 517 }
 518
 519 BIT_FLAGS has_hold_exp(player_type *creature_ptr)
 520 {
 521     BIT_FLAGS result = 0L;
 522
 523     if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
 524         result |= 0x01 << FLAG_CAUSE_PERSONALITY;
 525     }
 526
 527     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
 528         result |= 0x01 << FLAG_CAUSE_RACE;
 529     }
 530
 531     if (is_specific_player_race(creature_ptr, RACE_HOBBIT) || is_specific_player_race(creature_ptr, RACE_SKELETON)
 532         || is_specific_player_race(creature_ptr, RACE_ZOMBIE) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
 533         || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_BALROG)
 534         || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
 535         result |= 0x01 << FLAG_CAUSE_RACE;
 536     }
 537
 538     if (is_specific_player_race(creature_ptr, RACE_GOLEM)) {
 539         if (creature_ptr->lev > 34)
 540             result |= 0x01 << FLAG_CAUSE_RACE;
 541     }
 542
 543     if (creature_ptr->special_defense & KATA_MUSOU) {
 544         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 545     }
 546
 547     if (creature_ptr->ult_res) {
 548         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 549     }
 550
 551     result |= check_equipment_flags(creature_ptr, TR_HOLD_EXP);
 552     return result;
 553 }
 554
 555 BIT_FLAGS has_see_inv(player_type *creature_ptr)
 556 {
 557     BIT_FLAGS result = 0L;
 558
 559     if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 29)
 560         result |= 0x01 << FLAG_CAUSE_CLASS;
 561
 562     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
 563         result |= 0x01 << FLAG_CAUSE_RACE;
 564     } else if (is_specific_player_race(creature_ptr, RACE_HIGH_ELF) || is_specific_player_race(creature_ptr, RACE_GOLEM)
 565         || is_specific_player_race(creature_ptr, RACE_SKELETON) || is_specific_player_race(creature_ptr, RACE_ZOMBIE)
 566         || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ARCHON)) {
 567         result |= 0x01 << FLAG_CAUSE_RACE;
 568     } else if (is_specific_player_race(creature_ptr, RACE_DARK_ELF) && creature_ptr->lev > 19) {
 569         result |= 0x01 << FLAG_CAUSE_RACE;
 570     } else if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 14) {
 571         result |= 0x01 << FLAG_CAUSE_RACE;
 572     } else if ((is_specific_player_race(creature_ptr, RACE_IMP) || is_specific_player_race(creature_ptr, RACE_BALROG)) && creature_ptr->lev > 9) {
 573         result |= 0x01 << FLAG_CAUSE_RACE;
 574     }
 575
 576     if (creature_ptr->special_defense & KATA_MUSOU) {
 577         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 578     }
 579
 580     if (creature_ptr->ult_res || creature_ptr->tim_invis) {
 581         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 582     }
 583
 584     result |= check_equipment_flags(creature_ptr, TR_SEE_INVIS);
 585     return result;
 586 }
 587
 588 BIT_FLAGS has_magic_mastery(player_type *creature_ptr)
 589 {
 590     BIT_FLAGS result = 0L;
 591
 592     result |= check_equipment_flags(creature_ptr, TR_MAGIC_MASTERY);
 593     return result;
 594 }
 595
 596 BIT_FLAGS has_free_act(player_type *creature_ptr)
 597 {
 598     BIT_FLAGS result = 0L;
 599
 600     if (creature_ptr->muta3 & MUT3_MOTION)
 601         result |= 0x01 << FLAG_CAUSE_MUTATION;
 602
 603     if (is_specific_player_race(creature_ptr, RACE_GNOME) || is_specific_player_race(creature_ptr, RACE_GOLEM)
 604         || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
 605         result |= 0x01 << FLAG_CAUSE_RACE;
 606     }
 607
 608     if (heavy_armor(creature_ptr) && (!creature_ptr->inventory_list[INVEN_RARM].k_idx || has_right_hand_weapon(creature_ptr))
 609         && (!creature_ptr->inventory_list[INVEN_LARM].k_idx || has_left_hand_weapon(creature_ptr))) {
 610         if (creature_ptr->lev > 24)
 611             result |= 0x01 << FLAG_CAUSE_CLASS;
 612     }
 613
 614     if (creature_ptr->pclass == CLASS_MONK || creature_ptr->pclass == CLASS_FORCETRAINER) {
 615         if (!(heavy_armor(creature_ptr))) {
 616             if (creature_ptr->lev > 24)
 617                 result |= 0x01 << FLAG_CAUSE_CLASS;
 618         }
 619     }
 620
 621     if (creature_ptr->pclass == CLASS_BERSERKER) {
 622         result |= 0x01 << FLAG_CAUSE_CLASS;
 623     }
 624
 625     if (creature_ptr->ult_res || creature_ptr->magicdef) {
 626         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 627     }
 628
 629     if (creature_ptr->special_defense & KATA_MUSOU) {
 630         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 631     }
 632
 633     result |= check_equipment_flags(creature_ptr, TR_FREE_ACT);
 634     return result;
 635 }
 636
 637 BIT_FLAGS has_sustain_str(player_type *creature_ptr)
 638 {
 639     BIT_FLAGS result = 0L;
 640
 641     if (creature_ptr->pclass == CLASS_BERSERKER) {
 642         result |= 0x01 << FLAG_CAUSE_CLASS;
 643     }
 644     if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) || is_specific_player_race(creature_ptr, RACE_HALF_OGRE)
 645         || is_specific_player_race(creature_ptr, RACE_HALF_GIANT)) {
 646         result |= 0x01 << FLAG_CAUSE_RACE;
 647     }
 648
 649     if (creature_ptr->ult_res) {
 650         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 651     }
 652
 653     if (creature_ptr->special_defense & KATA_MUSOU) {
 654         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 655     }
 656
 657     result |= check_equipment_flags(creature_ptr, TR_SUST_STR);
 658     return result;
 659 }
 660
 661 BIT_FLAGS has_sustain_int(player_type *creature_ptr)
 662 {
 663     BIT_FLAGS result = 0L;
 664
 665     if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER)) {
 666         result |= 0x01 << FLAG_CAUSE_RACE;
 667     }
 668
 669     if (creature_ptr->ult_res) {
 670         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 671     }
 672
 673     if (creature_ptr->special_defense & KATA_MUSOU) {
 674         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 675     }
 676
 677     result |= check_equipment_flags(creature_ptr, TR_SUST_INT);
 678     return result;
 679 }
 680
 681 BIT_FLAGS has_sustain_wis(player_type *creature_ptr)
 682 {
 683     BIT_FLAGS result = 0L;
 684
 685     result = FALSE;
 686     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 19)
 687         result |= 0x01 << FLAG_CAUSE_CLASS;
 688
 689     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_MIND_FLAYER)) {
 690         result |= 0x01 << FLAG_CAUSE_RACE;
 691     }
 692
 693     if (creature_ptr->ult_res) {
 694         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 695     }
 696
 697     if (creature_ptr->special_defense & KATA_MUSOU) {
 698         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 699     }
 700
 701     result |= check_equipment_flags(creature_ptr, TR_SUST_WIS);
 702     return result;
 703 }
 704
 705 BIT_FLAGS has_sustain_dex(player_type *creature_ptr)
 706 {
 707     BIT_FLAGS result = 0L;
 708     if (creature_ptr->pclass == CLASS_BERSERKER) {
 709         result |= 0x01 << FLAG_CAUSE_CLASS;
 710     }
 711
 712     if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 24)
 713         result |= 0x01 << FLAG_CAUSE_CLASS;
 714
 715     if (creature_ptr->ult_res) {
 716         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 717     }
 718
 719     if (creature_ptr->special_defense & KATA_MUSOU) {
 720         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 721     }
 722
 723     result |= check_equipment_flags(creature_ptr, TR_SUST_DEX);
 724     return result;
 725 }
 726
 727 BIT_FLAGS has_sustain_con(player_type *creature_ptr)
 728 {
 729     BIT_FLAGS result = 0L;
 730     if (creature_ptr->pclass == CLASS_BERSERKER) {
 731         result |= 0x01 << FLAG_CAUSE_CLASS;
 732     }
 733
 734     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_AMBERITE || creature_ptr->prace == RACE_DUNADAN)) {
 735         result |= 0x01 << FLAG_CAUSE_RACE;
 736     }
 737
 738     if (creature_ptr->ult_res) {
 739         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 740     }
 741
 742     if (creature_ptr->special_defense & KATA_MUSOU) {
 743         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 744     }
 745
 746     result |= check_equipment_flags(creature_ptr, TR_SUST_CON);
 747     return result;
 748 }
 749
 750 BIT_FLAGS has_sustain_chr(player_type *creature_ptr)
 751 {
 752     BIT_FLAGS result = 0L;
 753
 754     if (creature_ptr->ult_res) {
 755         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 756     }
 757
 758     if (creature_ptr->special_defense & KATA_MUSOU) {
 759         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
 760     }
 761
 762     result |= check_equipment_flags(creature_ptr, TR_SUST_CHR);
 763     return result;
 764 }
 765
 766 BIT_FLAGS has_levitation(player_type *creature_ptr)
 767 {
 768     BIT_FLAGS result = 0L;
 769
 770     if (creature_ptr->muta3 & MUT3_WINGS)
 771         result = FLAG_CAUSE_MUTATION;
 772
 773     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 774         result = FLAG_CAUSE_RACE;
 775     }
 776
 777     if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SPECTRE)
 778         || is_specific_player_race(creature_ptr, RACE_SPRITE) || is_specific_player_race(creature_ptr, RACE_ARCHON)
 779         || is_specific_player_race(creature_ptr, RACE_S_FAIRY)) {
 780         result = FLAG_CAUSE_RACE;
 781     }
 782
 783     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KAMAE_SUZAKU || (creature_ptr->special_defense & KATA_MUSOU)) {
 784         result = FLAG_CAUSE_BATTLE_FORM;
 785     }
 786
 787     if (creature_ptr->ult_res) {
 788         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 789     }
 790
 791     if (creature_ptr->riding) {
 792         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
 793         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
 794         result = (riding_r_ptr->flags7 & RF7_CAN_FLY) ? result : 0;
 795     }
 796
 797     if (creature_ptr->tim_levitation) {
 798         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 799     }
 800
 801     result |= check_equipment_flags(creature_ptr, TR_LEVITATION);
 802     return result;
 803 }
 804
 805 void has_can_swim(player_type *creature_ptr)
 806 {
 807     creature_ptr->can_swim = FALSE;
 808     if (creature_ptr->riding) {
 809         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
 810         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
 811         if (riding_r_ptr->flags7 & (RF7_CAN_SWIM | RF7_AQUATIC))
 812             creature_ptr->can_swim = TRUE;
 813     }
 814 }
 815
 816 BIT_FLAGS has_slow_digest(player_type *creature_ptr)
 817 {
 818     BIT_FLAGS result = 0L;
 819
 820     if (creature_ptr->pclass == CLASS_NINJA) {
 821         result = FLAG_CAUSE_CLASS;
 822     }
 823
 824     if (creature_ptr->lev > 14 && !creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TROLL) {
 825         if (creature_ptr->pclass == CLASS_WARRIOR || creature_ptr->pclass == CLASS_BERSERKER) {
 826             result = FLAG_CAUSE_CLASS;
 827             /* Let's not make Regeneration
 828              * a disadvantage for the poor warriors who can
 829              * never learn a spell that satisfies hunger (actually
 830              * neither can rogues, but half-trolls are not
 831              * supposed to play rogues) */
 832         }
 833     }
 834
 835     if (creature_ptr->special_defense & KATA_MUSOU) {
 836         result = FLAG_CAUSE_BATTLE_FORM;
 837     }
 838
 839     if (creature_ptr->ult_res) {
 840         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 841     }
 842
 843     if (!creature_ptr->mimic_form
 844         && (creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_SPECTRE
 845             || creature_ptr->prace == RACE_ANDROID)) {
 846         result = FLAG_CAUSE_RACE;
 847     }
 848
 849     result |= check_equipment_flags(creature_ptr, TR_SLOW_DIGEST);
 850     return result;
 851 }
 852
 853 BIT_FLAGS has_regenerate(player_type *creature_ptr)
 854 {
 855     BIT_FLAGS result = 0L;
 856
 857     if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) && creature_ptr->lev > 14) {
 858         result |= 0x01 << FLAG_CAUSE_RACE;
 859     }
 860
 861     if (is_specific_player_race(creature_ptr, RACE_AMBERITE)) {
 862         result |= 0x01 << FLAG_CAUSE_RACE;
 863     }
 864
 865     if (creature_ptr->pclass == CLASS_WARRIOR && creature_ptr->lev > 44) {
 866         result |= 0x01 << FLAG_CAUSE_RACE;
 867     }
 868
 869     if (creature_ptr->pclass == CLASS_BERSERKER) {
 870         result |= 0x01 << FLAG_CAUSE_RACE;
 871     }
 872
 873     if (creature_ptr->muta3 & MUT3_REGEN)
 874         result |= 0x01 << FLAG_CAUSE_MUTATION;
 875
 876     if (creature_ptr->special_defense & KATA_MUSOU) {
 877         result |= 0x01 << FLAG_CAUSE_MUTATION;
 878     }
 879
 880     if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_regen) {
 881         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
 882     }
 883
 884     result |= check_equipment_flags(creature_ptr, TR_REGEN);
 885
 886     if (creature_ptr->muta3 & MUT3_FLESH_ROT)
 887         result = 0L;
 888
 889     return result;
 890 }
 891
 892 void has_curses(player_type *creature_ptr)
 893 {
 894     object_type *o_ptr;
 895     BIT_FLAGS flgs[TR_FLAG_SIZE];
 896     creature_ptr->cursed = 0L;
 897
 898     if (creature_ptr->pseikaku == PERSONALITY_SEXY)
 899         creature_ptr->cursed |= (TRC_AGGRAVATE);
 900
 901     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 902         o_ptr = &creature_ptr->inventory_list[i];
 903         if (!o_ptr->k_idx)
 904             continue;
 905         object_flags(creature_ptr, o_ptr, flgs);
 906         if (has_flag(flgs, TR_AGGRAVATE))
 907             creature_ptr->cursed |= TRC_AGGRAVATE;
 908         if (has_flag(flgs, TR_DRAIN_EXP))
 909             creature_ptr->cursed |= TRC_DRAIN_EXP;
 910         if (has_flag(flgs, TR_TY_CURSE))
 911             creature_ptr->cursed |= TRC_TY_CURSE;
 912         if (has_flag(flgs, TR_ADD_L_CURSE))
 913             creature_ptr->cursed |= TRC_ADD_L_CURSE;
 914         if (has_flag(flgs, TR_ADD_H_CURSE))
 915             creature_ptr->cursed |= TRC_ADD_H_CURSE;
 916         if (has_flag(flgs, TR_DRAIN_HP))
 917             creature_ptr->cursed |= TRC_DRAIN_HP;
 918         if (has_flag(flgs, TR_DRAIN_MANA))
 919             creature_ptr->cursed |= TRC_DRAIN_MANA;
 920         if (has_flag(flgs, TR_CALL_ANIMAL))
 921             creature_ptr->cursed |= TRC_CALL_ANIMAL;
 922         if (has_flag(flgs, TR_CALL_DEMON))
 923             creature_ptr->cursed |= TRC_CALL_DEMON;
 924         if (has_flag(flgs, TR_CALL_DRAGON))
 925             creature_ptr->cursed |= TRC_CALL_DRAGON;
 926         if (has_flag(flgs, TR_CALL_UNDEAD))
 927             creature_ptr->cursed |= TRC_CALL_UNDEAD;
 928         if (has_flag(flgs, TR_COWARDICE))
 929             creature_ptr->cursed |= TRC_COWARDICE;
 930         if (has_flag(flgs, TR_LOW_MELEE))
 931             creature_ptr->cursed |= TRC_LOW_MELEE;
 932         if (has_flag(flgs, TR_LOW_AC))
 933             creature_ptr->cursed |= TRC_LOW_AC;
 934         if (has_flag(flgs, TR_LOW_MAGIC))
 935             creature_ptr->cursed |= TRC_LOW_MAGIC;
 936         if (has_flag(flgs, TR_FAST_DIGEST))
 937             creature_ptr->cursed |= TRC_FAST_DIGEST;
 938         if (has_flag(flgs, TR_SLOW_REGEN))
 939             creature_ptr->cursed |= TRC_SLOW_REGEN;
 940
 941         creature_ptr->cursed |= (o_ptr->curse_flags & (0xFFFFFFF0L));
 942         if (o_ptr->name1 == ART_CHAINSWORD)
 943             creature_ptr->cursed |= TRC_CHAINSWORD;
 944
 945         if (has_flag(flgs, TR_TELEPORT)) {
 946             if (object_is_cursed(o_ptr))
 947                 creature_ptr->cursed |= TRC_TELEPORT;
 948             else {
 949                 concptr insc = quark_str(o_ptr->inscription);
 950
 951                 /* {.} will stop random teleportation. */
 952                 if (o_ptr->inscription && angband_strchr(insc, '.')) {
 953                 } else {
 954                     creature_ptr->cursed |= TRC_TELEPORT_SELF;
 955                 }
 956             }
 957         }
 958     }
 959
 960     if (creature_ptr->cursed & TRC_TELEPORT)
 961         creature_ptr->cursed &= ~(TRC_TELEPORT_SELF);
 962
 963     if ((is_specific_player_race(creature_ptr, RACE_S_FAIRY)) && (creature_ptr->pseikaku != PERSONALITY_SEXY) && (creature_ptr->cursed & TRC_AGGRAVATE)) {
 964         creature_ptr->cursed &= ~(TRC_AGGRAVATE);
 965     }
 966 }
 967
 968 BIT_FLAGS has_impact(player_type *creature_ptr)
 969 {
 970     BIT_FLAGS result = 0L;
 971     result |= check_equipment_flags(creature_ptr, TR_IMPACT);
 972     return result;
 973 }
 974
 975 void has_extra_blow(player_type *creature_ptr)
 976 {
 977     object_type *o_ptr;
 978     BIT_FLAGS flgs[TR_FLAG_SIZE];
 979     creature_ptr->extra_blows[0] = creature_ptr->extra_blows[1] = 0;
 980
 981     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 982         o_ptr = &creature_ptr->inventory_list[i];
 983         if (!o_ptr->k_idx)
 984             continue;
 985
 986         object_flags(creature_ptr, o_ptr, flgs);
 987         if (has_flag(flgs, TR_BLOWS)) {
 988             if ((i == INVEN_RARM || i == INVEN_RIGHT) && !has_two_handed_weapons(creature_ptr))
 989                 creature_ptr->extra_blows[0] += o_ptr->pval;
 990             else if ((i == INVEN_LARM || i == INVEN_LEFT) && !has_two_handed_weapons(creature_ptr))
 991                 creature_ptr->extra_blows[1] += o_ptr->pval;
 992             else {
 993                 creature_ptr->extra_blows[0] += o_ptr->pval;
 994                 creature_ptr->extra_blows[1] += o_ptr->pval;
 995             }
 996         }
 997     }
 998 }
 999
1000 BIT_FLAGS has_resist_acid(player_type *creature_ptr)
1001 {
1002     BIT_FLAGS result = 0L;
1003
1004     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1005         result |= 0x01 << FLAG_CAUSE_RACE;
1006     } else if (is_specific_player_race(creature_ptr, RACE_YEEK) || is_specific_player_race(creature_ptr, RACE_KLACKON)) {
1007         result |= 0x01 << FLAG_CAUSE_RACE;
1008     } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 14) {
1009         result |= 0x01 << FLAG_CAUSE_RACE;
1010     }
1011
1012     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1013         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1014     }
1015
1016     if (creature_ptr->ult_res) {
1017         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1018     }
1019
1020     result |= has_immune_acid(creature_ptr);
1021
1022     result |= check_equipment_flags(creature_ptr, TR_RES_ACID);
1023     return result;
1024 }
1025
1026 BIT_FLAGS has_vuln_acid(player_type *creature_ptr)
1027 {
1028     BIT_FLAGS result = 0L;
1029     if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1030         result |= 0x01 << FLAG_CAUSE_MUTATION;
1031     }
1032
1033     if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1034         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1035     }
1036     return result;
1037 }
1038
1039 BIT_FLAGS has_resist_elec(player_type *creature_ptr)
1040 {
1041     BIT_FLAGS result = 0L;
1042
1043     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1044         result |= 0x01 << FLAG_CAUSE_RACE;
1045     } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 19) {
1046         result |= 0x01 << FLAG_CAUSE_RACE;
1047     }
1048
1049     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1050         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1051     }
1052
1053     if (creature_ptr->ult_res) {
1054         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1055     }
1056
1057     result |= check_equipment_flags(creature_ptr, TR_RES_ELEC);
1058     result |= has_immune_elec(creature_ptr);
1059     return result;
1060 }
1061
1062 BIT_FLAGS has_vuln_elec(player_type *creature_ptr)
1063 {
1064     BIT_FLAGS result = 0L;
1065     if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1066         result |= 0x01 << FLAG_CAUSE_MUTATION;
1067     }
1068
1069     if (is_specific_player_race(creature_ptr, RACE_ANDROID)) {
1070         result |= 0x01 << FLAG_CAUSE_RACE;
1071     }
1072
1073     if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1074         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1075     }
1076     return result;
1077 }
1078
1079 BIT_FLAGS has_resist_fire(player_type *creature_ptr)
1080 {
1081     BIT_FLAGS result = 0L;
1082
1083     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1084         result |= 0x01 << FLAG_CAUSE_RACE;
1085     }
1086
1087     if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 4) {
1088         result |= 0x01 << FLAG_CAUSE_RACE;
1089     }
1090
1091     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_IMP || creature_ptr->prace == RACE_BALROG)) {
1092         result |= 0x01 << FLAG_CAUSE_RACE;
1093     }
1094
1095     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1096         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1097     }
1098
1099     if (creature_ptr->ult_res) {
1100         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1101     }
1102
1103     result |= check_equipment_flags(creature_ptr, TR_RES_FIRE);
1104     result |= has_immune_fire(creature_ptr);
1105     return result;
1106 }
1107
1108 BIT_FLAGS has_vuln_fire(player_type *creature_ptr)
1109 {
1110     BIT_FLAGS result = 0L;
1111     if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1112         result |= 0x01 << FLAG_CAUSE_MUTATION;
1113     }
1114
1115     if (is_specific_player_race(creature_ptr, RACE_ENT)) {
1116         result |= 0x01 << FLAG_CAUSE_RACE;
1117     }
1118
1119     if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1120         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1121     }
1122     return result;
1123 }
1124
1125 BIT_FLAGS has_resist_cold(player_type *creature_ptr)
1126 {
1127     BIT_FLAGS result = 0L;
1128
1129     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1130         result |= 0x01 << FLAG_CAUSE_RACE;
1131     }
1132
1133     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ZOMBIE) && creature_ptr->lev > 4) {
1134         result |= 0x01 << FLAG_CAUSE_RACE;
1135     }
1136
1137     if ((is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SKELETON)) && creature_ptr->lev > 9) {
1138         result |= 0x01 << FLAG_CAUSE_RACE;
1139     }
1140
1141     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE)) {
1142         result |= 0x01 << FLAG_CAUSE_RACE;
1143     }
1144
1145     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1146         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1147     }
1148
1149     if (creature_ptr->ult_res) {
1150         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1151     }
1152
1153     result |= check_equipment_flags(creature_ptr, TR_RES_COLD);
1154     result |= has_immune_cold(creature_ptr);
1155     return result;
1156 }
1157
1158 BIT_FLAGS has_vuln_cold(player_type *creature_ptr)
1159 {
1160     BIT_FLAGS result = 0L;
1161     if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1162         result |= 0x01 << FLAG_CAUSE_MUTATION;
1163     }
1164
1165     if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1166         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1167     }
1168     return result;
1169 }
1170
1171 BIT_FLAGS has_resist_pois(player_type *creature_ptr)
1172 {
1173     BIT_FLAGS result = 0L;
1174
1175     if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 19)
1176         result |= 0x01 << FLAG_CAUSE_CLASS;
1177
1178     if (creature_ptr->mimic_form == MIMIC_VAMPIRE || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1179         result |= 0x01 << FLAG_CAUSE_RACE;
1180     }
1181
1182     if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 34) {
1183         result |= 0x01 << FLAG_CAUSE_RACE;
1184     }
1185
1186     if (!creature_ptr->mimic_form
1187         && (creature_ptr->prace == RACE_KOBOLD || creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_SKELETON
1188             || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE || creature_ptr->prace == RACE_ANDROID)) {
1189         result |= 0x01 << FLAG_CAUSE_RACE;
1190     }
1191
1192     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1193         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1194     }
1195
1196     if (creature_ptr->ult_res) {
1197         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1198     }
1199
1200     result |= check_equipment_flags(creature_ptr, TR_RES_POIS);
1201     return result;
1202 }
1203
1204 BIT_FLAGS has_resist_conf(player_type *creature_ptr)
1205 {
1206     BIT_FLAGS result = 0L;
1207
1208     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 29)
1209         result |= 0x01 << FLAG_CAUSE_CLASS;
1210
1211     if (creature_ptr->pseikaku == PERSONALITY_CHARGEMAN || creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1212         result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1213     }
1214
1215     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_KLACKON || creature_ptr->prace == RACE_BEASTMAN || creature_ptr->prace == RACE_KUTAR)) {
1216         result |= 0x01 << FLAG_CAUSE_RACE;
1217     }
1218
1219     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1220         result |= 0x01 << FLAG_CAUSE_RACE;
1221     }
1222
1223     if (creature_ptr->ult_res || creature_ptr->magicdef) {
1224         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1225     }
1226
1227     if (creature_ptr->special_defense & KATA_MUSOU) {
1228         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1229     }
1230
1231     result |= check_equipment_flags(creature_ptr, TR_RES_CONF);
1232     return result;
1233 }
1234
1235 BIT_FLAGS has_resist_sound(player_type *creature_ptr)
1236 {
1237     BIT_FLAGS result = 0L;
1238
1239     if (creature_ptr->pclass == CLASS_BARD) {
1240         result |= 0x01 << FLAG_CAUSE_CLASS;
1241     }
1242
1243     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_CYCLOPS || creature_ptr->prace == RACE_BEASTMAN)) {
1244         result |= 0x01 << FLAG_CAUSE_RACE;
1245     }
1246
1247     if (creature_ptr->special_defense & KATA_MUSOU) {
1248         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1249     }
1250
1251     if (creature_ptr->ult_res) {
1252         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1253     }
1254
1255     result |= check_equipment_flags(creature_ptr, TR_RES_SOUND);
1256     return result;
1257 }
1258
1259 BIT_FLAGS has_resist_lite(player_type *creature_ptr)
1260 {
1261     BIT_FLAGS result = 0L;
1262
1263     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ELF || creature_ptr->prace == RACE_HIGH_ELF || creature_ptr->prace == RACE_SPRITE)) {
1264         result |= 0x01 << FLAG_CAUSE_RACE;
1265     }
1266
1267     if (creature_ptr->special_defense & KATA_MUSOU) {
1268         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1269     }
1270
1271     if (creature_ptr->ult_res) {
1272         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1273     }
1274
1275     result |= check_equipment_flags(creature_ptr, TR_RES_LITE);
1276     return result;
1277 }
1278
1279 BIT_FLAGS has_vuln_lite(player_type *creature_ptr)
1280 {
1281     BIT_FLAGS result = 0L;
1282     if (is_specific_player_race(creature_ptr, RACE_S_FAIRY) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
1283         || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1284         result |= 0x01 << FLAG_CAUSE_RACE;
1285     }
1286
1287     if (creature_ptr->wraith_form) {
1288         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1289     }
1290
1291     return result;
1292 }
1293
1294 BIT_FLAGS has_resist_dark(player_type *creature_ptr)
1295 {
1296     BIT_FLAGS result = 0L;
1297
1298     if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1299         result |= 0x01 << FLAG_CAUSE_RACE;
1300     }
1301
1302     if (!creature_ptr->mimic_form
1303         && (creature_ptr->prace == RACE_HALF_ORC || creature_ptr->prace == RACE_HALF_OGRE || creature_ptr->prace == RACE_NIBELUNG
1304             || creature_ptr->prace == RACE_DARK_ELF || creature_ptr->prace == RACE_VAMPIRE)) {
1305         result |= 0x01 << FLAG_CAUSE_RACE;
1306     }
1307
1308     if (creature_ptr->special_defense & KATA_MUSOU) {
1309         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1310     }
1311
1312     if (creature_ptr->ult_res) {
1313         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1314     }
1315
1316     result |= check_equipment_flags(creature_ptr, TR_RES_DARK);
1317     return result;
1318 }
1319
1320 BIT_FLAGS has_resist_chaos(player_type *creature_ptr)
1321 {
1322     BIT_FLAGS result = 0L;
1323
1324     if (creature_ptr->pclass == CLASS_CHAOS_WARRIOR && creature_ptr->lev > 29)
1325         result |= 0x01 << FLAG_CAUSE_CLASS;
1326
1327     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1328         result |= 0x01 << FLAG_CAUSE_RACE;
1329     }
1330
1331     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TITAN)
1332         result |= 0x01 << FLAG_CAUSE_RACE;
1333
1334     if (creature_ptr->special_defense & KATA_MUSOU) {
1335         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1336     }
1337
1338     if (creature_ptr->ult_res) {
1339         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1340     }
1341
1342     result |= check_equipment_flags(creature_ptr, TR_RES_CHAOS);
1343     return result;
1344 }
1345
1346 BIT_FLAGS has_resist_disen(player_type *creature_ptr)
1347 {
1348     BIT_FLAGS result = 0L;
1349
1350     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1351         result |= 0x01 << FLAG_CAUSE_RACE;
1352     }
1353
1354     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_NIBELUNG)
1355         result |= 0x01 << FLAG_CAUSE_RACE;
1356
1357     if (creature_ptr->special_defense & KATA_MUSOU) {
1358         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1359     }
1360
1361     if (creature_ptr->ult_res) {
1362         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1363     }
1364
1365     result |= check_equipment_flags(creature_ptr, TR_RES_DISEN);
1366     return result;
1367 }
1368
1369 BIT_FLAGS has_resist_shard(player_type *creature_ptr)
1370 {
1371     BIT_FLAGS result = 0L;
1372
1373     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_HALF_TITAN || creature_ptr->prace == RACE_SKELETON))
1374         result |= 0x01 << FLAG_CAUSE_RACE;
1375
1376     if (creature_ptr->special_defense & KATA_MUSOU) {
1377         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1378     }
1379
1380     if (creature_ptr->ult_res) {
1381         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1382     }
1383
1384     result |= check_equipment_flags(creature_ptr, TR_RES_SHARDS);
1385     return result;
1386 }
1387
1388 BIT_FLAGS has_resist_nexus(player_type *creature_ptr)
1389 {
1390     BIT_FLAGS result = 0L;
1391
1392     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1393         result |= 0x01 << FLAG_CAUSE_RACE;
1394     }
1395
1396     if (creature_ptr->special_defense & KATA_MUSOU) {
1397         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1398     }
1399
1400     if (creature_ptr->ult_res) {
1401         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1402     }
1403
1404     result |= check_equipment_flags(creature_ptr, TR_RES_NEXUS);
1405     return result;
1406 }
1407
1408 BIT_FLAGS has_resist_blind(player_type *creature_ptr)
1409 {
1410     BIT_FLAGS result = 0L;
1411
1412     if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1413         result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1414     }
1415
1416     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DWARF)
1417         result |= 0x01 << FLAG_CAUSE_RACE;
1418
1419     if (creature_ptr->special_defense & KATA_MUSOU) {
1420         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1421     }
1422
1423     if (creature_ptr->ult_res || creature_ptr->magicdef) {
1424         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1425     }
1426
1427     result |= check_equipment_flags(creature_ptr, TR_RES_BLIND);
1428     return result;
1429 }
1430
1431 BIT_FLAGS has_resist_neth(player_type *creature_ptr)
1432 {
1433     BIT_FLAGS result = 0L;
1434
1435     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1436         result |= 0x01 << FLAG_CAUSE_RACE;
1437     }
1438
1439     if (!creature_ptr->mimic_form
1440         && (creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE
1441             || creature_ptr->prace == RACE_BALROG))
1442         result |= 0x01 << FLAG_CAUSE_RACE;
1443
1444     if (creature_ptr->special_defense & KATA_MUSOU) {
1445         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1446     }
1447
1448     if (creature_ptr->ult_res || creature_ptr->tim_res_nether) {
1449         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1450     }
1451
1452     result |= check_equipment_flags(creature_ptr, TR_RES_NETHER);
1453     return result;
1454 }
1455
1456 BIT_FLAGS has_resist_time(player_type *creature_ptr)
1457 {
1458     BIT_FLAGS result = 0L;
1459
1460     if (creature_ptr->tim_res_time) {
1461         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1462     }
1463
1464     result |= check_equipment_flags(creature_ptr, TR_RES_TIME);
1465     return result;
1466 }
1467
1468 BIT_FLAGS has_resist_water(player_type *creature_ptr)
1469 {
1470     BIT_FLAGS result = 0L;
1471
1472     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_MERFOLK)
1473         result |= 0x01 << FLAG_CAUSE_RACE;
1474
1475     result |= check_equipment_flags(creature_ptr, TR_RES_WATER);
1476     return result;
1477 }
1478
1479 BIT_FLAGS has_resist_fear(player_type *creature_ptr)
1480 {
1481     BIT_FLAGS result = 0L;
1482
1483     if (creature_ptr->muta3 & MUT3_FEARLESS)
1484         result |= 0x01 << FLAG_CAUSE_MUTATION;
1485
1486     switch (creature_ptr->pclass) {
1487     case CLASS_WARRIOR:
1488     case CLASS_SAMURAI:
1489         if (creature_ptr->lev > 29)
1490             result |= 0x01 << FLAG_CAUSE_CLASS;
1491         break;
1492     case CLASS_PALADIN:
1493     case CLASS_CHAOS_WARRIOR:
1494         if (creature_ptr->lev > 39)
1495             result |= 0x01 << FLAG_CAUSE_CLASS;
1496         break;
1497     case CLASS_MINDCRAFTER:
1498         if (creature_ptr->lev > 9)
1499             result |= 0x01 << FLAG_CAUSE_CLASS;
1500         break;
1501     case CLASS_NINJA:
1502         result |= 0x01 << FLAG_CAUSE_CLASS;
1503         break;
1504     }
1505
1506     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1507         result |= 0x01 << FLAG_CAUSE_RACE;
1508     }
1509
1510     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_BARBARIAN)
1511         result |= 0x01 << FLAG_CAUSE_RACE;
1512
1513     if ((creature_ptr->special_defense & KATA_MUSOU)) {
1514         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1515     }
1516
1517     if (is_hero(creature_ptr) || is_shero(creature_ptr) || creature_ptr->ult_res) {
1518         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1519     }
1520
1521     result |= check_equipment_flags(creature_ptr, TR_RES_FEAR);
1522     return result;
1523 }
1524
1525 BIT_FLAGS has_immune_acid(player_type *creature_ptr)
1526 {
1527     BIT_FLAGS result = 0L;
1528     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_YEEK && creature_ptr->lev > 19)
1529         result |= 0x01 << FLAG_CAUSE_RACE;
1530
1531     if (creature_ptr->ele_immune) {
1532         if (creature_ptr->special_defense & DEFENSE_ACID)
1533             result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1534     }
1535
1536     result |= check_equipment_flags(creature_ptr, TR_IM_ACID);
1537     return result;
1538 }
1539
1540 BIT_FLAGS has_immune_elec(player_type *creature_ptr)
1541 {
1542     BIT_FLAGS result = 0L;
1543
1544     if (creature_ptr->ele_immune) {
1545         if (creature_ptr->special_defense & DEFENSE_ELEC)
1546             result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1547     }
1548
1549     result |= check_equipment_flags(creature_ptr, TR_IM_ELEC);
1550     return result;
1551 }
1552
1553 BIT_FLAGS has_immune_fire(player_type *creature_ptr)
1554 {
1555     BIT_FLAGS result = 0L;
1556
1557     if (creature_ptr->ele_immune) {
1558         if (creature_ptr->special_defense & DEFENSE_FIRE)
1559             result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1560     }
1561
1562     result |= check_equipment_flags(creature_ptr, TR_IM_FIRE);
1563     return result;
1564 }
1565
1566 BIT_FLAGS has_immune_cold(player_type *creature_ptr)
1567 {
1568     BIT_FLAGS result = 0L;
1569
1570     if (creature_ptr->ele_immune) {
1571         if (creature_ptr->special_defense & DEFENSE_COLD)
1572             result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1573     }
1574
1575     result |= check_equipment_flags(creature_ptr, TR_IM_COLD);
1576     return result;
1577 }
1578
1579 BIT_FLAGS has_immune_dark(player_type *creature_ptr)
1580 {
1581     BIT_FLAGS result = 0L;
1582
1583     if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1584         result |= 0x01 << FLAG_CAUSE_RACE;
1585     }
1586
1587     if (creature_ptr->wraith_form) {
1588         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1589     }
1590
1591     return result;
1592 }
1593
1594 bool has_right_hand_weapon(player_type *creature_ptr)
1595 {
1596     if (has_melee_weapon(creature_ptr, INVEN_RARM))
1597         return TRUE;
1598
1599     if (can_two_hands_wielding(creature_ptr)) {
1600         switch (creature_ptr->pclass) {
1601         case CLASS_MONK:
1602         case CLASS_FORCETRAINER:
1603         case CLASS_BERSERKER:
1604             if (empty_hands(creature_ptr, FALSE) == (EMPTY_HAND_RARM | EMPTY_HAND_LARM)) {
1605                 return TRUE;
1606             }
1607             break;
1608         }
1609     }
1610
1611     return FALSE;
1612 }
1613
1614 bool has_left_hand_weapon(player_type *creature_ptr) { return has_melee_weapon(creature_ptr, INVEN_LARM); }
1615
1616 bool has_two_handed_weapons(player_type *creature_ptr)
1617 {
1618     if (can_two_hands_wielding(creature_ptr)) {
1619         if (has_right_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_LARM)
1620             && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_RARM])) {
1621             return TRUE;
1622         } else if (has_left_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_RARM)
1623             && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_LARM])) {
1624             return TRUE;
1625         }
1626     }
1627     return FALSE;
1628 }
1629
1630 BIT_FLAGS has_lite(player_type *creature_ptr)
1631 {
1632     BIT_FLAGS result = 0L;
1633     if (creature_ptr->pclass == CLASS_NINJA)
1634         return 0L;
1635
1636     if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1637         result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1638     }
1639
1640     if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1641         result |= 0x01 << FLAG_CAUSE_RACE;
1642     }
1643
1644     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_VAMPIRE)
1645         result |= 0x01 << FLAG_CAUSE_RACE;
1646
1647     if (creature_ptr->ult_res) {
1648         result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1649     }
1650
1651     if (creature_ptr->special_defense & KATA_MUSOU) {
1652         result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1653     }
1654
1655     result |= has_sh_fire(creature_ptr);
1656
1657     return result;
1658 }
1659
1660 /*
1661  * @brief 両手持ちボーナスがもらえないかどうかを判定する。 / Does *not * get two hand wielding bonus.
1662  * @detail
1663  *  Only can get hit bonuses when wieids an enough light weapon which is lighter than 5 times of weight limit.
1664  *  If its weight is 10 times heavier or more than weight limit, gets hit penalty in calc_to_hit().
1665  */
1666 bool has_disable_two_handed_bonus(player_type *creature_ptr, int i)
1667 {
1668     if (has_melee_weapon(creature_ptr, INVEN_RARM + i) && has_two_handed_weapons(creature_ptr)) {
1669         object_type *o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1670         int limit = calc_weapon_weight_limit(creature_ptr) * 2;
1671
1672         /* Enable when two hand wields an enough light weapon */
1673         if (limit >= o_ptr->weight / 5)
1674             return FALSE;
1675     }
1676
1677     /* Disable when empty hands, one hand wieldings and heavy weapons */
1678     return TRUE;
1679 }
1680
1681 bool has_icky_wield_weapon(player_type *creature_ptr, int i)
1682 {
1683     object_type *o_ptr;
1684     BIT_FLAGS flgs[TR_FLAG_SIZE];
1685     o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1686     object_flags(creature_ptr, o_ptr, flgs);
1687
1688     if ((creature_ptr->pclass == CLASS_PRIEST) && (!(has_flag(flgs, TR_BLESSED))) && ((o_ptr->tval == TV_SWORD) || (o_ptr->tval == TV_POLEARM))) {
1689         return TRUE;
1690     } else if (creature_ptr->pclass == CLASS_SORCERER) {
1691         if (!((o_ptr->tval == TV_HAFTED) && ((o_ptr->sval == SV_WIZSTAFF) || (o_ptr->sval == SV_NAMAKE_HAMMER)))) {
1692             return TRUE;
1693         }
1694     }
1695     if (has_not_monk_weapon(creature_ptr, i) || has_not_ninja_weapon(creature_ptr, i)) {
1696         return TRUE;
1697     }
1698     return FALSE;
1699 }
1700
1701 bool has_riding_wield_weapon(player_type *creature_ptr, int i)
1702 {
1703     object_type *o_ptr;
1704     BIT_FLAGS flgs[TR_FLAG_SIZE];
1705     o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1706     object_flags(creature_ptr, o_ptr, flgs);
1707     if (creature_ptr->riding != 0 && !(o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE))
1708         && !has_flag(flgs, TR_RIDING)) {
1709         return TRUE;
1710     }
1711     return FALSE;
1712 }
1713
1714 bool has_not_ninja_weapon(player_type *creature_ptr, int i)
1715 {
1716     tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1717     OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1718     return creature_ptr->pclass == CLASS_NINJA
1719         && !((s_info[CLASS_NINJA].w_max[tval][sval] > WEAPON_EXP_BEGINNER) && (creature_ptr->inventory_list[INVEN_LARM - i].tval != TV_SHIELD));
1720 }
1721
1722 bool has_not_monk_weapon(player_type *creature_ptr, int i)
1723 {
1724     tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1725     OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1726     return ((creature_ptr->pclass == CLASS_MONK) || (creature_ptr->pclass == CLASS_FORCETRAINER))
1727         && !(s_info[creature_ptr->pclass].w_max[tval][sval]);
1728 }
1729
1730 bool has_good_luck(player_type *creature_ptr) { return (creature_ptr->pseikaku == PERSONALITY_LUCKY) || (creature_ptr->muta3 & MUT3_GOOD_LUCK); }