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