nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity
Files
70b04bfb6e1eb2b7bd832bedfe0950fbf24267f4
nethack/src/dogmove.c
nethack.allison 0dc071bee8 mextra changes 
Note: The CVS repository was tagged with NETHACK_PRE_MEXTRA
prior to application of this patch to allow easy withdrawal if necessary.

Adds a new mextra structure type that has a set
of pointers to various types of monster structures
including:
   mname, egd, epri, eshk, emin, edog

Replaces the mextra bits in the monst structure
with a single pointer called mtmp->mextra of type
(struct mextra *).
The pointer can be null if there are no additional
structures attached. The mextra structure is not
adjacent to the monst structure.

Reduces the in-memory footprint of the monst that
has no other structures attached, at the cost
of adding 6 extra long ints per monster to
the save file

The new mextra structure has the mextra fields
independent of each other, not overlapping as was
the case with previous NetHack versions.
This patch doesn't do anything to capitalize on
that difference however.

Consolidates vault.h, epri.h, eshk.h, emin.h and edog.h
into mextra.h

Adds a macro for checking for whether a monster has
a name:
	has_name(monst)

This fixes the magic trap panic
   expels() -> spoteffects() -> dotrap() ->
	domagictrap() -> tamedog()
because the monst no longer varies in size so no
replacement is required.
2006-01-06 05:46:03 +00:00

1032 lines
30 KiB
C
Raw Blame History

