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

##### Functions

    attack            X
    fightm            X
    hitmm             X
    hmon              X
    mondied           X
    monstone          X
    thitu             X

##### Variables

    mlarge            X

       1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
       2: /* hack.fight.c - version 1.0.3 */
       3:
       4: #include    "hack.h"
       5: extern struct permonst li_dog, dog, la_dog;
       6: extern char *exclam(), *xname();
       7: extern struct obj *mkobj_at();
       8:
       9: static boolean far_noise;
      10: static long noisetime;
      11:
      12: /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
      13: hitmm(magr,mdef) register struct monst *magr,*mdef; {
      14: register struct permonst *pa = magr->data, *pd = mdef->data;
      15: int hit;
      16: schar tmp;
      17: boolean vis;
      18:     if(index("Eauy", pa->mlet)) return(0);
      19:     if(magr->mfroz) return(0);      /* riv05!a3 */
      20:     tmp = pd->ac + pa->mlevel;
      21:     if(mdef->mconf || mdef->mfroz || mdef->msleep){
      22:         tmp += 4;
      23:         if(mdef->msleep) mdef->msleep = 0;
      24:     }
      25:     hit = (tmp > rnd(20));
      26:     if(hit) mdef->msleep = 0;
      27:     vis = (cansee(magr->mx,magr->my) && cansee(mdef->mx,mdef->my));
      28:     if(vis){
      29:         char buf[BUFSZ];
      30:         if(mdef->mimic) seemimic(mdef);
      31:         if(magr->mimic) seemimic(magr);
      32:         (void) sprintf(buf,"%s %s", Monnam(magr),
      33:             hit ? "hits" : "misses");
      34:         pline("%s %s.", buf, monnam(mdef));
      35:     } else {
      36:         boolean far = (dist(magr->mx, magr->my) > 15);
      37:         if(far != far_noise || moves-noisetime > 10) {
      38:             far_noise = far;
      39:             noisetime = moves;
      40:             pline("You hear some noises%s.",
      41:                 far ? " in the distance" : "");
      42:         }
      43:     }
      44:     if(hit){
      45:         if(magr->data->mlet == 'c' && !magr->cham) {
      46:             magr->mhpmax += 3;
      47:             if(vis) pline("%s is turned to stone!", Monnam(mdef));
      48:             else if(mdef->mtame)
      49:      pline("You have a peculiarly sad feeling for a moment, then it passes.");
      50:             monstone(mdef);
      51:             hit = 2;
      52:         } else
      53:         if((mdef->mhp -= d(pa->damn,pa->damd)) < 1) {
      54:             magr->mhpmax += 1 + rn2(pd->mlevel+1);
      55:             if(magr->mtame && magr->mhpmax > 8*pa->mlevel){
      56:                 if(pa == &li_dog) magr->data = pa = &dog;
      57:                 else if(pa == &dog) magr->data = pa = &la_dog;
      58:             }
      59:             if(vis) pline("%s is killed!", Monnam(mdef));
      60:             else if(mdef->mtame)
      61:         pline("You have a sad feeling for a moment, then it passes.");
      62:             mondied(mdef);
      63:             hit = 2;
      64:         }
      65:     }
      66:     return(hit);
      67: }
      68:
      69: /* drop (perhaps) a cadaver and remove monster */
      70: mondied(mdef) register struct monst *mdef; {
      71: register struct permonst *pd = mdef->data;
      72:         if(letter(pd->mlet) && rn2(3)){
      73:             (void) mkobj_at(pd->mlet,mdef->mx,mdef->my);
      74:             if(cansee(mdef->mx,mdef->my)){
      75:                 unpmon(mdef);
      76:                 atl(mdef->mx,mdef->my,fobj->olet);
      77:             }
      78:             stackobj(fobj);
      79:         }
      80:         mondead(mdef);
      81: }
      82:
      83: /* drop a rock and remove monster */
      84: monstone(mdef) register struct monst *mdef; {
      85:     extern char mlarge[];
      86:     if(index(mlarge, mdef->data->mlet))
      87:         mksobj_at(ENORMOUS_ROCK, mdef->mx, mdef->my);
      88:     else
      89:         mksobj_at(ROCK, mdef->mx, mdef->my);
      90:     if(cansee(mdef->mx, mdef->my)){
      91:         unpmon(mdef);
      92:         atl(mdef->mx,mdef->my,fobj->olet);
      93:     }
      94:     mondead(mdef);
      95: }
      96:
      97:
      98: fightm(mtmp) register struct monst *mtmp; {
      99: register struct monst *mon;
     100:     for(mon = fmon; mon; mon = mon->nmon) if(mon != mtmp) {
     101:         if(DIST(mon->mx,mon->my,mtmp->mx,mtmp->my) < 3)
     102:             if(rn2(4))
     103:             return(hitmm(mtmp,mon));
     104:     }
     105:     return(-1);
     106: }
     107:
     108: /* u is hit by sth, but not a monster */
     109: thitu(tlev,dam,name)
     110: register tlev,dam;
     111: register char *name;
     112: {
     113: char buf[BUFSZ];
     114:     setan(name,buf);
     115:     if(u.uac + tlev <= rnd(20)) {
     116:         if(Blind) pline("It misses.");
     117:         else pline("You are almost hit by %s!", buf);
     118:         return(0);
     119:     } else {
     120:         if(Blind) pline("You are hit!");
     121:         else pline("You are hit by %s!", buf);
     122:         losehp(dam,name);
     123:         return(1);
     124:     }
     125: }
     126:
     127: char mlarge[] = "bCDdegIlmnoPSsTUwY',&";
     128:
     129: boolean
     130: hmon(mon,obj,thrown)    /* return TRUE if mon still alive */
     131: register struct monst *mon;
     132: register struct obj *obj;
     133: register thrown;
     134: {
     135:     register tmp;
     136:     boolean hittxt = FALSE;
     137:
     138:     if(!obj){
     139:         tmp = rnd(2);   /* attack with bare hands */
     140:         if(mon->data->mlet == 'c' && !uarmg){
     141:             pline("You hit the cockatrice with your bare hands.");
     142:             pline("You turn to stone ...");
     143:             done_in_by(mon);
     144:         }
     145:     } else if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE) {
     146:         if(obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG))
     147:         tmp = rnd(2);
     148:         else {
     149:         if(index(mlarge, mon->data->mlet)) {
     150:             tmp = rnd(objects[obj->otyp].wldam);
     151:             if(obj->otyp == TWO_HANDED_SWORD) tmp += d(2,6);
     152:             else if(obj->otyp == FLAIL) tmp += rnd(4);
     153:         } else {
     154:             tmp = rnd(objects[obj->otyp].wsdam);
     155:         }
     156:         tmp += obj->spe;
     157:         if(!thrown && obj == uwep && obj->otyp == BOOMERANG
     158:          && !rn2(3)){
     159:           pline("As you hit %s, the boomerang breaks into splinters.",
     160:                 monnam(mon));
     161:             freeinv(obj);
     162:             setworn((struct obj *) 0, obj->owornmask);
     163:             obfree(obj, (struct obj *) 0);
     164:             tmp++;
     165:         }
     166:         }
     167:         if(mon->data->mlet == 'O' && obj->otyp == TWO_HANDED_SWORD &&
     168:         !strcmp(ONAME(obj), "Orcrist"))
     169:         tmp += rnd(10);
     170:     } else  switch(obj->otyp) {
     171:         case HEAVY_IRON_BALL:
     172:             tmp = rnd(25); break;
     173:         case EXPENSIVE_CAMERA:
     174:     pline("You succeed in destroying your camera. Congratulations!");
     175:             freeinv(obj);
     176:             if(obj->owornmask)
     177:                 setworn((struct obj *) 0, obj->owornmask);
     178:             obfree(obj, (struct obj *) 0);
     179:             return(TRUE);
     180:         case DEAD_COCKATRICE:
     181:             pline("You hit %s with the cockatrice corpse.",
     182:                 monnam(mon));
     183:             if(mon->data->mlet == 'c') {
     184:                 tmp = 1;
     185:                 hittxt = TRUE;
     186:                 break;
     187:             }
     188:             pline("%s is turned to stone!", Monnam(mon));
     189:             killed(mon);
     190:             return(FALSE);
     191:         case CLOVE_OF_GARLIC:       /* no effect against demons */
     192:             if(index(UNDEAD, mon->data->mlet))
     193:                 mon->mflee = 1;
     194:             tmp = 1;
     195:             break;
     196:         default:
     197:             /* non-weapons can damage because of their weight */
     198:             /* (but not too much) */
     199:             tmp = obj->owt/10;
     200:             if(tmp < 1) tmp = 1;
     201:             else tmp = rnd(tmp);
     202:             if(tmp > 6) tmp = 6;
     203:         }
     204:
     205:     /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
     206:
     207:     tmp += u.udaminc + dbon();
     208:     if(u.uswallow) {
     209:         if((tmp -= u.uswldtim) <= 0) {
     210:             pline("Your arms are no longer able to hit.");
     211:             return(TRUE);
     212:         }
     213:     }
     214:     if(tmp < 1) tmp = 1;
     215:     mon->mhp -= tmp;
     216:     if(mon->mhp < 1) {
     217:         killed(mon);
     218:         return(FALSE);
     219:     }
     220:     if(mon->mtame && (!mon->mflee || mon->mfleetim)) {
     221:         mon->mflee = 1;         /* Rick Richardson */
     222:         mon->mfleetim += 10*rnd(tmp);
     223:     }
     224:
     225:     if(!hittxt) {
     226:         if(thrown)
     227:             /* this assumes that we cannot throw plural things */
     228:             hit( xname(obj)  /* or: objects[obj->otyp].oc_name */,
     229:                 mon, exclam(tmp) );
     230:         else if(Blind)
     231:             pline("You hit it.");
     232:         else
     233:             pline("You hit %s%s", monnam(mon), exclam(tmp));
     234:     }
     235:
     236:     if(u.umconf && !thrown) {
     237:         if(!Blind) {
     238:             pline("Your hands stop glowing blue.");
     239:             if(!mon->mfroz && !mon->msleep)
     240:                 pline("%s appears confused.",Monnam(mon));
     241:         }
     242:         mon->mconf = 1;
     243:         u.umconf = 0;
     244:     }
     245:     return(TRUE);   /* mon still alive */
     246: }
     247:
     248: /* try to attack; return FALSE if monster evaded */
     249: /* u.dx and u.dy must be set */
     250: attack(mtmp)
     251: register struct monst *mtmp;
     252: {
     253:     schar tmp;
     254:     boolean malive = TRUE;
     255:     register struct permonst *mdat;
     256:     mdat = mtmp->data;
     257:
     258:     u_wipe_engr(3);   /* andrew@orca: prevent unlimited pick-axe attacks */
     259:
     260:     if(mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep &&
     261:        !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
     262:        (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */
     263:         mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy))
     264:         return(FALSE);
     265:
     266:     if(mtmp->mimic){
     267:         if(!u.ustuck && !mtmp->mflee) u.ustuck = mtmp;
     268:         switch(levl[u.ux+u.dx][u.uy+u.dy].scrsym){
     269:         case '+':
     270:             pline("The door actually was a Mimic.");
     271:             break;
     272:         case '$':
     273:             pline("The chest was a Mimic!");
     274:             break;
     275:         default:
     276:             pline("Wait! That's a Mimic!");
     277:         }
     278:         wakeup(mtmp);   /* clears mtmp->mimic */
     279:         return(TRUE);
     280:     }
     281:
     282:     wakeup(mtmp);
     283:
     284:     if(mtmp->mhide && mtmp->mundetected){
     285:         register struct obj *obj;
     286:
     287:         mtmp->mundetected = 0;
     288:         if((obj = o_at(mtmp->mx,mtmp->my)) && !Blind)
     289:             pline("Wait! There's a %s hiding under %s!",
     290:                 mdat->mname, doname(obj));
     291:         return(TRUE);
     292:     }
     293:
     294:     tmp = u.uluck + u.ulevel + mdat->ac + abon();
     295:     if(uwep) {
     296:         if(uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE)
     297:             tmp += uwep->spe;
     298:         if(uwep->otyp == TWO_HANDED_SWORD) tmp -= 1;
     299:         else if(uwep->otyp == DAGGER) tmp += 2;
     300:         else if(uwep->otyp == CRYSKNIFE) tmp += 3;
     301:         else if(uwep->otyp == SPEAR &&
     302:             index("XDne", mdat->mlet)) tmp += 2;
     303:     }
     304:     if(mtmp->msleep) {
     305:         mtmp->msleep = 0;
     306:         tmp += 2;
     307:     }
     308:     if(mtmp->mfroz) {
     309:         tmp += 4;
     310:         if(!rn2(10)) mtmp->mfroz = 0;
     311:     }
     312:     if(mtmp->mflee) tmp += 2;
     313:     if(u.utrap) tmp -= 3;
     314:
     315:     /* with a lot of luggage, your agility diminishes */
     316:     tmp -= (inv_weight() + 40)/20;
     317:
     318:     if(tmp <= rnd(20) && !u.uswallow){
     319:         if(Blind) pline("You miss it.");
     320:         else pline("You miss %s.",monnam(mtmp));
     321:     } else {
     322:         /* we hit the monster; be careful: it might die! */
     323:
     324:         if((malive = hmon(mtmp,uwep,0)) == TRUE) {
     325:         /* monster still alive */
     326:             if(!rn2(25) && mtmp->mhp < mtmp->mhpmax/2) {
     327:                 mtmp->mflee = 1;
     328:                 if(!rn2(3)) mtmp->mfleetim = rnd(100);
     329:                 if(u.ustuck == mtmp && !u.uswallow)
     330:                     u.ustuck = 0;
     331:             }
     332: #ifndef NOWORM
     333:             if(mtmp->wormno)
     334:                 cutworm(mtmp, u.ux+u.dx, u.uy+u.dy,
     335:                     uwep ? uwep->otyp : 0);
     336: #endif NOWORM
     337:         }
     338:         if(mdat->mlet == 'a') {
     339:             if(rn2(2)) {
     340:                 pline("You are splashed by the blob's acid!");
     341:                 losehp_m(rnd(6), mtmp);
     342:                 if(!rn2(30)) corrode_armor();
     343:             }
     344:             if(!rn2(6)) corrode_weapon();
     345:         }
     346:     }
     347:     if(malive && mdat->mlet == 'E' && canseemon(mtmp)
     348:        && !mtmp->mcan && rn2(3)) {
     349:         if(mtmp->mcansee) {
     350:           pline("You are frozen by the floating eye's gaze!");
     351:           nomul((u.ulevel > 6 || rn2(4)) ? rn1(20,-21) : -200);
     352:         } else {
     353:           pline("The blinded floating eye cannot defend itself.");
     354:           if(!rn2(500)) if((int)u.uluck > LUCKMIN) u.uluck--;
     355:         }
     356:     }
     357:     return(TRUE);
     358: }

