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
fightm defined in line 98; used 1 times
hitmm defined in line 13; used 7 times
hmon defined in line 129; used 5 times
mondied defined in line 70; used 3 times
monstone defined in line 84; used 1 times
  • in line 50
thitu defined in line 109; used 4 times

Defined variables

far_noise defined in line 9; used 2 times
mlarge defined in line 127; used 3 times
noisetime defined in line 10; used 2 times
Last modified: 1985-10-14
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1252
Valid CSS Valid XHTML 1.0 Strict