/* SCCS Id: @(#)dogmove.c 3.5 2005/10/14 */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */
#include "hack.h"
#include "mfndpos.h"
extern boolean notonhead;
STATIC_DCL boolean FDECL(dog_hunger,(struct monst *,struct edog *));
STATIC_DCL int FDECL(dog_invent,(struct monst *,struct edog *,int));
STATIC_DCL int FDECL(dog_goal,(struct monst *,struct edog *,int,int,int));
STATIC_DCL boolean FDECL(can_reach_location,(struct monst *,XCHAR_P,XCHAR_P,
XCHAR_P,XCHAR_P));
STATIC_DCL boolean FDECL(could_reach_item,(struct monst *, XCHAR_P,XCHAR_P));
STATIC_DCL void FDECL(quickmimic, (struct monst *));
/* pick a carried item for pet to drop */
struct obj *
droppables(mon)
struct monst *mon;
{
struct obj *obj, *wep,
dummy, *pickaxe, *unihorn, *key;
#ifndef TOURIST
#define CREDIT_CARD STRANGE_OBJECT /* avoids messy conditionalization */
#endif
#ifndef GOLDOBJ
if (mon->mgold) return &zeroobj; /* pet has something to drop */
#endif
dummy = zeroobj;
dummy.otyp = GOLD_PIECE; /* not STRANGE_OBJECT or tools of interest */
dummy.oartifact = 1; /* so real artifact won't override "don't keep it" */
pickaxe = unihorn = key = (struct obj *)0;
wep = MON_WEP(mon);
if (is_animal(mon->data) || mindless(mon->data)) {
/* won't hang on to any objects of these types */
pickaxe = unihorn = key = &dummy; /* act as if already have them */
} else {
/* don't hang on to pick-axe if can't use one or don't need one */
if (!tunnels(mon->data) || !needspick(mon->data)) pickaxe = &dummy;
/* don't hang on to key if can't open doors */
if (nohands(mon->data) || verysmall(mon->data)) key = &dummy;
}
if (wep) {
if (is_pick(wep)) pickaxe = wep;
if (wep->otyp == UNICORN_HORN) unihorn = wep;
/* don't need any wielded check for keys... */
}
for (obj = mon->minvent; obj; obj = obj->nobj) {
switch (obj->otyp) {
case DWARVISH_MATTOCK:
/* reject mattock if couldn't wield it */
if (which_armor(mon, W_ARMS)) break;
/* keep mattock in preference to pick unless pick is already
wielded or is an artifact and mattock isn't */
if (pickaxe && pickaxe->otyp == PICK_AXE &&
pickaxe != wep && (!pickaxe->oartifact || obj->oartifact))
return pickaxe; /* drop the one we earlier decided to keep */
/*FALLTHRU*/
case PICK_AXE:
if (!pickaxe || (obj->oartifact && !pickaxe->oartifact)) {
if (pickaxe) return pickaxe;
pickaxe = obj; /* keep this digging tool */
continue;
}
break;
case UNICORN_HORN:
/* reject cursed unicorn horns */
if (obj->cursed) break;
/* keep artifact unihorn in preference to ordinary one */
if (!unihorn || (obj->oartifact && !unihorn->oartifact)) {
if (unihorn) return unihorn;
unihorn = obj; /* keep this unicorn horn */
continue;
}
break;
case SKELETON_KEY:
/* keep key in preference to lock-pick */
if (key && key->otyp == LOCK_PICK &&
(!key->oartifact || obj->oartifact))
return key; /* drop the one we earlier decided to keep */
/*FALLTHRU*/
case LOCK_PICK:
/* keep lock-pick in preference to credit card */
if (key && key->otyp == CREDIT_CARD &&
(!key->oartifact || obj->oartifact))
return key;
/*FALLTHRU*/
case CREDIT_CARD:
if (!key || (obj->oartifact && !key->oartifact)) {
if (key) return key;
key = obj; /* keep this unlocking tool */
continue;
}
break;
default:
break;
}
if (!obj->owornmask && obj != wep) return obj;
}
#ifndef TOURIST
#undef CREDIT_CARD
#endif
return (struct obj *)0; /* don't drop anything */
}
static NEARDATA const char nofetch[] = { BALL_CLASS, CHAIN_CLASS, ROCK_CLASS, 0 };
#ifndef BARGETHROUGH
STATIC_OVL boolean FDECL(cursed_object_at, (int, int));
#endif /* not BARGETHROUGH */
STATIC_VAR xchar gtyp, gx, gy; /* type and position of dog's current goal */
STATIC_PTR void FDECL(wantdoor, (int, int, genericptr_t));
#ifdef BARGETHROUGH
boolean
#else
STATIC_OVL boolean
#endif
cursed_object_at(x, y)
int x, y;
{
struct obj *otmp;
for(otmp = level.objects[x][y]; otmp; otmp = otmp->nexthere)
if (otmp->cursed) return TRUE;
return FALSE;
}
int
dog_nutrition(mtmp, obj)
struct monst *mtmp;
struct obj *obj;
{
int nutrit;
/*
* It is arbitrary that the pet takes the same length of time to eat
* as a human, but gets more nutritional value.
*/
if (obj->oclass == FOOD_CLASS) {
if(obj->otyp == CORPSE) {
mtmp->meating = 3 + (mons[obj->corpsenm].cwt >> 6);
nutrit = mons[obj->corpsenm].cnutrit;
} else {
mtmp->meating = objects[obj->otyp].oc_delay;
nutrit = objects[obj->otyp].oc_nutrition;
}
switch(mtmp->data->msize) {
case MZ_TINY: nutrit *= 8; break;
case MZ_SMALL: nutrit *= 6; break;
default:
case MZ_MEDIUM: nutrit *= 5; break;
case MZ_LARGE: nutrit *= 4; break;
case MZ_HUGE: nutrit *= 3; break;
case MZ_GIGANTIC: nutrit *= 2; break;
}
if(obj->oeaten) {
mtmp->meating = eaten_stat(mtmp->meating, obj);
nutrit = eaten_stat(nutrit, obj);
}
} else if (obj->oclass == COIN_CLASS) {
mtmp->meating = (int)(obj->quan/2000) + 1;
if (mtmp->meating < 0) mtmp->meating = 1;
nutrit = (int)(obj->quan/20);
if (nutrit < 0) nutrit = 0;
} else {
/* Unusual pet such as gelatinous cube eating odd stuff.
* meating made consistent with wild monsters in mon.c.
* nutrit made consistent with polymorphed player nutrit in
* eat.c. (This also applies to pets eating gold.)
*/
mtmp->meating = obj->owt/20 + 1;
nutrit = 5*objects[obj->otyp].oc_nutrition;
}
return nutrit;
}
/* returns 2 if pet dies, otherwise 1 */
int
dog_eat(mtmp, obj, x, y, devour)
register struct monst *mtmp;
register struct obj * obj;
int x, y;
boolean devour;
{
register struct edog *edog = EDOG(mtmp);
boolean poly = FALSE, grow = FALSE, heal = FALSE;
int nutrit;
boolean deadmimic = FALSE;
if(edog->hungrytime < monstermoves)
edog->hungrytime = monstermoves;
nutrit = dog_nutrition(mtmp, obj);
deadmimic = (obj->otyp == CORPSE &&
(obj->corpsenm == PM_SMALL_MIMIC ||
obj->corpsenm == PM_LARGE_MIMIC ||
obj->corpsenm == PM_GIANT_MIMIC));
poly = polyfodder(obj);
grow = mlevelgain(obj);
heal = mhealup(obj);
if (devour) {
if (mtmp->meating > 1) mtmp->meating /= 2;
if (nutrit > 1) nutrit = (nutrit * 3) / 4;
}
edog->hungrytime += nutrit;
mtmp->mconf = 0;
if (edog->mhpmax_penalty) {
/* no longer starving */
mtmp->mhpmax += edog->mhpmax_penalty;
edog->mhpmax_penalty = 0;
}
if (mtmp->mflee && mtmp->mfleetim > 1) mtmp->mfleetim /= 2;
if (mtmp->mtame < 20) mtmp->mtame++;
if (x != mtmp->mx || y != mtmp->my) { /* moved & ate on same turn */
newsym(x, y);
newsym(mtmp->mx, mtmp->my);
}
if (is_pool(x, y) && !Underwater) {
/* Don't print obj */
/* TODO: Reveal presence of sea monster (especially sharks) */
} else
/* hack: observe the action if either new or old location is in view */
/* However, invisible monsters should still be "it" even though out of
sight locations should not. */
if (cansee(x, y) || cansee(mtmp->mx, mtmp->my))
pline("%s %s %s.", mon_visible(mtmp) ? noit_Monnam(mtmp) : "It",
devour ? "devours" : "eats",
(obj->oclass == FOOD_CLASS) ?
singular(obj, doname) : doname(obj));
/* It's a reward if it's DOGFOOD and the player dropped/threw it. */
/* We know the player had it if invlet is set -dlc */
if(dogfood(mtmp,obj) == DOGFOOD && obj->invlet)
#ifdef LINT
edog->apport = 0;
#else
edog->apport += (int)(200L/
((long)edog->dropdist + monstermoves - edog->droptime));
#endif
if (mtmp->data == &mons[PM_RUST_MONSTER] && obj->oerodeproof) {
/* The object's rustproofing is gone now */
obj->oerodeproof = 0;
mtmp->mstun = 1;
if (canseemon(mtmp) && flags.verbose) {
pline("%s spits %s out in disgust!",
Monnam(mtmp), distant_name(obj,doname));
}
} else if (obj == uball) {
unpunish();
delobj(obj);
} else if (obj == uchain)
unpunish();
else if (obj->quan > 1L && obj->oclass == FOOD_CLASS) {
obj->quan--;
obj->owt = weight(obj);
} else
delobj(obj);
if (poly) {
(void) newcham(mtmp, (struct permonst *)0, FALSE,
cansee(mtmp->mx, mtmp->my));
}
/* limit "instant" growth to prevent potential abuse */
if (grow && (int) mtmp->m_lev < (int)mtmp->data->mlevel + 15) {
if (!grow_up(mtmp, (struct monst *)0)) return 2;
}
if (heal) mtmp->mhp = mtmp->mhpmax;
if (deadmimic) quickmimic(mtmp);
return 1;
}
/* hunger effects -- returns TRUE on starvation */
STATIC_OVL boolean
dog_hunger(mtmp, edog)
register struct monst *mtmp;
register struct edog *edog;
{
if (monstermoves > edog->hungrytime + 500) {
if (!carnivorous(mtmp->data) && !herbivorous(mtmp->data)) {
edog->hungrytime = monstermoves + 500;
/* but not too high; it might polymorph */
} else if (!edog->mhpmax_penalty) {
/* starving pets are limited in healing */
int newmhpmax = mtmp->mhpmax / 3;
mtmp->mconf = 1;
edog->mhpmax_penalty = mtmp->mhpmax - newmhpmax;
mtmp->mhpmax = newmhpmax;
if (mtmp->mhp > mtmp->mhpmax)
mtmp->mhp = mtmp->mhpmax;
if (mtmp->mhp < 1) goto dog_died;
if (cansee(mtmp->mx, mtmp->my))
pline("%s is confused from hunger.", Monnam(mtmp));
else if (couldsee(mtmp->mx, mtmp->my))
beg(mtmp);
else
You_feel("worried about %s.", y_monnam(mtmp));
stop_occupation();
} else if (monstermoves > edog->hungrytime + 750 || mtmp->mhp < 1) {
dog_died:
if (mtmp->mleashed
#ifdef STEED
&& mtmp != u.usteed
#endif
)
Your("leash goes slack.");
else if (cansee(mtmp->mx, mtmp->my))
pline("%s starves.", Monnam(mtmp));
else
You_feel("%s for a moment.",
Hallucination ? "bummed" : "sad");
mondied(mtmp);
return(TRUE);
}
}
return(FALSE);
}
/* do something with object (drop, pick up, eat) at current position
* returns 1 if object eaten (since that counts as dog's move), 2 if died
*/
STATIC_OVL int
dog_invent(mtmp, edog, udist)
register struct monst *mtmp;
register struct edog *edog;
int udist;
{
register int omx, omy;
struct obj *obj;
if (mtmp->msleeping || !mtmp->mcanmove) return(0);
omx = mtmp->mx;
omy = mtmp->my;
/* if we are carrying sth then we drop it (perhaps near @) */
/* Note: if apport == 1 then our behaviour is independent of udist */
/* Use udist+1 so steed won't cause divide by zero */
if (droppables(mtmp)) {
if (!rn2(udist+1) || !rn2(edog->apport))
if(rn2(10) < edog->apport){
relobj(mtmp, (int)mtmp->minvis, TRUE);
if(edog->apport > 1) edog->apport--;
edog->dropdist = udist; /* hpscdi!jon */
edog->droptime = monstermoves;
}
} else {
if((obj=level.objects[omx][omy]) && !index(nofetch,obj->oclass)
#ifdef MAIL
&& obj->otyp != SCR_MAIL
#endif
){
int edible = dogfood(mtmp, obj);
if ((edible <= CADAVER ||
/* starving pet is more aggressive about eating */
(edog->mhpmax_penalty && edible == ACCFOOD)) &&
could_reach_item(mtmp, obj->ox, obj->oy))
return dog_eat(mtmp, obj, omx, omy, FALSE);
if(can_carry(mtmp, obj) && !obj->cursed &&
could_reach_item(mtmp, obj->ox, obj->oy)) {
if(rn2(20) < edog->apport+3) {
if (rn2(udist) || !rn2(edog->apport)) {
if (cansee(omx, omy) && flags.verbose)
pline("%s picks up %s.", Monnam(mtmp),
distant_name(obj, doname));
obj_extract_self(obj);
newsym(omx,omy);
(void) mpickobj(mtmp,obj);
if (attacktype(mtmp->data, AT_WEAP) &&
mtmp->weapon_check == NEED_WEAPON) {
mtmp->weapon_check = NEED_HTH_WEAPON;
(void) mon_wield_item(mtmp);
}
m_dowear(mtmp, FALSE);
}
}
}
}
}
return 0;
}
/* set dog's goal -- gtyp, gx, gy
* returns -1/0/1 (dog's desire to approach player) or -2 (abort move)
*/
STATIC_OVL int
dog_goal(mtmp, edog, after, udist, whappr)
register struct monst *mtmp;
struct edog *edog;
int after, udist, whappr;
{
register int omx, omy;
boolean in_masters_sight, dog_has_minvent;
register struct obj *obj;
xchar otyp;
int appr;
#ifdef STEED
/* Steeds don't move on their own will */
if (mtmp == u.usteed)
return (-2);
#endif
omx = mtmp->mx;
omy = mtmp->my;
in_masters_sight = couldsee(omx, omy);
dog_has_minvent = (droppables(mtmp) != 0);
if (!edog || mtmp->mleashed) { /* he's not going anywhere... */
gtyp = APPORT;
gx = u.ux;
gy = u.uy;
} else {
#define DDIST(x,y) (dist2(x,y,omx,omy))
#define SQSRCHRADIUS 5
int min_x, max_x, min_y, max_y;
register int nx, ny;
gtyp = UNDEF; /* no goal as yet */
gx = gy = 0; /* suppress 'used before set' message */
if ((min_x = omx - SQSRCHRADIUS) < 1) min_x = 1;
if ((max_x = omx + SQSRCHRADIUS) >= COLNO) max_x = COLNO - 1;
if ((min_y = omy - SQSRCHRADIUS) < 0) min_y = 0;
if ((max_y = omy + SQSRCHRADIUS) >= ROWNO) max_y = ROWNO - 1;
/* nearby food is the first choice, then other objects */
for (obj = fobj; obj; obj = obj->nobj) {
nx = obj->ox;
ny = obj->oy;
if (nx >= min_x && nx <= max_x && ny >= min_y && ny <= max_y) {
otyp = dogfood(mtmp, obj);
/* skip inferior goals */
if (otyp > gtyp || otyp == UNDEF)
continue;
/* avoid cursed items unless starving */
if (cursed_object_at(nx, ny) &&
!(edog->mhpmax_penalty && otyp < MANFOOD))
continue;
/* skip completely unreacheable goals */
if (!could_reach_item(mtmp, nx, ny) ||
!can_reach_location(mtmp, mtmp->mx, mtmp->my, nx, ny))
continue;
if (otyp < MANFOOD) {
if (otyp < gtyp || DDIST(nx,ny) < DDIST(gx,gy)) {
gx = nx;
gy = ny;
gtyp = otyp;
}
} else if(gtyp == UNDEF && in_masters_sight &&
!dog_has_minvent &&
(!levl[omx][omy].lit || levl[u.ux][u.uy].lit) &&
(otyp == MANFOOD || m_cansee(mtmp, nx, ny)) &&
edog->apport > rn2(8) &&
can_carry(mtmp,obj)) {
gx = nx;
gy = ny;
gtyp = APPORT;
}
}
}
}
/* follow player if appropriate */
if (gtyp == UNDEF ||
(gtyp != DOGFOOD && gtyp != APPORT && monstermoves < edog->hungrytime)) {
gx = u.ux;
gy = u.uy;
if (after && udist <= 4 && gx == u.ux && gy == u.uy)
return(-2);
appr = (udist >= 9) ? 1 : (mtmp->mflee) ? -1 : 0;
if (udist > 1) {
if (!IS_ROOM(levl[u.ux][u.uy].typ) || !rn2(4) ||
whappr ||
(dog_has_minvent && rn2(edog->apport)))
appr = 1;
}
/* if you have dog food it'll follow you more closely */
if (appr == 0) {
obj = invent;
while (obj) {
if(dogfood(mtmp, obj) == DOGFOOD) {
appr = 1;
break;
}
obj = obj->nobj;
}
}
} else
appr = 1; /* gtyp != UNDEF */
if(mtmp->mconf)
appr = 0;
#define FARAWAY (COLNO + 2) /* position outside screen */
if (gx == u.ux && gy == u.uy && !in_masters_sight) {
register coord *cp;
cp = gettrack(omx,omy);
if (cp) {
gx = cp->x;
gy = cp->y;
if(edog) edog->ogoal.x = 0;
} else {
/* assume master hasn't moved far, and reuse previous goal */
if(edog && edog->ogoal.x &&
((edog->ogoal.x != omx) || (edog->ogoal.y != omy))) {
gx = edog->ogoal.x;
gy = edog->ogoal.y;
edog->ogoal.x = 0;
} else {
int fardist = FARAWAY * FARAWAY;
gx = gy = FARAWAY; /* random */
do_clear_area(omx, omy, 9, wantdoor,
(genericptr_t)&fardist);
/* here gx == FARAWAY e.g. when dog is in a vault */
if (gx == FARAWAY || (gx == omx && gy == omy)) {
gx = u.ux;
gy = u.uy;
} else if(edog) {
edog->ogoal.x = gx;
edog->ogoal.y = gy;
}
}
}
} else if(edog) {
edog->ogoal.x = 0;
}
return appr;
}
/* return 0 (no move), 1 (move) or 2 (dead) */
int
dog_move(mtmp, after)
register struct monst *mtmp;
register int after; /* this is extra fast monster movement */
{
int omx, omy; /* original mtmp position */
int appr, whappr, udist;
int i, j, k;
register struct edog *edog = EDOG(mtmp);
struct obj *obj = (struct obj *) 0;
xchar otyp;
boolean has_edog, cursemsg[9], do_eat = FALSE;
#ifdef BARGETHROUGH
boolean better_with_displacing = FALSE;
#endif
xchar nix, niy; /* position mtmp is (considering) moving to */
register int nx, ny; /* temporary coordinates */
xchar cnt, uncursedcnt, chcnt;
int chi = -1, nidist, ndist;
coord poss[9];
long info[9], allowflags;
#define GDIST(x,y) (dist2(x,y,gx,gy))
/*
* Tame Angels have isminion set and an ispriest structure instead of
* an edog structure. Fortunately, guardian Angels need not worry
* about mundane things like eating and fetching objects, and can
* spend all their energy defending the player. (They are the only
* monsters with other structures that can be tame.)
*/
has_edog = !mtmp->isminion;
omx = mtmp->mx;
omy = mtmp->my;
if (has_edog && dog_hunger(mtmp, edog)) return(2); /* starved */
udist = distu(omx,omy);
#ifdef STEED
/* Let steeds eat and maybe throw rider during Conflict */
if (mtmp == u.usteed) {
if (Conflict && !resist(mtmp, RING_CLASS, 0, 0)) {
dismount_steed(DISMOUNT_THROWN);
return (1);
}
udist = 1;
} else
#endif
/* maybe we tamed him while being swallowed --jgm */
if (!udist) return(0);
nix = omx; /* set before newdogpos */
niy = omy;
cursemsg[0] = FALSE; /* lint suppression */
info[0] = 0; /* ditto */
if (has_edog) {
j = dog_invent(mtmp, edog, udist);
if (j == 2) return 2; /* died */
else if (j == 1) goto newdogpos; /* eating something */
whappr = (monstermoves - edog->whistletime < 5);
} else
whappr = 0;
appr = dog_goal(mtmp, has_edog ? edog : (struct edog *)0,
after, udist, whappr);
if (appr == -2) return(0);
allowflags = ALLOW_M | ALLOW_TRAPS | ALLOW_SSM | ALLOW_SANCT;
if (passes_walls(mtmp->data)) allowflags |= (ALLOW_ROCK | ALLOW_WALL);
if (passes_bars(mtmp->data)) allowflags |= ALLOW_BARS;
if (throws_rocks(mtmp->data)) allowflags |= ALLOW_ROCK;
#ifdef BARGETHROUGH
if (is_displacer(mtmp->data)) allowflags |= ALLOW_MDISP;
#endif
if (Conflict && !resist(mtmp, RING_CLASS, 0, 0)) {
allowflags |= ALLOW_U;
if (!has_edog) {
/* Guardian angel refuses to be conflicted; rather,
* it disappears, angrily, and sends in some nasties
*/
lose_guardian_angel(mtmp);
return 2; /* current monster is gone */
}
}
if (!Conflict && !mtmp->mconf &&
mtmp == u.ustuck && !sticks(youmonst.data)) {
unstuck(mtmp); /* swallowed case handled above */
You("get released!");
}
if (!nohands(mtmp->data) && !verysmall(mtmp->data)) {
allowflags |= OPENDOOR;
if (monhaskey(mtmp, TRUE)) allowflags |= UNLOCKDOOR;
/* note: the Wizard and Riders can unlock doors without a key;
they won't use that ability if someone manages to tame them */
}
if (is_giant(mtmp->data)) allowflags |= BUSTDOOR;
if (tunnels(mtmp->data)
#ifdef REINCARNATION
&& !Is_rogue_level(&u.uz) /* same restriction as m_move() */
#endif
) allowflags |= ALLOW_DIG;
cnt = mfndpos(mtmp, poss, info, allowflags);
/* Normally dogs don't step on cursed items, but if they have no
* other choice they will. This requires checking ahead of time
* to see how many uncursed item squares are around.
*/
uncursedcnt = 0;
for (i = 0; i < cnt; i++) {
nx = poss[i].x; ny = poss[i].y;
#ifdef BARGETHROUGH
if (MON_AT(nx,ny) && !((info[i] & ALLOW_M) || info[i] & ALLOW_MDISP))
continue;
#else
if (MON_AT(nx,ny) && !(info[i] & ALLOW_M)) continue;
#endif
if (cursed_object_at(nx, ny)) continue;
uncursedcnt++;
}
#ifdef BARGETHROUGH
better_with_displacing = should_displace(mtmp,poss,info,cnt,gx,gy);
#endif
chcnt = 0;
chi = -1;
nidist = GDIST(nix,niy);
for (i = 0; i < cnt; i++) {
nx = poss[i].x;
ny = poss[i].y;
cursemsg[i] = FALSE;
/* if leashed, we drag him along. */
if (mtmp->mleashed && distu(nx, ny) > 4) continue;
/* if a guardian, try to stay close by choice */
if (!has_edog &&
(j = distu(nx, ny)) > 16 && j >= udist) continue;
if ((info[i] & ALLOW_M) && MON_AT(nx, ny)) {
int mstatus;
register struct monst *mtmp2 = m_at(nx,ny);
if ((int)mtmp2->m_lev >= (int)mtmp->m_lev+2 ||
(mtmp2->data == &mons[PM_FLOATING_EYE] && rn2(10) &&
mtmp->mcansee && haseyes(mtmp->data) && mtmp2->mcansee
&& (perceives(mtmp->data) || !mtmp2->minvis)) ||
(mtmp2->data==&mons[PM_GELATINOUS_CUBE] && rn2(10)) ||
(max_passive_dmg(mtmp2, mtmp) >= mtmp->mhp) ||
((mtmp->mhp*4 < mtmp->mhpmax
|| mtmp2->data->msound == MS_GUARDIAN
|| mtmp2->data->msound == MS_LEADER) &&
mtmp2->mpeaceful && !Conflict) ||
(touch_petrifies(mtmp2->data) &&
!resists_ston(mtmp)))
continue;
if (after) return(0); /* hit only once each move */
notonhead = 0;
mstatus = mattackm(mtmp, mtmp2);
/* aggressor (pet) died */
if (mstatus & MM_AGR_DIED) return 2;
if ((mstatus & MM_HIT) && !(mstatus & MM_DEF_DIED) &&
rn2(4) && mtmp2->mlstmv != monstermoves &&
!onscary(mtmp->mx, mtmp->my, mtmp2) &&
/* monnear check needed: long worms hit on tail */
monnear(mtmp2, mtmp->mx, mtmp->my)) {
mstatus = mattackm(mtmp2, mtmp); /* return attack */
if (mstatus & MM_DEF_DIED) return 2;
}
return 0;
}
#ifdef BARGETHROUGH
if ((info[i] & ALLOW_MDISP) && MON_AT(nx, ny) &&
better_with_displacing &&
!undesirable_disp(mtmp,nx,ny)) {
int mstatus;
register struct monst *mtmp2 = m_at(nx,ny);
mstatus = mdisplacem(mtmp, mtmp2, FALSE); /* displace monster */
if (mstatus && MM_DEF_DIED) return 2;
return 0;
}
#endif /* BARGETHROUGH */
{ /* Dog avoids harmful traps, but perhaps it has to pass one
* in order to follow player. (Non-harmful traps do not
* have ALLOW_TRAPS in info[].) The dog only avoids the
* trap if you've seen it, unlike enemies who avoid traps
* if they've seen some trap of that type sometime in the
* past. (Neither behavior is really realistic.)
*/
struct trap *trap;
if ((info[i] & ALLOW_TRAPS) && (trap = t_at(nx,ny))) {
if (mtmp->mleashed) {
if (!Deaf) whimper(mtmp);
} else
/* 1/40 chance of stepping on it anyway, in case
* it has to pass one to follow the player...
*/
if (trap->tseen && rn2(40)) continue;
}
}
/* dog eschews cursed objects, but likes dog food */
/* (minion isn't interested; `cursemsg' stays FALSE) */
if (has_edog)
for (obj = level.objects[nx][ny]; obj; obj = obj->nexthere) {
if (obj->cursed) cursemsg[i] = TRUE;
else if ((otyp = dogfood(mtmp, obj)) < MANFOOD &&
(otyp < ACCFOOD || edog->hungrytime <= monstermoves)) {
/* Note: our dog likes the food so much that he
* might eat it even when it conceals a cursed object */
nix = nx;
niy = ny;
chi = i;
do_eat = TRUE;
cursemsg[i] = FALSE; /* not reluctant */
goto newdogpos;
}
}
/* didn't find something to eat; if we saw a cursed item and
aren't being forced to walk on it, usually keep looking */
if (cursemsg[i] && !mtmp->mleashed && uncursedcnt > 0 &&
rn2(13 * uncursedcnt)) continue;
/* lessen the chance of backtracking to previous position(s) */
k = has_edog ? uncursedcnt : cnt;
for (j = 0; j < MTSZ && j < k - 1; j++)
if (nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y)
if (rn2(MTSZ * (k - j))) goto nxti;
j = ((ndist = GDIST(nx,ny)) - nidist) * appr;
if ((j == 0 && !rn2(++chcnt)) || j < 0 ||
(j > 0 && !whappr &&
((omx == nix && omy == niy && !rn2(3))
|| !rn2(12))
)) {
nix = nx;
niy = ny;
nidist = ndist;
if(j < 0) chcnt = 0;
chi = i;
}
nxti: ;
}
newdogpos:
if (nix != omx || niy != omy) {
struct obj *mw_tmp;
boolean wasseen;
if (info[chi] & ALLOW_U) {
if (mtmp->mleashed) { /* play it safe */
pline("%s breaks loose of %s leash!",
Monnam(mtmp), mhis(mtmp));
m_unleash(mtmp, FALSE);
}
(void) mattacku(mtmp);
return(0);
}
if (!m_in_out_region(mtmp, nix, niy))
return 1;
if (((IS_ROCK(levl[nix][niy].typ) && may_dig(nix,niy)) ||
closed_door(nix, niy)) &&
mtmp->weapon_check != NO_WEAPON_WANTED &&
tunnels(mtmp->data) && needspick(mtmp->data)) {
if (closed_door(nix, niy)) {
if (!(mw_tmp = MON_WEP(mtmp)) ||
!is_pick(mw_tmp) || !is_axe(mw_tmp))
mtmp->weapon_check = NEED_PICK_OR_AXE;
} else if (IS_TREE(levl[nix][niy].typ)) {
if (!(mw_tmp = MON_WEP(mtmp)) || !is_axe(mw_tmp))
mtmp->weapon_check = NEED_AXE;
} else if (!(mw_tmp = MON_WEP(mtmp)) || !is_pick(mw_tmp)) {
mtmp->weapon_check = NEED_PICK_AXE;
}
if (mtmp->weapon_check >= NEED_PICK_AXE &&
mon_wield_item(mtmp))
return 0;
}
/* insert a worm_move() if worms ever begin to eat things */
wasseen = canseemon(mtmp);
remove_monster(omx, omy);
place_monster(mtmp, nix, niy);
if (cursemsg[chi] && (wasseen || canseemon(mtmp)))
pline("%s moves only reluctantly.", noit_Monnam(mtmp));
for (j=MTSZ-1; j>0; j--) mtmp->mtrack[j] = mtmp->mtrack[j-1];
mtmp->mtrack[0].x = omx;
mtmp->mtrack[0].y = omy;
/* We have to know if the pet's gonna do a combined eat and
* move before moving it, but it can't eat until after being
* moved. Thus the do_eat flag.
*/
if (do_eat) {
if (dog_eat(mtmp, obj, omx, omy, FALSE) == 2) return 2;
}
} else if (mtmp->mleashed && distu(omx, omy) > 4) {
/* an incredible kludge, but the only way to keep pooch near
* after it spends time eating or in a trap, etc.
*/
coord cc;
nx = sgn(omx - u.ux);
ny = sgn(omy - u.uy);
cc.x = u.ux + nx;
cc.y = u.uy + ny;
if (goodpos(cc.x, cc.y, mtmp, 0)) goto dognext;
i = xytod(nx, ny);
for (j = (i + 7)%8; j < (i + 1)%8; j++) {
dtoxy(&cc, j);
if (goodpos(cc.x, cc.y, mtmp, 0)) goto dognext;
}
for (j = (i + 6)%8; j < (i + 2)%8; j++) {
dtoxy(&cc, j);
if (goodpos(cc.x, cc.y, mtmp, 0)) goto dognext;
}
cc.x = mtmp->mx;
cc.y = mtmp->my;
dognext:
if (!m_in_out_region(mtmp, nix, niy))
return 1;
remove_monster(mtmp->mx, mtmp->my);
place_monster(mtmp, cc.x, cc.y);
newsym(cc.x,cc.y);
set_apparxy(mtmp);
}
return(1);
}
/* check if a monster could pick up objects from a location */
STATIC_OVL boolean
could_reach_item(mon, nx, ny)
struct monst *mon;
xchar nx, ny;
{
if ((!is_pool(nx,ny) || is_swimmer(mon->data)) &&
(!is_lava(nx,ny) || likes_lava(mon->data)) &&
(!sobj_at(BOULDER,nx,ny) || throws_rocks(mon->data)))
return TRUE;
return FALSE;
}
/* Hack to prevent a dog from being endlessly stuck near an object that
* it can't reach, such as caught in a teleport scroll niche. It recursively
* checks to see if the squares in between are good. The checking could be a
* little smarter; a full check would probably be useful in m_move() too.
* Since the maximum food distance is 5, this should never be more than 5 calls
* deep.
*/
STATIC_OVL boolean
can_reach_location(mon, mx, my, fx, fy)
struct monst *mon;
xchar mx, my, fx, fy;
{
int i, j;
int dist;
if (mx == fx && my == fy) return TRUE;
if (!isok(mx, my)) return FALSE; /* should not happen */
dist = dist2(mx, my, fx, fy);
for(i=mx-1; i<=mx+1; i++) {
for(j=my-1; j<=my+1; j++) {
if (!isok(i, j))
continue;
if (dist2(i, j, fx, fy) >= dist)
continue;
if (IS_ROCK(levl[i][j].typ) && !passes_walls(mon->data) &&
(!may_dig(i,j) || !tunnels(mon->data)))
continue;
if (IS_DOOR(levl[i][j].typ) &&
(levl[i][j].doormask & (D_CLOSED | D_LOCKED)))
continue;
if (!could_reach_item(mon, i, j))
continue;
if (can_reach_location(mon, i, j, fx, fy))
return TRUE;
}
}
return FALSE;
}
/*ARGSUSED*/ /* do_clear_area client */
STATIC_PTR void
wantdoor(x, y, distance)
int x, y;
genericptr_t distance;
{
int ndist;
if (*(int*)distance > (ndist = distu(x, y))) {
gx = x;
gy = y;
*(int*)distance = ndist;
}
}
static struct qmchoices {
int mndx; /* type of pet, 0 means any */
char mlet; /* symbol of pet, 0 means any */
unsigned mappearance; /* mimic this */
uchar m_ap_type; /* what is the thing it is mimicing? */
} qm[] = {
/* Things that some pets might be thinking about at the time */
{PM_LITTLE_DOG, 0, PM_KITTEN, M_AP_MONSTER},
{PM_LARGE_DOG, 0, PM_LARGE_CAT, M_AP_MONSTER},
{PM_KITTEN, 0, PM_LITTLE_DOG, M_AP_MONSTER},
{PM_LARGE_CAT, 0, PM_LARGE_DOG, M_AP_MONSTER},
{PM_HOUSECAT, 0, PM_DOG, M_AP_MONSTER},
{PM_DOG, 0, PM_HOUSECAT, M_AP_MONSTER},
{PM_HOUSECAT, 0, PM_GIANT_RAT, M_AP_MONSTER},
#ifdef SINKS
{0, S_DOG, SINK, M_AP_FURNITURE}, /* sorry, no fire hydrants in NetHack */
#endif
{0, 0, TRIPE_RATION, M_AP_OBJECT}, /* leave this at end */
};
void
finish_meating(mtmp)
struct monst *mtmp;
{
mtmp->meating = 0;
if (mtmp->m_ap_type && mtmp->mappearance && mtmp->cham == CHAM_ORDINARY) {
/* was eating a mimic and now appearance needs resetting */
mtmp->m_ap_type = 0;
mtmp->mappearance = 0;
newsym(mtmp->mx, mtmp->my);
}
}
STATIC_OVL void
quickmimic(mtmp)
struct monst *mtmp;
{
int idx = 0, trycnt = 5;
char buf[BUFSZ];
if (Protection_from_shape_changers || Blind || !mtmp->meating) return;
do {
idx = rn2(SIZE(qm));
if (qm[idx].mndx != 0 && monsndx(mtmp->data) == qm[idx].mndx)
break;
if (qm[idx].mlet != 0 && mtmp->data->mlet == qm[idx].mlet)
break;
if (qm[idx].mndx == 0 && qm[idx].mlet == 0)
break;
} while (--trycnt > 0);
if (trycnt == 0) idx = SIZE(qm)-1;
if (!idx) return; /* impossible */
Strcpy(buf, mon_nam(mtmp));
mtmp->m_ap_type = qm[idx].m_ap_type;
mtmp->mappearance = qm[idx].mappearance;
newsym(mtmp->mx,mtmp->my);
You_see("%s appear where %s was!",
(mtmp->m_ap_type == M_AP_FURNITURE) ?
an(defsyms[mtmp->mappearance].explanation) :
(mtmp->m_ap_type == M_AP_OBJECT &&
OBJ_DESCR(objects[mtmp->mappearance])) ?
an(OBJ_DESCR(objects[mtmp->mappearance])) :
(mtmp->m_ap_type == M_AP_OBJECT &&
OBJ_NAME(objects[mtmp->mappearance])) ?
an(OBJ_NAME(objects[mtmp->mappearance])) :
(mtmp->m_ap_type == M_AP_MONSTER) ?
an(mons[mtmp->mappearance].mname) : something, buf);
display_nhwindow(WIN_MAP, TRUE);
}
/*dogmove.c*/
View Git Blame Copy Permalink