# 2.11BSD#431 - /usr/src/games/hack/hack.mhitu.c

##### Functions

    hitu              X
    mhitu             X

       1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
       2: /* hack.mhitu.c - version 1.0.3 */
       3:
       4: #include    "hack.h"
       5: extern struct monst *makemon();
       6:
       7: /*
       8:  * mhitu: monster hits you
       9:  *	  returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
      10:  */
      11: mhitu(mtmp)
      12: register struct monst *mtmp;
      13: {
      14:     register struct permonst *mdat = mtmp->data;
      15:     register int tmp, ctmp;
      16:
      17:     nomul(0);
      18:
      19:     /* If swallowed, can only be affected by hissers and by u.ustuck */
      20:     if(u.uswallow) {
      21:         if(mtmp != u.ustuck) {
      22:             if(mdat->mlet == 'c' && !rn2(13)) {
      23:                 pline("Outside, you hear %s's hissing!",
      24:                     monnam(mtmp));
      25:                 pline("%s gets turned to stone!",
      26:                     Monnam(u.ustuck));
      27:                 pline("And the same fate befalls you.");
      28:                 done_in_by(mtmp);
      29:                 /* "notreached": not return(1); */
      30:             }
      31:             return(0);
      32:         }
      33:         switch(mdat->mlet) {    /* now mtmp == u.ustuck */
      34:         case ',':
      35:             youswld(mtmp, (u.uac > 0) ? u.uac+4 : 4,
      36:                 5, "The trapper");
      37:             break;
      38:         case '\'':
      39:             youswld(mtmp,rnd(6),7,"The lurker above");
      40:             break;
      41:         case 'P':
      42:             youswld(mtmp,d(2,4),12,"The purple worm");
      43:             break;
      44:         default:
      45:             /* This is not impossible! */
      46:             pline("The mysterious monster totally digests you.");
      47:             u.uhp = 0;
      48:         }
      49:         if(u.uhp < 1) done_in_by(mtmp);
      50:         return(0);
      51:     }
      52:
      53:     if(mdat->mlet == 'c' && Stoned)
      54:         return(0);
      55:
      56:     /* make eels visible the moment they hit/miss us */
      57:     if(mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx,mtmp->my)){
      58:         mtmp->minvis = 0;
      59:         pmon(mtmp);
      60:     }
      61:     if(!index("1&DuxynNF",mdat->mlet))
      62:         tmp = hitu(mtmp,d(mdat->damn,mdat->damd));
      63:     else
      64:         tmp = 0;
      65:     if(index(UNDEAD, mdat->mlet) && midnight())
      66:         tmp += hitu(mtmp,d(mdat->damn,mdat->damd));
      67:
      68:     ctmp = tmp && !mtmp->mcan &&
      69:       (!uarm || objects[uarm->otyp].a_can < rnd(3) || !rn2(50));
      70:     switch(mdat->mlet) {
      71:     case '1':
      72:         if(wiz_hit(mtmp)) return(1);    /* he disappeared */
      73:         break;
      74:     case '&':
      75:         if(!mtmp->cham && !mtmp->mcan && !rn2(13)) {
      76:             (void) makemon(PM_DEMON,u.ux,u.uy);
      77:         } else {
      78:             (void) hitu(mtmp,d(2,6));
      79:             (void) hitu(mtmp,d(2,6));
      80:             (void) hitu(mtmp,rnd(3));
      81:             (void) hitu(mtmp,rnd(3));
      82:             (void) hitu(mtmp,rn1(4,2));
      83:         }
      84:         break;
      85:     case ',':
      86:         if(tmp) justswld(mtmp,"The trapper");
      87:         break;
      88:     case '\'':
      89:         if(tmp) justswld(mtmp, "The lurker above");
      90:         break;
      91:     case ';':
      92:         if(ctmp) {
      93:             if(!u.ustuck && !rn2(10)) {
      94:                 pline("%s swings itself around you!",
      95:                     Monnam(mtmp));
      96:                 u.ustuck = mtmp;
      97:             } else if(u.ustuck == mtmp &&
      98:                 levl[mtmp->mx][mtmp->my].typ == POOL) {
      99:                 pline("%s drowns you ...", Monnam(mtmp));
     100:                 done("drowned");
     101:             }
     102:         }
     103:         break;
     104:     case 'A':
     105:         if(ctmp && rn2(2)) {
     106:             if(Poison_resistance)
     107:             pline("The sting doesn't seem to affect you.");
     108:             else {
     109:             pline("You feel weaker!");
     110:             losestr(1);
     111:             }
     112:         }
     113:         break;
     114:     case 'C':
     115:         (void) hitu(mtmp,rnd(6));
     116:         break;
     117:     case 'c':
     118:         if(!rn2(5)) {
     119:             pline("You hear %s's hissing!", monnam(mtmp));
     120:             if(ctmp || !rn2(20) || (flags.moonphase == NEW_MOON
     121:                 && !carrying(DEAD_LIZARD))) {
     122:                 Stoned = 5;
     123:                 /* pline("You get turned to stone!"); */
     124:                 /* done_in_by(mtmp); */
     125:             }
     126:         }
     127:         break;
     128:     case 'D':
     129:         if(rn2(6) || mtmp->mcan) {
     130:             (void) hitu(mtmp,d(3,10));
     131:             (void) hitu(mtmp,rnd(8));
     132:             (void) hitu(mtmp,rnd(8));
     133:             break;
     134:         }
     135:         kludge("%s breathes fire!","The dragon");
     136:         buzz(-1,mtmp->mx,mtmp->my,u.ux-mtmp->mx,u.uy-mtmp->my);
     137:         break;
     138:     case 'd':
     139:         (void) hitu(mtmp,d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
     140:         break;
     141:     case 'e':
     142:         (void) hitu(mtmp,d(3,6));
     143:         break;
     144:     case 'F':
     145:         if(mtmp->mcan) break;
     146:         kludge("%s explodes!","The freezing sphere");
     147:         if(Cold_resistance) pline("You don't seem affected by it.");
     148:         else {
     149:             xchar dn;
     150:             if(17-(u.ulevel/2) > rnd(20)) {
     151:                 pline("You get blasted!");
     152:                 dn = 6;
     153:             } else {
     154:                 pline("You duck the blast...");
     155:                 dn = 3;
     156:             }
     157:             losehp_m(d(dn,6), mtmp);
     158:         }
     159:         mondead(mtmp);
     160:         return(1);
     161:     case 'g':
     162:         if(ctmp && multi >= 0 && !rn2(3)) {
     163:             kludge("You are frozen by %ss juices","the cube'");
     164:             nomul(-rnd(10));
     165:         }
     166:         break;
     167:     case 'h':
     168:         if(ctmp && multi >= 0 && !rn2(5)) {
     169:             nomul(-rnd(10));
     170:             kludge("You are put to sleep by %ss bite!",
     171:                 "the homunculus'");
     172:         }
     173:         break;
     174:     case 'j':
     175:         tmp = hitu(mtmp,rnd(3));
     176:         tmp &= hitu(mtmp,rnd(3));
     177:         if(tmp){
     178:             (void) hitu(mtmp,rnd(4));
     179:             (void) hitu(mtmp,rnd(4));
     180:         }
     181:         break;
     182:     case 'k':
     183:         if((hitu(mtmp,rnd(4)) || !rn2(3)) && ctmp){
     184:             poisoned("bee's sting",mdat->mname);
     185:         }
     186:         break;
     187:     case 'L':
     188:         if(tmp) stealgold(mtmp);
     189:         break;
     190:     case 'N':
     191:         if(mtmp->mcan && !Blind) {
     192:     pline("%s tries to seduce you, but you seem not interested.",
     193:             Amonnam(mtmp, "plain"));
     194:             if(rn2(3)) rloc(mtmp);
     195:         } else if(steal(mtmp)) {
     196:             rloc(mtmp);
     197:             mtmp->mflee = 1;
     198:         }
     199:         break;
     200:     case 'n':
     201:         if(!uwep && !uarm && !uarmh && !uarms && !uarmg) {
     202:             pline("%s hits! (I hope you don't mind)",
     203:             Monnam(mtmp));
     204:             u.uhp += rnd(7);
     205:             if(!rn2(7)) u.uhpmax++;
     206:             if(u.uhp > u.uhpmax) u.uhp = u.uhpmax;
     207:             flags.botl = 1;
     208:             if(!rn2(50)) rloc(mtmp);
     209:         } else {
     210:             (void) hitu(mtmp,d(2,6));
     211:             (void) hitu(mtmp,d(2,6));
     212:         }
     213:         break;
     214:     case 'o':
     215:         tmp = hitu(mtmp,rnd(6));
     216:         if(hitu(mtmp,rnd(6)) && tmp &&  /* hits with both paws */
     217:             !u.ustuck && rn2(2)) {
     218:             u.ustuck = mtmp;
     219:             kludge("%s has grabbed you!","The owlbear");
     220:             u.uhp -= d(2,8);
     221:         } else if(u.ustuck == mtmp) {
     222:             u.uhp -= d(2,8);
     223:             pline("You are being crushed.");
     224:         }
     225:         break;
     226:     case 'P':
     227:         if(ctmp && !rn2(4))
     228:             justswld(mtmp,"The purple worm");
     229:         else
     230:             (void) hitu(mtmp,d(2,4));
     231:         break;
     232:     case 'Q':
     233:         (void) hitu(mtmp,rnd(2));
     234:         (void) hitu(mtmp,rnd(2));
     235:         break;
     236:     case 'R':
     237:         if(tmp && uarmh && !uarmh->rustfree &&
     238:             (int) uarmh->spe >= -1) {
     239:             pline("Your helmet rusts!");
     240:             uarmh->spe--;
     241:         } else
     242:         if(ctmp && uarm && !uarm->rustfree &&   /* Mike Newton */
     243:          uarm->otyp < STUDDED_LEATHER_ARMOR &&
     244:          (int) uarm->spe >= -1) {
     245:             pline("Your armor rusts!");
     246:             uarm->spe--;
     247:         }
     248:         break;
     249:     case 'S':
     250:         if(ctmp && !rn2(8)) {
     251:             poisoned("snake's bite",mdat->mname);
     252:         }
     253:         break;
     254:     case 's':
     255:         if(tmp && !rn2(8)) {
     256:             poisoned("scorpion's sting",mdat->mname);
     257:         }
     258:         (void) hitu(mtmp,rnd(8));
     259:         (void) hitu(mtmp,rnd(8));
     260:         break;
     261:     case 'T':
     262:         (void) hitu(mtmp,rnd(6));
     263:         (void) hitu(mtmp,rnd(6));
     264:         break;
     265:     case 't':
     266:         if(!rn2(5)) rloc(mtmp);
     267:         break;
     268:     case 'u':
     269:         mtmp->mflee = 1;
     270:         break;
     271:     case 'U':
     272:         (void) hitu(mtmp,d(3,4));
     273:         (void) hitu(mtmp,d(3,4));
     274:         break;
     275:     case 'v':
     276:         if(ctmp && !u.ustuck) u.ustuck = mtmp;
     277:         break;
     278:     case 'V':
     279:         if(tmp) u.uhp -= 4;
     280:         if(ctmp) losexp();
     281:         break;
     282:     case 'W':
     283:         if(ctmp) losexp();
     284:         break;
     285: #ifndef NOWORM
     286:     case 'w':
     287:         if(tmp) wormhit(mtmp);
     288: #endif NOWORM
     289:         break;
     290:     case 'X':
     291:         (void) hitu(mtmp,rnd(5));
     292:         (void) hitu(mtmp,rnd(5));
     293:         (void) hitu(mtmp,rnd(5));
     294:         break;
     295:     case 'x':
     296:         { register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
     297:           pline("%s pricks in your %s leg!",
     298:             Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left");
     299:           set_wounded_legs(side, rnd(50));
     300:           losehp_m(2, mtmp);
     301:           break;
     302:         }
     303:     case 'y':
     304:         if(mtmp->mcan) break;
     305:         mondead(mtmp);
     306:         if(!Blind) {
     307:             pline("You are blinded by a blast of light!");
     308:             Blind = d(4,12);
     309:             seeoff(0);
     310:         }
     311:         return(1);
     312:     case 'Y':
     313:         (void) hitu(mtmp,rnd(6));
     314:         break;
     315:     }
     316:     if(u.uhp < 1) done_in_by(mtmp);
     317:     return(0);
     318: }
     319:
     320: hitu(mtmp,dam)
     321: register struct monst *mtmp;
     322: register dam;
     323: {
     324:     register tmp, res;
     325:
     326:     nomul(0);
     327:     if(u.uswallow) return(0);
     328:
     329:     if(mtmp->mhide && mtmp->mundetected) {
     330:         mtmp->mundetected = 0;
     331:         if(!Blind) {
     332:             register struct obj *obj;
     333:             extern char * Xmonnam();
     334:             if(obj = o_at(mtmp->mx,mtmp->my))
     335:                 pline("%s was hidden under %s!",
     336:                     Xmonnam(mtmp), doname(obj));
     337:         }
     338:     }
     339:
     340:     tmp = u.uac;
     341:     /* give people with Ac = -10 at least some vulnerability */
     342:     if(tmp < 0) {
     343:         dam += tmp;     /* decrease damage */
     344:         if(dam <= 0) dam = 1;
     345:         tmp = -rn2(-tmp);
     346:     }
     347:     tmp += mtmp->data->mlevel;
     348:     if(multi < 0) tmp += 4;
     349:     if((Invis && mtmp->data->mlet != 'I') || !mtmp->mcansee) tmp -= 2;
     350:     if(mtmp->mtrapped) tmp -= 2;
     351:     if(tmp <= rnd(20)) {
     352:         if(Blind) pline("It misses.");
     353:         else pline("%s misses.",Monnam(mtmp));
     354:         res = 0;
     355:     } else {
     356:         if(Blind) pline("It hits!");
     357:         else pline("%s hits!",Monnam(mtmp));
     358:         losehp_m(dam, mtmp);
     359:         res = 1;
     360:     }
     361:     stop_occupation();
     362:     return(res);
     363: }

#### Defined functions

hitu defined in line 320; used 41 times

- in line 62-66(2), 78-82(5), 115, 130-132(3), 139-142(2), 175-183(5), 210-216(4), 230-234(3), 258-263(4), 272-273(2), 291-293(3), 313
- in /usr/src/games/hack/hack.dog.c line 351
- in /usr/src/games/hack/hack.mon.c line 423
- in /usr/src/games/hack/hack.shk.c line 800, 926
- in /usr/src/games/hack/hack.wizard.c line 73
- in /usr/src/games/hack/hack.worm.c line 90

mhitu defined in line 11; used 1 times

- in /usr/src/games/hack/hack.mon.c line 233

Last modified: 1985-10-01 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 1041 |