static void
finish_map(struct level *lev, schar fg_typ, schar bg_typ, boolean lit,
boolean walled)
{
int i, j;
if (walled)
wallify_map(lev);
if (lit) {
for (i = 0; i < COLNO; i++)
for (j = 0; j < ROWNO; j++)
if ((!IS_ROCK(fg_typ) && lev->locations[i][j].typ == fg_typ) ||
(!IS_ROCK(bg_typ) && lev->locations[i][j].typ == bg_typ) ||
(bg_typ == TREE && lev->locations[i][j].typ == bg_typ) ||
(walled && IS_WALL(lev->locations[i][j].typ)))
lev->locations[i][j].lit = TRUE;
for (i = 0; i < lev->nroom; i++)
lev->rooms[i].rlit = 1;
}
/* light lava even if everything's otherwise unlit */
for (i = 0; i < COLNO; i++)
for (j = 0; j < ROWNO; j++)
if (lev->locations[i][j].typ == LAVAPOOL)
lev->locations[i][j].lit = TRUE;
}
void
nh_describe_pos(int x, int y, struct nh_desc_buf *bufs, int *is_in)
{
bufs->bgdesc[0] = '\0';
bufs->trapdesc[0] = '\0';
bufs->objdesc[0] = '\0';
bufs->mondesc[0] = '\0';
bufs->invisdesc[0] = '\0';
bufs->effectdesc[0] = '\0';
bufs->feature_described = FALSE;
bufs->objcount = -1;
if (is_in)
*is_in = 0;
if (!program_state.game_running || !isok(x, y))
return;
API_ENTRY_CHECKPOINT_RETURN_VOID_ON_ERROR();
if (is_in) {
if (IS_ROCK(level->locations[x][y].typ) || closed_door(level, x, y))
*is_in = 1;
else
*is_in = 0;
}
int monid = dbuf_get_mon(x, y);
int mem_bg = level->locations[x][y].mem_bg;
describe_bg(x, y, mem_bg, bufs->bgdesc);
int tt = level->locations[x][y].mem_trap;
if (tt) {
strcpy(bufs->trapdesc,
trapexplain[level->locations[x][y].mem_trap - 1]);
if (tt != BEAR_TRAP && tt != WEB && tt != STATUE_TRAP && mem_bg &&
is_in)
*is_in = 1;
}
bufs->objcount =
describe_object(x, y, level->locations[x][y].mem_obj - 1, bufs->objdesc,
mem_bg && is_in, &bufs->feature_described);
describe_mon(x, y, monid - 1, bufs->mondesc);
if (level->locations[x][y].mem_invis)
strcpy(bufs->invisdesc, invisexplain);
if (Engulfed && (x != u.ux || y != u.uy)) {
/* all locations when swallowed other than the hero are the monster */
snprintf(bufs->effectdesc, SIZE(bufs->effectdesc), "interior of %s",
Blind ? "a monster" : a_monnam(u.ustuck));
}
API_EXIT();
}
static Boolean teleok(Short x, Short y)
{ /* might throw him into a POOL */
return( !OUT_OF_BOUNDS(x,y) &&
!IS_ROCK(get_cell_type(floor_info[x][y])) &&
!mon_at(x,y) &&
!sobj_at(ENORMOUS_ROCK,x,y) &&
!trap_at(x,y)
);
/* Note: gold is permitted (because of vaults) */
}
static bool clear_fcorr(struct monst *grd, bool forceshow) {
int fcx, fcy, fcbeg;
struct monst *mtmp;
if (!on_level(&(EGD(grd)->gdlevel), &u.uz))
return true;
while ((fcbeg = EGD(grd)->fcbeg) < EGD(grd)->fcend) {
fcx = EGD(grd)->fakecorr[fcbeg].fx;
fcy = EGD(grd)->fakecorr[fcbeg].fy;
if ((grd->mhp <= 0 || !in_fcorridor(grd, u.ux, u.uy)) &&
EGD(grd)->gddone)
forceshow = true;
if ((u.ux == fcx && u.uy == fcy && grd->mhp > 0) || (!forceshow && couldsee(fcx, fcy)) || (Punished && !carried(uball) && uball->ox == fcx && uball->oy == fcy))
return false;
if ((mtmp = m_at(fcx, fcy)) != 0) {
if (mtmp->isgd)
return (false);
else if (!in_fcorridor(grd, u.ux, u.uy)) {
if (mtmp->mtame)
yelp(mtmp);
(void)rloc(mtmp, false);
}
}
levl[fcx][fcy].typ = EGD(grd)->fakecorr[fcbeg].ftyp;
map_location(fcx, fcy, 1); /* bypass vision */
if (!ACCESSIBLE(levl[fcx][fcy].typ))
block_point(fcx, fcy);
EGD(grd)->fcbeg++;
}
if (grd->mhp <= 0) {
pline_The("corridor disappears.");
if (IS_ROCK(levl[u.ux][u.uy].typ))
You("are encased in rock.");
}
return (true);
}
static int
describe_object(int x, int y, int votyp, char *buf, int known_embed,
boolean *feature_described)
{
int num_objs = 0;
struct obj *otmp;
int typ;
*feature_described = FALSE;
if (votyp == -1)
return -1;
otmp = vobj_at(x, y);
if (!otmp || otmp->otyp != votyp) {
/* We have a mimic. */
if (votyp == STRANGE_OBJECT) {
strcpy(buf, "strange object");
} else {
otmp = mktemp_sobj(level, votyp);
otmp->corpsenm = PM_TENGU;
/* (basic object only, no random features) */
if (otmp->oclass == COIN_CLASS)
otmp->quan = 1L; /* to force pluralization off */
else if (otmp->otyp == SLIME_MOLD)
otmp->spe = gamestate.fruits.current;/* give the fruit a type */
strcpy(buf, distant_name(otmp, xname));
dealloc_obj(otmp);
otmp = vobj_at(x, y); /* make sure we don't point to the temp
obj any more */
}
} else
strcpy(buf, distant_name(otmp, xname));
typ = level->locations[x][y].typ;
if (known_embed && IS_TREE(typ))
strcat(buf, " stuck");
else if (known_embed && (IS_ROCK(typ) || closed_door(level, x, y)))
strcat(buf, " embedded");
else if (IS_TREE(typ)) {
strcat(buf, " stuck in a tree");
*feature_described = TRUE;
} else if (typ == STONE || typ == SCORR) {
strcat(buf, " embedded in stone");
*feature_described = TRUE;
} else if (IS_WALL(typ) || typ == SDOOR) {
strcat(buf, " embedded in a wall");
*feature_described = TRUE;
} else if (closed_door(level, x, y)) {
strcat(buf, " embedded in a door");
*feature_described = TRUE;
} else if (is_pool(level, x, y)) {
strcat(buf, " in water");
*feature_described = TRUE;
} else if (is_lava(level, x, y)) {
strcat(buf, " in molten lava"); /* [can this ever happen?] */
*feature_described = TRUE;
}
if (!cansee(x, y))
return -1; /* don't disclose the number of objects for location
out of LOS */
if (!otmp)
/* There is no object here. Since the player sees one it must be a
mimic */
return 1;
if (otmp->otyp != votyp)
/* Hero sees something other than the actual top object. Probably a
mimic */
num_objs++;
for (; otmp; otmp = otmp->nexthere)
num_objs++;
return num_objs;
}
void
m_throw(struct monst *mon, int x, int y, int dx, int dy, int range,
struct obj *obj, boolean verbose)
{
struct monst *mtmp;
struct obj *singleobj;
struct tmp_sym *tsym = 0;
int hitu, blindinc = 0;
bhitpos.x = x;
bhitpos.y = y;
if (obj->quan == 1L) {
/*
* Remove object from minvent. This cannot be done later on;
* what if the player dies before then, leaving the monster
* with 0 daggers? (This caused the infamous 2^32-1 orcish
* dagger bug).
*
* VENOM is not in minvent - it should already be OBJ_FREE.
* The extract below does nothing.
*/
/* not possibly_unwield, which checks the object's */
/* location, not its existence */
if (MON_WEP(mon) == obj) {
setmnotwielded(mon, obj);
MON_NOWEP(mon);
}
obj_extract_self(obj);
singleobj = obj;
obj = NULL;
} else {
singleobj = splitobj(obj, 1L);
obj_extract_self(singleobj);
}
singleobj->owornmask = 0; /* threw one of multiple weapons in hand? */
singleobj->olev = level; /* object is on the same level as monster */
if ((singleobj->cursed || singleobj->greased) && (dx || dy) && !rn2(7)) {
if (canseemon(mon) && flags.verbose) {
if (is_ammo(singleobj))
pline("%s misfires!", Monnam(mon));
else
pline("%s as %s throws it!", Tobjnam(singleobj, "slip"),
mon_nam(mon));
}
dx = rn2(3) - 1;
dy = rn2(3) - 1;
/* check validity of new direction */
if (!dx && !dy) {
drop_throw(singleobj, 0, bhitpos.x, bhitpos.y);
return;
}
}
/* pre-check for doors, walls and boundaries. Also need to pre-check for
bars regardless of direction; the random chance for small objects
hitting bars is skipped when reaching them at point blank range */
if (!isok(bhitpos.x + dx, bhitpos.y + dy)
|| IS_ROCK(level->locations[bhitpos.x + dx][bhitpos.y + dy].typ)
|| closed_door(level, bhitpos.x + dx, bhitpos.y + dy)
|| (level->locations[bhitpos.x + dx][bhitpos.y + dy].typ == IRONBARS &&
hits_bars(&singleobj, bhitpos.x, bhitpos.y, 0, 0))) {
drop_throw(singleobj, 0, bhitpos.x, bhitpos.y);
return;
}
/* Note: drop_throw may destroy singleobj. Since obj must be destroyed
early to avoid the dagger bug, anyone who modifies this code should be
careful not to use either one after it's been freed. */
tsym = tmpsym_initobj(singleobj);
while (range-- > 0) { /* Actually the loop is always exited by break */
bhitpos.x += dx;
bhitpos.y += dy;
if ((mtmp = m_at(level, bhitpos.x, bhitpos.y)) != 0) {
if (ohitmon(mtmp, singleobj, range, verbose))
break;
} else if (bhitpos.x == u.ux && bhitpos.y == u.uy) {
action_interrupted();
if (singleobj->oclass == GEM_CLASS &&
singleobj->otyp <= LAST_GEM + 9
/* 9 glass colors */
&& is_unicorn(youmonst.data) && !u_helpless(hm_all)) {
if (singleobj->otyp > LAST_GEM) {
pline("You catch the %s.", xname(singleobj));
pline("You are not interested in %s junk.",
s_suffix(mon_nam(mon)));
makeknown(singleobj->otyp);
dropy(singleobj);
} else {
pline("You accept %s gift in the spirit in which it was "
"intended.", s_suffix(mon_nam(mon)));
hold_another_object(singleobj, "You catch, but drop, %s.",
xname(singleobj), "You catch:");
}
break;
}
if (singleobj->oclass == POTION_CLASS) {
if (!Blind)
singleobj->dknown = 1;
potionhit(&youmonst, singleobj, FALSE);
break;
}
switch (singleobj->otyp) {
int dam, hitv;
case EGG:
if (!touch_petrifies(&mons[singleobj->corpsenm])) {
impossible("monster throwing egg type %d",
singleobj->corpsenm);
hitu = 0;
break;
}
/* fall through */
case CREAM_PIE:
case BLINDING_VENOM:
hitu = thitu(8, 0, singleobj, NULL);
break;
default:
dam = dmgval(singleobj, &youmonst);
hitv = 3 - distmin(u.ux, u.uy, mon->mx, mon->my);
if (hitv < -4)
hitv = -4;
if (is_elf(mon->data) &&
objects[singleobj->otyp].oc_skill == P_BOW) {
hitv++;
if (MON_WEP(mon) && MON_WEP(mon)->otyp == ELVEN_BOW)
hitv++;
if (singleobj->otyp == ELVEN_ARROW)
dam++;
}
if (bigmonst(youmonst.data))
hitv++;
hitv += 8 + singleobj->spe;
if (dam < 1)
dam = 1;
if (objects[singleobj->otyp].oc_class == WEAPON_CLASS ||
objects[singleobj->otyp].oc_class == VENOM_CLASS) {
hitv += objects[singleobj->otyp].oc_hitbon;
}
hitu = thitu(hitv, dam, singleobj, NULL);
}
if (hitu && singleobj->opoisoned && is_poisonable(singleobj)) {
poisoned(xname(singleobj), A_STR,
killer_msg_obj(POISONING, singleobj), -10);
}
if (hitu &&
can_blnd(NULL, &youmonst,
(uchar) (singleobj->otyp ==
BLINDING_VENOM ? AT_SPIT : AT_WEAP),
singleobj)) {
blindinc = rnd(25);
if (singleobj->otyp == CREAM_PIE) {
if (!Blind)
pline("Yecch! You've been creamed.");
else
pline("There's something sticky all over your %s.",
body_part(FACE));
} else if (singleobj->otyp == BLINDING_VENOM) {
int num_eyes = eyecount(youmonst.data);
/* venom in the eyes */
if (!Blind)
pline("The venom blinds you.");
else
pline("Your %s sting%s.",
(num_eyes ==
1) ? body_part(EYE) : makeplural(body_part(EYE)),
(num_eyes == 1) ? "s" : "");
}
}
if (hitu && singleobj->otyp == VAMPIRE_BLOOD) {
if (!Drain_resistance) {
losexp("vampire blood", FALSE);
}
}
if (hitu && singleobj->otyp == EGG) {
if (touched_monster(singleobj->corpsenm))
Stoned = 5;
}
action_interrupted();
if (hitu || !range) {
drop_throw(singleobj, hitu, u.ux, u.uy);
break;
}
} else if (!range /* reached end of path */
/* missile hits edge of screen */
|| !isok(bhitpos.x + dx, bhitpos.y + dy)
/* missile hits the wall */
|| IS_ROCK(level->
locations[bhitpos.x + dx][bhitpos.y + dy].typ)
/* missile hit closed door */
|| closed_door(level, bhitpos.x + dx, bhitpos.y + dy)
/* missile might hit iron bars */
|| (level->locations[bhitpos.x + dx][bhitpos.y + dy].typ ==
IRONBARS &&
hits_bars(&singleobj, bhitpos.x, bhitpos.y, !rn2(5), 0))
/* Thrown objects "sink" */
|| IS_SINK(level->locations[bhitpos.x][bhitpos.y].typ)) {
if (singleobj) /* hits_bars might have destroyed it */
drop_throw(singleobj, 0, bhitpos.x, bhitpos.y);
break;
}
tmpsym_at(tsym, bhitpos.x, bhitpos.y);
win_delay_output();
}
tmpsym_at(tsym, bhitpos.x, bhitpos.y);
win_delay_output();
tmpsym_end(tsym);
if (blindinc) {
u.ucreamed += blindinc;
make_blinded(Blinded + (long)blindinc, FALSE);
if (!Blind)
pline("Your vision quickly clears.");
else if (flags.verbose)
pline("Use the command #wipe to clean your %s.", body_part(FACE));
}
}
static int
use_pick_axe(struct obj *obj)
{
char dirsyms[12];
extern char sdir[];
char *dsp = dirsyms, *sdp = sdir;
struct monst *mtmp;
struct rm *lev;
int rx, ry, res = 0;
if(obj != uwep) {
if(uwep && uwep->cursed) {
/* Andreas Bormann - ihnp4!decvax!mcvax!unido!ab */
pline("Since your weapon is welded to your hand,");
pline("you cannot use that pick-axe.");
return(0);
}
pline("You now wield %s.", doname(obj));
setuwep(obj);
res = 1;
}
while(*sdp) {
(void) movecmd(*sdp); /* sets u.dx and u.dy and u.dz */
rx = u.ux + u.dx;
ry = u.uy + u.dy;
if(u.dz > 0 || (u.dz == 0 && isok(rx, ry) &&
(IS_ROCK(levl[rx][ry].typ)
|| sobj_at(ENORMOUS_ROCK, rx, ry))))
*dsp++ = *sdp;
sdp++;
}
*dsp = 0;
pline("In what direction do you want to dig? [%s] ", dirsyms);
if(!getdir(0)) /* no txt */
return(res);
if(u.uswallow && attack(u.ustuck)) /* return(1) */;
else
if(u.dz < 0)
pline("You cannot reach the ceiling.");
else
if(u.dz == 0) {
if(Confusion)
confdir();
rx = u.ux + u.dx;
ry = u.uy + u.dy;
if((mtmp = m_at(rx, ry)) && attack(mtmp))
return(1);
if(!isok(rx, ry)) {
pline("Clash!");
return(1);
}
lev = &levl[rx][ry];
if(lev->typ == DOOR)
pline("Your %s against the door.",
aobjnam(obj, "clang"));
else if(!IS_ROCK(lev->typ)
&& !sobj_at(ENORMOUS_ROCK, rx, ry)) {
/* ACCESSIBLE or POOL */
pline("You swing your %s through thin air.",
aobjnam(obj, (char *) 0));
} else {
if(dig_pos.x != rx || dig_pos.y != ry
|| dig_level != dlevel || dig_down) {
dig_down = FALSE;
dig_pos.x = rx;
dig_pos.y = ry;
dig_level = dlevel;
dig_effort = 0;
pline("You start digging.");
} else
pline("You continue digging.");
occupation = dig;
occtxt = "digging";
}
} else if(Levitation) {
pline("You cannot reach the floor.");
} else {
if(dig_pos.x != u.ux || dig_pos.y != u.uy
|| dig_level != dlevel || !dig_down) {
dig_down = TRUE;
dig_pos.x = u.ux;
dig_pos.y = u.uy;
dig_level = dlevel;
dig_effort = 0;
pline("You start digging in the floor.");
if(inshop())
shopdig(0);
} else
pline("You continue digging in the floor.");
occupation = dig;
occtxt = "digging";
}
return(1);
}
static boolean
clear_fcorr(struct monst *grd, boolean forceshow)
{
int fcx, fcy, fcbeg, oldtyp;
struct monst *mtmp;
boolean showmsg = FALSE;
if (!on_level(&(EGD(grd)->gdlevel), &u.uz))
return TRUE;
while ((fcbeg = EGD(grd)->fcbeg) < EGD(grd)->fcend) {
fcx = EGD(grd)->fakecorr[fcbeg].fx;
fcy = EGD(grd)->fakecorr[fcbeg].fy;
if ((grd->mhp <= 0 || !in_fcorridor(grd, u.ux, u.uy)) &&
EGD(grd)->gddone)
forceshow = TRUE;
if ((u.ux == fcx && u.uy == fcy && grd->mhp > 0)
|| (!forceshow && couldsee(fcx, fcy)))
return FALSE;
if ((Punished && !carried(uball)
&& uball->ox == fcx && uball->oy == fcy)) {
unplacebc();
placebc();
}
if ((mtmp = m_at(level, fcx, fcy)) != 0) {
if (mtmp->isgd)
return FALSE;
else if (!in_fcorridor(grd, u.ux, u.uy)) {
if (mtmp->mtame)
yelp(mtmp);
rloc(mtmp, FALSE);
}
}
oldtyp = level->locations[fcx][fcy].typ;
level->locations[fcx][fcy].typ = EGD(grd)->fakecorr[fcbeg].ftyp;
if (!ACCESSIBLE(level->locations[fcx][fcy].typ) && ACCESSIBLE(oldtyp)) {
struct trap *t = t_at(level, fcx, fcy);
if (couldsee(fcx, fcy))
showmsg = TRUE;
if (t)
deltrap(level, t);
level->locations[fcx][fcy].lit = FALSE;
block_point(fcx, fcy);
}
map_location(fcx, fcy, 1, FALSE); /* bypass vision */
EGD(grd)->fcbeg++;
}
if (grd->mhp <= 0) {
if (showmsg) {
if (!Blind)
pline("The corridor disappears.");
else
pline("You feel claustrophobic.");
}
if (IS_ROCK(level->locations[u.ux][u.uy].typ))
pline("You are encased in rock.");
}
return TRUE;
}
