static void
newuhs(bool incr)
{
int newhs, h = u.uhunger;
newhs = (h > 1000) ? SATIATED :
(h > 150) ? NOT_HUNGRY :
(h > 50) ? HUNGRY :
(h > 0) ? WEAK : FAINTING;
if (newhs == FAINTING) {
if (u.uhs == FAINTED)
newhs = FAINTED;
if (u.uhs <= WEAK || rn2(20 - u.uhunger / 10) >= 19) {
if (u.uhs != FAINTED && multi >= 0 /* %% */) {
pline("You faint from lack of food.");
nomul(-10 + (u.uhunger / 10));
nomovemsg = "You regain consciousness.";
afternmv = unfaint;
newhs = FAINTED;
}
} else if (u.uhunger < -(int)(200 + 25 * u.ulevel)) {
u.uhs = STARVED;
flags.botl = 1;
bot();
pline("You die from starvation.");
done("starved");
}
}
if (newhs != u.uhs) {
if (newhs >= WEAK && u.uhs < WEAK)
losestr(1); /* this may kill you -- see below */
else if (newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
losestr(-1);
switch (newhs) {
case HUNGRY:
pline((!incr) ? "You only feel hungry now." :
(u.uhunger < 145) ? "You feel hungry." :
"You are beginning to feel hungry.");
break;
case WEAK:
pline((!incr) ? "You feel weak now." :
(u.uhunger < 45) ? "You feel weak." :
"You are beginning to feel weak.");
break;
}
u.uhs = newhs;
flags.botl = 1;
if (u.uhp < 1) {
pline("You die from hunger and exhaustion.");
killer = "exhaustion";
done("starved");
}
}
}
void poisoned(char *string, char *pname)
{
if(Blind != 0) {
pline("It was poisoned.");
}
else {
pline("The %s was poisoned!", string);
}
if(Poison_resistance != 0) {
pline("The poison doesn't seem to affect you.");
return;
}
switch(rnd(6)) {
case 1:
u.uhp = -1;
break;
case 2:
case 3:
case 4:
losestr(rn1(3, 3));
break;
case 5:
case 6:
losehp(rn1(10, 6), pname);
return;
}
if(u.uhp < 1) {
killer = pname;
}
}
// returns 1 if some text was printed
int eatcorpse(struct obj *otmp)
{
char let = CORPSE_I_TO_C(otmp->otyp);
int tp = 0;
if (let != 'a' && _u.moves > otmp->age + 50 + rn2(100)) {
++tp;
pline("Ulch -- that meat was tainted!");
pline("You get very sick.");
Sick = 10 + rn2(10);
_u.usick_cause = c_Objects[otmp->otyp].oc_name;
} else if (strchr(POISONOUS, let) && rn2(5)) {
++tp;
pline("Ecch -- that must have been poisonous!");
if (!Poison_resistance) {
losestr(rnd(4));
losehp(rnd(15), "poisonous corpse");
} else
pline("You don't seem affected by the poison.");
} else if (strchr("ELNOPQRUuxz", let) && rn2(5)) {
++tp;
pline("You feel sick.");
losehp(rnd(8), "cadaver");
}
switch (let) {
case 'L':
case 'N':
case 't':
Teleportation |= INTRINSIC;
break;
case 'W':
pluslvl();
break;
case 'n':
_u.uhp = _u.uhpmax;
_wflags.botl = 1;
// fallthrough
case '@':
pline("You cannibal! You will be sorry for this!");
// not ++tp;
// fallthrough
case 'd':
Aggravate_monster |= INTRINSIC;
break;
case 'I':
if (!Invis) {
Invis = 50 + rn2(100);
if (!See_invisible)
newsym(_u.ux, _u.uy);
} else {
Invis |= INTRINSIC;
See_invisible |= INTRINSIC;
}
// fallthrough
case 'y':
case 'B':
Confusion = 50;
break;
case 'D':
Fire_resistance |= INTRINSIC;
break;
case 'E':
Telepat |= INTRINSIC;
break;
case 'F':
case 'Y':
Cold_resistance |= INTRINSIC;
break;
case 'k':
case 's':
Poison_resistance |= INTRINSIC;
break;
case 'c':
pline("You turn to stone.");
killer = "dead cockatrice";
done("died");
// NOTREACHED
case 'a':
if (Stoned) {
pline("What a pity - you just destroyed a future piece of art!");
++tp;
Stoned = 0;
}
break;
}
return tp;
}
int
dodrink()
{
struct obj *otmp,*objs;
struct monst *mtmp;
int unkn = 0, nothing = 0;
otmp = getobj("!", "drink");
if(!otmp) return(0);
if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
ghost_from_bottle();
goto use_it;
}
switch(otmp->otyp){
case POT_RESTORE_STRENGTH:
unkn++;
pline("Wow! This makes you feel great!");
if(u.ustr < u.ustrmax) {
u.ustr = u.ustrmax;
flags.botl = 1;
}
break;
case POT_BOOZE:
unkn++;
pline("Ooph! This tastes like liquid fire!");
Confusion += d(3,8);
/* the whiskey makes us feel better */
if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey");
if(!rn2(4)) {
pline("You pass out.");
multi = -rnd(15);
nomovemsg = "You awake with a headache.";
}
break;
case POT_INVISIBILITY:
if(Invis || See_invisible)
nothing++;
else {
if(!Blind)
pline("Gee! All of a sudden, you can't see yourself.");
else
pline("You feel rather airy."), unkn++;
newsym(u.ux,u.uy);
}
Invis += rn1(15,31);
break;
case POT_FRUIT_JUICE:
pline("This tastes like fruit juice.");
lesshungry(20);
break;
case POT_HEALING:
pline("You begin to feel better.");
flags.botl = 1;
u.uhp += rnd(10);
if(u.uhp > u.uhpmax)
u.uhp = ++u.uhpmax;
if(Blind) Blind = 1; /* see on next move */
if(Sick) Sick = 0;
break;
case POT_PARALYSIS:
if(Levitation)
pline("You are motionlessly suspended.");
else
pline("Your feet are frozen to the floor!");
nomul(-(rn1(10,25)));
break;
case POT_MONSTER_DETECTION:
if(!fmon) {
strange_feeling(otmp, "You feel threatened.");
return(1);
} else {
cls();
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if(mtmp->mx > 0)
at(mtmp->mx,mtmp->my,mtmp->data->mlet);
prme();
pline("You sense the presence of monsters.");
more();
docrt();
}
break;
case POT_OBJECT_DETECTION:
if(!fobj) {
strange_feeling(otmp, "You feel a pull downward.");
return(1);
} else {
for(objs = fobj; objs; objs = objs->nobj)
if(objs->ox != u.ux || objs->oy != u.uy)
goto outobjmap;
pline("You sense the presence of objects close nearby.");
break;
outobjmap:
cls();
for(objs = fobj; objs; objs = objs->nobj)
at(objs->ox,objs->oy,objs->olet);
prme();
pline("You sense the presence of objects.");
more();
docrt();
}
break;
case POT_SICKNESS:
pline("Yech! This stuff tastes like poison.");
if(Poison_resistance)
pline("(But in fact it was biologically contaminated orange juice.)");
losestr(rn1(4,3));
losehp(rnd(10), "contaminated potion");
break;
case POT_CONFUSION:
if(!Confusion)
pline("Huh, What? Where am I?");
else
nothing++;
Confusion += rn1(7,16);
break;
case POT_GAIN_STRENGTH:
pline("Wow do you feel strong!");
if(u.ustr >= 118) break; /* > 118 is impossible */
if(u.ustr > 17) u.ustr += rnd(118-u.ustr);
else u.ustr++;
if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
flags.botl = 1;
break;
case POT_SPEED:
if(Wounded_legs) {
heal_legs();
unkn++;
break;
}
if(!(Fast & ~INTRINSIC))
pline("You are suddenly moving much faster.");
else
pline("Your legs get new energy."), unkn++;
Fast += rn1(10,100);
break;
case POT_BLINDNESS:
if(!Blind)
pline("A cloud of darkness falls upon you.");
else
nothing++;
Blind += rn1(100,250);
seeoff(0);
break;
case POT_GAIN_LEVEL:
pluslvl();
break;
case POT_EXTRA_HEALING:
pline("You feel much better.");
flags.botl = 1;
u.uhp += d(2,20)+1;
if(u.uhp > u.uhpmax)
u.uhp = (u.uhpmax += 2);
if(Blind) Blind = 1;
if(Sick) Sick = 0;
break;
case POT_LEVITATION:
if(!Levitation)
float_up();
else
nothing++;
Levitation += rnd(100);
u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down;
break;
default:
impossible("What a funny potion! (%u)", otmp->otyp);
return(0);
}
if(nothing) {
unkn++;
pline("You have a peculiar feeling for a moment, then it passes.");
}
if(otmp->dknown && !objects[otmp->otyp].oc_name_known) {
if(!unkn) {
objects[otmp->otyp].oc_name_known = 1;
more_experienced(0,10);
} else if(!objects[otmp->otyp].oc_uname)
docall(otmp);
}
use_it:
useup(otmp);
return(1);
}
/* TRUE: book should be destroyed by caller */
static boolean
cursed_book(struct obj *bp)
{
int lev = objects[bp->otyp].oc_level;
boolean was_inuse;
switch (rn2(lev)) {
case 0:
pline("You feel a wrenching sensation.");
tele(); /* teleport him */
break;
case 1:
pline("You feel threatened.");
aggravate();
break;
case 2:
make_blinded(Blinded + rn1(100, 250), TRUE);
break;
case 3:
take_gold();
break;
case 4:
pline("These runes were just too much to comprehend.");
make_confused(HConfusion + rn1(7, 16), FALSE);
break;
case 5:
pline("The book was coated with contact poison!");
if (uarmg) {
erode_obj(uarmg, "gloves", ERODE_CORRODE, TRUE, TRUE);
break;
}
/* Temporarily disable in_use; death should not destroy the book.
Paranoia: ensure that we don't turn /on/ in_use, that causes a
desync. (That used to be able to happen via an old codepath, but that
codepath has since been removed. I don't think there are others, but
someone might unintentionally add one.) */
was_inuse = bp->in_use;
bp->in_use = FALSE;
losestr(Poison_resistance ? rn1(2, 1) : rn1(4, 3), DIED,
killer_msg(DIED, "a contact-poisoned spellbook"), NULL);
losehp(rnd(Poison_resistance ? 6 : 10),
killer_msg(DIED, "a contact-poisoned spellbook"));
bp->in_use = was_inuse;
break;
case 6:
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("The book %s, but you are unharmed!", explodes);
} else {
pline("As you read the book, it %s in your %s!", explodes,
body_part(FACE));
losehp(2 * rnd(10) + 5, killer_msg(DIED, "an exploding rune"));
}
return TRUE;
default:
rndcurse();
break;
}
return FALSE;
}
/* returns 1 if some text was printed */
static int
eatcorpse(struct obj *otmp)
{
char let = CORPSE_I_TO_C(otmp->otyp);
int tp = 0;
if (let != 'a' && moves > otmp->age + 50 + rn2(100)) {
tp++;
pline("Ulch -- that meat was tainted!");
pline("You get very sick.");
Sick = 10 + rn2(10);
u.usick_cause = objects[otmp->otyp].oc_name;
} else if (strchr(POISONOUS, let) && rn2(5)) {
tp++;
pline("Ecch -- that must have been poisonous!");
if (!Poison_resistance) {
losestr(rnd(4));
losehp(rnd(15), "poisonous corpse");
} else
pline("You don't seem affected by the poison.");
} else if (strchr("ELNOPQRUuxz", let) && rn2(5)) {
tp++;
pline("You feel sick.");
losehp(rnd(8), "cadaver");
}
switch (let) {
case 'L':
case 'N':
case 't':
Teleportation |= INTRINSIC;
break;
case 'W':
pluslvl();
break;
case 'n':
u.uhp = u.uhpmax;
flags.botl = 1;
/* fall into next case */
case '@':
pline("You cannibal! You will be sorry for this!");
/* not tp++; */
/* fall into next case */
case 'd':
Aggravate_monster |= INTRINSIC;
break;
case 'I':
if (!Invis) {
Invis = 50 + rn2(100);
if (!See_invisible)
newsym(u.ux, u.uy);
} else {
Invis |= INTRINSIC;
See_invisible |= INTRINSIC;
}
/* fall into next case */
case 'y':
#ifdef QUEST
u.uhorizon++;
#endif /* QUEST */
/* fall into next case */
case 'B':
Confusion = 50;
break;
case 'D':
Fire_resistance |= INTRINSIC;
break;
case 'E':
Telepat |= INTRINSIC;
break;
case 'F':
case 'Y':
Cold_resistance |= INTRINSIC;
break;
case 'k':
case 's':
Poison_resistance |= INTRINSIC;
break;
case 'c':
pline("You turn to stone.");
killer = "dead cockatrice";
done("died");
/* NOTREACHED */
case 'a':
if (Stoned) {
pline("What a pity - you just destroyed a future piece of art!");
tp++;
Stoned = 0;
}
break;
case 'M':
pline("You cannot resist the temptation to mimic a treasure chest.");
tp++;
nomul(-30);
afternmv = Meatdone;
nomovemsg = "You now again prefer mimicking a human.";
u.usym = '$';
prme();
break;
}
return (tp);
}
// Note: this is a litte different, it will return true
// iff the action is COMPLETE, and false if there was no action OR
// the action is needing to finish up (after leaving SenseForm).
// So if (do_drink) the caller should exit invform _and_ tick,
// otherwise the caller should just exit invform.
// (exiting the invform occurs _before_ calling do_drink..)
// .. Ok, I've modified this again so that it lets the caller distinguish
// between "it worked" and "it worked and I popped up EngraveForm".
tri_val_t do_drink(obj_t *otmp)
{
obj_t *objs;
// monst_t *mtmp;
Boolean unkn = false, nothing = false, b;
Short tmp;
if (!otmp) return NO_OP;
tmp = oc_descr_offset[otmp->otype];
if (tmp >= 0 && (0 == StrNCompare("smoky", oc_descrs+tmp, 5)) && !rund(13)) {
ghost_from_bottle();
useup(otmp);
return DONE;
}
switch(otmp->otype) {
case POT_RESTORE_STRENGTH:
unkn = true;
message("Wow! This makes you feel great!");
if (you.ustr < you.ustrmax) {
you.ustr = you.ustrmax;
flags.botl |= BOTL_STR;
}
break;
case POT_BOOZE:
unkn = true;
message("Ooph! This tastes like liquid fire!");
Confusion += dice(3,8);
/* the whiskey makes us feel better */
if (you.uhp < you.uhpmax) losehp(-1, "bottle of whiskey");
if (!rund(4)) {
tri_val_t t;
// Short coma;
message("You pass out.");
multi = -rnd(15);
spin_multi("You awake with a headache.");
// coma = rnd(15); //
// do { tick(); } while (--coma > 0);
// message("You awake with a headache.");
// // nomovemsg = "You awake with a headache.";
t = finish_do_drink(otmp, nothing, unkn); //.... I guess....
return (t==DONE ? NO_OP : t); // so that we don't take any _more_ turns
}
break;
case POT_INVISIBILITY:
if (Invis || See_invisible)
nothing = true;
else {
if (!Blind)
message("Gee! All of a sudden, you can't see yourself.");
else {
message("You feel rather airy.");
unkn = true;
}
newsym(you.ux,you.uy);
}
Invis += rund(15)+31;
break;
case POT_FRUIT_JUICE:
message("This tastes like fruit juice.");
lesshungry(20);
break;
case POT_HEALING:
message("You begin to feel better.");
you.uhp += rnd(10);
if (you.uhp > you.uhpmax)
you.uhp = ++you.uhpmax;
if (Blind) Blind = 1; /* you'll see again on the next move */
if (Sick) Sick = 0;
flags.botl |= BOTL_HP;
break;
case POT_PARALYSIS:
if (Levitation)
message("You are motionlessly suspended.");
else
message("Your feet are frozen to the floor!");
nomul(-(rund(10)+25));
break;
case POT_MONSTER_DETECTION:
if (!fmon) {
b = strange_feeling(otmp, "You feel threatened.");
return ((b) ? GO_ON : DONE);
} else {
sense_what = SENSE_MONSTERS;
sense_by_what = otmp;
sense_init_screen();
FrmPopupForm(SenseForm);
return GO_ON; // to postpone the tick!
}
break;
case POT_OBJECT_DETECTION:
if (!fobj) {
b = strange_feeling(otmp, "You feel a pull downward.");
return ((b) ? GO_ON : DONE);
} else {
for (objs = fobj; objs; objs = objs->nobj)
if (objs->ox != you.ux || objs->oy != you.uy) {
sense_what = SENSE_OBJECTS;
sense_by_what = otmp;
sense_init_screen();
FrmPopupForm(SenseForm);
return GO_ON; // to postpone the tick!
}
message("You sense the presence of objects close nearby.");
break;
}
break;
case POT_SICKNESS:
message("Yech! This stuff tastes like poison.");
if (Poison_resistance)
message("(But in fact it was biologically contaminated orange juice.)");
losestr(rund(4)+3);
losehp(rnd(10), "contaminated potion");
flags.botl |= BOTL_STR;
break;
case POT_CONFUSION:
if (!Confusion)
message("Huh, What? Where am I?");
else
nothing = true;
Confusion += rund(7)+16;
break;
case POT_GAIN_STRENGTH:
message("Wow do you feel strong!");
if (you.ustr >= 118) break; /* > 118 is impossible */
if (you.ustr > 17) you.ustr += rnd(118-you.ustr);
else you.ustr++;
if (you.ustr > you.ustrmax) you.ustrmax = you.ustr;
flags.botl |= BOTL_STR;
break;
case POT_SPEED:
if (Wounded_legs) {
heal_legs();
unkn = true;
break;
}
if (!(Fast & ~INTRINSIC))
message("You are suddenly moving much faster.");
else {
message("Your legs get new energy.");
unkn = true;
}
Fast += rund(10)+100;
break;
case POT_BLINDNESS:
if (!Blind)
message("A cloud of darkness falls upon you.");
else
nothing = true;
Blind += rund(100)+250;
seeoff(false);
break;
case POT_GAIN_LEVEL:
pluslvl();
break;
case POT_EXTRA_HEALING:
message("You feel much better.");
you.uhp += dice(2,20)+1;
if (you.uhp > you.uhpmax)
you.uhp = (you.uhpmax += 2);
if (Blind) Blind = 1;
if (Sick) Sick = 0;
flags.botl |= BOTL_HP;
break;
case POT_LEVITATION:
if (!Levitation)
float_up();
else
nothing = true;
Levitation += rnd(100);
// you.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down; // UNNEEDED,
// it has been replaced by tweaking timeout.c to call float_down directly!
break;
default:
StrPrintF(ScratchBuffer, "What a funny potion! (%u)", otmp->otype);
message(ScratchBuffer);
return NO_OP;
}
return finish_do_drink(otmp, nothing, unkn);
}
/*
If dmg is zero, then the monster is not casting at you.
If the monster is intentionally not casting at you, we have previously
called spell_would_be_useless() and spellnum should always be a valid
undirected spell.
If you modify either of these, be sure to change is_undirected_spell()
and spell_would_be_useless().
*/
static void cast_wizard_spell(struct monst *mtmp, int dmg, int spellnum)
{
if (dmg == 0 && !is_undirected_spell(AD_SPEL, spellnum)) {
impossible("cast directed wizard spell (%d) with dmg=0?", spellnum);
return;
}
switch (spellnum) {
case MGC_DEATH_TOUCH:
pline("Oh no, %s's using the touch of death!", mhe(mtmp));
if (nonliving(youmonst.data) || is_demon(youmonst.data)) {
pline("You seem no deader than before.");
} else if (!Antimagic && rn2(mtmp->m_lev) > 12) {
if (Hallucination) {
pline("You have an out of body experience.");
} else {
killer_format = KILLED_BY_AN;
killer = "touch of death";
done(DIED);
}
} else {
if (Antimagic) shieldeff(u.ux, u.uy);
pline("Lucky for you, it didn't work!");
}
dmg = 0;
break;
case MGC_CLONE_WIZ:
if (mtmp->iswiz && flags.no_of_wizards == 1) {
pline("Double Trouble...");
clonewiz();
dmg = 0;
} else
impossible("bad wizard cloning?");
break;
case MGC_SUMMON_MONS:
{
int count;
count = nasty(mtmp); /* summon something nasty */
if (mtmp->iswiz)
verbalize("Destroy the thief, my pet%s!", plur(count));
else {
const char *mappear =
(count == 1) ? "A monster appears" : "Monsters appear";
/* messages not quite right if plural monsters created but
only a single monster is seen */
if (Invisible && !perceives(mtmp->data) &&
(mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s around a spot near you!", mappear);
else if (Displaced && (mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s around your displaced image!", mappear);
else
pline("%s from nowhere!", mappear);
}
dmg = 0;
break;
}
case MGC_AGGRAVATION:
pline("You feel that monsters are aware of your presence.");
aggravate();
dmg = 0;
break;
case MGC_CURSE_ITEMS:
pline("You feel as if you need some help.");
rndcurse();
dmg = 0;
break;
case MGC_DESTRY_ARMR:
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("A field of force surrounds you!");
} else if (!destroy_arm(some_armor(&youmonst))) {
pline("Your skin itches.");
}
dmg = 0;
break;
case MGC_WEAKEN_YOU: /* drain strength */
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("You feel momentarily weakened.");
} else {
pline("You suddenly feel weaker!");
dmg = mtmp->m_lev - 6;
if (Half_spell_damage) dmg = (dmg + 1) / 2;
losestr(rnd(dmg));
if (u.uhp < 1)
done_in_by(mtmp);
}
dmg = 0;
break;
case MGC_DISAPPEAR: /* makes self invisible */
if (!mtmp->minvis && !mtmp->invis_blkd) {
if (canseemon(mtmp))
pline("%s suddenly %s!", Monnam(mtmp),
!See_invisible ? "disappears" : "becomes transparent");
mon_set_minvis(mtmp);
dmg = 0;
} else
impossible("no reason for monster to cast disappear spell?");
break;
case MGC_STUN_YOU:
if (Antimagic || Free_action) {
shieldeff(u.ux, u.uy);
if (!Stunned)
pline("You feel momentarily disoriented.");
make_stunned(1L, FALSE);
} else {
pline(Stunned ? "You struggle to keep your balance." : "You reel...");
dmg = dice(ACURR(A_DEX) < 12 ? 6 : 4, 4);
if (Half_spell_damage) dmg = (dmg + 1) / 2;
make_stunned(HStun + dmg, FALSE);
}
dmg = 0;
break;
case MGC_HASTE_SELF:
mon_adjust_speed(mtmp, 1, NULL);
dmg = 0;
break;
case MGC_CURE_SELF:
if (mtmp->mhp < mtmp->mhpmax) {
if (canseemon(mtmp))
pline("%s looks better.", Monnam(mtmp));
/* note: player healing does 6d4; this used to do 1d8 */
if ((mtmp->mhp += dice(3,6)) > mtmp->mhpmax)
mtmp->mhp = mtmp->mhpmax;
dmg = 0;
}
break;
case MGC_PSI_BOLT:
/* prior to 3.4.0 Antimagic was setting the damage to 1--this
made the spell virtually harmless to players with magic res. */
if (Antimagic) {
shieldeff(u.ux, u.uy);
dmg = (dmg + 1) / 2;
}
if (dmg <= 5)
pline("You get a slight %sache.", body_part(HEAD));
else if (dmg <= 10)
pline("Your brain is on fire!");
else if (dmg <= 20)
pline("Your %s suddenly aches painfully!", body_part(HEAD));
else
pline("Your %s suddenly aches very painfully!", body_part(HEAD));
break;
default:
impossible("mcastu: invalid magic spell (%d)", spellnum);
dmg = 0;
break;
}
if (dmg) mdamageu(mtmp, dmg);
}
/*
* 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);
}