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 } 359