Source:NetHack 3.1.0/uhitm.c
Jump to navigation
Jump to search
Below is the full text to uhitm.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/uhitm.c#line123]], for example.
Warning! This is the source code from an old release. For the latest release, see Source code
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.
1. /* SCCS Id: @(#)uhitm.c 3.1 92/12/10 */ 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* NetHack may be freely redistributed. See license for details. */ 4. 5. #include "hack.h" 6. 7. static boolean FDECL(known_hitum, (struct monst *,int)); 8. static boolean FDECL(hitum, (struct monst *,int)); 9. #ifdef POLYSELF 10. static int FDECL(explum, (struct monst *,struct attack *)); 11. static int FDECL(gulpum, (struct monst *,struct attack *)); 12. static boolean FDECL(hmonas, (struct monst *,int)); 13. #endif 14. static void FDECL(nohandglow, (struct monst *)); 15. 16. extern boolean notonhead; /* for long worms */ 17. /* The below might become a parameter instead if we use it a lot */ 18. static int dieroll; 19. 20. struct monst * 21. clone_mon(mon) 22. struct monst *mon; 23. { 24. coord mm; 25. struct monst *m2; 26. 27. mm.x = mon->mx; 28. mm.y = mon->my; 29. if (!enexto(&mm, mm.x, mm.y, mon->data)) return (struct monst *)0; 30. if (MON_AT(mm.x, mm.y) || mon->mhp <= 1) return (struct monst *)0; 31. /* may have been extinguished for population control */ 32. if(mon->data->geno & G_EXTINCT) return((struct monst *) 0); 33. m2 = newmonst(0); 34. *m2 = *mon; /* copy condition of old monster */ 35. m2->nmon = fmon; 36. fmon = m2; 37. m2->m_id = flags.ident++; 38. m2->mx = mm.x; 39. m2->my = mm.y; 40. 41. m2->minvent = (struct obj *) 0; /* objects don't clone */ 42. m2->mleashed = FALSE; 43. m2->mgold = 0L; 44. /* Max HP the same, but current HP halved for both. The caller 45. * might want to override this by halving the max HP also. 46. */ 47. m2->mhpmax = mon->mhpmax; 48. m2->mhp = mon->mhp /= 2; 49. 50. /* since shopkeepers and guards will only be cloned if they've been 51. * polymorphed away from their original forms, the clone doesn't have 52. * room for the extra information. we also don't want two shopkeepers 53. * around for the same shop. 54. * similarly, clones of named monsters don't have room for the name, 55. * so we just make the clone unnamed instead of bothering to create 56. * a clone with room and copying over the name from the right place 57. * (which changes if the original was a shopkeeper or guard). 58. */ 59. if (mon->isshk) m2->isshk = FALSE; 60. if (mon->isgd) m2->isgd = FALSE; 61. if (mon->ispriest) m2->ispriest = FALSE; 62. m2->mxlth = 0; 63. m2->mnamelth = 0; 64. place_monster(m2, m2->mx, m2->my); 65. newsym(m2->mx,m2->my); /* display the new monster */ 66. if (mon->mtame) { 67. struct monst *m3; 68. 69. /* because m2 is a copy of mon it is tame but not init'ed. 70. * however, tamedog will not re-tame a tame dog, so m2 71. * must be made non-tame to get initialized properly. 72. */ 73. m2->mtame = 0; 74. if ((m3 = tamedog(m2, (struct obj *)0)) != 0) 75. m2 = m3; 76. } 77. return m2; 78. } 79. 80. boolean 81. special_case(mtmp) 82. /* Moved this code from attack() in order to */ 83. /* avoid having to duplicate it in dokick. */ 84. register struct monst *mtmp; 85. { 86. char qbuf[QBUFSZ]; 87. 88. if(mtmp->m_ap_type && !Protection_from_shape_changers 89. && !sensemon(mtmp)) { 90. stumble_onto_mimic(mtmp); 91. mtmp->data->mflags3 &= ~M3_WAITMASK; 92. return(1); 93. } 94. 95. if(mtmp->mundetected && hides_under(mtmp->data) && !canseemon(mtmp)) { 96. mtmp->mundetected = 0; 97. if (!(Blind ? Telepat : (HTelepat & (W_ARMH|W_AMUL|W_ART)))) { 98. register struct obj *obj; 99. 100. if(Blind) 101. pline("Wait! There's a hidden monster there!"); 102. else if ((obj = level.objects[mtmp->mx][mtmp->my]) != 0) 103. pline("Wait! There's %s hiding under %s!", 104. an(l_monnam(mtmp)), doname(obj)); 105. wakeup(mtmp); 106. mtmp->data->mflags3 &= ~M3_WAITMASK; 107. return(TRUE); 108. } 109. } 110. 111. if (flags.confirm && mtmp->mpeaceful 112. && !Confusion && !Hallucination && !Stunned) { 113. /* Intelligent chaotic weapons (Stormbringer) want blood */ 114. if (uwep && uwep->oartifact == ART_STORMBRINGER) 115. return(FALSE); 116. 117. if (canspotmon(mtmp)) { 118. Sprintf(qbuf, "Really attack %s?", mon_nam(mtmp)); 119. if (yn(qbuf) != 'y') { 120. flags.move = 0; 121. mtmp->data->mflags3 &= ~M3_WAITMASK; 122. return(TRUE); 123. } 124. } 125. } 126. 127. return(FALSE); 128. } 129. 130. schar 131. find_roll_to_hit(mtmp) 132. register struct monst *mtmp; 133. { 134. schar tmp; 135. int tmp2; 136. struct permonst *mdat = mtmp->data; 137. 138. tmp = 1 + Luck + abon() + 139. find_mac(mtmp) + 140. #ifdef POLYSELF 141. ((u.umonnum >= 0) ? uasmon->mlevel : u.ulevel); 142. #else 143. u.ulevel; 144. #endif 145. 146. /* it is unchivalrous to attack the defenseless or from behind */ 147. if (pl_character[0] == 'K' && u.ualign.type == A_LAWFUL && 148. (!mtmp->mcanmove || mtmp->msleep || mtmp->mflee) && 149. u.ualign.record > -10) adjalign(-1); 150. 151. /* attacking peaceful creatures is bad for the samurai's giri */ 152. if (pl_character[0] == 'S' && mtmp->mpeaceful && 153. u.ualign.record > -10) adjalign(-1); 154. 155. /* Adjust vs. (and possibly modify) monster state. */ 156. 157. if(mtmp->mstun) tmp += 2; 158. if(mtmp->mflee) tmp += 2; 159. 160. if(mtmp->msleep) { 161. mtmp->msleep = 0; 162. tmp += 2; 163. } 164. if(!mtmp->mcanmove) { 165. tmp += 4; 166. if(!rn2(10)) { 167. mtmp->mcanmove = 1; 168. mtmp->mfrozen = 0; 169. } 170. } 171. if (is_orc(mtmp->data) && pl_character[0]=='E') tmp++; 172. 173. /* with a lot of luggage, your agility diminishes */ 174. if(tmp2 = near_capacity()) tmp -= (tmp2*2) - 1; 175. if(u.utrap) tmp -= 3; 176. #ifdef POLYSELF 177. /* Some monsters have a combination of weapon attacks and non-weapon 178. * attacks. It is therefore wrong to add hitval to tmp; we must add it 179. * only for the specific attack (in hmonas()). 180. */ 181. if(uwep && u.umonnum == -1) tmp += hitval(uwep, mdat); 182. #else 183. if(uwep) tmp += hitval(uwep, mdat); 184. #endif 185. return tmp; 186. } 187. 188. /* try to attack; return FALSE if monster evaded */ 189. /* u.dx and u.dy must be set */ 190. boolean 191. attack(mtmp) 192. register struct monst *mtmp; 193. { 194. schar tmp; 195. register struct permonst *mdat = mtmp->data; 196. 197. /* This section of code provides protection against accidentally 198. * hitting peaceful (like '@') and tame (like 'd') monsters. 199. * Protection is provided as long as player is not: blind, confused, 200. * hallucinating or stunned. 201. * changes by wwp 5/16/85 202. * More changes 12/90, -dkh-. if its tame and safepet, (and protected 203. * 07/92) then we assume that you're not trying to attack. Instead, 204. * you'll usually just swap places if this is a movement command 205. */ 206. /* Intelligent chaotic weapons (Stormbringer) want blood */ 207. if (is_safepet(mtmp) && 208. (!uwep || uwep->oartifact != ART_STORMBRINGER)) { 209. /* there are some additional considerations: this won't work 210. * if in a shop or Punished or you miss a random roll or 211. * if you can walk thru walls and your pet cannot (KAA) or 212. * if your pet is a long worm (unless someone does better). 213. * there's also a chance of displacing a "frozen" monster. 214. * sleeping monsters might magically walk in their sleep. 215. */ 216. unsigned int foo = (Punished || 217. !rn2(7) || is_longworm(mtmp->data)); 218. 219. if (*in_rooms(mtmp->mx, mtmp->my, SHOPBASE) || foo 220. #ifdef POLYSELF 221. || (IS_ROCK(levl[u.ux][u.uy].typ) && 222. !passes_walls(mtmp->data)) 223. #endif 224. ) { 225. mtmp->mflee = 1; 226. mtmp->mfleetim = rnd(6); 227. You("stop. %s is in your way!", 228. (mtmp->mnamelth ? NAME(mtmp) : Monnam(mtmp))); 229. return(TRUE); 230. } else if ((mtmp->mfrozen || (! mtmp->mcanmove) 231. || (mtmp->data->mmove == 0)) && rn2(6)) { 232. pline("%s doesn't seem to move!", Monnam(mtmp)); 233. return(TRUE); 234. } else return(FALSE); 235. } 236. 237. /* moved code to a separate function to share with dokick */ 238. if(special_case(mtmp)) return(TRUE); 239. 240. #ifdef POLYSELF 241. if(u.umonnum >= 0) { /* certain "pacifist" monsters don't attack */ 242. set_uasmon(); 243. if(noattacks(uasmon)) { 244. You("have no way to attack monsters physically."); 245. mtmp->data->mflags3 &= ~M3_WAITMASK; 246. return(TRUE); 247. } 248. } 249. #endif 250. 251. if(check_capacity("You cannot fight while so heavily loaded.")) 252. return (TRUE); 253. 254. if(unweapon) { 255. unweapon=FALSE; 256. if(flags.verbose) 257. if(uwep) 258. You("begin bashing monsters with your %s.", 259. aobjnam(uwep, NULL)); 260. else 261. #ifdef POLYSELF 262. if (!cantwield(uasmon)) 263. #endif 264. You("begin bashing monsters with your %s hands.", 265. uarmg ? "gloved" : "bare"); /* Del Lamb */ 266. } 267. exercise(A_STR, TRUE); /* you're exercising muscles */ 268. /* andrew@orca: prevent unlimited pick-axe attacks */ 269. u_wipe_engr(3); 270. 271. if(mdat->mlet == S_LEPRECHAUN && mtmp->mfrozen && !mtmp->msleep && 272. !mtmp->mconf && mtmp->mcansee && !rn2(7) && 273. (m_move(mtmp, 0) == 2 || /* it died */ 274. mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy)) /* it moved */ 275. return(FALSE); 276. 277. tmp = find_roll_to_hit(mtmp); 278. #ifdef POLYSELF 279. if (u.umonnum >= 0) (void) hmonas(mtmp, tmp); 280. else 281. #endif 282. (void) hitum(mtmp, tmp); 283. 284. mtmp->data->mflags3 &= ~M3_WAITMASK; 285. return(TRUE); 286. } 287. 288. static boolean 289. known_hitum(mon, mhit) /* returns TRUE if monster still lives */ 290. /* Made into a separate function because in some cases we want to know 291. * in the calling function whether we hit. 292. */ 293. register struct monst *mon; 294. register int mhit; 295. { 296. register boolean malive = TRUE, special; 297. 298. /* we need to know whether the special monster was peaceful */ 299. /* before the attack, to save idle calls to angry_guards() */ 300. special = (mon->mpeaceful && (mon->data == &mons[PM_WATCHMAN] || 301. mon->data == &mons[PM_WATCH_CAPTAIN] || 302. mon->ispriest || mon->isshk)); 303. 304. if(!mhit) { 305. if(flags.verbose) You("miss %s.", mon_nam(mon)); 306. else You("miss it."); 307. if(!mon->msleep && mon->mcanmove) 308. wakeup(mon); 309. #ifdef MUSE 310. else if (uwep && uwep->otyp == TSURUGI && 311. MON_WEP(mon) && !rn2(20)) { 312. /* 1/20 chance of shattering defender's weapon */ 313. struct obj *obj = MON_WEP(mon); 314. 315. MON_NOWEP(mon); 316. m_useup(mon, obj); 317. pline("%s weapon shatters!", s_suffix(Monnam(mon))); 318. /* perhaps this will freak out the monster */ 319. if (!rn2(3)) { 320. mon->mflee = 1; 321. mon->mfleetim += rnd(20); 322. } 323. } 324. #endif 325. } else { 326. /* we hit the monster; be careful: it might die! */ 327. notonhead = (mon->mx != u.ux+u.dx || mon->my != u.uy+u.dy); 328. if((malive = hmon(mon, uwep, 0)) == TRUE) { 329. /* monster still alive */ 330. if(!rn2(25) && mon->mhp < mon->mhpmax/2) { 331. mon->mflee = 1; 332. if(!rn2(3)) mon->mfleetim = rnd(100); 333. if(u.ustuck == mon && !u.uswallow 334. #ifdef POLYSELF 335. && !sticks(uasmon) 336. #endif 337. ) 338. u.ustuck = 0; 339. } 340. if (mon->wormno) cutworm(mon, u.ux+u.dx, u.uy+u.dy, uwep); 341. } 342. if(mon->ispriest && !rn2(2)) ghod_hitsu(mon); 343. if(special) (void) angry_guards(!flags.soundok); 344. } 345. return(malive); 346. } 347. 348. static boolean 349. hitum(mon, tmp) /* returns TRUE if monster still lives */ 350. struct monst *mon; 351. int tmp; 352. { 353. static int NEARDATA malive; 354. boolean mhit = (tmp > (dieroll = rnd(20)) || u.uswallow); 355. 356. if(tmp > dieroll) exercise(A_DEX, TRUE); 357. malive = known_hitum(mon, mhit); 358. (void) passive(mon, mhit, malive, FALSE); 359. return(malive); 360. } 361. 362. boolean /* general "damage monster" routine */ 363. hmon(mon, obj, thrown) /* return TRUE if mon still alive */ 364. register struct monst *mon; 365. register struct obj *obj; 366. register int thrown; 367. { 368. int tmp; 369. struct permonst *mdat = mon->data; 370. /* Why all these booleans? This stuff has to be done in the 371. * following order: 372. * 1) Know what we're attacking with, and print special hittxt for 373. * unusual cases. 374. * 2a) Know whether we did damage (depends on 1) 375. * 2b) Know if it's poisoned (depends on 1) 376. * 2c) Know whether we get a normal damage bonus or not (depends on 1) 377. * 3a) Know what the value of the damage bonus is (depends on 2c) 378. * 3b) Know how much poison damage was taken (depends on 2b) and if the 379. * poison instant-killed it 380. * 4) Know if it was killed (requires knowing 3a, 3b) except by instant- 381. * kill poison 382. * 5) Print hit message (depends on 1 and 4) 383. * 6a) Print poison message (must be done after 5) 384. #if 0 385. * 6b) Rust weapon (must be done after 5) 386. #endif 387. * 7) Possibly kill monster (must be done after 6a, 6b) 388. * 8) Instant-kill from poison (can happen anywhere between 5 and 9) 389. * 9) Hands not glowing (must be done after 7 and 8) 390. * The major problem is that since we don't want a "hit" message 391. * when the monster dies, we have to know how much damage it did 392. * _before_ outputting a hit message, but any messages associated with 393. * the damage don't come out until _after_ outputting a hit message. 394. */ 395. boolean hittxt = FALSE, destroyed = FALSE; 396. boolean get_dmg_bonus = TRUE; 397. boolean ispoisoned = FALSE, needpoismsg = FALSE, poiskilled = FALSE; 398. boolean silvermsg = FALSE; 399. 400. wakeup(mon); 401. if(!obj) { /* attack with bare hands */ 402. if (mdat == &mons[PM_SHADE]) 403. tmp = 0; 404. else 405. tmp = rnd(2); 406. #if 0 407. if(mdat == &mons[PM_COCKATRICE] && !uarmg 408. #ifdef POLYSELF 409. && !resists_ston(uasmon) 410. #endif 411. ) { 412. 413. You("hit %s with your bare %s.", 414. mon_nam(mon), makeplural(body_part(HAND))); 415. # ifdef POLYSELF 416. if(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) 417. return TRUE; 418. # endif 419. You("turn to stone..."); 420. done_in_by(mon); 421. hittxt = TRUE; /* maybe lifesaved */ 422. } 423. #endif 424. } else { 425. if(obj->oclass == WEAPON_CLASS || obj->otyp == PICK_AXE || 426. obj->otyp == UNICORN_HORN || obj->oclass == ROCK_CLASS) { 427. 428. /* If not a melee weapon, and either not thrown, or thrown */ 429. /* and a bow (bows are >BOOMERANG), or thrown and a missile */ 430. /* without a propellor (missiles are <DART), do 1-2 points */ 431. if((obj->otyp >= BOW || obj->otyp < DART) 432. && obj->otyp != PICK_AXE && obj->otyp != UNICORN_HORN 433. && (!thrown || 434. (obj->oclass != ROCK_CLASS && 435. (obj->otyp > BOOMERANG || 436. (obj->otyp < DART && 437. (!uwep || 438. objects[obj->otyp].w_propellor != 439. -objects[uwep->otyp].w_propellor) 440. ))))) { 441. if (mdat == &mons[PM_SHADE] && obj->otyp != SILVER_ARROW) 442. tmp = 0; 443. else 444. tmp = rnd(2); 445. } else { 446. tmp = dmgval(obj, mdat); 447. if (obj->oartifact && 448. artifact_hit(&youmonst, mon, obj, &tmp, dieroll)) { 449. if(mon->mhp <= 0) /* artifact killed monster */ 450. return FALSE; 451. hittxt = TRUE; 452. } 453. if (objects[obj->otyp].oc_material == SILVER 454. && hates_silver(mdat)) 455. silvermsg = TRUE; 456. if(!thrown && obj == uwep && obj->otyp == BOOMERANG && 457. !rnl(3)) { 458. pline("As you hit %s, %s breaks into splinters.", 459. mon_nam(mon), the(xname(obj))); 460. useup(obj); 461. obj = (struct obj *) 0; 462. hittxt = TRUE; 463. if (mdat != &mons[PM_SHADE]) 464. tmp++; 465. } else if(thrown && 466. (obj->otyp >= ARROW && obj->otyp <= SHURIKEN)) { 467. if(uwep && obj->otyp < DART && 468. objects[obj->otyp].w_propellor == 469. -objects[uwep->otyp].w_propellor) { 470. /* Elves and Samurai do extra damage using 471. * their bows&arrows; they're highly trained. 472. */ 473. if (pl_character[0] == 'S' && 474. obj->otyp == YA && uwep->otyp == YUMI) 475. tmp++; 476. else if (pl_character[0] == 'E' && 477. obj->otyp == ELVEN_ARROW && 478. uwep->otyp == ELVEN_BOW) 479. tmp++; 480. } 481. if(((uwep && objects[obj->otyp].w_propellor == 482. -objects[uwep->otyp].w_propellor) 483. || obj->otyp==DART || obj->otyp==SHURIKEN) && 484. obj->opoisoned) 485. ispoisoned = TRUE; 486. } 487. } 488. } else if(obj->oclass == POTION_CLASS) { 489. if (obj->quan > 1L) setuwep(splitobj(obj, 1L)); 490. else setuwep((struct obj *)0); 491. freeinv(obj); 492. potionhit(mon,obj); 493. hittxt = TRUE; 494. if (mdat == &mons[PM_SHADE]) 495. tmp = 0; 496. else 497. tmp = 1; 498. } else { 499. switch(obj->otyp) { 500. case HEAVY_IRON_BALL: 501. tmp = rnd(25); break; 502. case BOULDER: 503. tmp = rnd(20); break; 504. case MIRROR: 505. You("break your mirror. That's bad luck!"); 506. change_luck(-2); 507. useup(obj); 508. obj = (struct obj *) 0; 509. hittxt = TRUE; 510. tmp = 1; 511. break; 512. #ifdef TOURIST 513. case EXPENSIVE_CAMERA: 514. You("succeed in destroying your camera. Congratulations!"); 515. useup(obj); 516. return(TRUE); 517. #endif 518. case CORPSE: /* fixed by polder@cs.vu.nl */ 519. if(obj->corpsenm == PM_COCKATRICE) { 520. You("hit %s with the cockatrice corpse.", 521. mon_nam(mon)); 522. if(resists_ston(mdat)) { 523. tmp = 1; 524. hittxt = TRUE; 525. break; 526. } 527. if(poly_when_stoned(mdat)) { 528. mon_to_stone(mon); 529. tmp = 1; 530. hittxt = TRUE; 531. break; 532. } 533. pline("%s turns to stone.", Monnam(mon)); 534. stoned = TRUE; 535. xkilled(mon,0); 536. return(FALSE); 537. } 538. tmp = mons[obj->corpsenm].msize + 1; 539. break; 540. case EGG: /* only possible if hand-to-hand */ 541. if(obj->corpsenm > -1 542. && obj->corpsenm != PM_COCKATRICE 543. && mdat == &mons[PM_COCKATRICE]) { 544. You("hit %s with the %s egg%s.", 545. mon_nam(mon), 546. mons[obj->corpsenm].mname, 547. plur(obj->quan)); 548. hittxt = TRUE; 549. pline("The egg%sn't live any more...", 550. (obj->quan == 1L) ? " is" : "s are"); 551. obj->otyp = ROCK; 552. obj->oclass = GEM_CLASS; 553. obj->known = obj->dknown = 0; 554. obj->owt = weight(obj); 555. } 556. tmp = 1; 557. break; 558. case CLOVE_OF_GARLIC: /* no effect against demons */ 559. if(is_undead(mdat)) mon->mflee = 1; 560. tmp = 1; 561. break; 562. case CREAM_PIE: 563. #ifdef POLYSELF 564. case BLINDING_VENOM: 565. if(Blind || !haseyes(mon->data)) 566. pline(obj->otyp==CREAM_PIE ? "Splat!" : "Splash!"); 567. else if (obj->otyp == BLINDING_VENOM) 568. pline("The venom blinds %s%s!", mon_nam(mon), 569. mon->mcansee ? "" : " further"); 570. #else 571. if(Blind) pline("Splat!"); 572. #endif 573. else 574. pline("The cream pie splashes over %s%s!", 575. mon_nam(mon), 576. (haseyes(mdat) && 577. mdat != &mons[PM_FLOATING_EYE]) 578. ? (*(eos(mon_nam(mon))-1) == 's' ? "' face" : 579. "'s face") : ""); 580. if(mon->msleep) mon->msleep = 0; 581. setmangry(mon); 582. if(haseyes(mon->data)) { 583. mon->mcansee = 0; 584. tmp = rn1(25, 21); 585. if(((int) mon->mblinded + tmp) > 127) 586. mon->mblinded = 127; 587. else mon->mblinded += tmp; 588. } 589. hittxt = TRUE; 590. get_dmg_bonus = FALSE; 591. tmp = 0; 592. break; 593. #ifdef POLYSELF 594. case ACID_VENOM: /* only possible if thrown */ 595. if(resists_acid(mdat)) { 596. Your("venom hits %s harmlessly.", 597. mon_nam(mon)); 598. tmp = 0; 599. } else { 600. Your("venom burns %s!", mon_nam(mon)); 601. tmp = dmgval(obj, mdat); 602. } 603. hittxt = TRUE; 604. get_dmg_bonus = FALSE; 605. break; 606. #endif 607. default: 608. /* non-weapons can damage because of their weight */ 609. /* (but not too much) */ 610. tmp = obj->owt/100; 611. if(tmp < 1) tmp = 1; 612. else tmp = rnd(tmp); 613. if(tmp > 6) tmp = 6; 614. } 615. if (mdat == &mons[PM_SHADE] && obj && 616. objects[obj->otyp].oc_material != SILVER) 617. tmp = 0; 618. } 619. } 620. 621. /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) 622. * *OR* if attacking bare-handed!! */ 623. 624. if (get_dmg_bonus && tmp) { 625. tmp += u.udaminc; 626. /* If you throw using a propellor, you don't get a strength 627. * bonus but you do get an increase-damage bonus. 628. */ 629. if(!thrown || !obj || !uwep || 630. (obj->oclass != GEM_CLASS && obj->oclass != WEAPON_CLASS) || 631. !objects[obj->otyp].w_propellor || 632. (objects[obj->otyp].w_propellor != 633. -objects[uwep->otyp].w_propellor)) 634. tmp += dbon(); 635. } 636. 637. /* TODO: Fix this up. multiple engulf attacks now exist. 638. if(u.uswallow) { 639. if((tmp -= u.uswldtim) <= 0) { 640. Your("%s are no longer able to hit.", 641. makeplural(body_part(ARM))); 642. return(TRUE); 643. } 644. } 645. */ 646. if (ispoisoned) { 647. if(resists_poison(mdat)) 648. needpoismsg = TRUE; 649. else if (rn2(10)) 650. tmp += rnd(6); 651. else poiskilled = TRUE; 652. } 653. if(tmp < 1) 654. if (mdat == &mons[PM_SHADE]) { 655. Your("attack passes harmlessly through %s.", 656. mon_nam(mon)); 657. hittxt = TRUE; 658. } else 659. tmp = 1; 660. 661. mon->mhp -= tmp; 662. if(mon->mhp < 1) 663. destroyed = TRUE; 664. if(mon->mtame && (!mon->mflee || mon->mfleetim)) { 665. #ifdef SOUNDS 666. if (rn2(8)) yelp(mon); 667. else growl(mon); /* give them a moment's worry */ 668. #endif 669. mon->mtame--; 670. if(!mon->mtame) newsym(mon->mx, mon->my); 671. mon->mflee = TRUE; /* Rick Richardson */ 672. mon->mfleetim += 10*rnd(tmp); 673. } 674. if((mdat == &mons[PM_BLACK_PUDDING] || mdat == &mons[PM_BROWN_PUDDING]) 675. && obj && obj == uwep 676. && objects[obj->otyp].oc_material == IRON 677. && mon->mhp > 1 && !thrown && !mon->mcan 678. /* && !destroyed -- guaranteed by mhp > 1 */ ) { 679. 680. if (clone_mon(mon)) { 681. pline("%s divides as you hit it!", Monnam(mon)); 682. hittxt = TRUE; 683. } 684. } 685. 686. if(!hittxt && !destroyed) { 687. if(thrown) 688. /* thrown => obj exists */ 689. hit(xname(obj), mon, exclam(tmp) ); 690. else if(!flags.verbose) You("hit it."); 691. else You("hit %s%s", mon_nam(mon), canseemon(mon) 692. ? exclam(tmp) : "."); 693. } 694. 695. if (silvermsg) { 696. if (canseemon(mon) || sensemon(mon)) 697. pline("The silver sears %s%s!", 698. mon_nam(mon), 699. noncorporeal(mdat) ? "" : 700. (*(eos(mon_nam(mon))-1) == 's' ? 701. "' flesh" : "'s flesh")); 702. else 703. pline("It%s is seared!", 704. noncorporeal(mdat) ? "" : "s flesh"); 705. } 706. 707. if (needpoismsg) 708. pline("The poison doesn't seem to affect %s.", mon_nam(mon)); 709. if (poiskilled) { 710. pline("The poison was deadly..."); 711. xkilled(mon, 0); 712. return FALSE; 713. } else if (destroyed) { 714. killed(mon); /* takes care of most messages */ 715. } else if(u.umconf && !thrown) { 716. nohandglow(mon); 717. if(!mon->mconf && !resist(mon, '+', 0, NOTELL)) { 718. mon->mconf = 1; 719. if(!mon->mstun && mon->mcanmove && !mon->msleep && 720. !Blind) 721. pline("%s appears confused.", Monnam(mon)); 722. } 723. } 724. 725. #if 0 726. if(mdat == &mons[PM_RUST_MONSTER] && obj && obj == uwep && 727. is_rustprone(obj) && obj->oeroded < MAX_ERODE) { 728. if (obj->greased) 729. grease_protect(obj,NULL,FALSE); 730. else if (obj->oerodeproof || (obj->blessed && !rnl(4))) { 731. if (flags.verbose) 732. pline("Somehow, your %s is not affected.", 733. is_sword(obj) ? "sword" : "weapon"); 734. } else { 735. Your("%s%s!", aobjnam(obj, "rust"), 736. obj->oeroded+1 == MAX_ERODE ? " completely" : 737. obj->oeroded ? " further" : ""); 738. obj->oeroded++; 739. } 740. } 741. #endif 742. 743. return(destroyed ? FALSE : TRUE); 744. } 745. 746. #ifdef POLYSELF 747. 748. int 749. damageum(mdef, mattk) 750. register struct monst *mdef; 751. register struct attack *mattk; 752. { 753. register struct permonst *pd = mdef->data; 754. register int tmp = d((int)mattk->damn, (int)mattk->damd); 755. 756. if (is_demon(uasmon) && !rn2(13) && !uwep 757. && u.umonnum != PM_SUCCUBUS && u.umonnum != PM_INCUBUS 758. && u.umonnum != PM_BALROG) { 759. struct monst *dtmp; 760. pline("Some hell-p has arrived!"); 761. if((dtmp = makemon(!rn2(6) ? &mons[ndemon()] : uasmon, u.ux, u.uy))) 762. (void)tamedog(dtmp, (struct obj *)0); 763. exercise(A_WIS, TRUE); 764. return(0); 765. } 766. 767. switch(mattk->adtyp) { 768. case AD_STUN: 769. if(!Blind) 770. pline("%s staggers for a moment.", Monnam(mdef)); 771. mdef->mstun = 1; 772. /* fall through to next case */ 773. case AD_WERE: /* no effect on monsters */ 774. case AD_HEAL: 775. case AD_LEGS: 776. case AD_PHYS: 777. if(mattk->aatyp == AT_WEAP) { 778. if(uwep) tmp = 0; 779. } else if(mattk->aatyp == AT_KICK) 780. if(thick_skinned(mdef->data)) tmp = 0; 781. break; 782. case AD_FIRE: 783. if(!Blind) pline("%s is on fire!", Monnam(mdef)); 784. tmp += destroy_mitem(mdef, SCROLL_CLASS, AD_FIRE); 785. tmp += destroy_mitem(mdef, SPBOOK_CLASS, AD_FIRE); 786. if(resists_fire(pd)) { 787. if (!Blind) 788. pline("The fire doesn't heat %s!", mon_nam(mdef)); 789. golemeffects(mdef, AD_FIRE, tmp); 790. shieldeff(mdef->mx, mdef->my); 791. tmp = 0; 792. } 793. /* only potions damage resistant players in destroy_item */ 794. tmp += destroy_mitem(mdef, POTION_CLASS, AD_FIRE); 795. break; 796. case AD_COLD: 797. if(!Blind) pline("%s is covered in frost!", Monnam(mdef)); 798. if(resists_cold(pd)) { 799. shieldeff(mdef->mx, mdef->my); 800. if (!Blind) 801. pline("The frost doesn't chill %s!", mon_nam(mdef)); 802. golemeffects(mdef, AD_COLD, tmp); 803. tmp = 0; 804. } 805. tmp += destroy_mitem(mdef, POTION_CLASS, AD_COLD); 806. break; 807. case AD_ELEC: 808. if (!Blind) pline("%s is zapped!", Monnam(mdef)); 809. tmp += destroy_mitem(mdef, WAND_CLASS, AD_ELEC); 810. if(resists_elec(pd)) { 811. if (!Blind) 812. pline("The zap doesn't shock %s!", mon_nam(mdef)); 813. golemeffects(mdef, AD_ELEC, tmp); 814. shieldeff(mdef->mx, mdef->my); 815. tmp = 0; 816. } 817. /* only rings damage resistant players in destroy_item */ 818. tmp += destroy_mitem(mdef, RING_CLASS, AD_ELEC); 819. break; 820. case AD_ACID: 821. if(resists_acid(pd)) tmp = 0; 822. break; 823. case AD_STON: 824. if(poly_when_stoned(pd)) 825. mon_to_stone(mdef); 826. else if(!resists_ston(pd)) { 827. stoned = TRUE; 828. if(!Blind) pline("%s turns to stone.", Monnam(mdef)); 829. xkilled(mdef, 0); 830. return(2); 831. } 832. tmp = 0; /* no damage if this fails */ 833. break; 834. # ifdef SEDUCE 835. case AD_SSEX: 836. # endif 837. case AD_SEDU: 838. case AD_SITM: 839. if(mdef->minvent) { 840. struct obj *otmp, *stealoid; 841. 842. stealoid = (struct obj *)0; 843. /* Without MUSE we can only change a monster's AC by stealing 844. * armor with the "unarmored soldier" kludge. With it there 845. * are many monsters which wear armor, and all can be stripped. 846. */ 847. if( 848. #ifndef MUSE 849. is_mercenary(pd) && 850. #endif 851. could_seduce(&youmonst,mdef,mattk)){ 852. for(otmp = mdef->minvent; otmp; otmp=otmp->nobj) 853. #ifdef MUSE 854. if (otmp->owornmask & W_ARM) stealoid = otmp; 855. #else 856. if (otmp->otyp >= PLATE_MAIL && otmp->otyp 857. <= ELVEN_CLOAK) stealoid = otmp; 858. #endif 859. } 860. if (stealoid) { 861. boolean stolen = FALSE; 862. /* Is "he"/"his" always correct? */ 863. if (gender(mdef) == u.mfemale && 864. uasmon->mlet == S_NYMPH) 865. You("charm %s. She gladly hands over her possessions.", mon_nam(mdef)); 866. else 867. You("seduce %s and %s starts to take off %s clothes.", 868. mon_nam(mdef), 869. gender(mdef) ? "she" : "he", 870. gender(mdef) ? "her" : "his"); 871. while(mdef->minvent) { 872. otmp = mdef->minvent; 873. mdef->minvent = otmp->nobj; 874. /* set dknown to insure proper merge */ 875. if (!Blind) otmp->dknown = 1; 876. #ifdef MUSE 877. otmp->owornmask = 0L; 878. #endif 879. if (!stolen && otmp==stealoid) { 880. otmp = hold_another_object(otmp, 881. (const char *)0, (const char *)0, 882. (const char *)0); 883. stealoid = otmp; 884. stolen = TRUE; 885. } else { 886. otmp = hold_another_object(otmp, 887. "You steal %s.", doname(otmp), 888. "You steal: "); 889. } 890. } 891. if (!stolen) 892. impossible("Player steal fails!"); 893. else { 894. pline("%s finishes taking off %s suit.", 895. Monnam(mdef), gender(mdef) ? "her" : "his"); 896. You("steal %s!", doname(stealoid)); 897. # if defined(ARMY) && !defined(MUSE) 898. mdef->data = &mons[PM_UNARMORED_SOLDIER]; 899. # endif 900. } 901. #ifdef MUSE 902. possibly_unwield(mdef); 903. mdef->misc_worn_check = 0L; 904. #endif 905. } else { 906. otmp = mdef->minvent; 907. mdef->minvent = otmp->nobj; 908. otmp = hold_another_object(otmp, "You steal %s.", 909. doname(otmp), "You steal: "); 910. #ifdef MUSE 911. possibly_unwield(mdef); 912. otmp->owornmask = 0L; 913. #endif 914. } 915. } 916. tmp = 0; 917. break; 918. case AD_SGLD: 919. if (mdef->mgold) { 920. u.ugold += mdef->mgold; 921. mdef->mgold = 0; 922. Your("purse feels heavier."); 923. } 924. exercise(A_DEX, TRUE); 925. tmp = 0; 926. break; 927. case AD_TLPT: 928. if(tmp <= 0) tmp = 1; 929. if(tmp < mdef->mhp) { 930. rloc(mdef); 931. if(!Blind) pline("%s suddenly disappears!", Monnam(mdef)); 932. } 933. break; 934. case AD_BLND: 935. if(haseyes(pd)) { 936. 937. if(!Blind) pline("%s is blinded.", Monnam(mdef)); 938. mdef->mcansee = 0; 939. mdef->mblinded += tmp; 940. } 941. tmp = 0; 942. break; 943. case AD_CURS: 944. if (night() && !rn2(10) && !mdef->mcan) { 945. if (mdef->data == &mons[PM_CLAY_GOLEM]) { 946. if (!Blind) 947. pline("Some writing vanishes from %s head!", 948. s_suffix(mon_nam(mdef))); 949. xkilled(mdef, 0); 950. return 2; 951. } 952. mdef->mcan = 1; 953. You("chuckle."); 954. } 955. tmp = 0; 956. break; 957. case AD_DRLI: 958. if(rn2(2) && !resists_drli(pd)) { 959. int xtmp = d(2,6); 960. pline("%s suddenly seems weaker!", Monnam(mdef)); 961. mdef->mhpmax -= xtmp; 962. if ((mdef->mhp -= xtmp) <= 0 || !mdef->m_lev--) { 963. pline("%s dies!", Monnam(mdef)); 964. xkilled(mdef,0); 965. return(2); 966. } 967. } 968. tmp = 0; 969. break; 970. case AD_RUST: 971. if (pd == &mons[PM_IRON_GOLEM]) { 972. pline("%s falls to pieces!", Monnam(mdef)); 973. xkilled(mdef,0); 974. return(2); 975. } 976. tmp = 0; 977. break; 978. case AD_DCAY: 979. if (pd == &mons[PM_WOOD_GOLEM] || 980. pd == &mons[PM_LEATHER_GOLEM]) { 981. pline("%s falls to pieces!", Monnam(mdef)); 982. xkilled(mdef,0); 983. return(2); 984. } 985. case AD_DRST: 986. case AD_DRDX: 987. case AD_DRCO: 988. if (!rn2(8)) { 989. Your("%s was poisoned!", mattk->aatyp==AT_BITE ? 990. "bite" : "sting"); 991. if (resists_poison(mdef->data)) 992. pline("The poison doesn't seem to affect %s.", 993. mon_nam(mdef)); 994. else { 995. if (!rn2(10)) { 996. Your("poison was deadly..."); 997. tmp = mdef->mhp; 998. } else tmp += rn1(10,6); 999. } 1000. } 1001. break; 1002. case AD_DRIN: 1003. if (!has_head(mdef->data)) { 1004. pline("%s doesn't seem harmed.", Monnam(mdef)); 1005. tmp = 0; 1006. break; 1007. } 1008. #ifdef MUSE 1009. if ((mdef->misc_worn_check & W_ARMH) && rn2(8)) { 1010. pline("%s helmet blocks your attack to %s head.", 1011. s_suffix(Monnam(mdef)), 1012. (Blind || !humanoid(mdef->data)) ? "its" : 1013. (mdef->female ? "her" : "his")); 1014. break; 1015. } 1016. #endif 1017. You("eat %s brain!", s_suffix(mon_nam(mdef))); 1018. if (mindless(mdef->data)) { 1019. pline("%s doesn't notice.", Monnam(mdef)); 1020. break; 1021. } 1022. tmp += rnd(10); 1023. morehungry(-rnd(30)); /* cannot choke */ 1024. if (ABASE(A_INT) < AMAX(A_INT)) { 1025. ABASE(A_INT) += rnd(4); 1026. if (ABASE(A_INT) > AMAX(A_INT)) 1027. ABASE(A_INT) = AMAX(A_INT); 1028. flags.botl = 1; 1029. } 1030. exercise(A_WIS, TRUE); 1031. break; 1032. case AD_WRAP: 1033. case AD_STCK: 1034. if (!sticks(mdef->data)) 1035. u.ustuck = mdef; /* it's now stuck to you */ 1036. break; 1037. case AD_PLYS: 1038. if (mdef->mcanmove && !rn2(3) && tmp < mdef->mhp) { 1039. if (!Blind) pline("%s is frozen by you!", Monnam(mdef)); 1040. mdef->mcanmove = 0; 1041. mdef->mfrozen = rnd(10); 1042. } 1043. break; 1044. case AD_SLEE: 1045. if (!resists_sleep(mdef->data) && !mdef->msleep && 1046. mdef->mcanmove) { 1047. if (!Blind) 1048. pline("%s suddenly falls asleep!", Monnam(mdef)); 1049. mdef->mcanmove = 0; 1050. mdef->mfrozen = rnd(10); 1051. } 1052. break; 1053. default: tmp = 0; 1054. break; 1055. } 1056. if(!tmp) return(1); 1057. 1058. if((mdef->mhp -= tmp) < 1) { 1059. 1060. if (mdef->mtame && !cansee(mdef->mx,mdef->my)) { 1061. You("feel embarrassed for a moment."); 1062. xkilled(mdef, 0); 1063. } else if (!flags.verbose) { 1064. You("destroy it!"); 1065. xkilled(mdef, 0); 1066. } else 1067. killed(mdef); 1068. return(2); 1069. } 1070. return(1); 1071. } 1072. 1073. static int 1074. explum(mdef, mattk) 1075. register struct monst *mdef; 1076. register struct attack *mattk; 1077. { 1078. register int tmp = d((int)mattk->damn, (int)mattk->damd); 1079. 1080. You("explode!"); 1081. switch(mattk->adtyp) { 1082. case AD_BLND: 1083. if (haseyes(mdef->data)) { 1084. pline("%s is blinded by your flash of light!", Monnam(mdef)); 1085. if (mdef->mcansee) { 1086. mdef->mblinded += tmp; 1087. mdef->mcansee = 0; 1088. } 1089. } 1090. break; 1091. case AD_COLD: 1092. if (!resists_cold(mdef->data)) { 1093. pline("%s gets blasted!", Monnam(mdef)); 1094. mdef->mhp -= tmp; 1095. if (mdef->mhp <= 0) { 1096. killed(mdef); 1097. return(2); 1098. } 1099. } else { 1100. shieldeff(mdef->mx, mdef->my); 1101. if (is_golem(mdef->data)) 1102. golemeffects(mdef, AD_COLD, tmp); 1103. else 1104. pline("The blast doesn't seem to affect %s.", 1105. mon_nam(mdef)); 1106. } 1107. break; 1108. default: 1109. break; 1110. } 1111. return(1); 1112. } 1113. 1114. static int 1115. gulpum(mdef,mattk) 1116. register struct monst *mdef; 1117. register struct attack *mattk; 1118. { 1119. register int tmp; 1120. register int dam = d((int)mattk->damn, (int)mattk->damd); 1121. /* Not totally the same as for real monsters. Specifically, these 1122. * don't take multiple moves. (It's just too hard, for too little 1123. * result, to program monsters which attack from inside you, which 1124. * would be necessary if done accurately.) Instead, we arbitrarily 1125. * kill the monster immediately for AD_DGST and we regurgitate them 1126. * after exactly 1 round of attack otherwise. -KAA 1127. */ 1128. 1129. if(mdef->data->msize >= MZ_HUGE) return 0; 1130. 1131. if(u.uhunger < 1500 && !u.uswallow) { 1132. 1133. if(mdef->data->mlet != S_COCKATRICE) { 1134. # ifdef LINT /* static char msgbuf[BUFSZ]; */ 1135. char msgbuf[BUFSZ]; 1136. # else 1137. static char msgbuf[BUFSZ]; 1138. # endif 1139. /* TODO: get the symbol display also to work (monster symbol is removed from 1140. * the screen and you moved onto it, then you get moved back and it gets 1141. * moved back if the monster survives--just like when monsters swallow you. 1142. */ 1143. You("engulf %s!", mon_nam(mdef)); 1144. switch(mattk->adtyp) { 1145. case AD_DGST: 1146. u.uhunger += mdef->data->cnutrit; 1147. newuhs(FALSE); 1148. xkilled(mdef,2); 1149. Sprintf(msgbuf, "You totally digest %s.", 1150. mon_nam(mdef)); 1151. if ((tmp = 3 + (mdef->data->cwt >> 6)) != 0) { 1152. You("digest %s.", mon_nam(mdef)); 1153. nomul(-tmp); 1154. nomovemsg = msgbuf; 1155. } else pline(msgbuf); 1156. exercise(A_CON, TRUE); 1157. return(2); 1158. case AD_PHYS: 1159. pline("%s is pummeled with your debris!",Monnam(mdef)); 1160. break; 1161. case AD_ACID: 1162. pline("%s is covered with your goo!", Monnam(mdef)); 1163. if (resists_acid(mdef->data)) { 1164. pline("It seems harmless to %s.", mon_nam(mdef)); 1165. dam = 0; 1166. } 1167. break; 1168. case AD_BLND: 1169. if(haseyes(mdef->data)) { 1170. if (mdef->mcansee) 1171. pline("%s can't see in there!", Monnam(mdef)); 1172. mdef->mcansee = 0; 1173. dam += mdef->mblinded; 1174. if (dam > 127) dam = 127; 1175. mdef->mblinded = dam; 1176. } 1177. dam = 0; 1178. break; 1179. case AD_ELEC: 1180. if (rn2(2)) { 1181. pline("The air around %s crackles with electricity.", mon_nam(mdef)); 1182. if (resists_elec(mdef->data)) { 1183. pline("%s seems unhurt.", Monnam(mdef)); 1184. dam = 0; 1185. } 1186. golemeffects(mdef,(int)mattk->adtyp,dam); 1187. } else dam = 0; 1188. break; 1189. case AD_COLD: 1190. if (rn2(2)) { 1191. if (resists_cold(mdef->data)) { 1192. pline("%s seems mildly chilly.", Monnam(mdef)); 1193. dam = 0; 1194. } else 1195. pline("%s is freezing to death!",Monnam(mdef)); 1196. golemeffects(mdef,(int)mattk->adtyp,dam); 1197. } else dam = 0; 1198. break; 1199. case AD_FIRE: 1200. if (rn2(2)) { 1201. if (resists_fire(mdef->data)) { 1202. pline("%s seems mildly hot.", Monnam(mdef)); 1203. dam = 0; 1204. } else 1205. pline("%s is burning to a crisp!",Monnam(mdef)); 1206. golemeffects(mdef,(int)mattk->adtyp,dam); 1207. } else dam = 0; 1208. break; 1209. } 1210. if ((mdef->mhp -= dam) <= 0) { 1211. killed(mdef); 1212. return(2); 1213. } 1214. You("%s %s!", is_animal(uasmon) ? "regurgitate" 1215. : "expel", mon_nam(mdef)); 1216. if (is_animal(uasmon)) { 1217. pline("Obviously, you didn't like %s taste.", 1218. s_suffix(mon_nam(mdef))); 1219. } 1220. } else { 1221. You("bite into %s", mon_nam(mdef)); 1222. You("turn to stone..."); 1223. killer_format = KILLED_BY; 1224. killer = "swallowing a cockatrice whole"; 1225. done(STONING); 1226. } 1227. } 1228. return(0); 1229. } 1230. 1231. void 1232. missum(mdef,mattk) 1233. register struct monst *mdef; 1234. register struct attack *mattk; 1235. { 1236. if (could_seduce(&youmonst, mdef, mattk)) 1237. You("pretend to be friendly to %s.", mon_nam(mdef)); 1238. else if(!Blind && flags.verbose) 1239. You("miss %s.", mon_nam(mdef)); 1240. else 1241. You("miss it."); 1242. wakeup(mdef); 1243. } 1244. 1245. static boolean 1246. hmonas(mon, tmp) /* attack monster as a monster. */ 1247. register struct monst *mon; 1248. register int tmp; 1249. { 1250. register struct attack *mattk; 1251. int i, sum[NATTK]; 1252. int nsum = 0; 1253. schar dhit; 1254. 1255. #ifdef GCC_WARN 1256. dhit = 0; 1257. #endif 1258. 1259. for(i = 0; i < NATTK; i++) { 1260. 1261. sum[i] = 0; 1262. mattk = &(uasmon->mattk[i]); 1263. switch(mattk->aatyp) { 1264. case AT_WEAP: 1265. use_weapon: 1266. /* Certain monsters don't use weapons when encountered as enemies, 1267. * but players who polymorph into them have hands or claws and thus 1268. * should be able to use weapons. This shouldn't prohibit the use 1269. * of most special abilities, either. 1270. */ 1271. /* Potential problem: if the monster gets multiple weapon attacks, 1272. * we currently allow the player to get each of these as a weapon 1273. * attack. Is this really desirable? 1274. */ 1275. if(uwep) tmp += hitval(uwep, mon->data); 1276. dhit = (tmp > (dieroll = rnd(20)) || u.uswallow); 1277. /* Enemy dead, before any special abilities used */ 1278. if (!known_hitum(mon,dhit)) return 0; 1279. /* might be a worm that gets cut in half */ 1280. if (m_at(u.ux+u.dx, u.uy+u.dy) != mon) return(nsum); 1281. /* Do not print "You hit" message, since known_hitum 1282. * already did it. 1283. */ 1284. if (dhit && mattk->adtyp != AD_SPEL 1285. && mattk->adtyp != AD_PHYS) 1286. sum[i] = damageum(mon,mattk); 1287. break; 1288. case AT_CLAW: 1289. if (i==0 && uwep && !cantwield(uasmon)) goto use_weapon; 1290. # ifdef SEDUCE 1291. /* succubi/incubi are humanoid, but their _second_ 1292. * attack is AT_CLAW, not their first... 1293. */ 1294. if (i==1 && uwep && (u.umonnum == PM_SUCCUBUS || 1295. u.umonnum == PM_INCUBUS)) goto use_weapon; 1296. # endif 1297. case AT_KICK: 1298. case AT_BITE: 1299. case AT_STNG: 1300. case AT_TUCH: 1301. case AT_BUTT: 1302. case AT_TENT: 1303. if (i==0 && uwep && (u.usym==S_LICH)) goto use_weapon; 1304. if ((dhit = (tmp > rnd(20) || u.uswallow)) != 0) { 1305. int compat; 1306. 1307. if (!u.uswallow && 1308. (compat=could_seduce(&youmonst, mon, mattk))) { 1309. You("%s %s %s.", 1310. mon->mcansee && haseyes(mon->data) 1311. ? "smile at" : "talk to", 1312. mon_nam(mon), 1313. compat == 2 ? "engagingly":"seductively"); 1314. /* doesn't anger it; no wakeup() */ 1315. sum[i] = damageum(mon, mattk); 1316. break; 1317. } 1318. wakeup(mon); 1319. if (mon->data == &mons[PM_SHADE]) { 1320. Your("attack passes harmlessly through %s.", 1321. mon_nam(mon)); 1322. break; 1323. } 1324. if (mattk->aatyp == AT_KICK) 1325. You("kick %s.", mon_nam(mon)); 1326. else if (mattk->aatyp == AT_BITE) 1327. You("bite %s.", mon_nam(mon)); 1328. else if (mattk->aatyp == AT_STNG) 1329. You("sting %s.", mon_nam(mon)); 1330. else if (mattk->aatyp == AT_BUTT) 1331. You("butt %s.", mon_nam(mon)); 1332. else if (mattk->aatyp == AT_TUCH) 1333. You("touch %s.", mon_nam(mon)); 1334. else if (mattk->aatyp == AT_TENT) 1335. Your("tentacles suck %s.", mon_nam(mon)); 1336. else You("hit %s.", mon_nam(mon)); 1337. sum[i] = damageum(mon, mattk); 1338. } else 1339. missum(mon, mattk); 1340. break; 1341. 1342. case AT_HUGS: 1343. /* automatic if prev two attacks succeed, or if 1344. * already grabbed in a previous attack 1345. */ 1346. dhit = 1; 1347. wakeup(mon); 1348. if (mon->data == &mons[PM_SHADE]) 1349. Your("hug passes harmlessly through %s.", 1350. mon_nam(mon)); 1351. else if (!sticks(mon->data)) 1352. if (mon==u.ustuck) { 1353. pline("%s is being %s.", Monnam(mon), 1354. u.umonnum==PM_ROPE_GOLEM ? "choked": 1355. "crushed"); 1356. sum[i] = damageum(mon, mattk); 1357. } else if(sum[i-1] && sum[i-2]) { 1358. You("grab %s!", mon_nam(mon)); 1359. u.ustuck = mon; 1360. sum[i] = damageum(mon, mattk); 1361. } 1362. break; 1363. 1364. case AT_EXPL: /* automatic hit if next to */ 1365. dhit = -1; 1366. wakeup(mon); 1367. sum[i] = explum(mon, mattk); 1368. break; 1369. 1370. case AT_ENGL: 1371. if((dhit = (tmp > rnd(20+i)))) { 1372. wakeup(mon); 1373. if (mon->data == &mons[PM_SHADE]) 1374. Your("attempt to surround %s is harmless.", 1375. mon_nam(mon)); 1376. else 1377. sum[i]= gulpum(mon,mattk); 1378. } else 1379. missum(mon, mattk); 1380. break; 1381. 1382. case AT_MAGC: 1383. /* No check for uwep; if wielding nothing we want to 1384. * do the normal 1-2 points bare hand damage... 1385. */ 1386. if (i==0 && (u.usym==S_KOBOLD 1387. || u.usym==S_ORC 1388. || u.usym==S_GNOME 1389. )) goto use_weapon; 1390. 1391. case AT_NONE: 1392. continue; 1393. /* Not break--avoid passive attacks from enemy */ 1394. 1395. case AT_BREA: 1396. case AT_SPIT: 1397. case AT_GAZE: /* all done using #monster command */ 1398. dhit = 0; 1399. break; 1400. 1401. default: /* Strange... */ 1402. impossible("strange attack of yours (%d)", 1403. mattk->aatyp); 1404. } 1405. if (dhit == -1) 1406. rehumanize(); 1407. if(sum[i] == 2) return(passive(mon, 1, 0, (mattk->aatyp==AT_KICK))); 1408. /* defender dead */ 1409. else { 1410. (void) passive(mon, sum[i], 1, (mattk->aatyp==AT_KICK)); 1411. nsum |= sum[i]; 1412. } 1413. if (uasmon == &playermon) 1414. break; /* No extra attacks if no longer a monster */ 1415. if (multi < 0) 1416. break; /* If paralyzed while attacking, i.e. floating eye */ 1417. } 1418. return(nsum); 1419. } 1420. 1421. #endif /* POLYSELF */ 1422. 1423. /* Special (passive) attacks on you by monsters done here. */ 1424. 1425. int 1426. passive(mon, mhit, malive, kicked) 1427. register struct monst *mon; 1428. register boolean mhit; 1429. register int malive; 1430. boolean kicked; 1431. { 1432. register struct permonst *ptr = mon->data; 1433. register int i, tmp; 1434. 1435. for(i = 0; ; i++) { 1436. if(i >= NATTK) return(malive | mhit); /* no passive attacks */ 1437. if(ptr->mattk[i].aatyp == AT_NONE) break; /* try this one */ 1438. } 1439. /* Note: tmp not always used */ 1440. if (ptr->mattk[i].damn) 1441. tmp = d((int)ptr->mattk[i].damn, (int)ptr->mattk[i].damd); 1442. else if(ptr->mattk[i].damd) 1443. tmp = d((int)mon->m_lev+1, (int)ptr->mattk[i].damd); 1444. else 1445. tmp = 0; 1446. 1447. /* These affect you even if they just died */ 1448. 1449. switch(ptr->mattk[i].adtyp) { 1450. 1451. case AD_ACID: 1452. if(mhit && rn2(2)) { 1453. if (Blind || !flags.verbose) You("are splashed!"); 1454. else You("are splashed by %s acid!", 1455. s_suffix(mon_nam(mon))); 1456. 1457. #ifdef POLYSELF 1458. if(!resists_acid(uasmon)) 1459. #endif 1460. mdamageu(mon, tmp); 1461. if(!rn2(30)) erode_armor(TRUE); 1462. } 1463. if(mhit && !rn2(6)) { 1464. if (kicked) { 1465. if (uarmf) 1466. (void) rust_dmg(uarmf, xname(uarmf), 3, TRUE); 1467. } else erode_weapon(TRUE); 1468. } 1469. exercise(A_STR, FALSE); 1470. break; 1471. case AD_STON: 1472. if(mhit) 1473. if (!kicked) 1474. if (!uwep && !uarmg 1475. #ifdef POLYSELF 1476. && !resists_ston(uasmon) 1477. && !(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) 1478. #endif 1479. ) { 1480. You("turn to stone..."); 1481. done_in_by(mon); 1482. return 2; 1483. } 1484. break; 1485. case AD_RUST: 1486. if(mhit && !mon->mcan) 1487. if (kicked) { 1488. if (uarmf) 1489. (void) rust_dmg(uarmf, xname(uarmf), 1, TRUE); 1490. } else 1491. erode_weapon(FALSE); 1492. break; 1493. case AD_MAGM: 1494. /* wrath of gods for attacking Oracle */ 1495. if(Antimagic) { 1496. shieldeff(u.ux, u.uy); 1497. pline("A hail of magic missiles narrowly misses you!"); 1498. } else { 1499. You("are hit by magic missiles appearing from thin air!"); 1500. mdamageu(mon, tmp); 1501. } 1502. break; 1503. default: 1504. break; 1505. } 1506. 1507. /* These only affect you if they still live */ 1508. 1509. if(malive && !mon->mcan && rn2(3)) { 1510. 1511. switch(ptr->mattk[i].adtyp) { 1512. 1513. case AD_PLYS: 1514. if(ptr == &mons[PM_FLOATING_EYE]) { 1515. if (!canseemon(mon)) { 1516. break; 1517. } 1518. if(mon->mcansee) { 1519. if(Reflecting & W_AMUL) { 1520. makeknown(AMULET_OF_REFLECTION); 1521. pline("%s gaze is reflected by your medallion.", 1522. s_suffix(Monnam(mon))); 1523. } else if(Reflecting & W_ARMS) { 1524. makeknown(SHIELD_OF_REFLECTION); 1525. pline("%s gaze is reflected by your shield.", 1526. s_suffix(Monnam(mon))); 1527. } else { 1528. You("are frozen by %s gaze!", 1529. s_suffix(mon_nam(mon))); 1530. nomul((ACURR(A_WIS) > 12 || rn2(4)) ? -tmp : -120); 1531. } 1532. } else { 1533. pline("%s cannot defend itself.", 1534. Adjmonnam(mon,"blind")); 1535. if(!rn2(500)) change_luck(-1); 1536. } 1537. } else { /* gelatinous cube */ 1538. You("are frozen by %s!", mon_nam(mon)); 1539. nomul(-tmp); 1540. exercise(A_DEX, FALSE); 1541. } 1542. break; 1543. case AD_COLD: /* brown mold or blue jelly */ 1544. if(monnear(mon, u.ux, u.uy)) { 1545. if(Cold_resistance) { 1546. shieldeff(u.ux, u.uy); 1547. You("feel a mild chill."); 1548. #ifdef POLYSELF 1549. ugolemeffects(AD_COLD, tmp); 1550. #endif 1551. break; 1552. } 1553. You("are suddenly very cold!"); 1554. mdamageu(mon, tmp); 1555. /* monster gets stronger with your heat! */ 1556. mon->mhp += tmp / 2; 1557. if (mon->mhpmax < mon->mhp) mon->mhpmax = mon->mhp; 1558. /* at a certain point, the monster will reproduce! */ 1559. if(mon->mhpmax > ((int) (mon->m_lev+1) * 8)) { 1560. register struct monst *mtmp; 1561. 1562. if ((mtmp = clone_mon(mon)) != 0) { 1563. mtmp->mhpmax = mon->mhpmax /= 2; 1564. if(!Blind) 1565. pline("%s multiplies from your heat!", 1566. Monnam(mon)); 1567. } 1568. } 1569. } 1570. break; 1571. case AD_STUN: /* specifically yellow mold */ 1572. if(!Stunned) 1573. make_stunned((long)tmp, TRUE); 1574. break; 1575. case AD_FIRE: 1576. if(monnear(mon, u.ux, u.uy)) { 1577. if(Fire_resistance) { 1578. shieldeff(u.ux, u.uy); 1579. You("feel mildly warm."); 1580. #ifdef POLYSELF 1581. ugolemeffects(AD_FIRE, tmp); 1582. #endif 1583. break; 1584. } 1585. You("are suddenly very hot!"); 1586. mdamageu(mon, tmp); 1587. } 1588. break; 1589. case AD_ELEC: 1590. if(Shock_resistance) { 1591. shieldeff(u.ux, u.uy); 1592. You("feel a mild tingle."); 1593. #ifdef POLYSELF 1594. ugolemeffects(AD_ELEC, tmp); 1595. #endif 1596. break; 1597. } 1598. You("are jolted with electricity!"); 1599. mdamageu(mon, tmp); 1600. break; 1601. default: 1602. break; 1603. } 1604. } 1605. return(malive | mhit); 1606. } 1607. 1608. /* Note: caller must ascertain mtmp is mimicing... */ 1609. void 1610. stumble_onto_mimic(mtmp) 1611. register struct monst *mtmp; 1612. { 1613. if(!u.ustuck && !mtmp->mflee && dmgtype(mtmp->data,AD_STCK)) 1614. u.ustuck = mtmp; 1615. if (Blind) { 1616. if(!Telepat) 1617. pline("Wait! That's a monster!"); 1618. } else if (glyph_is_cmap(levl[u.ux+u.dx][u.uy+u.dy].glyph) && 1619. (glyph_to_cmap(levl[u.ux+u.dx][u.uy+u.dy].glyph) == S_hcdoor || 1620. glyph_to_cmap(levl[u.ux+u.dx][u.uy+u.dy].glyph) == S_vcdoor)) 1621. pline("The door actually was %s!", a_monnam(mtmp)); 1622. else if (glyph_is_object(levl[u.ux+u.dx][u.uy+u.dy].glyph) && 1623. glyph_to_obj(levl[u.ux+u.dx][u.uy+u.dy].glyph) == GOLD_PIECE) 1624. pline("That gold was %s!", a_monnam(mtmp)); 1625. else { 1626. pline("Wait! That's %s!", a_monnam(mtmp)); 1627. } 1628. 1629. wakeup(mtmp); /* clears mimicing */ 1630. } 1631. 1632. static void 1633. nohandglow(mon) 1634. struct monst *mon; 1635. { 1636. char *hands=makeplural(body_part(HAND)); 1637. 1638. if (!u.umconf || mon->mconf) return; 1639. if (u.umconf == 1) { 1640. if (Blind) 1641. Your("%s stop tingling.", hands); 1642. else 1643. Your("%s stop glowing %s.", hands, 1644. Hallucination ? hcolor() : red); 1645. } else { 1646. if (Blind) 1647. pline("The tingling in your %s lessens.", hands); 1648. else 1649. Your("%s no longer glow so brightly %s.", hands, 1650. Hallucination ? hcolor() : red); 1651. } 1652. u.umconf--; 1653. } 1654. 1655. /*uhitm.c*/
