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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 has_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 |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 188     }
 189
 190     if (creature_ptr->muta3 & MUT3_ESP) {
 191         result |= FLAG_CAUSE_MUTATION;
 192     }
 193
 194     if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 29)
 195         result |= FLAG_CAUSE_RACE;
 196
 197     if (is_specific_player_race(creature_ptr, RACE_SPECTRE) && creature_ptr->lev > 34)
 198         result |= FLAG_CAUSE_RACE;
 199
 200     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 39)
 201         result |= FLAG_CAUSE_CLASS;
 202
 203     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 204         result |= 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 |= FLAG_CAUSE_CLASS;
 300
 301     if (creature_ptr->pclass == CLASS_MIRROR_MASTER && creature_ptr->lev > 39)
 302         result |= FLAG_CAUSE_CLASS;
 303
 304     if (creature_ptr->special_defense & KAMAE_GENBU || creature_ptr->special_defense & KATA_MUSOU) {
 305         result |= 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 |= 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 void has_warning(player_type *creature_ptr)
 319 {
 320     object_type *o_ptr;
 321     BIT_FLAGS flgs[TR_FLAG_SIZE];
 322
 323     creature_ptr->warning = FALSE;
 324
 325     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 326         o_ptr = &creature_ptr->inventory_list[i];
 327         if (!o_ptr->k_idx)
 328             continue;
 329
 330         object_flags(creature_ptr, o_ptr, flgs);
 331
 332         if (has_flag(flgs, TR_WARNING)) {
 333             if (!o_ptr->inscription || !(angband_strchr(quark_str(o_ptr->inscription), '$')))
 334                 creature_ptr->warning = TRUE;
 335         }
 336     }
 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 |= FLAG_CAUSE_MUTATION;
 359     }
 360
 361     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 362         result |= FLAG_CAUSE_RACE;
 363     }
 364
 365     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 366         result |= 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 |= 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 |= FLAG_CAUSE_MUTATION;
 383
 384     if (hex_spelling(creature_ptr, HEX_SHOCK_CLOAK) || creature_ptr->ult_res) {
 385         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 386     }
 387
 388     if (creature_ptr->special_defense & KAMAE_SEIRYU || (creature_ptr->special_defense & KATA_MUSOU)) {
 389         result |= 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 |= FLAG_CAUSE_BATTLE_FORM;
 402     }
 403
 404     if (creature_ptr->ult_res || hex_spelling(creature_ptr, HEX_ICE_ARMOR)) {
 405         result |= 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 |= 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 |= 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 |= FLAG_CAUSE_RACE;
 443     }
 444
 445     if (is_specific_player_race(creature_ptr, RACE_GOLEM)) {
 446         if (creature_ptr->lev > 34)
 447             result |= FLAG_CAUSE_RACE;
 448     }
 449
 450     if (creature_ptr->special_defense & KATA_MUSOU) {
 451         result |= FLAG_CAUSE_BATTLE_FORM;
 452     }
 453
 454     if (creature_ptr->ult_res) {
 455         result |= 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 |= 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 |= FLAG_CAUSE_RACE;
 471     }
 472     else if (is_specific_player_race(creature_ptr->mimic_form, RACE_HIGH_ELF)
 473         || is_specific_player_race(creature_ptr->mimic_form, RACE_GOLEM)
 474         || is_specific_player_race(creature_ptr->mimic_form, RACE_SKELETON)
 475         || is_specific_player_race(creature_ptr->mimic_form, RACE_ZOMBIE)
 476         || is_specific_player_race(creature_ptr->mimic_form, RACE_SPECTRE)
 477         || is_specific_player_race(creature_ptr->mimic_form, RACE_ARCHON))
 478     {
 479         result |= FLAG_CAUSE_RACE;
 480     }
 481     else if (is_specific_player_race(creature_ptr->mimic_form, RACE_DARK_ELF) && creature_ptr->lev > 19) {
 482         result |= FLAG_CAUSE_RACE;
 483     }
 484     else if (is_specific_player_race(creature_ptr->mimic_form, RACE_MIND_FLAYER) && creature_ptr->lev > 14) {
 485             result |= FLAG_CAUSE_RACE;
 486     }
 487     else if ((is_specific_player_race(creature_ptr->mimic_form, RACE_IMP) || is_specific_player_race(creature_ptr->mimic_form, RACE_BALROG))
 488         && creature_ptr->lev > 9) {
 489             result |= FLAG_CAUSE_RACE;
 490     }
 491
 492     if (creature_ptr->special_defense & KATA_MUSOU) {
 493         result |= FLAG_CAUSE_BATTLE_FORM;
 494     }
 495
 496     if (creature_ptr->ult_res || creature_ptr->tim_invis) {
 497         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 498     }
 499
 500         result |= check_equipment_flags(creature_ptr, TR_SEE_INVIS);
 501     return result;
 502
 503 }
 504
 505 BIT_FLAGS has_free_act(player_type *creature_ptr)
 506 {
 507     BIT_FLAGS result = 0L;
 508
 509     if (creature_ptr->muta3 & MUT3_MOTION)
 510         result |= FLAG_CAUSE_MUTATION;
 511
 512     if (is_specific_player_race(creature_ptr, RACE_GNOME) || is_specific_player_race(creature_ptr, RACE_GOLEM)
 513         || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
 514         result |= FLAG_CAUSE_RACE;
 515     }
 516
 517     if (heavy_armor(creature_ptr) && (!creature_ptr->inventory_list[INVEN_RARM].k_idx || has_right_hand_weapon(creature_ptr))
 518         && (!creature_ptr->inventory_list[INVEN_LARM].k_idx || has_left_hand_weapon(creature_ptr))) {
 519         if (creature_ptr->lev > 24)
 520             result |= FLAG_CAUSE_CLASS;
 521     }
 522
 523     if (creature_ptr->pclass == CLASS_MONK || creature_ptr->pclass == CLASS_FORCETRAINER) {
 524         if (!(heavy_armor(creature_ptr))) {
 525             if (creature_ptr->lev > 24)
 526                 result |= FLAG_CAUSE_CLASS;
 527         }
 528     }
 529
 530     if (creature_ptr->pclass == CLASS_BERSERKER) {
 531         result |= FLAG_CAUSE_CLASS;
 532     }
 533
 534     if (creature_ptr->ult_res || creature_ptr->magicdef) {
 535         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 536     }
 537
 538     if (creature_ptr->special_defense & KATA_MUSOU) {
 539         result |= FLAG_CAUSE_BATTLE_FORM;
 540     }
 541
 542     result |= check_equipment_flags(creature_ptr, TR_FREE_ACT);
 543     return result;
 544 }
 545
 546 BIT_FLAGS has_sustain_str(player_type *creature_ptr)
 547 {
 548     BIT_FLAGS result = 0L;
 549
 550     if (creature_ptr->pclass == CLASS_BERSERKER) {
 551         result |= FLAG_CAUSE_CLASS;
 552     }
 553     if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) || is_specific_player_race(creature_ptr, RACE_HALF_OGRE)
 554         || is_specific_player_race(creature_ptr, RACE_HALF_GIANT)) {
 555         result |= FLAG_CAUSE_RACE;
 556     }
 557
 558     if (creature_ptr->ult_res) {
 559         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 560     }
 561
 562     if (creature_ptr->special_defense & KATA_MUSOU) {
 563         result |= FLAG_CAUSE_BATTLE_FORM;
 564     }
 565
 566     result |= check_equipment_flags(creature_ptr, TR_SUST_STR);
 567     return result;
 568 }
 569
 570 BIT_FLAGS has_sustain_int(player_type *creature_ptr)
 571 {
 572     BIT_FLAGS result = 0L;
 573
 574     if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER)) {
 575         result |= FLAG_CAUSE_RACE;
 576     }
 577
 578     if (creature_ptr->ult_res) {
 579         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 580     }
 581
 582     if (creature_ptr->special_defense & KATA_MUSOU) {
 583         result |= FLAG_CAUSE_BATTLE_FORM;
 584     }
 585
 586     result |= check_equipment_flags(creature_ptr, TR_SUST_INT);
 587     return result;
 588 }
 589
 590 BIT_FLAGS has_sustain_wis(player_type *creature_ptr)
 591 {
 592     BIT_FLAGS result = 0L;
 593
 594     result = FALSE;
 595     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 19)
 596         result |= FLAG_CAUSE_CLASS;
 597
 598     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_MIND_FLAYER)) {
 599         result |= FLAG_CAUSE_RACE;
 600     }
 601
 602     if (creature_ptr->ult_res) {
 603         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 604     }
 605
 606     if (creature_ptr->special_defense & KATA_MUSOU) {
 607         result |= FLAG_CAUSE_BATTLE_FORM;
 608     }
 609
 610     result |= check_equipment_flags(creature_ptr, TR_SUST_WIS);
 611     return result;
 612 }
 613
 614 BIT_FLAGS has_sustain_dex(player_type *creature_ptr)
 615 {
 616     BIT_FLAGS result = 0L;
 617     if (creature_ptr->pclass == CLASS_BERSERKER) {
 618         result |= FLAG_CAUSE_CLASS;
 619     }
 620
 621     if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 24)
 622         result |= FLAG_CAUSE_CLASS;
 623
 624     if (creature_ptr->ult_res) {
 625         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 626     }
 627
 628     if (creature_ptr->special_defense & KATA_MUSOU) {
 629         result |= FLAG_CAUSE_BATTLE_FORM;
 630     }
 631
 632     result |= check_equipment_flags(creature_ptr, TR_SUST_DEX);
 633     return result;
 634 }
 635
 636 BIT_FLAGS has_sustain_con(player_type *creature_ptr)
 637 {
 638     BIT_FLAGS result = 0L;
 639     if (creature_ptr->pclass == CLASS_BERSERKER) {
 640         result |= FLAG_CAUSE_CLASS;
 641     }
 642
 643     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_AMBERITE || creature_ptr->prace == RACE_DUNADAN)) {
 644         result |= FLAG_CAUSE_RACE;
 645     }
 646
 647     if (creature_ptr->ult_res) {
 648         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 649     }
 650
 651     if (creature_ptr->special_defense & KATA_MUSOU) {
 652         result |= FLAG_CAUSE_BATTLE_FORM;
 653     }
 654
 655     result |= check_equipment_flags(creature_ptr, TR_SUST_CON);
 656     return result;
 657 }
 658
 659 BIT_FLAGS has_sustain_chr(player_type *creature_ptr)
 660 {
 661     BIT_FLAGS result = 0L;
 662
 663     if (creature_ptr->ult_res) {
 664         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 665     }
 666
 667     if (creature_ptr->special_defense & KATA_MUSOU) {
 668         result |= FLAG_CAUSE_BATTLE_FORM;
 669     }
 670
 671     result |= check_equipment_flags(creature_ptr, TR_SUST_CHR);
 672     return result;
 673 }
 674
 675 BIT_FLAGS has_levitation(player_type *creature_ptr)
 676 {
 677     BIT_FLAGS result = 0L;
 678
 679     if (creature_ptr->muta3 & MUT3_WINGS)
 680         result = FLAG_CAUSE_MUTATION;
 681
 682     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 683         result = FLAG_CAUSE_RACE;
 684     }
 685
 686     if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SPECTRE)
 687         || is_specific_player_race(creature_ptr, RACE_SPRITE) || is_specific_player_race(creature_ptr, RACE_ARCHON)
 688         || is_specific_player_race(creature_ptr, RACE_S_FAIRY)) {
 689         result = FLAG_CAUSE_RACE;
 690     }
 691
 692     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KAMAE_SUZAKU || (creature_ptr->special_defense & KATA_MUSOU)) {
 693         result = FLAG_CAUSE_BATTLE_FORM;
 694     }
 695
 696     if (creature_ptr->ult_res) {
 697         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 698     }
 699
 700     if (creature_ptr->riding) {
 701         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
 702         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
 703         result = (riding_r_ptr->flags7 & RF7_CAN_FLY) ? result : 0;
 704     }
 705
 706     if (creature_ptr->tim_levitation) {
 707         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 708     }
 709
 710     result |= check_equipment_flags(creature_ptr, TR_LEVITATION);
 711     return result;
 712 }
 713
 714 void has_can_swim(player_type *creature_ptr)
 715 {
 716     creature_ptr->can_swim = FALSE;
 717     if (creature_ptr->riding) {
 718         monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
 719         monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
 720         if (riding_r_ptr->flags7 & (RF7_CAN_SWIM | RF7_AQUATIC))
 721             creature_ptr->can_swim = TRUE;
 722     }
 723 }
 724
 725 BIT_FLAGS has_slow_digest(player_type *creature_ptr)
 726 {
 727     BIT_FLAGS result = 0L;
 728
 729     if (creature_ptr->pclass == CLASS_NINJA) {
 730         result = FLAG_CAUSE_CLASS;
 731     }
 732
 733     if (creature_ptr->lev > 14 && !creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TROLL) {
 734         if (creature_ptr->pclass == CLASS_WARRIOR || creature_ptr->pclass == CLASS_BERSERKER) {
 735             result = FLAG_CAUSE_CLASS;
 736             /* Let's not make Regeneration
 737              * a disadvantage for the poor warriors who can
 738              * never learn a spell that satisfies hunger (actually
 739              * neither can rogues, but half-trolls are not
 740              * supposed to play rogues) */
 741         }
 742     }
 743
 744     if (creature_ptr->special_defense & KATA_MUSOU) {
 745         result = FLAG_CAUSE_BATTLE_FORM;
 746     }
 747
 748     if (creature_ptr->ult_res) {
 749         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 750     }
 751
 752     if (!creature_ptr->mimic_form
 753         && (creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_SPECTRE
 754             || creature_ptr->prace == RACE_ANDROID)) {
 755         result = FLAG_CAUSE_RACE;
 756     }
 757
 758     result |= check_equipment_flags(creature_ptr, TR_SLOW_DIGEST);
 759     return result;
 760 }
 761
 762 BIT_FLAGS has_regenerate(player_type *creature_ptr)
 763 {
 764     BIT_FLAGS result = 0L;
 765
 766     if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) && creature_ptr->lev > 14) {
 767         result |= FLAG_CAUSE_RACE;
 768     }
 769
 770     if (is_specific_player_race(creature_ptr, RACE_AMBERITE)) {
 771         result |= FLAG_CAUSE_RACE;
 772     }
 773
 774     if (creature_ptr->pclass == CLASS_WARRIOR && creature_ptr->lev > 44) {
 775         result |= FLAG_CAUSE_RACE;
 776         }
 777
 778         if (creature_ptr->pclass == CLASS_BERSERKER) {
 779         result |= FLAG_CAUSE_RACE;
 780     }
 781
 782     if (creature_ptr->muta3 & MUT3_REGEN)
 783         result |= FLAG_CAUSE_MUTATION;
 784
 785     if (creature_ptr->special_defense & KATA_MUSOU) {
 786         result |= FLAG_CAUSE_MUTATION;
 787     }
 788
 789     if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_regen) {
 790         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 791     }
 792
 793     result |= check_equipment_flags(creature_ptr, TR_REGEN);
 794
 795     if (creature_ptr->muta3 & MUT3_FLESH_ROT)
 796         result = 0L;
 797
 798     return result;
 799 }
 800
 801 void has_curses(player_type *creature_ptr)
 802 {
 803     object_type *o_ptr;
 804     BIT_FLAGS flgs[TR_FLAG_SIZE];
 805     creature_ptr->cursed = 0L;
 806
 807     if (creature_ptr->pseikaku == PERSONALITY_SEXY)
 808         creature_ptr->cursed |= (TRC_AGGRAVATE);
 809
 810     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 811         o_ptr = &creature_ptr->inventory_list[i];
 812         if (!o_ptr->k_idx)
 813             continue;
 814         object_flags(creature_ptr, o_ptr, flgs);
 815         if (has_flag(flgs, TR_AGGRAVATE))
 816             creature_ptr->cursed |= TRC_AGGRAVATE;
 817         if (has_flag(flgs, TR_DRAIN_EXP))
 818             creature_ptr->cursed |= TRC_DRAIN_EXP;
 819         if (has_flag(flgs, TR_TY_CURSE))
 820             creature_ptr->cursed |= TRC_TY_CURSE;
 821         if (has_flag(flgs, TR_ADD_L_CURSE))
 822             creature_ptr->cursed |= TRC_ADD_L_CURSE;
 823         if (has_flag(flgs, TR_ADD_H_CURSE))
 824             creature_ptr->cursed |= TRC_ADD_H_CURSE;
 825         if (has_flag(flgs, TR_DRAIN_HP))
 826             creature_ptr->cursed |= TRC_DRAIN_HP;
 827         if (has_flag(flgs, TR_DRAIN_MANA))
 828             creature_ptr->cursed |= TRC_DRAIN_MANA;
 829         if (has_flag(flgs, TR_CALL_ANIMAL))
 830             creature_ptr->cursed |= TRC_CALL_ANIMAL;
 831         if (has_flag(flgs, TR_CALL_DEMON))
 832             creature_ptr->cursed |= TRC_CALL_DEMON;
 833         if (has_flag(flgs, TR_CALL_DRAGON))
 834             creature_ptr->cursed |= TRC_CALL_DRAGON;
 835         if (has_flag(flgs, TR_CALL_UNDEAD))
 836             creature_ptr->cursed |= TRC_CALL_UNDEAD;
 837         if (has_flag(flgs, TR_COWARDICE))
 838             creature_ptr->cursed |= TRC_COWARDICE;
 839         if (has_flag(flgs, TR_LOW_MELEE))
 840             creature_ptr->cursed |= TRC_LOW_MELEE;
 841         if (has_flag(flgs, TR_LOW_AC))
 842             creature_ptr->cursed |= TRC_LOW_AC;
 843         if (has_flag(flgs, TR_LOW_MAGIC))
 844             creature_ptr->cursed |= TRC_LOW_MAGIC;
 845         if (has_flag(flgs, TR_FAST_DIGEST))
 846             creature_ptr->cursed |= TRC_FAST_DIGEST;
 847         if (has_flag(flgs, TR_SLOW_REGEN))
 848             creature_ptr->cursed |= TRC_SLOW_REGEN;
 849
 850         creature_ptr->cursed |= (o_ptr->curse_flags & (0xFFFFFFF0L));
 851         if (o_ptr->name1 == ART_CHAINSWORD)
 852             creature_ptr->cursed |= TRC_CHAINSWORD;
 853
 854         if (has_flag(flgs, TR_TELEPORT)) {
 855             if (object_is_cursed(o_ptr))
 856                 creature_ptr->cursed |= TRC_TELEPORT;
 857             else {
 858                 concptr insc = quark_str(o_ptr->inscription);
 859
 860                 /* {.} will stop random teleportation. */
 861                 if (o_ptr->inscription && angband_strchr(insc, '.')) {
 862                 } else {
 863                     creature_ptr->cursed |= TRC_TELEPORT_SELF;
 864                 }
 865             }
 866         }
 867     }
 868
 869     if (creature_ptr->cursed & TRC_TELEPORT)
 870         creature_ptr->cursed &= ~(TRC_TELEPORT_SELF);
 871
 872     if ((is_specific_player_race(creature_ptr, RACE_S_FAIRY)) && (creature_ptr->pseikaku != PERSONALITY_SEXY) && (creature_ptr->cursed & TRC_AGGRAVATE)) {
 873         creature_ptr->cursed &= ~(TRC_AGGRAVATE);
 874     }
 875 }
 876
 877 BIT_FLAGS has_impact(player_type *creature_ptr)
 878 {
 879     BIT_FLAGS result = 0L;
 880     result |= check_equipment_flags(creature_ptr, TR_IMPACT);
 881     return result;
 882 }
 883
 884 void has_extra_blow(player_type *creature_ptr)
 885 {
 886     object_type *o_ptr;
 887     BIT_FLAGS flgs[TR_FLAG_SIZE];
 888     creature_ptr->extra_blows[0] = creature_ptr->extra_blows[1] = 0;
 889
 890     for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
 891         o_ptr = &creature_ptr->inventory_list[i];
 892         if (!o_ptr->k_idx)
 893             continue;
 894
 895         object_flags(creature_ptr, o_ptr, flgs);
 896         if (has_flag(flgs, TR_BLOWS)) {
 897             if ((i == INVEN_RARM || i == INVEN_RIGHT) && !has_two_handed_weapons(creature_ptr))
 898                 creature_ptr->extra_blows[0] += o_ptr->pval;
 899             else if ((i == INVEN_LARM || i == INVEN_LEFT) && !has_two_handed_weapons(creature_ptr))
 900                 creature_ptr->extra_blows[1] += o_ptr->pval;
 901             else {
 902                 creature_ptr->extra_blows[0] += o_ptr->pval;
 903                 creature_ptr->extra_blows[1] += o_ptr->pval;
 904             }
 905         }
 906     }
 907 }
 908
 909 BIT_FLAGS has_resist_acid(player_type *creature_ptr)
 910 {
 911     BIT_FLAGS result = 0L;
 912
 913     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 914         result |= FLAG_CAUSE_RACE;
 915     }
 916
 917     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_YEEK || creature_ptr->prace == RACE_KLACKON)) {
 918         result |= FLAG_CAUSE_RACE;
 919     }
 920
 921     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DRACONIAN && creature_ptr->lev > 14) {
 922         result |= FLAG_CAUSE_RACE;
 923     }
 924
 925     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 926         result |= FLAG_CAUSE_BATTLE_FORM;
 927     }
 928
 929     if (creature_ptr->ult_res) {
 930         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 931     }
 932
 933     result |= has_immune_acid(creature_ptr);
 934
 935     result |= check_equipment_flags(creature_ptr, TR_RES_ACID);
 936     return result;
 937
 938 }
 939
 940 BIT_FLAGS has_resist_elec(player_type *creature_ptr)
 941 {
 942     BIT_FLAGS result = 0L;
 943
 944     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 945         result |= FLAG_CAUSE_RACE;
 946     }
 947
 948     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DRACONIAN && creature_ptr->lev > 19) {
 949         result |= FLAG_CAUSE_RACE;
 950     }
 951
 952     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 953         result |= FLAG_CAUSE_BATTLE_FORM;
 954     }
 955
 956     if (creature_ptr->ult_res) {
 957         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 958     }
 959
 960     result |= check_equipment_flags(creature_ptr, TR_RES_ELEC);
 961     result |= has_immune_elec(creature_ptr);
 962     return result;
 963 }
 964
 965 BIT_FLAGS has_resist_fire(player_type *creature_ptr)
 966 {
 967     BIT_FLAGS result = 0L;
 968
 969     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
 970         result |= FLAG_CAUSE_RACE;
 971     }
 972
 973     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DRACONIAN && creature_ptr->lev > 4) {
 974         result |= FLAG_CAUSE_RACE;
 975     }
 976
 977     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_IMP || creature_ptr->prace == RACE_BALROG)) {
 978         result |= FLAG_CAUSE_RACE;
 979     }
 980
 981     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
 982         result |= FLAG_CAUSE_BATTLE_FORM;
 983     }
 984
 985     if (creature_ptr->ult_res) {
 986         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
 987         }
 988
 989     result |= check_equipment_flags(creature_ptr, TR_RES_FIRE);
 990     result |= has_immune_fire(creature_ptr);
 991     return result;
 992 }
 993
 994 BIT_FLAGS has_resist_cold(player_type *creature_ptr)
 995 {
 996     BIT_FLAGS result = 0L;
 997
 998     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
 999         result |= FLAG_CAUSE_RACE;
1000     }
1001
1002     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ZOMBIE) && creature_ptr->lev > 4) {
1003         result |= FLAG_CAUSE_RACE;
1004     }
1005
1006     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_DRACONIAN || creature_ptr->prace == RACE_SKELETON) && creature_ptr->lev > 9) {
1007         result |= FLAG_CAUSE_RACE;
1008     }
1009
1010     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE)) {
1011         result |= FLAG_CAUSE_RACE;
1012     }
1013
1014     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1015         result |= FLAG_CAUSE_BATTLE_FORM;
1016     }
1017
1018     if (creature_ptr->ult_res) {
1019         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1020     }
1021
1022     result |= check_equipment_flags(creature_ptr, TR_RES_COLD);
1023     result |= has_immune_cold(creature_ptr);
1024     return result;
1025 }
1026
1027 BIT_FLAGS has_resist_pois(player_type *creature_ptr)
1028 {
1029     BIT_FLAGS result = 0L;
1030
1031     if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 19)
1032         result |= FLAG_CAUSE_CLASS;
1033
1034     if (creature_ptr->mimic_form == MIMIC_VAMPIRE || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1035         result |= FLAG_CAUSE_RACE;
1036     }
1037
1038     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DRACONIAN && creature_ptr->lev > 34) {
1039         result |= FLAG_CAUSE_RACE;
1040     }
1041
1042     if (!creature_ptr->mimic_form
1043         && (creature_ptr->prace == RACE_KOBOLD || creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_SKELETON
1044             || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE || creature_ptr->prace == RACE_ANDROID)) {
1045         result |= FLAG_CAUSE_RACE;
1046     }
1047
1048     if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1049         result |= FLAG_CAUSE_BATTLE_FORM;
1050     }
1051
1052     if (creature_ptr->ult_res) {
1053         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1054     }
1055
1056     result |= check_equipment_flags(creature_ptr, TR_RES_POIS);
1057     return result;
1058 }
1059
1060 BIT_FLAGS has_resist_conf(player_type *creature_ptr)
1061 {
1062     BIT_FLAGS result = 0L;
1063
1064     if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 29)
1065         result |= FLAG_CAUSE_CLASS;
1066
1067     if (creature_ptr->pseikaku == PERSONALITY_CHARGEMAN || creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1068         result |= FLAG_CAUSE_PERSONALITY;
1069     }
1070
1071     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_KLACKON || creature_ptr->prace == RACE_BEASTMAN || creature_ptr->prace == RACE_KUTAR)) {
1072         result |= FLAG_CAUSE_RACE;
1073     }
1074
1075     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1076         result |= FLAG_CAUSE_RACE;
1077     }
1078
1079     if (creature_ptr->ult_res || creature_ptr->magicdef) {
1080         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1081     }
1082
1083     if (creature_ptr->special_defense & KATA_MUSOU) {
1084         result |= FLAG_CAUSE_BATTLE_FORM;
1085     }
1086
1087     result |= check_equipment_flags(creature_ptr, TR_RES_CONF);
1088     return result;
1089 }
1090
1091 BIT_FLAGS has_resist_sound(player_type *creature_ptr)
1092 {
1093     BIT_FLAGS result = 0L;
1094
1095     if (creature_ptr->pclass == CLASS_BARD) {
1096         result |= FLAG_CAUSE_CLASS;
1097     }
1098
1099     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_CYCLOPS || creature_ptr->prace == RACE_BEASTMAN)) {
1100         result |= FLAG_CAUSE_RACE;
1101     }
1102
1103     if (creature_ptr->special_defense & KATA_MUSOU) {
1104         result |= FLAG_CAUSE_BATTLE_FORM;
1105     }
1106
1107     if (creature_ptr->ult_res) {
1108         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1109     }
1110
1111     result |= check_equipment_flags(creature_ptr, TR_RES_SOUND);
1112     return result;
1113 }
1114
1115 BIT_FLAGS has_resist_lite(player_type *creature_ptr)
1116 {
1117     BIT_FLAGS result = 0L;
1118
1119     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ELF || creature_ptr->prace == RACE_HIGH_ELF || creature_ptr->prace == RACE_SPRITE)) {
1120         result |= FLAG_CAUSE_RACE;
1121     }
1122
1123     if (creature_ptr->special_defense & KATA_MUSOU) {
1124         result |= FLAG_CAUSE_BATTLE_FORM;
1125     }
1126
1127     if (creature_ptr->ult_res) {
1128         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1129     }
1130
1131     result |= check_equipment_flags(creature_ptr, TR_RES_LITE);
1132     return result;
1133 }
1134
1135 BIT_FLAGS has_resist_dark(player_type *creature_ptr)
1136 {
1137     BIT_FLAGS result = 0L;
1138
1139     if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1140         result |= FLAG_CAUSE_RACE;
1141     }
1142
1143     if (!creature_ptr->mimic_form
1144         && (creature_ptr->prace == RACE_HALF_ORC || creature_ptr->prace == RACE_HALF_OGRE || creature_ptr->prace == RACE_NIBELUNG
1145             || creature_ptr->prace == RACE_DARK_ELF || creature_ptr->prace == RACE_VAMPIRE)) {
1146         result |= FLAG_CAUSE_RACE;
1147     }
1148
1149     if (creature_ptr->special_defense & KATA_MUSOU) {
1150         result |= FLAG_CAUSE_BATTLE_FORM;
1151     }
1152
1153     if (creature_ptr->ult_res) {
1154         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1155     }
1156
1157     result |= check_equipment_flags(creature_ptr, TR_RES_DARK);
1158     return result;
1159 }
1160
1161 BIT_FLAGS has_resist_chaos(player_type *creature_ptr)
1162 {
1163     BIT_FLAGS result = 0L;
1164
1165     if (creature_ptr->pclass == CLASS_CHAOS_WARRIOR && creature_ptr->lev > 29)
1166         result |= FLAG_CAUSE_CLASS;
1167
1168     if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1169         result |= FLAG_CAUSE_RACE;
1170     }
1171
1172     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TITAN)
1173         result |= FLAG_CAUSE_RACE;
1174
1175     if (creature_ptr->special_defense & KATA_MUSOU) {
1176         result |= FLAG_CAUSE_BATTLE_FORM;
1177     }
1178
1179     if (creature_ptr->ult_res) {
1180         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1181     }
1182
1183     result |= check_equipment_flags(creature_ptr, TR_RES_CHAOS);
1184     return result;
1185 }
1186
1187 BIT_FLAGS has_resist_disen(player_type *creature_ptr)
1188 {
1189     BIT_FLAGS result = 0L;
1190
1191     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1192         result |= FLAG_CAUSE_RACE;
1193     }
1194
1195     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_NIBELUNG)
1196         result |= FLAG_CAUSE_RACE;
1197
1198     if (creature_ptr->special_defense & KATA_MUSOU) {
1199         result |= FLAG_CAUSE_BATTLE_FORM;
1200     }
1201
1202     if (creature_ptr->ult_res) {
1203         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1204     }
1205
1206     result |= check_equipment_flags(creature_ptr, TR_RES_DISEN);
1207     return result;
1208 }
1209
1210 BIT_FLAGS has_resist_shard(player_type *creature_ptr)
1211 {
1212     BIT_FLAGS result = 0L;
1213
1214     if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_HALF_TITAN || creature_ptr->prace == RACE_SKELETON))
1215         result |= FLAG_CAUSE_RACE;
1216
1217     if (creature_ptr->special_defense & KATA_MUSOU) {
1218         result |= FLAG_CAUSE_BATTLE_FORM;
1219     }
1220
1221     if (creature_ptr->ult_res) {
1222         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1223     }
1224
1225     result |= check_equipment_flags(creature_ptr, TR_RES_SHARDS);
1226     return result;
1227 }
1228
1229 BIT_FLAGS has_resist_nexus(player_type *creature_ptr)
1230 {
1231     BIT_FLAGS result = 0L;
1232
1233     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1234         result |= FLAG_CAUSE_RACE;
1235     }
1236
1237     if (creature_ptr->special_defense & KATA_MUSOU) {
1238         result |= FLAG_CAUSE_BATTLE_FORM;
1239     }
1240
1241     if (creature_ptr->ult_res) {
1242         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1243     }
1244
1245     result |= check_equipment_flags(creature_ptr, TR_RES_NEXUS);
1246     return result;
1247 }
1248
1249 BIT_FLAGS has_resist_blind(player_type *creature_ptr)
1250 {
1251     BIT_FLAGS result = 0L;
1252
1253     if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1254         result |= FLAG_CAUSE_PERSONALITY;
1255     }
1256
1257     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DWARF)
1258         result |= FLAG_CAUSE_RACE;
1259
1260     if (creature_ptr->special_defense & KATA_MUSOU) {
1261         result |= FLAG_CAUSE_BATTLE_FORM;
1262     }
1263
1264     if (creature_ptr->ult_res || creature_ptr->magicdef) {
1265         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1266     }
1267
1268     result |= check_equipment_flags(creature_ptr, TR_RES_BLIND);
1269     return result;
1270 }
1271
1272 BIT_FLAGS has_resist_neth(player_type *creature_ptr)
1273 {
1274     BIT_FLAGS result = 0L;
1275
1276     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1277         result |= FLAG_CAUSE_RACE;
1278     }
1279
1280     if (!creature_ptr->mimic_form
1281         && (creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE
1282             || creature_ptr->prace == RACE_BALROG))
1283         result |= FLAG_CAUSE_RACE;
1284
1285     if (creature_ptr->special_defense & KATA_MUSOU) {
1286         result |= FLAG_CAUSE_BATTLE_FORM;
1287     }
1288
1289     if (creature_ptr->ult_res || creature_ptr->tim_res_nether) {
1290         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1291     }
1292
1293     result |= check_equipment_flags(creature_ptr, TR_RES_NETHER);
1294     return result;
1295 }
1296
1297 BIT_FLAGS has_resist_time(player_type *creature_ptr)
1298 {
1299     BIT_FLAGS result = 0L;
1300
1301     if (creature_ptr->tim_res_time) {
1302         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1303     }
1304
1305     result |= check_equipment_flags(creature_ptr, TR_RES_TIME);
1306     return result;
1307 }
1308
1309 BIT_FLAGS has_resist_water(player_type *creature_ptr)
1310 {
1311     BIT_FLAGS result = 0L;
1312
1313     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_MERFOLK)
1314         result |= FLAG_CAUSE_RACE;
1315
1316     result |= check_equipment_flags(creature_ptr, TR_RES_WATER);
1317     return result;
1318 }
1319
1320 BIT_FLAGS has_resist_fear(player_type *creature_ptr)
1321 {
1322     BIT_FLAGS result = 0L;
1323
1324     if (creature_ptr->muta3 & MUT3_FEARLESS)
1325         result |= FLAG_CAUSE_MUTATION;
1326
1327     switch (creature_ptr->pclass) {
1328     case CLASS_WARRIOR:
1329     case CLASS_SAMURAI:
1330         if (creature_ptr->lev > 29)
1331             result |= FLAG_CAUSE_CLASS;
1332         break;
1333     case CLASS_PALADIN:
1334     case CLASS_CHAOS_WARRIOR:
1335         if (creature_ptr->lev > 39)
1336             result |= FLAG_CAUSE_CLASS;
1337         break;
1338     case CLASS_MINDCRAFTER:
1339         if (creature_ptr->lev > 9)
1340             result |= FLAG_CAUSE_CLASS;
1341         break;
1342     case CLASS_NINJA:
1343         result |= FLAG_CAUSE_CLASS;
1344         break;
1345     }
1346
1347     if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1348         result |= FLAG_CAUSE_RACE;
1349     }
1350
1351     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_BARBARIAN)
1352         result |= FLAG_CAUSE_RACE;
1353
1354     if ((creature_ptr->special_defense & KATA_MUSOU)) {
1355         result |= FLAG_CAUSE_BATTLE_FORM;
1356     }
1357
1358     if (is_hero(creature_ptr) || creature_ptr->shero || creature_ptr->ult_res) {
1359         result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1360     }
1361
1362     result |= check_equipment_flags(creature_ptr, TR_RES_FEAR);
1363     return result;
1364 }
1365
1366 BIT_FLAGS has_immune_acid(player_type *creature_ptr)
1367 {
1368     BIT_FLAGS result = 0L;
1369     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_YEEK && creature_ptr->lev > 19)
1370         result |= FLAG_CAUSE_RACE;
1371
1372     if (creature_ptr->ele_immune) {
1373         if (creature_ptr->special_defense & DEFENSE_ACID)
1374             result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1375     }
1376
1377     result |= check_equipment_flags(creature_ptr, TR_IM_ACID);
1378     return result;
1379 }
1380
1381 BIT_FLAGS has_immune_elec(player_type *creature_ptr)
1382 {
1383     BIT_FLAGS result = 0L;
1384
1385         if (creature_ptr->ele_immune) {
1386         if (creature_ptr->special_defense & DEFENSE_ELEC)
1387             result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1388     }
1389
1390     result |= check_equipment_flags(creature_ptr, TR_IM_ELEC);
1391     return result;
1392 }
1393
1394 BIT_FLAGS has_immune_fire(player_type *creature_ptr)
1395 {
1396     BIT_FLAGS result = 0L;
1397
1398         if (creature_ptr->ele_immune) {
1399         if (creature_ptr->special_defense & DEFENSE_FIRE)
1400             result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1401     }
1402
1403     result |= check_equipment_flags(creature_ptr, TR_IM_FIRE);
1404     return result;
1405 }
1406
1407 BIT_FLAGS has_immune_cold(player_type *creature_ptr)
1408 {
1409     BIT_FLAGS result = 0L;
1410
1411         if (creature_ptr->ele_immune) {
1412         if (creature_ptr->special_defense & DEFENSE_COLD)
1413            result |= FLAG_CAUSE_MAGIC_TIME_EFFECT;
1414     }
1415
1416     result |= check_equipment_flags(creature_ptr, TR_IM_COLD);
1417     return result;
1418 }
1419
1420 bool has_right_hand_weapon(player_type *creature_ptr)
1421 {
1422     if (has_melee_weapon(creature_ptr, INVEN_RARM))
1423         return TRUE;
1424
1425     if (can_two_hands_wielding(creature_ptr)) {
1426         switch (creature_ptr->pclass) {
1427         case CLASS_MONK:
1428         case CLASS_FORCETRAINER:
1429         case CLASS_BERSERKER:
1430             if (empty_hands(creature_ptr, FALSE) == (EMPTY_HAND_RARM | EMPTY_HAND_LARM)) {
1431                 return TRUE;
1432             }
1433             break;
1434         }
1435     }
1436
1437     return FALSE;
1438 }
1439
1440 bool has_left_hand_weapon(player_type *creature_ptr) { return has_melee_weapon(creature_ptr, INVEN_LARM); }
1441
1442 bool has_two_handed_weapons(player_type *creature_ptr)
1443 {
1444     if (can_two_hands_wielding(creature_ptr)) {
1445         if (has_right_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_LARM)
1446             && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_RARM])) {
1447             return TRUE;
1448         } else if (has_left_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_RARM)
1449             && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_LARM])) {
1450             return TRUE;
1451         }
1452     }
1453     return FALSE;
1454 }
1455
1456 void has_lite(player_type *creature_ptr)
1457 {
1458     creature_ptr->lite = FALSE;
1459     if (creature_ptr->pclass == CLASS_NINJA)
1460         return;
1461
1462     if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1463         creature_ptr->lite = TRUE;
1464     }
1465
1466     if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1467         creature_ptr->lite = TRUE;
1468     }
1469
1470     if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
1471         creature_ptr->lite = TRUE;
1472     }
1473
1474     if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_VAMPIRE)
1475         creature_ptr->lite = TRUE;
1476
1477     if (creature_ptr->sh_fire)
1478         creature_ptr->lite = TRUE;
1479
1480     if (creature_ptr->ult_res || (creature_ptr->special_defense & KATA_MUSOU)) {
1481         creature_ptr->lite = TRUE;
1482     }
1483 }
1484
1485 bool is_disable_two_handed_bonus(player_type *creature_ptr, int i)
1486 {
1487     object_type *o_ptr;
1488     o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1489     if (has_melee_weapon(creature_ptr, INVEN_RARM + i)) {
1490         if (calc_weapon_weight_limit(creature_ptr) * 2 >= o_ptr->weight / 10 && has_two_handed_weapons(creature_ptr)
1491             && (calc_weapon_weight_limit(creature_ptr) * 2 < o_ptr->weight / 5))
1492             return TRUE;
1493     }
1494     return FALSE;
1495 }
1496
1497 bool is_icky_wield_weapon(player_type *creature_ptr, int i)
1498 {
1499     object_type *o_ptr;
1500     BIT_FLAGS flgs[TR_FLAG_SIZE];
1501     o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1502     object_flags(creature_ptr, o_ptr, flgs);
1503
1504     if ((creature_ptr->pclass == CLASS_PRIEST) && (!(has_flag(flgs, TR_BLESSED))) && ((o_ptr->tval == TV_SWORD) || (o_ptr->tval == TV_POLEARM))) {
1505         return TRUE;
1506     } else if (creature_ptr->pclass == CLASS_SORCERER) {
1507         if (!((o_ptr->tval == TV_HAFTED) && ((o_ptr->sval == SV_WIZSTAFF) || (o_ptr->sval == SV_NAMAKE_HAMMER)))) {
1508             return TRUE;
1509         }
1510     }
1511     if (is_not_monk_weapon(creature_ptr, i) || is_not_ninja_weapon(creature_ptr, i)) {
1512         return TRUE;
1513     }
1514     return FALSE;
1515 }
1516
1517 bool is_riding_wield_weapon(player_type *creature_ptr, int i)
1518 {
1519     object_type *o_ptr;
1520     BIT_FLAGS flgs[TR_FLAG_SIZE];
1521     o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1522     object_flags(creature_ptr, o_ptr, flgs);
1523     if (creature_ptr->riding != 0 && !(o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE))
1524         && !has_flag(flgs, TR_RIDING)) {
1525         return TRUE;
1526     }
1527     return FALSE;
1528 }
1529
1530 bool is_not_ninja_weapon(player_type *creature_ptr, int i)
1531 {
1532     tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1533     OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1534     return creature_ptr->pclass == CLASS_NINJA
1535         && !((s_info[CLASS_NINJA].w_max[tval][sval] > WEAPON_EXP_BEGINNER) && (creature_ptr->inventory_list[INVEN_LARM - i].tval != TV_SHIELD));
1536 }
1537
1538 bool is_not_monk_weapon(player_type *creature_ptr, int i)
1539 {
1540     tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1541     OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1542     return (creature_ptr->pclass == CLASS_MONK) || (creature_ptr->pclass == CLASS_FORCETRAINER) && (!s_info[creature_ptr->pclass].w_max[tval][sval]);
1543 }
1544
1545 bool has_good_luck(player_type *creature_ptr) { return (creature_ptr->pseikaku == PERSONALITY_LUCKY) || (creature_ptr->muta3 |= MUT3_GOOD_LUCK); };