/* obj: quest artifact; possibly null if carrying Amulet */
void
finish_quest(struct obj *obj)
{
struct obj *otmp;
if (Uhave_amulet) { /* unlikely but not impossible */
qt_pager(QT_HASAMULET);
/* leader IDs the real amulet but ignores any fakes */
if ((otmp = carrying(AMULET_OF_YENDOR)) != 0)
fully_identify_obj(otmp);
} else {
qt_pager(!Qstat(got_thanks) ? QT_OFFEREDIT : QT_OFFEREDIT2);
/* should have obtained bell during quest; if not, suggest returning
for it now */
if ((otmp = carrying(BELL_OF_OPENING)) == 0)
com_pager(5);
}
Qstat(got_thanks) = TRUE;
if (obj) {
u.uevent.qcompleted = 1; /* you did it! */
historic_event(FALSE, FALSE, "completed the quest!");
/* behave as if leader imparts sufficient info about the quest artifact
*/
fully_identify_obj(obj);
update_inventory();
}
}
static const char *
add_killer_notes(int how, boolean carried, const char *killer)
{
if (how == QUIT && u.uhp < 1)
killer = msgcat(killer, " while already on Charon's boat");
boolean already_helpless = FALSE;
int i;
for (i = hr_first; i <= hr_last; ++i)
if (turnstate.helpless_timers[i]) {
killer = msgcat_many(killer,
already_helpless ? " and " : ", while ",
turnstate.helpless_causes[i], NULL);
already_helpless = TRUE;
}
if (Unchanging && (u.mh < 1) && Upolyd)
killer = msgcat(killer, ", while stuck in monster form");
if (carried & 0x0001UL) /* real Amulet of Yendor */
killer = msgcat(killer, " (with the Amulet)");
else if (how == ESCAPED) {
/* Note: the fake Amulet check relies on bones not having been
created; this is safe for escapes, but not safe in general */
if (carrying(FAKE_AMULET_OF_YENDOR))
killer = msgcat(killer, " (with a fake Amulet)");
/* don't bother counting to see whether it should be plural */
}
return killer;
}
/* there has just been an inventory change affecting a luck-granting item */
void set_moreluck (void) {
int luckbon = stone_luck(true);
if (!luckbon && !carrying(LUCKSTONE)) u.moreluck = 0;
else if (luckbon >= 0) u.moreluck = LUCKADD;
else u.moreluck = -LUCKADD;
}
TEMP_PAR
IDEAL_REP& IDEAL_REP::operator-=(const IDEAL_REP& a)
{
for (unsigned i = 0; i < a._coeffs.size(); ++i)
{
(*this)[i] -= a.getCoeff(i);
}
carrying();
correctShape();
return *this;
}
int
doapply()
{
struct obj *obj;
int res = 1;
obj = getobj("(", "use or apply");
if(!obj) return(0);
switch(obj->otyp){
case EXPENSIVE_CAMERA:
use_camera(obj); break;
case ICE_BOX:
use_ice_box(obj); break;
case PICK_AXE:
res = use_pick_axe(obj);
break;
case MAGIC_WHISTLE:
if(pl_character[0] == 'W' || u.ulevel > 9) {
use_magic_whistle(obj);
break;
}
/* fall into next case */
case WHISTLE:
use_whistle(obj);
break;
case CAN_OPENER:
if(!carrying(TIN)) {
pline("You have no can to open.");
goto xit;
}
pline("You cannot open a tin without eating its contents.");
pline("In order to eat, use the 'e' command.");
if(obj != uwep)
pline("Opening the tin will be much easier if you wield the can-opener.");
goto xit;
default:
pline("Sorry, I don't know how to use that.");
xit:
nomul(0);
return(0);
}
nomul(0);
return(res);
}
int
wiz_hit(struct monst *mtmp)
{
/* if we have stolen or found the amulet, we disappear */
if(mtmp->minvent && mtmp->minvent->olet == AMULET_SYM &&
mtmp->minvent->spe == 0) {
/* vanish -- very primitive */
fall_down(mtmp);
return(1);
}
/* if it is lying around someplace, we teleport to it */
if(!carrying(AMULET_OF_YENDOR)) {
struct obj *otmp;
for(otmp = fobj; otmp; otmp = otmp->nobj)
if(otmp->olet == AMULET_SYM && !otmp->spe) {
if((u.ux != otmp->ox || u.uy != otmp->oy) &&
!m_at(otmp->ox, otmp->oy)) {
/* teleport to it and pick it up */
mtmp->mx = otmp->ox;
mtmp->my = otmp->oy;
freeobj(otmp);
mpickobj(mtmp, otmp);
pmon(mtmp);
return(0);
}
goto hithim;
}
return(0); /* we don't know where it is */
}
hithim:
if(rn2(2)) { /* hit - perhaps steal */
/* if hit 1/20 chance of stealing amulet & vanish
- amulet is on level 26 again. */
if(hitu(mtmp, d(mtmp->data->damn,mtmp->data->damd))
&& !rn2(20) && stealamulet(mtmp))
;
}
else
inrange(mtmp); /* try magic */
return(0);
}
void
nh_timeout()
{
register struct prop *upp;
int sleeptime;
int m_idx;
int baseluck = (flags.moonphase == FULL_MOON) ? 1 : 0;
if (flags.friday13) baseluck -= 1;
if (u.uluck != baseluck &&
moves % (u.uhave.amulet || u.ugangr ? 300 : 600) == 0) {
/* Cursed luckstones stop bad luck from timing out; blessed luckstones
* stop good luck from timing out; normal luckstones stop both;
* neither is stopped if you don't have a luckstone.
* Luck is based at 0 usually, +1 if a full moon and -1 on Friday 13th
*/
register int time_luck = stone_luck(FALSE);
boolean nostone = !carrying(LUCKSTONE) && !stone_luck(TRUE);
if(u.uluck > baseluck && (nostone || time_luck < 0))
u.uluck--;
else if(u.uluck < baseluck && (nostone || time_luck > 0))
u.uluck++;
}
if(u.uinvulnerable) return; /* things past this point could kill you */
if(Stoned) stoned_dialogue();
if(Slimed) slime_dialogue();
if(Vomiting) vomiting_dialogue();
if(Strangled) choke_dialogue();
if(u.mtimedone && !--u.mtimedone) {
if (Unchanging)
u.mtimedone = rnd(100*youmonst.data->mlevel + 1);
else
rehumanize();
}
if(u.ucreamed) u.ucreamed--;
/* Dissipate spell-based protection. */
if (u.usptime) {
if (--u.usptime == 0 && u.uspellprot) {
u.usptime = u.uspmtime;
u.uspellprot--;
find_ac();
if (!Blind)
Norep("The %s haze around you %s.", hcolor(NH_GOLDEN),
u.uspellprot ? "becomes less dense" : "disappears");
}
}
#ifdef STEED
if (u.ugallop) {
if (--u.ugallop == 0L && u.usteed)
pline("%s stops galloping.", Monnam(u.usteed));
}
#endif
for(upp = u.uprops; upp < u.uprops+SIZE(u.uprops); upp++)
if((upp->intrinsic & TIMEOUT) && !(--upp->intrinsic & TIMEOUT)) {
switch(upp - u.uprops){
case STONED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
/* leaving killer_format would make it
"petrified by petrification" */
killer_format = NO_KILLER_PREFIX;
killer = "killed by petrification";
}
done(STONING);
break;
case SLIMED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
killer_format = NO_KILLER_PREFIX;
killer = "turned into green slime";
}
done(TURNED_SLIME);
break;
case VOMITING:
make_vomiting(0L, TRUE);
break;
case SICK:
You("die from your illness.");
killer_format = KILLED_BY_AN;
killer = u.usick_cause;
if ((m_idx = name_to_mon(killer)) >= LOW_PM) {
if (type_is_pname(&mons[m_idx])) {
killer_format = KILLED_BY;
} else if (mons[m_idx].geno & G_UNIQ) {
killer = the(killer);
Strcpy(u.usick_cause, killer);
killer_format = KILLED_BY;
}
}
u.usick_type = 0;
done(POISONING);
break;
case FAST:
if (!Very_fast)
You_feel("yourself slowing down%s.",
Fast ? " a bit" : "");
break;
case CONFUSION:
HConfusion = 1; /* So make_confused works properly */
make_confused(0L, TRUE);
stop_occupation();
break;
case STUNNED:
HStun = 1;
make_stunned(0L, TRUE);
stop_occupation();
break;
case BLINDED:
Blinded = 1;
make_blinded(0L, TRUE);
stop_occupation();
break;
case INVIS:
newsym(u.ux,u.uy);
if (!Invis && !BInvis && !Blind) {
You(!See_invisible ?
"are no longer invisible." :
"can no longer see through yourself.");
stop_occupation();
}
break;
case SEE_INVIS:
set_mimic_blocking(); /* do special mimic handling */
see_monsters(); /* make invis mons appear */
newsym(u.ux,u.uy); /* make self appear */
stop_occupation();
break;
case WOUNDED_LEGS:
heal_legs();
stop_occupation();
break;
case HALLUC:
HHallucination = 1;
(void) make_hallucinated(0L, TRUE, 0L);
stop_occupation();
break;
case SLEEPING:
if (unconscious() || Sleep_resistance)
HSleeping += rnd(100);
else if (Sleeping) {
You("fall asleep.");
sleeptime = rnd(20);
fall_asleep(-sleeptime, TRUE);
HSleeping += sleeptime + rnd(100);
}
break;
case LEVITATION:
(void) float_down(I_SPECIAL|TIMEOUT, 0L);
break;
case STRANGLED:
killer_format = KILLED_BY;
killer = (u.uburied) ? "suffocation" : "strangulation";
done(DIED);
break;
case FUMBLING:
/* call this only when a move took place. */
/* otherwise handle fumbling msgs locally. */
if (u.umoved && !Levitation) {
slip_or_trip();
nomul(-2, "fumbling");
nomovemsg = "";
/* The more you are carrying the more likely you
* are to make noise when you fumble. Adjustments
* to this number must be thoroughly play tested.
*/
if ((inv_weight() > -500)) {
You("make a lot of noise!");
wake_nearby();
}
}
/* from outside means slippery ice; don't reset
counter if that's the only fumble reason */
HFumbling &= ~FROMOUTSIDE;
if (Fumbling)
HFumbling += rnd(20);
break;
case DETECT_MONSTERS:
see_monsters();
break;
case PREGNANT: {
char buf[BUFSZ];
if (!flags.female) {
strcpy(buf, body_part(STOMACH));
if (!strcmp(buf, "stomach"))
strcpy(buf, "belly");
pline("Something bursts out of your %s!");
killer_format = KILLED_BY;
killer = "male childbirth";
done(DIED);
}
mksobj_at(PLACENTA, u.ux, u.uy, FALSE, FALSE);
pline("BABIES!"); /* TODO */
stop_occupation();
break;
}
}
}
run_timers();
}
/*
* 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);
}
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);
}
/*
* 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;
}
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;
}
/*
* mhitu: monster hits you
* returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
*/
bool
mhitu(struct monst *mtmp)
{
struct permonst *mdat = mtmp->data;
int tmp, ctmp;
nomul(0);
/* If swallowed, can only be affected by hissers and by u.ustuck */
if (u.uswallow) {
if (mtmp != u.ustuck) {
if (mdat->mlet == 'c' && !rn2(13)) {
pline("Outside, you hear %s's hissing!",
monnam(mtmp));
pline("%s gets turned to stone!",
Monnam(u.ustuck));
pline("And the same fate befalls you.");
done_in_by(mtmp);
/* "notreached": not return(1); */
}
return (0);
}
switch (mdat->mlet) { /* now mtmp == u.ustuck */
case ',':
youswld(mtmp, (u.uac > 0) ? u.uac + 4 : 4,
5, "The trapper");
break;
case '\'':
youswld(mtmp, rnd(6), 7, "The lurker above");
break;
case 'P':
youswld(mtmp, d(2, 4), 12, "The purple worm");
break;
default:
/* This is not impossible! */
pline("The mysterious monster totally digests you.");
u.uhp = 0;
}
if (u.uhp < 1)
done_in_by(mtmp);
return (0);
}
if (mdat->mlet == 'c' && Stoned)
return (0);
/* make eels visible the moment they hit/miss us */
if (mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx, mtmp->my)) {
mtmp->minvis = 0;
pmon(mtmp);
}
if (!strchr("1&DuxynNF", mdat->mlet))
tmp = hitu(mtmp, d(mdat->damn, mdat->damd));
else
tmp = 0;
if (strchr(UNDEAD, mdat->mlet) && midnight())
tmp += hitu(mtmp, d(mdat->damn, mdat->damd));
ctmp = tmp && !mtmp->mcan &&
(!uarm || objects[uarm->otyp].a_can < rnd(3) || !rn2(50));
switch (mdat->mlet) {
case '1':
if (wiz_hit(mtmp)) /* he disappeared */
return (1);
break;
case '&':
if (!mtmp->cham && !mtmp->mcan && !rn2(13)) {
makemon(PM_DEMON, u.ux, u.uy);
} else {
hitu(mtmp, d(2, 6));
hitu(mtmp, d(2, 6));
hitu(mtmp, rnd(3));
hitu(mtmp, rnd(3));
hitu(mtmp, rn1(4, 2));
}
break;
case ',':
if (tmp)
justswld(mtmp, "The trapper");
break;
case '\'':
if (tmp)
justswld(mtmp, "The lurker above");
break;
case ';':
if (ctmp) {
if (!u.ustuck && !rn2(10)) {
pline("%s swings itself around you!",
Monnam(mtmp));
u.ustuck = mtmp;
} else if (u.ustuck == mtmp &&
levl[mtmp->mx][mtmp->my].typ == POOL) {
pline("%s drowns you ...", Monnam(mtmp));
done("drowned");
}
}
break;
case 'A':
if (ctmp && rn2(2)) {
if (Poison_resistance)
pline("The sting doesn't seem to affect you.");
else {
pline("You feel weaker!");
losestr(1);
}
}
break;
case 'C':
hitu(mtmp, rnd(6));
break;
case 'c':
if (!rn2(5)) {
pline("You hear %s's hissing!", monnam(mtmp));
if (ctmp || !rn2(20) || (flags.moonphase == NEW_MOON
&& !carrying(DEAD_LIZARD)))
Stoned = 5;
}
break;
case 'D':
if (rn2(6) || mtmp->mcan) {
hitu(mtmp, d(3, 10));
hitu(mtmp, rnd(8));
hitu(mtmp, rnd(8));
break;
}
kludge("%s breathes fire!", "The dragon");
buzz(-1, mtmp->mx, mtmp->my, u.ux - mtmp->mx, u.uy - mtmp->my);
break;
case 'd':
hitu(mtmp, d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
break;
case 'e':
hitu(mtmp, d(3, 6));
break;
case 'F':
if (mtmp->mcan)
break;
kludge("%s explodes!", "The freezing sphere");
if (Cold_resistance)
pline("You don't seem affected by it.");
else {
xchar dn;
if (17 - (u.ulevel / 2) > rnd(20)) {
pline("You get blasted!");
dn = 6;
} else {
pline("You duck the blast...");
dn = 3;
}
losehp_m(d(dn, 6), mtmp);
}
mondead(mtmp);
return (1);
case 'g':
if (ctmp && multi >= 0 && !rn2(3)) {
kludge("You are frozen by %ss juices", "the cube'");
nomul(-rnd(10));
}
break;
case 'h':
if (ctmp && multi >= 0 && !rn2(5)) {
nomul(-rnd(10));
kludge("You are put to sleep by %ss bite!",
"the homunculus'");
}
break;
case 'j':
tmp = hitu(mtmp, rnd(3));
tmp &= hitu(mtmp, rnd(3));
if (tmp) {
hitu(mtmp, rnd(4));
hitu(mtmp, rnd(4));
}
break;
case 'k':
if ((hitu(mtmp, rnd(4)) || !rn2(3)) && ctmp)
poisoned("bee's sting", mdat->mname);
break;
case 'L':
if (tmp)
stealgold(mtmp);
break;
case 'N':
if (mtmp->mcan && !Blind) {
pline("%s tries to seduce you, but you seem not interested.",
Amonnam(mtmp, "plain"));
if (rn2(3))
rloc(mtmp);
} else if (steal(mtmp)) {
rloc(mtmp);
mtmp->mflee = 1;
}
break;
case 'n':
if (!uwep && !uarm && !uarmh && !uarms && !uarmg) {
pline("%s hits! (I hope you don't mind)",
Monnam(mtmp));
u.uhp += rnd(7);
if (!rn2(7))
u.uhpmax++;
if (u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
flags.botl = 1;
if (!rn2(50))
rloc(mtmp);
} else {
hitu(mtmp, d(2, 6));
hitu(mtmp, d(2, 6));
}
break;
case 'o':
tmp = hitu(mtmp, rnd(6));
if (hitu(mtmp, rnd(6)) && tmp && /* hits with both paws */
!u.ustuck && rn2(2)) {
u.ustuck = mtmp;
kludge("%s has grabbed you!", "The owlbear");
u.uhp -= d(2, 8);
} else if (u.ustuck == mtmp) {
u.uhp -= d(2, 8);
pline("You are being crushed.");
}
break;
case 'P':
if (ctmp && !rn2(4))
justswld(mtmp, "The purple worm");
else
hitu(mtmp, d(2, 4));
break;
case 'Q':
hitu(mtmp, rnd(2));
hitu(mtmp, rnd(2));
break;
case 'R':
if (tmp && uarmh && !uarmh->rustfree &&
(int)uarmh->spe >= -1) {
pline("Your helmet rusts!");
uarmh->spe--;
} else if (ctmp && uarm && !uarm->rustfree && /* Mike Newton */
uarm->otyp < STUDDED_LEATHER_ARMOR &&
(int)uarm->spe >= -1) {
pline("Your armor rusts!");
uarm->spe--;
}
break;
case 'S':
if (ctmp && !rn2(8))
poisoned("snake's bite", mdat->mname);
break;
case 's':
if (tmp && !rn2(8))
poisoned("scorpion's sting", mdat->mname);
hitu(mtmp, rnd(8));
hitu(mtmp, rnd(8));
break;
case 'T':
hitu(mtmp, rnd(6));
hitu(mtmp, rnd(6));
break;
case 't':
if (!rn2(5))
rloc(mtmp);
break;
case 'u':
mtmp->mflee = 1;
break;
case 'U':
hitu(mtmp, d(3, 4));
hitu(mtmp, d(3, 4));
break;
case 'v':
if (ctmp && !u.ustuck)
u.ustuck = mtmp;
break;
case 'V':
if (tmp)
u.uhp -= 4;
if (ctmp)
losexp();
break;
case 'W':
if (ctmp)
losexp();
break;
#ifndef NOWORM
case 'w':
if (tmp)
wormhit(mtmp);
#endif /* NOWORM */
break;
case 'X':
hitu(mtmp, rnd(5));
hitu(mtmp, rnd(5));
hitu(mtmp, rnd(5));
break;
case 'x':
{
long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
pline("%s pricks in your %s leg!",
Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left");
set_wounded_legs(side, rnd(50));
losehp_m(2, mtmp);
break;
}
case 'y':
if (mtmp->mcan)
break;
mondead(mtmp);
if (!Blind) {
pline("You are blinded by a blast of light!");
Blind = d(4, 12);
seeoff(0);
}
return (1);
case 'Y':
hitu(mtmp, rnd(6));
break;
}
if (u.uhp < 1)
done_in_by(mtmp);
return (0);
}