#### Defined functions

attack defined in line 250; used 3 times

- in /usr/src/games/hack/hack.apply.c line 388, 398
- in /usr/src/games/hack/hack.c line 136

fightm defined in line 98; used 1 times

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

hitmm defined in line 13; used 7 times

- in line 103
- in /usr/src/games/hack/hack.dog.c line 280-282(2)
- in /usr/src/games/hack/hack.mon.c line 418-419(2)
- in /usr/src/games/hack/hack.shk.c line 922-923(2)

hmon defined in line 129; used 5 times

- in line 324
- in /usr/src/games/hack/hack.c line 11
- in /usr/src/games/hack/hack.do.c line 9, 347, 365

mondied defined in line 70; used 3 times

- in line 62
- in /usr/src/games/hack/hack.dog.c line 141
- in /usr/src/games/hack/hack.zap.c line 468

monstone defined in line 84; used 1 times

- in line 50

thitu defined in line 109; used 4 times

- in /usr/src/games/hack/hack.trap.c line 68-73(2), 102
- in /usr/src/games/hack/hack.zap.c line 372

#### Defined variables

far_noise defined in line 9; used 2 times

- in line 37-38(2)

mlarge defined in line 127; used 3 times

- in line 85-86(2), 149

noisetime defined in line 10; used 2 times

- in line 37-39(2)

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