d32ab55b84
Add enlightenment feedback for Sunsword's blocking of becoming blind from light flashes. It uses an extra property so that wizard mode can report the reason. EDITLEVEL is being incremented, so existing save and bones files are invalidated.
1593 lines
53 KiB
C
1593 lines
53 KiB
C
/* NetHack 3.7 mondata.c $NHDT-Date: 1711620615 2024/03/28 10:10:15 $ $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.132 $ */
|
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/*-Copyright (c) Robert Patrick Rankin, 2011. */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
#include "hack.h"
|
|
/*
|
|
* These routines provide basic data for any type of monster.
|
|
*/
|
|
|
|
/* set up an individual monster's base type (initial creation, shapechange) */
|
|
void
|
|
set_mon_data(struct monst *mon, struct permonst *ptr)
|
|
{
|
|
int new_speed, old_speed = mon->data ? mon->data->mmove : 0;
|
|
short *movement_p = (mon == &gy.youmonst) ? &u.umovement : &mon->movement;
|
|
|
|
mon->data = ptr;
|
|
mon->mnum = (short) monsndx(ptr);
|
|
|
|
if (*movement_p) { /* used to adjust poly'd hero as well as monsters */
|
|
new_speed = ptr->mmove;
|
|
/* prorate unused movement if new form is slower so that
|
|
it doesn't get extra moves leftover from previous form;
|
|
if new form is faster, leave unused movement as is */
|
|
if (new_speed < old_speed) {
|
|
/*
|
|
* Some static analysis warns that this might divide by 0
|
|
mon->movement = new_speed * mon->movement / old_speed;
|
|
* so add a redundant test to suppress that.
|
|
*/
|
|
*movement_p *= new_speed;
|
|
if (old_speed > 0) /* old > new and new >= 0, so always True */
|
|
*movement_p /= old_speed;
|
|
}
|
|
}
|
|
return;
|
|
}
|
|
|
|
/* does monster-type have any attack for a specific type of damage? */
|
|
struct attack *
|
|
attacktype_fordmg(struct permonst *ptr, int atyp, int dtyp)
|
|
{
|
|
struct attack *a;
|
|
|
|
for (a = &ptr->mattk[0]; a < &ptr->mattk[NATTK]; a++)
|
|
if (a->aatyp == atyp && (dtyp == AD_ANY || a->adtyp == dtyp))
|
|
return a;
|
|
return (struct attack *) 0;
|
|
}
|
|
|
|
/* does monster-type have a particular type of attack */
|
|
boolean
|
|
attacktype(struct permonst *ptr, int atyp)
|
|
{
|
|
return attacktype_fordmg(ptr, atyp, AD_ANY) ? TRUE : FALSE;
|
|
}
|
|
|
|
/* returns True if monster doesn't attack, False if it does */
|
|
boolean
|
|
noattacks(struct permonst *ptr)
|
|
{
|
|
int i;
|
|
struct attack *mattk = ptr->mattk;
|
|
|
|
for (i = 0; i < NATTK; i++) {
|
|
/* AT_BOOM "passive attack" (gas spore's explosion upon death)
|
|
isn't an attack as far as our callers are concerned */
|
|
if (mattk[i].aatyp == AT_BOOM)
|
|
continue;
|
|
|
|
if (mattk[i].aatyp)
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
/* does monster-type transform into something else when petrified? */
|
|
boolean
|
|
poly_when_stoned(struct permonst *ptr)
|
|
{
|
|
/* non-stone golems turn into stone golems unless latter is genocided */
|
|
return (boolean) (is_golem(ptr) && ptr != &mons[PM_STONE_GOLEM]
|
|
&& !(svm.mvitals[PM_STONE_GOLEM].mvflags & G_GENOD));
|
|
/* allow G_EXTINCT */
|
|
}
|
|
|
|
/* is 'mon' (possibly youmonst) protected against damage type 'adtype' via
|
|
wielded weapon or worn dragon scales? [or by virtue of being a dragon?] */
|
|
boolean
|
|
defended(struct monst *mon, int adtyp)
|
|
{
|
|
struct obj *o, otemp;
|
|
int mndx;
|
|
boolean is_you = (mon == &gy.youmonst);
|
|
|
|
/* is 'mon' wielding an artifact that protects against 'adtyp'? */
|
|
o = is_you ? uwep : MON_WEP(mon);
|
|
if (o && o->oartifact && defends(adtyp, o))
|
|
return TRUE;
|
|
|
|
/* if 'mon' is an adult dragon, treat it as if it was wearing scales
|
|
so that it has the same benefit as a hero wearing dragon scales */
|
|
mndx = monsndx(mon->data);
|
|
if (mndx >= PM_GRAY_DRAGON && mndx <= PM_YELLOW_DRAGON) {
|
|
/* a dragon is its own suit... if mon is poly'd hero, we don't
|
|
care about embedded scales (uskin) because being a dragon with
|
|
embedded scales is no better than just being a dragon */
|
|
otemp = cg.zeroobj;
|
|
otemp.oclass = ARMOR_CLASS;
|
|
otemp.otyp = GRAY_DRAGON_SCALES + (mndx - PM_GRAY_DRAGON);
|
|
/* defends() and Is_dragon_armor() only care about otyp so ignore
|
|
the rest of otemp's fields */
|
|
o = &otemp;
|
|
} else {
|
|
/* ordinary case: not an adult dragon */
|
|
o = is_you ? uarm : which_armor(mon, W_ARM);
|
|
}
|
|
/* is 'mon' wearing dragon scales that protect against 'adtyp'? */
|
|
if (o && Is_dragon_armor(o) && defends(adtyp, o))
|
|
return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
/* returns True if monster is drain-life resistant */
|
|
boolean
|
|
resists_drli(struct monst *mon)
|
|
{
|
|
struct permonst *ptr = mon->data;
|
|
|
|
if (is_undead(ptr) || is_demon(ptr) || is_were(ptr)
|
|
/* is_were() doesn't handle hero in human form */
|
|
|| (mon == &gy.youmonst && u.ulycn >= LOW_PM)
|
|
|| ptr == &mons[PM_DEATH] || is_vampshifter(mon))
|
|
return TRUE;
|
|
return defended(mon, AD_DRLI);
|
|
}
|
|
|
|
/* True if monster is magic-missile (actually, general magic) resistant */
|
|
boolean
|
|
resists_magm(struct monst *mon)
|
|
{
|
|
struct permonst *ptr = mon->data;
|
|
boolean is_you = (mon == &gy.youmonst);
|
|
long slotmask;
|
|
struct obj *o;
|
|
|
|
/* as of 3.2.0: gray dragons, Angels, Oracle, Yeenoghu */
|
|
if (dmgtype(ptr, AD_MAGM) || ptr == &mons[PM_BABY_GRAY_DRAGON]
|
|
|| dmgtype(ptr, AD_RBRE)) /* Chromatic Dragon */
|
|
return TRUE;
|
|
/* check for magic resistance granted by wielded weapon */
|
|
o = is_you ? uwep : MON_WEP(mon);
|
|
if (o && o->oartifact && defends(AD_MAGM, o))
|
|
return TRUE;
|
|
/* check for magic resistance granted by worn or carried items */
|
|
o = is_you ? gi.invent : mon->minvent;
|
|
slotmask = W_ARMOR | W_ACCESSORY;
|
|
if (!is_you /* assumes monsters don't wield non-weapons */
|
|
|| (uwep && (uwep->oclass == WEAPON_CLASS || is_weptool(uwep))))
|
|
slotmask |= W_WEP;
|
|
if (is_you && u.twoweap)
|
|
slotmask |= W_SWAPWEP;
|
|
for (; o; o = o->nobj)
|
|
if (((o->owornmask & slotmask) != 0L
|
|
&& objects[o->otyp].oc_oprop == ANTIMAGIC)
|
|
|| (o->oartifact && defends_when_carried(AD_MAGM, o)))
|
|
return TRUE;
|
|
return FALSE;
|
|
}
|
|
|
|
/* True if monster is resistant to light-induced blindness */
|
|
boolean
|
|
resists_blnd(struct monst *mon)
|
|
{
|
|
struct permonst *ptr = mon->data;
|
|
boolean is_you = (mon == &gy.youmonst);
|
|
|
|
if (is_you ? (Blind || Unaware)
|
|
: (mon->mblinded || !mon->mcansee || !haseyes(ptr)
|
|
/* BUG: temporary sleep sets mfrozen, but since
|
|
paralysis does too, we can't check it */
|
|
|| mon->msleeping))
|
|
return TRUE;
|
|
/* yellow light, Archon; !dust vortex, !cobra, !raven */
|
|
if (dmgtype_fromattack(ptr, AD_BLND, AT_EXPL)
|
|
|| dmgtype_fromattack(ptr, AD_BLND, AT_GAZE))
|
|
return TRUE;
|
|
/* Sunsword */
|
|
if (resists_blnd_by_arti(mon))
|
|
return TRUE;
|
|
/* catchall */
|
|
if (is_you && Blnd_resist) {
|
|
impossible("'Blnd_resist' but not resists_blnd()?");
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
/* True iff monster is resistant to light-induced blindness due to worn
|
|
or wielded magical equipment (used to decide whether to show sparkle
|
|
animation when resisting) */
|
|
boolean
|
|
resists_blnd_by_arti(struct monst *mon)
|
|
{
|
|
struct obj *o;
|
|
boolean is_you = (mon == &gy.youmonst);
|
|
|
|
o = is_you ? uwep : MON_WEP(mon);
|
|
if (o && o->oartifact && defends(AD_BLND, o))
|
|
return TRUE;
|
|
o = is_you ? gi.invent : mon->minvent;
|
|
for (; o; o = o->nobj)
|
|
if (defends_when_carried(AD_BLND, o))
|
|
return TRUE;
|
|
#if 0 /* omit this; the Eyes of the Overworld have no carry property and
|
|
* their worn property is magic resistance rather than blindness
|
|
* resistance; wearing them blocks blindness without actually
|
|
* preventing it, so don't classify them as providing resistance */
|
|
if (is_you && is_art(uamul, ART_EYES_OF_THE_OVERWORLD))
|
|
return TRUE;
|
|
#endif /* 0 */
|
|
return FALSE;
|
|
}
|
|
|
|
/* True iff monster can be blinded by the given attack;
|
|
note: may return True when mdef is blind (e.g. new cream-pie attack)
|
|
magr can be NULL.
|
|
*/
|
|
boolean
|
|
can_blnd(
|
|
struct monst *magr, /* NULL == no specific aggressor */
|
|
struct monst *mdef,
|
|
uchar aatyp,
|
|
struct obj *obj) /* aatyp == AT_WEAP, AT_SPIT */
|
|
{
|
|
boolean is_you = (mdef == &gy.youmonst);
|
|
boolean check_visor = FALSE;
|
|
struct obj *o;
|
|
|
|
/* no eyes protect against all attacks for now */
|
|
if (!haseyes(mdef->data))
|
|
return FALSE;
|
|
|
|
/* if monster has been permanently blinded, the deed is already done */
|
|
if (!is_you && mon_perma_blind(mdef))
|
|
return FALSE;
|
|
|
|
/* /corvus oculum corvi non eruit/
|
|
a saying expressed in Latin rather than a zoological observation:
|
|
"a crow will not pluck out the eye of another crow"
|
|
so prevent ravens from blinding each other */
|
|
if (magr && magr->data == &mons[PM_RAVEN] && mdef->data == &mons[PM_RAVEN])
|
|
return FALSE;
|
|
|
|
switch (aatyp) {
|
|
case AT_EXPL:
|
|
case AT_BOOM:
|
|
case AT_GAZE:
|
|
case AT_MAGC:
|
|
case AT_BREA: /* assumed to be lightning */
|
|
/* light-based attacks may be cancelled or resisted */
|
|
if (magr && magr->mcan)
|
|
return FALSE;
|
|
return !resists_blnd(mdef);
|
|
|
|
case AT_WEAP:
|
|
case AT_SPIT:
|
|
case AT_NONE:
|
|
/* an object is used (thrown/spit/other) */
|
|
if (obj && (obj->otyp == CREAM_PIE)) {
|
|
if (is_you && Blindfolded)
|
|
return FALSE;
|
|
} else if (obj && (obj->otyp == BLINDING_VENOM)) {
|
|
/* all ublindf, including LENSES, protect, cream-pies too */
|
|
if (is_you && (ublindf || u.ucreamed))
|
|
return FALSE;
|
|
check_visor = TRUE;
|
|
} else if (obj && (obj->otyp == POT_BLINDNESS)) {
|
|
return TRUE; /* no defense */
|
|
} else
|
|
return FALSE; /* other objects cannot cause blindness yet */
|
|
if ((magr == &gy.youmonst) && u.uswallow)
|
|
return FALSE; /* can't affect eyes while inside monster */
|
|
break;
|
|
|
|
case AT_ENGL:
|
|
if (is_you && (Blindfolded || Unaware || u.ucreamed))
|
|
return FALSE;
|
|
if (!is_you && mdef->msleeping)
|
|
return FALSE;
|
|
break;
|
|
|
|
case AT_CLAW:
|
|
/* e.g. raven: all ublindf, including LENSES, protect */
|
|
if (is_you && ublindf)
|
|
return FALSE;
|
|
if ((magr == &gy.youmonst) && u.uswallow)
|
|
return FALSE; /* can't affect eyes while inside monster */
|
|
check_visor = TRUE;
|
|
break;
|
|
|
|
case AT_TUCH:
|
|
case AT_STNG:
|
|
/* some physical, blind-inducing attacks can be cancelled */
|
|
if (magr && magr->mcan)
|
|
return FALSE;
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
/* check if wearing a visor (only checked if visor might help) */
|
|
if (check_visor) {
|
|
o = (mdef == &gy.youmonst) ? gi.invent : mdef->minvent;
|
|
for (; o; o = o->nobj)
|
|
if ((o->owornmask & W_ARMH)
|
|
&& objdescr_is(o, "visored helmet"))
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* returns True if monster can attack at range */
|
|
boolean
|
|
ranged_attk(struct permonst *ptr)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < NATTK; i++)
|
|
if (DISTANCE_ATTK_TYPE(ptr->mattk[i].aatyp))
|
|
return TRUE;
|
|
return FALSE;
|
|
}
|
|
|
|
#if defined(MAKEDEFS_C) \
|
|
|| (NH_DEVEL_STATUS != NH_STATUS_RELEASED) || defined(DEBUG)
|
|
/*
|
|
* If adding a new monster, include a guestimate for difficulty,
|
|
* build the program, then run it in wizard mode and use the
|
|
* #mondifficulty command. If it reports a discrepancy, update
|
|
* the monsters array with the more accurate value (or possibly
|
|
* modify the 'mstrength()' algorithm to generate the guessed one).
|
|
*/
|
|
static boolean mstrength_ranged_attk(struct permonst *);
|
|
|
|
|
|
/* This routine is designed to return an integer value which represents
|
|
an approximation of monster strength. It uses a similar method of
|
|
determination as "experience()" to arrive at the strength. */
|
|
int
|
|
mstrength(struct permonst *ptr)
|
|
{
|
|
int i, tmp2, n, tmp = ptr->mlevel;
|
|
|
|
if (tmp > 49) /* special fixed hp monster */
|
|
tmp = 2 * (tmp - 6) / 4;
|
|
|
|
/* for creation in groups */
|
|
n = (!!(ptr->geno & G_SGROUP));
|
|
n += (!!(ptr->geno & G_LGROUP)) << 1;
|
|
|
|
/* for ranged attacks */
|
|
if (mstrength_ranged_attk(ptr))
|
|
n++;
|
|
|
|
/* for higher ac values */
|
|
n += (ptr->ac < 4);
|
|
n += (ptr->ac < 0);
|
|
|
|
/* for very fast monsters */
|
|
n += (ptr->mmove >= 18);
|
|
|
|
/* for each attack and "special" attack */
|
|
for (i = 0; i < NATTK; i++) {
|
|
tmp2 = ptr->mattk[i].aatyp;
|
|
n += (tmp2 > 0);
|
|
n += (tmp2 == AT_MAGC);
|
|
n += (tmp2 == AT_WEAP && (ptr->mflags2 & M2_STRONG));
|
|
if (tmp2 == AT_EXPL) {
|
|
int tmp3 = ptr->mattk[i].adtyp;
|
|
/* {freezing,flaming,shocking} spheres are fairly weak but
|
|
can destroy equipment; {yellow,black} lights can't */
|
|
n += ((tmp3 == AD_COLD || tmp3 == AD_FIRE) ? 3
|
|
: (tmp3 == AD_ELEC) ? 5
|
|
: 0);
|
|
}
|
|
}
|
|
|
|
/* for each "special" damage type */
|
|
for (i = 0; i < NATTK; i++) {
|
|
tmp2 = ptr->mattk[i].adtyp;
|
|
if ((tmp2 == AD_DRLI) || (tmp2 == AD_STON) || (tmp2 == AD_DRST)
|
|
|| (tmp2 == AD_DRDX) || (tmp2 == AD_DRCO) || (tmp2 == AD_WERE))
|
|
n += 2;
|
|
else if (strcmp(ptr->pmnames[NEUTRAL], "grid bug"))
|
|
n += (tmp2 != AD_PHYS);
|
|
n += ((int) (ptr->mattk[i].damd * ptr->mattk[i].damn) > 23);
|
|
}
|
|
|
|
/* Leprechauns are special cases. They have many hit dice so they
|
|
can hit and are hard to kill, but they don't really do much damage. */
|
|
if (!strcmp(ptr->pmnames[NEUTRAL], "leprechaun"))
|
|
n -= 2;
|
|
|
|
/* finally, adjust the monster level 0 <= n <= 24 (approx.) */
|
|
if (n == 0)
|
|
tmp -= 1;
|
|
else if (n < 6)
|
|
tmp += (n / 3 + 1);
|
|
else
|
|
tmp += (n / 2);
|
|
|
|
return (tmp >= 0) ? tmp : 0;
|
|
}
|
|
|
|
/* returns True if monster can attack at range */
|
|
staticfn boolean
|
|
mstrength_ranged_attk(struct permonst *ptr)
|
|
{
|
|
int i, j;
|
|
int atk_mask = (1 << AT_BREA) | (1 << AT_SPIT) | (1 << AT_GAZE);
|
|
|
|
for (i = 0; i < NATTK; i++) {
|
|
if ((j = ptr->mattk[i].aatyp) >= AT_WEAP
|
|
|| (j < 32 && (atk_mask & (1 << j)) != 0))
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
#endif /* (NH_DEVEL_STATUS != NH_STATUS_RELEASED) || DEBUG || MAKEDEFS_C */
|
|
|
|
/* True if specific monster is especially affected by silver weapons */
|
|
boolean
|
|
mon_hates_silver(struct monst *mon)
|
|
{
|
|
return (boolean) (is_vampshifter(mon) || hates_silver(mon->data));
|
|
}
|
|
|
|
/* True if monster-type is especially affected by silver weapons */
|
|
boolean
|
|
hates_silver(struct permonst *ptr)
|
|
{
|
|
return (boolean) (is_were(ptr) || ptr->mlet == S_VAMPIRE || is_demon(ptr)
|
|
|| ptr == &mons[PM_SHADE]
|
|
|| (ptr->mlet == S_IMP && ptr != &mons[PM_TENGU]));
|
|
}
|
|
|
|
/* True if specific monster is especially affected by blessed objects */
|
|
boolean
|
|
mon_hates_blessings(struct monst *mon)
|
|
{
|
|
return (boolean) (is_vampshifter(mon) || hates_blessings(mon->data));
|
|
}
|
|
|
|
/* True if monster-type is especially affected by blessed objects */
|
|
boolean
|
|
hates_blessings(struct permonst *ptr)
|
|
{
|
|
return (boolean) (is_undead(ptr) || is_demon(ptr));
|
|
}
|
|
|
|
/* True if specific monster is especially affected by light-emitting weapons */
|
|
boolean
|
|
mon_hates_light(struct monst *mon)
|
|
{
|
|
return (boolean) hates_light(mon->data);
|
|
}
|
|
|
|
/* True iff the type of monster pass through iron bars */
|
|
boolean
|
|
passes_bars(struct permonst *mptr)
|
|
{
|
|
return (boolean) (passes_walls(mptr) || amorphous(mptr) || unsolid(mptr)
|
|
|| is_whirly(mptr) || verysmall(mptr)
|
|
/* rust monsters and some puddings can destroy bars */
|
|
|| dmgtype(mptr, AD_RUST) || dmgtype(mptr, AD_CORR)
|
|
/* rock moles can eat bars */
|
|
|| metallivorous(mptr)
|
|
|| (slithy(mptr) && !bigmonst(mptr)));
|
|
}
|
|
|
|
/* returns True if monster can blow (whistle, etc) */
|
|
boolean
|
|
can_blow(struct monst *mtmp)
|
|
{
|
|
if ((is_silent(mtmp->data) || mtmp->data->msound == MS_BUZZ)
|
|
&& (breathless(mtmp->data) || verysmall(mtmp->data)
|
|
|| !has_head(mtmp->data) || mtmp->data->mlet == S_EEL))
|
|
return FALSE;
|
|
if ((mtmp == &gy.youmonst) && Strangled)
|
|
return FALSE;
|
|
return TRUE;
|
|
}
|
|
|
|
/* for casting spells and reading scrolls while blind */
|
|
boolean
|
|
can_chant(struct monst *mtmp)
|
|
{
|
|
if ((mtmp == &gy.youmonst && Strangled)
|
|
|| is_silent(mtmp->data) || !has_head(mtmp->data)
|
|
|| mtmp->data->msound == MS_BUZZ || mtmp->data->msound == MS_BURBLE)
|
|
return FALSE;
|
|
return TRUE;
|
|
}
|
|
|
|
/* True if mon is vulnerable to strangulation */
|
|
boolean
|
|
can_be_strangled(struct monst *mon)
|
|
{
|
|
struct obj *mamul;
|
|
boolean nonbreathing, nobrainer;
|
|
|
|
/* For amulet of strangulation support: here we're considering
|
|
strangulation to be loss of blood flow to the brain due to
|
|
constriction of the arteries in the neck, so all headless
|
|
creatures are immune (no neck) as are mindless creatures
|
|
who don't need to breathe (brain, if any, doesn't care).
|
|
Mindless creatures who do need to breath are vulnerable, as
|
|
are non-breathing creatures which have higher brain function. */
|
|
if (!has_head(mon->data))
|
|
return FALSE;
|
|
if (mon == &gy.youmonst) {
|
|
/* hero can't be mindless but poly'ing into mindless form can
|
|
confer strangulation protection */
|
|
nobrainer = mindless(gy.youmonst.data);
|
|
nonbreathing = Breathless;
|
|
} else {
|
|
nobrainer = mindless(mon->data);
|
|
/* monsters don't wear amulets of magical breathing,
|
|
so second part doesn't achieve anything useful... */
|
|
nonbreathing = (breathless(mon->data)
|
|
|| ((mamul = which_armor(mon, W_AMUL)) != 0
|
|
&& (mamul->otyp == AMULET_OF_MAGICAL_BREATHING)));
|
|
}
|
|
return (boolean) (!nobrainer || !nonbreathing);
|
|
}
|
|
|
|
/* returns True if monster can track well */
|
|
boolean
|
|
can_track(struct permonst *ptr)
|
|
{
|
|
if (u_wield_art(ART_EXCALIBUR))
|
|
return TRUE;
|
|
return (boolean) haseyes(ptr);
|
|
}
|
|
|
|
/* creature will slide out of armor */
|
|
boolean
|
|
sliparm(struct permonst *ptr)
|
|
{
|
|
return (boolean) (is_whirly(ptr) || ptr->msize <= MZ_SMALL
|
|
|| noncorporeal(ptr));
|
|
}
|
|
|
|
/* creature will break out of armor */
|
|
boolean
|
|
breakarm(struct permonst *ptr)
|
|
{
|
|
if (sliparm(ptr))
|
|
return FALSE;
|
|
|
|
return (boolean) (bigmonst(ptr)
|
|
|| (ptr->msize > MZ_SMALL && !humanoid(ptr))
|
|
/* special cases of humanoids that cannot wear suits */
|
|
|| ptr == &mons[PM_MARILITH]
|
|
|| ptr == &mons[PM_WINGED_GARGOYLE]);
|
|
}
|
|
|
|
/* creature sticks other creatures it hits */
|
|
boolean
|
|
sticks(struct permonst *ptr)
|
|
{
|
|
return (boolean) (dmgtype(ptr, AD_STCK)
|
|
|| (dmgtype(ptr, AD_WRAP) && !attacktype(ptr, AT_ENGL))
|
|
|| attacktype(ptr, AT_HUGS));
|
|
}
|
|
|
|
/* some monster-types can't vomit */
|
|
boolean
|
|
cantvomit(struct permonst *ptr)
|
|
{
|
|
/* rats and mice are incapable of vomiting; likewise with horses;
|
|
which other creatures have the same limitation? */
|
|
if (ptr->mlet == S_RODENT && ptr != &mons[PM_ROCK_MOLE]
|
|
&& ptr != &mons[PM_WOODCHUCK])
|
|
return TRUE;
|
|
if (ptr == &mons[PM_WARHORSE] || ptr == &mons[PM_HORSE]
|
|
|| ptr == &mons[PM_PONY])
|
|
return TRUE;
|
|
return FALSE;
|
|
}
|
|
|
|
/* number of horns this type of monster has on its head */
|
|
int
|
|
num_horns(struct permonst *ptr)
|
|
{
|
|
switch (monsndx(ptr)) {
|
|
case PM_HORNED_DEVIL: /* ? "more than one" */
|
|
case PM_MINOTAUR:
|
|
case PM_ASMODEUS:
|
|
case PM_BALROG:
|
|
return 2;
|
|
case PM_WHITE_UNICORN:
|
|
case PM_GRAY_UNICORN:
|
|
case PM_BLACK_UNICORN:
|
|
case PM_KI_RIN:
|
|
return 1;
|
|
default:
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* does monster-type deal out a particular type of damage from a particular
|
|
type of attack? */
|
|
struct attack *
|
|
dmgtype_fromattack(struct permonst *ptr, int dtyp, int atyp)
|
|
{
|
|
struct attack *a;
|
|
|
|
for (a = &ptr->mattk[0]; a < &ptr->mattk[NATTK]; a++)
|
|
if (a->adtyp == dtyp && (atyp == AT_ANY || a->aatyp == atyp))
|
|
return a;
|
|
return (struct attack *) 0;
|
|
}
|
|
|
|
/* does monster-type deal out a particular type of damage from any attack */
|
|
boolean
|
|
dmgtype(struct permonst *ptr, int dtyp)
|
|
{
|
|
return dmgtype_fromattack(ptr, dtyp, AT_ANY) ? TRUE : FALSE;
|
|
}
|
|
|
|
/* returns the maximum damage a defender can do to the attacker via
|
|
a passive defense */
|
|
int
|
|
max_passive_dmg(struct monst *mdef, struct monst *magr)
|
|
{
|
|
int i, dmg, multi2 = 0;
|
|
uchar adtyp;
|
|
|
|
/* each attack by magr can result in passive damage */
|
|
for (i = 0; i < NATTK; i++)
|
|
switch (magr->data->mattk[i].aatyp) {
|
|
case AT_CLAW:
|
|
case AT_BITE:
|
|
case AT_KICK:
|
|
case AT_BUTT:
|
|
case AT_TUCH:
|
|
case AT_STNG:
|
|
case AT_HUGS:
|
|
case AT_ENGL:
|
|
case AT_TENT:
|
|
case AT_WEAP:
|
|
multi2++;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
dmg = 0;
|
|
for (i = 0; i < NATTK; i++)
|
|
if (mdef->data->mattk[i].aatyp == AT_NONE
|
|
|| mdef->data->mattk[i].aatyp == AT_BOOM) {
|
|
adtyp = mdef->data->mattk[i].adtyp;
|
|
if ((adtyp == AD_FIRE && completelyburns(magr->data))
|
|
|| (adtyp == AD_DCAY && completelyrots(magr->data))
|
|
|| (adtyp == AD_RUST && completelyrusts(magr->data))) {
|
|
dmg = magr->mhp;
|
|
} else if ((adtyp == AD_ACID && !resists_acid(magr))
|
|
|| (adtyp == AD_COLD && !resists_cold(magr))
|
|
|| (adtyp == AD_FIRE && !resists_fire(magr))
|
|
|| (adtyp == AD_ELEC && !resists_elec(magr))
|
|
|| adtyp == AD_PHYS) {
|
|
dmg = mdef->data->mattk[i].damn;
|
|
if (!dmg)
|
|
dmg = mdef->data->mlevel + 1;
|
|
dmg *= mdef->data->mattk[i].damd;
|
|
}
|
|
dmg *= multi2;
|
|
break;
|
|
}
|
|
return dmg;
|
|
}
|
|
|
|
/* determine whether two monster types are from the same species */
|
|
boolean
|
|
same_race(struct permonst *pm1, struct permonst *pm2)
|
|
{
|
|
char let1 = pm1->mlet, let2 = pm2->mlet;
|
|
|
|
if (pm1 == pm2)
|
|
return TRUE; /* exact match */
|
|
/* player races have their own predicates */
|
|
if (is_human(pm1))
|
|
return is_human(pm2);
|
|
if (is_elf(pm1))
|
|
return is_elf(pm2);
|
|
if (is_dwarf(pm1))
|
|
return is_dwarf(pm2);
|
|
if (is_gnome(pm1))
|
|
return is_gnome(pm2);
|
|
if (is_orc(pm1))
|
|
return is_orc(pm2);
|
|
/* other creatures are less precise */
|
|
if (is_giant(pm1))
|
|
return is_giant(pm2); /* open to quibbling here */
|
|
if (is_golem(pm1))
|
|
return is_golem(pm2); /* even moreso... */
|
|
if (is_mind_flayer(pm1))
|
|
return is_mind_flayer(pm2);
|
|
if (let1 == S_KOBOLD || pm1 == &mons[PM_KOBOLD_ZOMBIE]
|
|
|| pm1 == &mons[PM_KOBOLD_MUMMY])
|
|
return (let2 == S_KOBOLD || pm2 == &mons[PM_KOBOLD_ZOMBIE]
|
|
|| pm2 == &mons[PM_KOBOLD_MUMMY]);
|
|
if (let1 == S_OGRE)
|
|
return (let2 == S_OGRE);
|
|
if (let1 == S_NYMPH)
|
|
return (let2 == S_NYMPH);
|
|
if (let1 == S_CENTAUR)
|
|
return (let2 == S_CENTAUR);
|
|
if (is_unicorn(pm1))
|
|
return is_unicorn(pm2);
|
|
if (let1 == S_DRAGON)
|
|
return (let2 == S_DRAGON);
|
|
if (let1 == S_NAGA)
|
|
return (let2 == S_NAGA);
|
|
/* other critters get steadily messier */
|
|
if (is_rider(pm1))
|
|
return is_rider(pm2); /* debatable */
|
|
if (is_minion(pm1))
|
|
return is_minion(pm2); /* [needs work?] */
|
|
/* tengu don't match imps (first test handled case of both being tengu) */
|
|
if (pm1 == &mons[PM_TENGU] || pm2 == &mons[PM_TENGU])
|
|
return FALSE;
|
|
if (let1 == S_IMP)
|
|
return (let2 == S_IMP);
|
|
/* and minor demons (imps) don't match major demons */
|
|
else if (let2 == S_IMP)
|
|
return FALSE;
|
|
if (is_demon(pm1))
|
|
return is_demon(pm2);
|
|
if (is_undead(pm1)) {
|
|
if (let1 == S_ZOMBIE)
|
|
return (let2 == S_ZOMBIE);
|
|
if (let1 == S_MUMMY)
|
|
return (let2 == S_MUMMY);
|
|
if (let1 == S_VAMPIRE)
|
|
return (let2 == S_VAMPIRE);
|
|
if (let1 == S_LICH)
|
|
return (let2 == S_LICH);
|
|
if (let1 == S_WRAITH)
|
|
return (let2 == S_WRAITH);
|
|
if (let1 == S_GHOST)
|
|
return (let2 == S_GHOST);
|
|
} else if (is_undead(pm2))
|
|
return FALSE;
|
|
|
|
/* check for monsters which grow into more mature forms */
|
|
if (let1 == let2) {
|
|
int m1 = monsndx(pm1), m2 = monsndx(pm2), prv, nxt;
|
|
|
|
/* we know m1 != m2 (very first check above); test all smaller
|
|
forms of m1 against m2, then all larger ones; don't need to
|
|
make the corresponding tests for variants of m2 against m1 */
|
|
for (prv = m1, nxt = big_to_little(m1); nxt != prv;
|
|
prv = nxt, nxt = big_to_little(nxt))
|
|
if (nxt == m2)
|
|
return TRUE;
|
|
for (prv = m1, nxt = little_to_big(m1); nxt != prv;
|
|
prv = nxt, nxt = little_to_big(nxt))
|
|
if (nxt == m2)
|
|
return TRUE;
|
|
}
|
|
/* not caught by little/big handling */
|
|
if (pm1 == &mons[PM_GARGOYLE] || pm1 == &mons[PM_WINGED_GARGOYLE])
|
|
return (pm2 == &mons[PM_GARGOYLE]
|
|
|| pm2 == &mons[PM_WINGED_GARGOYLE]);
|
|
if (pm1 == &mons[PM_KILLER_BEE] || pm1 == &mons[PM_QUEEN_BEE])
|
|
return (pm2 == &mons[PM_KILLER_BEE] || pm2 == &mons[PM_QUEEN_BEE]);
|
|
|
|
if (is_longworm(pm1))
|
|
return is_longworm(pm2); /* handles tail */
|
|
/* [currently there's no reason to bother matching up
|
|
assorted bugs and blobs with their closest variants] */
|
|
/* didn't match */
|
|
return FALSE;
|
|
}
|
|
|
|
/* for handling alternate spellings */
|
|
struct alt_spl {
|
|
const char *name;
|
|
short pm_val;
|
|
int genderhint;
|
|
};
|
|
|
|
/* figure out what type of monster a user-supplied string is specifying;
|
|
ignore anything past the monster name */
|
|
int
|
|
name_to_mon(const char *in_str, int *gender_name_var)
|
|
{
|
|
return name_to_monplus(in_str, (const char **) 0, gender_name_var);
|
|
}
|
|
|
|
/* figure out what type of monster a user-supplied string is specifying;
|
|
return a pointer to whatever is past the monster name--necessary if
|
|
caller wants to strip off the name and it matches one of the alternate
|
|
names rather the canonical mons[].mname */
|
|
int
|
|
name_to_monplus(
|
|
const char *in_str,
|
|
const char **remainder_p,
|
|
int *gender_name_var)
|
|
{
|
|
/* Be careful. We must check the entire string in case it was
|
|
* something such as "ettin zombie corpse". The calling routine
|
|
* doesn't know about the "corpse" until the monster name has
|
|
* already been taken off the front, so we have to be able to
|
|
* read the name with extraneous stuff such as "corpse" stuck on
|
|
* the end.
|
|
* This causes a problem for names which prefix other names such
|
|
* as "ettin" on "ettin zombie". In this case we want the _longest_
|
|
* name which exists.
|
|
* This also permits plurals created by adding suffixes such as 's'
|
|
* or 'es'. Other plurals must still be handled explicitly.
|
|
*/
|
|
int i;
|
|
int mntmp = NON_PM;
|
|
char *s, *str, *term;
|
|
char buf[BUFSZ];
|
|
int len, mgend, matchgend = -1;
|
|
size_t slen;
|
|
boolean exact_match = FALSE;
|
|
|
|
if (remainder_p)
|
|
*remainder_p = (const char *) 0;
|
|
|
|
str = strcpy(buf, in_str);
|
|
|
|
if (!strncmp(str, "a ", 2))
|
|
str += 2;
|
|
else if (!strncmp(str, "an ", 3))
|
|
str += 3;
|
|
else if (!strncmp(str, "the ", 4))
|
|
str += 4;
|
|
|
|
slen = strlen(str);
|
|
term = str + slen;
|
|
|
|
if ((s = strstri(str, "vortices")) != 0)
|
|
Strcpy(s + 4, "ex");
|
|
/* be careful with "ies"; "priest", "zombies" */
|
|
else if (slen > 3 && !strcmpi(term - 3, "ies")
|
|
&& (slen < 7 || strcmpi(term - 7, "zombies")))
|
|
Strcpy(term - 3, "y");
|
|
/* luckily no monster names end in fe or ve with ves plurals */
|
|
else if (slen > 3 && !strcmpi(term - 3, "ves"))
|
|
Strcpy(term - 3, "f");
|
|
|
|
slen = strlen(str); /* length possibly needs recomputing */
|
|
|
|
{
|
|
static const struct alt_spl names[] = {
|
|
/* Alternate spellings */
|
|
{ "grey dragon", PM_GRAY_DRAGON, NEUTRAL },
|
|
{ "baby grey dragon", PM_BABY_GRAY_DRAGON, NEUTRAL },
|
|
{ "grey unicorn", PM_GRAY_UNICORN, NEUTRAL },
|
|
{ "grey ooze", PM_GRAY_OOZE, NEUTRAL },
|
|
{ "gray-elf", PM_GREY_ELF, NEUTRAL },
|
|
{ "mindflayer", PM_MIND_FLAYER, NEUTRAL },
|
|
{ "master mindflayer", PM_MASTER_MIND_FLAYER, NEUTRAL },
|
|
/* More alternates; priest and priestess are separate monster
|
|
types but that isn't the case for {aligned,high} priests */
|
|
{ "aligned priest", PM_ALIGNED_CLERIC, MALE },
|
|
{ "aligned priestess", PM_ALIGNED_CLERIC, FEMALE },
|
|
{ "high priest", PM_HIGH_CLERIC, MALE },
|
|
{ "high priestess", PM_HIGH_CLERIC, FEMALE },
|
|
/* Inappropriate singularization by -ves check above */
|
|
{ "master of thief", PM_MASTER_OF_THIEVES, NEUTRAL },
|
|
/* Potential misspellings where we want to avoid falling back
|
|
to the rank title prefix (input has been singularized) */
|
|
{ "master thief", PM_MASTER_OF_THIEVES, NEUTRAL },
|
|
{ "master of assassin", PM_MASTER_ASSASSIN, NEUTRAL },
|
|
{ "master-lich", PM_MASTER_LICH, NEUTRAL }, /* cf arch-lich */
|
|
{ "masterlich", PM_MASTER_LICH, NEUTRAL }, /* cf demilich */
|
|
/* Outdated names */
|
|
{ "invisible stalker", PM_STALKER, NEUTRAL },
|
|
{ "high-elf", PM_ELVEN_MONARCH, NEUTRAL }, /* PM_HIGH_ELF is
|
|
* obsolete */
|
|
/* other misspellings or incorrect words */
|
|
{ "wood-elf", PM_WOODLAND_ELF, NEUTRAL },
|
|
{ "wood elf", PM_WOODLAND_ELF, NEUTRAL },
|
|
{ "woodland nymph", PM_WOOD_NYMPH, NEUTRAL },
|
|
{ "halfling", PM_HOBBIT, NEUTRAL }, /* potential guess for
|
|
* polyself */
|
|
{ "genie", PM_DJINNI, NEUTRAL }, /* potential guess for
|
|
* ^G/#wizgenesis */
|
|
/* prefix used to workaround duplicate monster names for
|
|
monsters with alternate forms */
|
|
{ "human wererat", PM_HUMAN_WERERAT, NEUTRAL },
|
|
{ "human werejackal", PM_HUMAN_WEREJACKAL, NEUTRAL },
|
|
{ "human werewolf", PM_HUMAN_WEREWOLF, NEUTRAL },
|
|
/* for completeness */
|
|
{ "rat wererat", PM_WERERAT, NEUTRAL },
|
|
{ "jackal werejackal", PM_WEREJACKAL, NEUTRAL },
|
|
{ "wolf werewolf", PM_WEREWOLF, NEUTRAL },
|
|
/* Hyphenated names -- it would be nice to handle these via
|
|
fuzzymatch() but it isn't able to ignore trailing stuff */
|
|
{ "ki rin", PM_KI_RIN, NEUTRAL },
|
|
{ "kirin", PM_KI_RIN, NEUTRAL },
|
|
{ "uruk hai", PM_URUK_HAI, NEUTRAL },
|
|
{ "orc captain", PM_ORC_CAPTAIN, NEUTRAL },
|
|
{ "woodland elf", PM_WOODLAND_ELF, NEUTRAL },
|
|
{ "green elf", PM_GREEN_ELF, NEUTRAL },
|
|
{ "grey elf", PM_GREY_ELF, NEUTRAL },
|
|
{ "gray elf", PM_GREY_ELF, NEUTRAL },
|
|
{ "elf lady", PM_ELF_NOBLE, FEMALE },
|
|
{ "elf lord", PM_ELF_NOBLE, MALE },
|
|
{ "elf noble", PM_ELF_NOBLE, NEUTRAL },
|
|
{ "olog hai", PM_OLOG_HAI, NEUTRAL },
|
|
{ "arch lich", PM_ARCH_LICH, NEUTRAL },
|
|
{ "archlich", PM_ARCH_LICH, NEUTRAL },
|
|
/* Some irregular plurals */
|
|
{ "incubi", PM_AMOROUS_DEMON, MALE },
|
|
{ "succubi", PM_AMOROUS_DEMON, FEMALE },
|
|
{ "violet fungi", PM_VIOLET_FUNGUS, NEUTRAL },
|
|
{ "homunculi", PM_HOMUNCULUS, NEUTRAL },
|
|
{ "baluchitheria", PM_BALUCHITHERIUM, NEUTRAL },
|
|
{ "lurkers above", PM_LURKER_ABOVE, NEUTRAL },
|
|
{ "cavemen", PM_CAVE_DWELLER, MALE },
|
|
{ "cavewomen", PM_CAVE_DWELLER, FEMALE },
|
|
{ "watchmen", PM_WATCHMAN, NEUTRAL },
|
|
{ "djinn", PM_DJINNI, NEUTRAL },
|
|
{ "mumakil", PM_MUMAK, NEUTRAL },
|
|
{ "erinyes", PM_ERINYS, NEUTRAL },
|
|
/* end of list */
|
|
{ 0, NON_PM, NEUTRAL }
|
|
};
|
|
const struct alt_spl *namep;
|
|
|
|
for (namep = names; namep->name; namep++) {
|
|
len = (int) strlen(namep->name);
|
|
if (!strncmpi(str, namep->name, len)
|
|
/* force full word (which could conceivably be possessive) */
|
|
&& (!str[len] || str[len] == ' ' || str[len] == '\'')) {
|
|
if (remainder_p)
|
|
*remainder_p = in_str + (&str[len] - buf);
|
|
if (gender_name_var)
|
|
*gender_name_var = namep->genderhint;
|
|
return namep->pm_val;
|
|
}
|
|
}
|
|
}
|
|
|
|
for (len = 0, i = LOW_PM; i < NUMMONS; i++) {
|
|
for (mgend = MALE; mgend < NUM_MGENDERS; mgend++) {
|
|
size_t m_i_len;
|
|
|
|
if (!mons[i].pmnames[mgend])
|
|
continue;
|
|
|
|
m_i_len = strlen(mons[i].pmnames[mgend]);
|
|
if (m_i_len > (size_t) len
|
|
&& !strncmpi(mons[i].pmnames[mgend], str, (int) m_i_len)) {
|
|
if (m_i_len == slen) {
|
|
mntmp = i;
|
|
len = (int) m_i_len;
|
|
matchgend = mgend;
|
|
exact_match = TRUE;
|
|
break; /* exact match */
|
|
} else if (slen > m_i_len
|
|
&& (str[m_i_len] == ' '
|
|
|| !strcmpi(&str[m_i_len], "s")
|
|
|| !strncmpi(&str[m_i_len], "s ", 2)
|
|
|| !strcmpi(&str[m_i_len], "'")
|
|
|| !strncmpi(&str[m_i_len], "' ", 2)
|
|
|| !strcmpi(&str[m_i_len], "'s")
|
|
|| !strncmpi(&str[m_i_len], "'s ", 3)
|
|
|| !strcmpi(&str[m_i_len], "es")
|
|
|| !strncmpi(&str[m_i_len], "es ", 3))) {
|
|
mntmp = i;
|
|
len = (int) m_i_len;
|
|
matchgend = mgend;
|
|
}
|
|
}
|
|
}
|
|
if (exact_match)
|
|
break;
|
|
}
|
|
/* FIXME: some titles have gender; title_to_mon() doesn't propagate it */
|
|
if (mntmp == NON_PM)
|
|
mntmp = title_to_mon(str, (int *) 0, &len);
|
|
if (len && remainder_p)
|
|
*remainder_p = in_str + (&str[len] - buf);
|
|
if (gender_name_var && matchgend != -1) {
|
|
/* don't override with neuter if caller has already specified male
|
|
or female and we've matched the neuter name */
|
|
if (*gender_name_var == -1 || matchgend != NEUTRAL)
|
|
*gender_name_var = matchgend;
|
|
}
|
|
return mntmp;
|
|
}
|
|
|
|
/* monster class from user input; used for genocide and controlled polymorph;
|
|
returns 0 rather than MAXMCLASSES if no match is found */
|
|
int
|
|
name_to_monclass(const char *in_str, int * mndx_p)
|
|
{
|
|
/* Single letters are matched against def_monsyms[].sym; words
|
|
or phrases are first matched against def_monsyms[].explain
|
|
to check class description; if not found there, then against
|
|
mons[].pmnames[] to test individual monster types. Input can be a
|
|
substring of the full description or pmname, but to be accepted,
|
|
such partial matches must start at beginning of a word. Some
|
|
class descriptions include "foo or bar" and "foo or other foo"
|
|
so we don't want to accept "or", "other", "or other" there. */
|
|
static NEARDATA const char *const falsematch[] = {
|
|
/* multiple-letter input which matches any of these gets rejected */
|
|
"an", "the", "or", "other", "or other", 0
|
|
};
|
|
/* positive pm_val => specific monster; negative => class */
|
|
static NEARDATA const struct alt_spl truematch[] = {
|
|
/* "long worm" won't match "worm" class but would accidentally match
|
|
"long worm tail" class before the comparison with monster types */
|
|
{ "long worm", PM_LONG_WORM, NEUTRAL },
|
|
/* matches wrong--or at least suboptimal--class */
|
|
{ "demon", -S_DEMON, NEUTRAL }, /* hits "imp or minor demon" */
|
|
/* matches specific monster (overly restrictive) */
|
|
{ "devil", -S_DEMON, NEUTRAL }, /* always "horned devil" */
|
|
/* some plausible guesses which need help */
|
|
{ "bug", -S_XAN, NEUTRAL }, /* would match bugbear... */
|
|
{ "fish", -S_EEL, NEUTRAL }, /* wouldn't match anything */
|
|
/* end of list */
|
|
{ 0, NON_PM, NEUTRAL}
|
|
};
|
|
const char *p, *x;
|
|
int i, len;
|
|
|
|
if (mndx_p)
|
|
*mndx_p = NON_PM; /* haven't [yet] matched a specific type */
|
|
|
|
if (!in_str || !in_str[0]) {
|
|
/* empty input */
|
|
return 0;
|
|
} else if (!in_str[1]) {
|
|
/* single character */
|
|
i = def_char_to_monclass(*in_str);
|
|
if (i == S_MIMIC_DEF) { /* ']' -> 'm' */
|
|
i = S_MIMIC;
|
|
} else if (i == S_WORM_TAIL) { /* '~' -> 'w' */
|
|
i = S_WORM;
|
|
if (mndx_p)
|
|
*mndx_p = PM_LONG_WORM;
|
|
} else if (i == MAXMCLASSES) /* maybe 'I' */
|
|
i = (*in_str == DEF_INVISIBLE) ? S_invisible : 0;
|
|
return i;
|
|
} else {
|
|
/* multiple characters */
|
|
if (!strcmpi(in_str, "long")) /* not enough to match "long worm" */
|
|
return 0; /* avoid false whole-word match with "long worm tail" */
|
|
in_str = makesingular(in_str);
|
|
/* check for special cases */
|
|
for (i = 0; falsematch[i]; i++)
|
|
if (!strcmpi(in_str, falsematch[i]))
|
|
return 0;
|
|
for (i = 0; truematch[i].name; i++)
|
|
if (!strcmpi(in_str, truematch[i].name)) {
|
|
i = truematch[i].pm_val;
|
|
if (i < 0)
|
|
return -i; /* class */
|
|
if (mndx_p)
|
|
*mndx_p = i; /* monster */
|
|
return mons[i].mlet;
|
|
}
|
|
/* check monster class descriptions */
|
|
len = (int) strlen(in_str);
|
|
for (i = 1; i < MAXMCLASSES; i++) {
|
|
x = def_monsyms[i].explain;
|
|
if ((p = strstri(x, in_str)) != 0 && (p == x || *(p - 1) == ' ')
|
|
&& ((int) strlen(p) >= len
|
|
&& (p[len] == '\0' || p[len] == ' ')))
|
|
return i;
|
|
}
|
|
/* check individual species names */
|
|
i = name_to_mon(in_str, (int *) 0);
|
|
if (i != NON_PM) {
|
|
if (mndx_p)
|
|
*mndx_p = i;
|
|
return mons[i].mlet;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* returns 3 values (0=male, 1=female, 2=none) */
|
|
int
|
|
gender(struct monst *mtmp)
|
|
{
|
|
if (is_neuter(mtmp->data))
|
|
return 2;
|
|
return mtmp->female;
|
|
}
|
|
|
|
/* Like gender(), but unseen humanoids are "it" rather than "he" or "she"
|
|
and lower animals and such are "it" even when seen; hallucination might
|
|
yield "they". This is the one we want to use when printing messages. */
|
|
int
|
|
pronoun_gender(
|
|
struct monst *mtmp,
|
|
unsigned pg_flags) /* flags&1: 'no it' unless neuter,
|
|
* flags&2: random if hallucinating */
|
|
{
|
|
boolean override_vis = (pg_flags & PRONOUN_NO_IT) ? TRUE : FALSE,
|
|
hallu_rand = (pg_flags & PRONOUN_HALLU) ? TRUE : FALSE;
|
|
|
|
if (hallu_rand && Hallucination)
|
|
return rn2(4); /* 0..3 */
|
|
if (!override_vis && !canspotmon(mtmp))
|
|
return 2;
|
|
if (is_neuter(mtmp->data))
|
|
return 2;
|
|
return (humanoid(mtmp->data) || (mtmp->data->geno & G_UNIQ)
|
|
|| type_is_pname(mtmp->data)) ? (int) mtmp->female : 2;
|
|
}
|
|
|
|
/* used for nearby monsters when you go to another level */
|
|
boolean
|
|
levl_follower(struct monst *mtmp)
|
|
{
|
|
if (mtmp == u.usteed)
|
|
return TRUE;
|
|
|
|
/* Wizard with Amulet won't bother trying to follow across levels */
|
|
if (mtmp->iswiz && mon_has_amulet(mtmp))
|
|
return FALSE;
|
|
/* some monsters will follow even while intending to flee from you */
|
|
if (mtmp->mtame || mtmp->iswiz || is_fshk(mtmp))
|
|
return TRUE;
|
|
/* stalking types follow, but won't when fleeing unless you hold
|
|
the Amulet */
|
|
return (boolean) ((mtmp->data->mflags2 & M2_STALK)
|
|
&& (!mtmp->mflee || u.uhave.amulet));
|
|
}
|
|
|
|
static const short grownups[][2] = {
|
|
{ PM_CHICKATRICE, PM_COCKATRICE },
|
|
{ PM_LITTLE_DOG, PM_DOG },
|
|
{ PM_DOG, PM_LARGE_DOG },
|
|
{ PM_HELL_HOUND_PUP, PM_HELL_HOUND },
|
|
{ PM_WINTER_WOLF_CUB, PM_WINTER_WOLF },
|
|
{ PM_KITTEN, PM_HOUSECAT },
|
|
{ PM_HOUSECAT, PM_LARGE_CAT },
|
|
{ PM_PONY, PM_HORSE },
|
|
{ PM_HORSE, PM_WARHORSE },
|
|
{ PM_KOBOLD, PM_LARGE_KOBOLD },
|
|
{ PM_LARGE_KOBOLD, PM_KOBOLD_LEADER },
|
|
{ PM_GNOME, PM_GNOME_LEADER },
|
|
{ PM_GNOME_LEADER, PM_GNOME_RULER },
|
|
{ PM_DWARF, PM_DWARF_LEADER },
|
|
{ PM_DWARF_LEADER, PM_DWARF_RULER },
|
|
{ PM_MIND_FLAYER, PM_MASTER_MIND_FLAYER },
|
|
{ PM_ORC, PM_ORC_CAPTAIN },
|
|
{ PM_HILL_ORC, PM_ORC_CAPTAIN },
|
|
{ PM_MORDOR_ORC, PM_ORC_CAPTAIN },
|
|
{ PM_URUK_HAI, PM_ORC_CAPTAIN },
|
|
{ PM_SEWER_RAT, PM_GIANT_RAT },
|
|
{ PM_CAVE_SPIDER, PM_GIANT_SPIDER },
|
|
{ PM_OGRE, PM_OGRE_LEADER },
|
|
{ PM_OGRE_LEADER, PM_OGRE_TYRANT },
|
|
{ PM_ELF, PM_ELF_NOBLE },
|
|
{ PM_WOODLAND_ELF, PM_ELF_NOBLE },
|
|
{ PM_GREEN_ELF, PM_ELF_NOBLE },
|
|
{ PM_GREY_ELF, PM_ELF_NOBLE },
|
|
{ PM_ELF_NOBLE, PM_ELVEN_MONARCH },
|
|
{ PM_LICH, PM_DEMILICH },
|
|
{ PM_DEMILICH, PM_MASTER_LICH },
|
|
{ PM_MASTER_LICH, PM_ARCH_LICH },
|
|
{ PM_VAMPIRE, PM_VAMPIRE_LEADER },
|
|
{ PM_BAT, PM_GIANT_BAT },
|
|
{ PM_BABY_GRAY_DRAGON, PM_GRAY_DRAGON },
|
|
{ PM_BABY_GOLD_DRAGON, PM_GOLD_DRAGON },
|
|
{ PM_BABY_SILVER_DRAGON, PM_SILVER_DRAGON },
|
|
#if 0 /* DEFERRED */
|
|
{PM_BABY_SHIMMERING_DRAGON, PM_SHIMMERING_DRAGON},
|
|
#endif
|
|
{ PM_BABY_RED_DRAGON, PM_RED_DRAGON },
|
|
{ PM_BABY_WHITE_DRAGON, PM_WHITE_DRAGON },
|
|
{ PM_BABY_ORANGE_DRAGON, PM_ORANGE_DRAGON },
|
|
{ PM_BABY_BLACK_DRAGON, PM_BLACK_DRAGON },
|
|
{ PM_BABY_BLUE_DRAGON, PM_BLUE_DRAGON },
|
|
{ PM_BABY_GREEN_DRAGON, PM_GREEN_DRAGON },
|
|
{ PM_BABY_YELLOW_DRAGON, PM_YELLOW_DRAGON },
|
|
{ PM_RED_NAGA_HATCHLING, PM_RED_NAGA },
|
|
{ PM_BLACK_NAGA_HATCHLING, PM_BLACK_NAGA },
|
|
{ PM_GOLDEN_NAGA_HATCHLING, PM_GOLDEN_NAGA },
|
|
{ PM_GUARDIAN_NAGA_HATCHLING, PM_GUARDIAN_NAGA },
|
|
{ PM_SMALL_MIMIC, PM_LARGE_MIMIC },
|
|
{ PM_LARGE_MIMIC, PM_GIANT_MIMIC },
|
|
{ PM_BABY_LONG_WORM, PM_LONG_WORM },
|
|
{ PM_BABY_PURPLE_WORM, PM_PURPLE_WORM },
|
|
{ PM_BABY_CROCODILE, PM_CROCODILE },
|
|
{ PM_SOLDIER, PM_SERGEANT },
|
|
{ PM_SERGEANT, PM_LIEUTENANT },
|
|
{ PM_LIEUTENANT, PM_CAPTAIN },
|
|
{ PM_WATCHMAN, PM_WATCH_CAPTAIN },
|
|
{ PM_ALIGNED_CLERIC, PM_HIGH_CLERIC },
|
|
{ PM_STUDENT, PM_ARCHEOLOGIST },
|
|
{ PM_ATTENDANT, PM_HEALER },
|
|
{ PM_PAGE, PM_KNIGHT },
|
|
{ PM_ACOLYTE, PM_CLERIC },
|
|
{ PM_APPRENTICE, PM_WIZARD },
|
|
{ PM_MANES, PM_LEMURE },
|
|
{ PM_KEYSTONE_KOP, PM_KOP_SERGEANT },
|
|
{ PM_KOP_SERGEANT, PM_KOP_LIEUTENANT },
|
|
{ PM_KOP_LIEUTENANT, PM_KOP_KAPTAIN },
|
|
{ NON_PM, NON_PM }
|
|
};
|
|
|
|
int
|
|
little_to_big(int montype)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; grownups[i][0] >= LOW_PM; i++)
|
|
if (montype == grownups[i][0]) {
|
|
montype = grownups[i][1];
|
|
break;
|
|
}
|
|
return montype;
|
|
}
|
|
|
|
int
|
|
big_to_little(int montype)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; grownups[i][0] >= LOW_PM; i++)
|
|
if (montype == grownups[i][1]) {
|
|
montype = grownups[i][0];
|
|
break;
|
|
}
|
|
return montype;
|
|
}
|
|
|
|
/* determine whether two permonst indices are part of the same progression;
|
|
existence of progressions with more than one step makes it a bit tricky */
|
|
boolean
|
|
big_little_match(int montyp1, int montyp2)
|
|
{
|
|
int l, b;
|
|
|
|
/* simplest case: both are same pm */
|
|
if (montyp1 == montyp2)
|
|
return TRUE;
|
|
/* assume it isn't possible to grow from one class letter to another */
|
|
if (mons[montyp1].mlet != mons[montyp2].mlet)
|
|
return FALSE;
|
|
/* check whether montyp1 can grow up into montyp2 */
|
|
for (l = montyp1; (b = little_to_big(l)) != l; l = b)
|
|
if (b == montyp2)
|
|
return TRUE;
|
|
/* check whether montyp2 can grow up into montyp1 */
|
|
for (l = montyp2; (b = little_to_big(l)) != l; l = b)
|
|
if (b == montyp1)
|
|
return TRUE;
|
|
/* neither grows up to become the other; no match */
|
|
return FALSE;
|
|
}
|
|
|
|
/*
|
|
* Return the permonst ptr for the race of the monster.
|
|
* Returns correct pointer for non-polymorphed and polymorphed
|
|
* player. It does not return a pointer to player role character.
|
|
*/
|
|
const struct permonst *
|
|
raceptr(struct monst *mtmp)
|
|
{
|
|
if (mtmp == &gy.youmonst && !Upolyd)
|
|
return &mons[gu.urace.mnum];
|
|
return mtmp->data;
|
|
}
|
|
|
|
typedef const char *const locoverbs[4];
|
|
static locoverbs levitate = { "float", "Float", "wobble", "Wobble" },
|
|
flys = { "fly", "Fly", "flutter", "Flutter" },
|
|
flyl = { "fly", "Fly", "stagger", "Stagger" },
|
|
slither = { "slither", "Slither", "falter", "Falter" },
|
|
/* it would be useful to incorporate "swim" but we lack
|
|
* sufficient information to know whether water is involved
|
|
swim = { "swim", "Swim", "flop", "Flop" },
|
|
*/
|
|
ooze = { "ooze", "Ooze", "tremble", "Tremble" },
|
|
immobile = { "wiggle", "Wiggle", "pulsate", "Pulsate" },
|
|
crawl = { "crawl", "Crawl", "falter", "Falter" };
|
|
|
|
const char *
|
|
locomotion(const struct permonst *ptr, const char *def)
|
|
{
|
|
int locoindx = (*def != highc(*def)) ? 0 : 1;
|
|
|
|
return (is_floater(ptr) ? levitate[locoindx]
|
|
: (is_flyer(ptr) && ptr->msize <= MZ_SMALL) ? flys[locoindx]
|
|
: (is_flyer(ptr) && ptr->msize > MZ_SMALL) ? flyl[locoindx]
|
|
: slithy(ptr) ? slither[locoindx]
|
|
: amorphous(ptr) ? ooze[locoindx]
|
|
: !ptr->mmove ? immobile[locoindx]
|
|
: nolimbs(ptr) ? crawl[locoindx]
|
|
: def);
|
|
}
|
|
|
|
const char *
|
|
stagger(const struct permonst *ptr, const char *def)
|
|
{
|
|
int locoindx = (*def != highc(*def)) ? 2 : 3;
|
|
|
|
return (is_floater(ptr) ? levitate[locoindx]
|
|
: (is_flyer(ptr) && ptr->msize <= MZ_SMALL) ? flys[locoindx]
|
|
: (is_flyer(ptr) && ptr->msize > MZ_SMALL) ? flyl[locoindx]
|
|
: slithy(ptr) ? slither[locoindx]
|
|
: amorphous(ptr) ? ooze[locoindx]
|
|
: !ptr->mmove ? immobile[locoindx]
|
|
: nolimbs(ptr) ? crawl[locoindx]
|
|
: def);
|
|
}
|
|
|
|
/* return phrase describing the effect of fire attack on a type of monster */
|
|
const char *
|
|
on_fire(struct permonst *mptr, struct attack *mattk)
|
|
{
|
|
const char *what;
|
|
|
|
switch (monsndx(mptr)) {
|
|
case PM_FLAMING_SPHERE:
|
|
case PM_FIRE_VORTEX:
|
|
case PM_FIRE_ELEMENTAL:
|
|
case PM_SALAMANDER:
|
|
what = "already on fire";
|
|
break;
|
|
case PM_WATER_ELEMENTAL:
|
|
case PM_FOG_CLOUD:
|
|
case PM_STEAM_VORTEX:
|
|
what = "boiling";
|
|
break;
|
|
case PM_ICE_VORTEX:
|
|
case PM_GLASS_GOLEM:
|
|
what = "melting";
|
|
break;
|
|
case PM_STONE_GOLEM:
|
|
case PM_CLAY_GOLEM:
|
|
case PM_GOLD_GOLEM:
|
|
case PM_AIR_ELEMENTAL:
|
|
case PM_EARTH_ELEMENTAL:
|
|
case PM_DUST_VORTEX:
|
|
case PM_ENERGY_VORTEX:
|
|
what = "heating up";
|
|
break;
|
|
default:
|
|
what = (mattk->aatyp == AT_HUGS) ? "being roasted" : "on fire";
|
|
break;
|
|
}
|
|
return what;
|
|
}
|
|
|
|
/* similar to on_fire(); creature is summoned in a cloud of <something> */
|
|
const char *
|
|
msummon_environ(struct permonst *mptr, const char **cloud)
|
|
{
|
|
const char *what;
|
|
int mndx = ((mptr->mlet == S_ANGEL) ? PM_ANGEL
|
|
: (mptr->mlet == S_LIGHT) ? PM_YELLOW_LIGHT
|
|
: monsndx(mptr));
|
|
|
|
*cloud = "cloud"; /* default is "cloud of <something>" */
|
|
switch (mndx) {
|
|
case PM_WATER_DEMON:
|
|
case PM_AIR_ELEMENTAL:
|
|
case PM_WATER_ELEMENTAL:
|
|
case PM_FOG_CLOUD:
|
|
case PM_ICE_VORTEX:
|
|
case PM_FREEZING_SPHERE:
|
|
what = "vapor";
|
|
break;
|
|
case PM_STEAM_VORTEX:
|
|
what = "steam";
|
|
break;
|
|
case PM_ENERGY_VORTEX:
|
|
case PM_SHOCKING_SPHERE:
|
|
*cloud = "shower"; /* "shower of sparks" instead of "cloud of..." */
|
|
what = "sparks";
|
|
break;
|
|
case PM_EARTH_ELEMENTAL:
|
|
case PM_DUST_VORTEX:
|
|
what = "dust";
|
|
break;
|
|
case PM_FIRE_ELEMENTAL:
|
|
case PM_FIRE_VORTEX:
|
|
case PM_FLAMING_SPHERE:
|
|
/*case PM_SALAMANDER:*/
|
|
*cloud = "ball"; /* "ball of flame" instead of "cloud of..." */
|
|
what = "flame";
|
|
break;
|
|
case PM_ANGEL: /* actually any 'A'-class */
|
|
case PM_YELLOW_LIGHT: /* any 'y'-class */
|
|
*cloud = "flash"; /* "flash of light" instead of "cloud of..." */
|
|
what = "light";
|
|
break;
|
|
default:
|
|
what = "smoke";
|
|
break;
|
|
}
|
|
return what;
|
|
}
|
|
|
|
/*
|
|
* Returns:
|
|
* True if monster is presumed to have a sense of smell.
|
|
* False if monster definitely does not have a sense of smell.
|
|
*
|
|
* Do not base this on presence of a head or nose, since many
|
|
* creatures sense smells other ways (feelers, forked-tongues, etc).
|
|
* We're assuming all insects can smell at a distance too.
|
|
*/
|
|
boolean
|
|
olfaction(struct permonst *mdat)
|
|
{
|
|
if (is_golem(mdat)
|
|
|| mdat->mlet == S_EYE /* spheres */
|
|
|| mdat->mlet == S_JELLY || mdat->mlet == S_PUDDING
|
|
|| mdat->mlet == S_BLOB || mdat->mlet == S_VORTEX
|
|
|| mdat->mlet == S_ELEMENTAL
|
|
|| mdat->mlet == S_FUNGUS /* mushrooms and fungi */
|
|
|| mdat->mlet == S_LIGHT)
|
|
return FALSE;
|
|
return TRUE;
|
|
}
|
|
|
|
/* Convert attack damage type AD_foo to M_SEEN_bar */
|
|
unsigned long
|
|
cvt_adtyp_to_mseenres(uchar adtyp)
|
|
{
|
|
switch (adtyp) {
|
|
case AD_MAGM: return M_SEEN_MAGR;
|
|
case AD_FIRE: return M_SEEN_FIRE;
|
|
case AD_COLD: return M_SEEN_COLD;
|
|
case AD_SLEE: return M_SEEN_SLEEP;
|
|
case AD_DISN: return M_SEEN_DISINT;
|
|
case AD_ELEC: return M_SEEN_ELEC;
|
|
case AD_DRST: return M_SEEN_POISON;
|
|
case AD_ACID: return M_SEEN_ACID;
|
|
/* M_SEEN_REFL has no corresponding AD_foo type */
|
|
default: return M_SEEN_NOTHING;
|
|
}
|
|
}
|
|
|
|
/* Convert property resistance to M_SEEN_bar */
|
|
unsigned long
|
|
cvt_prop_to_mseenres(uchar prop)
|
|
{
|
|
switch (prop) {
|
|
case ANTIMAGIC: return M_SEEN_MAGR;
|
|
case FIRE_RES: return M_SEEN_FIRE;
|
|
case COLD_RES: return M_SEEN_COLD;
|
|
case SLEEP_RES: return M_SEEN_SLEEP;
|
|
case DISINT_RES: return M_SEEN_DISINT;
|
|
case POISON_RES: return M_SEEN_POISON;
|
|
case SHOCK_RES: return M_SEEN_ELEC;
|
|
case ACID_RES: return M_SEEN_ACID;
|
|
case REFLECTING: return M_SEEN_REFL;
|
|
default: return M_SEEN_NOTHING;
|
|
}
|
|
}
|
|
|
|
/* Monsters in line of sight remember hero resisting effect M_SEEN_foo */
|
|
void
|
|
monstseesu(unsigned long seenres)
|
|
{
|
|
struct monst *mtmp;
|
|
|
|
if (seenres == M_SEEN_NOTHING || u.uswallow)
|
|
return;
|
|
|
|
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
|
|
if (!DEADMONSTER(mtmp) && m_canseeu(mtmp))
|
|
m_setseenres(mtmp, seenres);
|
|
}
|
|
|
|
/* Monsters in line of sight forget hero resistance to M_SEEN_foo */
|
|
void
|
|
monstunseesu(unsigned long seenres)
|
|
{
|
|
struct monst *mtmp;
|
|
|
|
if (seenres == M_SEEN_NOTHING || u.uswallow)
|
|
return;
|
|
|
|
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
|
|
if (!DEADMONSTER(mtmp) && m_canseeu(mtmp))
|
|
m_clearseenres(mtmp, seenres);
|
|
}
|
|
|
|
/* give monster mtmp the same intrinsics hero has */
|
|
void
|
|
give_u_to_m_resistances(struct monst *mtmp)
|
|
{
|
|
int intr;
|
|
|
|
/* convert the hero's current set of intrinsics to their monster
|
|
equivalents -- FIRE_RES to MR_FIRE, COLD_RES to MR_COLD, etc -- and
|
|
add each to the mintrinsics field for the given monster */
|
|
for (intr = FIRE_RES; intr <= STONE_RES; intr++) {
|
|
if ((u.uprops[intr].intrinsic & INTRINSIC) != 0L) {
|
|
mtmp->mintrinsics |= (unsigned short) res_to_mr(intr);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Can monster resist conflict caused by hero?
|
|
|
|
High-CHA heroes will be able to 'convince' monsters
|
|
(through the magic of the ring, of course) to fight
|
|
for them much more easily than low-CHA ones.
|
|
*/
|
|
boolean
|
|
resist_conflict(struct monst *mtmp)
|
|
{
|
|
/* always a small chance at 19 */
|
|
int resist_chance = min(19, (ACURR(A_CHA) - mtmp->m_lev + u.ulevel));
|
|
|
|
return (rnd(20) > resist_chance);
|
|
}
|
|
|
|
/* does monster mtmp know traps of type ttyp */
|
|
boolean
|
|
mon_knows_traps(struct monst *mtmp, int ttyp)
|
|
{
|
|
if (ttyp == ALL_TRAPS)
|
|
return (boolean)(mtmp->mtrapseen);
|
|
else if (ttyp == NO_TRAP)
|
|
return !(boolean)(mtmp->mtrapseen);
|
|
else
|
|
return ((mtmp->mtrapseen & (1L << (ttyp - 1))) != 0);
|
|
}
|
|
|
|
/* monster mtmp learns all traps of type ttyp */
|
|
void
|
|
mon_learns_traps(struct monst *mtmp, int ttyp)
|
|
{
|
|
if (ttyp == ALL_TRAPS)
|
|
mtmp->mtrapseen = ~0L;
|
|
else if (ttyp == NO_TRAP)
|
|
mtmp->mtrapseen = 0L;
|
|
else
|
|
mtmp->mtrapseen |= (1L << (ttyp - 1));
|
|
}
|
|
|
|
/* monsters see a trap trigger, and remember it */
|
|
void
|
|
mons_see_trap(struct trap *ttmp)
|
|
{
|
|
struct monst *mtmp;
|
|
coordxy tx = ttmp->tx, ty = ttmp->ty;
|
|
int maxdist = levl[tx][ty].lit ? 7*7 : 2;
|
|
|
|
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
|
|
if (is_animal(mtmp->data) || mindless(mtmp->data)
|
|
|| !haseyes(mtmp->data) || !mtmp->mcansee)
|
|
continue;
|
|
if (dist2(mtmp->mx, mtmp->my, tx, ty) > maxdist)
|
|
continue;
|
|
if (!m_cansee(mtmp, tx, ty))
|
|
continue;
|
|
mon_learns_traps(mtmp, ttmp->ttyp);
|
|
}
|
|
}
|
|
|
|
int
|
|
get_atkdam_type(int adtyp)
|
|
{
|
|
if (adtyp == AD_RBRE) {
|
|
static const int rnd_breath_typ[] = {
|
|
AD_MAGM, AD_FIRE, AD_COLD, AD_SLEE,
|
|
AD_DISN, AD_ELEC, AD_DRST, AD_ACID };
|
|
return ROLL_FROM(rnd_breath_typ);
|
|
}
|
|
return adtyp;
|
|
}
|
|
|
|
/*mondata.c*/
|