void mkswamp(void) { // Michiel Huisjes & Fred de Wilde struct mkroom *sroom; int sx, sy, i, eelct = 0; for (i = 0; i < 5; i++) { // 5 tries sroom = &rooms[rn2(nroom)]; if (sroom->hx < 0 || sroom->rtype || has_upstairs(sroom) || has_dnstairs(sroom)) continue; // satisfied; make a swamp sroom->rtype = SWAMP; for (sx = sroom->lx; sx <= sroom->hx; sx++) for (sy = sroom->ly; sy <= sroom->hy; sy++) if ((sx + sy) % 2 && !o_at(sx, sy) && !t_at(sx, sy) && !m_at(sx, sy) && !nexttodoor(sx, sy)) { levl[sx][sy].typ = POOL; levl[sx][sy].scrsym = POOL_SYM; if (!eelct || !rn2(4)) { (void) makemon(PM_EEL, sx, sy); eelct++; } } } }
bool hitu(struct monst *mtmp, int dam) { bool res; int tmp; 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); }
/* ddx, ddy, range: direction and range * sym: symbol displayed on path * fhitm, fhito: fns called when mon/obj hit * obj: 2nd arg to fhitm/fhito */ struct monst * bhit(int ddx, int ddy, int range, char sym, void (*fhitm)(struct monst *, struct obj *), bool (*fhito)(struct obj *, struct obj *), struct obj *obj) { struct monst *mtmp; struct obj *otmp; int typ; bhitpos.x = u.ux; bhitpos.y = u.uy; if (sym) /* open call */ tmp_at(-1, sym); while (range-- > 0) { bhitpos.x += ddx; bhitpos.y += ddy; typ = levl[bhitpos.x][bhitpos.y].typ; if ((mtmp = m_at(bhitpos.x, bhitpos.y))) { if (sym) { tmp_at(-1, -1); /* close call */ return (mtmp); } (*fhitm)(mtmp, obj); range -= 3; } if (fhito && (otmp = o_at(bhitpos.x, bhitpos.y))) { if ((*fhito)(otmp, obj)) range--; } if (!ZAP_POS(typ)) { bhitpos.x -= ddx; bhitpos.y -= ddy; break; } if (sym) tmp_at(bhitpos.x, bhitpos.y); } /* leave last symbol unless in a pool */ if (sym) tmp_at(-1, (levl[bhitpos.x][bhitpos.y].typ == POOL) ? -1 : 0); return (0); }
int dozap(void) { struct obj *obj; xchar zx,zy; obj = getobj("/", "zap"); if(!obj) return(0); if(obj->spe < 0 || (obj->spe == 0 && rn2(121))) { pline("Nothing Happens."); return(1); } if(obj->spe == 0) pline("You wrest one more spell from the worn-out wand."); if(!(objects[obj->otyp].bits & NODIR) && !getdir(1)) return(1); /* make him pay for knowing !NODIR */ obj->spe--; if(objects[obj->otyp].bits & IMMEDIATE) { if(u.uswallow) bhitm(u.ustuck, obj); else if(u.dz) { if(u.dz > 0) { struct obj *otmp = o_at(u.ux, u.uy); if(otmp) bhito(otmp, obj); } } else bhit(u.dx,u.dy,rn1(8,6),0,bhitm,bhito,obj); } else { switch(obj->otyp){ case WAN_LIGHT: litroom(TRUE); break; case WAN_SECRET_DOOR_DETECTION: if(!findit()) return(1); break; case WAN_CREATE_MONSTER: { int cnt = 1; if(!rn2(23)) cnt += rn2(7) + 1; while(cnt--) makemon(NULL, u.ux, u.uy); } break; case WAN_WISHING: { char buf[BUFSZ]; struct obj *otmp; if(u.uluck + rn2(5) < 0) { pline("Unfortunately, nothing happens."); break; } pline("You may wish for an object. What do you want? "); getlin(buf); if(buf[0] == '\033') buf[0] = 0; otmp = readobjnam(buf); otmp = addinv(otmp); prinv(otmp); break; } case WAN_DIGGING: /* Original effect (approximately): * from CORR: dig until we pierce a wall * from ROOM: piece wall and dig until we reach * an ACCESSIBLE place. * Currently: dig for digdepth positions; * also down on request of Lennart Augustsson. */ { struct rm *room; int digdepth; if(u.uswallow) { struct monst *mtmp = u.ustuck; pline("You pierce %s's stomach wall!", monnam(mtmp)); mtmp->mhp = 1; /* almost dead */ unstuck(mtmp); mnexto(mtmp); break; } if(u.dz) { if(u.dz < 0) { pline("You loosen a rock from the ceiling."); pline("It falls on your head!"); losehp(1, "falling rock"); mksobj_at(ROCK, u.ux, u.uy); fobj->quan = 1; stackobj(fobj); if(Invisible) newsym(u.ux, u.uy); } else { dighole(); } break; } zx = u.ux+u.dx; zy = u.uy+u.dy; digdepth = 8 + rn2(18); Tmp_at(-1, '*'); /* open call */ while(--digdepth >= 0) { if(!isok(zx,zy)) break; room = &levl[zx][zy]; Tmp_at(zx,zy); if(!xdnstair){ if(zx < 3 || zx > COLNO-3 || zy < 3 || zy > ROWNO-3) break; if(room->typ == HWALL || room->typ == VWALL){ room->typ = ROOM; break; } } else if(room->typ == HWALL || room->typ == VWALL || room->typ == SDOOR || room->typ == LDOOR){ room->typ = DOOR; digdepth -= 2; } else if(room->typ == SCORR || !room->typ) { room->typ = CORR; digdepth--; } mnewsym(zx,zy); zx += u.dx; zy += u.dy; } mnewsym(zx,zy); /* not always necessary */ Tmp_at(-1,-1); /* closing call */ break; } default: buzz((int) obj->otyp - WAN_MAGIC_MISSILE, u.ux, u.uy, u.dx, u.dy); break; } } return(1); }
/* return 0 (no move), 1 (move) or 2 (dead) */ int dog_move(struct monst *mtmp, int after) { int nx, ny, omx, omy, appr, nearer, j; int udist, chi, i, whappr; struct monst *mtmp2; struct permonst *mdat = mtmp->data; struct edog *edog = EDOG(mtmp); struct obj *obj; struct trap *trap; xchar cnt, chcnt, nix, niy; schar dogroom, uroom; xchar gx, gy, gtyp, otyp; /* current goal */ coord poss[9]; int info[9]; #define GDIST(x,y) ((x-gx)*(x-gx) + (y-gy)*(y-gy)) #define DDIST(x,y) ((x-omx)*(x-omx) + (y-omy)*(y-omy)) if(moves <= edog->eattime) return(0); /* dog is still eating */ omx = mtmp->mx; omy = mtmp->my; whappr = (moves - EDOG(mtmp)->whistletime < 5); if(moves > edog->hungrytime + 500 && !mtmp->mconf){ mtmp->mconf = 1; mtmp->mhpmax /= 3; if(mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax; if(cansee(omx,omy)) pline("%s is confused from hunger.", Monnam(mtmp)); else pline("You feel worried about %s.", monnam(mtmp)); } else if(moves > edog->hungrytime + 750 || mtmp->mhp < 1){ if(cansee(omx,omy)) pline("%s dies from hunger.", Monnam(mtmp)); else pline("You have a sad feeling for a moment, then it passes."); mondied(mtmp); return(2); } dogroom = inroom(omx,omy); uroom = inroom(u.ux,u.uy); udist = dist(omx,omy); /* maybe we tamed him while being swallowed --jgm */ if(!udist) return(0); /* if we are carrying sth then we drop it (perhaps near @) */ /* Note: if apport == 1 then our behaviour is independent of udist */ if(mtmp->minvent){ if(!rn2(udist) || !rn2((int) edog->apport)) if(rn2(10) < edog->apport){ relobj(mtmp, (int) mtmp->minvis); if(edog->apport > 1) edog->apport--; edog->dropdist = udist; /* hpscdi!jon */ edog->droptime = moves; } } else { if ((obj = o_at(omx,omy))) if(!strchr("0_", obj->olet)){ if((otyp = dogfood(obj)) <= CADAVER){ nix = omx; niy = omy; goto eatobj; } if (obj->owt < 10*mtmp->data->mlevel) if (rn2(20) < edog->apport+3) if (rn2(udist) || !rn2((int) edog->apport)){ freeobj(obj); unpobj(obj); /* if(levl[omx][omy].scrsym == obj->olet) newsym(omx,omy); */ mpickobj(mtmp,obj); } } } /* first we look for food */ gtyp = UNDEF; /* no goal as yet */ gx = gy = 0; for(obj = fobj; obj; obj = obj->nobj) { otyp = dogfood(obj); if(otyp > gtyp || otyp == UNDEF) continue; if(inroom(obj->ox,obj->oy) != dogroom) continue; if(otyp < MANFOOD && (dogroom >= 0 || DDIST(obj->ox,obj->oy) < 10)) { if(otyp < gtyp || (otyp == gtyp && DDIST(obj->ox,obj->oy) < DDIST(gx,gy))){ gx = obj->ox; gy = obj->oy; gtyp = otyp; } } else if(gtyp == UNDEF && dogroom >= 0 && uroom == dogroom && !mtmp->minvent && edog->apport > rn2(8)){ gx = obj->ox; gy = obj->oy; gtyp = APPORT; } } if(gtyp == UNDEF || (gtyp != DOGFOOD && gtyp != APPORT && moves < edog->hungrytime)){ if(dogroom < 0 || dogroom == uroom){ gx = u.ux; gy = u.uy; #ifndef QUEST } else { int tmp = rooms[(int)dogroom].fdoor; cnt = rooms[(int)dogroom].doorct; gx = gy = FAR; /* random, far away */ while(cnt--){ if(dist(gx,gy) > dist(doors[tmp].x, doors[tmp].y)){ gx = doors[tmp].x; gy = doors[tmp].y; } tmp++; } /* here gx == FAR e.g. when dog is in a vault */ if(gx == FAR || (gx == omx && gy == omy)){ gx = u.ux; gy = u.uy; } #endif /* QUEST */ } appr = (udist >= 9) ? 1 : (mtmp->mflee) ? -1 : 0; if(after && udist <= 4 && gx == u.ux && gy == u.uy) return(0); if(udist > 1){ if (!IS_ROOM(levl[(int)u.ux][(int)u.uy].typ) || !rn2(4) || whappr || (mtmp->minvent && rn2((int) edog->apport))) appr = 1; } /* if you have dog food he'll follow you more closely */ if (appr == 0) { obj = invent; while(obj){ if(obj->otyp == TRIPE_RATION){ appr = 1; break; } obj = obj->nobj; } } } else appr = 1; /* gtyp != UNDEF */ if(mtmp->mconf) appr = 0; if(gx == u.ux && gy == u.uy && (dogroom != uroom || dogroom < 0)){ coord *cp; cp = gettrack(omx,omy); if(cp){ gx = cp->x; gy = cp->y; } } nix = omx; niy = omy; cnt = mfndpos(mtmp,poss,info,ALLOW_M | ALLOW_TRAPS); chcnt = 0; chi = -1; for(i=0; i<cnt; i++){ nx = poss[i].x; ny = poss[i].y; if(info[i] & ALLOW_M){ mtmp2 = m_at(nx,ny); if(mtmp2->data->mlevel >= mdat->mlevel+2 || mtmp2->data->mlet == 'c') continue; if(after) return(0); /* hit only once each move */ if(hitmm(mtmp, mtmp2) == 1 && rn2(4) && mtmp2->mlstmv != moves && hitmm(mtmp2,mtmp) == 2) return(2); return(0); } /* dog avoids traps */ /* but perhaps we have to pass a trap in order to follow @ */ if((info[i] & ALLOW_TRAPS) && (trap = t_at(nx,ny))){ if(!trap->tseen && rn2(40)) continue; if(rn2(10)) continue; } /* dog eschewes cursed objects */ /* but likes dog food */ obj = fobj; while(obj){ if(obj->ox != nx || obj->oy != ny) goto nextobj; if(obj->cursed) goto nxti; if(obj->olet == FOOD_SYM && (otyp = dogfood(obj)) < MANFOOD && (otyp < ACCFOOD || edog->hungrytime <= moves)){ /* Note: our dog likes the food so much that he might eat it even when it conceals a cursed object */ nix = nx; niy = ny; chi = i; eatobj: edog->eattime = moves + obj->quan * objects[obj->otyp].oc_delay; if(edog->hungrytime < moves) edog->hungrytime = moves; edog->hungrytime += 5*obj->quan * objects[obj->otyp].nutrition; mtmp->mconf = 0; if(cansee(nix,niy)) pline("%s ate %s.", Monnam(mtmp), doname(obj)); /* perhaps this was a reward */ if(otyp != CADAVER) edog->apport += 200/(edog->dropdist+moves-edog->droptime); delobj(obj); goto newdogpos; } nextobj: obj = obj->nobj; } for(j=0; j<MTSZ && j<cnt-1; j++) if(nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y) if(rn2(4*(cnt-j))) goto nxti; /* Some stupid C compilers cannot compute the whole expression at once. */ nearer = GDIST(nx,ny); nearer -= GDIST(nix,niy); nearer *= appr; if((nearer == 0 && !rn2(++chcnt)) || nearer<0 || (nearer > 0 && !whappr && ((omx == nix && omy == niy && !rn2(3)) || !rn2(12)) )){ nix = nx; niy = ny; if(nearer < 0) chcnt = 0; chi = i; } nxti: ; } newdogpos: if(nix != omx || niy != omy){ if(info[chi] & ALLOW_U){ (void) hitu(mtmp, d(mdat->damn, mdat->damd)+1); return(0); } mtmp->mx = nix; mtmp->my = niy; for(j=MTSZ-1; j>0; j--) mtmp->mtrack[j] = mtmp->mtrack[j-1]; mtmp->mtrack[0].x = omx; mtmp->mtrack[0].y = omy; } if(mintrap(mtmp) == 2) /* he died */ return(2); pmon(mtmp); return(1); }
int m_move(struct monst *mtmp, int after) { struct monst *mtmp2; int nx = 0; int ny = 0; int omx; int omy; int appr; int nearer; int cnt; int i; int j; xchar gx; xchar gy; xchar nix; xchar niy; xchar chcnt; schar chi; boolean likegold = 0; boolean likegems = 0; boolean likeobjs = 0; /* Not strictly necessary: chi >= 0 will do */ schar mmoved = 0; coord poss[9]; int info[9]; if(mtmp->mtrapped != 0) { i = mintrap(mtmp); if(i == 2) { /* He died */ return 2; } if(i == 1) { /* Still in trap so didn't move */ return 0; } } if((mtmp->mhide != 0) && (o_at(mtmp->mx, mtmp->my) != NULL) && (rn2(10) != 0)) { /* Do not leave hiding place */ return 0; } /* My dog gets a special treatment */ if(mtmp->mtame != 0) { return dog_move(mtmp, after); } /* Likewise for shopkeeper */ if(mtmp->isshk != 0) { mmoved = shk_move(); if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } /* And for the guard */ if(mtmp->isgd != 0) { mmoved = gd_move(); if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } if((mtmp->data->mlet == 't') && (rn2(5) == 0)) { if(rn2(2) != 0) { mnexto(mtmp); } else { rloc(mtmp); } mmoved = 1; if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } if((mtmp->data->mlet == 'D') && (mtmp->mcan == 0)) { inrange(mtmp); } if((Blind == 0) && (Confusion == 0) && (mtmp->data->mlet == 'U') && (mtmp->mcan == 0) && (cansee(mtmp->mx, mtmp->my) != 0) && (rn2(5) != 0)) { pline("%s's gaze has confused you!", Monnam(mtmp)); if(rn2(5) != 0) { mtmp->mcan = 1; } /* Timeout */ Confusion = d(3, 4); } if((mtmp->mflee == 0) && (u.uswallow != 0) && (u.ustuck != mtmp)) { return 1; } appr = 1; if(mtmp->mflee != 0) { appr = -1; } if((mtmp->mconf != 0) || (Invis != 0) || (mtmp->mcansee == 0) || ((index("Biy", mtmp->data->mlet) != 0) && (rn2(3) == 0))) { appr = 0; } omx = mtmp->mx; omy = mtmp->my; gx = u.ux; gy = u.uy; if((mtmp->data->mlet == 'L') && (appr == 1) && (mtmp->mgold > u.ugold)) { appr = -1; } #ifdef TRACK /* * Random criterion for 'smell' * should use mtmp->msmell */ if(('a' <= mtmp->data->mlet) && (mtmp->data->mlet <= 'z')) { coord *cp; schar mroom; mroom = inroom(omx, omy); if((mroom < 0) || (mroom != inroom(u.ux, u.uy))) { cp = gettrack(omx, omy); if(cp != 0) { gx = cp->x; gy = cp->y; } } } #endif /* Look for gold or jewels nearby */ if(index("LOD", mtmp->data->mlet) != NULL) { likegold = 1; } else { likegold = 0; } if(index("ODu", mtmp->data->mlet) != NULL) { likegems = 1; } else { likegems = 0; } likeobjs = mtmp->mhide; #define SRCHRADIUS 25 /* Not too far away */ xchar mind = SRCHRADIUS; int dd; if(likegold != 0) { struct gen *gold; for(gold = fgold; gold != NULL; gold = gold->ngen) { dd = DIST(omx, omy, gold->gx, gold->gy); if(dd < mind) { mind = dd; gx = gold->gx; gy = gold->gy; } } } if((likegems != 0) || (likeobjs != 0)) { struct obj *otmp; for(otmp = fobj; otmp != NULL; otmp = otmp->nobj) { if((likeobjs != 0) || (otmp->olet == GEM_SYM)) { if((mtmp->data->mlet != 'u') || (objects[otmp->otyp].g_val != 0)) { dd = DIST(omx, omy, otmp->ox, otmp->oy); if(dd < mind) { mind = dd; gx = otmp->ox; gy = otmp->oy; } } } } } if((mind < SRCHRADIUS) && (appr == -1)) { if(dist(omx, omy) < 10) { gx = u.ux; gy = u.uy; } else { appr = 1; } } nix = omx; niy = omy; if(mtmp->data->mlet == 'u') { cnt = mfndpos(mtmp, poss, info, NOTONL); } else { if(index(" VWZ", mtmp->data->mlet) != 0) { cnt = mfndpos(mtmp, poss, info, NOGARLIC); } else { cnt = mfndpos(mtmp, poss, info, ALLOW_TRAPS); } } /* ALLOW_ROCK for some monsters? */ chcnt = 0; chi = -1; for(i = 0; i < cnt; ++i) { nx = poss[i].x; nx = poss[i].y; for(j = 0; (j < MTSZ) && (j < (cnt - 1)); ++j) { if((nx == mtmp->mtrack[j].x) && (ny == mtmp->mtrack[j].y)) { if(rn2(4 * (cnt - j)) == 0) { #ifdef STUPID /* Some stupid compilers thing that is is too complicated */ int d1 = DIST(nx, ny, gx, gy); int d2 = DIST(nix, niy, gx, gy); if(d1 < d2) { nearer = 1; } else { nearer = 0; } #else if(DIST(nx, ny, gx, gy) < DIST(nix, niy, gx, gy)) { nearer = 1; } else { nearer = 0; } #endif if(((appr == 1) && (nearer != 0)) || ((appr == -1) && (nearer == 0)) || (mmoved == 0)) { nix = nx; niy = ny; chi = i; mmoved = 1; } else { if(appr == 0) { if(rn2(chcnt) == 0) { ++chcnt; nix = nx; niy = ny; chi = i; mmoved = 1; } else { ++chcnt; } } } } } } } if(mmoved != 0) { if((info[(int)chi] & ALLOW_M) != 0) { mtmp2 = m_at(nix, niy); if((hitmm(mtmp, mtmp2) == 1) && (rn2(4) != 0) && (hitmm(mtmp2, mtmp) == 2)) { return 2; } return 0; } if((info[(int)chi] & ALLOW_U) != 0) { hitu(mtmp, d(mtmp->data->damn, mtmp->data->damd) + 1); return 0; } mtmp->mx = nix; mtmp->my = niy; for(j = MTSZ - 1; j > 0; --j) { mtmp->mtrack[j] = mtmp->mtrack[j - 1]; } mtmp->mtrack[0].x = omx; mtmp->mtrack[0].y = omy; #ifndef NOWORM if(mtmp->wormno != 0) { worm_move(mtmp); } #endif } else { if((mtmp->data->mlet == 'u') && (rn2(2) != 0)) { rloc(mtmp); return 0; } #ifndef NOWORM if(mtmp->wormno != 0) { worm_nomove(mtmp); } #endif } if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } pmon(mtmp); return mmoved; }
/* u.dx and u.dy must be set */ bool attack(struct monst *mtmp) { schar tmp; boolean malive = TRUE; struct permonst *mdat; mdat = mtmp->data; u_wipe_engr(3); /* andrew@orca: prevent unlimited pick-axe attacks */ if (mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep && !mtmp->mconf && mtmp->mcansee && !rn2(7) && (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */ mtmp->mx != u.ux + u.dx || mtmp->my != u.uy + u.dy)) return (FALSE); if (mtmp->mimic) { if (!u.ustuck && !mtmp->mflee) u.ustuck = mtmp; switch (levl[u.ux + u.dx][u.uy + u.dy].scrsym) { case '+': pline("The door actually was a Mimic."); break; case '$': pline("The chest was a Mimic!"); break; default: pline("Wait! That's a Mimic!"); } wakeup(mtmp); /* clears mtmp->mimic */ return (TRUE); } wakeup(mtmp); if (mtmp->mhide && mtmp->mundetected) { struct obj *obj; mtmp->mundetected = 0; if ((obj = o_at(mtmp->mx, mtmp->my)) && !Blind) pline("Wait! There's a %s hiding under %s!", mdat->mname, doname(obj)); return (TRUE); } tmp = u.uluck + u.ulevel + mdat->ac + abon(); if (uwep) { if (uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE) tmp += uwep->spe; if (uwep->otyp == TWO_HANDED_SWORD) tmp -= 1; else if (uwep->otyp == DAGGER) tmp += 2; else if (uwep->otyp == CRYSKNIFE) tmp += 3; else if (uwep->otyp == SPEAR && strchr("XDne", mdat->mlet)) tmp += 2; } if (mtmp->msleep) { mtmp->msleep = 0; tmp += 2; } if (mtmp->mfroz) { tmp += 4; if (!rn2(10)) mtmp->mfroz = 0; } if (mtmp->mflee) tmp += 2; if (u.utrap) tmp -= 3; /* with a lot of luggage, your agility diminishes */ tmp -= (inv_weight() + 40) / 20; if (tmp <= rnd(20) && !u.uswallow) { if (Blind) pline("You miss it."); else pline("You miss %s.", monnam(mtmp)); } else { /* we hit the monster; be careful: it might die! */ if ((malive = hmon(mtmp, uwep, 0)) == TRUE) { /* monster still alive */ if (!rn2(25) && mtmp->mhp < mtmp->mhpmax / 2) { mtmp->mflee = 1; if (!rn2(3)) mtmp->mfleetim = rnd(100); if (u.ustuck == mtmp && !u.uswallow) u.ustuck = 0; } #ifndef NOWORM if (mtmp->wormno) cutworm(mtmp, u.ux + u.dx, u.uy + u.dy, uwep ? uwep->otyp : 0); #endif /* NOWORM */ } if (mdat->mlet == 'a') { if (rn2(2)) { pline("You are splashed by the blob's acid!"); losehp_m(rnd(6), mtmp); if (!rn2(30)) corrode_armor(); } if (!rn2(6)) corrode_weapon(); } } if (malive && mdat->mlet == 'E' && canseemon(mtmp) && !mtmp->mcan && rn2(3)) { if (mtmp->mcansee) { pline("You are frozen by the floating eye's gaze!"); nomul((u.ulevel > 6 || rn2(4)) ? rn1(20, -21) : -200); } else { pline("The blinded floating eye cannot defend itself."); if (!rn2(500)) if ((int)u.uluck > LUCKMIN) u.uluck--; } } return (TRUE); }