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);
36 * @brief 装備による所定の特性フラグを得ているかを一括して取得する関数。
38 static BIT_FLAGS check_equipment_flags(player_type *creature_ptr, tr_type tr_flag)
41 BIT_FLAGS flgs[TR_FLAG_SIZE];
42 BIT_FLAGS result = 0L;
43 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
44 o_ptr = &creature_ptr->inventory_list[i];
48 object_flags(creature_ptr, o_ptr, flgs);
50 if (has_flag(flgs, tr_flag))
51 result |= 0x01 << (i - INVEN_RARM);
57 * @brief クリーチャーが壁破壊進行を持っているかを返す。
59 bool has_kill_wall(player_type *creature_ptr)
61 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || music_singing(creature_ptr, MUSIC_WALL)) {
65 if (creature_ptr->riding) {
66 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
67 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
68 if (riding_r_ptr->flags2 & RF2_KILL_WALL)
76 * @brief クリーチャーが壁通過を持っているかを返す。
78 bool has_pass_wall(player_type *creature_ptr)
82 if (creature_ptr->wraith_form || creature_ptr->tim_pass_wall || (!creature_ptr->mimic_form && creature_ptr->prace == RACE_SPECTRE)) {
86 if (creature_ptr->riding) {
87 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
88 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
89 if (!(riding_r_ptr->flags2 & RF2_PASS_WALL))
97 * @brief クリーチャーが強力射を持っているかを返す。
99 BIT_FLAGS has_xtra_might(player_type *creature_ptr)
101 BIT_FLAGS result = 0L;
102 result |= check_equipment_flags(creature_ptr, TR_XTRA_MIGHT);
107 * @brief クリーチャーが邪悪感知を持っているかを返す。
109 BIT_FLAGS has_esp_evil(player_type *creature_ptr)
111 BIT_FLAGS result = 0L;
112 if (creature_ptr->realm1 == REALM_HEX) {
113 if (hex_spelling(creature_ptr, HEX_DETECT_EVIL))
114 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
116 result |= check_equipment_flags(creature_ptr, TR_ESP_EVIL);
121 * @brief クリーチャーが自然界の動物感知を持っているかを返す。
123 BIT_FLAGS has_esp_animal(player_type *creature_ptr)
125 BIT_FLAGS result = 0L;
126 result |= check_equipment_flags(creature_ptr, TR_ESP_ANIMAL);
131 * @brief クリーチャーがアンデッド感知を持っているかを返す。
133 BIT_FLAGS has_esp_undead(player_type *creature_ptr)
135 BIT_FLAGS result = 0L;
136 result |= check_equipment_flags(creature_ptr, TR_ESP_UNDEAD);
140 BIT_FLAGS has_esp_demon(player_type *creature_ptr)
142 BIT_FLAGS result = 0L;
143 result |= check_equipment_flags(creature_ptr, TR_ESP_DEMON);
147 BIT_FLAGS has_esp_orc(player_type *creature_ptr)
149 BIT_FLAGS result = 0L;
150 result |= check_equipment_flags(creature_ptr, TR_ESP_ORC);
154 BIT_FLAGS has_esp_troll(player_type *creature_ptr)
156 BIT_FLAGS result = 0L;
157 result |= check_equipment_flags(creature_ptr, TR_ESP_TROLL);
161 BIT_FLAGS has_esp_giant(player_type *creature_ptr)
163 BIT_FLAGS result = 0L;
164 result |= check_equipment_flags(creature_ptr, TR_ESP_GIANT);
168 BIT_FLAGS has_esp_dragon(player_type *creature_ptr)
170 BIT_FLAGS result = 0L;
171 result |= check_equipment_flags(creature_ptr, TR_ESP_DRAGON);
175 BIT_FLAGS has_esp_human(player_type *creature_ptr)
177 BIT_FLAGS result = 0L;
178 result |= check_equipment_flags(creature_ptr, TR_ESP_HUMAN);
182 BIT_FLAGS has_esp_good(player_type *creature_ptr)
184 BIT_FLAGS result = 0L;
185 result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
189 BIT_FLAGS has_esp_nonliving(player_type *creature_ptr)
191 BIT_FLAGS result = 0L;
192 result |= check_equipment_flags(creature_ptr, TR_ESP_GOOD);
196 BIT_FLAGS has_esp_unique(player_type *creature_ptr)
198 BIT_FLAGS result = 0L;
199 result |= check_equipment_flags(creature_ptr, TR_ESP_UNIQUE);
203 BIT_FLAGS has_esp_telepathy(player_type *creature_ptr)
205 BIT_FLAGS result = 0L;
207 if (is_time_limit_esp(creature_ptr) || creature_ptr->ult_res || (creature_ptr->special_defense & KATA_MUSOU)) {
208 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
211 if (creature_ptr->muta3 & MUT3_ESP) {
212 result |= 0x01 << FLAG_CAUSE_MUTATION;
215 if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 29)
216 result |= 0x01 << FLAG_CAUSE_RACE;
218 if (is_specific_player_race(creature_ptr, RACE_SPECTRE) && creature_ptr->lev > 34)
219 result |= 0x01 << FLAG_CAUSE_RACE;
221 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 39)
222 result |= 0x01 << FLAG_CAUSE_CLASS;
224 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
225 result |= 0x01 << FLAG_CAUSE_RACE;
228 result |= check_equipment_flags(creature_ptr, TR_TELEPATHY);
232 BIT_FLAGS has_bless_blade(player_type *creature_ptr)
234 BIT_FLAGS result = 0L;
235 result |= check_equipment_flags(creature_ptr, TR_BLESSED);
239 BIT_FLAGS has_easy2_weapon(player_type *creature_ptr)
241 BIT_FLAGS result = 0L;
242 result |= check_equipment_flags(creature_ptr, TR_EASY2_WEAPON);
246 BIT_FLAGS has_down_saving(player_type *creature_ptr)
248 BIT_FLAGS result = 0L;
249 result |= check_equipment_flags(creature_ptr, TR_DOWN_SAVING);
253 BIT_FLAGS has_no_ac(player_type *creature_ptr)
255 BIT_FLAGS result = 0L;
256 result |= check_equipment_flags(creature_ptr, TR_NO_AC);
260 BIT_FLAGS has_invuln_arrow(player_type *creature_ptr)
262 BIT_FLAGS result = 0L;
263 if (creature_ptr->blind)
265 result |= check_equipment_flags(creature_ptr, TR_INVULN_ARROW);
269 void has_no_flowed(player_type *creature_ptr)
272 bool has_sw = FALSE, has_kabe = FALSE;
273 OBJECT_IDX this_o_idx, next_o_idx = 0;
275 creature_ptr->no_flowed = FALSE;
277 if (creature_ptr->pass_wall && !creature_ptr->kill_wall)
278 creature_ptr->no_flowed = TRUE;
280 for (int i = 0; i < INVEN_PACK; i++) {
281 if ((creature_ptr->inventory_list[i].tval == TV_NATURE_BOOK) && (creature_ptr->inventory_list[i].sval == 2))
283 if ((creature_ptr->inventory_list[i].tval == TV_CRAFT_BOOK) && (creature_ptr->inventory_list[i].sval == 2))
287 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) {
288 o_ptr = &creature_ptr->current_floor_ptr->o_list[this_o_idx];
289 next_o_idx = o_ptr->next_o_idx;
291 if ((o_ptr->tval == TV_NATURE_BOOK) && (o_ptr->sval == 2))
293 if ((o_ptr->tval == TV_CRAFT_BOOK) && (o_ptr->sval == 2))
297 if (has_sw && ((creature_ptr->realm1 == REALM_NATURE) || (creature_ptr->realm2 == REALM_NATURE) || (creature_ptr->pclass == CLASS_SORCERER))) {
298 const magic_type *s_ptr = &mp_ptr->info[REALM_NATURE - 1][SPELL_SW];
299 if (creature_ptr->lev >= s_ptr->slevel)
300 creature_ptr->no_flowed = TRUE;
303 if (has_kabe && ((creature_ptr->realm1 == REALM_CRAFT) || (creature_ptr->realm2 == REALM_CRAFT) || (creature_ptr->pclass == CLASS_SORCERER))) {
304 const magic_type *s_ptr = &mp_ptr->info[REALM_CRAFT - 1][SPELL_WALL];
305 if (creature_ptr->lev >= s_ptr->slevel)
306 creature_ptr->no_flowed = TRUE;
310 BIT_FLAGS has_mighty_throw(player_type *creature_ptr)
312 BIT_FLAGS result = 0L;
313 result |= check_equipment_flags(creature_ptr, TR_MIGHTY_THROW);
317 BIT_FLAGS has_dec_mana(player_type *creature_ptr)
319 BIT_FLAGS result = 0L;
320 result |= check_equipment_flags(creature_ptr, TR_DEC_MANA);
324 BIT_FLAGS has_reflect(player_type *creature_ptr)
326 BIT_FLAGS result = 0L;
328 if (creature_ptr->pclass == CLASS_BERSERKER && creature_ptr->lev > 39)
329 result |= 0x01 << FLAG_CAUSE_CLASS;
331 if (creature_ptr->pclass == CLASS_MIRROR_MASTER && creature_ptr->lev > 39)
332 result |= 0x01 << FLAG_CAUSE_CLASS;
334 if (creature_ptr->special_defense & KAMAE_GENBU || creature_ptr->special_defense & KATA_MUSOU) {
335 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
338 if (creature_ptr->ult_res || creature_ptr->wraith_form || creature_ptr->magicdef || creature_ptr->tim_reflect) {
339 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
342 result |= check_equipment_flags(creature_ptr, TR_REFLECT);
346 BIT_FLAGS has_see_nocto(player_type *creature_ptr) { return creature_ptr->pclass == CLASS_NINJA ? FLAG_CAUSE_CLASS : 0L; }
348 BIT_FLAGS has_warning(player_type *creature_ptr)
350 BIT_FLAGS result = 0L;
352 BIT_FLAGS flgs[TR_FLAG_SIZE];
354 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
355 o_ptr = &creature_ptr->inventory_list[i];
359 object_flags(creature_ptr, o_ptr, flgs);
361 if (has_flag(flgs, TR_WARNING)) {
362 if (!o_ptr->inscription || !(angband_strchr(quark_str(o_ptr->inscription), '$')))
363 result |= 0x01 << (i - INVEN_RARM);
369 BIT_FLAGS has_anti_magic(player_type *creature_ptr)
371 BIT_FLAGS result = 0L;
372 result |= check_equipment_flags(creature_ptr, TR_NO_MAGIC);
376 BIT_FLAGS has_anti_tele(player_type *creature_ptr)
378 BIT_FLAGS result = 0L;
379 result |= check_equipment_flags(creature_ptr, TR_NO_TELE);
383 BIT_FLAGS has_sh_fire(player_type *creature_ptr)
385 BIT_FLAGS result = 0L;
387 if (creature_ptr->muta3 & MUT3_FIRE_BODY) {
388 result |= 0x01 << FLAG_CAUSE_MUTATION;
391 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
392 result |= 0x01 << FLAG_CAUSE_RACE;
395 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
396 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
399 if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_sh_fire) {
400 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
403 result |= check_equipment_flags(creature_ptr, TR_SH_FIRE);
407 BIT_FLAGS has_sh_elec(player_type *creature_ptr)
409 BIT_FLAGS result = 0L;
411 if (creature_ptr->muta3 & MUT3_ELEC_TOUC)
412 result |= 0x01 << FLAG_CAUSE_MUTATION;
414 if (hex_spelling(creature_ptr, HEX_SHOCK_CLOAK) || creature_ptr->ult_res) {
415 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
418 if (creature_ptr->special_defense & KAMAE_SEIRYU || (creature_ptr->special_defense & KATA_MUSOU)) {
419 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
422 result |= check_equipment_flags(creature_ptr, TR_SH_ELEC);
426 BIT_FLAGS has_sh_cold(player_type *creature_ptr)
428 BIT_FLAGS result = 0L;
430 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
431 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
434 if (creature_ptr->ult_res || hex_spelling(creature_ptr, HEX_ICE_ARMOR)) {
435 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
438 result |= check_equipment_flags(creature_ptr, TR_SH_COLD);
442 BIT_FLAGS has_easy_spell(player_type *creature_ptr)
444 BIT_FLAGS result = 0L;
445 result |= check_equipment_flags(creature_ptr, TR_EASY_SPELL);
449 BIT_FLAGS has_heavy_spell(player_type *creature_ptr)
451 BIT_FLAGS result = 0L;
452 result |= check_equipment_flags(creature_ptr, TR_HEAVY_SPELL);
456 BIT_FLAGS has_hold_exp(player_type *creature_ptr)
458 BIT_FLAGS result = 0L;
460 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
461 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
464 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
465 result |= 0x01 << FLAG_CAUSE_RACE;
468 if (is_specific_player_race(creature_ptr, RACE_HOBBIT) || is_specific_player_race(creature_ptr, RACE_SKELETON)
469 || is_specific_player_race(creature_ptr, RACE_ZOMBIE) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
470 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_BALROG)
471 || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
472 result |= 0x01 << FLAG_CAUSE_RACE;
475 if (is_specific_player_race(creature_ptr, RACE_GOLEM)) {
476 if (creature_ptr->lev > 34)
477 result |= 0x01 << FLAG_CAUSE_RACE;
480 if (creature_ptr->special_defense & KATA_MUSOU) {
481 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
484 if (creature_ptr->ult_res) {
485 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
488 result |= check_equipment_flags(creature_ptr, TR_HOLD_EXP);
492 BIT_FLAGS has_see_inv(player_type *creature_ptr)
494 BIT_FLAGS result = 0L;
496 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 29)
497 result |= 0x01 << FLAG_CAUSE_CLASS;
499 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
500 result |= 0x01 << FLAG_CAUSE_RACE;
501 } else if (is_specific_player_race(creature_ptr, RACE_HIGH_ELF) || is_specific_player_race(creature_ptr, RACE_GOLEM)
502 || is_specific_player_race(creature_ptr, RACE_SKELETON) || is_specific_player_race(creature_ptr, RACE_ZOMBIE)
503 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ARCHON)) {
504 result |= 0x01 << FLAG_CAUSE_RACE;
505 } else if (is_specific_player_race(creature_ptr, RACE_DARK_ELF) && creature_ptr->lev > 19) {
506 result |= 0x01 << FLAG_CAUSE_RACE;
507 } else if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER) && creature_ptr->lev > 14) {
508 result |= 0x01 << FLAG_CAUSE_RACE;
509 } else if ((is_specific_player_race(creature_ptr, RACE_IMP) || is_specific_player_race(creature_ptr, RACE_BALROG)) && creature_ptr->lev > 9) {
510 result |= 0x01 << FLAG_CAUSE_RACE;
513 if (creature_ptr->special_defense & KATA_MUSOU) {
514 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
517 if (creature_ptr->ult_res || creature_ptr->tim_invis) {
518 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
521 result |= check_equipment_flags(creature_ptr, TR_SEE_INVIS);
525 BIT_FLAGS has_magic_mastery(player_type *creature_ptr)
527 BIT_FLAGS result = 0L;
529 result |= check_equipment_flags(creature_ptr, TR_MAGIC_MASTERY);
533 BIT_FLAGS has_free_act(player_type *creature_ptr)
535 BIT_FLAGS result = 0L;
537 if (creature_ptr->muta3 & MUT3_MOTION)
538 result |= 0x01 << FLAG_CAUSE_MUTATION;
540 if (is_specific_player_race(creature_ptr, RACE_GNOME) || is_specific_player_race(creature_ptr, RACE_GOLEM)
541 || is_specific_player_race(creature_ptr, RACE_SPECTRE) || is_specific_player_race(creature_ptr, RACE_ANDROID)) {
542 result |= 0x01 << FLAG_CAUSE_RACE;
545 if (heavy_armor(creature_ptr) && (!creature_ptr->inventory_list[INVEN_RARM].k_idx || has_right_hand_weapon(creature_ptr))
546 && (!creature_ptr->inventory_list[INVEN_LARM].k_idx || has_left_hand_weapon(creature_ptr))) {
547 if (creature_ptr->lev > 24)
548 result |= 0x01 << FLAG_CAUSE_CLASS;
551 if (creature_ptr->pclass == CLASS_MONK || creature_ptr->pclass == CLASS_FORCETRAINER) {
552 if (!(heavy_armor(creature_ptr))) {
553 if (creature_ptr->lev > 24)
554 result |= 0x01 << FLAG_CAUSE_CLASS;
558 if (creature_ptr->pclass == CLASS_BERSERKER) {
559 result |= 0x01 << FLAG_CAUSE_CLASS;
562 if (creature_ptr->ult_res || creature_ptr->magicdef) {
563 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
566 if (creature_ptr->special_defense & KATA_MUSOU) {
567 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
570 result |= check_equipment_flags(creature_ptr, TR_FREE_ACT);
574 BIT_FLAGS has_sustain_str(player_type *creature_ptr)
576 BIT_FLAGS result = 0L;
578 if (creature_ptr->pclass == CLASS_BERSERKER) {
579 result |= 0x01 << FLAG_CAUSE_CLASS;
581 if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) || is_specific_player_race(creature_ptr, RACE_HALF_OGRE)
582 || is_specific_player_race(creature_ptr, RACE_HALF_GIANT)) {
583 result |= 0x01 << FLAG_CAUSE_RACE;
586 if (creature_ptr->ult_res) {
587 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
590 if (creature_ptr->special_defense & KATA_MUSOU) {
591 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
594 result |= check_equipment_flags(creature_ptr, TR_SUST_STR);
598 BIT_FLAGS has_sustain_int(player_type *creature_ptr)
600 BIT_FLAGS result = 0L;
602 if (is_specific_player_race(creature_ptr, RACE_MIND_FLAYER)) {
603 result |= 0x01 << FLAG_CAUSE_RACE;
606 if (creature_ptr->ult_res) {
607 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
610 if (creature_ptr->special_defense & KATA_MUSOU) {
611 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
614 result |= check_equipment_flags(creature_ptr, TR_SUST_INT);
618 BIT_FLAGS has_sustain_wis(player_type *creature_ptr)
620 BIT_FLAGS result = 0L;
623 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 19)
624 result |= 0x01 << FLAG_CAUSE_CLASS;
626 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_MIND_FLAYER)) {
627 result |= 0x01 << FLAG_CAUSE_RACE;
630 if (creature_ptr->ult_res) {
631 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
634 if (creature_ptr->special_defense & KATA_MUSOU) {
635 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
638 result |= check_equipment_flags(creature_ptr, TR_SUST_WIS);
642 BIT_FLAGS has_sustain_dex(player_type *creature_ptr)
644 BIT_FLAGS result = 0L;
645 if (creature_ptr->pclass == CLASS_BERSERKER) {
646 result |= 0x01 << FLAG_CAUSE_CLASS;
649 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 24)
650 result |= 0x01 << FLAG_CAUSE_CLASS;
652 if (creature_ptr->ult_res) {
653 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
656 if (creature_ptr->special_defense & KATA_MUSOU) {
657 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
660 result |= check_equipment_flags(creature_ptr, TR_SUST_DEX);
664 BIT_FLAGS has_sustain_con(player_type *creature_ptr)
666 BIT_FLAGS result = 0L;
667 if (creature_ptr->pclass == CLASS_BERSERKER) {
668 result |= 0x01 << FLAG_CAUSE_CLASS;
671 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_AMBERITE || creature_ptr->prace == RACE_DUNADAN)) {
672 result |= 0x01 << FLAG_CAUSE_RACE;
675 if (creature_ptr->ult_res) {
676 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
679 if (creature_ptr->special_defense & KATA_MUSOU) {
680 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
683 result |= check_equipment_flags(creature_ptr, TR_SUST_CON);
687 BIT_FLAGS has_sustain_chr(player_type *creature_ptr)
689 BIT_FLAGS result = 0L;
691 if (creature_ptr->ult_res) {
692 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
695 if (creature_ptr->special_defense & KATA_MUSOU) {
696 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
699 result |= check_equipment_flags(creature_ptr, TR_SUST_CHR);
703 BIT_FLAGS has_levitation(player_type *creature_ptr)
705 BIT_FLAGS result = 0L;
707 if (creature_ptr->muta3 & MUT3_WINGS)
708 result = FLAG_CAUSE_MUTATION;
710 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
711 result = FLAG_CAUSE_RACE;
714 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SPECTRE)
715 || is_specific_player_race(creature_ptr, RACE_SPRITE) || is_specific_player_race(creature_ptr, RACE_ARCHON)
716 || is_specific_player_race(creature_ptr, RACE_S_FAIRY)) {
717 result = FLAG_CAUSE_RACE;
720 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KAMAE_SUZAKU || (creature_ptr->special_defense & KATA_MUSOU)) {
721 result = FLAG_CAUSE_BATTLE_FORM;
724 if (creature_ptr->ult_res) {
725 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
728 if (creature_ptr->riding) {
729 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
730 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
731 result = (riding_r_ptr->flags7 & RF7_CAN_FLY) ? result : 0;
734 if (creature_ptr->tim_levitation) {
735 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
738 result |= check_equipment_flags(creature_ptr, TR_LEVITATION);
742 void has_can_swim(player_type *creature_ptr)
744 creature_ptr->can_swim = FALSE;
745 if (creature_ptr->riding) {
746 monster_type *riding_m_ptr = &creature_ptr->current_floor_ptr->m_list[creature_ptr->riding];
747 monster_race *riding_r_ptr = &r_info[riding_m_ptr->r_idx];
748 if (riding_r_ptr->flags7 & (RF7_CAN_SWIM | RF7_AQUATIC))
749 creature_ptr->can_swim = TRUE;
753 BIT_FLAGS has_slow_digest(player_type *creature_ptr)
755 BIT_FLAGS result = 0L;
757 if (creature_ptr->pclass == CLASS_NINJA) {
758 result = FLAG_CAUSE_CLASS;
761 if (creature_ptr->lev > 14 && !creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TROLL) {
762 if (creature_ptr->pclass == CLASS_WARRIOR || creature_ptr->pclass == CLASS_BERSERKER) {
763 result = FLAG_CAUSE_CLASS;
764 /* Let's not make Regeneration
765 * a disadvantage for the poor warriors who can
766 * never learn a spell that satisfies hunger (actually
767 * neither can rogues, but half-trolls are not
768 * supposed to play rogues) */
772 if (creature_ptr->special_defense & KATA_MUSOU) {
773 result = FLAG_CAUSE_BATTLE_FORM;
776 if (creature_ptr->ult_res) {
777 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
780 if (!creature_ptr->mimic_form
781 && (creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_SPECTRE
782 || creature_ptr->prace == RACE_ANDROID)) {
783 result = FLAG_CAUSE_RACE;
786 result |= check_equipment_flags(creature_ptr, TR_SLOW_DIGEST);
790 BIT_FLAGS has_regenerate(player_type *creature_ptr)
792 BIT_FLAGS result = 0L;
794 if (is_specific_player_race(creature_ptr, RACE_HALF_TROLL) && creature_ptr->lev > 14) {
795 result |= 0x01 << FLAG_CAUSE_RACE;
798 if (is_specific_player_race(creature_ptr, RACE_AMBERITE)) {
799 result |= 0x01 << FLAG_CAUSE_RACE;
802 if (creature_ptr->pclass == CLASS_WARRIOR && creature_ptr->lev > 44) {
803 result |= 0x01 << FLAG_CAUSE_RACE;
806 if (creature_ptr->pclass == CLASS_BERSERKER) {
807 result |= 0x01 << FLAG_CAUSE_RACE;
810 if (creature_ptr->muta3 & MUT3_REGEN)
811 result |= 0x01 << FLAG_CAUSE_MUTATION;
813 if (creature_ptr->special_defense & KATA_MUSOU) {
814 result |= 0x01 << FLAG_CAUSE_MUTATION;
817 if (hex_spelling(creature_ptr, HEX_DEMON_AURA) || creature_ptr->ult_res || creature_ptr->tim_regen) {
818 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
821 result |= check_equipment_flags(creature_ptr, TR_REGEN);
823 if (creature_ptr->muta3 & MUT3_FLESH_ROT)
829 void has_curses(player_type *creature_ptr)
832 BIT_FLAGS flgs[TR_FLAG_SIZE];
833 creature_ptr->cursed = 0L;
835 if (creature_ptr->pseikaku == PERSONALITY_SEXY)
836 creature_ptr->cursed |= (TRC_AGGRAVATE);
838 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
839 o_ptr = &creature_ptr->inventory_list[i];
842 object_flags(creature_ptr, o_ptr, flgs);
843 if (has_flag(flgs, TR_AGGRAVATE))
844 creature_ptr->cursed |= TRC_AGGRAVATE;
845 if (has_flag(flgs, TR_DRAIN_EXP))
846 creature_ptr->cursed |= TRC_DRAIN_EXP;
847 if (has_flag(flgs, TR_TY_CURSE))
848 creature_ptr->cursed |= TRC_TY_CURSE;
849 if (has_flag(flgs, TR_ADD_L_CURSE))
850 creature_ptr->cursed |= TRC_ADD_L_CURSE;
851 if (has_flag(flgs, TR_ADD_H_CURSE))
852 creature_ptr->cursed |= TRC_ADD_H_CURSE;
853 if (has_flag(flgs, TR_DRAIN_HP))
854 creature_ptr->cursed |= TRC_DRAIN_HP;
855 if (has_flag(flgs, TR_DRAIN_MANA))
856 creature_ptr->cursed |= TRC_DRAIN_MANA;
857 if (has_flag(flgs, TR_CALL_ANIMAL))
858 creature_ptr->cursed |= TRC_CALL_ANIMAL;
859 if (has_flag(flgs, TR_CALL_DEMON))
860 creature_ptr->cursed |= TRC_CALL_DEMON;
861 if (has_flag(flgs, TR_CALL_DRAGON))
862 creature_ptr->cursed |= TRC_CALL_DRAGON;
863 if (has_flag(flgs, TR_CALL_UNDEAD))
864 creature_ptr->cursed |= TRC_CALL_UNDEAD;
865 if (has_flag(flgs, TR_COWARDICE))
866 creature_ptr->cursed |= TRC_COWARDICE;
867 if (has_flag(flgs, TR_LOW_MELEE))
868 creature_ptr->cursed |= TRC_LOW_MELEE;
869 if (has_flag(flgs, TR_LOW_AC))
870 creature_ptr->cursed |= TRC_LOW_AC;
871 if (has_flag(flgs, TR_LOW_MAGIC))
872 creature_ptr->cursed |= TRC_LOW_MAGIC;
873 if (has_flag(flgs, TR_FAST_DIGEST))
874 creature_ptr->cursed |= TRC_FAST_DIGEST;
875 if (has_flag(flgs, TR_SLOW_REGEN))
876 creature_ptr->cursed |= TRC_SLOW_REGEN;
878 creature_ptr->cursed |= (o_ptr->curse_flags & (0xFFFFFFF0L));
879 if (o_ptr->name1 == ART_CHAINSWORD)
880 creature_ptr->cursed |= TRC_CHAINSWORD;
882 if (has_flag(flgs, TR_TELEPORT)) {
883 if (object_is_cursed(o_ptr))
884 creature_ptr->cursed |= TRC_TELEPORT;
886 concptr insc = quark_str(o_ptr->inscription);
888 /* {.} will stop random teleportation. */
889 if (o_ptr->inscription && angband_strchr(insc, '.')) {
891 creature_ptr->cursed |= TRC_TELEPORT_SELF;
897 if (creature_ptr->cursed & TRC_TELEPORT)
898 creature_ptr->cursed &= ~(TRC_TELEPORT_SELF);
900 if ((is_specific_player_race(creature_ptr, RACE_S_FAIRY)) && (creature_ptr->pseikaku != PERSONALITY_SEXY) && (creature_ptr->cursed & TRC_AGGRAVATE)) {
901 creature_ptr->cursed &= ~(TRC_AGGRAVATE);
905 BIT_FLAGS has_impact(player_type *creature_ptr)
907 BIT_FLAGS result = 0L;
908 result |= check_equipment_flags(creature_ptr, TR_IMPACT);
912 void has_extra_blow(player_type *creature_ptr)
915 BIT_FLAGS flgs[TR_FLAG_SIZE];
916 creature_ptr->extra_blows[0] = creature_ptr->extra_blows[1] = 0;
918 for (inventory_slot_type i = INVEN_RARM; i < INVEN_TOTAL; i++) {
919 o_ptr = &creature_ptr->inventory_list[i];
923 object_flags(creature_ptr, o_ptr, flgs);
924 if (has_flag(flgs, TR_BLOWS)) {
925 if ((i == INVEN_RARM || i == INVEN_RIGHT) && !has_two_handed_weapons(creature_ptr))
926 creature_ptr->extra_blows[0] += o_ptr->pval;
927 else if ((i == INVEN_LARM || i == INVEN_LEFT) && !has_two_handed_weapons(creature_ptr))
928 creature_ptr->extra_blows[1] += o_ptr->pval;
930 creature_ptr->extra_blows[0] += o_ptr->pval;
931 creature_ptr->extra_blows[1] += o_ptr->pval;
937 BIT_FLAGS has_resist_acid(player_type *creature_ptr)
939 BIT_FLAGS result = 0L;
941 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
942 result |= 0x01 << FLAG_CAUSE_RACE;
943 } else if (is_specific_player_race(creature_ptr, RACE_YEEK) || is_specific_player_race(creature_ptr, RACE_KLACKON)) {
944 result |= 0x01 << FLAG_CAUSE_RACE;
945 } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 14) {
946 result |= 0x01 << FLAG_CAUSE_RACE;
949 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
950 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
953 if (creature_ptr->ult_res) {
954 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
957 result |= has_immune_acid(creature_ptr);
959 result |= check_equipment_flags(creature_ptr, TR_RES_ACID);
963 BIT_FLAGS has_vuln_acid(player_type *creature_ptr)
965 BIT_FLAGS result = 0L;
966 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
967 result |= 0x01 << FLAG_CAUSE_MUTATION;
970 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
971 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
976 BIT_FLAGS has_resist_elec(player_type *creature_ptr)
978 BIT_FLAGS result = 0L;
980 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
981 result |= 0x01 << FLAG_CAUSE_RACE;
982 } else if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 19) {
983 result |= 0x01 << FLAG_CAUSE_RACE;
986 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
987 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
990 if (creature_ptr->ult_res) {
991 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
994 result |= check_equipment_flags(creature_ptr, TR_RES_ELEC);
995 result |= has_immune_elec(creature_ptr);
999 BIT_FLAGS has_vuln_elec(player_type *creature_ptr)
1001 BIT_FLAGS result = 0L;
1002 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1003 result |= 0x01 << FLAG_CAUSE_MUTATION;
1006 if (is_specific_player_race(creature_ptr, RACE_ANDROID)) {
1007 result |= 0x01 << FLAG_CAUSE_RACE;
1010 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1011 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1016 BIT_FLAGS has_resist_fire(player_type *creature_ptr)
1018 BIT_FLAGS result = 0L;
1020 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1021 result |= 0x01 << FLAG_CAUSE_RACE;
1024 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 4) {
1025 result |= 0x01 << FLAG_CAUSE_RACE;
1028 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_IMP || creature_ptr->prace == RACE_BALROG)) {
1029 result |= 0x01 << FLAG_CAUSE_RACE;
1032 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1033 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1036 if (creature_ptr->ult_res) {
1037 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1040 result |= check_equipment_flags(creature_ptr, TR_RES_FIRE);
1041 result |= has_immune_fire(creature_ptr);
1045 BIT_FLAGS has_vuln_fire(player_type *creature_ptr)
1047 BIT_FLAGS result = 0L;
1048 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1049 result |= 0x01 << FLAG_CAUSE_MUTATION;
1052 if (is_specific_player_race(creature_ptr, RACE_ENT)) {
1053 result |= 0x01 << FLAG_CAUSE_RACE;
1056 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1057 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1062 BIT_FLAGS has_resist_cold(player_type *creature_ptr)
1064 BIT_FLAGS result = 0L;
1066 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1067 result |= 0x01 << FLAG_CAUSE_RACE;
1070 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ZOMBIE) && creature_ptr->lev > 4) {
1071 result |= 0x01 << FLAG_CAUSE_RACE;
1074 if ((is_specific_player_race(creature_ptr, RACE_DRACONIAN) || is_specific_player_race(creature_ptr, RACE_SKELETON)) && creature_ptr->lev > 9) {
1075 result |= 0x01 << FLAG_CAUSE_RACE;
1078 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE)) {
1079 result |= 0x01 << FLAG_CAUSE_RACE;
1082 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1083 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1086 if (creature_ptr->ult_res) {
1087 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1090 result |= check_equipment_flags(creature_ptr, TR_RES_COLD);
1091 result |= has_immune_cold(creature_ptr);
1095 BIT_FLAGS has_vuln_cold(player_type *creature_ptr)
1097 BIT_FLAGS result = 0L;
1098 if (creature_ptr->muta3 & MUT3_VULN_ELEM) {
1099 result |= 0x01 << FLAG_CAUSE_MUTATION;
1102 if (creature_ptr->special_defense & KATA_KOUKIJIN) {
1103 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1108 BIT_FLAGS has_resist_pois(player_type *creature_ptr)
1110 BIT_FLAGS result = 0L;
1112 if (creature_ptr->pclass == CLASS_NINJA && creature_ptr->lev > 19)
1113 result |= 0x01 << FLAG_CAUSE_CLASS;
1115 if (creature_ptr->mimic_form == MIMIC_VAMPIRE || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1116 result |= 0x01 << FLAG_CAUSE_RACE;
1119 if (is_specific_player_race(creature_ptr, RACE_DRACONIAN) && creature_ptr->lev > 34) {
1120 result |= 0x01 << FLAG_CAUSE_RACE;
1123 if (!creature_ptr->mimic_form
1124 && (creature_ptr->prace == RACE_KOBOLD || creature_ptr->prace == RACE_GOLEM || creature_ptr->prace == RACE_SKELETON
1125 || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE || creature_ptr->prace == RACE_ANDROID)) {
1126 result |= 0x01 << FLAG_CAUSE_RACE;
1129 if (creature_ptr->special_defense & KAMAE_SEIRYU || creature_ptr->special_defense & KATA_MUSOU) {
1130 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1133 if (creature_ptr->ult_res) {
1134 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1137 result |= check_equipment_flags(creature_ptr, TR_RES_POIS);
1141 BIT_FLAGS has_resist_conf(player_type *creature_ptr)
1143 BIT_FLAGS result = 0L;
1145 if (creature_ptr->pclass == CLASS_MINDCRAFTER && creature_ptr->lev > 29)
1146 result |= 0x01 << FLAG_CAUSE_CLASS;
1148 if (creature_ptr->pseikaku == PERSONALITY_CHARGEMAN || creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1149 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1152 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_KLACKON || creature_ptr->prace == RACE_BEASTMAN || creature_ptr->prace == RACE_KUTAR)) {
1153 result |= 0x01 << FLAG_CAUSE_RACE;
1156 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1157 result |= 0x01 << FLAG_CAUSE_RACE;
1160 if (creature_ptr->ult_res || creature_ptr->magicdef) {
1161 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1164 if (creature_ptr->special_defense & KATA_MUSOU) {
1165 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1168 result |= check_equipment_flags(creature_ptr, TR_RES_CONF);
1172 BIT_FLAGS has_resist_sound(player_type *creature_ptr)
1174 BIT_FLAGS result = 0L;
1176 if (creature_ptr->pclass == CLASS_BARD) {
1177 result |= 0x01 << FLAG_CAUSE_CLASS;
1180 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_CYCLOPS || creature_ptr->prace == RACE_BEASTMAN)) {
1181 result |= 0x01 << FLAG_CAUSE_RACE;
1184 if (creature_ptr->special_defense & KATA_MUSOU) {
1185 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1188 if (creature_ptr->ult_res) {
1189 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1192 result |= check_equipment_flags(creature_ptr, TR_RES_SOUND);
1196 BIT_FLAGS has_resist_lite(player_type *creature_ptr)
1198 BIT_FLAGS result = 0L;
1200 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_ELF || creature_ptr->prace == RACE_HIGH_ELF || creature_ptr->prace == RACE_SPRITE)) {
1201 result |= 0x01 << FLAG_CAUSE_RACE;
1204 if (creature_ptr->special_defense & KATA_MUSOU) {
1205 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1208 if (creature_ptr->ult_res) {
1209 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1212 result |= check_equipment_flags(creature_ptr, TR_RES_LITE);
1216 BIT_FLAGS has_vuln_lite(player_type *creature_ptr)
1218 BIT_FLAGS result = 0L;
1219 if (is_specific_player_race(creature_ptr, RACE_S_FAIRY) || is_specific_player_race(creature_ptr, RACE_VAMPIRE)
1220 || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1221 result |= 0x01 << FLAG_CAUSE_RACE;
1224 if (creature_ptr->wraith_form) {
1225 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1231 BIT_FLAGS has_resist_dark(player_type *creature_ptr)
1233 BIT_FLAGS result = 0L;
1235 if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1236 result |= 0x01 << FLAG_CAUSE_RACE;
1239 if (!creature_ptr->mimic_form
1240 && (creature_ptr->prace == RACE_HALF_ORC || creature_ptr->prace == RACE_HALF_OGRE || creature_ptr->prace == RACE_NIBELUNG
1241 || creature_ptr->prace == RACE_DARK_ELF || creature_ptr->prace == RACE_VAMPIRE)) {
1242 result |= 0x01 << FLAG_CAUSE_RACE;
1245 if (creature_ptr->special_defense & KATA_MUSOU) {
1246 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1249 if (creature_ptr->ult_res) {
1250 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1253 result |= check_equipment_flags(creature_ptr, TR_RES_DARK);
1257 BIT_FLAGS has_resist_chaos(player_type *creature_ptr)
1259 BIT_FLAGS result = 0L;
1261 if (creature_ptr->pclass == CLASS_CHAOS_WARRIOR && creature_ptr->lev > 29)
1262 result |= 0x01 << FLAG_CAUSE_CLASS;
1264 if (creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1265 result |= 0x01 << FLAG_CAUSE_RACE;
1268 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_HALF_TITAN)
1269 result |= 0x01 << FLAG_CAUSE_RACE;
1271 if (creature_ptr->special_defense & KATA_MUSOU) {
1272 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1275 if (creature_ptr->ult_res) {
1276 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1279 result |= check_equipment_flags(creature_ptr, TR_RES_CHAOS);
1283 BIT_FLAGS has_resist_disen(player_type *creature_ptr)
1285 BIT_FLAGS result = 0L;
1287 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1288 result |= 0x01 << FLAG_CAUSE_RACE;
1291 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_NIBELUNG)
1292 result |= 0x01 << FLAG_CAUSE_RACE;
1294 if (creature_ptr->special_defense & KATA_MUSOU) {
1295 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1298 if (creature_ptr->ult_res) {
1299 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1302 result |= check_equipment_flags(creature_ptr, TR_RES_DISEN);
1306 BIT_FLAGS has_resist_shard(player_type *creature_ptr)
1308 BIT_FLAGS result = 0L;
1310 if (!creature_ptr->mimic_form && (creature_ptr->prace == RACE_HALF_TITAN || creature_ptr->prace == RACE_SKELETON))
1311 result |= 0x01 << FLAG_CAUSE_RACE;
1313 if (creature_ptr->special_defense & KATA_MUSOU) {
1314 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1317 if (creature_ptr->ult_res) {
1318 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1321 result |= check_equipment_flags(creature_ptr, TR_RES_SHARDS);
1325 BIT_FLAGS has_resist_nexus(player_type *creature_ptr)
1327 BIT_FLAGS result = 0L;
1329 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1330 result |= 0x01 << FLAG_CAUSE_RACE;
1333 if (creature_ptr->special_defense & KATA_MUSOU) {
1334 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1337 if (creature_ptr->ult_res) {
1338 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1341 result |= check_equipment_flags(creature_ptr, TR_RES_NEXUS);
1345 BIT_FLAGS has_resist_blind(player_type *creature_ptr)
1347 BIT_FLAGS result = 0L;
1349 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1350 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1353 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_DWARF)
1354 result |= 0x01 << FLAG_CAUSE_RACE;
1356 if (creature_ptr->special_defense & KATA_MUSOU) {
1357 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1360 if (creature_ptr->ult_res || creature_ptr->magicdef) {
1361 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1364 result |= check_equipment_flags(creature_ptr, TR_RES_BLIND);
1368 BIT_FLAGS has_resist_neth(player_type *creature_ptr)
1370 BIT_FLAGS result = 0L;
1372 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD || creature_ptr->mimic_form == MIMIC_DEMON || creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1373 result |= 0x01 << FLAG_CAUSE_RACE;
1376 if (!creature_ptr->mimic_form
1377 && (creature_ptr->prace == RACE_ZOMBIE || creature_ptr->prace == RACE_VAMPIRE || creature_ptr->prace == RACE_SPECTRE
1378 || creature_ptr->prace == RACE_BALROG))
1379 result |= 0x01 << FLAG_CAUSE_RACE;
1381 if (creature_ptr->special_defense & KATA_MUSOU) {
1382 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1385 if (creature_ptr->ult_res || creature_ptr->tim_res_nether) {
1386 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1389 result |= check_equipment_flags(creature_ptr, TR_RES_NETHER);
1393 BIT_FLAGS has_resist_time(player_type *creature_ptr)
1395 BIT_FLAGS result = 0L;
1397 if (creature_ptr->tim_res_time) {
1398 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1401 result |= check_equipment_flags(creature_ptr, TR_RES_TIME);
1405 BIT_FLAGS has_resist_water(player_type *creature_ptr)
1407 BIT_FLAGS result = 0L;
1409 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_MERFOLK)
1410 result |= 0x01 << FLAG_CAUSE_RACE;
1412 result |= check_equipment_flags(creature_ptr, TR_RES_WATER);
1416 BIT_FLAGS has_resist_fear(player_type *creature_ptr)
1418 BIT_FLAGS result = 0L;
1420 if (creature_ptr->muta3 & MUT3_FEARLESS)
1421 result |= 0x01 << FLAG_CAUSE_MUTATION;
1423 switch (creature_ptr->pclass) {
1426 if (creature_ptr->lev > 29)
1427 result |= 0x01 << FLAG_CAUSE_CLASS;
1430 case CLASS_CHAOS_WARRIOR:
1431 if (creature_ptr->lev > 39)
1432 result |= 0x01 << FLAG_CAUSE_CLASS;
1434 case CLASS_MINDCRAFTER:
1435 if (creature_ptr->lev > 9)
1436 result |= 0x01 << FLAG_CAUSE_CLASS;
1439 result |= 0x01 << FLAG_CAUSE_CLASS;
1443 if (creature_ptr->mimic_form == MIMIC_DEMON_LORD) {
1444 result |= 0x01 << FLAG_CAUSE_RACE;
1447 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_BARBARIAN)
1448 result |= 0x01 << FLAG_CAUSE_RACE;
1450 if ((creature_ptr->special_defense & KATA_MUSOU)) {
1451 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1454 if (is_hero(creature_ptr) || is_shero(creature_ptr) || creature_ptr->ult_res) {
1455 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1458 result |= check_equipment_flags(creature_ptr, TR_RES_FEAR);
1462 BIT_FLAGS has_immune_acid(player_type *creature_ptr)
1464 BIT_FLAGS result = 0L;
1465 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_YEEK && creature_ptr->lev > 19)
1466 result |= 0x01 << FLAG_CAUSE_RACE;
1468 if (creature_ptr->ele_immune) {
1469 if (creature_ptr->special_defense & DEFENSE_ACID)
1470 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1473 result |= check_equipment_flags(creature_ptr, TR_IM_ACID);
1477 BIT_FLAGS has_immune_elec(player_type *creature_ptr)
1479 BIT_FLAGS result = 0L;
1481 if (creature_ptr->ele_immune) {
1482 if (creature_ptr->special_defense & DEFENSE_ELEC)
1483 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1486 result |= check_equipment_flags(creature_ptr, TR_IM_ELEC);
1490 BIT_FLAGS has_immune_fire(player_type *creature_ptr)
1492 BIT_FLAGS result = 0L;
1494 if (creature_ptr->ele_immune) {
1495 if (creature_ptr->special_defense & DEFENSE_FIRE)
1496 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1499 result |= check_equipment_flags(creature_ptr, TR_IM_FIRE);
1503 BIT_FLAGS has_immune_cold(player_type *creature_ptr)
1505 BIT_FLAGS result = 0L;
1507 if (creature_ptr->ele_immune) {
1508 if (creature_ptr->special_defense & DEFENSE_COLD)
1509 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1512 result |= check_equipment_flags(creature_ptr, TR_IM_COLD);
1516 BIT_FLAGS has_immune_dark(player_type *creature_ptr)
1518 BIT_FLAGS result = 0L;
1520 if (is_specific_player_race(creature_ptr, RACE_VAMPIRE) || (creature_ptr->mimic_form == MIMIC_VAMPIRE)) {
1521 result |= 0x01 << FLAG_CAUSE_RACE;
1524 if (creature_ptr->wraith_form) {
1525 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1531 bool has_right_hand_weapon(player_type *creature_ptr)
1533 if (has_melee_weapon(creature_ptr, INVEN_RARM))
1536 if (can_two_hands_wielding(creature_ptr)) {
1537 switch (creature_ptr->pclass) {
1539 case CLASS_FORCETRAINER:
1540 case CLASS_BERSERKER:
1541 if (empty_hands(creature_ptr, FALSE) == (EMPTY_HAND_RARM | EMPTY_HAND_LARM)) {
1551 bool has_left_hand_weapon(player_type *creature_ptr) { return has_melee_weapon(creature_ptr, INVEN_LARM); }
1553 bool has_two_handed_weapons(player_type *creature_ptr)
1555 if (can_two_hands_wielding(creature_ptr)) {
1556 if (has_right_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_LARM)
1557 && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_RARM])) {
1559 } else if (has_left_hand_weapon(creature_ptr) && (empty_hands(creature_ptr, FALSE) == EMPTY_HAND_RARM)
1560 && object_allow_two_hands_wielding(&creature_ptr->inventory_list[INVEN_LARM])) {
1567 BIT_FLAGS has_lite(player_type *creature_ptr)
1569 BIT_FLAGS result = 0L;
1570 if (creature_ptr->pclass == CLASS_NINJA)
1573 if (creature_ptr->pseikaku == PERSONALITY_MUNCHKIN) {
1574 result |= 0x01 << FLAG_CAUSE_PERSONALITY;
1577 if (creature_ptr->mimic_form == MIMIC_VAMPIRE) {
1578 result |= 0x01 << FLAG_CAUSE_RACE;
1581 if (!creature_ptr->mimic_form && creature_ptr->prace == RACE_VAMPIRE)
1582 result |= 0x01 << FLAG_CAUSE_RACE;
1584 if (creature_ptr->ult_res) {
1585 result |= 0x01 << FLAG_CAUSE_MAGIC_TIME_EFFECT;
1588 if (creature_ptr->special_defense & KATA_MUSOU) {
1589 result |= 0x01 << FLAG_CAUSE_BATTLE_FORM;
1592 result |= has_sh_fire(creature_ptr);
1597 bool has_disable_two_handed_bonus(player_type *creature_ptr, int i)
1600 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1601 if (has_melee_weapon(creature_ptr, INVEN_RARM + i)) {
1602 if (calc_weapon_weight_limit(creature_ptr) * 2 >= o_ptr->weight / 10 && has_two_handed_weapons(creature_ptr)
1603 && (calc_weapon_weight_limit(creature_ptr) * 2 < o_ptr->weight / 5))
1609 bool has_icky_wield_weapon(player_type *creature_ptr, int i)
1612 BIT_FLAGS flgs[TR_FLAG_SIZE];
1613 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1614 object_flags(creature_ptr, o_ptr, flgs);
1616 if ((creature_ptr->pclass == CLASS_PRIEST) && (!(has_flag(flgs, TR_BLESSED))) && ((o_ptr->tval == TV_SWORD) || (o_ptr->tval == TV_POLEARM))) {
1618 } else if (creature_ptr->pclass == CLASS_SORCERER) {
1619 if (!((o_ptr->tval == TV_HAFTED) && ((o_ptr->sval == SV_WIZSTAFF) || (o_ptr->sval == SV_NAMAKE_HAMMER)))) {
1623 if (has_not_monk_weapon(creature_ptr, i) || has_not_ninja_weapon(creature_ptr, i)) {
1629 bool has_riding_wield_weapon(player_type *creature_ptr, int i)
1632 BIT_FLAGS flgs[TR_FLAG_SIZE];
1633 o_ptr = &creature_ptr->inventory_list[INVEN_RARM + i];
1634 object_flags(creature_ptr, o_ptr, flgs);
1635 if (creature_ptr->riding != 0 && !(o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE))
1636 && !has_flag(flgs, TR_RIDING)) {
1642 bool has_not_ninja_weapon(player_type *creature_ptr, int i)
1644 tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1645 OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1646 return creature_ptr->pclass == CLASS_NINJA
1647 && !((s_info[CLASS_NINJA].w_max[tval][sval] > WEAPON_EXP_BEGINNER) && (creature_ptr->inventory_list[INVEN_LARM - i].tval != TV_SHIELD));
1650 bool has_not_monk_weapon(player_type *creature_ptr, int i)
1652 tval_type tval = creature_ptr->inventory_list[INVEN_RARM + i].tval - TV_WEAPON_BEGIN;
1653 OBJECT_SUBTYPE_VALUE sval = creature_ptr->inventory_list[INVEN_RARM + i].sval;
1654 return (creature_ptr->pclass == CLASS_MONK) || (creature_ptr->pclass == CLASS_FORCETRAINER) && (!s_info[creature_ptr->pclass].w_max[tval][sval]);
1657 bool has_good_luck(player_type *creature_ptr) { return (creature_ptr->pseikaku == PERSONALITY_LUCKY) || (creature_ptr->muta3 & MUT3_GOOD_LUCK); }