/* make md run through the cave */
void
mdrush(struct monst *md, boolean away)
{
int uroom = inroom(u.ux, u.uy);
if (uroom >= 0) {
int tmp = rooms[uroom].fdoor;
int cnt = rooms[uroom].doorct;
int fx = u.ux, fy = u.uy;
while (cnt--) {
if (dist(fx, fy) < dist(doors[tmp].x, doors[tmp].y)) {
fx = doors[tmp].x;
fy = doors[tmp].y;
}
tmp++;
}
tmp_at(-1, md->data->mlet); /* open call */
if (away) { /* interchange origin and destination */
unpmon(md);
tmp = fx;
fx = md->mx;
md->mx = tmp;
tmp = fy;
fy = md->my;
md->my = tmp;
}
while (fx != md->mx || fy != md->my) {
int dx, dy, nfx = fx, nfy = fy, d1,
d2;
tmp_at(fx, fy);
d1 = DIST(fx, fy, md->mx, md->my);
for (dx = -1; dx <= 1; dx++)
for (dy = -1; dy <= 1; dy++)
if (dx || dy) {
d2 = DIST(fx + dx, fy + dy, md->mx, md->my);
if (d2 < d1) {
d1 = d2;
nfx = fx + dx;
nfy = fy + dy;
}
}
if (nfx != fx || nfy != fy) {
fx = nfx;
fy = nfy;
} else {
if (!away) {
md->mx = fx;
md->my = fy;
}
break;
}
}
tmp_at(-1, -1); /* close call */
}
if (!away)
pmon(md);
}
struct room *
roomin(coord *cp)
{
struct room *rp;
for (rp = rooms; rp <= &rooms[MAXROOMS-1]; rp++)
if (inroom(rp, cp))
return rp;
return NULL;
}
struct room *
roomin(coord *cp)
{
register struct room *rp;
for (rp = rooms; rp < &rooms[MAXROOMS]; rp++)
if (inroom(rp, cp)){
return rp;
}
return NULL;
}
void inrange(struct monst *mtmp)
{
schar tx;
schar ty;
/* Spit fire only when both in a room or both in a corridor */
if(inroom(u.ux, u.uy) != inroom(mtmp->mx, mtmp->my)) {
return;
}
tx = u.ux - mtmp->mx;
ty = u.uy - mtmp->my;
if(((tx == 0) && (abs(ty) < 8))
|| ((ty == 0) && (abs(tx) < 8))
|| ((abs(tx) == abs(ty)) && (abs(tx) < 8))) {
/* Spit fire in the direction of @ (not necessarily hitting) */
buzz(-1, mtmp->mx, mtmp->my, sgn(tx), sgn(ty));
if(u.uhp < 1) {
done_in_by(mtmp);
}
}
}
bool
shkcatch(struct obj *obj)
{
struct monst *shkp = shopkeeper;
if (u.uinshop && shkp && !shkp->mfroz && !shkp->msleep &&
u.dx && u.dy &&
inroom(u.ux + u.dx, u.uy + u.dy) + 1 == u.uinshop &&
shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y &&
u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) {
pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj));
obj->nobj = shkp->minvent;
shkp->minvent = obj;
return (1);
}
return (0);
}
Boolean shkcatch(obj_t *obj)
{
monst_t *shkp = shopkeeper;
if (you.uinshop && shkp && !(shkp->bitflags & (M_IS_FROZEN | M_IS_ASLEEP)) &&
you.dx && you.dy &&
inroom(you.ux+you.dx, you.uy+you.dy) + 1 == you.uinshop &&
shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y &&
you.ux == ESHK(shkp)->shd.x && you.uy == ESHK(shkp)->shd.y) {
StrPrintF(ScratchBuffer, "%s nimbly catches the %s.",
Monnam(shkp), xname(obj));
message(ScratchBuffer);
obj->nobj = shkp->minvent;
shkp->minvent = obj;
return true;
}
return false;
}
void
inrange(struct monst *mtmp)
{
schar tx,ty;
/* do nothing if cancelled (but make '1' say something) */
if(mtmp->data->mlet != '1' && mtmp->mcan)
return;
/* spit fire only when both in a room or both in a corridor */
if(inroom(u.ux,u.uy) != inroom(mtmp->mx,mtmp->my)) return;
tx = u.ux - mtmp->mx;
ty = u.uy - mtmp->my;
if((!tx && abs(ty) < BOLT_LIM) || (!ty && abs(tx) < BOLT_LIM)
|| (abs(tx) == abs(ty) && abs(tx) < BOLT_LIM)){
switch(mtmp->data->mlet) {
case 'D':
/* spit fire in the direction of @ (not nec. hitting) */
buzz(-1,mtmp->mx,mtmp->my,sgn(tx),sgn(ty));
break;
case '1':
if(rn2(WIZSHOT)) break;
/* if you zapped wizard with wand of cancellation,
he has to shake off the effects before he can throw
spells successfully. 1/2 the time they fail anyway */
if(mtmp->mcan || rn2(2)) {
if(canseemon(mtmp))
pline("%s makes a gesture, then curses.",
Monnam(mtmp));
else
pline("You hear mumbled cursing.");
if(!rn2(3)) {
mtmp->mspeed = 0;
mtmp->minvis = 0;
}
if(!rn2(3))
mtmp->mcan = 0;
} else {
if(canseemon(mtmp)){
if(!rn2(6) && !Invis) {
pline("%s hypnotizes you.", Monnam(mtmp));
nomul(rn2(3) + 3);
break;
} else
pline("%s chants an incantation.",
Monnam(mtmp));
} else
pline("You hear a mumbled incantation.");
switch(rn2(Invis ? 5 : 6)) {
case 0:
/* create a nasty monster from a deep level */
/* (for the moment, 'nasty' is not implemented) */
(void) makemon((struct permonst *)0, u.ux, u.uy);
break;
case 1:
pline("\"Destroy the thief, my pets!\"");
aggravate(); /* aggravate all the monsters */
/* fall into next case */
case 2:
if (flags.no_of_wizards == 1 && rnd(5) == 0)
/* if only 1 wizard, clone himself */
clonewiz(mtmp);
break;
case 3:
if(mtmp->mspeed == MSLOW)
mtmp->mspeed = 0;
else
mtmp->mspeed = MFAST;
break;
case 4:
mtmp->minvis = 1;
break;
case 5:
/* Only if not Invisible */
pline("You hear a clap of thunder!");
/* shoot a bolt of fire or cold, or a sleep ray */
buzz(-rnd(3),mtmp->mx,mtmp->my,sgn(tx),sgn(ty));
break;
}
}
}
if(u.uhp < 1) done_in_by(mtmp);
}
}
/*
* shk_move: return 1: he moved 0: he didnt -1: let m_move do it
*/
int
shk_move(struct monst *shkp)
{
struct monst *mtmp;
struct permonst *mdat = shkp->data;
xchar gx, gy, omx, omy, nx, ny, nix, niy;
schar appr, i;
int udist;
int z;
schar shkroom, chi, chcnt, cnt;
boolean uondoor = 0, satdoor, avoid = 0, badinv;
coord poss[9];
int info[9];
struct obj *ib = NULL;
omx = shkp->mx;
omy = shkp->my;
if ((udist = dist(omx, omy)) < 3) {
if (ANGRY(shkp)) {
hitu(shkp, d(mdat->damn, mdat->damd) + 1);
return (0);
}
if (ESHK(shkp)->following) {
if (strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)) {
pline("Hello %s! I was looking for %s.",
plname, ESHK(shkp)->customer);
ESHK(shkp)->following = 0;
return (0);
}
if (!ESHK(shkp)->robbed) { /* impossible? */
ESHK(shkp)->following = 0;
return (0);
}
if (moves > followmsg + 4) {
pline("Hello %s! Didn't you forget to pay?",
plname);
followmsg = moves;
}
if (udist < 2)
return (0);
}
}
shkroom = inroom(omx, omy);
appr = 1;
gx = ESHK(shkp)->shk.x;
gy = ESHK(shkp)->shk.y;
satdoor = (gx == omx && gy == omy);
if (ESHK(shkp)->following || ((z = holetime()) >= 0 && z * z <= udist)) {
gx = u.ux;
gy = u.uy;
if (shkroom < 0 || shkroom != inroom(u.ux, u.uy))
if (udist > 4)
return (-1); /* leave it to m_move */
} else if (ANGRY(shkp)) {
long saveBlind = Blind;
Blind = 0;
if (shkp->mcansee && !Invis && cansee(omx, omy)) {
gx = u.ux;
gy = u.uy;
}
Blind = saveBlind;
avoid = FALSE;
} else {
#define GDIST(x, y) ((x - gx) * (x - gx) + (y - gy) * (y - gy))
if (Invis)
avoid = FALSE;
else {
uondoor = (u.ux == ESHK(shkp)->shd.x &&
u.uy == ESHK(shkp)->shd.y);
if (uondoor) {
if (ESHK(shkp)->billct)
pline("Hello %s! Will you please pay before leaving?",
plname);
badinv = (carrying(PICK_AXE) || carrying(ICE_BOX));
if (satdoor && badinv)
return (0);
avoid = !badinv;
} else {
avoid = (u.uinshop && dist(gx, gy) > 8);
badinv = FALSE;
}
if (((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid)
&& GDIST(omx, omy) < 3) {
if (!badinv && !online(omx, omy))
return (0);
if (satdoor)
appr = gx = gy = 0;
}
}
}
if (omx == gx && omy == gy)
return (0);
if (shkp->mconf) {
avoid = FALSE;
appr = 0;
}
nix = omx;
niy = omy;
cnt = mfndpos(shkp, poss, info, ALLOW_SSM);
if (avoid && uondoor) { /* perhaps we cannot avoid him */
for (i = 0; i < cnt; i++)
if (!(info[i] & NOTONL))
goto notonl_ok;
avoid = FALSE;
notonl_ok:
;
}
chi = -1;
chcnt = 0;
for (i = 0; i < cnt; i++) {
nx = poss[i].x;
ny = poss[i].y;
if (levl[nx][ny].typ == ROOM
|| shkroom != ESHK(shkp)->shoproom
|| ESHK(shkp)->following) {
#ifdef STUPID
/* cater for stupid compilers */
int zz;
#endif /* STUPID */
if (uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) {
nix = nx;
niy = ny;
chi = i; break;
}
if (avoid && (info[i] & NOTONL))
continue;
if ((!appr && !rn2(++chcnt)) ||
#ifdef STUPID
(appr && (zz = GDIST(nix, niy)) && zz > GDIST(nx, ny))
#else
(appr && GDIST(nx, ny) < GDIST(nix, niy))
#endif /* STUPID */
) {
nix = nx;
niy = ny;
chi = i;
}
}
}
if (nix != omx || niy != omy) {
if (info[chi] & ALLOW_M) {
mtmp = m_at(nix, niy);
if (hitmm(shkp, mtmp) == 1 && rn2(3) &&
hitmm(mtmp, shkp) == 2)
return (2);
return (0);
} else if (info[chi] & ALLOW_U) {
hitu(shkp, d(mdat->damn, mdat->damd) + 1);
return (0);
}
shkp->mx = nix;
shkp->my = niy;
pmon(shkp);
if (ib) {
freeobj(ib);
mpickobj(shkp, ib);
}
return (1);
}
return (0);
}
void
subfrombill(struct obj *obj)
{
long ltmp;
int tmp;
struct obj *otmp;
struct bill_x *bp;
if (!inshop() ||
(u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
(u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y))
return;
if ((bp = onbill(obj)) != NULL) {
obj->unpaid = 0;
if (bp->bquan > obj->quan) {
otmp = newobj(0);
*otmp = *obj;
bp->bo_id = otmp->o_id = flags.ident++;
otmp->quan = (bp->bquan -= obj->quan);
otmp->owt = 0; /* superfluous */
otmp->onamelth = 0;
bp->useup = 1;
otmp->nobj = billobjs;
billobjs = otmp;
return;
}
ESHK(shopkeeper)->billct--;
*bp = bill[ESHK(shopkeeper)->billct];
return;
}
if (obj->unpaid) {
pline("%s didn't notice.", Monnam(shopkeeper));
obj->unpaid = 0;
return; /* %% */
}
/* he dropped something of his own - probably wants to sell it */
if (shopkeeper->msleep || shopkeeper->mfroz ||
inroom(shopkeeper->mx, shopkeeper->my) != ESHK(shopkeeper)->shoproom)
return;
if (ESHK(shopkeeper)->billct == BILLSZ ||
((tmp = shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]) &&
tmp != obj->olet) || strchr("_0", obj->olet)) {
pline("%s seems not interested.", Monnam(shopkeeper));
return;
}
ltmp = getprice(obj) * obj->quan;
if (ANGRY(shopkeeper)) {
ltmp /= 3;
NOTANGRY(shopkeeper) = 1;
} else
ltmp /= 2;
if (ESHK(shopkeeper)->robbed) {
if ((ESHK(shopkeeper)->robbed -= ltmp) < 0)
ESHK(shopkeeper)->robbed = 0;
pline("Thank you for your contribution to restock this recently plundered shop.");
return;
}
if (ltmp > shopkeeper->mgold)
ltmp = shopkeeper->mgold;
pay(-ltmp, shopkeeper);
if (!ltmp)
pline("%s gladly accepts %s but cannot pay you at present.",
Monnam(shopkeeper), doname(obj));
else
pline("You sold %s and got %ld gold piece%s.", doname(obj), ltmp,
plur(ltmp));
}
int
dopay(void)
{
long ltmp;
struct bill_x *bp;
struct monst *shkp;
int pass, tmp;
multi = 0;
inshop();
for (shkp = fmon; shkp; shkp = shkp->nmon)
if (shkp->isshk && dist(shkp->mx, shkp->my) < 3)
break;
if (!shkp && u.uinshop &&
inroom(shopkeeper->mx, shopkeeper->my) == ESHK(shopkeeper)->shoproom)
shkp = shopkeeper;
if (!shkp) {
pline("There is nobody here to receive your payment.");
return (0);
}
ltmp = ESHK(shkp)->robbed;
if (shkp != shopkeeper && NOTANGRY(shkp)) {
if (!ltmp)
pline("You do not owe %s anything.", monnam(shkp));
else if (!u.ugold)
pline("You have no money.");
else {
long ugold = u.ugold;
if (u.ugold > ltmp) {
pline("You give %s the %ld gold pieces he asked for.",
monnam(shkp), ltmp);
pay(ltmp, shkp);
} else {
pline("You give %s all your gold.", monnam(shkp));
pay(u.ugold, shkp);
}
if (ugold < ltmp / 2)
pline("Unfortunately, he doesn't look satisfied.");
else {
ESHK(shkp)->robbed = 0;
ESHK(shkp)->following = 0;
if (ESHK(shkp)->shoplevel != dlevel) {
/* For convenience's sake, let him disappear */
shkp->minvent = 0; /* %% */
shkp->mgold = 0;
mondead(shkp);
}
}
}
return (1);
}
if (!ESHK(shkp)->billct) {
pline("You do not owe %s anything.", monnam(shkp));
if (!u.ugold) {
pline("Moreover, you have no money.");
return (1);
}
if (ESHK(shkp)->robbed) {
#define min(a, b) ((a < b) ? a : b)
pline("But since his shop has been robbed recently,");
pline("you %srepay %s's expenses.",
(u.ugold < ESHK(shkp)->robbed) ? "partially " : "",
monnam(shkp));
pay(min(u.ugold, ESHK(shkp)->robbed), shkp);
ESHK(shkp)->robbed = 0;
return (1);
}
if (ANGRY(shkp)) {
pline("But in order to appease %s,",
amonnam(shkp, "angry"));
if (u.ugold >= 1000) {
ltmp = 1000;
pline(" you give him 1000 gold pieces.");
} else {
ltmp = u.ugold;
pline(" you give him all your money.");
}
pay(ltmp, shkp);
if (strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)
|| rn2(3)) {
pline("%s calms down.", Monnam(shkp));
NOTANGRY(shkp) = 1;
} else
pline("%s is as angry as ever.", Monnam(shkp));
}
return (1);
}
if (shkp != shopkeeper) {
impossible("dopay: not to shopkeeper?");
if (shopkeeper)
setpaid();
return (0);
}
for (pass = 0; pass <= 1; pass++) {
tmp = 0;
while (tmp < ESHK(shopkeeper)->billct) {
bp = &bill[tmp];
if (!pass && !bp->useup) {
tmp++;
continue;
}
if (!dopayobj(bp))
return (1);
bill[tmp] = bill[--ESHK(shopkeeper)->billct];
}
}
pline("Thank you for shopping in %s's %s store!",
shkname(shopkeeper),
shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]);
NOTANGRY(shopkeeper) = 1;
return (1);
}
int
inshop(void)
{
int roomno = inroom(u.ux, u.uy);
/* Did we just leave a shop? */
if (u.uinshop &&
(u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) {
if (shopkeeper) {
if (ESHK(shopkeeper)->billct) {
if (inroom(shopkeeper->mx, shopkeeper->my)
== u.uinshop - 1) /* ab@unido */
pline("Somehow you escaped the shop without paying!");
addupbill();
pline("You stole for a total worth of %ld zorkmids.",
total);
ESHK(shopkeeper)->robbed += total;
setpaid();
if ((rooms[ESHK(shopkeeper)->shoproom].rtype == GENERAL)
== (rn2(3) == 0))
ESHK(shopkeeper)->following = 1;
}
shopkeeper = NULL;
shlevel = 0;
}
u.uinshop = 0;
}
/* Did we just enter a zoo of some kind? */
if (roomno >= 0) {
int rt = rooms[roomno].rtype;
struct monst *mtmp;
if (rt == ZOO)
pline("Welcome to David's treasure zoo!");
else if (rt == SWAMP)
pline("It looks rather muddy down here.");
else if (rt == MORGUE) {
if (midnight())
pline("Go away! Go away!");
else
pline("You get an uncanny feeling ...");
} else
rt = 0;
if (rt != 0) {
rooms[roomno].rtype = 0;
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if (rt != ZOO || !rn2(3))
mtmp->msleep = 0;
}
}
/* Did we just enter a shop? */
if (roomno >= 0 && rooms[roomno].rtype >= 8) {
if (shlevel != dlevel || !shopkeeper
|| ESHK(shopkeeper)->shoproom != roomno)
findshk(roomno);
if (!shopkeeper) {
rooms[roomno].rtype = 0;
u.uinshop = 0;
} else if (!u.uinshop) {
if (!ESHK(shopkeeper)->visitct ||
strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ)) {
/* He seems to be new here */
ESHK(shopkeeper)->visitct = 0;
ESHK(shopkeeper)->following = 0;
strncpy(ESHK(shopkeeper)->customer, plname, PL_NSIZ);
NOTANGRY(shopkeeper) = 1;
}
if (!ESHK(shopkeeper)->following) {
boolean box, pick;
pline("Hello %s! Welcome%s to %s's %s shop!",
plname,
ESHK(shopkeeper)->visitct++ ? " again" : "",
shkname(shopkeeper),
shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]);
box = carrying(ICE_BOX);
pick = carrying(PICK_AXE);
if (box || pick) {
if (dochug(shopkeeper)) {
u.uinshop = 0; /* he died moving */
return (0);
}
pline("Will you please leave your %s outside?",
(box && pick) ? "box and pick-axe" :
box ? "box" : "pick-axe");
}
}
u.uinshop = roomno + 1;
}
}
return (u.uinshop);
}
// What does the return value indicate??
Boolean dopay()
{
Long ltmp;
bill_t *bp;
monst_t *shkp;
Short pass, tmp;
multi = 0;
inshop();
for (shkp = fmon ; shkp ; shkp = shkp->nmon)
if ((shkp->bitflags & M_IS_SHOPKEEPER) && dist(shkp->mx,shkp->my) < 3)
break;
if (!shkp && you.uinshop &&
inroom(shopkeeper->mx,shopkeeper->my) == ESHK(shopkeeper)->shoproom)
shkp = shopkeeper;
if (!shkp) {
message("There is nobody here to receive your payment.");
return false;
}
ltmp = ESHK(shkp)->robbed;
if (shkp != shopkeeper && NOTANGRY(shkp)) {
if (!ltmp) {
StrPrintF(ScratchBuffer, "You do not owe %s anything.", monnam(shkp));
message(ScratchBuffer);
} else
if (!you.ugold) {
message("You have no money.");
} else {
Long ugold = you.ugold;
if (you.ugold > ltmp) {
StrPrintF(ScratchBuffer,
"You give %s the %ld gold pieces he asked for.",
monnam(shkp), ltmp);
message(ScratchBuffer);
pay(ltmp, shkp);
} else {
StrPrintF(ScratchBuffer, "You give %s all your gold.", monnam(shkp));
message(ScratchBuffer);
pay(you.ugold, shkp);
}
if (ugold < ltmp/2) {
message("Unfortunately, he doesn't look satisfied.");
} else {
ESHK(shkp)->robbed = 0;
ESHK(shkp)->following = false;
if (ESHK(shkp)->shoplevel != dlevel) {
/* For convenience's sake, let him disappear */
shkp->minvent = NULL; /* %% */ // xxx leak?
shkp->mgold = 0;
mondead(shkp);
}
}
}
return true;
}
if (!ESHK(shkp)->billct) {
StrPrintF(ScratchBuffer, "You do not owe %s anything.", monnam(shkp));
message(ScratchBuffer);
if (!you.ugold) {
message("Moreover, you have no money.");
return true;
}
if (ESHK(shkp)->robbed) {
message("But since his shop has been robbed recently,");
StrPrintF(ScratchBuffer, "you%srepay %s's expenses.",
(you.ugold < ESHK(shkp)->robbed) ? " partially " : " ",
monnam(shkp));
message(ScratchBuffer);
pay(min(you.ugold, ESHK(shkp)->robbed), shkp);
ESHK(shkp)->robbed = 0;
return true;
}
if (ANGRY(shkp)) {
StrPrintF(ScratchBuffer, "But in order to appease %s,",
amonnam(shkp, "angry"));
message(ScratchBuffer);
if (you.ugold >= 1000) {
ltmp = 1000;
message(" you give him 1000 gold pieces.");
} else {
ltmp = you.ugold;
message(" you give him all your money.");
}
pay(ltmp, shkp);
if (StrNCompare(ESHK(shkp)->customer, plname, PL_NSIZ)
|| rund(3)){
StrPrintF(ScratchBuffer, "%s calms down.", Monnam(shkp));
message(ScratchBuffer);
shkp->bitflags |= M_IS_PEACEFUL; // NOTANGRY(shopkeeper) = 1;
} else {
StrPrintF(ScratchBuffer, "%s is as angry as ever.",
Monnam(shkp));
message(ScratchBuffer);
}
}
return true;
}
if (shkp != shopkeeper) {
message("BUG: dopay: not to shopkeeper?");
if (shopkeeper) setpaid();
return false;
}
for (pass = 0 ; pass <= 1 ; pass++) {
tmp = 0;
while (tmp < ESHK(shopkeeper)->billct) {
bp = &bill[tmp];
if (!pass && !bp->useup) {
tmp++;
continue;
}
if (!dopayobj(bp)) return true;
bill[tmp] = bill[--ESHK(shopkeeper)->billct];
}
}
StrPrintF(ScratchBuffer, "Thank you for shopping in %s's %s store!",
shkname(shopkeeper),
shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]);
shopkeeper->bitflags |= M_IS_PEACEFUL; // NOTANGRY(shopkeeper) = 1;
return true;
}
void
invault()
{
int tmp = inroom(u.ux, u.uy);
if(tmp < 0 || rooms[tmp].rtype != VAULT) {
u.uinvault = 0;
return;
}
if(++u.uinvault % 50 == 0 && (!guard || gdlevel != dlevel)) {
char buf[BUFSZ];
int x,y,dd,gx,gy;
/* first find the goal for the guard */
for(dd = 1; (dd < ROWNO || dd < COLNO); dd++) {
for(y = u.uy-dd; y <= u.uy+dd; y++) {
if(y < 0 || y > ROWNO-1) continue;
for(x = u.ux-dd; x <= u.ux+dd; x++) {
if(y != u.uy-dd && y != u.uy+dd && x != u.ux-dd)
x = u.ux+dd;
if(x < 0 || x > COLNO-1) continue;
if(levl[x][y].typ == CORR) goto fnd;
}
}
}
impossible("Not a single corridor on this level??");
tele();
return;
fnd:
gx = x; gy = y;
/* next find a good place for a door in the wall */
x = u.ux; y = u.uy;
while(levl[x][y].typ == ROOM) {
int dx,dy;
dx = (gx > x) ? 1 : (gx < x) ? -1 : 0;
dy = (gy > y) ? 1 : (gy < y) ? -1 : 0;
if(abs(gx-x) >= abs(gy-y))
x += dx;
else
y += dy;
}
/* make something interesting happen */
if(!(guard = makemon(&pm_guard,x,y))) return;
guard->isgd = guard->mpeaceful = 1;
EGD->gddone = 0;
gdlevel = dlevel;
if(!cansee(guard->mx, guard->my)) {
mondead(guard);
guard = 0;
return;
}
pline("Suddenly one of the Vault's guards enters!");
pmon(guard);
do {
pline("\"Hello stranger, who are you?\" - ");
getlin(buf);
} while (!letter(buf[0]));
if(!strcmp(buf, "Croesus") || !strcmp(buf, "Kroisos")) {
pline("\"Oh, yes - of course. Sorry to have disturbed you.\"");
mondead(guard);
guard = 0;
return;
}
clrlin();
pline("\"I don't know you.\"");
if(!u.ugold)
pline("\"Please follow me.\"");
else {
pline("\"Most likely all that gold was stolen from this vault.\"");
pline("\"Please drop your gold (say d$ ) and follow me.\"");
}
EGD->gdx = gx;
EGD->gdy = gy;
EGD->fcbeg = 0;
EGD->fakecorr[0].fx = x;
EGD->fakecorr[0].fy = y;
EGD->fakecorr[0].ftyp = levl[x][y].typ;
levl[x][y].typ = DOOR;
EGD->fcend = 1;
}
}
int m_move(struct monst *mtmp, int after)
{
struct monst *mtmp2;
int nx = 0;
int ny = 0;
int omx;
int omy;
int appr;
int nearer;
int cnt;
int i;
int j;
xchar gx;
xchar gy;
xchar nix;
xchar niy;
xchar chcnt;
schar chi;
boolean likegold = 0;
boolean likegems = 0;
boolean likeobjs = 0;
/* Not strictly necessary: chi >= 0 will do */
schar mmoved = 0;
coord poss[9];
int info[9];
if(mtmp->mtrapped != 0) {
i = mintrap(mtmp);
if(i == 2) {
/* He died */
return 2;
}
if(i == 1) {
/* Still in trap so didn't move */
return 0;
}
}
if((mtmp->mhide != 0)
&& (o_at(mtmp->mx, mtmp->my) != NULL)
&& (rn2(10) != 0)) {
/* Do not leave hiding place */
return 0;
}
/* My dog gets a special treatment */
if(mtmp->mtame != 0) {
return dog_move(mtmp, after);
}
/* Likewise for shopkeeper */
if(mtmp->isshk != 0) {
mmoved = shk_move();
if(mmoved == 1) {
if(mintrap(mtmp) == 2) {
/* He died */
return 2;
}
if(likegold != 0) {
mpickgold(mtmp);
}
if(likegems != 0) {
mpickgems(mtmp);
}
if(mtmp->mhide != 0) {
mtmp->mundetected = 1;
}
}
return mmoved;
}
/* And for the guard */
if(mtmp->isgd != 0) {
mmoved = gd_move();
if(mmoved == 1) {
if(mintrap(mtmp) == 2) {
/* He died */
return 2;
}
if(likegold != 0) {
mpickgold(mtmp);
}
if(likegems != 0) {
mpickgems(mtmp);
}
if(mtmp->mhide != 0) {
mtmp->mundetected = 1;
}
}
return mmoved;
}
if((mtmp->data->mlet == 't') && (rn2(5) == 0)) {
if(rn2(2) != 0) {
mnexto(mtmp);
}
else {
rloc(mtmp);
}
mmoved = 1;
if(mmoved == 1) {
if(mintrap(mtmp) == 2) {
/* He died */
return 2;
}
if(likegold != 0) {
mpickgold(mtmp);
}
if(likegems != 0) {
mpickgems(mtmp);
}
if(mtmp->mhide != 0) {
mtmp->mundetected = 1;
}
}
return mmoved;
}
if((mtmp->data->mlet == 'D') && (mtmp->mcan == 0)) {
inrange(mtmp);
}
if((Blind == 0)
&& (Confusion == 0)
&& (mtmp->data->mlet == 'U')
&& (mtmp->mcan == 0)
&& (cansee(mtmp->mx, mtmp->my) != 0)
&& (rn2(5) != 0)) {
pline("%s's gaze has confused you!", Monnam(mtmp));
if(rn2(5) != 0) {
mtmp->mcan = 1;
}
/* Timeout */
Confusion = d(3, 4);
}
if((mtmp->mflee == 0) && (u.uswallow != 0) && (u.ustuck != mtmp)) {
return 1;
}
appr = 1;
if(mtmp->mflee != 0) {
appr = -1;
}
if((mtmp->mconf != 0)
|| (Invis != 0)
|| (mtmp->mcansee == 0)
|| ((index("Biy", mtmp->data->mlet) != 0) && (rn2(3) == 0))) {
appr = 0;
}
omx = mtmp->mx;
omy = mtmp->my;
gx = u.ux;
gy = u.uy;
if((mtmp->data->mlet == 'L') && (appr == 1) && (mtmp->mgold > u.ugold)) {
appr = -1;
}
#ifdef TRACK
/*
* Random criterion for 'smell'
* should use mtmp->msmell
*/
if(('a' <= mtmp->data->mlet) && (mtmp->data->mlet <= 'z')) {
coord *cp;
schar mroom;
mroom = inroom(omx, omy);
if((mroom < 0) || (mroom != inroom(u.ux, u.uy))) {
cp = gettrack(omx, omy);
if(cp != 0) {
gx = cp->x;
gy = cp->y;
}
}
}
#endif
/* Look for gold or jewels nearby */
if(index("LOD", mtmp->data->mlet) != NULL) {
likegold = 1;
}
else {
likegold = 0;
}
if(index("ODu", mtmp->data->mlet) != NULL) {
likegems = 1;
}
else {
likegems = 0;
}
likeobjs = mtmp->mhide;
#define SRCHRADIUS 25
/* Not too far away */
xchar mind = SRCHRADIUS;
int dd;
if(likegold != 0) {
struct gen *gold;
for(gold = fgold; gold != NULL; gold = gold->ngen) {
dd = DIST(omx, omy, gold->gx, gold->gy);
if(dd < mind) {
mind = dd;
gx = gold->gx;
gy = gold->gy;
}
}
}
if((likegems != 0) || (likeobjs != 0)) {
struct obj *otmp;
for(otmp = fobj; otmp != NULL; otmp = otmp->nobj) {
if((likeobjs != 0) || (otmp->olet == GEM_SYM)) {
if((mtmp->data->mlet != 'u')
|| (objects[otmp->otyp].g_val != 0)) {
dd = DIST(omx, omy, otmp->ox, otmp->oy);
if(dd < mind) {
mind = dd;
gx = otmp->ox;
gy = otmp->oy;
}
}
}
}
}
if((mind < SRCHRADIUS) && (appr == -1)) {
if(dist(omx, omy) < 10) {
gx = u.ux;
gy = u.uy;
}
else {
appr = 1;
}
}
nix = omx;
niy = omy;
if(mtmp->data->mlet == 'u') {
cnt = mfndpos(mtmp, poss, info, NOTONL);
}
else {
if(index(" VWZ", mtmp->data->mlet) != 0) {
cnt = mfndpos(mtmp, poss, info, NOGARLIC);
}
else {
cnt = mfndpos(mtmp, poss, info, ALLOW_TRAPS);
}
}
/* ALLOW_ROCK for some monsters? */
chcnt = 0;
chi = -1;
for(i = 0; i < cnt; ++i) {
nx = poss[i].x;
nx = poss[i].y;
for(j = 0; (j < MTSZ) && (j < (cnt - 1)); ++j) {
if((nx == mtmp->mtrack[j].x) && (ny == mtmp->mtrack[j].y)) {
if(rn2(4 * (cnt - j)) == 0) {
#ifdef STUPID
/* Some stupid compilers thing that is is too complicated */
int d1 = DIST(nx, ny, gx, gy);
int d2 = DIST(nix, niy, gx, gy);
if(d1 < d2) {
nearer = 1;
}
else {
nearer = 0;
}
#else
if(DIST(nx, ny, gx, gy) < DIST(nix, niy, gx, gy)) {
nearer = 1;
}
else {
nearer = 0;
}
#endif
if(((appr == 1) && (nearer != 0))
|| ((appr == -1) && (nearer == 0))
|| (mmoved == 0)) {
nix = nx;
niy = ny;
chi = i;
mmoved = 1;
}
else {
if(appr == 0) {
if(rn2(chcnt) == 0) {
++chcnt;
nix = nx;
niy = ny;
chi = i;
mmoved = 1;
}
else {
++chcnt;
}
}
}
}
}
}
}
if(mmoved != 0) {
if((info[(int)chi] & ALLOW_M) != 0) {
mtmp2 = m_at(nix, niy);
if((hitmm(mtmp, mtmp2) == 1)
&& (rn2(4) != 0)
&& (hitmm(mtmp2, mtmp) == 2)) {
return 2;
}
return 0;
}
if((info[(int)chi] & ALLOW_U) != 0) {
hitu(mtmp, d(mtmp->data->damn, mtmp->data->damd) + 1);
return 0;
}
mtmp->mx = nix;
mtmp->my = niy;
for(j = MTSZ - 1; j > 0; --j) {
mtmp->mtrack[j] = mtmp->mtrack[j - 1];
}
mtmp->mtrack[0].x = omx;
mtmp->mtrack[0].y = omy;
#ifndef NOWORM
if(mtmp->wormno != 0) {
worm_move(mtmp);
}
#endif
}
else {
if((mtmp->data->mlet == 'u') && (rn2(2) != 0)) {
rloc(mtmp);
return 0;
}
#ifndef NOWORM
if(mtmp->wormno != 0) {
worm_nomove(mtmp);
}
#endif
}
if(mmoved == 1) {
if(mintrap(mtmp) == 2) {
/* He died */
return 2;
}
if(likegold != 0) {
mpickgold(mtmp);
}
if(likegems != 0) {
mpickgems(mtmp);
}
if(mtmp->mhide != 0) {
mtmp->mundetected = 1;
}
}
pmon(mtmp);
return mmoved;
}
/*
* shk_move: return 1: he moved 0: he didnt -1: let m_move do it
* (what about "return 2" ???
*/
Short shk_move(monst_t *shkp)
{
monst_t *mtmp;
permonst_t *mdat = shkp->data;
UChar gx,gy,omx,omy,nx,ny,nix,niy;
Int8 appr,i;
Short udist;
Short z;
Int8 shkroom,chi,chcnt,cnt;
Boolean uondoor=false, satdoor, avoid=false, badinv;
coord poss[9];
Short info[9];
obj_t *ib = NULL;
omx = shkp->mx;
omy = shkp->my;
if ((udist = dist(omx,omy)) < 3) {
if (ANGRY(shkp)) {
hit_you(shkp, dice(mdat->damn, mdat->damd)+1);
return 0;
}
if (ESHK(shkp)->following) {
if (StrNCompare(ESHK(shkp)->customer, plname, PL_NSIZ)) {
StrPrintF(ScratchBuffer, "Hello %s! I was looking for %s.",
plname, ESHK(shkp)->customer);
message(ScratchBuffer);
ESHK(shkp)->following = false;
return 0;
}
if (!ESHK(shkp)->robbed) { /* impossible? */
ESHK(shkp)->following = false;
return 0;
}
if (moves > followmsg+4) {
StrPrintF(ScratchBuffer, "Hello %s! Didn't you forget to pay?",
plname);
message(ScratchBuffer);
followmsg = moves;
}
if (udist < 2)
return 0;
}
}
shkroom = inroom(omx,omy);
appr = 1;
gx = ESHK(shkp)->shk.x;
gy = ESHK(shkp)->shk.y;
satdoor = (gx == omx && gy == omy);
if (ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){
gx = you.ux;
gy = you.uy;
if (shkroom < 0 || shkroom != inroom(you.ux,you.uy))
if (udist > 4)
return -1; /* leave it to m_move */
} else if (ANGRY(shkp)) {
Long saveBlind = Blind;
Blind = 0;
if ((shkp->mcansee_and_blinded & M_CAN_SEE) && !Invis && cansee(omx,omy)) {
gx = you.ux;
gy = you.uy;
}
Blind = saveBlind;
avoid = false;
} else {
#define GDIST(x,y) ((x-gx)*(x-gx)+(y-gy)*(y-gy))
if (Invis)
avoid = false;
else {
uondoor = (you.ux == ESHK(shkp)->shd.x &&
you.uy == ESHK(shkp)->shd.y);
if (uondoor) {
if (ESHK(shkp)->billct) {
StrPrintF(ScratchBuffer,
"Hello %s! Will you please pay before leaving?", plname);
message(ScratchBuffer);
}
badinv = (carrying(PICK_AXE) || carrying(ICE_BOX));
if (satdoor && badinv)
return 0;
avoid = !badinv;
} else {
avoid = (you.uinshop && dist(gx,gy) > 8);
badinv = false;
}
if (((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid)
&& GDIST(omx,omy) < 3) {
if (!badinv && !online(omx,omy))
return 0;
if (satdoor)
appr = gx = gy = 0;
}
}
}
if (omx == gx && omy == gy)
return 0;
if (shkp->bitflags & M_IS_CONFUSED) {
avoid = false;
appr = 0;
}
nix = omx;
niy = omy;
cnt = mfindpos(shkp,poss,info,ALLOW_SSM);
if (avoid && uondoor) { /* perhaps we cannot avoid him */
for (i=0; i<cnt; i++)
if (!(info[i] & NOTONL)) goto notonl_ok;
avoid = false;
notonl_ok:
;
}
chi = -1;
chcnt = 0;
for (i = 0 ; i < cnt ; i++) {
nx = poss[i].x;
ny = poss[i].y;
if (get_cell_type(floor_info[nx][ny]) == ROOM
|| shkroom != ESHK(shkp)->shoproom
|| ESHK(shkp)->following) {
#ifdef STUPID
/* cater for stupid compilers */
Short zz;
#endif STUPID
if (uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) {
nix = nx; niy = ny; chi = i; break;
}
if (avoid && (info[i] & NOTONL))
continue;
if ((!appr && !rund(++chcnt)) ||
#ifdef STUPID
(appr && (zz = GDIST(nix,niy)) && zz > GDIST(nx,ny))
#else
(appr && GDIST(nx,ny) < GDIST(nix,niy))
#endif STUPID
) {
nix = nx;
niy = ny;
chi = i;
}
}
}
if (nix != omx || niy != omy) {
if (info[chi] & ALLOW_M){
mtmp = mon_at(nix,niy);
if (hitmm(shkp,mtmp) == 1 && rund(3) &&
hitmm(mtmp,shkp) == 2) return 2;
return 0;
} else if (info[chi] & ALLOW_U){
hit_you(shkp, dice(mdat->damn, mdat->damd)+1);
return 0;
}
shkp->mx = nix;
shkp->my = niy;
pmon(shkp);
if (ib) {
unlink_obj(ib);//freeobj
mpickobj(shkp, ib);
}
return 1;
}
return 0;
}
void subfrombill(struct obj *obj)
{
Long ltmp;
Short tmp;
obj_t *otmp;
bill_t *bp;
eshk_t *eshk = (shopkeeper ? ESHK(shopkeeper) : NULL);
if (!inshop() ||
(you.ux == eshk->shk.x && you.uy == eshk->shk.y) ||
(you.ux == eshk->shd.x && you.uy == eshk->shd.y))
return;
if ((bp = onbill(obj)) != 0) {
obj->bitflags &= ~O_IS_UNPAID;
if (bp->bquantity > obj->quantity) {
otmp = (obj_t *) md_malloc(sizeof(obj_t));// newobj(0);
*otmp = *obj;
bp->bo_id = otmp->o_id = flags.ident++;
otmp->quantity = (bp->bquantity -= obj->quantity);
otmp->owt = 0; /* superfluous */
do_name(otmp, NULL); // otmp->onamelth = 0; // Undo name (if any)
bp->useup = true;
otmp->nobj = billobjs;
billobjs = otmp;
return;
}
eshk->billct--;
*bp = bill[eshk->billct];
return;
}
if (obj->bitflags & O_IS_UNPAID) {
StrPrintF(ScratchBuffer, "%s didn't notice.", Monnam(shopkeeper));
message(ScratchBuffer);
obj->bitflags &= ~O_IS_UNPAID;
return; /* %% */
}
/* he dropped something of his own - probably wants to sell it */
if ((shopkeeper->bitflags & (M_IS_ASLEEP | M_IS_FROZEN)) ||
inroom(shopkeeper->mx,shopkeeper->my) != eshk->shoproom)
return;
if (eshk->billct == BILLSZ ||
((tmp = shtypes[rooms[eshk->shoproom].rtype-8]) && tmp != obj->olet) ||
StrChr("_0", obj->olet)) {
StrPrintF(ScratchBuffer, "%s seems not interested.", Monnam(shopkeeper));
message(ScratchBuffer);
return;
}
ltmp = getprice(obj) * obj->quantity;
if (ANGRY(shopkeeper)) {
ltmp /= 3;
shopkeeper->bitflags |= M_IS_PEACEFUL; // NOTANGRY(shopkeeper) = 1;
} else ltmp /= 2;
if (eshk->robbed) {
if ((eshk->robbed -= ltmp) < 0)
eshk->robbed = 0;
message("Thank you for your contribution to restock this recently plundered shop.");
return;
}
if (ltmp > shopkeeper->mgold)
ltmp = shopkeeper->mgold;
pay(-ltmp, shopkeeper);
if (!ltmp)
StrPrintF(ScratchBuffer,
"%s gladly accepts %s but cannot pay you at present.",
Monnam(shopkeeper), doname(obj));
else
StrPrintF(ScratchBuffer,
"You sold %s and got %ld gold piece%s",
doname(obj), ltmp, (ltmp == 1 ? "." : "s."));
message(ScratchBuffer);
}
/* return 0 (no move), 1 (move) or 2 (dead) */
int
dog_move(struct monst *mtmp, int after)
{
int nx, ny, omx, omy, appr, nearer, j;
int udist, chi, i, whappr;
struct monst *mtmp2;
struct permonst *mdat = mtmp->data;
struct edog *edog = EDOG(mtmp);
struct obj *obj;
struct trap *trap;
xchar cnt, chcnt, nix, niy;
schar dogroom, uroom;
xchar gx, gy, gtyp, otyp; /* current goal */
coord poss[9];
int info[9];
#define GDIST(x,y) ((x-gx)*(x-gx) + (y-gy)*(y-gy))
#define DDIST(x,y) ((x-omx)*(x-omx) + (y-omy)*(y-omy))
if(moves <= edog->eattime) return(0); /* dog is still eating */
omx = mtmp->mx;
omy = mtmp->my;
whappr = (moves - EDOG(mtmp)->whistletime < 5);
if(moves > edog->hungrytime + 500 && !mtmp->mconf){
mtmp->mconf = 1;
mtmp->mhpmax /= 3;
if(mtmp->mhp > mtmp->mhpmax)
mtmp->mhp = mtmp->mhpmax;
if(cansee(omx,omy))
pline("%s is confused from hunger.", Monnam(mtmp));
else pline("You feel worried about %s.", monnam(mtmp));
} else
if(moves > edog->hungrytime + 750 || mtmp->mhp < 1){
if(cansee(omx,omy))
pline("%s dies from hunger.", Monnam(mtmp));
else
pline("You have a sad feeling for a moment, then it passes.");
mondied(mtmp);
return(2);
}
dogroom = inroom(omx,omy);
uroom = inroom(u.ux,u.uy);
udist = dist(omx,omy);
/* maybe we tamed him while being swallowed --jgm */
if(!udist) return(0);
/* if we are carrying sth then we drop it (perhaps near @) */
/* Note: if apport == 1 then our behaviour is independent of udist */
if(mtmp->minvent){
if(!rn2(udist) || !rn2((int) edog->apport))
if(rn2(10) < edog->apport){
relobj(mtmp, (int) mtmp->minvis);
if(edog->apport > 1) edog->apport--;
edog->dropdist = udist; /* hpscdi!jon */
edog->droptime = moves;
}
} else {
if ((obj = o_at(omx,omy)))
if(!strchr("0_", obj->olet)){
if((otyp = dogfood(obj)) <= CADAVER){
nix = omx;
niy = omy;
goto eatobj;
}
if (obj->owt < 10*mtmp->data->mlevel)
if (rn2(20) < edog->apport+3)
if (rn2(udist) || !rn2((int) edog->apport)){
freeobj(obj);
unpobj(obj);
/* if(levl[omx][omy].scrsym == obj->olet)
newsym(omx,omy); */
mpickobj(mtmp,obj);
}
}
}
/* first we look for food */
gtyp = UNDEF; /* no goal as yet */
gx = gy = 0;
for(obj = fobj; obj; obj = obj->nobj) {
otyp = dogfood(obj);
if(otyp > gtyp || otyp == UNDEF) continue;
if(inroom(obj->ox,obj->oy) != dogroom) continue;
if(otyp < MANFOOD &&
(dogroom >= 0 || DDIST(obj->ox,obj->oy) < 10)) {
if(otyp < gtyp || (otyp == gtyp &&
DDIST(obj->ox,obj->oy) < DDIST(gx,gy))){
gx = obj->ox;
gy = obj->oy;
gtyp = otyp;
}
} else
if(gtyp == UNDEF && dogroom >= 0 &&
uroom == dogroom &&
!mtmp->minvent && edog->apport > rn2(8)){
gx = obj->ox;
gy = obj->oy;
gtyp = APPORT;
}
}
if(gtyp == UNDEF ||
(gtyp != DOGFOOD && gtyp != APPORT && moves < edog->hungrytime)){
if(dogroom < 0 || dogroom == uroom){
gx = u.ux;
gy = u.uy;
#ifndef QUEST
} else {
int tmp = rooms[(int)dogroom].fdoor;
cnt = rooms[(int)dogroom].doorct;
gx = gy = FAR; /* random, far away */
while(cnt--){
if(dist(gx,gy) >
dist(doors[tmp].x, doors[tmp].y)){
gx = doors[tmp].x;
gy = doors[tmp].y;
}
tmp++;
}
/* here gx == FAR e.g. when dog is in a vault */
if(gx == FAR || (gx == omx && gy == omy)){
gx = u.ux;
gy = u.uy;
}
#endif /* QUEST */
}
appr = (udist >= 9) ? 1 : (mtmp->mflee) ? -1 : 0;
if(after && udist <= 4 && gx == u.ux && gy == u.uy)
return(0);
if(udist > 1){
if (!IS_ROOM(levl[(int)u.ux][(int)u.uy].typ) || !rn2(4) ||
whappr ||
(mtmp->minvent && rn2((int) edog->apport)))
appr = 1;
}
/* if you have dog food he'll follow you more closely */
if (appr == 0) {
obj = invent;
while(obj){
if(obj->otyp == TRIPE_RATION){
appr = 1;
break;
}
obj = obj->nobj;
}
}
} else appr = 1; /* gtyp != UNDEF */
if(mtmp->mconf) appr = 0;
if(gx == u.ux && gy == u.uy && (dogroom != uroom || dogroom < 0)){
coord *cp;
cp = gettrack(omx,omy);
if(cp){
gx = cp->x;
gy = cp->y;
}
}
nix = omx;
niy = omy;
cnt = mfndpos(mtmp,poss,info,ALLOW_M | ALLOW_TRAPS);
chcnt = 0;
chi = -1;
for(i=0; i<cnt; i++){
nx = poss[i].x;
ny = poss[i].y;
if(info[i] & ALLOW_M){
mtmp2 = m_at(nx,ny);
if(mtmp2->data->mlevel >= mdat->mlevel+2 ||
mtmp2->data->mlet == 'c')
continue;
if(after) return(0); /* hit only once each move */
if(hitmm(mtmp, mtmp2) == 1 && rn2(4) &&
mtmp2->mlstmv != moves &&
hitmm(mtmp2,mtmp) == 2) return(2);
return(0);
}
/* dog avoids traps */
/* but perhaps we have to pass a trap in order to follow @ */
if((info[i] & ALLOW_TRAPS) && (trap = t_at(nx,ny))){
if(!trap->tseen && rn2(40)) continue;
if(rn2(10)) continue;
}
/* dog eschewes cursed objects */
/* but likes dog food */
obj = fobj;
while(obj){
if(obj->ox != nx || obj->oy != ny)
goto nextobj;
if(obj->cursed) goto nxti;
if(obj->olet == FOOD_SYM &&
(otyp = dogfood(obj)) < MANFOOD &&
(otyp < ACCFOOD || edog->hungrytime <= moves)){
/* 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;
eatobj:
edog->eattime =
moves + obj->quan * objects[obj->otyp].oc_delay;
if(edog->hungrytime < moves)
edog->hungrytime = moves;
edog->hungrytime +=
5*obj->quan * objects[obj->otyp].nutrition;
mtmp->mconf = 0;
if(cansee(nix,niy))
pline("%s ate %s.", Monnam(mtmp), doname(obj));
/* perhaps this was a reward */
if(otyp != CADAVER)
edog->apport += 200/(edog->dropdist+moves-edog->droptime);
delobj(obj);
goto newdogpos;
}
nextobj:
obj = obj->nobj;
}
for(j=0; j<MTSZ && j<cnt-1; j++)
if(nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y)
if(rn2(4*(cnt-j))) goto nxti;
/* Some stupid C compilers cannot compute the whole expression at once. */
nearer = GDIST(nx,ny);
nearer -= GDIST(nix,niy);
nearer *= appr;
if((nearer == 0 && !rn2(++chcnt)) || nearer<0 ||
(nearer > 0 && !whappr &&
((omx == nix && omy == niy && !rn2(3))
|| !rn2(12))
)){
nix = nx;
niy = ny;
if(nearer < 0) chcnt = 0;
chi = i;
}
nxti: ;
}
newdogpos:
if(nix != omx || niy != omy){
if(info[chi] & ALLOW_U){
(void) hitu(mtmp, d(mdat->damn, mdat->damd)+1);
return(0);
}
mtmp->mx = nix;
mtmp->my = niy;
for(j=MTSZ-1; j>0; j--) mtmp->mtrack[j] = mtmp->mtrack[j-1];
mtmp->mtrack[0].x = omx;
mtmp->mtrack[0].y = omy;
}
if(mintrap(mtmp) == 2) /* he died */
return(2);
pmon(mtmp);
return(1);
}
int
doread()
{
struct obj *scroll;
boolean confused = (Confusion != 0);
boolean known = FALSE;
scroll = getobj("?", "read");
if(!scroll) return(0);
if(!scroll->dknown && Blind) {
pline("Being blind, you cannot read the formula on the scroll.");
return(0);
}
if(Blind)
pline("As you pronounce the formula on it, the scroll disappears.");
else
pline("As you read the scroll, it disappears.");
if(confused)
pline("Being confused, you mispronounce the magic words ... ");
switch(scroll->otyp) {
#ifdef MAIL
case SCR_MAIL:
readmail(/* scroll */);
break;
#endif /* MAIL */
case SCR_ENCHANT_ARMOR:
{ struct obj *otmp = some_armor();
if(!otmp) {
strange_feeling(scroll,"Your skin glows then fades.");
return(1);
}
if(confused) {
pline("Your %s glows silver for a moment.",
objects[otmp->otyp].oc_name);
otmp->rustfree = 1;
break;
}
if(otmp->spe > 3 && rn2(otmp->spe)) {
pline("Your %s glows violently green for a while, then evaporates.",
objects[otmp->otyp].oc_name);
useup(otmp);
break;
}
pline("Your %s glows green for a moment.",
objects[otmp->otyp].oc_name);
otmp->cursed = 0;
otmp->spe++;
break;
}
case SCR_DESTROY_ARMOR:
if(confused) {
struct obj *otmp = some_armor();
if(!otmp) {
strange_feeling(scroll,"Your bones itch.");
return(1);
}
pline("Your %s glows purple for a moment.",
objects[otmp->otyp].oc_name);
otmp->rustfree = 0;
break;
}
if(uarm) {
pline("Your armor turns to dust and falls to the floor!");
useup(uarm);
} else if(uarmh) {
pline("Your helmet turns to dust and is blown away!");
useup(uarmh);
} else if(uarmg) {
pline("Your gloves vanish!");
useup(uarmg);
selftouch("You");
} else {
strange_feeling(scroll,"Your skin itches.");
return(1);
}
break;
case SCR_CONFUSE_MONSTER:
if(confused) {
pline("Your hands begin to glow purple.");
Confusion += rnd(100);
} else {
pline("Your hands begin to glow blue.");
u.umconf = 1;
}
break;
case SCR_SCARE_MONSTER:
{ int ct = 0;
struct monst *mtmp;
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if(cansee(mtmp->mx,mtmp->my)) {
if(confused)
mtmp->mflee = mtmp->mfroz =
mtmp->msleep = 0;
else
mtmp->mflee = 1;
ct++;
}
if(!ct) {
if(confused)
pline("You hear sad wailing in the distance.");
else
pline("You hear maniacal laughter in the distance.");
}
break;
}
case SCR_BLANK_PAPER:
if(confused)
pline("You see strange patterns on this scroll.");
else
pline("This scroll seems to be blank.");
break;
case SCR_REMOVE_CURSE:
{ struct obj *obj;
if(confused)
pline("You feel like you need some help.");
else
pline("You feel like someone is helping you.");
for(obj = invent; obj ; obj = obj->nobj)
if(obj->owornmask)
obj->cursed = confused;
if(Punished && !confused) {
Punished = 0;
freeobj(uchain);
unpobj(uchain);
free(uchain);
uball->spe = 0;
uball->owornmask &= ~W_BALL;
uchain = uball = (struct obj *) 0;
}
break;
}
case SCR_CREATE_MONSTER:
{ int cnt = 1;
if(!rn2(73)) cnt += rnd(4);
if(confused) cnt += 12;
while(cnt--)
(void) makemon(confused ? PM_ACID_BLOB :
(struct permonst *) 0, u.ux, u.uy);
break;
}
case SCR_ENCHANT_WEAPON:
if(uwep && confused) {
pline("Your %s glows silver for a moment.",
objects[uwep->otyp].oc_name);
uwep->rustfree = 1;
} else
if(!chwepon(scroll, 1)) /* tests for !uwep */
return(1);
break;
case SCR_DAMAGE_WEAPON:
if(uwep && confused) {
pline("Your %s glows purple for a moment.",
objects[uwep->otyp].oc_name);
uwep->rustfree = 0;
} else
if(!chwepon(scroll, -1)) /* tests for !uwep */
return(1);
break;
case SCR_TAMING:
{ int i,j;
int bd = confused ? 5 : 1;
struct monst *mtmp;
for(i = -bd; i <= bd; i++) for(j = -bd; j <= bd; j++)
if ((mtmp = m_at(u.ux+i, u.uy+j)))
(void) tamedog(mtmp, NULL);
break;
}
case SCR_GENOCIDE:
{ extern char genocided[], fut_geno[];
char buf[BUFSZ];
struct monst *mtmp, *mtmp2;
pline("You have found a scroll of genocide!");
known = TRUE;
if(confused)
*buf = u.usym;
else do {
pline("What monster do you want to genocide (Type the letter)? ");
getlin(buf);
} while(strlen(buf) != 1 || !monstersym(*buf));
if(!strchr(fut_geno, *buf))
charcat(fut_geno, *buf);
if(!strchr(genocided, *buf))
charcat(genocided, *buf);
else {
pline("Such monsters do not exist in this world.");
break;
}
for(mtmp = fmon; mtmp; mtmp = mtmp2){
mtmp2 = mtmp->nmon;
if(mtmp->data->mlet == *buf)
mondead(mtmp);
}
pline("Wiped out all %c's.", *buf);
if(*buf == u.usym) {
killer = "scroll of genocide";
u.uhp = -1;
}
break;
}
case SCR_LIGHT:
if(!Blind) known = TRUE;
litroom(!confused);
break;
case SCR_TELEPORTATION:
if(confused)
level_tele();
else {
#ifdef QUEST
int oux = u.ux, ouy = u.uy;
tele();
if(dist(oux, ouy) > 100) known = TRUE;
#else /* QUEST */
int uroom = inroom(u.ux, u.uy);
tele();
if(uroom != inroom(u.ux, u.uy)) known = TRUE;
#endif /* QUEST */
}
break;
case SCR_GOLD_DETECTION:
/* Unfortunately this code has become slightly less elegant,
now that gold and traps no longer are of the same type. */
if(confused) {
struct trap *ttmp;
if(!ftrap) {
strange_feeling(scroll, "Your toes stop itching.");
return(1);
} else {
for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
if(ttmp->tx != u.ux || ttmp->ty != u.uy)
goto outtrapmap;
/* only under me - no separate display required */
pline("Your toes itch!");
break;
outtrapmap:
cls();
for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
at(ttmp->tx, ttmp->ty, '$');
prme();
pline("You feel very greedy!");
}
} else {
struct gold *gtmp;
if(!fgold) {
strange_feeling(scroll, "You feel materially poor.");
return(1);
} else {
known = TRUE;
for(gtmp = fgold; gtmp; gtmp = gtmp->ngold)
if(gtmp->gx != u.ux || gtmp->gy != u.uy)
goto outgoldmap;
/* only under me - no separate display required */
pline("You notice some gold between your feet.");
break;
outgoldmap:
cls();
for(gtmp = fgold; gtmp; gtmp = gtmp->ngold)
at(gtmp->gx, gtmp->gy, '$');
prme();
pline("You feel very greedy, and sense gold!");
}
}
/* common sequel */
more();
docrt();
break;
case SCR_FOOD_DETECTION:
{ int ct = 0, ctu = 0;
struct obj *obj;
char foodsym = confused ? POTION_SYM : FOOD_SYM;
for(obj = fobj; obj; obj = obj->nobj)
if(obj->olet == FOOD_SYM) {
if(obj->ox == u.ux && obj->oy == u.uy) ctu++;
else ct++;
}
if(!ct && !ctu) {
strange_feeling(scroll,"Your nose twitches.");
return(1);
} else if(!ct) {
known = TRUE;
pline("You smell %s close nearby.",
confused ? "something" : "food");
} else {
known = TRUE;
cls();
for(obj = fobj; obj; obj = obj->nobj)
if(obj->olet == foodsym)
at(obj->ox, obj->oy, FOOD_SYM);
prme();
pline("Your nose tingles and you smell %s!",
confused ? "something" : "food");
more();
docrt();
}
break;
}
case SCR_IDENTIFY:
/* known = TRUE; */
if(confused)
pline("You identify this as an identify scroll.");
else
pline("This is an identify scroll.");
useup(scroll);
objects[SCR_IDENTIFY].oc_name_known = 1;
if(!confused)
while(
!ggetobj("identify", identify, rn2(5) ? 1 : rn2(5))
&& invent
);
return(1);
case SCR_MAGIC_MAPPING:
{ struct rm *lev;
int num, zx, zy;
known = TRUE;
pline("On this scroll %s a map!",
confused ? "was" : "is");
for(zy = 0; zy < ROWNO; zy++)
for(zx = 0; zx < COLNO; zx++) {
if(confused && rn2(7)) continue;
lev = &(levl[zx][zy]);
if((num = lev->typ) == 0)
continue;
if(num == SCORR) {
lev->typ = CORR;
lev->scrsym = CORR_SYM;
} else
if(num == SDOOR) {
lev->typ = DOOR;
lev->scrsym = '+';
/* do sth in doors ? */
} else if(lev->seen) continue;
#ifndef QUEST
if(num != ROOM)
#endif /* QUEST */
{
lev->seen = lev->new = 1;
if(lev->scrsym == ' ' || !lev->scrsym)
newsym(zx,zy);
else
on_scr(zx,zy);
}
}
break;
}
case SCR_AMNESIA:
{ int zx, zy;
known = TRUE;
for(zx = 0; zx < COLNO; zx++) for(zy = 0; zy < ROWNO; zy++)
if(!confused || rn2(7))
if(!cansee(zx,zy))
levl[zx][zy].seen = 0;
docrt();
pline("Thinking of Maud you forget everything else.");
break;
}
case SCR_FIRE:
{ int num;
struct monst *mtmp;
known = TRUE;
if(confused) {
pline("The scroll catches fire and you burn your hands.");
losehp(1, "scroll of fire");
} else {
pline("The scroll erupts in a tower of flame!");
if(Fire_resistance)
pline("You are uninjured.");
else {
num = rnd(6);
u.uhpmax -= num;
losehp(num, "scroll of fire");
}
}
num = (2*num + 1)/3;
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
if(dist(mtmp->mx,mtmp->my) < 3) {
mtmp->mhp -= num;
if(strchr("FY", mtmp->data->mlet))
mtmp->mhp -= 3*num; /* this might well kill 'F's */
if(mtmp->mhp < 1) {
killed(mtmp);
break; /* primitive */
}
}
}
break;
}
case SCR_PUNISHMENT:
known = TRUE;
if(confused) {
pline("You feel guilty.");
break;
}
pline("You are being punished for your misbehaviour!");
if(Punished){
pline("Your iron ball gets heavier.");
uball->owt += 15;
break;
}
Punished = INTRINSIC;
setworn(mkobj_at(CHAIN_SYM, u.ux, u.uy), W_CHAIN);
setworn(mkobj_at(BALL_SYM, u.ux, u.uy), W_BALL);
uball->spe = 1; /* special ball (see save) */
break;
default:
impossible("What weird language is this written in? (%u)",
scroll->otyp);
}
UInt inshop()
{
Short roomno = inroom(you.ux,you.uy);
/* Did we just leave a shop? */
if (you.uinshop &&
(you.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) {
if (shopkeeper) {
if (ESHK(shopkeeper)->billct) {
if (inroom(shopkeeper->mx, shopkeeper->my)
== you.uinshop - 1) /* ab@unido */
message("Somehow you escaped the shop without paying!");
addupbill();
StrPrintF(ScratchBuffer,"You stole for a total worth of %ld zorkmids.",
total);
message(ScratchBuffer);
ESHK(shopkeeper)->robbed += total;
setpaid();
if ((rooms[ESHK(shopkeeper)->shoproom].rtype == GENERAL)
== (rund(3) == 0))
ESHK(shopkeeper)->following = true;
}
shopkeeper = NULL;
shlevel = 0;
}
you.uinshop = 0;
}
/* Did we just enter a zoo of some kind? */
if (roomno >= 0) {
Short rt = rooms[roomno].rtype;
monst_t *mtmp;
if (rt == ZOO) {
message("Welcome to David's treasure zoo!");
} else
if (rt == SWAMP) {
message("It looks rather muddy down here.");
} else
if (rt == MORGUE) {
if (midnight())
message("Go away! Go away!");
else
message("You get an uncanny feeling ...");
} else
rt = 0;
if (rt != 0) {
rooms[roomno].rtype = 0;
for (mtmp = fmon ; mtmp ; mtmp = mtmp->nmon)
if (rt != ZOO || !rund(3))
mtmp->bitflags &= ~M_IS_ASLEEP;
}
}
/* Did we just enter a shop? */
if (roomno >= 0 && rooms[roomno].rtype >= 8) {
if (shlevel != dlevel || !shopkeeper
|| ESHK(shopkeeper)->shoproom != roomno)
findshk(roomno);
if (!shopkeeper) {
rooms[roomno].rtype = 0;
you.uinshop = 0;
} else if (!you.uinshop) {
if (!ESHK(shopkeeper)->visitct ||
StrNCompare(ESHK(shopkeeper)->customer, plname, PL_NSIZ)) {
/* He seems to be new here */
ESHK(shopkeeper)->visitct = 0;
ESHK(shopkeeper)->following = false;
StrNCopy(ESHK(shopkeeper)->customer, plname, PL_NSIZ);
shopkeeper->bitflags |= M_IS_PEACEFUL; // NOTANGRY(shopkeeper) = 1;
}
if (!ESHK(shopkeeper)->following) {
Boolean box, pick;
StrPrintF(ScratchBuffer, "Hello %s! Welcome%sto %s's %s shop!",
plname,
ESHK(shopkeeper)->visitct++ ? " again " : " ",
shkname(shopkeeper),
shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8] );
message(ScratchBuffer);
box = carrying(ICE_BOX);
pick = carrying(PICK_AXE);
if (box || pick) {
if (do_chug(shopkeeper)) {
you.uinshop = 0; /* he died moving */
return 0;
}
StrPrintF(ScratchBuffer, "Will you please leave your %s outside?",
(box && pick) ? "box and pick-axe" :
box ? "box" : "pick-axe");
message(ScratchBuffer);
}
}
you.uinshop = roomno + 1; // (0 is "not in shop")
}
}
return you.uinshop;
}
int
gd_move()
{
int x,y,dx,dy,gx,gy,nx,ny,typ;
struct fakecorridor *fcp;
struct rm *crm;
if(!guard || gdlevel != dlevel){
impossible("Where is the guard?");
return(2); /* died */
}
if(u.ugold || goldincorridor())
return(0); /* didnt move */
if(dist(guard->mx,guard->my) > 1 || EGD->gddone) {
restfakecorr();
return(0); /* didnt move */
}
x = guard->mx;
y = guard->my;
/* look around (hor & vert only) for accessible places */
for(nx = x-1; nx <= x+1; nx++) for(ny = y-1; ny <= y+1; ny++) {
if(nx == x || ny == y) if(nx != x || ny != y)
if(isok(nx,ny))
if(!IS_WALL(typ = (crm = &levl[nx][ny])->typ) && typ != POOL) {
int i;
for(i = EGD->fcbeg; i < EGD->fcend; i++)
if(EGD->fakecorr[i].fx == nx &&
EGD->fakecorr[i].fy == ny)
goto nextnxy;
if((i = inroom(nx,ny)) >= 0 && rooms[i].rtype == VAULT)
goto nextnxy;
/* seems we found a good place to leave him alone */
EGD->gddone = 1;
if(ACCESSIBLE(typ)) goto newpos;
crm->typ = (typ == SCORR) ? CORR : DOOR;
goto proceed;
}
nextnxy: ;
}
nx = x;
ny = y;
gx = EGD->gdx;
gy = EGD->gdy;
dx = (gx > x) ? 1 : (gx < x) ? -1 : 0;
dy = (gy > y) ? 1 : (gy < y) ? -1 : 0;
if(abs(gx-x) >= abs(gy-y)) nx += dx; else ny += dy;
while((typ = (crm = &levl[nx][ny])->typ) != 0) {
/* in view of the above we must have IS_WALL(typ) or typ == POOL */
/* must be a wall here */
if(isok(nx+nx-x,ny+ny-y) && typ != POOL &&
ZAP_POS(levl[nx+nx-x][ny+ny-y].typ)){
crm->typ = DOOR;
goto proceed;
}
if(dy && nx != x) {
nx = x; ny = y+dy;
continue;
}
if(dx && ny != y) {
ny = y; nx = x+dx; dy = 0;
continue;
}
/* I don't like this, but ... */
crm->typ = DOOR;
goto proceed;
}
crm->typ = CORR;
proceed:
if(cansee(nx,ny)) {
mnewsym(nx,ny);
prl(nx,ny);
}
fcp = &(EGD->fakecorr[EGD->fcend]);
if(EGD->fcend++ == FCSIZ) panic("fakecorr overflow");
fcp->fx = nx;
fcp->fy = ny;
fcp->ftyp = typ;
newpos:
if(EGD->gddone) nx = ny = 0;
guard->mx = nx;
guard->my = ny;
pmon(guard);
restfakecorr();
return(1);
}
static int
dig()
{
struct rm *lev;
int dpx = dig_pos.x, dpy = dig_pos.y;
/* perhaps a nymph stole his pick-axe while he was busy digging */
/* or perhaps he teleported away */
if(u.uswallow || !uwep || uwep->otyp != PICK_AXE ||
dig_level != dlevel ||
((dig_down && (dpx != u.ux || dpy != u.uy)) ||
(!dig_down && dist(dpx,dpy) > 2)))
return(0);
dig_effort += 10 + abon() + uwep->spe + rn2(5);
if(dig_down) {
if(!xdnstair) {
pline("The floor here seems too hard to dig in.");
return(0);
}
if(dig_effort > 250) {
dighole();
return(0); /* done with digging */
}
if(dig_effort > 50) {
struct trap *ttmp = t_at(dpx,dpy);
if(!ttmp) {
ttmp = maketrap(dpx,dpy,PIT);
ttmp->tseen = 1;
pline("You have dug a pit.");
u.utrap = rn1(4,2);
u.utraptype = TT_PIT;
return(0);
}
}
} else
if (dig_effort > 100) {
char *digtxt;
struct obj *obj;
lev = &levl[dpx][dpy];
if ((obj = sobj_at(ENORMOUS_ROCK, dpx, dpy))) {
fracture_rock(obj);
digtxt = "The rock falls apart.";
} else if(!lev->typ || lev->typ == SCORR) {
lev->typ = CORR;
digtxt = "You succeeded in cutting away some rock.";
} else if(lev->typ == HWALL || lev->typ == VWALL
|| lev->typ == SDOOR) {
lev->typ = xdnstair ? DOOR : ROOM;
digtxt = "You just made an opening in the wall.";
} else
digtxt = "Now what exactly was it that you were digging in?";
mnewsym(dpx, dpy);
prl(dpx, dpy);
pline(digtxt); /* after mnewsym & prl */
return(0);
} else {
if(IS_WALL(levl[dpx][dpy].typ)) {
int rno = inroom(dpx,dpy);
if(rno >= 0 && rooms[rno].rtype >= 8) {
pline("This wall seems too hard to dig into.");
return(0);
}
}
pline("You hit the rock with all your might.");
}
return(1);
}
