1/* SCCS Id: @(#)mondata.h 3.4 2003/01/08 */ 2/* Copyright (c) 1989 Mike Threepoint */ 3/* NetHack may be freely redistributed. See license for details. */ 4 5#ifndef MONDATA_H 6#define MONDATA_H 7 8#define verysmall(ptr) ((ptr)->msize < MZ_SMALL) 9#define bigmonst(ptr) ((ptr)->msize >= MZ_LARGE) 10 11#define pm_resistance(ptr,typ) (((ptr)->mresists & (typ)) != 0) 12 13#define resists_fire(mon) (((mon)->mintrinsics & MR_FIRE) != 0) 14#define resists_cold(mon) (((mon)->mintrinsics & MR_COLD) != 0) 15#define resists_sleep(mon) (((mon)->mintrinsics & MR_SLEEP) != 0) 16#define resists_disint(mon) (((mon)->mintrinsics & MR_DISINT) != 0) 17#define resists_elec(mon) (((mon)->mintrinsics & MR_ELEC) != 0) 18#define resists_poison(mon) (((mon)->mintrinsics & MR_POISON) != 0) 19#define resists_acid(mon) (((mon)->mintrinsics & MR_ACID) != 0) 20#define resists_ston(mon) (((mon)->mintrinsics & MR_STONE) != 0) 21 22#define is_lminion(mon) (is_minion((mon)->data) && \ 23 (mon)->data->maligntyp >= A_COALIGNED && \ 24 ((mon)->data != &mons[PM_ANGEL] || \ 25 EPRI(mon)->shralign > 0)) 26 27#define is_flyer(ptr) (((ptr)->mflags1 & M1_FLY) != 0L) 28#define is_floater(ptr) ((ptr)->mlet == S_EYE) 29#define is_clinger(ptr) (((ptr)->mflags1 & M1_CLING) != 0L) 30#define is_swimmer(ptr) (((ptr)->mflags1 & M1_SWIM) != 0L) 31#define breathless(ptr) (((ptr)->mflags1 & M1_BREATHLESS) != 0L) 32#define amphibious(ptr) (((ptr)->mflags1 & (M1_AMPHIBIOUS | M1_BREATHLESS)) != 0L) 33#define passes_walls(ptr) (((ptr)->mflags1 & M1_WALLWALK) != 0L) 34#define amorphous(ptr) (((ptr)->mflags1 & M1_AMORPHOUS) != 0L) 35#define noncorporeal(ptr) ((ptr)->mlet == S_GHOST) 36#define tunnels(ptr) (((ptr)->mflags1 & M1_TUNNEL) != 0L) 37#define needspick(ptr) (((ptr)->mflags1 & M1_NEEDPICK) != 0L) 38#define hides_under(ptr) (((ptr)->mflags1 & M1_CONCEAL) != 0L) 39#define is_hider(ptr) (((ptr)->mflags1 & M1_HIDE) != 0L) 40#define haseyes(ptr) (((ptr)->mflags1 & M1_NOEYES) == 0L) 41#define eyecount(ptr) (!haseyes(ptr) ? 0 : \ 42 ((ptr) == &mons[PM_CYCLOPS] || \ 43 (ptr) == &mons[PM_FLOATING_EYE]) ? 1 : 2) 44#define nohands(ptr) (((ptr)->mflags1 & M1_NOHANDS) != 0L) 45#define nolimbs(ptr) (((ptr)->mflags1 & M1_NOLIMBS) == M1_NOLIMBS) 46#define notake(ptr) (((ptr)->mflags1 & M1_NOTAKE) != 0L) 47#define has_head(ptr) (((ptr)->mflags1 & M1_NOHEAD) == 0L) 48#define has_horns(ptr) (num_horns(ptr) > 0) 49#define is_whirly(ptr) ((ptr)->mlet == S_VORTEX || \ 50 (ptr) == &mons[PM_AIR_ELEMENTAL]) 51#define flaming(ptr) ((ptr) == &mons[PM_FIRE_VORTEX] || \ 52 (ptr) == &mons[PM_FLAMING_SPHERE] || \ 53 (ptr) == &mons[PM_FIRE_ELEMENTAL] || \ 54 (ptr) == &mons[PM_SALAMANDER]) 55#define is_silent(ptr) ((ptr)->msound == MS_SILENT) 56#define unsolid(ptr) (((ptr)->mflags1 & M1_UNSOLID) != 0L) 57#define mindless(ptr) (((ptr)->mflags1 & M1_MINDLESS) != 0L) 58#define humanoid(ptr) (((ptr)->mflags1 & M1_HUMANOID) != 0L) 59#define is_animal(ptr) (((ptr)->mflags1 & M1_ANIMAL) != 0L) 60#define slithy(ptr) (((ptr)->mflags1 & M1_SLITHY) != 0L) 61#define is_wooden(ptr) ((ptr) == &mons[PM_WOOD_GOLEM]) 62#define thick_skinned(ptr) (((ptr)->mflags1 & M1_THICK_HIDE) != 0L) 63#define lays_eggs(ptr) (((ptr)->mflags1 & M1_OVIPAROUS) != 0L) 64#define regenerates(ptr) (((ptr)->mflags1 & M1_REGEN) != 0L) 65#define perceives(ptr) (((ptr)->mflags1 & M1_SEE_INVIS) != 0L) 66#define can_teleport(ptr) (((ptr)->mflags1 & M1_TPORT) != 0L) 67#define control_teleport(ptr) (((ptr)->mflags1 & M1_TPORT_CNTRL) != 0L) 68#define telepathic(ptr) ((ptr) == &mons[PM_FLOATING_EYE] || \ 69 (ptr) == &mons[PM_MIND_FLAYER] || \ 70 (ptr) == &mons[PM_MASTER_MIND_FLAYER]) 71#define is_armed(ptr) attacktype(ptr, AT_WEAP) 72#define acidic(ptr) (((ptr)->mflags1 & M1_ACID) != 0L) 73#define poisonous(ptr) (((ptr)->mflags1 & M1_POIS) != 0L) 74#define carnivorous(ptr) (((ptr)->mflags1 & M1_CARNIVORE) != 0L) 75#define herbivorous(ptr) (((ptr)->mflags1 & M1_HERBIVORE) != 0L) 76#define metallivorous(ptr) (((ptr)->mflags1 & M1_METALLIVORE) != 0L) 77#define polyok(ptr) (((ptr)->mflags2 & M2_NOPOLY) == 0L) 78#define is_undead(ptr) (((ptr)->mflags2 & M2_UNDEAD) != 0L) 79#define is_were(ptr) (((ptr)->mflags2 & M2_WERE) != 0L) 80#define is_elf(ptr) (((ptr)->mflags2 & M2_ELF) != 0L) 81#define is_dwarf(ptr) (((ptr)->mflags2 & M2_DWARF) != 0L) 82#define is_gnome(ptr) (((ptr)->mflags2 & M2_GNOME) != 0L) 83#define is_orc(ptr) (((ptr)->mflags2 & M2_ORC) != 0L) 84#define is_human(ptr) (((ptr)->mflags2 & M2_HUMAN) != 0L) 85#define your_race(ptr) (((ptr)->mflags2 & urace.selfmask) != 0L) 86#define is_bat(ptr) ((ptr) == &mons[PM_BAT] || \ 87 (ptr) == &mons[PM_GIANT_BAT] || \ 88 (ptr) == &mons[PM_VAMPIRE_BAT]) 89#define is_bird(ptr) ((ptr)->mlet == S_BAT && !is_bat(ptr)) 90#define is_giant(ptr) (((ptr)->mflags2 & M2_GIANT) != 0L) 91#define is_golem(ptr) ((ptr)->mlet == S_GOLEM) 92#define is_domestic(ptr) (((ptr)->mflags2 & M2_DOMESTIC) != 0L) 93#define is_demon(ptr) (((ptr)->mflags2 & M2_DEMON) != 0L) 94#define is_mercenary(ptr) (((ptr)->mflags2 & M2_MERC) != 0L) 95#define is_male(ptr) (((ptr)->mflags2 & M2_MALE) != 0L) 96#define is_female(ptr) (((ptr)->mflags2 & M2_FEMALE) != 0L) 97#define is_neuter(ptr) (((ptr)->mflags2 & M2_NEUTER) != 0L) 98#define is_wanderer(ptr) (((ptr)->mflags2 & M2_WANDER) != 0L) 99#define always_hostile(ptr) (((ptr)->mflags2 & M2_HOSTILE) != 0L) 100#define always_peaceful(ptr) (((ptr)->mflags2 & M2_PEACEFUL) != 0L) 101#define race_hostile(ptr) (((ptr)->mflags2 & urace.hatemask) != 0L) 102#define race_peaceful(ptr) (((ptr)->mflags2 & urace.lovemask) != 0L) 103#define extra_nasty(ptr) (((ptr)->mflags2 & M2_NASTY) != 0L) 104#define strongmonst(ptr) (((ptr)->mflags2 & M2_STRONG) != 0L) 105#define can_breathe(ptr) attacktype(ptr, AT_BREA) 106#define cantwield(ptr) (nohands(ptr) || verysmall(ptr)) 107#define could_twoweap(ptr) ((ptr)->mattk[1].aatyp == AT_WEAP) 108#define cantweararm(ptr) (breakarm(ptr) || sliparm(ptr)) 109#define throws_rocks(ptr) (((ptr)->mflags2 & M2_ROCKTHROW) != 0L) 110#define type_is_pname(ptr) (((ptr)->mflags2 & M2_PNAME) != 0L) 111#define is_lord(ptr) (((ptr)->mflags2 & M2_LORD) != 0L) 112#define is_prince(ptr) (((ptr)->mflags2 & M2_PRINCE) != 0L) 113#define is_ndemon(ptr) (is_demon(ptr) && \ 114 (((ptr)->mflags2 & (M2_LORD|M2_PRINCE)) == 0L)) 115#define is_dlord(ptr) (is_demon(ptr) && is_lord(ptr)) 116#define is_dprince(ptr) (is_demon(ptr) && is_prince(ptr)) 117#define is_minion(ptr) ((ptr)->mflags2 & M2_MINION) 118#define likes_gold(ptr) (((ptr)->mflags2 & M2_GREEDY) != 0L) 119#define likes_gems(ptr) (((ptr)->mflags2 & M2_JEWELS) != 0L) 120#define likes_objs(ptr) (((ptr)->mflags2 & M2_COLLECT) != 0L || \ 121 is_armed(ptr)) 122#define likes_magic(ptr) (((ptr)->mflags2 & M2_MAGIC) != 0L) 123#define webmaker(ptr) ((ptr) == &mons[PM_CAVE_SPIDER] || \ 124 (ptr) == &mons[PM_GIANT_SPIDER]) 125#define is_unicorn(ptr) ((ptr)->mlet == S_UNICORN && likes_gems(ptr)) 126#define is_longworm(ptr) (((ptr) == &mons[PM_BABY_LONG_WORM]) || \ 127 ((ptr) == &mons[PM_LONG_WORM]) || \ 128 ((ptr) == &mons[PM_LONG_WORM_TAIL])) 129#define is_covetous(ptr) ((ptr->mflags3 & M3_COVETOUS)) 130#define infravision(ptr) ((ptr->mflags3 & M3_INFRAVISION)) 131#define infravisible(ptr) ((ptr->mflags3 & M3_INFRAVISIBLE)) 132#define is_mplayer(ptr) (((ptr) >= &mons[PM_ARCHEOLOGIST]) && \ 133 ((ptr) <= &mons[PM_WIZARD])) 134#define is_rider(ptr) ((ptr) == &mons[PM_DEATH] || \ 135 (ptr) == &mons[PM_FAMINE] || \ 136 (ptr) == &mons[PM_PESTILENCE]) 137#define is_placeholder(ptr) ((ptr) == &mons[PM_ORC] || \ 138 (ptr) == &mons[PM_GIANT] || \ 139 (ptr) == &mons[PM_ELF] || \ 140 (ptr) == &mons[PM_HUMAN]) 141/* return TRUE if the monster tends to revive */ 142#define is_reviver(ptr) (is_rider(ptr) || (ptr)->mlet == S_TROLL) 143 144/* this returns the light's range, or 0 if none; if we add more light emitting 145 monsters, we'll likely have to add a new light range field to mons[] */ 146#define emits_light(ptr) (((ptr)->mlet == S_LIGHT || \ 147 (ptr) == &mons[PM_FLAMING_SPHERE] || \ 148 (ptr) == &mons[PM_SHOCKING_SPHERE] || \ 149 (ptr) == &mons[PM_FIRE_VORTEX]) ? 1 : \ 150 ((ptr) == &mons[PM_FIRE_ELEMENTAL]) ? 1 : 0) 151/* [note: the light ranges above were reduced to 1 for performance...] */ 152#define likes_lava(ptr) (ptr == &mons[PM_FIRE_ELEMENTAL] || \ 153 ptr == &mons[PM_SALAMANDER]) 154#define pm_invisible(ptr) ((ptr) == &mons[PM_STALKER] || \ 155 (ptr) == &mons[PM_BLACK_LIGHT]) 156 157/* could probably add more */ 158#define likes_fire(ptr) ((ptr) == &mons[PM_FIRE_VORTEX] || \ 159 (ptr) == &mons[PM_FLAMING_SPHERE] || \ 160 likes_lava(ptr)) 161 162#define touch_petrifies(ptr) ((ptr) == &mons[PM_COCKATRICE] || \ 163 (ptr) == &mons[PM_CHICKATRICE]) 164 165#define is_mind_flayer(ptr) ((ptr) == &mons[PM_MIND_FLAYER] || \ 166 (ptr) == &mons[PM_MASTER_MIND_FLAYER]) 167 168#define nonliving(ptr) (is_golem(ptr) || is_undead(ptr) || \ 169 (ptr)->mlet == S_VORTEX || \ 170 (ptr) == &mons[PM_MANES]) 171 172/* Used for conduct with corpses, tins, and digestion attacks */ 173/* G_NOCORPSE monsters might still be swallowed as a purple worm */ 174/* Maybe someday this could be in mflags... */ 175#define vegan(ptr) ((ptr)->mlet == S_BLOB || \ 176 (ptr)->mlet == S_JELLY || \ 177 (ptr)->mlet == S_FUNGUS || \ 178 (ptr)->mlet == S_VORTEX || \ 179 (ptr)->mlet == S_LIGHT || \ 180 ((ptr)->mlet == S_ELEMENTAL && \ 181 (ptr) != &mons[PM_STALKER]) || \ 182 ((ptr)->mlet == S_GOLEM && \ 183 (ptr) != &mons[PM_FLESH_GOLEM] && \ 184 (ptr) != &mons[PM_LEATHER_GOLEM]) || \ 185 noncorporeal(ptr)) 186#define vegetarian(ptr) (vegan(ptr) || \ 187 ((ptr)->mlet == S_PUDDING && \ 188 (ptr) != &mons[PM_BLACK_PUDDING])) 189 190#define befriend_with_obj(ptr, obj) ((obj)->oclass == FOOD_CLASS && \ 191 is_domestic(ptr)) 192 193#endif /* MONDATA_H */ 194