399 lines
8.3 KiB
C
399 lines
8.3 KiB
C
/* $NetBSD: hack.mhitu.c,v 1.5 2001/03/25 20:44:01 jsm Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
__RCSID("$NetBSD: hack.mhitu.c,v 1.5 2001/03/25 20:44:01 jsm Exp $");
|
|
#endif /* not lint */
|
|
|
|
#include "hack.h"
|
|
#include "extern.h"
|
|
|
|
/*
|
|
* mhitu: monster hits you
|
|
* returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
|
|
*/
|
|
int
|
|
mhitu(mtmp)
|
|
struct monst *mtmp;
|
|
{
|
|
const 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))
|
|
return (1); /* he disappeared */
|
|
break;
|
|
case '&':
|
|
if (!mtmp->cham && !mtmp->mcan && !rn2(13)) {
|
|
(void) makemon(PM_DEMON, u.ux, u.uy);
|
|
} else {
|
|
(void) hitu(mtmp, d(2, 6));
|
|
(void) hitu(mtmp, d(2, 6));
|
|
(void) hitu(mtmp, rnd(3));
|
|
(void) hitu(mtmp, rnd(3));
|
|
(void) 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':
|
|
(void) 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;
|
|
/* pline("You get turned to stone!"); */
|
|
/* done_in_by(mtmp); */
|
|
}
|
|
}
|
|
break;
|
|
case 'D':
|
|
if (rn2(6) || mtmp->mcan) {
|
|
(void) hitu(mtmp, d(3, 10));
|
|
(void) hitu(mtmp, rnd(8));
|
|
(void) 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':
|
|
(void) hitu(mtmp, d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
|
|
break;
|
|
case 'e':
|
|
(void) 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) {
|
|
(void) hitu(mtmp, rnd(4));
|
|
(void) 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 {
|
|
(void) hitu(mtmp, d(2, 6));
|
|
(void) 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
|
|
(void) hitu(mtmp, d(2, 4));
|
|
break;
|
|
case 'Q':
|
|
(void) hitu(mtmp, rnd(2));
|
|
(void) 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);
|
|
}
|
|
(void) hitu(mtmp, rnd(8));
|
|
(void) hitu(mtmp, rnd(8));
|
|
break;
|
|
case 'T':
|
|
(void) hitu(mtmp, rnd(6));
|
|
(void) hitu(mtmp, rnd(6));
|
|
break;
|
|
case 't':
|
|
if (!rn2(5))
|
|
rloc(mtmp);
|
|
break;
|
|
case 'u':
|
|
mtmp->mflee = 1;
|
|
break;
|
|
case 'U':
|
|
(void) hitu(mtmp, d(3, 4));
|
|
(void) 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':
|
|
(void) hitu(mtmp, rnd(5));
|
|
(void) hitu(mtmp, rnd(5));
|
|
(void) 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':
|
|
(void) hitu(mtmp, rnd(6));
|
|
break;
|
|
}
|
|
if (u.uhp < 1)
|
|
done_in_by(mtmp);
|
|
return (0);
|
|
}
|
|
|
|
int
|
|
hitu(mtmp, dam)
|
|
struct monst *mtmp;
|
|
int dam;
|
|
{
|
|
int tmp, res;
|
|
|
|
nomul(0);
|
|
if (u.uswallow)
|
|
return (0);
|
|
|
|
if (mtmp->mhide && mtmp->mundetected) {
|
|
mtmp->mundetected = 0;
|
|
if (!Blind) {
|
|
struct obj *obj;
|
|
if ((obj = o_at(mtmp->mx, mtmp->my)) != NULL)
|
|
pline("%s was hidden under %s!",
|
|
Xmonnam(mtmp), doname(obj));
|
|
}
|
|
}
|
|
tmp = u.uac;
|
|
/* give people with Ac = -10 at least some vulnerability */
|
|
if (tmp < 0) {
|
|
dam += tmp; /* decrease damage */
|
|
if (dam <= 0)
|
|
dam = 1;
|
|
tmp = -rn2(-tmp);
|
|
}
|
|
tmp += mtmp->data->mlevel;
|
|
if (multi < 0)
|
|
tmp += 4;
|
|
if ((Invis && mtmp->data->mlet != 'I') || !mtmp->mcansee)
|
|
tmp -= 2;
|
|
if (mtmp->mtrapped)
|
|
tmp -= 2;
|
|
if (tmp <= rnd(20)) {
|
|
if (Blind)
|
|
pline("It misses.");
|
|
else
|
|
pline("%s misses.", Monnam(mtmp));
|
|
res = 0;
|
|
} else {
|
|
if (Blind)
|
|
pline("It hits!");
|
|
else
|
|
pline("%s hits!", Monnam(mtmp));
|
|
losehp_m(dam, mtmp);
|
|
res = 1;
|
|
}
|
|
stop_occupation();
|
|
return (res);
|
|
}
|