nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

leash sanity checking

Browse Source 
I still haven't found any explanation for the report by a hardfought
player recently that going down some stairs with a pair of leashed
pets got one into a confused state where it was flagged as leashed
but the corresponding leash was no longer in use.

This adds some new object and monster sanity checks regarding leashes,
and it changes o_unleash(obj) to clear obj->leashmon even if/when the
monster can't be found.

It also changes behavior for dipping an attached leash into a potion
of polymorph when that happens to yield another leash--now the new
one will end up being pre-attached.
This commit is contained in:
PatR
2024-04-30 13:27:10 -07:00
parent 37a7e62be5
commit 6ebc3a7291
5 changed files with 75 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/mkobj.c
View File

@@ -2907,6 +2907,8 @@ objlist_sanity(struct obj *objlist, int wheretype, const char *mesg)
insane_object(obj, ofmt0, mesg, (struct monst *) 0);
if (obj->where == OBJ_INVENT && obj->how_lost != LOST_NONE) {
char lostbuf[40];
/* %d: bitfield is unsigned but narrow, so promotes to int */
Sprintf(lostbuf, "how_lost=%d obj in inventory!", obj->how_lost);
insane_object(obj, ofmt0, lostbuf, (struct monst *) 0);
}
@@ -2948,6 +2950,37 @@ objlist_sanity(struct obj *objlist, int wheretype, const char *mesg)
break;
}
}
if (obj->otyp == LEASH && obj->leashmon) {
char buf[BUFSZ];
struct monst *mtmp = find_mid(obj->leashmon, FM_FMON);
if (obj->where == OBJ_INVENT) {
if (!mtmp) { /* found leash with phantom mon */
Sprintf(buf, "leashmon=%u no monst,",
(unsigned) obj->leashmon);
insane_object(obj, ofmt0, buf, (struct monst *) 0);
} else if (!mtmp->mleashed) { /* found leashed mon
* not flagged as leashed */
Sprintf(buf, "leashmon=%u %s not leashed,",
(unsigned) obj->leashmon, mon_pmname(mtmp));
insane_object(obj, ofmt0, buf, (struct monst *) 0);
}
} else {
struct monst *mtmp2 = (obj->where == OBJ_MINVENT)
? obj->ocarry : (struct monst *) 0;
if (mtmp) { /* found monst leashed by non-invent leash */
Sprintf(buf, "leashmon:%u %s leashed by %s leash,",
(unsigned) obj->leashmon,
mon_pmname(mtmp), where_name(obj));
insane_object(obj, ofmt0, buf, mtmp2);
} else { /* found non-invent leash with m_id of phantom mon */
Sprintf(buf, "leashmon:%u no monst for %s leash,",
(unsigned) obj->leashmon, where_name(obj));
insane_object(obj, ofmt0, buf, mtmp2);
}
}
}
if (obj->globby)
check_glob(obj, mesg);
/* temporary flags that might have been set but which should
@@ -3165,11 +3198,13 @@ init_dummyobj(struct obj *obj, short otyp, long oquan)
/* obj->dknown = 0; */
/* suppress known except for amulets (needed for fakes & real AoY) */
obj->known = (obj->oclass == AMULET_CLASS)
? obj->known
? obj->known
/* default is "on" for types which don't use it */
: !objects[otyp].oc_uses_known;
obj->quan = oquan ? oquan : 1L;
obj->corpsenm = NON_PM; /* suppress statue and figurine details */
if (obj->otyp == LEASH)
obj->leashmon = 0; /* overloads corpsenm, avoid NON_PM */
if (obj->otyp == BOULDER)
obj->next_boulder = 0; /* overloads corpsenm, avoid NON_PM */
/* but suppressing fruit details leads to "bad fruit #0" */