+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.mhitu.c - version 1.0.3 */
+
+#include "hack.h"
+extern struct monst *makemon();
+
+/*
+ * mhitu: monster hits you
+ * returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
+ */
+mhitu(mtmp)
+register struct monst *mtmp;
+{
+ register struct permonst *mdat = mtmp->data;
+ register 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(!index("1&DuxynNF",mdat->mlet))
+ tmp = hitu(mtmp,d(mdat->damn,mdat->damd));
+ else
+ tmp = 0;
+ if(index(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':
+ { register 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);
+}
+
+hitu(mtmp,dam)
+register struct monst *mtmp;
+register dam;
+{
+ register tmp, res;
+
+ nomul(0);
+ if(u.uswallow) return(0);
+
+ if(mtmp->mhide && mtmp->mundetected) {
+ mtmp->mundetected = 0;
+ if(!Blind) {
+ register struct obj *obj;
+ extern char * Xmonnam();
+ if(obj = o_at(mtmp->mx,mtmp->my))
+ 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);
+}
projects / unix-history / commitdiff