1 #include "player/player-status-flags.h"
2 #include "art-definition/art-sword-types.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"
33 static BIT_FLAGS check_equipment_flags(player_type *creature_ptr, tr_type tr_flag);
35 static BIT_FLAGS check_equipment_flags(player_type *creature_ptr, tr_type tr_flag)
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];
45 object_flags(creature_ptr, o_ptr, flgs);
47 if (has_flag(flgs, tr_flag))
48 result |= 0x01 << (i - INVEN_RARM);
53 bool is_kill_wall(player_type *creature_ptr)
55 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || music_singing(creature_ptr, MUSIC_WALL)) {
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)
69 bool is_pass_wall(player_type *creature_ptr)
73 if (creature_ptr->wraith_form || creature_ptr->tim_pass_wall || (!creature_ptr->mimic_form && creature_ptr->prace == RACE_SPECTRE)) {
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))
87 BIT_FLAGS is_xtra_might(player_type *creature_ptr)
89 BIT_FLAGS result = 0L;
90 result |= check_equipment_flags(creature_ptr, TR_XTRA_MIGHT);
94 BIT_FLAGS is_esp_evil(player_type *creature_ptr)
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;
101 result |= check_equipment_flags(creature_ptr, TR_ESP_EVIL);
105 BIT_FLAGS is_esp_animal(player_type *creature_ptr)
107 BIT_FLAGS result = 0L;
108 result |= check_equipment_flags(creature_ptr, TR_ESP_ANIMAL);
112 BIT_FLAGS is_esp_undead(player_type *creature_ptr)
114 BIT_FLAGS result = 0L;
115 result |= check_equipment_flags(creature_ptr, TR_ESP_UNDEAD);
119 BIT_FLAGS is_esp_demon(player_type *creature_ptr)
121 BIT_FLAGS result = 0L;
122 result |= check_equipment_flags(creature_ptr, TR_ESP_DEMON);
126 BIT_FLAGS is_esp_orc(player_type *creature_ptr)
128 BIT_FLAGS result = 0L;
129 result |= check_equipment_flags(creature_ptr, TR_ESP_ORC);
133 BIT_FLAGS is_esp_troll(player_type *creature_ptr)
135 BIT_FLAGS result = 0L;
136 result |= check_equipment_flags(creature_ptr, TR_ESP_TROLL);
140 BIT_FLAGS is_esp_giant(player_type *creature_ptr)
142 BIT_FLAGS result = 0L;
143 result |= check_equipment_flags(creature_ptr, TR_ESP_GIANT);
147 BIT_FLAGS is_esp_dragon(player_type *creature_ptr)
149 BIT_FLAGS result = 0L;
150 result |= check_equipment_flags(creature_ptr, TR_ESP_DRAGON);
154 BIT_FLAGS is_esp_human(player_type *creature_ptr)
156 BIT_FLAGS result = 0L;
157 result |= check_equipment_flags(creature_ptr, TR_ESP_HUMAN);
161 BIT_FLAGS is_esp_good(player_type *creature_ptr)
163 BIT_FLAGS result = 0L;
164 result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
168 BIT_FLAGS is_esp_nonliving(player_type *creature_ptr)
170 BIT_FLAGS result = 0L;
171 result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
175 BIT_FLAGS is_esp_unique(player_type *creature_ptr)
177 BIT_FLAGS result = 0L;
178 result |= check_equipment_flags(creature_ptr, TR_ESP_UNIQUE);
182 BIT_FLAGS is_esp_telepathy(player_type *creature_ptr)
184 BIT_FLAGS result = 0L;
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;
190 if (creature_ptr->muta3 & MUT3_ESP) {
191 result |= 0x01 << FLAG_CAUSE_MUTATION;
194 if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 29)
195 result |= 0x01 << FLAG_CAUSE_RACE;
197 if (is_specific_player_race(creature_ptr, RACE_SPECTRE) && creature_ptr->lev > 34)
198 result |= 0x01 << FLAG_CAUSE_RACE;
200 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 39)
201 result |= 0x01 << FLAG_CAUSE_CLASS;
203 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
204 result |= 0x01 << FLAG_CAUSE_RACE;
207 result |= check_equipment_flags(creature_ptr, TR_TELEPATHY);
211 BIT_FLAGS has_bless_blade(player_type *creature_ptr)
213 BIT_FLAGS result = 0L;
214 result |= check_equipment_flags(creature_ptr, TR_BLESSED);
218 BIT_FLAGS has_easy2_weapon(player_type *creature_ptr)
220 BIT_FLAGS result = 0L;
221 result |= check_equipment_flags(creature_ptr, TR_EASY2_WEAPON);
225 BIT_FLAGS has_down_saving(player_type *creature_ptr)
227 BIT_FLAGS result = 0L;
228 result |= check_equipment_flags(creature_ptr, TR_DOWN_SAVING);
232 BIT_FLAGS has_no_ac(player_type *creature_ptr)
234 BIT_FLAGS result = 0L;
235 result |= check_equipment_flags(creature_ptr, TR_NO_AC);
239 void has_no_flowed(player_type *creature_ptr)
242 bool has_sw = FALSE, has_kabe = FALSE;
243 OBJECT_IDX this_o_idx, next_o_idx = 0;
245 creature_ptr->no_flowed = FALSE;
247 if (creature_ptr->pass_wall && !creature_ptr->kill_wall)
248 creature_ptr->no_flowed = TRUE;
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))
253 if ((creature_ptr->inventory_list[i].tval == TV_CRAFT_BOOK) && (creature_ptr->inventory_list[i].sval == 2))
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;
261 if ((o_ptr->tval == TV_NATURE_BOOK) && (o_ptr->sval == 2))
263 if ((o_ptr->tval == TV_CRAFT_BOOK) && (o_ptr->sval == 2))
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;
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;
280 BIT_FLAGS has_mighty_throw(player_type *creature_ptr)
282 BIT_FLAGS result = 0L;
283 result |= check_equipment_flags(creature_ptr, TR_MIGHTY_THROW);
287 BIT_FLAGS has_dec_mana(player_type *creature_ptr)
289 BIT_FLAGS result = 0L;
290 result |= check_equipment_flags(creature_ptr, TR_DEC_MANA);
294 BIT_FLAGS has_reflect(player_type *creature_ptr)
296 BIT_FLAGS result = 0L;
298 if (creature_ptr->pclass == CLASS_BERSERKER && creature_ptr->lev > 39)
299 result |= 0x01 << FLAG_CAUSE_CLASS;
301 if (creature_ptr->pclass == CLASS_MIRROR_MASTER && creature_ptr->lev > 39)
302 result |= 0x01 << FLAG_CAUSE_CLASS;
304 if (creature_ptr->special_defense & KAMAE_GENBU || creature_ptr->special_defense & KATA_MUSOU) {
305 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
308 if (creature_ptr->ult_res || creature_ptr->wraith_form || creature_ptr->magicdef || creature_ptr->tim_reflect) {
309 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
312 result |= check_equipment_flags(creature_ptr, TR_REFLECT);
316 BIT_FLAGS has_see_nocto(player_type *creature_ptr) { return creature_ptr->pclass == CLASS_NINJA ? FLAG_CAUSE_CLASS : 0L; }
318 BIT_FLAGS has_warning(player_type *creature_ptr)
320 BIT_FLAGS result = 0L;
322 BIT_FLAGS flgs[TR_FLAG_SIZE];
324 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
325 o_ptr = &creature_ptr->inventory_list[i];
329 object_flags(creature_ptr, o_ptr, flgs);
331 if (has_flag(flgs, TR_WARNING)) {
332 if (!o_ptr->inscription || !(angband_strchr(quark_str(o_ptr->inscription), '$')))
333 result |= 0x01 << (i - INVEN_RARM);
339 BIT_FLAGS has_anti_magic(player_type *creature_ptr)
341 BIT_FLAGS result = 0L;
342 result |= check_equipment_flags(creature_ptr, TR_NO_MAGIC);
346 BIT_FLAGS has_anti_tele(player_type *creature_ptr)
348 BIT_FLAGS result = 0L;
349 result |= check_equipment_flags(creature_ptr, TR_NO_TELE);
353 BIT_FLAGS has_sh_fire(player_type *creature_ptr)
355 BIT_FLAGS result = 0L;
357 if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
358 result |= 0x01 << FLAG_CAUSE_MUTATION;
361 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
362 result |= 0x01 << FLAG_CAUSE_RACE;
365 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
366 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
369 if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_sh_fire) {
370 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
373 result |= check_equipment_flags(creature_ptr, TR_SH_FIRE);
377 BIT_FLAGS has_sh_elec(player_type *creature_ptr)
379 BIT_FLAGS result = 0L;
381 if (creature_ptr->muta3 & MUT3_ELEC_TOUC)
382 result |= 0x01 << FLAG_CAUSE_MUTATION;
384 if (hex_spelling(creature_ptr, HEX_SHOCK_CLOAK) || creature_ptr->ult_res) {
385 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
388 if (creature_ptr->special_defense & KAMAE_SEIRYU || (creature_ptr->special_defense & KATA_MUSOU)) {
389 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
392 result |= check_equipment_flags(creature_ptr, TR_SH_ELEC);
396 BIT_FLAGS has_sh_cold(player_type *creature_ptr)
398 BIT_FLAGS result = 0L;
400 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
401 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
404 if (creature_ptr->ult_res || hex_spelling(creature_ptr, HEX_ICE_ARMOR)) {
405 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
408 result |= check_equipment_flags(creature_ptr, TR_SH_COLD);
412 BIT_FLAGS has_easy_spell(player_type *creature_ptr)
414 BIT_FLAGS result = 0L;
415 result |= check_equipment_flags(creature_ptr, TR_EASY_SPELL);
419 BIT_FLAGS has_heavy_spell(player_type *creature_ptr)
421 BIT_FLAGS result = 0L;
422 result |= check_equipment_flags(creature_ptr, TR_HEAVY_SPELL);
426 BIT_FLAGS has_hold_exp(player_type *creature_ptr)
428 BIT_FLAGS result = 0L;
430 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
431 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
434 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
435 result |= 0x01 << FLAG_CAUSE_RACE;
438 if (is_specific_player_race(creature_ptr, RACE_HOBBIT) || is_specific_player_race(creature_ptr, RACE_SKELETON)
439 || is_specific_player_race(creature_ptr, RACE_ZOMBIE) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
440 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_BALROG)
441 || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
442 result |= 0x01 << FLAG_CAUSE_RACE;
445 if (is_specific_player_race(creature_ptr, RACE_GOLEM)) {
446 if (creature_ptr->lev > 34)
447 result |= 0x01 << FLAG_CAUSE_RACE;
450 if (creature_ptr->special_defense & KATA_MUSOU) {
451 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
454 if (creature_ptr->ult_res) {
455 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
458 result |= check_equipment_flags(creature_ptr, TR_HOLD_EXP);
462 BIT_FLAGS has_see_inv(player_type *creature_ptr)
464 BIT_FLAGS result = 0L;
466 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 29)
467 result |= 0x01 << FLAG_CAUSE_CLASS;
469 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
470 result |= 0x01 << FLAG_CAUSE_RACE;
471 } else if (is_specific_player_race(creature_ptr, RACE_HIGH_ELF) || is_specific_player_race(creature_ptr, RACE_GOLEM)
472 || is_specific_player_race(creature_ptr, RACE_SKELETON) || is_specific_player_race(creature_ptr, RACE_ZOMBIE)
473 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ARCHON)) {
474 result |= 0x01 << FLAG_CAUSE_RACE;
475 } else if (is_specific_player_race(creature_ptr, RACE_DARK_ELF) && creature_ptr->lev > 19) {
476 result |= 0x01 << FLAG_CAUSE_RACE;
477 } else if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 14) {
478 result |= 0x01 << FLAG_CAUSE_RACE;
479 } else if ((is_specific_player_race(creature_ptr, RACE_IMP) || is_specific_player_race(creature_ptr, RACE_BALROG)) && creature_ptr->lev > 9) {
480 result |= 0x01 << FLAG_CAUSE_RACE;
483 if (creature_ptr->special_defense & KATA_MUSOU) {
484 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
487 if (creature_ptr->ult_res || creature_ptr->tim_invis) {
488 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
491 result |= check_equipment_flags(creature_ptr, TR_SEE_INVIS);
495 BIT_FLAGS has_free_act(player_type *creature_ptr)
497 BIT_FLAGS result = 0L;
499 if (creature_ptr->muta3 & MUT3_MOTION)
500 result |= 0x01 << FLAG_CAUSE_MUTATION;
502 if (is_specific_player_race(creature_ptr, RACE_GNOME) || is_specific_player_race(creature_ptr, RACE_GOLEM)
503 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
504 result |= 0x01 << FLAG_CAUSE_RACE;
507 if (heavy_armor(creature_ptr) && (!creature_ptr->inventory_list[INVEN_RARM].k_idx || has_right_hand_weapon(creature_ptr))
508 && (!creature_ptr->inventory_list[INVEN_LARM].k_idx || has_left_hand_weapon(creature_ptr))) {
509 if (creature_ptr->lev > 24)
510 result |= 0x01 << FLAG_CAUSE_CLASS;
513 if (creature_ptr->pclass == CLASS_MONK || creature_ptr->pclass == CLASS_FORCETRAINER) {
514 if (!(heavy_armor(creature_ptr))) {
515 if (creature_ptr->lev > 24)
516 result |= 0x01 << FLAG_CAUSE_CLASS;
520 if (creature_ptr->pclass == CLASS_BERSERKER) {
521 result |= 0x01 << FLAG_CAUSE_CLASS;
524 if (creature_ptr->ult_res || creature_ptr->magicdef) {
525 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
528 if (creature_ptr->special_defense & KATA_MUSOU) {
529 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
532 result |= check_equipment_flags(creature_ptr, TR_FREE_ACT);
536 BIT_FLAGS is_sustain_str(player_type *creature_ptr)
538 BIT_FLAGS result = 0L;
540 if (creature_ptr->pclass == CLASS_BERSERKER) {
541 result |= 0x01 << FLAG_CAUSE_CLASS;
543 if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) || is_specific_player_race(creature_ptr, RACE_HALF_OGRE)
544 || is_specific_player_race(creature_ptr, RACE_HALF_GIANT)) {
545 result |= 0x01 << FLAG_CAUSE_RACE;
548 if (creature_ptr->ult_res) {
549 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
552 if (creature_ptr->special_defense & KATA_MUSOU) {
553 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
556 result |= check_equipment_flags(creature_ptr, TR_SUST_STR);
560 BIT_FLAGS is_sustain_int(player_type *creature_ptr)
562 BIT_FLAGS result = 0L;
564 if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER)) {
565 result |= 0x01 << FLAG_CAUSE_RACE;
568 if (creature_ptr->ult_res) {
569 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
572 if (creature_ptr->special_defense & KATA_MUSOU) {
573 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
576 result |= check_equipment_flags(creature_ptr, TR_SUST_INT);
580 BIT_FLAGS is_sustain_wis(player_type *creature_ptr)
582 BIT_FLAGS result = 0L;
585 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 19)
586 result |= 0x01 << FLAG_CAUSE_CLASS;
588 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_MIND_FLAYER)) {
589 result |= 0x01 << FLAG_CAUSE_RACE;
592 if (creature_ptr->ult_res) {
593 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
596 if (creature_ptr->special_defense & KATA_MUSOU) {
597 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
600 result |= check_equipment_flags(creature_ptr, TR_SUST_WIS);
604 BIT_FLAGS is_sustain_dex(player_type *creature_ptr)
606 BIT_FLAGS result = 0L;
607 if (creature_ptr->pclass == CLASS_BERSERKER) {
608 result |= 0x01 << FLAG_CAUSE_CLASS;
611 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 24)
612 result |= 0x01 << FLAG_CAUSE_CLASS;
614 if (creature_ptr->ult_res) {
615 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
618 if (creature_ptr->special_defense & KATA_MUSOU) {
619 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
622 result |= check_equipment_flags(creature_ptr, TR_SUST_DEX);
626 BIT_FLAGS is_sustain_con(player_type *creature_ptr)
628 BIT_FLAGS result = 0L;
629 if (creature_ptr->pclass == CLASS_BERSERKER) {
630 result |= 0x01 << FLAG_CAUSE_CLASS;
633 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_AMBERITE || creature_ptr->prace == RACE_DUNADAN)) {
634 result |= 0x01 << FLAG_CAUSE_RACE;
637 if (creature_ptr->ult_res) {
638 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
641 if (creature_ptr->special_defense & KATA_MUSOU) {
642 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
645 result |= check_equipment_flags(creature_ptr, TR_SUST_CON);
649 BIT_FLAGS is_sustain_chr(player_type *creature_ptr)
651 BIT_FLAGS result = 0L;
653 if (creature_ptr->ult_res) {
654 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
657 if (creature_ptr->special_defense & KATA_MUSOU) {
658 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
661 result |= check_equipment_flags(creature_ptr, TR_SUST_CHR);
665 BIT_FLAGS has_levitation(player_type *creature_ptr)
667 BIT_FLAGS result = 0L;
669 if (creature_ptr->muta3 & MUT3_WINGS)
670 result = FLAG_CAUSE_MUTATION;
672 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
673 result = FLAG_CAUSE_RACE;
676 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SPECTRE)
677 || is_specific_player_race(creature_ptr, RACE_SPRITE) || is_specific_player_race(creature_ptr, RACE_ARCHON)
678 || is_specific_player_race(creature_ptr, RACE_S_FAIRY)) {
679 result = FLAG_CAUSE_RACE;
682 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KAMAE_SUZAKU || (creature_ptr->special_defense & KATA_MUSOU)) {
683 result = FLAG_CAUSE_BATTLE_FORM;
686 if (creature_ptr->ult_res) {
687 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
690 if (creature_ptr->riding) {
691 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
692 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
693 result = (riding_r_ptr->flags7 & RF7_CAN_FLY) ? result : 0;
696 if (creature_ptr->tim_levitation) {
697 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
700 result |= check_equipment_flags(creature_ptr, TR_LEVITATION);
704 void has_can_swim(player_type *creature_ptr)
706 creature_ptr->can_swim = FALSE;
707 if (creature_ptr->riding) {
708 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
709 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
710 if (riding_r_ptr->flags7 & (RF7_CAN_SWIM | RF7_AQUATIC))
711 creature_ptr->can_swim = TRUE;
715 BIT_FLAGS has_slow_digest(player_type *creature_ptr)
717 BIT_FLAGS result = 0L;
719 if (creature_ptr->pclass == CLASS_NINJA) {
720 result = FLAG_CAUSE_CLASS;
723 if (creature_ptr->lev > 14 && !creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TROLL) {
724 if (creature_ptr->pclass == CLASS_WARRIOR || creature_ptr->pclass == CLASS_BERSERKER) {
725 result = FLAG_CAUSE_CLASS;
726 /* Let's not make Regeneration
727 * a disadvantage for the poor warriors who can
728 * never learn a spell that satisfies hunger (actually
729 * neither can rogues, but half-trolls are not
730 * supposed to play rogues) */
734 if (creature_ptr->special_defense & KATA_MUSOU) {
735 result = FLAG_CAUSE_BATTLE_FORM;
738 if (creature_ptr->ult_res) {
739 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
742 if (!creature_ptr->mimic_form
743 && (creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_SPECTRE
744 || creature_ptr->prace == RACE_ANDROID)) {
745 result = FLAG_CAUSE_RACE;
748 result |= check_equipment_flags(creature_ptr, TR_SLOW_DIGEST);
752 BIT_FLAGS has_regenerate(player_type *creature_ptr)
754 BIT_FLAGS result = 0L;
756 if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) && creature_ptr->lev > 14) {
757 result |= 0x01 << FLAG_CAUSE_RACE;
760 if (is_specific_player_race(creature_ptr, RACE_AMBERITE)) {
761 result |= 0x01 << FLAG_CAUSE_RACE;
764 if (creature_ptr->pclass == CLASS_WARRIOR && creature_ptr->lev > 44) {
765 result |= 0x01 << FLAG_CAUSE_RACE;
768 if (creature_ptr->pclass == CLASS_BERSERKER) {
769 result |= 0x01 << FLAG_CAUSE_RACE;
772 if (creature_ptr->muta3 & MUT3_REGEN)
773 result |= 0x01 << FLAG_CAUSE_MUTATION;
775 if (creature_ptr->special_defense & KATA_MUSOU) {
776 result |= 0x01 << FLAG_CAUSE_MUTATION;
779 if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_regen) {
780 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
783 result |= check_equipment_flags(creature_ptr, TR_REGEN);
785 if (creature_ptr->muta3 & MUT3_FLESH_ROT)
791 void has_curses(player_type *creature_ptr)
794 BIT_FLAGS flgs[TR_FLAG_SIZE];
795 creature_ptr->cursed = 0L;
797 if (creature_ptr->pseikaku == PERSONALITY_SEXY)
798 creature_ptr->cursed |= (TRC_AGGRAVATE);
800 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
801 o_ptr = &creature_ptr->inventory_list[i];
804 object_flags(creature_ptr, o_ptr, flgs);
805 if (has_flag(flgs, TR_AGGRAVATE))
806 creature_ptr->cursed |= TRC_AGGRAVATE;
807 if (has_flag(flgs, TR_DRAIN_EXP))
808 creature_ptr->cursed |= TRC_DRAIN_EXP;
809 if (has_flag(flgs, TR_TY_CURSE))
810 creature_ptr->cursed |= TRC_TY_CURSE;
811 if (has_flag(flgs, TR_ADD_L_CURSE))
812 creature_ptr->cursed |= TRC_ADD_L_CURSE;
813 if (has_flag(flgs, TR_ADD_H_CURSE))
814 creature_ptr->cursed |= TRC_ADD_H_CURSE;
815 if (has_flag(flgs, TR_DRAIN_HP))
816 creature_ptr->cursed |= TRC_DRAIN_HP;
817 if (has_flag(flgs, TR_DRAIN_MANA))
818 creature_ptr->cursed |= TRC_DRAIN_MANA;
819 if (has_flag(flgs, TR_CALL_ANIMAL))
820 creature_ptr->cursed |= TRC_CALL_ANIMAL;
821 if (has_flag(flgs, TR_CALL_DEMON))
822 creature_ptr->cursed |= TRC_CALL_DEMON;
823 if (has_flag(flgs, TR_CALL_DRAGON))
824 creature_ptr->cursed |= TRC_CALL_DRAGON;
825 if (has_flag(flgs, TR_CALL_UNDEAD))
826 creature_ptr->cursed |= TRC_CALL_UNDEAD;
827 if (has_flag(flgs, TR_COWARDICE))
828 creature_ptr->cursed |= TRC_COWARDICE;
829 if (has_flag(flgs, TR_LOW_MELEE))
830 creature_ptr->cursed |= TRC_LOW_MELEE;
831 if (has_flag(flgs, TR_LOW_AC))
832 creature_ptr->cursed |= TRC_LOW_AC;
833 if (has_flag(flgs, TR_LOW_MAGIC))
834 creature_ptr->cursed |= TRC_LOW_MAGIC;
835 if (has_flag(flgs, TR_FAST_DIGEST))
836 creature_ptr->cursed |= TRC_FAST_DIGEST;
837 if (has_flag(flgs, TR_SLOW_REGEN))
838 creature_ptr->cursed |= TRC_SLOW_REGEN;
840 creature_ptr->cursed |= (o_ptr->curse_flags & (0xFFFFFFF0L));
841 if (o_ptr->name1 == ART_CHAINSWORD)
842 creature_ptr->cursed |= TRC_CHAINSWORD;
844 if (has_flag(flgs, TR_TELEPORT)) {
845 if (object_is_cursed(o_ptr))
846 creature_ptr->cursed |= TRC_TELEPORT;
848 concptr insc = quark_str(o_ptr->inscription);
850 /* {.} will stop random teleportation. */
851 if (o_ptr->inscription && angband_strchr(insc, '.')) {
853 creature_ptr->cursed |= TRC_TELEPORT_SELF;
859 if (creature_ptr->cursed & TRC_TELEPORT)
860 creature_ptr->cursed &= ~(TRC_TELEPORT_SELF);
862 if ((is_specific_player_race(creature_ptr, RACE_S_FAIRY)) && (creature_ptr->pseikaku != PERSONALITY_SEXY) && (creature_ptr->cursed & TRC_AGGRAVATE)) {
863 creature_ptr->cursed &= ~(TRC_AGGRAVATE);
867 BIT_FLAGS has_impact(player_type *creature_ptr)
869 BIT_FLAGS result = 0L;
870 result |= check_equipment_flags(creature_ptr, TR_IMPACT);
874 void has_extra_blow(player_type *creature_ptr)
877 BIT_FLAGS flgs[TR_FLAG_SIZE];
878 creature_ptr->extra_blows[0] = creature_ptr->extra_blows[1] = 0;
880 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
881 o_ptr = &creature_ptr->inventory_list[i];
885 object_flags(creature_ptr, o_ptr, flgs);
886 if (has_flag(flgs, TR_BLOWS)) {
887 if ((i == INVEN_RARM || i == INVEN_RIGHT) && !has_two_handed_weapons(creature_ptr))
888 creature_ptr->extra_blows[0] += o_ptr->pval;
889 else if ((i == INVEN_LARM || i == INVEN_LEFT) && !has_two_handed_weapons(creature_ptr))
890 creature_ptr->extra_blows[1] += o_ptr->pval;
892 creature_ptr->extra_blows[0] += o_ptr->pval;
893 creature_ptr->extra_blows[1] += o_ptr->pval;
899 BIT_FLAGS is_resist_acid(player_type *creature_ptr)
901 BIT_FLAGS result = 0L;
903 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
904 result |= 0x01 << FLAG_CAUSE_RACE;
905 } else if (is_specific_player_race(creature_ptr, RACE_YEEK) || is_specific_player_race(creature_ptr, RACE_KLACKON)) {
906 result |= 0x01 << FLAG_CAUSE_RACE;
907 } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 14) {
908 result |= 0x01 << FLAG_CAUSE_RACE;
911 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
912 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
915 if (creature_ptr->ult_res) {
916 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
919 result |= is_immune_acid(creature_ptr);
921 result |= check_equipment_flags(creature_ptr, TR_RES_ACID);
925 BIT_FLAGS is_vuln_acid(player_type *creature_ptr)
927 BIT_FLAGS result = 0L;
928 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
929 result |= 0x01 << FLAG_CAUSE_MUTATION;
932 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
933 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
938 PERCENTAGE calc_vuln_acid_rate(player_type *creature_ptr)
940 PERCENTAGE per = 100;
942 BIT_FLAGS flgs = is_vuln_acid(creature_ptr);
943 for (i = 0; i < FLAG_CAUSE_MAX; i++) {
944 if (flgs & (0x01 << i)) {
945 if (i == FLAG_CAUSE_MUTATION) {
955 BIT_FLAGS is_resist_elec(player_type *creature_ptr)
957 BIT_FLAGS result = 0L;
959 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
960 result |= 0x01 << FLAG_CAUSE_RACE;
961 } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 19) {
962 result |= 0x01 << FLAG_CAUSE_RACE;
965 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
966 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
969 if (creature_ptr->ult_res) {
970 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
973 result |= check_equipment_flags(creature_ptr, TR_RES_ELEC);
974 result |= is_immune_elec(creature_ptr);
978 BIT_FLAGS is_vuln_elec(player_type *creature_ptr)
980 BIT_FLAGS result = 0L;
981 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
982 result |= 0x01 << FLAG_CAUSE_MUTATION;
985 if (is_specific_player_race(creature_ptr, RACE_ANDROID)) {
986 result |= 0x01 << FLAG_CAUSE_RACE;
989 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
990 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
995 PERCENTAGE calc_vuln_elec_rate(player_type *creature_ptr)
997 PERCENTAGE per = 100;
999 BIT_FLAGS flgs = is_vuln_elec(creature_ptr);
1000 for (i = 0; i < FLAG_CAUSE_MAX; i++) {
1001 if (flgs & (0x01 << i)) {
1002 if (i == FLAG_CAUSE_MUTATION) {
1012 BIT_FLAGS is_resist_fire(player_type *creature_ptr)
1014 BIT_FLAGS result = 0L;
1016 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1017 result |= 0x01 << FLAG_CAUSE_RACE;
1020 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 4) {
1021 result |= 0x01 << FLAG_CAUSE_RACE;
1024 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_IMP || creature_ptr->prace == RACE_BALROG)) {
1025 result |= 0x01 << FLAG_CAUSE_RACE;
1028 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1029 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1032 if (creature_ptr->ult_res) {
1033 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1036 result |= check_equipment_flags(creature_ptr, TR_RES_FIRE);
1037 result |= is_immune_fire(creature_ptr);
1041 BIT_FLAGS is_vuln_fire(player_type *creature_ptr)
1043 BIT_FLAGS result = 0L;
1044 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1045 result |= 0x01 << FLAG_CAUSE_MUTATION;
1048 if (is_specific_player_race(creature_ptr, RACE_ENT)) {
1049 result |= 0x01 << FLAG_CAUSE_RACE;
1052 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1053 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1058 PERCENTAGE calc_vuln_fire_rate(player_type *creature_ptr)
1060 PERCENTAGE per = 100;
1062 BIT_FLAGS flgs = is_vuln_fire(creature_ptr);
1063 for (i = 0; i < FLAG_CAUSE_MAX; i++) {
1064 if (flgs & (0x01 << i)) {
1065 if (i == FLAG_CAUSE_MUTATION) {
1075 BIT_FLAGS is_resist_cold(player_type *creature_ptr)
1077 BIT_FLAGS result = 0L;
1079 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1080 result |= 0x01 << FLAG_CAUSE_RACE;
1083 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ZOMBIE) && creature_ptr->lev > 4) {
1084 result |= 0x01 << FLAG_CAUSE_RACE;
1087 if ((is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SKELETON)) && creature_ptr->lev > 9) {
1088 result |= 0x01 << FLAG_CAUSE_RACE;
1091 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE)) {
1092 result |= 0x01 << FLAG_CAUSE_RACE;
1095 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1096 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1099 if (creature_ptr->ult_res) {
1100 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1103 result |= check_equipment_flags(creature_ptr, TR_RES_COLD);
1104 result |= is_immune_cold(creature_ptr);
1108 BIT_FLAGS is_vuln_cold(player_type *creature_ptr)
1110 BIT_FLAGS result = 0L;
1111 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1112 result |= 0x01 << FLAG_CAUSE_MUTATION;
1115 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1116 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1121 PERCENTAGE calc_vuln_cold_rate(player_type *creature_ptr)
1123 PERCENTAGE per = 100;
1125 BIT_FLAGS flgs = is_vuln_cold(creature_ptr);
1126 for (i = 0; i < FLAG_CAUSE_MAX; i++) {
1127 if (flgs & (0x01 << i)) {
1128 if (i == FLAG_CAUSE_MUTATION) {
1138 BIT_FLAGS is_resist_pois(player_type *creature_ptr)
1140 BIT_FLAGS result = 0L;
1142 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 19)
1143 result |= 0x01 << FLAG_CAUSE_CLASS;
1145 if (creature_ptr->mimic_form == MIMIC_VAMPIRE || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1146 result |= 0x01 << FLAG_CAUSE_RACE;
1149 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 34) {
1150 result |= 0x01 << FLAG_CAUSE_RACE;
1153 if (!creature_ptr->mimic_form
1154 && (creature_ptr->prace == RACE_KOBOLD || creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_SKELETON
1155 || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE || creature_ptr->prace == RACE_ANDROID)) {
1156 result |= 0x01 << FLAG_CAUSE_RACE;
1159 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1160 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1163 if (creature_ptr->ult_res) {
1164 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1167 result |= check_equipment_flags(creature_ptr, TR_RES_POIS);
1171 BIT_FLAGS is_resist_conf(player_type *creature_ptr)
1173 BIT_FLAGS result = 0L;
1175 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 29)
1176 result |= 0x01 << FLAG_CAUSE_CLASS;
1178 if (creature_ptr->pseikaku == PERSONALITY_CHARGEMAN || creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1179 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1182 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_KLACKON || creature_ptr->prace == RACE_BEASTMAN || creature_ptr->prace == RACE_KUTAR)) {
1183 result |= 0x01 << FLAG_CAUSE_RACE;
1186 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1187 result |= 0x01 << FLAG_CAUSE_RACE;
1190 if (creature_ptr->ult_res || creature_ptr->magicdef) {
1191 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1194 if (creature_ptr->special_defense & KATA_MUSOU) {
1195 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1198 result |= check_equipment_flags(creature_ptr, TR_RES_CONF);
1202 BIT_FLAGS is_resist_sound(player_type *creature_ptr)
1204 BIT_FLAGS result = 0L;
1206 if (creature_ptr->pclass == CLASS_BARD) {
1207 result |= 0x01 << FLAG_CAUSE_CLASS;
1210 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_CYCLOPS || creature_ptr->prace == RACE_BEASTMAN)) {
1211 result |= 0x01 << FLAG_CAUSE_RACE;
1214 if (creature_ptr->special_defense & KATA_MUSOU) {
1215 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1218 if (creature_ptr->ult_res) {
1219 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1222 result |= check_equipment_flags(creature_ptr, TR_RES_SOUND);
1226 BIT_FLAGS is_resist_lite(player_type *creature_ptr)
1228 BIT_FLAGS result = 0L;
1230 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ELF || creature_ptr->prace == RACE_HIGH_ELF || creature_ptr->prace == RACE_SPRITE)) {
1231 result |= 0x01 << FLAG_CAUSE_RACE;
1234 if (creature_ptr->special_defense & KATA_MUSOU) {
1235 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1238 if (creature_ptr->ult_res) {
1239 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1242 result |= check_equipment_flags(creature_ptr, TR_RES_LITE);
1246 BIT_FLAGS is_vuln_lite(player_type *creature_ptr)
1248 BIT_FLAGS result = 0L;
1249 if (is_specific_player_race(creature_ptr, RACE_S_FAIRY) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
1250 || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1251 result |= 0x01 << FLAG_CAUSE_RACE;
1254 if (creature_ptr->wraith_form) {
1255 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1261 BIT_FLAGS is_resist_dark(player_type *creature_ptr)
1263 BIT_FLAGS result = 0L;
1265 if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1266 result |= 0x01 << FLAG_CAUSE_RACE;
1269 if (!creature_ptr->mimic_form
1270 && (creature_ptr->prace == RACE_HALF_ORC || creature_ptr->prace == RACE_HALF_OGRE || creature_ptr->prace == RACE_NIBELUNG
1271 || creature_ptr->prace == RACE_DARK_ELF || creature_ptr->prace == RACE_VAMPIRE)) {
1272 result |= 0x01 << FLAG_CAUSE_RACE;
1275 if (creature_ptr->special_defense & KATA_MUSOU) {
1276 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1279 if (creature_ptr->ult_res) {
1280 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1283 result |= check_equipment_flags(creature_ptr, TR_RES_DARK);
1287 BIT_FLAGS is_resist_chaos(player_type *creature_ptr)
1289 BIT_FLAGS result = 0L;
1291 if (creature_ptr->pclass == CLASS_CHAOS_WARRIOR && creature_ptr->lev > 29)
1292 result |= 0x01 << FLAG_CAUSE_CLASS;
1294 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1295 result |= 0x01 << FLAG_CAUSE_RACE;
1298 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TITAN)
1299 result |= 0x01 << FLAG_CAUSE_RACE;
1301 if (creature_ptr->special_defense & KATA_MUSOU) {
1302 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1305 if (creature_ptr->ult_res) {
1306 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1309 result |= check_equipment_flags(creature_ptr, TR_RES_CHAOS);
1313 BIT_FLAGS is_resist_disen(player_type *creature_ptr)
1315 BIT_FLAGS result = 0L;
1317 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1318 result |= 0x01 << FLAG_CAUSE_RACE;
1321 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_NIBELUNG)
1322 result |= 0x01 << FLAG_CAUSE_RACE;
1324 if (creature_ptr->special_defense & KATA_MUSOU) {
1325 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1328 if (creature_ptr->ult_res) {
1329 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1332 result |= check_equipment_flags(creature_ptr, TR_RES_DISEN);
1336 BIT_FLAGS is_resist_shard(player_type *creature_ptr)
1338 BIT_FLAGS result = 0L;
1340 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_HALF_TITAN || creature_ptr->prace == RACE_SKELETON))
1341 result |= 0x01 << FLAG_CAUSE_RACE;
1343 if (creature_ptr->special_defense & KATA_MUSOU) {
1344 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1347 if (creature_ptr->ult_res) {
1348 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1351 result |= check_equipment_flags(creature_ptr, TR_RES_SHARDS);
1355 BIT_FLAGS is_resist_nexus(player_type *creature_ptr)
1357 BIT_FLAGS result = 0L;
1359 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1360 result |= 0x01 << FLAG_CAUSE_RACE;
1363 if (creature_ptr->special_defense & KATA_MUSOU) {
1364 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1367 if (creature_ptr->ult_res) {
1368 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1371 result |= check_equipment_flags(creature_ptr, TR_RES_NEXUS);
1375 BIT_FLAGS is_resist_blind(player_type *creature_ptr)
1377 BIT_FLAGS result = 0L;
1379 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1380 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1383 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DWARF)
1384 result |= 0x01 << FLAG_CAUSE_RACE;
1386 if (creature_ptr->special_defense & KATA_MUSOU) {
1387 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1390 if (creature_ptr->ult_res || creature_ptr->magicdef) {
1391 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1394 result |= check_equipment_flags(creature_ptr, TR_RES_BLIND);
1398 BIT_FLAGS is_resist_neth(player_type *creature_ptr)
1400 BIT_FLAGS result = 0L;
1402 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1403 result |= 0x01 << FLAG_CAUSE_RACE;
1406 if (!creature_ptr->mimic_form
1407 && (creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE
1408 || creature_ptr->prace == RACE_BALROG))
1409 result |= 0x01 << FLAG_CAUSE_RACE;
1411 if (creature_ptr->special_defense & KATA_MUSOU) {
1412 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1415 if (creature_ptr->ult_res || creature_ptr->tim_res_nether) {
1416 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1419 result |= check_equipment_flags(creature_ptr, TR_RES_NETHER);
1423 BIT_FLAGS is_resist_time(player_type *creature_ptr)
1425 BIT_FLAGS result = 0L;
1427 if (creature_ptr->tim_res_time) {
1428 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1431 result |= check_equipment_flags(creature_ptr, TR_RES_TIME);
1435 BIT_FLAGS is_resist_water(player_type *creature_ptr)
1437 BIT_FLAGS result = 0L;
1439 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_MERFOLK)
1440 result |= 0x01 << FLAG_CAUSE_RACE;
1442 result |= check_equipment_flags(creature_ptr, TR_RES_WATER);
1446 BIT_FLAGS is_resist_fear(player_type *creature_ptr)
1448 BIT_FLAGS result = 0L;
1450 if (creature_ptr->muta3 & MUT3_FEARLESS)
1451 result |= 0x01 << FLAG_CAUSE_MUTATION;
1453 switch (creature_ptr->pclass) {
1456 if (creature_ptr->lev > 29)
1457 result |= 0x01 << FLAG_CAUSE_CLASS;
1460 case CLASS_CHAOS_WARRIOR:
1461 if (creature_ptr->lev > 39)
1462 result |= 0x01 << FLAG_CAUSE_CLASS;
1464 case CLASS_MINDCRAFTER:
1465 if (creature_ptr->lev > 9)
1466 result |= 0x01 << FLAG_CAUSE_CLASS;
1469 result |= 0x01 << FLAG_CAUSE_CLASS;
1473 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1474 result |= 0x01 << FLAG_CAUSE_RACE;
1477 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_BARBARIAN)
1478 result |= 0x01 << FLAG_CAUSE_RACE;
1480 if ((creature_ptr->special_defense & KATA_MUSOU)) {
1481 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1484 if (is_hero(creature_ptr) || is_shero(creature_ptr) || creature_ptr->ult_res) {
1485 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1488 result |= check_equipment_flags(creature_ptr, TR_RES_FEAR);
1492 BIT_FLAGS is_immune_acid(player_type *creature_ptr)
1494 BIT_FLAGS result = 0L;
1495 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_YEEK && creature_ptr->lev > 19)
1496 result |= 0x01 << FLAG_CAUSE_RACE;
1498 if (creature_ptr->ele_immune) {
1499 if (creature_ptr->special_defense & DEFENSE_ACID)
1500 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1503 result |= check_equipment_flags(creature_ptr, TR_IM_ACID);
1507 BIT_FLAGS is_immune_elec(player_type *creature_ptr)
1509 BIT_FLAGS result = 0L;
1511 if (creature_ptr->ele_immune) {
1512 if (creature_ptr->special_defense & DEFENSE_ELEC)
1513 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1516 result |= check_equipment_flags(creature_ptr, TR_IM_ELEC);
1520 BIT_FLAGS is_immune_fire(player_type *creature_ptr)
1522 BIT_FLAGS result = 0L;
1524 if (creature_ptr->ele_immune) {
1525 if (creature_ptr->special_defense & DEFENSE_FIRE)
1526 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1529 result |= check_equipment_flags(creature_ptr, TR_IM_FIRE);
1533 BIT_FLAGS is_immune_cold(player_type *creature_ptr)
1535 BIT_FLAGS result = 0L;
1537 if (creature_ptr->ele_immune) {
1538 if (creature_ptr->special_defense & DEFENSE_COLD)
1539 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1542 result |= check_equipment_flags(creature_ptr, TR_IM_COLD);
1546 bool has_right_hand_weapon(player_type *creature_ptr)
1548 if (has_melee_weapon(creature_ptr, INVEN_RARM))
1551 if (can_two_hands_wielding(creature_ptr)) {
1552 switch (creature_ptr->pclass) {
1554 case CLASS_FORCETRAINER:
1555 case CLASS_BERSERKER:
1556 if (empty_hands(creature_ptr, FALSE) == (EMPTY_HAND_RARM | EMPTY_HAND_LARM)) {
1566 bool has_left_hand_weapon(player_type *creature_ptr) { return has_melee_weapon(creature_ptr, INVEN_LARM); }
1568 bool has_two_handed_weapons(player_type *creature_ptr)
1570 if (can_two_hands_wielding(creature_ptr)) {
1571 if (has_right_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_LARM)
1572 && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_RARM])) {
1574 } else if (has_left_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_RARM)
1575 && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_LARM])) {
1582 BIT_FLAGS has_lite(player_type *creature_ptr)
1584 BIT_FLAGS result = 0L;
1585 if (creature_ptr->pclass == CLASS_NINJA)
1588 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1589 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1592 if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1593 result |= 0x01 << FLAG_CAUSE_RACE;
1596 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_VAMPIRE)
1597 result |= 0x01 << FLAG_CAUSE_RACE;
1599 if (creature_ptr->ult_res) {
1600 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1603 if (creature_ptr->special_defense & KATA_MUSOU) {
1604 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1607 result |= has_sh_fire(creature_ptr);
1612 bool is_disable_two_handed_bonus(player_type *creature_ptr, int i)
1615 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1616 if (has_melee_weapon(creature_ptr, INVEN_RARM + i)) {
1617 if (calc_weapon_weight_limit(creature_ptr) * 2 >= o_ptr->weight / 10 && has_two_handed_weapons(creature_ptr)
1618 && (calc_weapon_weight_limit(creature_ptr) * 2 < o_ptr->weight / 5))
1624 bool is_icky_wield_weapon(player_type *creature_ptr, int i)
1627 BIT_FLAGS flgs[TR_FLAG_SIZE];
1628 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1629 object_flags(creature_ptr, o_ptr, flgs);
1631 if ((creature_ptr->pclass == CLASS_PRIEST) && (!(has_flag(flgs, TR_BLESSED))) && ((o_ptr->tval == TV_SWORD) || (o_ptr->tval == TV_POLEARM))) {
1633 } else if (creature_ptr->pclass == CLASS_SORCERER) {
1634 if (!((o_ptr->tval == TV_HAFTED) && ((o_ptr->sval == SV_WIZSTAFF) || (o_ptr->sval == SV_NAMAKE_HAMMER)))) {
1638 if (is_not_monk_weapon(creature_ptr, i) || is_not_ninja_weapon(creature_ptr, i)) {
1644 bool is_riding_wield_weapon(player_type *creature_ptr, int i)
1647 BIT_FLAGS flgs[TR_FLAG_SIZE];
1648 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1649 object_flags(creature_ptr, o_ptr, flgs);
1650 if (creature_ptr->riding != 0 && !(o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE))
1651 && !has_flag(flgs, TR_RIDING)) {
1657 bool is_not_ninja_weapon(player_type *creature_ptr, int i)
1659 tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1660 OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1661 return creature_ptr->pclass == CLASS_NINJA
1662 && !((s_info[CLASS_NINJA].w_max[tval][sval] > WEAPON_EXP_BEGINNER) && (creature_ptr->inventory_list[INVEN_LARM - i].tval != TV_SHIELD));
1665 bool is_not_monk_weapon(player_type *creature_ptr, int i)
1667 tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1668 OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1669 return (creature_ptr->pclass == CLASS_MONK) || (creature_ptr->pclass == CLASS_FORCETRAINER) && (!s_info[creature_ptr->pclass].w_max[tval][sval]);
1672 bool has_good_luck(player_type *creature_ptr) { return (creature_ptr->pseikaku == PERSONALITY_LUCKY) || (creature_ptr->muta3 & MUT3_GOOD_LUCK); }