void
done_in_by(struct monst *mtmp, const char *override_msg)
{
pline(msgc_fatal_predone, "You die...");
if (mtmp->data->mlet == S_WRAITH && !noncorporeal(mtmp->data))
u.ugrave_arise = PM_WRAITH;
else if (mtmp->data->mlet == S_MUMMY && urace.mummynum != NON_PM)
u.ugrave_arise = urace.mummynum;
else if (mtmp->data->mlet == S_VAMPIRE && Race_if(PM_HUMAN))
u.ugrave_arise = PM_VAMPIRE;
else if (mtmp->data == &mons[PM_GHOUL])
u.ugrave_arise = PM_GHOUL;
if (u.ugrave_arise >= LOW_PM && (mvitals[u.ugrave_arise].mvflags & G_GENOD))
u.ugrave_arise = NON_PM;
if (touch_petrifies(mtmp->data)) {
done(STONING, override_msg ? override_msg :
killer_msg_mon(STONING, mtmp));
} else {
done(DIED, override_msg ? override_msg : killer_msg_mon(DIED, mtmp));
}
return;
}
/* Use u.umonster since we might be restoring and you may be polymorphed */
void
init_uasmon()
{
int i;
upermonst = mons[u.umonster];
/* Fix up the flags */
/* Default flags assume human, so replace with your race's flags */
upermonst.mflags1 &= ~(mons[PM_HUMAN].mflags1);
upermonst.mflags1 |= (mons[urace.malenum].mflags1);
upermonst.mflags2 &= ~(mons[PM_HUMAN].mflags2);
upermonst.mflags2 |= (mons[urace.malenum].mflags2);
upermonst.mflags3 &= ~(mons[PM_HUMAN].mflags3);
upermonst.mflags3 |= (mons[urace.malenum].mflags3);
/* Fix up the attacks */
/* crude workaround, needs better general solution */
if (Race_if(PM_VAMPIRE)) {
for(i = 0; i < NATTK; i++) {
upermonst.mattk[i] = mons[urace.malenum].mattk[i];
}
}
set_uasmon();
}
/*
* creature (usually player) tries to touch (pick up or wield) an artifact obj.
* Returns 0 if the object refuses to be touched.
* This routine does not change any object chains.
* Ignores such things as gauntlets, assuming the artifact is not
* fooled by such trappings.
*/
int touch_artifact(struct obj *obj, struct monst *mon)
{
const struct artifact *oart = get_artifact(obj);
boolean badclass, badalign, self_willed, yours;
if (!oart) return 1;
yours = (mon == &youmonst);
/* all quest artifacts are self-willed; it this ever changes, `badclass'
will have to be extended to explicitly include quest artifacts */
self_willed = ((oart->spfx & SPFX_INTEL) != 0);
if (yours) {
badclass = self_willed &&
((oart->role != NON_PM && !Role_if (oart->role)) ||
(oart->race != NON_PM && !Race_if (oart->race)));
badalign = (oart->spfx & SPFX_RESTR) && oart->alignment != A_NONE &&
(oart->alignment != u.ualign.type || u.ualign.record < 0);
} else if (!is_covetous(mon->data) && !is_mplayer(mon->data)) {
badclass = self_willed &&
oart->role != NON_PM && oart != &artilist[ART_EXCALIBUR];
badalign = (oart->spfx & SPFX_RESTR) && oart->alignment != A_NONE &&
(oart->alignment != sgn(mon->data->maligntyp));
} else { /* an M3_WANTSxxx monster or a fake player */
/* special monsters trying to take the Amulet, invocation tools or
quest item can touch anything except for `spec_applies' artifacts */
badclass = badalign = FALSE;
}
/* weapons which attack specific categories of monsters are
bad for them even if their alignments happen to match */
if (!badalign && (oart->spfx & SPFX_DBONUS) != 0) {
struct artifact tmp;
tmp = *oart;
tmp.spfx &= SPFX_DBONUS;
badalign = !!spec_applies(&tmp, mon);
}
if (((badclass || badalign) && self_willed) ||
(badalign && (!yours || !rn2(4)))) {
int dmg;
char buf[BUFSZ];
if (!yours) return 0;
pline("You are blasted by %s power!", s_suffix(the(xname(obj))));
dmg = dice((Antimagic ? 2 : 4), (self_willed ? 10 : 4));
sprintf(buf, "touching %s", oart->name);
losehp(dmg, buf, KILLED_BY);
exercise(A_WIS, FALSE);
}
/* can pick it up unless you're totally non-synch'd with the artifact */
if (badclass && badalign && self_willed) {
if (yours) pline("%s your grasp!", Tobjnam(obj, "evade"));
return 0;
}
return 1;
}
static int domonnoise(struct monst *mtmp)
{
const char *pline_msg = 0, /* Monnam(mtmp) will be prepended */
*verbl_msg = 0; /* verbalize() */
const struct permonst *ptr = mtmp->data;
char verbuf[BUFSZ];
/* presumably nearness and sleep checks have already been made */
if (!flags.soundok) return 0;
if (is_silent(ptr)) return 0;
/* Make sure its your role's quest quardian; adjust if not */
if (ptr->msound == MS_GUARDIAN && ptr != &pm_guardian) {
int mndx = monsndx(ptr);
ptr = &mons[genus(mndx,1)];
}
/* be sure to do this before talking; the monster might teleport away, in
* which case we want to check its pre-teleport position
*/
if (!canspotmon(level, mtmp))
map_invisible(mtmp->mx, mtmp->my);
switch (ptr->msound) {
case MS_ORACLE:
return doconsult(mtmp);
case MS_PRIEST:
priest_talk(mtmp);
break;
case MS_LEADER:
case MS_NEMESIS:
case MS_GUARDIAN:
quest_chat(mtmp);
break;
case MS_SELL: /* pitch, pay, total */
shk_chat(mtmp);
break;
case MS_VAMPIRE:
{
/* vampire messages are varied by tameness, peacefulness, and time of night */
boolean isnight = night();
boolean kindred = maybe_polyd(u.umonnum == PM_VAMPIRE ||
u.umonnum == PM_VAMPIRE_LORD,
Race_if(PM_VAMPIRE));
boolean nightchild = (Upolyd && (u.umonnum == PM_WOLF ||
u.umonnum == PM_WINTER_WOLF ||
u.umonnum == PM_WINTER_WOLF_CUB));
const char *racenoun = (flags.female && urace.individual.f) ?
urace.individual.f : (urace.individual.m) ?
urace.individual.m : urace.noun;
if (mtmp->mtame) {
if (kindred) {
sprintf(verbuf, "Good %s to you Master%s",
isnight ? "evening" : "day",
isnight ? "!" : ". Why do we not rest?");
verbl_msg = verbuf;
} else {
sprintf(verbuf,"%s%s",
nightchild ? "Child of the night, " : "",
midnight() ?
"I can stand this craving no longer!" :
isnight ?
"I beg you, help me satisfy this growing craving!" :
"I find myself growing a little weary.");
verbl_msg = verbuf;
}
} else if (mtmp->mpeaceful) {
if (kindred && isnight) {
sprintf(verbuf, "Good feeding %s!",
flags.female ? "sister" : "brother");
verbl_msg = verbuf;
} else if (nightchild && isnight) {
sprintf(verbuf,
"How nice to hear you, child of the night!");
verbl_msg = verbuf;
} else
verbl_msg = "I only drink... potions.";
} else {
int vampindex;
static const char * const vampmsg[] = {
/* These first two (0 and 1) are specially handled below */
"I vant to suck your %s!",
"I vill come after %s without regret!",
/* other famous vampire quotes can follow here if desired */
};
if (kindred)
verbl_msg = "This is my hunting ground that you dare to prowl!";
else if (youmonst.data == &mons[PM_SILVER_DRAGON] ||
youmonst.data == &mons[PM_BABY_SILVER_DRAGON]) {
/* Silver dragons are silver in color, not made of silver */
sprintf(verbuf, "%s! Your silver sheen does not frighten me!",
youmonst.data == &mons[PM_SILVER_DRAGON] ?
"Fool" : "Young Fool");
verbl_msg = verbuf;
} else {
vampindex = rn2(SIZE(vampmsg));
if (vampindex == 0) {
sprintf(verbuf, vampmsg[vampindex], body_part(BLOOD));
verbl_msg = verbuf;
} else if (vampindex == 1) {
sprintf(verbuf, vampmsg[vampindex],
Upolyd ? an(mons_mname(&mons[u.umonnum])) : an(racenoun));
verbl_msg = verbuf;
} else
verbl_msg = vampmsg[vampindex];
}
}
}
break;
case MS_WERE:
if (flags.moonphase == FULL_MOON && (night() ^ !rn2(13))) {
pline("%s throws back %s head and lets out a blood curdling %s!",
Monnam(mtmp), mhis(level, mtmp),
ptr == &mons[PM_HUMAN_WERERAT] ? "shriek" : "howl");
wake_nearto(mtmp->mx, mtmp->my, 11*11);
} else
pline_msg =
"whispers inaudibly. All you can make out is \"moon\".";
break;
case MS_BARK:
if (flags.moonphase == FULL_MOON && night()) {
pline_msg = "howls.";
} else if (mtmp->mpeaceful) {
if (mtmp->mtame &&
(mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
moves > EDOG(mtmp)->hungrytime || mtmp->mtame < 5))
pline_msg = "whines.";
else if (mtmp->mtame && EDOG(mtmp)->hungrytime > moves + 1000)
pline_msg = "yips.";
else {
if (mtmp->data != &mons[PM_DINGO]) /* dingos do not actually bark */
pline_msg = "barks.";
}
} else {
pline_msg = "growls.";
}
break;
case MS_MEW:
if (mtmp->mtame) {
if (mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
mtmp->mtame < 5)
pline_msg = "yowls.";
else if (moves > EDOG(mtmp)->hungrytime)
pline_msg = "meows.";
else if (EDOG(mtmp)->hungrytime > moves + 1000)
pline_msg = "purrs.";
else
pline_msg = "mews.";
break;
} /* else FALLTHRU */
case MS_GROWL:
if (mtmp->mtame &&
(mtmp->data == &mons[PM_MONKEY] ||
mtmp->data == &mons[PM_APE] ||
mtmp->data == &mons[PM_CARNIVOROUS_APE])) {
if (mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
moves > EDOG(mtmp)->hungrytime || mtmp->mtame < 5) {
pline_msg = "shrieks.";
wake_nearto(mtmp->mx, mtmp->my, 8*8);
} else if (EDOG(mtmp)->hungrytime > moves + 1000) {
pline_msg = "chatters.";
} else {
pline_msg = "hoots.";
}
} else {
pline_msg = mtmp->mpeaceful ? "snarls." : "growls!";
}
break;
case MS_ROAR:
pline_msg = mtmp->mpeaceful ? "snarls." : "roars!";
break;
case MS_SQEEK:
pline_msg = "squeaks.";
break;
case MS_SQAWK:
if (ptr == &mons[PM_RAVEN] && !mtmp->mpeaceful)
verbl_msg = "Nevermore!";
else
pline_msg = "squawks.";
break;
case MS_HISS:
if (!mtmp->mpeaceful)
pline_msg = "hisses!";
else return 0; /* no sound */
break;
case MS_BUZZ:
pline_msg = mtmp->mpeaceful ? "drones." : "buzzes angrily.";
break;
case MS_GRUNT:
pline_msg = "grunts.";
break;
case MS_NEIGH:
if (mtmp->mtame < 5)
pline_msg = "neighs.";
else if (moves > EDOG(mtmp)->hungrytime)
pline_msg = "whinnies.";
else
pline_msg = "whickers.";
break;
case MS_WAIL:
pline_msg = "wails mournfully.";
break;
case MS_GURGLE:
pline_msg = "gurgles.";
break;
case MS_BURBLE:
pline_msg = "burbles.";
break;
case MS_SHRIEK:
pline_msg = "shrieks.";
aggravate();
break;
case MS_IMITATE:
pline_msg = "imitates you.";
break;
case MS_BONES:
pline("%s rattles noisily.", Monnam(mtmp));
pline("You freeze for a moment.");
nomul(-2, "scared by rattling");
break;
case MS_LAUGH:
{
static const char * const laugh_msg[4] = {
"giggles.", "chuckles.", "snickers.", "laughs.",
};
pline_msg = laugh_msg[rn2(4)];
}
break;
case MS_MUMBLE:
pline_msg = "mumbles incomprehensibly.";
break;
case MS_DJINNI:
if (mtmp->mtame) {
verbl_msg = "Sorry, I'm all out of wishes.";
} else if (mtmp->mpeaceful) {
if (ptr == &mons[PM_WATER_DEMON])
pline_msg = "gurgles.";
else
verbl_msg = "I'm free!";
} else verbl_msg = "This will teach you not to disturb me!";
break;
case MS_BOAST: /* giants */
if (!mtmp->mpeaceful) {
switch (rn2(4)) {
case 0: pline("%s boasts about %s gem collection.",
Monnam(mtmp), mhis(level, mtmp));
break;
case 1: pline_msg = "complains about a diet of mutton.";
break;
default: pline_msg = "shouts \"Fee Fie Foe Foo!\" and guffaws.";
wake_nearto(mtmp->mx, mtmp->my, 7*7);
break;
}
break;
}
/* else FALLTHRU */
case MS_HUMANOID:
if (!mtmp->mpeaceful) {
if (In_endgame(&u.uz) && is_mplayer(ptr)) {
mplayer_talk(mtmp);
break;
} else return 0; /* no sound */
}
/* Generic peaceful humanoid behaviour. */
if (mtmp->mflee)
pline_msg = "wants nothing to do with you.";
else if (mtmp->mhp < mtmp->mhpmax/4)
pline_msg = "moans.";
else if (mtmp->mconf || mtmp->mstun)
verbl_msg = !rn2(3) ? "Huh?" : rn2(2) ? "What?" : "Eh?";
else if (!mtmp->mcansee)
verbl_msg = "I can't see!";
else if (mtmp->mtrapped) {
struct trap *t = t_at(level, mtmp->mx, mtmp->my);
if (t) t->tseen = 1;
verbl_msg = "I'm trapped!";
} else if (mtmp->mhp < mtmp->mhpmax/2)
pline_msg = "asks for a potion of healing.";
else if (mtmp->mtame && !mtmp->isminion &&
moves > EDOG(mtmp)->hungrytime)
verbl_msg = "I'm hungry.";
/* Specific monsters' interests */
else if (is_elf(ptr))
pline_msg = "curses orcs.";
else if (is_dwarf(ptr))
pline_msg = "talks about mining.";
else if (likes_magic(ptr))
pline_msg = "talks about spellcraft.";
else if (ptr->mlet == S_CENTAUR)
pline_msg = "discusses hunting.";
else switch (monsndx(ptr)) {
case PM_HOBBIT:
pline_msg = (mtmp->mhpmax - mtmp->mhp >= 10) ?
"complains about unpleasant dungeon conditions."
: "asks you about the One Ring.";
break;
case PM_ARCHEOLOGIST:
pline_msg = "describes a recent article in \"Spelunker Today\" magazine.";
break;
case PM_TOURIST:
verbl_msg = "Aloha.";
break;
default:
pline_msg = "discusses dungeon exploration.";
break;
}
break;
case MS_SEDUCE:
if (ptr->mlet != S_NYMPH && flags.seduce_enabled &&
could_seduce(mtmp, &youmonst, NULL) == 1) {
doseduce(mtmp);
break;
}
switch ((poly_gender() != (int) mtmp->female) ? rn2(3) : 0)
{
case 2:
verbl_msg = "Hello, sailor.";
break;
case 1:
pline_msg = "comes on to you.";
break;
default:
pline_msg = "cajoles you.";
}
break;
case MS_ARREST:
if (mtmp->mpeaceful)
verbalize("Just the facts, %s.",
flags.female ? "Ma'am" : "Sir");
else {
static const char * const arrest_msg[3] = {
"Anything you say can be used against you.",
"You're under arrest!",
"Stop in the name of the Law!",
};
verbl_msg = arrest_msg[rn2(3)];
}
break;
case MS_BRIBE:
if (monsndx(ptr) == PM_PRISON_GUARD) {
long gdemand = 500 * u.ulevel;
long goffer = 0;
if (!mtmp->mpeaceful && !mtmp->mtame) {
pline("%s demands %ld %s to avoid re-arrest.",
Amonnam(mtmp), gdemand, currency(gdemand));
if ((goffer = bribe(mtmp)) >= gdemand) {
verbl_msg = "Good. Now beat it, scum!";
mtmp->mpeaceful = 1;
set_malign(mtmp);
} else {
verbalize("I said %ld!", gdemand);
mtmp->mspec_used = 1000;
}
} else {
verbl_msg = "Out of my way, scum!"; /* still a jerk */
}
break;
} else if (mtmp->mpeaceful && !mtmp->mtame) {
demon_talk(mtmp);
break;
}
/* fall through */
case MS_CUSS:
if (!mtmp->mpeaceful)
cuss(mtmp);
break;
case MS_SPELL:
/* deliberately vague, since it's not actually casting any spell */
pline_msg = "seems to mutter a cantrip.";
break;
case MS_NURSE:
if (uwep && (uwep->oclass == WEAPON_CLASS || is_weptool(uwep)))
verbl_msg = "Put that weapon away before you hurt someone!";
else if (uarmc || uarm || uarmh || uarms || uarmg || uarmf)
verbl_msg = Role_if (PM_HEALER) ?
"Doc, I can't help you unless you cooperate." :
"Please undress so I can examine you.";
else if (uarmu)
verbl_msg = "Take off your shirt, please.";
else
verbl_msg = "Relax, this won't hurt a bit.";
break;
case MS_GUARD:
if (money_cnt(invent))
verbl_msg = "Please drop that gold and follow me.";
else
verbl_msg = "Please follow me.";
break;
case MS_SOLDIER:
{
static const char * const soldier_foe_msg[3] = {
"Resistance is useless!",
"You're dog meat!",
"Surrender!",
}, * const soldier_pax_msg[3] = {
"What lousy pay we're getting here!",
"The food's not fit for Orcs!",
"My feet hurt, I've been on them all day!",
};
verbl_msg = mtmp->mpeaceful ? soldier_pax_msg[rn2(3)]
: soldier_foe_msg[rn2(3)];
}
break;
case MS_RIDER:
if (ptr == &mons[PM_DEATH] && !rn2(10))
pline_msg = "is busy reading a copy of Sandman #8.";
else
verbl_msg = (ptr == &mons[PM_DEATH]) ?
"WHO DO YOU THINK YOU ARE, WAR?" :
"Who do you think you are, War?";
break;
}
if (pline_msg) pline("%s %s", Monnam(mtmp), pline_msg);
else if (verbl_msg) verbalize(verbl_msg);
return 1;
}
/* quick: use cursor && don't search for "more info" */
static int do_look (bool quick) {
char out_str[BUFSZ], look_buf[BUFSZ];
const char *x_str, *firstmatch = 0;
struct permonst *pm = 0;
int i, ans = 0;
int sym; /* typed symbol or converted glyph */
int found; /* count of matching syms found */
coord cc; /* screen pos of unknown glyph */
bool save_verbose; /* saved value of flags.verbose */
bool from_screen; /* question from the screen */
bool need_to_look; /* need to get explan. from glyph */
bool hit_trap; /* true if found trap explanation */
int skipped_venom; /* non-zero if we ignored "splash of venom" */
static const char *mon_interior = "the interior of a monster";
if (quick) {
from_screen = true; /* yes, we want to use the cursor */
} else {
i = ynq("Specify unknown object by cursor?");
if (i == 'q') return 0;
from_screen = (i == 'y');
}
if (from_screen) {
cc.x = u.ux;
cc.y = u.uy;
sym = 0; /* gcc -Wall lint */
} else {
getlin("Specify what? (type the word)", out_str);
if (out_str[0] == '\0' || out_str[0] == '\033')
return 0;
if (out_str[1]) { /* user typed in a complete string */
checkfile(out_str, pm, true, true);
return 0;
}
sym = out_str[0];
}
/* Save the verbose flag, we change it later. */
save_verbose = flags.verbose;
flags.verbose = flags.verbose && !quick;
/*
* The user typed one letter, or we're identifying from the screen.
*/
do {
/* Reset some variables. */
need_to_look = false;
pm = (struct permonst *)0;
skipped_venom = 0;
found = 0;
out_str[0] = '\0';
if (from_screen) {
int glyph; /* glyph at selected position */
if (flags.verbose)
pline("Please move the cursor to %s.",
what_is_an_unknown_object);
else
pline("Pick an object.");
ans = getpos(&cc, quick, what_is_an_unknown_object);
if (ans < 0 || cc.x < 0) {
flags.verbose = save_verbose;
return 0; /* done */
}
flags.verbose = false; /* only print long question once */
/* Convert the glyph at the selected position to a symbol. */
glyph = glyph_at(cc.x,cc.y);
if (glyph_is_cmap(glyph)) {
sym = showsyms[glyph_to_cmap(glyph)];
} else if (glyph_is_trap(glyph)) {
sym = showsyms[trap_to_defsym(glyph_to_trap(glyph))];
} else if (glyph_is_object(glyph)) {
sym = oc_syms[(int)objects[glyph_to_obj(glyph)].oc_class];
if (sym == '`' && iflags.bouldersym && (int)glyph_to_obj(glyph) == BOULDER)
sym = iflags.bouldersym;
} else if (glyph_is_monster(glyph)) {
/* takes care of pets, detected, ridden, and regular mons */
sym = monsyms[(int)mons[glyph_to_mon(glyph)].mlet];
} else if (glyph_is_swallow(glyph)) {
sym = showsyms[glyph_to_swallow(glyph)+S_sw_tl];
} else if (glyph_is_invisible(glyph)) {
sym = DEF_INVISIBLE;
} else if (glyph_is_warning(glyph)) {
sym = glyph_to_warning(glyph);
sym = warnsyms[sym];
} else {
impossible("do_look: bad glyph %d at (%d,%d)",
glyph, (int)cc.x, (int)cc.y);
sym = ' ';
}
}
/*
* Check all the possibilities, saving all explanations in a buffer.
* When all have been checked then the string is printed.
*/
/* Check for monsters */
for (i = 0; i < MAXMCLASSES; i++) {
if (sym == (from_screen ? monsyms[i] : def_monsyms[i]) &&
monexplain[i]) {
need_to_look = true;
if (!found) {
sprintf(out_str, "%c %s", sym, an(monexplain[i]));
firstmatch = monexplain[i];
found++;
} else {
found += append_str(out_str, an(monexplain[i]));
}
}
}
/* handle '@' as a special case if it refers to you and you're
playing a character which isn't normally displayed by that
symbol; firstmatch is assumed to already be set for '@' */
if ((from_screen ?
(sym == monsyms[S_HUMAN] && cc.x == u.ux && cc.y == u.uy) :
(sym == def_monsyms[S_HUMAN] && !iflags.showrace)) &&
!(Race_if(PM_HUMAN) || Race_if(PM_ELF)) && !Upolyd)
found += append_str(out_str, "you"); /* tack on "or you" */
/*
* Special case: if identifying from the screen, and we're swallowed,
* and looking at something other than our own symbol, then just say
* "the interior of a monster".
*/
if (u.uswallow && from_screen && is_swallow_sym(sym)) {
if (!found) {
sprintf(out_str, "%c %s", sym, mon_interior);
firstmatch = mon_interior;
} else {
found += append_str(out_str, mon_interior);
}
need_to_look = true;
}
/* Now check for objects */
for (i = 1; i < MAXOCLASSES; i++) {
if (sym == (from_screen ? oc_syms[i] : def_oc_syms[i])) {
need_to_look = true;
if (from_screen && i == VENOM_CLASS) {
skipped_venom++;
continue;
}
if (!found) {
sprintf(out_str, "%c %s", sym, an(objexplain[i]));
firstmatch = objexplain[i];
found++;
} else {
found += append_str(out_str, an(objexplain[i]));
}
}
}
if (sym == DEF_INVISIBLE) {
if (!found) {
sprintf(out_str, "%c %s", sym, an(invisexplain));
firstmatch = invisexplain;
found++;
} else {
found += append_str(out_str, an(invisexplain));
}
}
#define is_cmap_trap(i) ((i) >= S_arrow_trap && (i) <= S_polymorph_trap)
#define is_cmap_drawbridge(i) ((i) >= S_vodbridge && (i) <= S_hcdbridge)
/* Now check for graphics symbols */
for (hit_trap = false, i = 0; i < MAXPCHARS; i++) {
x_str = defsyms[i].explanation;
if (sym == (from_screen ? showsyms[i] : defsyms[i].sym) && *x_str) {
/* avoid "an air", "a water", or "a floor of a room" */
int article = (i == S_room) ? 2 : /* 2=>"the" */
!(strcmp(x_str, "air") == 0 || /* 1=>"an" */
strcmp(x_str, "water") == 0); /* 0=>(none)*/
if (!found) {
if (is_cmap_trap(i)) {
sprintf(out_str, "%c a trap", sym);
hit_trap = true;
} else {
sprintf(out_str, "%c %s", sym,
article == 2 ? the(x_str) :
article == 1 ? an(x_str) : x_str);
}
firstmatch = x_str;
found++;
} else if (!u.uswallow && !(hit_trap && is_cmap_trap(i)) &&
!(found >= 3 && is_cmap_drawbridge(i))) {
found += append_str(out_str,
article == 2 ? the(x_str) :
article == 1 ? an(x_str) : x_str);
if (is_cmap_trap(i)) hit_trap = true;
}
if (i == S_altar || is_cmap_trap(i))
need_to_look = true;
}
}
/* Now check for warning symbols */
for (i = 1; i < WARNCOUNT; i++) {
x_str = def_warnsyms[i].explanation;
if (sym == (from_screen ? warnsyms[i] : def_warnsyms[i].sym)) {
if (!found) {
sprintf(out_str, "%c %s",
sym, def_warnsyms[i].explanation);
firstmatch = def_warnsyms[i].explanation;
found++;
} else {
found += append_str(out_str, def_warnsyms[i].explanation);
}
/* Kludge: warning trumps boulders on the display.
Reveal the boulder too or player can get confused */
if (from_screen && sobj_at(BOULDER, cc.x, cc.y))
strcat(out_str, " co-located with a boulder");
break; /* out of for loop*/
}
}
/* if we ignored venom and list turned out to be short, put it back */
if (skipped_venom && found < 2) {
x_str = objexplain[VENOM_CLASS];
if (!found) {
sprintf(out_str, "%c %s", sym, an(x_str));
firstmatch = x_str;
found++;
} else {
found += append_str(out_str, an(x_str));
}
}
/* handle optional boulder symbol as a special case */
if (iflags.bouldersym && sym == iflags.bouldersym) {
if (!found) {
firstmatch = "boulder";
sprintf(out_str, "%c %s", sym, an(firstmatch));
found++;
} else {
found += append_str(out_str, "boulder");
}
}
/*
* If we are looking at the screen, follow multiple possibilities or
* an ambiguous explanation by something more detailed.
*/
if (from_screen) {
if (found > 1 || need_to_look) {
char monbuf[BUFSZ];
char temp_buf[BUFSZ];
pm = lookat(cc.x, cc.y, look_buf, monbuf);
firstmatch = look_buf;
if (*firstmatch) {
sprintf(temp_buf, " (%s)", firstmatch);
(void)strncat(out_str, temp_buf, BUFSZ-strlen(out_str)-1);
found = 1; /* we have something to look up */
}
if (monbuf[0]) {
sprintf(temp_buf, " [seen: %s]", monbuf);
(void)strncat(out_str, temp_buf, BUFSZ-strlen(out_str)-1);
}
}
}
/* Finally, print out our explanation. */
if (found) {
pline("%s", out_str);
/* check the data file for information about this thing */
if (found == 1 && ans != LOOK_QUICK && ans != LOOK_ONCE &&
(ans == LOOK_VERBOSE || (flags.help && !quick))) {
char temp_buf[BUFSZ];
strcpy(temp_buf, firstmatch);
checkfile(temp_buf, pm, false, (bool)(ans == LOOK_VERBOSE));
}
} else {
pline("I've never heard of such things.");
}
} while (from_screen && !quick && ans != LOOK_ONCE);
flags.verbose = save_verbose;
return 0;
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
/* KMH -- February 2 */
flags.groundhogday = groundhog_day();
if (flags.groundhogday)
pline("Happy Groundhog Day!");
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
#ifdef WIZARD
if (wizard) add_debug_extended_commands();
#endif
(void) encumber_msg(); /* in case they auto-picked up something */
if (defer_see_monsters) {
defer_see_monsters = FALSE;
see_monsters();
}
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
for(;;) {
get_nh_event();
#ifdef POSITIONBAR
do_positionbar();
#endif
didmove = flags.move;
if(didmove) {
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
flags.mon_moving = TRUE;
do {
monscanmove = movemon();
if (youmonst.movement > NORMAL_SPEED)
break; /* it's now your turn */
} while (monscanmove);
flags.mon_moving = FALSE;
if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
/* both you and the monsters are out of steam this round */
/* set up for a new turn */
struct monst *mtmp;
mcalcdistress(); /* adjust monsters' trap, blind, etc */
/* reallocate movement rations to monsters */
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
#ifdef STEED
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else
#endif
{
moveamt = youmonst.data->mmove;
if (Very_fast) { /* speed boots or potion */
/* average movement is 1.67 times normal */
moveamt += NORMAL_SPEED / 2;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
} else if (Fast) {
/* average movement is 1.33 times normal */
if (rn2(3) != 0) moveamt += NORMAL_SPEED / 2;
}
if (tech_inuse(T_BLINK)) { /* TECH: Blinking! */
/* Case Average Variance
* -------------------------
* Normal 12 0
* Fast 16 12
* V fast 20 12
* Blinking 24 12
* F & B 28 18
* V F & B 30 18
*/
moveamt += NORMAL_SPEED * 2 / 3;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
}
}
switch (wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt -= (moveamt / 4); break;
case MOD_ENCUMBER: moveamt -= (moveamt / 2); break;
case HVY_ENCUMBER: moveamt -= ((moveamt * 3) / 4); break;
case EXT_ENCUMBER: moveamt -= ((moveamt * 7) / 8); break;
default: break;
}
youmonst.movement += moveamt;
if (youmonst.movement < 0) youmonst.movement = 0;
settrack();
monstermoves++;
moves++;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if(Glib) glibr();
nh_timeout();
run_regions();
#ifdef DUNGEON_GROWTH
dgn_growths(TRUE, TRUE);
#endif
if (u.ublesscnt) u.ublesscnt--;
if(flags.time && !flags.run)
flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
* Another possible result is rehumanization, which requires
* that encumbrance and movement rate be recalculated.
*/
if (u.uinvulnerable) {
/* for the moment at least, you're in tiptop shape */
wtcap = UNENCUMBERED;
} else if (Upolyd && youmonst.data->mlet == S_EEL && !is_pool(u.ux,u.uy) && !Is_waterlevel(&u.uz)) {
if (u.mh > 1) {
u.mh--;
flags.botl = 1;
} else if (u.mh < 1)
rehumanize();
} else if (Upolyd && u.mh < u.mhmax) {
if (u.mh < 1)
rehumanize();
else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else if (u.uhp < u.uhpmax &&
(wtcap < MOD_ENCUMBER || !u.umoved || Regeneration)) {
/*
* KMH, balance patch -- New regeneration code
* Healthstones have been added, which alter your effective
* experience level and constitution (-2 cursed, +1 uncursed,
* +2 blessed) for the basis of regeneration calculations.
*/
int efflev = u.ulevel + u.uhealbonus;
int effcon = ACURR(A_CON) + u.uhealbonus;
int heal = 1;
if (efflev > 9 && !(moves % 3)) {
if (effcon <= 12) {
heal = 1;
} else {
heal = rnd(effcon);
if (heal > efflev-9) heal = efflev-9;
}
flags.botl = 1;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
} else if (Regeneration ||
(efflev <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
flags.botl = 1;
u.uhp++;
}
}
if (!u.uinvulnerable && u.uen > 0 && u.uhp < u.uhpmax &&
tech_inuse(T_CHI_HEALING)) {
u.uen--;
u.uhp++;
flags.botl = 1;
}
/* moving around while encumbered is hard work */
if (wtcap > MOD_ENCUMBER && u.umoved) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if (Upolyd && u.mh > 1) {
u.mh--;
} else if (!Upolyd && u.uhp > 1) {
u.uhp--;
} else {
You("pass out from exertion!");
exercise(A_CON, FALSE);
fall_asleep(-10, FALSE);
}
}
}
/* KMH -- OK to regenerate if you don't move */
if ((u.uen < u.uenmax) && (Energy_regeneration ||
((wtcap < MOD_ENCUMBER || !flags.mv) &&
(!(moves%((MAXULEV + 15 - u.ulevel) *
(Role_if(PM_WIZARD) ? 3 : 4) / 6)))))) {
u.uen += rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1,1);
#ifdef WIZ_PATCH_DEBUG
pline("mana was = %d now = %d",temp,u.uen);
#endif
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
xchar old_ux = u.ux, old_uy = u.uy;
tele();
if (u.ux != old_ux || u.uy != old_uy) {
if (!next_to_u()) {
check_leash(&youmonst, old_ux, old_uy, TRUE);
}
#ifdef REDO
/* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
}
}
long ch = (80 - (40 * night())) / 2 *
(Race_if(PM_HUMAN_WEREWOLF) ?
u.ulevel * u.ulevel :
2);
ch = (ch > LARGEST_INT) ? LARGEST_INT : ch;
/* delayed change may not be valid anymore */
if ((change == 1 && !Polymorph) ||
(change == 2 && u.ulycn == NON_PM))
change = 0;
if(Polymorph && !rn2(100))
change = 1;
else if (u.ulycn >= LOW_PM && !Upolyd &&
!rn2((int)ch))
change = 2;
if (change && !Unchanging) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
} /* !u.uinvulnerable */
if(Searching && multi >= 0) (void) dosearch0(1);
dosounds();
do_storms();
gethungry();
age_spells();
exerchk();
invault();
if (u.uhave.amulet) amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3))) u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
/* vision while buried done here */
else if (u.uburied) under_ground(0);
/* when immobile, count is in turns */
if(multi < 0) {
if (++multi == 0) { /* finished yet? */
unmul((char *)0);
/* if unmul caused a level change, take it now */
if (u.utotype) deferred_goto();
}
}
}
} while (youmonst.movement<NORMAL_SPEED); /* hero can't move loop */
/******************************************/
/* once-per-hero-took-time things go here */
/******************************************/
} /* actual time passed */
/****************************************/
/* once-per-player-input things go here */
/****************************************/
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (Hallucination) { /* update screen randomly */
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#if defined(MICRO) || defined(WIN32)
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#if defined(MICRO) || defined(WIN32)
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#if defined(MICRO) || defined(WIN32)
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if ((u.uhave.amulet || Clairvoyant) &&
!In_endgame(&u.uz) && !BClairvoyant &&
!(moves % 15) && !rn2(2))
do_vicinity_map();
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else if (!u.uinvulnerable) {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and die.");
done(DISSOLVED);
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
#ifdef WIZARD
if (iflags.sanity_check)
sanity_check();
#endif
#ifdef CLIPPING
/* just before rhack */
cliparound(u.ux, u.uy);
#endif
u.umoved = FALSE;
if (multi > 0) {
lookaround();
if (!multi) {
/* lookaround may clear multi */
flags.move = 0;
if (flags.time) flags.botl = 1;
continue;
}
if (flags.mv) {
if(multi < COLNO && !--multi)
flags.travel = iflags.travel1 = flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if (multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack((char *)0);
}
if (u.utotype) /* change dungeon level */
deferred_goto(); /* after rhack() */
/* !flags.move here: multiple movement command stopped */
else if (flags.time && (!flags.move || !flags.mv))
flags.botl = 1;
if (vision_full_recalc) vision_recalc(0); /* vision! */
/* when running in non-tport mode, this gets done through domove() */
if ((!flags.run || iflags.runmode == RUN_TPORT) &&
(multi && (!flags.travel ? !(multi % 7) : !(moves % 7L)))) {
if (flags.time && flags.run) flags.botl = 1;
display_nhwindow(WIN_MAP, FALSE);
}
}
}
