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