Source:NetHack 3.2.0/trap.c
(Redirected from NetHack 3.2.0/trap.c)
Jump to navigation
Jump to search
Below is the full text to trap.c from the source code of NetHack 3.2.0. To link to a particular line, write [[NetHack 3.2.0/trap.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: @(#)trap.c 3.2 96/04/08 */ 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_DCL void FDECL(dofiretrap, (struct obj *)); 8. STATIC_DCL void NDECL(domagictrap); 9. STATIC_DCL boolean FDECL(emergency_disrobe,(boolean *)); 10. STATIC_DCL int FDECL(untrap_prob, (struct trap *ttmp)); 11. STATIC_DCL void FDECL(cnv_trap_obj, (int, int, struct trap *)); 12. STATIC_DCL void FDECL(move_into_trap, (struct trap *)); 13. STATIC_DCL int FDECL(try_disarm, (struct trap *,BOOLEAN_P)); 14. STATIC_DCL void FDECL(reward_untrap, (struct trap *, struct monst *)); 15. STATIC_DCL int FDECL(disarm_beartrap, (struct trap *)); 16. STATIC_DCL int FDECL(disarm_landmine, (struct trap *)); 17. STATIC_DCL int FDECL(disarm_squeaky_board, (struct trap *)); 18. STATIC_DCL int FDECL(disarm_shooting_trap, (struct trap *, int)); 19. STATIC_DCL int FDECL(try_lift, (struct monst *, struct trap *, int, BOOLEAN_P)); 20. STATIC_DCL int FDECL(help_monster_out, (struct monst *, struct trap *)); 21. STATIC_DCL boolean FDECL(thitm, (int, struct monst *, struct obj *, int)); 22. STATIC_DCL int FDECL(mkroll_launch, 23. (struct trap *,XCHAR_P,XCHAR_P,SHORT_P,long)); 24. STATIC_DCL boolean FDECL(isclearpath,(coord *, int, SCHAR_P, SCHAR_P)); 25. 26. #ifndef OVLB 27. STATIC_VAR const char *a_your[2]; 28. STATIC_VAR const char *A_Your[2]; 29. STATIC_VAR const char *the_your[2]; 30. STATIC_VAR const char tower_of_flame[]; 31. STATIC_VAR const char *A_gush_of_water_hits; 32. 33. #else 34. 35. STATIC_VAR const char *a_your[2] = { "a", "your" }; 36. STATIC_VAR const char *A_Your[2] = { "A", "Your" }; 37. STATIC_VAR const char *the_your[2] = { "the", "your" }; 38. STATIC_VAR const char tower_of_flame[] = "tower of flame"; 39. STATIC_VAR const char *A_gush_of_water_hits = "A gush of water hits"; 40. 41. #endif /* OVLB */ 42. 43. #ifdef OVLB 44. 45. /* called when you're hit by fire (dofiretrap,buzz,zapyourself,explode) */ 46. boolean /* returns TRUE if hit on torso */ 47. burnarmor() 48. { 49. #define burn_dmg(obj,descr) rust_dmg(obj, descr, 0, FALSE) 50. while (1) { 51. switch (rn2(5)) { 52. case 0: 53. if (!burn_dmg(uarmh, "leather helmet")) continue; 54. break; 55. case 1: 56. if (uarmc) 57. (void) burn_dmg(uarmc, "cloak"); 58. else if (uarm) 59. (void) burn_dmg(uarm, xname(uarm)); 60. #ifdef TOURIST 61. else if (uarmu) 62. (void) burn_dmg(uarmu, "shirt"); 63. #endif 64. return TRUE; 65. case 2: 66. if (!burn_dmg(uarms, "wooden shield")) continue; 67. break; 68. case 3: 69. if (!burn_dmg(uarmg, "gloves")) continue; 70. break; 71. case 4: 72. if (!burn_dmg(uarmf, "boots")) continue; 73. break; 74. } 75. break; /* Out of while loop */ 76. } 77. return FALSE; 78. #undef burn_dmg 79. } 80. 81. /* Generic rust-armor function. Returns TRUE if a message was printed; 82. * "print", if set, means to print a message (and thus to return TRUE) even 83. * if the item could not be rusted; otherwise a message is printed and TRUE is 84. * returned only for rustable items. 85. */ 86. boolean 87. rust_dmg(otmp, ostr, type, print) 88. register struct obj *otmp; 89. register const char *ostr; 90. int type; 91. boolean print; 92. { 93. static NEARDATA const char *action[] = { "smoulder", "rust", "rot", "corrode" }; 94. static NEARDATA const char *msg[] = { "burnt", "rusted", "rotten", "corroded" }; 95. boolean vulnerable = FALSE; 96. boolean plural; 97. boolean grprot = FALSE; 98. 99. if (!otmp) return(FALSE); 100. switch(type) { 101. case 0: 102. case 2: vulnerable = is_flammable(otmp); break; 103. case 1: vulnerable = is_rustprone(otmp); grprot = TRUE; break; 104. case 3: vulnerable = is_corrodeable(otmp); grprot = TRUE; break; 105. } 106. 107. if (!print && (!vulnerable || otmp->oerodeproof || otmp->oeroded == MAX_ERODE)) 108. return FALSE; 109. 110. plural = is_gloves(otmp) || is_boots(otmp); 111. 112. if (!vulnerable) { 113. if (flags.verbose) 114. Your("%s %s not affected.", ostr, plural ? "are" : "is"); 115. } else if (otmp->oeroded < MAX_ERODE) { 116. if (grprot && otmp->greased) { 117. grease_protect(otmp,ostr,plural); 118. } else if (otmp->oerodeproof || (otmp->blessed && !rnl(4))) { 119. if (flags.verbose) 120. pline("Somehow, your %s %s not affected.", 121. ostr, plural ? "are" : "is"); 122. } else { 123. Your("%s %s%s%s!", ostr, action[type], 124. plural ? "" : "s", 125. otmp->oeroded+1 == MAX_ERODE ? " completely" : 126. otmp->oeroded ? " further" : ""); 127. otmp->oeroded++; 128. } 129. } else { 130. if (flags.verbose) 131. Your("%s %s%s completely %s.", ostr, 132. Blind ? "feel" : "look", 133. plural ? "" : "s", msg[type]); 134. } 135. return(TRUE); 136. } 137. 138. void 139. grease_protect(otmp,ostr,plu) 140. register struct obj *otmp; 141. register const char *ostr; 142. register boolean plu; 143. { 144. static const char txt[] = "protected by the layer of grease!"; 145. 146. if (ostr) 147. Your("%s %s %s",ostr,plu ? "are" : "is",txt); 148. else 149. Your("%s %s",aobjnam(otmp,"are"),txt); 150. if (!rn2(2)) { 151. pline_The("grease dissolves."); 152. otmp->greased = 0; 153. } 154. } 155. 156. struct trap * 157. maketrap(x,y,typ) 158. register int x, y, typ; 159. { 160. register struct trap *ttmp; 161. register struct rm *lev; 162. register boolean oldplace; 163. 164. if ((ttmp = t_at(x,y)) != 0) { 165. if (ttmp->ttyp == MAGIC_PORTAL) return (struct trap *)0; 166. oldplace = TRUE; 167. if (u.utrap && (x == u.ux) && (y == u.uy) && 168. ((u.utraptype == TT_BEARTRAP && typ != BEAR_TRAP) || 169. (u.utraptype == TT_WEB && typ != WEB) || 170. (u.utraptype == TT_PIT && typ != PIT && typ != SPIKED_PIT))) 171. u.utrap = 0; 172. } else { 173. oldplace = FALSE; 174. ttmp = newtrap(); 175. ttmp->tx = x; 176. ttmp->ty = y; 177. ttmp->launch.x = -1; /* force error if used before set */ 178. ttmp->launch.y = -1; 179. } 180. ttmp->ttyp = typ; 181. switch(typ) { 182. case STATUE_TRAP: /* create a "living" statue */ 183. (void) mkcorpstat(STATUE, &mons[rndmonnum()], x, y, FALSE); 184. break; 185. case ROLLING_BOULDER_TRAP: /* boulder will roll towards trigger */ 186. (void) mkroll_launch(ttmp, x, y, BOULDER, 1L); 187. break; 188. case HOLE: 189. case PIT: 190. case SPIKED_PIT: 191. case TRAPDOOR: 192. lev = &levl[x][y]; 193. if (*in_rooms(x, y, SHOPBASE) && 194. ((typ == HOLE || typ == TRAPDOOR) || IS_DOOR(lev->typ))) 195. add_damage(x, y, /* schedule repair */ 196. (IS_DOOR(lev->typ) && !flags.mon_moving) ? 200L : 0L); 197. lev->doormask = 0; /* subsumes altarmask, icedpool... */ 198. if (IS_ROOM(lev->typ)) /* && !IS_AIR(lev->typ) */ 199. lev->typ = ROOM; 200. 201. /* 202. * some cases which can happen when digging 203. * down while phazing thru solid areas 204. */ 205. else if (lev->typ == STONE || lev->typ == SCORR) 206. lev->typ = CORR; 207. else if (IS_WALL(lev->typ) || lev->typ == SDOOR) 208. lev->typ = level.flags.is_maze_lev ? ROOM : 209. level.flags.is_cavernous_lev ? CORR : DOOR; 210. 211. unearth_objs(x, y); 212. break; 213. } 214. if (ttmp->ttyp == HOLE) ttmp->tseen = 1; /* You can't hide a hole */ 215. else ttmp->tseen = 0; 216. ttmp->once = 0; 217. ttmp->madeby_u = 0; 218. ttmp->dst.dnum = -1; 219. ttmp->dst.dlevel = -1; 220. if (!oldplace) { 221. ttmp->ntrap = ftrap; 222. ftrap = ttmp; 223. } 224. return(ttmp); 225. } 226. 227. void 228. fall_through(td) 229. boolean td; /* td == TRUE : trapdoor or hole */ 230. { 231. d_level dtmp; 232. char msgbuf[BUFSZ]; 233. const char *dont_fall = 0; 234. register int newlevel = dunlev(&u.uz); 235. 236. if(Blind && Levitation) return; 237. 238. do { 239. newlevel++; 240. } while(!rn2(4) && newlevel < dunlevs_in_dungeon(&u.uz)); 241. 242. if(td) { 243. struct trap *t=t_at(u.ux,u.uy); 244. if (t->ttyp == TRAPDOOR) 245. pline("A trap door opens up under you!"); 246. else 247. pline("There's a gaping hole under you!"); 248. } else pline_The("%s opens up under you!", surface(u.ux,u.uy)); 249. 250. if(Levitation || u.ustuck || !Can_fall_thru(&u.uz) 251. || is_flyer(uasmon) || is_clinger(uasmon) 252. || (Inhell && !u.uevent.invoked && 253. newlevel == dunlevs_in_dungeon(&u.uz)) 254. ) { 255. dont_fall = "don't fall in."; 256. } else if (uasmon->msize >= MZ_HUGE) { 257. dont_fall = "don't fit through."; 258. } else if (!next_to_u()) { 259. dont_fall = "are jerked back by your pet!"; 260. } 261. if (dont_fall) { 262. You(dont_fall); 263. /* hero didn't fall through, but any objects here might */ 264. impact_drop((struct obj *)0, u.ux, u.uy, 0); 265. if (!td) { 266. display_nhwindow(WIN_MESSAGE, FALSE); 267. pline_The("opening under you closes up."); 268. } 269. return; 270. } 271. 272. if(*u.ushops) shopdig(1); 273. if (Is_stronghold(&u.uz)) { 274. find_hell(&dtmp); 275. } else { 276. dtmp.dnum = u.uz.dnum; 277. dtmp.dlevel = newlevel; 278. } 279. if (!td) 280. Sprintf(msgbuf, "The hole in the %s above you closes up.", 281. ceiling(u.ux,u.uy)); 282. schedule_goto(&dtmp, FALSE, TRUE, 0, 283. (char *)0, !td ? msgbuf : (char *)0); 284. } 285. 286. /* you've either stepped onto a statue trap's location 287. or you've triggered a statue trap by searching next to it */ 288. void 289. activate_statue_trap(trap, x, y) 290. struct trap *trap; 291. xchar x, y; 292. { 293. struct monst *mtmp; 294. struct obj *otmp = sobj_at(STATUE, x, y); 295. 296. deltrap(trap); 297. if (otmp && (mtmp = makemon(&mons[otmp->corpsenm], x, y)) != 0) { 298. delobj(otmp); 299. /* mimic statue becomes seen mimic; other hiders won't be hidden */ 300. if (mtmp->m_ap_type) seemimic(mtmp); 301. else mtmp->mundetected = FALSE; 302. if (x == u.ux && y == u.uy) 303. pline_The("statue comes to life!"); 304. else 305. You("find %s posing as a statue.", a_monnam(mtmp)); 306. /* avoid hiding under nothing */ 307. if (x == u.ux && y == u.uy && 308. Upolyd && hides_under(uasmon) && !OBJ_AT(x, y)) 309. u.uundetected = 0; 310. } 311. if (Blind) feel_location(x, y); 312. else newsym(x, y); 313. } 314. 315. void 316. dotrap(trap) 317. register struct trap *trap; 318. { 319. register int ttype = trap->ttyp; 320. register struct monst *mtmp; 321. register struct obj *otmp; 322. boolean already_seen = trap->tseen; 323. 324. nomul(0); 325. if(already_seen) { 326. if ((Levitation || is_flyer(uasmon)) && 327. (ttype == PIT || ttype == SPIKED_PIT || ttype == HOLE || 328. ttype == BEAR_TRAP)) { 329. You("%s over %s %s.", 330. Levitation ? "float" : "fly", 331. a_your[trap->madeby_u], 332. defsyms[trap_to_defsym(ttype)].explanation); 333. return; 334. } 335. if(!Fumbling && ttype != MAGIC_PORTAL && ttype != ANTI_MAGIC && 336. (!rn2(5) || 337. ((ttype == PIT || ttype == SPIKED_PIT) && is_clinger(uasmon)))) { 338. You("escape %s %s.", 339. (ttype == ARROW_TRAP && !trap->madeby_u) ? "an" : 340. a_your[trap->madeby_u], 341. defsyms[trap_to_defsym(ttype)].explanation); 342. return; 343. } 344. } 345. 346. switch(ttype) { 347. case ARROW_TRAP: 348. seetrap(trap); 349. pline("An arrow shoots out at you!"); 350. otmp = mksobj(ARROW, TRUE, FALSE); 351. otmp->quan = 1L; 352. otmp->owt = weight(otmp); 353. if (thitu(8, dmgval(otmp, &youmonst), otmp, "arrow")) { 354. obfree(otmp, (struct obj *)0); 355. } else { 356. place_object(otmp, u.ux, u.uy); 357. if (!Blind) otmp->dknown = 1; 358. stackobj(otmp); 359. newsym(u.ux, u.uy); 360. } 361. break; 362. case DART_TRAP: 363. seetrap(trap); 364. pline("A little dart shoots out at you!"); 365. otmp = mksobj(DART, TRUE, FALSE); 366. otmp->quan = 1L; 367. otmp->owt = weight(otmp); 368. if (!rn2(6)) otmp->opoisoned = 1; 369. if (thitu(7, dmgval(otmp, &youmonst), otmp, "little dart")) { 370. if (otmp->opoisoned) 371. poisoned("dart",A_CON,"poison dart",10); 372. obfree(otmp, (struct obj *)0); 373. } else { 374. place_object(otmp, u.ux, u.uy); 375. if (!Blind) otmp->dknown = 1; 376. stackobj(otmp); 377. newsym(u.ux, u.uy); 378. } 379. break; 380. case ROCKTRAP: 381. { 382. int dmg = d(2,6); /* should be std ROCK dmg? */ 383. 384. seetrap(trap); 385. otmp = mksobj_at(ROCK, u.ux, u.uy, TRUE); 386. otmp->quan = 1L; 387. otmp->owt = weight(otmp); 388. 389. pline("A trap door in the %s opens and a rock falls on your %s!", 390. ceiling(u.ux,u.uy), 391. body_part(HEAD)); 392. 393. if (uarmh) { 394. if(is_metallic(uarmh)) { 395. pline("Fortunately, you are wearing a hard helmet."); 396. dmg = 2; 397. } else if (flags.verbose) { 398. Your("%s does not protect you.", xname(uarmh)); 399. } 400. } 401. 402. if (!Blind) otmp->dknown = 1; 403. stackobj(otmp); 404. newsym(u.ux,u.uy); /* map the rock */ 405. 406. losehp(dmg, "falling rock", KILLED_BY_AN); 407. exercise(A_STR, FALSE); 408. } 409. break; 410. 411. case SQKY_BOARD: /* stepped on a squeaky board */ 412. if (Levitation || is_flyer(uasmon)) { 413. if (!Blind) { 414. seetrap(trap); 415. if (Hallucination) 416. You("notice a crease in the linoleum."); 417. else 418. You("notice a loose board below you."); 419. } 420. } else { 421. seetrap(trap); 422. pline("A board beneath you squeaks loudly."); 423. wake_nearby(); 424. } 425. break; 426. 427. case BEAR_TRAP: 428. if(Levitation || is_flyer(uasmon)) break; 429. seetrap(trap); 430. if(amorphous(uasmon) || is_whirly(uasmon) || 431. unsolid(uasmon)) { 432. pline("%s bear trap closes harmlessly through you.", 433. A_Your[trap->madeby_u]); 434. break; 435. } 436. if(uasmon->msize <= MZ_SMALL) { 437. pline("%s bear trap closes harmlessly over you.", 438. A_Your[trap->madeby_u]); 439. break; 440. } 441. u.utrap = rn1(4, 4); 442. u.utraptype = TT_BEARTRAP; 443. pline("%s bear trap closes on your %s!", 444. A_Your[trap->madeby_u], body_part(FOOT)); 445. if(u.umonnum == PM_OWLBEAR || u.umonnum == PM_BUGBEAR) 446. You("howl in anger!"); 447. exercise(A_DEX, FALSE); 448. break; 449. 450. case SLP_GAS_TRAP: 451. seetrap(trap); 452. if(Sleep_resistance) { 453. You("are enveloped in a cloud of gas!"); 454. break; 455. } 456. pline("A cloud of gas puts you to sleep!"); 457. flags.soundok = 0; 458. fall_asleep(-rnd(25), TRUE); 459. afternmv = Hear_again; 460. break; 461. 462. case RUST_TRAP: 463. seetrap(trap); 464. if (u.umonnum == PM_IRON_GOLEM) { 465. pline("%s you!", A_gush_of_water_hits); 466. You("are covered with rust!"); 467. rehumanize(); 468. break; 469. } else if (u.umonnum == PM_GREMLIN && rn2(3)) { 470. pline("%s you!", A_gush_of_water_hits); 471. if ((mtmp = cloneu()) != 0) { 472. mtmp->mhpmax = (u.mhmax /= 2); 473. You("multiply."); 474. } 475. break; 476. } 477. 478. /* Unlike monsters, traps cannot aim their rust attacks at 479. * you, so instead of looping through and taking either the 480. * first rustable one or the body, we take whatever we get, 481. * even if it is not rustable. 482. */ 483. switch (rn2(5)) { 484. case 0: 485. pline("%s you on the %s!", A_gush_of_water_hits, 486. body_part(HEAD)); 487. (void) rust_dmg(uarmh, "helmet", 1, TRUE); 488. break; 489. case 1: 490. pline("%s your left %s!", A_gush_of_water_hits, 491. body_part(ARM)); 492. if (rust_dmg(uarms, "shield", 1, TRUE)) break; 493. if (uwep && bimanual(uwep)) 494. goto two_hand; 495. /* Two goto statements in a row--aaarrrgggh! */ 496. glovecheck: (void) rust_dmg(uarmg, "gauntlets", 1, TRUE); 497. /* Not "metal gauntlets" since it gets called 498. * even if it's leather for the message 499. */ 500. break; 501. case 2: 502. pline("%s your right %s!", A_gush_of_water_hits, 503. body_part(ARM)); 504. two_hand: erode_weapon(FALSE); 505. goto glovecheck; 506. default: 507. pline("%s you!", A_gush_of_water_hits); 508. for (otmp=invent; otmp; otmp = otmp->nobj) 509. (void) snuff_lit(otmp); 510. if (uarmc) (void) rust_dmg(uarmc, "cloak", 1, TRUE); 511. else if (uarm) 512. (void) rust_dmg(uarm, "armor", 1, TRUE); 513. #ifdef TOURIST 514. else if (uarmu) 515. (void) rust_dmg(uarmu, "shirt", 1, TRUE); 516. #endif 517. } 518. break; 519. 520. case FIRE_TRAP: 521. seetrap(trap); 522. dofiretrap((struct obj *)0); 523. break; 524. 525. case PIT: 526. case SPIKED_PIT: 527. if (Levitation || is_flyer(uasmon)) break; 528. seetrap(trap); 529. if (is_clinger(uasmon)) { 530. if(trap->tseen) { 531. You("see %s %spit below you.", a_your[trap->madeby_u], 532. ttype == SPIKED_PIT ? "spiked " : ""); 533. } else { 534. pline("%s pit %sopens up under you!", 535. A_Your[trap->madeby_u], 536. ttype == SPIKED_PIT ? "full of spikes " : ""); 537. You("don't fall in!"); 538. } 539. break; 540. } 541. You("fall into %s pit!", a_your[trap->madeby_u]); 542. if (ttype == SPIKED_PIT) 543. You("land on a set of sharp iron spikes!"); 544. if (!passes_walls(uasmon)) 545. u.utrap = rn1(6,2); 546. u.utraptype = TT_PIT; 547. if (ttype == SPIKED_PIT) { 548. losehp(rnd(10),"fell into a pit of iron spikes", 549. NO_KILLER_PREFIX); 550. if (!rn2(6)) 551. poisoned("spikes", A_STR, "fall onto poison spikes", 8); 552. } else 553. losehp(rnd(6),"fell into a pit", NO_KILLER_PREFIX); 554. if (Punished && !carried(uball)) { 555. unplacebc(); 556. ballfall(); 557. placebc(); 558. } 559. selftouch("Falling, you"); 560. vision_full_recalc = 1; /* vision limits change */ 561. exercise(A_STR, FALSE); 562. exercise(A_DEX, FALSE); 563. break; 564. case HOLE: 565. case TRAPDOOR: 566. seetrap(trap); 567. if(!Can_fall_thru(&u.uz)) 568. panic("Holes & trapdoors cannot exist on this level."); 569. fall_through(TRUE); 570. break; 571. 572. case TELEP_TRAP: 573. seetrap(trap); 574. tele_trap(trap); 575. break; 576. case LEVEL_TELEP: 577. seetrap(trap); 578. level_tele_trap(trap); 579. break; 580. 581. case WEB: /* Our luckless player has stumbled into a web. */ 582. seetrap(trap); 583. if (amorphous(uasmon) || is_whirly(uasmon) || 584. unsolid(uasmon)) { 585. if (acidic(uasmon) || u.umonnum == PM_GELATINOUS_CUBE || 586. u.umonnum == PM_FIRE_ELEMENTAL) { 587. You("%s %s spider web!", 588. (u.umonnum == PM_FIRE_ELEMENTAL) ? "burn" : "dissolve", 589. a_your[trap->madeby_u]); 590. deltrap(trap); 591. newsym(u.ux,u.uy); 592. break; 593. } 594. You("flow through %s spider web.", 595. a_your[trap->madeby_u]); 596. break; 597. } 598. if (uasmon->mlet == S_SPIDER) { 599. pline(trap->madeby_u ? "You take a walk on your web." 600. : "There is a spider web here."); 601. break; 602. } 603. You("%s into %s spider web!", 604. Levitation ? (const char *)"float" : 605. locomotion(uasmon, "stumble"), 606. a_your[trap->madeby_u]); 607. u.utraptype = TT_WEB; 608. 609. /* Time stuck in the web depends on your strength. */ 610. { 611. register int str = ACURR(A_STR); 612. 613. if (str == 3) u.utrap = rn1(6,6); 614. else if (str < 6) u.utrap = rn1(6,4); 615. else if (str < 9) u.utrap = rn1(4,4); 616. else if (str < 12) u.utrap = rn1(4,2); 617. else if (str < 15) u.utrap = rn1(2,2); 618. else if (str < 18) u.utrap = rnd(2); 619. else if (str < 69) u.utrap = 1; 620. else { 621. u.utrap = 0; 622. You("tear through %s web!", a_your[trap->madeby_u]); 623. deltrap(trap); 624. newsym(u.ux,u.uy); /* get rid of trap symbol */ 625. } 626. } 627. break; 628. 629. case STATUE_TRAP: 630. activate_statue_trap(trap, u.ux, u.uy); 631. break; 632. 633. case MAGIC_TRAP: /* A magic trap. */ 634. seetrap(trap); 635. if (!rn2(30)) { 636. deltrap(trap); 637. newsym(u.ux,u.uy); /* update position */ 638. You("are caught in a magical explosion!"); 639. losehp(rnd(10), "magical explosion", KILLED_BY_AN); 640. Your("body absorbs some of the magical energy!"); 641. u.uen = (u.uenmax += 2); 642. } else domagictrap(); 643. break; 644. 645. case ANTI_MAGIC: 646. seetrap(trap); 647. if(Antimagic) { 648. shieldeff(u.ux, u.uy); 649. You_feel("momentarily lethargic."); 650. } else drain_en(rnd(u.ulevel) + 1); 651. break; 652. 653. case POLY_TRAP: 654. seetrap(trap); 655. You("%s onto a polymorph trap!", 656. Levitation ? (const char *)"float" : 657. locomotion(uasmon, "step")); 658. if(Antimagic) { 659. shieldeff(u.ux, u.uy); 660. You_feel("momentarily different."); 661. /* Trap did nothing; don't remove it --KAA */ 662. } else { 663. deltrap(trap); /* delete trap before polymorph */ 664. newsym(u.ux,u.uy); /* get rid of trap symbol */ 665. You_feel("a change coming over you."); 666. polyself(); 667. } 668. break; 669. 670. case LANDMINE: 671. if (Levitation || is_flyer(uasmon)) { 672. if (!already_seen && rn2(3)) break; 673. seetrap(trap); 674. pline("%s %s in a pile of soil below you.", 675. already_seen ? "There is" : "You discover", 676. trap->madeby_u ? "the trigger of your mine" : 677. "a trigger"); 678. if (already_seen && rn2(3)) break; 679. pline("KAABLAMM!!! The air currents set %s%s off!", 680. already_seen ? a_your[trap->madeby_u] : "", 681. already_seen ? " land mine" : "it"); 682. } else { 683. seetrap(trap); 684. pline("KAABLAMM!!! You triggered %s land mine!", 685. a_your[trap->madeby_u]); 686. set_wounded_legs(LEFT_SIDE, rn1(35, 41)); 687. set_wounded_legs(RIGHT_SIDE, rn1(35, 41)); 688. exercise(A_DEX, FALSE); 689. } 690. scatter(u.ux, u.uy, 4, 691. MAY_DESTROY | MAY_HIT | MAY_FRACTURE | VIS_EFFECTS); 692. del_engr_at(u.ux, u.uy); 693. wake_nearto(u.ux, u.uy, 500); 694. trap->ttyp = PIT; /* turn the mine into a pit */ 695. trap->madeby_u = FALSE; /* resulting pit isn't yours */ 696. if (IS_DOOR(levl[u.ux][u.uy].typ)) 697. levl[u.ux][u.uy].doormask = D_BROKEN; 698. newsym(u.ux,u.uy); /* update trap symbol */ 699. losehp(rnd(16), "land mine", KILLED_BY_AN); 700. dotrap(trap); /* fall recursively into the pit... */ 701. break; 702. 703. case ROLLING_BOULDER_TRAP: 704. seetrap(trap); 705. pline("Click! You trigger a rolling boulder trap!"); 706. if(!launch_obj(BOULDER, trap->launch.x, trap->launch.y, 707. trap->launch2.x,trap->launch2.y, ROLL)) { 708. deltrap(trap); 709. newsym(u.ux,u.uy); /* get rid of trap symbol */ 710. pline("Fortunately for you, no boulder was released."); 711. } 712. break; 713. 714. case MAGIC_PORTAL: 715. seetrap(trap); 716. domagicportal(trap); 717. break; 718. 719. default: 720. seetrap(trap); 721. impossible("You hit a trap of type %u", trap->ttyp); 722. } 723. } 724. #endif /* OVLB */ 725. #ifdef OVL3 726. 727. /* 728. * Move obj from (x1,y1) to (x2,y2) 729. * 730. * Return 0 if no object was launched. 731. * 1 if an object was launched and placed somewhere. 732. * 2 if an object was launched, but used up. 733. */ 734. int 735. launch_obj(otyp, x1, y1, x2, y2, style) 736. short otyp; 737. register int x1,y1,x2,y2; 738. int style; 739. { 740. register struct monst *mtmp; 741. register struct obj *otmp; 742. register int dx,dy; 743. struct obj *singleobj; 744. boolean used_up = FALSE; 745. boolean otherside = FALSE; 746. int dist; 747. int tmp; 748. int delaycnt = 0; 749. 750. otmp = sobj_at(otyp, x1, y1); 751. /* Try the other side too, for rolling boulder traps */ 752. if (!otmp && otyp == BOULDER) { 753. otherside = TRUE; 754. otmp = sobj_at(otyp, x2, y2); 755. } 756. if (!otmp) return 0; 757. if (otherside) { /* swap 'em */ 758. int tx, ty; 759. 760. tx = x1; ty = y1; 761. x1 = x2; y1 = y2; 762. x2 = tx; y2 = ty; 763. } 764. 765. if (otmp->quan == 1L) { 766. obj_extract_self(otmp); 767. singleobj = otmp; 768. otmp = (struct obj *) 0; 769. } else { 770. singleobj = splitobj(otmp, otmp->quan - 1L); 771. obj_extract_self(singleobj); 772. } 773. newsym(x1,y1); 774. /* in case you're using a pick-axe to chop the boulder that's being 775. launched (perhaps a monster triggered it), destroy context so that 776. next dig attempt never thinks you're resuming previous effort */ 777. if ((otyp == BOULDER || otyp == STATUE) && 778. singleobj->ox == digging.pos.x && singleobj->oy == digging.pos.y) 779. (void) memset((genericptr_t)&digging, 0, sizeof digging); 780. 781. dist = distmin(x1,y1,x2,y2); 782. bhitpos.x = x1; 783. bhitpos.y = y1; 784. dx = sgn(x2 - x1); 785. dy = sgn(y2 - y1); 786. switch (style) { 787. case ROLL: 788. delaycnt = 2; 789. /* fall through */ 790. default: 791. if (!delaycnt) delaycnt = 1; 792. if (!cansee(bhitpos.x,bhitpos.y)) curs_on_u(); 793. tmp_at(DISP_FLASH, obj_to_glyph(singleobj)); 794. tmp_at(bhitpos.x, bhitpos.y); 795. } 796. while(dist-- > 0 && !used_up) { 797. tmp_at(bhitpos.x, bhitpos.y); 798. tmp = delaycnt; 799. while (tmp-- > 0) delay_output(); 800. bhitpos.x += dx; 801. bhitpos.y += dy; 802. 803. if ((mtmp = m_at(bhitpos.x, bhitpos.y)) != 0) { 804. if (otyp == BOULDER && throws_rocks(mtmp->data)) { 805. if (rn2(3)) { 806. pline("%s snatches the boulder.", 807. Monnam(mtmp)); 808. mpickobj(mtmp, singleobj); 809. used_up = TRUE; 810. break; 811. } 812. } 813. if (ohitmon(mtmp,singleobj, 814. (style==ROLL) ? -1 : dist, FALSE)) { 815. used_up = TRUE; 816. break; 817. } 818. } else if (bhitpos.x==u.ux && bhitpos.y==u.uy) { 819. int hitvalu, hitu; 820. if (multi) nomul(0); 821. hitvalu = 9 + singleobj->spe; 822. hitu = thitu(hitvalu, 823. dmgval(singleobj, &youmonst), 824. singleobj, 825. xname(singleobj)); 826. if (hitu) stop_occupation(); 827. } 828. if (style == ROLL) { 829. if (down_gate(bhitpos.x, bhitpos.y) != -1) { 830. if (ship_object(singleobj, bhitpos.x, bhitpos.y, FALSE)){ 831. used_up = TRUE; 832. break; 833. } 834. } 835. if (flooreffects(singleobj, bhitpos.x, bhitpos.y, "fall")) { 836. used_up = TRUE; 837. break; 838. } 839. } 840. if (otyp == BOULDER && closed_door(bhitpos.x,bhitpos.y)) { 841. if (cansee(bhitpos.x, bhitpos.y)) 842. pline_The("boulder crashes through a door."); 843. levl[bhitpos.x][bhitpos.y].doormask = D_BROKEN; 844. } 845. } 846. tmp_at(DISP_END, 0); 847. if (!used_up) { 848. place_object(singleobj, x2,y2); 849. newsym(x2,y2); 850. return 1; 851. } else 852. return 2; 853. } 854. #endif /* OVL3 */ 855. #ifdef OVLB 856. 857. void 858. seetrap(trap) 859. register struct trap *trap; 860. { 861. if(!trap->tseen) { 862. trap->tseen = 1; 863. newsym(trap->tx, trap->ty); 864. } 865. } 866. 867. #endif /* OVLB */ 868. #ifdef OVL3 869. 870. STATIC_OVL int 871. mkroll_launch(ttmp, x, y, otyp, ocount) 872. struct trap *ttmp; 873. xchar x,y; 874. short otyp; 875. long ocount; 876. { 877. struct obj *otmp; 878. register int tmp; 879. schar dx,dy; 880. int distance; 881. coord cc; 882. coord bcc; 883. int trycount = 0; 884. boolean success = FALSE; 885. int mindist = 4; 886. 887. if (ttmp->ttyp == ROLLING_BOULDER_TRAP) mindist = 2; 888. distance = rn1(5,4); /* 4..8 away */ 889. tmp = rn2(8); /* randomly pick a direction to try first */ 890. while (distance >= mindist) { 891. dx = xdir[tmp]; 892. dy = ydir[tmp]; 893. cc.x = x; cc.y = y; 894. /* Prevent boulder from being placed on water */ 895. if (ttmp->ttyp == ROLLING_BOULDER_TRAP 896. && is_pool(x+distance*dx,y+distance*dy)) 897. success = FALSE; 898. else success = isclearpath(&cc, distance, dx, dy); 899. if (ttmp->ttyp == ROLLING_BOULDER_TRAP) { 900. boolean success_otherway; 901. bcc.x = x; bcc.y = y; 902. success_otherway = isclearpath(&bcc, distance, 903. -(dx), -(dy)); 904. if (!success_otherway) success = FALSE; 905. } 906. if (success) break; 907. if (++tmp > 7) tmp = 0; 908. if ((++trycount % 8) == 0) --distance; 909. } 910. if (!success) { 911. /* create the trap without any ammo, launch pt at trap location */ 912. cc.x = bcc.x = x; 913. cc.y = bcc.y = y; 914. } else { 915. otmp = mksobj(otyp, TRUE, FALSE); 916. otmp->quan = ocount; 917. otmp->owt = weight(otmp); 918. place_object(otmp, cc.x, cc.y); 919. stackobj(otmp); 920. } 921. ttmp->launch.x = cc.x; 922. ttmp->launch.y = cc.y; 923. if (ttmp->ttyp == ROLLING_BOULDER_TRAP) { 924. ttmp->launch2.x = bcc.x; 925. ttmp->launch2.y = bcc.y; 926. } else 927. ttmp->launch_otyp = otyp; 928. newsym(ttmp->launch.x, ttmp->launch.y); 929. return 1; 930. } 931. 932. STATIC_OVL boolean 933. isclearpath(cc,distance,dx,dy) 934. coord *cc; 935. int distance; 936. schar dx,dy; 937. { 938. uchar typ; 939. xchar x, y; 940. 941. x = cc->x; 942. y = cc->y; 943. while (distance-- > 0) { 944. x += dx; 945. y += dy; 946. typ = levl[x][y].typ; 947. if (!isok(x,y) || !ZAP_POS(typ) || closed_door(x,y)) 948. return FALSE; 949. } 950. cc->x = x; 951. cc->y = y; 952. return TRUE; 953. } 954. #endif /* OVL3 */ 955. #ifdef OVL1 956. 957. int 958. mintrap(mtmp) 959. register struct monst *mtmp; 960. { 961. register struct trap *trap = t_at(mtmp->mx, mtmp->my); 962. boolean trapkilled = FALSE; 963. struct permonst *mptr = mtmp->data; 964. struct obj *otmp; 965. 966. if(!trap) { 967. mtmp->mtrapped = 0; /* perhaps teleported? */ 968. } else if (mtmp->mtrapped) { /* was in trap */ 969. if(!rn2(40)) { 970. if (sobj_at(BOULDER, mtmp->mx, mtmp->my) && 971. ((trap->ttyp == PIT) || 972. (trap->ttyp == SPIKED_PIT))) { 973. if (!rn2(2)) { 974. mtmp->mtrapped = 0; 975. fill_pit(mtmp->mx, mtmp->my); 976. } 977. } else 978. mtmp->mtrapped = 0; 979. } else if (trap->ttyp == BEAR_TRAP && metallivorous(mptr)) { 980. if (canseemon(mtmp)) 981. pline("%s eats a bear trap!", Monnam(mtmp)); 982. deltrap(trap); 983. mtmp->meating = 5; 984. mtmp->mtrapped = 0; 985. } 986. } else { 987. register int tt = trap->ttyp; 988. boolean in_sight, tear_web, see_it; 989. 990. if ((mtmp->mtrapseen & (1 << (tt-1))) != 0 || 991. (tt == HOLE && !mindless(mtmp->data))) { 992. /* it has been in such a trap - perhaps it escapes */ 993. if(rn2(4)) return(0); 994. } else { 995. mtmp->mtrapseen |= (1 << (tt-1)); 996. } 997. /* Monster is aggravated by being trapped by you. 998. Recognizing who made the trap isn't completely 999. unreasonable; everybody has their own style. */ 1000. if (trap->madeby_u && rnl(5)) setmangry(mtmp); 1001. 1002. /* bug? `in_sight' ought to be split to distinguish between 1003. trap_in_sight and can_see_victim to handle invisible monsters */ 1004. in_sight = canseemon(mtmp); 1005. switch (tt) { 1006. case ARROW_TRAP: 1007. otmp = mksobj(ARROW, TRUE, FALSE); 1008. otmp->quan = 1L; 1009. otmp->owt = weight(otmp); 1010. if (in_sight) seetrap(trap); 1011. if(thitm(8, mtmp, otmp, 0)) trapkilled = TRUE; 1012. break; 1013. case DART_TRAP: 1014. otmp = mksobj(DART, TRUE, FALSE); 1015. otmp->quan = 1L; 1016. otmp->owt = weight(otmp); 1017. if (!rn2(6)) otmp->opoisoned = 1; 1018. if (in_sight) seetrap(trap); 1019. if(thitm(7, mtmp, otmp, 0)) trapkilled = TRUE; 1020. break; 1021. case ROCKTRAP: 1022. otmp = mksobj(ROCK, TRUE, FALSE); 1023. otmp->quan = 1L; 1024. otmp->owt = weight(otmp); 1025. if (in_sight) seetrap(trap); 1026. if (is_whirly(mptr) || passes_walls(mptr)) { 1027. if (in_sight) 1028. pline("A rock falls harmlessly through %s.", 1029. mon_nam(mtmp)); 1030. else if (cansee(mtmp->mx, mtmp->my)) 1031. pline("A rock falls to the %s.", 1032. surface(mtmp->mx, mtmp->my)); 1033. place_object(otmp, mtmp->mx, mtmp->my); 1034. stackobj(otmp); 1035. } else if (thitm(0, mtmp, otmp, d(2, 6))) 1036. trapkilled = TRUE; 1037. break; 1038. 1039. case SQKY_BOARD: 1040. if(is_flyer(mptr)) break; 1041. /* stepped on a squeaky board */ 1042. if (in_sight) { 1043. pline("A board beneath %s squeaks loudly.", mon_nam(mtmp)); 1044. seetrap(trap); 1045. } else 1046. You_hear("a distant squeak."); 1047. /* wake up nearby monsters */ 1048. wake_nearto(mtmp->mx, mtmp->my, 40); 1049. break; 1050. 1051. case BEAR_TRAP: 1052. if(mptr->msize > MZ_SMALL && 1053. !amorphous(mptr) && !is_flyer(mptr) && 1054. !is_whirly(mptr) && !unsolid(mptr)) { 1055. mtmp->mtrapped = 1; 1056. if(in_sight) { 1057. pline("%s is caught in %s bear trap!", 1058. Monnam(mtmp), a_your[trap->madeby_u]); 1059. seetrap(trap); 1060. } else { 1061. if((mptr == &mons[PM_OWLBEAR] 1062. || mptr == &mons[PM_BUGBEAR]) 1063. && flags.soundok) 1064. You_hear("the roaring of an angry bear!"); 1065. } 1066. } 1067. break; 1068. 1069. case SLP_GAS_TRAP: 1070. if (!resists_sleep(mtmp) && 1071. !mtmp->msleep && mtmp->mcanmove) { 1072. mtmp->mcanmove = 0; 1073. mtmp->mfrozen = rnd(25); 1074. if (in_sight) { 1075. pline("%s suddenly falls asleep!", 1076. Monnam(mtmp)); 1077. seetrap(trap); 1078. } 1079. } 1080. break; 1081. 1082. case RUST_TRAP: 1083. if (in_sight) { 1084. pline("%s %s!", A_gush_of_water_hits, 1085. mon_nam(mtmp)); 1086. seetrap(trap); 1087. } 1088. if (mptr == &mons[PM_IRON_GOLEM]) { 1089. if (in_sight) 1090. pline("%s falls to pieces!", Monnam(mtmp)); 1091. else if(mtmp->mtame) 1092. pline("May %s rust in peace.", 1093. mon_nam(mtmp)); 1094. mondied(mtmp); 1095. if (mtmp->mhp <= 0) 1096. trapkilled = TRUE; 1097. } else if (mptr == &mons[PM_GREMLIN] && rn2(3)) { 1098. struct monst *mtmp2 = clone_mon(mtmp); 1099. 1100. if (mtmp2) { 1101. mtmp2->mhpmax = (mtmp->mhpmax /= 2); 1102. if(in_sight) 1103. pline("%s multiplies.", Monnam(mtmp)); 1104. } 1105. } 1106. if (rn2(2)) 1107. for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj) 1108. (void) snuff_lit(otmp); 1109. break; 1110. 1111. case FIRE_TRAP: 1112. mfiretrap: 1113. see_it = cansee(mtmp->mx, mtmp->my); 1114. if (in_sight) 1115. pline("A %s erupts from the %s under %s!", 1116. tower_of_flame, 1117. surface(mtmp->mx,mtmp->my), mon_nam(mtmp)); 1118. else if (see_it) /* evidently `mtmp' is invisible */ 1119. You("see a %s erupt from the %s!", 1120. tower_of_flame, surface(mtmp->mx,mtmp->my)); 1121. 1122. if (resists_fire(mtmp)) { 1123. if (in_sight) { 1124. shieldeff(mtmp->mx,mtmp->my); 1125. pline("%s is uninjured.", Monnam(mtmp)); 1126. } 1127. } else { 1128. int num = d(2,4); 1129. 1130. if (thitm(0, mtmp, (struct obj *)0, num)) 1131. trapkilled = TRUE; 1132. else 1133. /* we know mhp is at least `num' below mhpmax, 1134. so no (mhp > mhpmax) check is needed here */ 1135. mtmp->mhpmax -= rn2(num + 1); 1136. } 1137. (void) destroy_mitem(mtmp, SCROLL_CLASS, AD_FIRE); 1138. (void) destroy_mitem(mtmp, SPBOOK_CLASS, AD_FIRE); 1139. (void) destroy_mitem(mtmp, POTION_CLASS, AD_FIRE); 1140. if (burn_floor_paper(mtmp->mx, mtmp->my, see_it) && 1141. !see_it && distu(mtmp->mx, mtmp->my) <= 3*3) 1142. You("smell smoke."); 1143. if (is_ice(mtmp->mx,mtmp->my)) 1144. melt_ice(mtmp->mx,mtmp->my); 1145. if (see_it) seetrap(trap); 1146. break; 1147. 1148. case PIT: 1149. case SPIKED_PIT: 1150. if ( !is_flyer(mptr) && 1151. (!mtmp->wormno || (count_wsegs(mtmp) < 6)) && 1152. !is_clinger(mptr) ) { 1153. if (!passes_walls(mptr)) 1154. mtmp->mtrapped = 1; 1155. if(in_sight) { 1156. pline("%s falls into %s pit!", 1157. Monnam(mtmp), a_your[trap->madeby_u]); 1158. seetrap(trap); 1159. } 1160. mselftouch(mtmp, "Falling, ", FALSE); 1161. if(mtmp->mhp <= 0 || 1162. thitm(0, mtmp, (struct obj *)0, 1163. rnd((tt==PIT) ? 6 : 10))) 1164. trapkilled = TRUE; 1165. } 1166. break; 1167. case HOLE: 1168. case TRAPDOOR: 1169. if(!Can_fall_thru(&u.uz)) 1170. panic("Holes & trapdoors cannot exist on this level."); 1171. 1172. if (is_flyer(mptr) || mptr == &mons[PM_WUMPUS] || 1173. (mtmp->wormno && count_wsegs(mtmp) > 5) || 1174. mptr->msize >= MZ_HUGE) break; 1175. /* Fall through */ 1176. case LEVEL_TELEP: 1177. case MAGIC_PORTAL: 1178. { 1179. int mlev_res; 1180. mlev_res = mlevel_tele_trap(mtmp, trap, in_sight); 1181. if (mlev_res) return(mlev_res); 1182. } 1183. break; 1184. 1185. case TELEP_TRAP: 1186. mtele_trap(mtmp, trap, in_sight); 1187. break; 1188. 1189. case WEB: 1190. /* Monster in a web. */ 1191. if (mptr->mlet == S_SPIDER) break; 1192. if (amorphous(mptr) || is_whirly(mptr) || unsolid(mptr)){ 1193. if(acidic(mptr) || 1194. mptr == &mons[PM_GELATINOUS_CUBE] || 1195. mptr == &mons[PM_FIRE_ELEMENTAL]) { 1196. if (in_sight) 1197. pline("%s %s %s spider web!", 1198. Monnam(mtmp), 1199. (mptr == &mons[PM_FIRE_ELEMENTAL]) ? 1200. "burns" : "dissolves", 1201. a_your[trap->madeby_u]); 1202. deltrap(trap); 1203. newsym(mtmp->mx, mtmp->my); 1204. break; 1205. } 1206. if (in_sight) { 1207. pline("%s flows through %s spider web.", 1208. Monnam(mtmp), 1209. a_your[trap->madeby_u]); 1210. seetrap(trap); 1211. } 1212. break; 1213. } 1214. tear_web = FALSE; 1215. switch (monsndx(mptr)) { 1216. case PM_OWLBEAR: /* Eric Backus */ 1217. case PM_BUGBEAR: 1218. if (!in_sight) { 1219. You_hear("the roaring of a confused bear!"); 1220. mtmp->mtrapped = 1; 1221. break; 1222. } 1223. /* fall though */ 1224. default: 1225. if (mptr->mlet == S_GIANT || 1226. (mptr->mlet == S_DRAGON && 1227. extra_nasty(mptr)) || /* excl. babies */ 1228. (mtmp->wormno && count_wsegs(mtmp) > 5)) { 1229. tear_web = TRUE; 1230. } else if (in_sight) { 1231. pline("%s is caught in %s spider web.", 1232. Monnam(mtmp), 1233. a_your[trap->madeby_u]); 1234. seetrap(trap); 1235. } 1236. mtmp->mtrapped = tear_web ? 0 : 1; 1237. break; 1238. /* this list is fairly arbitrary; it deliberately 1239. excludes wumpus & giant/ettin zombies/mummies */ 1240. case PM_TITANOTHERE: 1241. case PM_BALUCHITHERIUM: 1242. case PM_PURPLE_WORM: 1243. case PM_JABBERWOCK: 1244. case PM_IRON_GOLEM: 1245. case PM_BALROG: 1246. case PM_KRAKEN: 1247. tear_web = TRUE; 1248. break; 1249. } 1250. if (tear_web) { 1251. if (in_sight) 1252. pline("%s tears through %s spider web!", 1253. Monnam(mtmp), a_your[trap->madeby_u]); 1254. deltrap(trap); 1255. newsym(mtmp->mx, mtmp->my); 1256. } 1257. break; 1258. 1259. case STATUE_TRAP: 1260. break; 1261. 1262. case MAGIC_TRAP: 1263. /* A magic trap. Monsters usually immune. */ 1264. if (!rn2(21)) goto mfiretrap; 1265. break; 1266. case ANTI_MAGIC: 1267. break; 1268. 1269. case LANDMINE: 1270. if(rn2(3)) 1271. break; /* monsters usually don't set it off */ 1272. if(is_flyer(mptr)) { 1273. boolean already_seen = trap->tseen; 1274. if (in_sight && !already_seen) { 1275. pline("A trigger appears in a pile of soil below %s.", mon_nam(mtmp)); 1276. seetrap(trap); 1277. } 1278. if (rn2(3)) break; 1279. if (in_sight) { 1280. newsym(mtmp->mx, mtmp->my); 1281. pline_The("air currents set %s off!", 1282. already_seen ? "a land mine" : "it"); 1283. } 1284. } else if(in_sight) { 1285. newsym(mtmp->mx, mtmp->my); 1286. pline("KAABLAMM!!! %s triggers %s land mine!", 1287. Monnam(mtmp), a_your[trap->madeby_u]); 1288. } 1289. if (!in_sight) 1290. pline("Kaablamm! You hear an explosion in the distance!"); 1291. scatter(mtmp->mx, mtmp->my, 4, 1292. MAY_DESTROY | MAY_HIT | MAY_FRACTURE | VIS_EFFECTS); 1293. del_engr_at(mtmp->mx, mtmp->my); 1294. if (IS_DOOR(levl[mtmp->mx][mtmp->my].typ)) 1295. levl[mtmp->mx][mtmp->my].doormask = D_BROKEN; 1296. 1297. trap->ttyp = PIT; /* explosion creates a pit */ 1298. trap->madeby_u = FALSE; /* resulting pit isn't yours */ 1299. if(thitm(0, mtmp, (struct obj *)0, rnd(16))) 1300. trapkilled = TRUE; 1301. else { 1302. /* monsters recursively fall into new pit */ 1303. if (mintrap(mtmp) == 2) trapkilled=TRUE; 1304. } 1305. wake_nearto(mtmp->mx, mtmp->my, 500); 1306. if (unconscious()) { 1307. multi = -1; 1308. nomovemsg="The explosion awakens you!"; 1309. } 1310. break; 1311. 1312. case POLY_TRAP: 1313. if (resists_magm(mtmp)) { 1314. shieldeff(mtmp->mx, mtmp->my); 1315. } else if (!resist(mtmp, WAND_CLASS, 0, NOTELL)) { 1316. (void) newcham(mtmp, (struct permonst *)0); 1317. if (in_sight) seetrap(trap); 1318. } 1319. break; 1320. 1321. case ROLLING_BOULDER_TRAP: 1322. newsym(mtmp->mx,mtmp->my); 1323. if (in_sight) 1324. pline("Click! %s triggers %s.", Monnam(mtmp), 1325. trap->tseen ? 1326. "a rolling boulder trap" : 1327. something); 1328. if (launch_obj(BOULDER, trap->launch.x, trap->launch.y, 1329. trap->launch2.x, trap->launch2.y, ROLL)) { 1330. if (in_sight) trap->tseen = TRUE; 1331. else You_hear(Hallucination ? 1332. "someone bowling." : 1333. "rumbling in the distance."); 1334. if (mtmp->mhp <= 0) trapkilled = TRUE; 1335. } else { 1336. deltrap(trap); 1337. newsym(mtmp->mx,mtmp->my); 1338. } 1339. break; 1340. 1341. default: 1342. impossible("Some monster encountered a strange trap of type %d.", tt); 1343. } 1344. } 1345. if(trapkilled) return 2; 1346. return mtmp->mtrapped; 1347. } 1348. 1349. #endif /* OVL1 */ 1350. #ifdef OVLB 1351. 1352. /* Combine cockatrice checks into single functions to avoid repeating code. */ 1353. void 1354. instapetrify(str) 1355. const char *str; 1356. { 1357. if (resists_ston(&youmonst)) return; 1358. if (poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) 1359. return; 1360. You("turn to stone..."); 1361. killer_format = KILLED_BY; 1362. killer = str; 1363. done(STONING); 1364. } 1365. 1366. void 1367. minstapetrify(mon,byplayer) 1368. struct monst *mon; 1369. boolean byplayer; 1370. { 1371. if (resists_ston(mon)) return; 1372. if (cansee(mon->mx, mon->my)) 1373. pline("%s turns to stone.", Monnam(mon)); 1374. if (poly_when_stoned(mon->data)) { 1375. mon_to_stone(mon); 1376. return; 1377. } 1378. if (byplayer) { 1379. stoned = TRUE; 1380. xkilled(mon,0); 1381. } else monstone(mon); 1382. } 1383. 1384. void 1385. selftouch(arg) 1386. const char *arg; 1387. { 1388. if (uwep && uwep->otyp == CORPSE && uwep->corpsenm == PM_COCKATRICE) { 1389. pline("%s touch the cockatrice corpse.", arg); 1390. instapetrify("cockatrice corpse"); 1391. } 1392. } 1393. 1394. void 1395. mselftouch(mon,arg,byplayer) 1396. struct monst *mon; 1397. const char *arg; 1398. boolean byplayer; 1399. { 1400. struct obj *mwep = MON_WEP(mon); 1401. 1402. if (mwep && mwep->otyp == CORPSE && mwep->corpsenm == PM_COCKATRICE) { 1403. if (cansee(mon->mx, mon->my)) { 1404. pline("%s%s touches the cockatrice corpse.", 1405. arg ? arg : "", arg ? mon_nam(mon) : Monnam(mon)); 1406. } 1407. minstapetrify(mon, byplayer); 1408. } 1409. } 1410. 1411. void 1412. float_up() 1413. { 1414. if(u.utrap) { 1415. if(u.utraptype == TT_PIT) { 1416. u.utrap = 0; 1417. You("float up, out of the pit!"); 1418. vision_full_recalc = 1; /* vision limits change */ 1419. fill_pit(u.ux, u.uy); 1420. } else if (u.utraptype == TT_INFLOOR) { 1421. Your("body pulls upward, but your %s are still stuck.", 1422. makeplural(body_part(LEG))); 1423. } else { 1424. You("float up, only your %s is still stuck.", 1425. body_part(LEG)); 1426. } 1427. } 1428. else if(Is_waterlevel(&u.uz)) 1429. pline("It feels as though you'd lost some weight."); 1430. else if(u.uinwater) 1431. spoteffects(); 1432. else if(u.uswallow) 1433. You(is_animal(u.ustuck->data) ? 1434. "float away from the %s." : 1435. "spiral up into %s.", 1436. is_animal(u.ustuck->data) ? 1437. surface(u.ux, u.uy) : 1438. mon_nam(u.ustuck)); 1439. else if (Hallucination) 1440. pline("Up, up, and awaaaay! You're walking on air!"); 1441. else if(Is_airlevel(&u.uz)) 1442. You("gain control over your movements."); 1443. else 1444. You("start to float in the air!"); 1445. } 1446. 1447. void 1448. fill_pit(x, y) 1449. int x, y; 1450. { 1451. struct obj *otmp; 1452. struct trap *t; 1453. 1454. if ((t = t_at(x, y)) && 1455. ((t->ttyp == PIT) || (t->ttyp == SPIKED_PIT)) && 1456. (otmp = sobj_at(BOULDER, x, y))) { 1457. obj_extract_self(otmp); 1458. (void) flooreffects(otmp, x, y, "settle"); 1459. } 1460. } 1461. 1462. int 1463. float_down(override_mask) 1464. long override_mask; /* might cancel timeout */ 1465. { 1466. register struct trap *trap = (struct trap *)0; 1467. d_level current_dungeon_level; 1468. boolean no_msg = FALSE; 1469. 1470. HLevitation &= ~override_mask; 1471. if(Levitation) return(0); /* maybe another ring/potion/boots */ 1472. 1473. if (Punished && !carried(uball) && 1474. (is_pool(uball->ox, uball->oy) || 1475. ((trap = t_at(uball->ox, uball->oy)) && 1476. ((trap->ttyp == PIT) || (trap->ttyp == SPIKED_PIT) || 1477. (trap->ttyp == TRAPDOOR) || (trap->ttyp == HOLE))))) { 1478. u.ux0 = u.ux; 1479. u.uy0 = u.uy; 1480. u.ux = uball->ox; 1481. u.uy = uball->oy; 1482. movobj(uchain, uball->ox, uball->oy); 1483. newsym(u.ux0, u.uy0); 1484. vision_full_recalc = 1; /* in case the hero moved. */ 1485. } 1486. /* check for falling into pool - added by GAN 10/20/86 */ 1487. if(!is_flyer(uasmon)) { 1488. /* kludge alert: 1489. * drown() and lava_effects() print various messages almost 1490. * every time they're called which conflict with the "fall 1491. * into" message below. Thus, we want to avoid printing 1492. * confusing, duplicate or out-of-order messages. 1493. * Use knowledge of the two routines as a hack -- this 1494. * should really handled differently -dlc 1495. */ 1496. if(is_pool(u.ux,u.uy) && !Wwalking && !u.uinwater) 1497. no_msg = drown(); 1498. 1499. if(is_lava(u.ux,u.uy)) { 1500. (void) lava_effects(); 1501. no_msg = TRUE; 1502. } 1503. } 1504. if (!trap) { 1505. if(Is_airlevel(&u.uz)) 1506. You("begin to tumble in place."); 1507. else if (Is_waterlevel(&u.uz) && !no_msg) 1508. You_feel("heavier."); 1509. /* u.uinwater msgs already in spoteffects()/drown() */ 1510. else if (!u.uinwater && !no_msg) { 1511. if (Hallucination) 1512. pline("Bummer! You've %s.", 1513. is_pool(u.ux,u.uy) ? 1514. "splashed down" : "hit the ground"); 1515. else 1516. You("float gently to the %s.", 1517. surface(u.ux, u.uy)); 1518. } 1519. trap = t_at(u.ux,u.uy); 1520. } 1521. 1522. /* can't rely on u.uz0 for detecting trap door-induced level change; 1523. it gets changed to reflect the new level before we can check it */ 1524. assign_level(¤t_dungeon_level, &u.uz); 1525. 1526. if(trap) 1527. switch(trap->ttyp) { 1528. case STATUE_TRAP: 1529. break; 1530. case HOLE: 1531. case TRAPDOOR: 1532. if(!Can_fall_thru(&u.uz) || u.ustuck) 1533. break; 1534. /* fall into next case */ 1535. default: 1536. dotrap(trap); 1537. } 1538. 1539. if (!Is_airlevel(&u.uz) && !Is_waterlevel(&u.uz) && !u.uswallow && 1540. /* falling through trap door calls goto_level, 1541. and goto_level does its own pickup() call */ 1542. on_level(&u.uz, ¤t_dungeon_level)) 1543. pickup(1); 1544. return 1; 1545. } 1546. 1547. STATIC_OVL void 1548. dofiretrap(box) 1549. struct obj *box; /* null for floor trap */ 1550. { 1551. boolean see_it = !Blind; 1552. int num; 1553. 1554. if ((box && !carried(box)) ? is_pool(box->ox, box->oy) : Underwater) { 1555. pline("A cascade of steamy bubbles erupts from %s!", 1556. the(box ? xname(box) : surface(u.ux,u.uy))); 1557. if (Fire_resistance) You("are uninjured."); 1558. else losehp(rnd(3), "boiling water", KILLED_BY); 1559. return; 1560. } 1561. pline("A %s %s from %s!", tower_of_flame, 1562. box ? "bursts" : "erupts", 1563. the(box ? xname(box) : surface(u.ux,u.uy))); 1564. if (Fire_resistance) { 1565. shieldeff(u.ux, u.uy); 1566. num = rn2(2); 1567. } else { 1568. num = d(2,4); 1569. if (u.uhpmax > u.ulevel) 1570. u.uhpmax -= rn2(min(u.uhpmax,num + 1)), flags.botl = 1; 1571. } 1572. if (!num) 1573. You("are uninjured."); 1574. else 1575. losehp(num, tower_of_flame, KILLED_BY_AN); 1576. 1577. if (burnarmor() || rn2(3)) { 1578. destroy_item(SCROLL_CLASS, AD_FIRE); 1579. destroy_item(SPBOOK_CLASS, AD_FIRE); 1580. destroy_item(POTION_CLASS, AD_FIRE); 1581. } 1582. if (!box && burn_floor_paper(u.ux, u.uy, see_it) && !see_it) 1583. You("smell paper burning."); 1584. if (is_ice(u.ux, u.uy)) 1585. melt_ice(u.ux, u.uy); 1586. } 1587. 1588. STATIC_OVL void 1589. domagictrap() 1590. { 1591. register int fate = rnd(20); 1592. 1593. /* What happened to the poor sucker? */ 1594. 1595. if (fate < 10) { 1596. 1597. /* Most of the time, it creates some monsters. */ 1598. register int cnt = rnd(4); 1599. 1600. /* below checks for blindness added by GAN 10/30/86 */ 1601. if (!Blind) { 1602. You("are momentarily blinded by a flash of light!"); 1603. make_blinded((long)rn1(5,10),FALSE); 1604. } else 1605. You_hear("a deafening roar!"); 1606. while(cnt--) 1607. (void) makemon((struct permonst *) 0, u.ux, u.uy); 1608. } 1609. else 1610. switch (fate) { 1611. 1612. case 10: 1613. case 11: 1614. /* sometimes nothing happens */ 1615. break; 1616. case 12: /* a flash of fire */ 1617. dofiretrap((struct obj *)0); 1618. break; 1619. 1620. /* odd feelings */ 1621. case 13: pline("A shiver runs up and down your %s!", 1622. body_part(SPINE)); 1623. break; 1624. case 14: You_hear(Hallucination ? 1625. "the moon howling at you." : 1626. "distant howling."); 1627. break; 1628. case 15: if (on_level(&u.uz, &qstart_level)) 1629. You_feel("%slike the prodigal son.", 1630. (flags.female || (Upolyd && is_neuter(uasmon))) ? 1631. "oddly " : ""); 1632. else 1633. You("suddenly yearn for %s.", 1634. Hallucination ? "Cleveland" : 1635. (In_quest(&u.uz) || at_dgn_entrance("The Quest")) ? 1636. "your nearby homeland" : 1637. "your distant homeland"); 1638. break; 1639. case 16: Your("pack shakes violently!"); 1640. break; 1641. case 17: You(Hallucination ? 1642. "smell hamburgers." : 1643. "smell charred flesh."); 1644. break; 1645. case 18: You_feel("tired."); 1646. break; 1647. 1648. /* very occasionally something nice happens. */ 1649. 1650. case 19: 1651. /* tame nearby monsters */ 1652. { register int i,j; 1653. register struct monst *mtmp; 1654. 1655. (void) adjattrib(A_CHA,1,FALSE); 1656. for(i = -1; i <= 1; i++) for(j = -1; j <= 1; j++) { 1657. if(!isok(u.ux+i, u.uy+j)) continue; 1658. mtmp = m_at(u.ux+i, u.uy+j); 1659. if(mtmp) 1660. (void) tamedog(mtmp, (struct obj *)0); 1661. } 1662. break; 1663. } 1664. 1665. case 20: 1666. /* uncurse stuff */ 1667. { register struct obj *obj; 1668. 1669. /* below plines added by GAN 10/30/86 */ 1670. You_feel(Hallucination ? 1671. "in touch with the Universal Oneness." : 1672. "like someone is helping you."); 1673. for(obj = invent; obj ; obj = obj->nobj) 1674. if(obj->owornmask || obj->otyp == LOADSTONE) 1675. uncurse(obj); 1676. if(Punished) unpunish(); 1677. break; 1678. } 1679. default: break; 1680. } 1681. } 1682. 1683. void 1684. water_damage(obj, force, here) 1685. register struct obj *obj; 1686. register boolean force, here; 1687. { 1688. /* Scrolls, spellbooks, potions, weapons and 1689. pieces of armor may get affected by the water */ 1690. for (; obj; obj = (here ? obj->nexthere : obj->nobj)) { 1691. 1692. (void) snuff_lit(obj); 1693. 1694. if(obj->greased) { 1695. if (force || !rn2(2)) obj->greased = 0; 1696. } else if(Is_container(obj) && !Is_box(obj) && 1697. (obj->otyp != OILSKIN_SACK || (obj->cursed && !rn2(3)))) { 1698. water_damage(obj->cobj, force, FALSE); 1699. } else if (!force && (Luck + 5) > rn2(20)) { 1700. /* chance per item of sustaining damage: 1701. * max luck (full moon): 5% 1702. * max luck (elsewhen): 10% 1703. * avg luck (Luck==0): 75% 1704. * awful luck (Luck<-4): 100% 1705. */ 1706. continue; 1707. } else if (obj->oclass == SCROLL_CLASS) { 1708. #ifdef MAIL 1709. if (obj->otyp != SCR_MAIL) 1710. #endif 1711. obj->otyp = SCR_BLANK_PAPER; 1712. obj->spe = 0; 1713. } else if (obj->oclass == SPBOOK_CLASS) { 1714. if (obj->otyp == SPE_BOOK_OF_THE_DEAD) 1715. pline("Steam rises from %s.", the(xname(obj))); 1716. else obj->otyp = SPE_BLANK_PAPER; 1717. } else if (obj->oclass == POTION_CLASS) { 1718. if (obj->odiluted) { 1719. obj->otyp = POT_WATER; 1720. obj->blessed = obj->cursed = 0; 1721. obj->odiluted = 0; 1722. } else if (obj->otyp != POT_WATER || 1723. obj->blessed || obj->cursed) 1724. obj->odiluted++; 1725. } else if (is_rustprone(obj) && obj->oeroded < MAX_ERODE && 1726. !(obj->oerodeproof || (obj->blessed && !rnl(4)))) { 1727. /* all metal stuff and armor except (body armor 1728. protected by oilskin cloak) */ 1729. if(obj->oclass != ARMOR_CLASS || obj != uarm || 1730. !uarmc || uarmc->otyp != OILSKIN_CLOAK || 1731. (uarmc->cursed && !rn2(3))) 1732. obj->oeroded++; 1733. } 1734. } 1735. } 1736. 1737. /* 1738. * This function is potentially expensive - rolling 1739. * inventory list multiple times. Luckily it's seldom needed. 1740. * Returns TRUE if disrobing made player unencumbered enough to 1741. * crawl out of the current predicament. 1742. */ 1743. STATIC_OVL boolean 1744. emergency_disrobe(lostsome) 1745. boolean *lostsome; 1746. { 1747. int invc = inv_cnt(); 1748. 1749. while (near_capacity() > (Punished ? UNENCUMBERED : SLT_ENCUMBER)) { 1750. register struct obj *obj, *otmp = (struct obj *)0; 1751. register int i = rn2(invc); 1752. 1753. for (obj = invent; obj; obj = obj->nobj) { 1754. /* 1755. * Undroppables are: body armor, boots, gloves, 1756. * amulets, and rings because of the time and effort 1757. * in removing them + loadstone and other cursed stuff 1758. * for obvious reasons. 1759. */ 1760. if (!((obj->otyp == LOADSTONE && obj->cursed) || 1761. obj == uamul || obj == uleft || obj == uright || 1762. obj == ublindf || obj == uarm || obj == uarmc || 1763. obj == uarmg || obj == uarmf || 1764. #ifdef TOURIST 1765. obj == uarmu || 1766. #endif 1767. (obj->cursed && (obj == uarmh || obj == uarms)) || 1768. welded(obj))) 1769. otmp = obj; 1770. /* reached the mark and found some stuff to drop? */ 1771. if (--i < 0 && otmp) break; 1772. 1773. /* else continue */ 1774. } 1775. 1776. /* nothing to drop and still overweight */ 1777. if (!otmp) return(FALSE); 1778. 1779. if (otmp == uarmh) (void) Helmet_off(); 1780. else if (otmp == uarms) (void) Shield_off(); 1781. else if (otmp == uwep) setuwep((struct obj *)0); 1782. *lostsome = TRUE; 1783. dropx(otmp); 1784. invc--; 1785. } 1786. return(TRUE); 1787. } 1788. 1789. /* 1790. * return(TRUE) == player relocated 1791. */ 1792. boolean 1793. drown() 1794. { 1795. boolean inpool_ok = FALSE, crawl_ok; 1796. int i, x, y; 1797. 1798. /* happily wading in the same contiguous pool */ 1799. if (u.uinwater && is_pool(u.ux-u.dx,u.uy-u.dy) && 1800. (is_swimmer(uasmon) || Amphibious)) { 1801. /* water effects on objects every now and then */ 1802. if (!rn2(5)) inpool_ok = TRUE; 1803. else return(FALSE); 1804. } 1805. 1806. if (!u.uinwater) { 1807. You("%s into the water%c", 1808. Is_waterlevel(&u.uz) ? "plunge" : "fall", 1809. Amphibious ? '.' : '!'); 1810. if(!is_swimmer(uasmon)) 1811. if (!Is_waterlevel(&u.uz)) 1812. You("sink like %s.", 1813. Hallucination ? "the Titanic" : "a rock"); 1814. } 1815. 1816. water_damage(invent, FALSE, FALSE); 1817. 1818. if(u.umonnum == PM_GREMLIN && rn2(3)) { 1819. struct monst *mtmp; 1820. if ((mtmp = cloneu()) != 0) { 1821. mtmp->mhpmax = (u.mhmax /= 2); 1822. You("multiply."); 1823. } 1824. } 1825. if (inpool_ok) return(FALSE); 1826. 1827. if ((i = number_leashed()) > 0) { 1828. pline_The("leash%s slip%s loose.", 1829. (i > 1) ? "es" : "", 1830. (i > 1) ? "" : "s"); 1831. unleash_all(); 1832. } 1833. 1834. if (Amphibious || is_swimmer(uasmon)) { 1835. if (Amphibious) { 1836. if (flags.verbose) 1837. pline("But you aren't drowning."); 1838. if (!Is_waterlevel(&u.uz)) 1839. if (Hallucination) 1840. Your("keel hits the bottom."); 1841. else 1842. You("touch bottom."); 1843. } 1844. if (Punished) { 1845. unplacebc(); 1846. placebc(); 1847. } 1848. vision_recalc(2); /* unsee old position */ 1849. u.uinwater = 1; 1850. under_water(1); 1851. vision_full_recalc = 1; 1852. return(FALSE); 1853. } 1854. if((Teleportation || can_teleport(uasmon)) && 1855. (Teleport_control || rn2(3) < Luck+2)) { 1856. You("attempt a teleport spell."); /* utcsri!carroll */ 1857. (void) dotele(); 1858. if(!is_pool(u.ux,u.uy)) 1859. return(TRUE); 1860. } 1861. crawl_ok = FALSE; 1862. /* look around for a place to crawl to */ 1863. for (i = 0; i < 100; i++) { 1864. x = rn1(3,u.ux - 1); 1865. y = rn1(3,u.uy - 1); 1866. if (goodpos(x, y, (struct monst *)0, &playermon) 1867. || goodpos(x, y, (struct monst *)0, uasmon)) { 1868. crawl_ok = TRUE; 1869. goto crawl; 1870. } 1871. } 1872. /* one more scan */ 1873. for (x = u.ux - 1; x <= u.ux + 1; x++) 1874. for (y = u.uy - 1; y <= u.uy + 1; y++) 1875. if (goodpos(x, y, (struct monst *)0, &playermon) 1876. || goodpos(x, y, (struct monst *)0, uasmon)) { 1877. crawl_ok = TRUE; 1878. goto crawl; 1879. } 1880. crawl:; 1881. if (crawl_ok) { 1882. boolean lost = FALSE; 1883. /* time to do some strip-tease... */ 1884. boolean succ = Is_waterlevel(&u.uz) ? TRUE : 1885. emergency_disrobe(&lost); 1886. 1887. You("try to crawl out of the water."); 1888. if (lost) 1889. You("dump some of your gear to lose weight..."); 1890. if (succ) { 1891. pline("Pheew! That was close."); 1892. teleds(x,y); 1893. return(TRUE); 1894. } 1895. /* still too much weight */ 1896. pline("But in vain."); 1897. } 1898. u.uinwater = 1; 1899. You("drown."); 1900. killer_format = KILLED_BY_AN; 1901. killer = (levl[u.ux][u.uy].typ == POOL || Is_medusa_level(&u.uz)) ? 1902. "pool of water" : "moat"; 1903. done(DROWNING); 1904. /* oops, we're still alive. better get out of the water. */ 1905. while (!safe_teleds()) { 1906. pline("You're still drowning."); 1907. done(DROWNING); 1908. } 1909. u.uinwater = 0; 1910. You("find yourself back %s.", Is_waterlevel(&u.uz) ? 1911. "in an air bubble" : "on land"); 1912. return(TRUE); 1913. } 1914. 1915. void 1916. drain_en(n) 1917. register int n; 1918. { 1919. if (!u.uenmax) return; 1920. You_feel("your magical energy drain away!"); 1921. u.uen -= n; 1922. if(u.uen < 0) { 1923. u.uenmax += u.uen; 1924. if(u.uenmax < 0) u.uenmax = 0; 1925. u.uen = 0; 1926. } 1927. flags.botl = 1; 1928. } 1929. 1930. int 1931. dountrap() /* disarm a trap */ 1932. { 1933. if (near_capacity() >= HVY_ENCUMBER) { 1934. pline("You're too strained to do that."); 1935. return 0; 1936. } 1937. if (nohands(uasmon) || !uasmon->mmove) { 1938. pline("And just how do you expect to do that?"); 1939. return 0; 1940. } else if (u.ustuck && sticks(uasmon)) { 1941. pline("You'll have to let go of %s first.", mon_nam(u.ustuck)); 1942. return 0; 1943. } 1944. if (u.ustuck || (welded(uwep) && bimanual(uwep))) { 1945. Your("%s seem to be too busy for that.", 1946. makeplural(body_part(HAND))); 1947. return 0; 1948. } 1949. return untrap(FALSE); 1950. } 1951. #endif /* OVLB */ 1952. #ifdef OVL2 1953. 1954. /* Probability of disabling a trap. Helge Hafting */ 1955. STATIC_OVL int 1956. untrap_prob(ttmp) 1957. struct trap *ttmp; 1958. { 1959. int chance = 3; 1960. 1961. if (Confusion || Hallucination) chance++; 1962. if (Blind) chance++; 1963. if (Stunned) chance += 2; 1964. if (Fumbling) chance *= 2; 1965. /* Your own traps are better known than others. */ 1966. if (ttmp && ttmp->madeby_u) chance--; 1967. if (Role_is('R')) { 1968. if (rn2(2 * MAXULEV) < u.ulevel) chance--; 1969. if (u.uhave.questart && chance > 1) chance--; 1970. } 1971. return rn2(chance); 1972. } 1973. 1974. /* Replace trap with object(s). Helge Hafting */ 1975. STATIC_OVL void 1976. cnv_trap_obj(otyp, cnt, ttmp) 1977. int otyp; 1978. int cnt; 1979. struct trap *ttmp; 1980. { 1981. struct obj *otmp = mksobj(otyp, TRUE, FALSE); 1982. otmp->quan=cnt; 1983. otmp->owt = weight(otmp); 1984. place_object(otmp, ttmp->tx, ttmp->ty); 1985. /* Sell your own traps only... */ 1986. if (ttmp->madeby_u) sellobj(otmp, ttmp->tx, ttmp->ty); 1987. stackobj(otmp); 1988. newsym(ttmp->tx, ttmp->ty); 1989. deltrap(ttmp); 1990. } 1991. 1992. /* while attempting to disarm an adjacent trap, we've fallen into it */ 1993. STATIC_OVL void 1994. move_into_trap(ttmp) 1995. struct trap *ttmp; 1996. { 1997. int bc; 1998. xchar x = ttmp->tx, y = ttmp->ty, bx, by, cx, cy; 1999. boolean unused; 2000. 2001. /* we know there's no monster in the way, and we're not trapped */ 2002. if (!Punished || drag_ball(x, y, &bc, &bx, &by, &cx, &cy, &unused)) { 2003. u.ux0 = u.ux, u.uy0 = u.uy; 2004. u.ux = x, u.uy = y; 2005. u.umoved = TRUE; 2006. newsym(u.ux0, u.uy0); 2007. vision_recalc(1); 2008. check_leash(u.ux0, u.uy0); 2009. if (Punished) move_bc(0, bc, bx, by, cx, cy); 2010. spoteffects(); /* dotrap() */ 2011. exercise(A_WIS, FALSE); 2012. } 2013. } 2014. 2015. /* 0: doesn't even try 2016. * 1: tries and fails 2017. * 2: succeeds 2018. */ 2019. STATIC_OVL int 2020. try_disarm(ttmp, force_failure) 2021. struct trap *ttmp; 2022. boolean force_failure; 2023. { 2024. struct monst *mtmp = m_at(ttmp->tx,ttmp->ty); 2025. int ttype = ttmp->ttyp; 2026. boolean under_u = (!u.dx && !u.dy); 2027. 2028. /* Test for monster first, monsters are displayed instead of trap. */ 2029. if (mtmp && (!mtmp->mtrapped || ttype != BEAR_TRAP)) { 2030. pline("%s is in the way.", Monnam(mtmp)); 2031. return 0; 2032. } 2033. /* We might be forced to move onto the trap's location. */ 2034. if (sobj_at(BOULDER, ttmp->tx, ttmp->ty) 2035. && !passes_walls(uasmon) && !under_u) { 2036. pline("There is a boulder in your way."); 2037. return 0; 2038. } 2039. /* untrappable traps are located on the ground. */ 2040. if (!can_reach_floor()) { 2041. You("are unable to reach the %s!", 2042. defsyms[trap_to_defsym(ttype)].explanation); 2043. return 0; 2044. } 2045. 2046. /* Will our hero succeed? */ 2047. if (force_failure || untrap_prob(ttmp)) { 2048. if (rnl(5)) { 2049. pline("Whoops..."); 2050. if (mtmp) { /* must be a bear trap */ 2051. if (mtmp->mtame) abuse_dog(mtmp); 2052. if ((mtmp->mhp -= rnd(4)) <= 0) killed(mtmp); 2053. } else if (under_u) { 2054. dotrap(ttmp); 2055. } else { 2056. move_into_trap(ttmp); 2057. } 2058. } else { 2059. pline("%s %s is difficult to disarm.", 2060. ttmp->madeby_u ? "Your" : under_u ? "This" : "That", 2061. defsyms[trap_to_defsym(ttype)].explanation); 2062. } 2063. return 1; 2064. } 2065. return 2; 2066. } 2067. 2068. STATIC_OVL void 2069. reward_untrap(ttmp, mtmp) 2070. struct trap *ttmp; 2071. struct monst *mtmp; 2072. { 2073. if (!ttmp->madeby_u) { 2074. if (rnl(10)<8 && !mtmp->mpeaceful && 2075. mtmp->data->mlet != S_HUMAN) { 2076. mtmp->mpeaceful = 1; 2077. pline("%s is grateful.", Monnam(mtmp)); 2078. } 2079. /* Helping someone out of a trap is a nice thing to do, 2080. * A lawful may be rewarded, but not too often. */ 2081. if (!rn2(3) && !rnl(8) && u.ualign.type == A_LAWFUL) { 2082. adjalign(1); 2083. You_feel("that you did the right thing."); 2084. } 2085. } 2086. } 2087. 2088. STATIC_OVL int 2089. disarm_beartrap(ttmp) /* Helge Hafting */ 2090. struct trap *ttmp; 2091. { 2092. struct monst *mtmp; 2093. int fails = try_disarm(ttmp, FALSE); 2094. 2095. if (fails < 2) return fails; 2096. 2097. /* ok, disarm it. */ 2098. 2099. /* untrap the monster, if any. 2100. There's no need for a cockatrice test, only the trap is touched */ 2101. if ((mtmp = m_at(ttmp->tx,ttmp->ty)) != 0) { 2102. mtmp->mtrapped = 0; 2103. You("remove %s bear trap from %s.", the_your[ttmp->madeby_u], 2104. mon_nam(mtmp)); 2105. reward_untrap(ttmp, mtmp); 2106. } else You("disarm %s bear trap.", the_your[ttmp->madeby_u]); 2107. cnv_trap_obj(BEARTRAP, 1, ttmp); 2108. return 1; 2109. } 2110. 2111. STATIC_OVL int 2112. disarm_landmine(ttmp) /* Helge Hafting */ 2113. struct trap *ttmp; 2114. { 2115. int fails = try_disarm(ttmp, FALSE); 2116. 2117. if (fails < 2) return fails; 2118. You("disarm %s land mine.", the_your[ttmp->madeby_u]); 2119. cnv_trap_obj(LAND_MINE, 1, ttmp); 2120. return 1; 2121. } 2122. 2123. /* getobj will filter down to cans of grease and known potions of oil */ 2124. static NEARDATA const char oil[] = { ALL_CLASSES, TOOL_CLASS, POTION_CLASS, 0 }; 2125. 2126. /* it may not make much sense to use grease on floor boards, but so what? */ 2127. STATIC_OVL int 2128. disarm_squeaky_board(ttmp) 2129. struct trap *ttmp; 2130. { 2131. struct obj *obj; 2132. boolean bad_tool; 2133. int fails; 2134. 2135. obj = getobj(oil, "untrap with"); 2136. if (!obj) return 0; 2137. 2138. bad_tool = (obj->cursed || 2139. ((obj->otyp != POT_OIL || obj->lamplit) && 2140. (obj->otyp != CAN_OF_GREASE || !obj->spe))); 2141. 2142. fails = try_disarm(ttmp, bad_tool); 2143. if (fails < 2) return fails; 2144. 2145. /* successfully used oil or grease to fix squeaky board */ 2146. if (obj->otyp == CAN_OF_GREASE) { 2147. check_unpaid(obj); 2148. obj->spe--; 2149. } else { 2150. useup(obj); /* oil */ 2151. makeknown(POT_OIL); 2152. } 2153. You("repair the squeaky board."); /* no madeby_u */ 2154. deltrap(ttmp); 2155. newsym(u.ux + u.dx, u.uy + u.dy); 2156. more_experienced(1, 5); 2157. return 1; 2158. } 2159. 2160. /* removes traps that shoot arrows, darts, etc. */ 2161. STATIC_OVL int 2162. disarm_shooting_trap(ttmp, otyp) 2163. struct trap *ttmp; 2164. int otyp; 2165. { 2166. int fails = try_disarm(ttmp, FALSE); 2167. 2168. if (fails < 2) return fails; 2169. You("disarm %s trap", the_your[ttmp->madeby_u]); 2170. cnv_trap_obj(otyp, 50-rnl(50), ttmp); 2171. return 1; 2172. } 2173. 2174. /* Is the weight too heavy? 2175. * Formula as in near_capacity() & check_capacity() */ 2176. STATIC_OVL int 2177. try_lift(mtmp, ttmp, wt, stuff) 2178. struct monst *mtmp; 2179. struct trap *ttmp; 2180. int wt; 2181. boolean stuff; 2182. { 2183. int wc = weight_cap(); 2184. 2185. if ((((wt<<1) / wc)+1) >= EXT_ENCUMBER) { 2186. pline("%s is %s for you to lift.", Monnam(mtmp), 2187. stuff ? "carrying too much" : "too heavy"); 2188. if (!ttmp->madeby_u && !mtmp->mpeaceful 2189. && mtmp->data->mlet != S_HUMAN && rnl(10) < 3) { 2190. mtmp->mpeaceful = 1; 2191. pline("%s thinks it was nice of you to try.", Monnam(mtmp)); 2192. } 2193. return 0; 2194. } 2195. return 1; 2196. } 2197. 2198. /* Help trapped monster (out of a (spiked) pit) */ 2199. STATIC_OVL int 2200. help_monster_out(mtmp, ttmp) 2201. struct monst *mtmp; 2202. struct trap *ttmp; 2203. { 2204. int wt; 2205. struct obj *otmp; 2206. 2207. /* 2208. * This works when levitating too -- consistent with the ability 2209. * to hit monsters while levitating. 2210. * 2211. * Should perhaps check that our hero has arms/hands at the 2212. * moment. Helping can also be done by engulfing... 2213. * 2214. * Test the monster first - monsters are displayed before traps. 2215. */ 2216. if (!mtmp->mtrapped) { 2217. pline("%s isn't trapped.", Monnam(mtmp)); 2218. return 0; 2219. } 2220. /* Do you have the necessary capacity to lift anything? */ 2221. if (check_capacity((char *)0)) return 1; 2222. 2223. /* Will our hero succeed? */ 2224. if (untrap_prob(ttmp)) { 2225. You("try to reach out your %s, but %s backs away skeptically.", 2226. makeplural(body_part(ARM)), 2227. mon_nam(mtmp)); 2228. return 1; 2229. } 2230. 2231. 2232. /* is it a cockatrice?... */ 2233. if (mtmp->data == &mons[PM_COCKATRICE] && !uarmg 2234. && !resists_ston(&youmonst)) { 2235. You("grab the trapped cockatrice using your bare %s.", 2236. makeplural(body_part(HAND))); 2237. 2238. if (poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) 2239. display_nhwindow(WIN_MESSAGE, FALSE); 2240. else { 2241. instapetrify("trying to help a cockatrice out of a pit"); 2242. return 1; 2243. } 2244. } 2245. You("reach out your %s and grab %s.", 2246. makeplural(body_part(ARM)), mon_nam(mtmp)); 2247. 2248. /* is the monster too heavy? */ 2249. wt = inv_weight() + mtmp->data->cwt; 2250. if (!try_lift(mtmp, ttmp, wt, FALSE)) return 1; 2251. 2252. /* is the monster with inventory too heavy? */ 2253. for (otmp = mtmp->minvent; otmp; otmp=otmp->nobj) 2254. wt += otmp->owt; 2255. if (!try_lift(mtmp, ttmp, wt, TRUE)) return 1; 2256. 2257. You("pull %s out of the pit.", mon_nam(mtmp)); 2258. mtmp->mtrapped = 0; 2259. reward_untrap(ttmp, mtmp); 2260. return 1; 2261. } 2262. 2263. int 2264. untrap(force) 2265. boolean force; 2266. { 2267. register struct obj *otmp; 2268. register boolean confused = (Confusion > 0 || Hallucination > 0); 2269. register int x,y; 2270. int ch; 2271. struct trap *ttmp; 2272. struct monst *mtmp; 2273. boolean trap_skipped = FALSE; 2274. 2275. if(!getdir((char *)0)) return(0); 2276. x = u.ux + u.dx; 2277. y = u.uy + u.dy; 2278. 2279. if ((ttmp = t_at(x,y)) && ttmp->tseen) { 2280. if (u.utrap) { 2281. You("cannot deal with traps while trapped!"); 2282. return 1; 2283. } 2284. switch(ttmp->ttyp) { 2285. case BEAR_TRAP: 2286. return disarm_beartrap(ttmp); 2287. case LANDMINE: 2288. return disarm_landmine(ttmp); 2289. case SQKY_BOARD: 2290. return disarm_squeaky_board(ttmp); 2291. case DART_TRAP: 2292. return disarm_shooting_trap(ttmp, DART); 2293. case ARROW_TRAP: 2294. return disarm_shooting_trap(ttmp, ARROW); 2295. case PIT: 2296. case SPIKED_PIT: 2297. if (!u.dx && !u.dy) { 2298. You("are already on the edge of the pit."); 2299. return 0; 2300. } 2301. if (!(mtmp = m_at(x,y))) { 2302. pline("Try filling the pit instead."); 2303. return 0; 2304. } 2305. return help_monster_out(mtmp, ttmp); 2306. default: 2307. You("cannot disable %s trap.", (u.dx || u.dy) ? "that" : "this"); 2308. return 0; 2309. } /* end switch */ 2310. } /* end if */ 2311. 2312. if(!u.dx && !u.dy) { 2313. for(otmp = level.objects[x][y]; otmp; otmp = otmp->nexthere) 2314. if(Is_box(otmp)) { 2315. pline("There is %s here.", doname(otmp)); 2316. 2317. switch (ynq("Check for traps?")) { 2318. case 'q': return(0); 2319. case 'n': continue; 2320. } 2321. 2322. if((otmp->otrapped && (force || (!confused 2323. && rn2(MAXULEV + 1 - u.ulevel) < 10))) 2324. || (!force && confused && !rn2(3))) { 2325. You("find a trap on %s!", the(xname(otmp))); 2326. exercise(A_WIS, TRUE); 2327. 2328. switch (ynq("Disarm it?")) { 2329. case 'q': return(1); 2330. case 'n': trap_skipped = TRUE; continue; 2331. } 2332. 2333. if(otmp->otrapped) { 2334. exercise(A_DEX, TRUE); 2335. ch = ACURR(A_DEX) + u.ulevel; 2336. if (Role_is('R')) ch *= 2; 2337. if(!force && (confused || Fumbling || 2338. rnd(75+level_difficulty()/2) > ch)) { 2339. (void) chest_trap(otmp, FINGER, TRUE); 2340. } else { 2341. You("disarm it!"); 2342. otmp->otrapped = 0; 2343. } 2344. } else pline("That %s was not trapped.", doname(otmp)); 2345. return(1); 2346. } else { 2347. You("find no traps on %s.", the(xname(otmp))); 2348. return(1); 2349. } 2350. } 2351. 2352. You(trap_skipped ? "find no other traps here." 2353. : "know of no traps here."); 2354. return(0); 2355. } 2356. 2357. if ((mtmp = m_at(x,y)) && 2358. mtmp->m_ap_type == M_AP_FURNITURE && 2359. (mtmp->mappearance == S_hcdoor || 2360. mtmp->mappearance == S_vcdoor) && 2361. !Protection_from_shape_changers) { 2362. 2363. stumble_onto_mimic(mtmp); 2364. return(1); 2365. } 2366. 2367. if (!IS_DOOR(levl[x][y].typ)) { 2368. if ((ttmp = t_at(x,y)) && ttmp->tseen) 2369. You("cannot disable that trap."); 2370. else 2371. You("know of no traps there."); 2372. return(0); 2373. } 2374. 2375. switch (levl[x][y].doormask) { 2376. case D_NODOOR: 2377. You("%s no door there.", Blind ? "feel" : "see"); 2378. return(0); 2379. case D_ISOPEN: 2380. pline("This door is safely open."); 2381. return(0); 2382. case D_BROKEN: 2383. pline("This door is broken."); 2384. return(0); 2385. } 2386. 2387. if ((levl[x][y].doormask & D_TRAPPED 2388. && (force || 2389. (!confused && rn2(MAXULEV - u.ulevel + 11) < 10))) 2390. || (!force && confused && !rn2(3))) { 2391. You("find a trap on the door!"); 2392. exercise(A_WIS, TRUE); 2393. if (ynq("Disarm it?") != 'y') return(1); 2394. if (levl[x][y].doormask & D_TRAPPED) { 2395. ch = 15 + (Role_is('R') ? u.ulevel*3 : u.ulevel); 2396. exercise(A_DEX, TRUE); 2397. if(!force && (confused || Fumbling || 2398. rnd(75+level_difficulty()/2) > ch)) { 2399. You("set it off!"); 2400. b_trapped("door", FINGER); 2401. } else 2402. You("disarm it!"); 2403. levl[x][y].doormask &= ~D_TRAPPED; 2404. } else pline("This door was not trapped."); 2405. return(1); 2406. } else { 2407. You("find no traps on the door."); 2408. return(1); 2409. } 2410. } 2411. #endif /* OVL2 */ 2412. #ifdef OVLB 2413. 2414. /* only called when the player is doing something to the chest directly */ 2415. boolean 2416. chest_trap(obj, bodypart, disarm) 2417. register struct obj *obj; 2418. register int bodypart; 2419. boolean disarm; 2420. { 2421. register struct obj *otmp = obj, *otmp2; 2422. char buf[80]; 2423. const char *msg; 2424. 2425. You(disarm ? "set it off!" : "trigger a trap!"); 2426. display_nhwindow(WIN_MESSAGE, FALSE); 2427. if (Luck > -13 && rn2(13+Luck) > 7) { /* saved by luck */ 2428. /* trap went off, but good luck prevents damage */ 2429. switch (rn2(13)) { 2430. case 12: 2431. case 11: msg = "explosive charge is a dud"; break; 2432. case 10: 2433. case 9: msg = "electric charge is grounded"; break; 2434. case 8: 2435. case 7: msg = "flame fizzles out"; break; 2436. case 6: 2437. case 5: 2438. case 4: msg = "poisoned needle misses"; break; 2439. case 3: 2440. case 2: 2441. case 1: 2442. case 0: msg = "gas cloud blows away"; break; 2443. default: impossible("chest disarm bug"); msg = (char *)0; 2444. break; 2445. } 2446. if (msg) pline("But luckily the %s!", msg); 2447. } else { 2448. switch(rn2(20) ? ((Luck >= 13) ? 0 : rn2(13-Luck)) : rn2(26)) { 2449. case 25: 2450. case 24: 2451. case 23: 2452. case 22: 2453. case 21: { 2454. struct monst *shkp = 0; 2455. long loss = 0L; 2456. boolean costly, insider; 2457. register xchar ox = obj->ox, oy = obj->oy; 2458. 2459. /* the obj location need not be that of player */ 2460. costly = (costly_spot(ox, oy) && 2461. (shkp = shop_keeper(*in_rooms(ox, oy, 2462. SHOPBASE))) != (struct monst *)0); 2463. insider = (*u.ushops && inside_shop(u.ux, u.uy) && 2464. *in_rooms(ox, oy, SHOPBASE) == *u.ushops); 2465. 2466. pline("%s explodes!", The(xname(obj))); 2467. Sprintf(buf, "exploding %s", xname(obj)); 2468. 2469. if(costly) 2470. loss += stolen_value(obj, ox, oy, 2471. (boolean)shkp->mpeaceful, TRUE); 2472. delete_contents(obj); 2473. for(otmp = level.objects[u.ux][u.uy]; 2474. otmp; otmp = otmp2) { 2475. otmp2 = otmp->nexthere; 2476. if(costly) 2477. loss += stolen_value(otmp, otmp->ox, 2478. otmp->oy, (boolean)shkp->mpeaceful, 2479. TRUE); 2480. delobj(otmp); 2481. } 2482. wake_nearby(); 2483. losehp(d(6,6), buf, KILLED_BY_AN); 2484. exercise(A_STR, FALSE); 2485. if(costly && loss) { 2486. if(insider) 2487. You("owe %ld zorkmids for objects destroyed.", 2488. loss); 2489. else { 2490. You("caused %ld zorkmids worth of damage!", 2491. loss); 2492. make_angry_shk(shkp, ox, oy); 2493. } 2494. } 2495. return TRUE; 2496. } 2497. case 20: 2498. case 19: 2499. case 18: 2500. case 17: 2501. pline("A cloud of noxious gas billows from %s.", 2502. the(xname(obj))); 2503. poisoned("gas cloud", A_STR, "cloud of poison gas",15); 2504. exercise(A_CON, FALSE); 2505. break; 2506. case 16: 2507. case 15: 2508. case 14: 2509. case 13: 2510. You_feel("a needle prick your %s.",body_part(bodypart)); 2511. poisoned("needle", A_CON, "poisoned needle",10); 2512. exercise(A_CON, FALSE); 2513. break; 2514. case 12: 2515. case 11: 2516. case 10: 2517. case 9: 2518. dofiretrap(obj); 2519. break; 2520. case 8: 2521. case 7: 2522. case 6: { 2523. int dmg; 2524. 2525. You("are jolted by a surge of electricity!"); 2526. if(Shock_resistance) { 2527. shieldeff(u.ux, u.uy); 2528. You("don't seem to be affected."); 2529. dmg = 0; 2530. } else 2531. dmg = d(4, 4); 2532. destroy_item(RING_CLASS, AD_ELEC); 2533. destroy_item(WAND_CLASS, AD_ELEC); 2534. if (dmg) losehp(dmg, "electric shock", KILLED_BY_AN); 2535. break; 2536. } 2537. case 5: 2538. case 4: 2539. case 3: 2540. pline("Suddenly you are frozen in place!"); 2541. nomul(-d(5, 6)); 2542. exercise(A_DEX, FALSE); 2543. nomovemsg = "You can move again."; 2544. break; 2545. case 2: 2546. case 1: 2547. case 0: 2548. pline("A cloud of %s gas billows from %s.", 2549. hcolor((char *)0), 2550. the(xname(obj))); 2551. if(!Stunned) { 2552. if (Hallucination) 2553. pline("What a groovy feeling!"); 2554. else if (Blind) 2555. You("stagger and get dizzy..."); 2556. else 2557. You("stagger and your vision blurs..."); 2558. } 2559. make_stunned(HStun + rn1(7, 16),FALSE); 2560. make_hallucinated(HHallucination + rn1(5, 16),FALSE,0L); 2561. break; 2562. default: impossible("bad chest trap"); 2563. break; 2564. } 2565. bot(); /* to get immediate botl re-display */ 2566. } 2567. otmp->otrapped = 0; /* these traps are one-shot things */ 2568. 2569. return FALSE; 2570. } 2571. 2572. #endif /* OVLB */ 2573. #ifdef OVL0 2574. 2575. struct trap * 2576. t_at(x,y) 2577. register int x, y; 2578. { 2579. register struct trap *trap = ftrap; 2580. while(trap) { 2581. if(trap->tx == x && trap->ty == y) return(trap); 2582. trap = trap->ntrap; 2583. } 2584. return((struct trap *)0); 2585. } 2586. 2587. #endif /* OVL0 */ 2588. #ifdef OVLB 2589. 2590. void 2591. deltrap(trap) 2592. register struct trap *trap; 2593. { 2594. register struct trap *ttmp; 2595. 2596. if(trap == ftrap) 2597. ftrap = ftrap->ntrap; 2598. else { 2599. for(ttmp = ftrap; ttmp->ntrap != trap; ttmp = ttmp->ntrap) ; 2600. ttmp->ntrap = trap->ntrap; 2601. } 2602. dealloc_trap(trap); 2603. } 2604. 2605. boolean delfloortrap(ttmp) 2606. register struct trap *ttmp; 2607. { 2608. /* Destroy a trap that emanates from the floor. */ 2609. /* some of these are arbitrary -dlc */ 2610. if (ttmp && ((ttmp->ttyp == SQKY_BOARD) || 2611. (ttmp->ttyp == BEAR_TRAP) || 2612. (ttmp->ttyp == LANDMINE) || 2613. (ttmp->ttyp == FIRE_TRAP) || 2614. (ttmp->ttyp == PIT) || 2615. (ttmp->ttyp == SPIKED_PIT) || 2616. (ttmp->ttyp == HOLE) || 2617. (ttmp->ttyp == TRAPDOOR) || 2618. (ttmp->ttyp == TELEP_TRAP) || 2619. (ttmp->ttyp == LEVEL_TELEP) || 2620. (ttmp->ttyp == WEB) || 2621. (ttmp->ttyp == MAGIC_TRAP) || 2622. (ttmp->ttyp == ANTI_MAGIC))) { 2623. register struct monst *mtmp; 2624. 2625. if (ttmp->tx == u.ux && ttmp->ty == u.uy) { 2626. u.utrap = 0; 2627. u.utraptype = 0; 2628. } else if ((mtmp = m_at(ttmp->tx, ttmp->ty)) != 0) { 2629. mtmp->mtrapped = 0; 2630. } 2631. deltrap(ttmp); 2632. return TRUE; 2633. } else 2634. return FALSE; 2635. } 2636. 2637. /* used for doors (also tins). can be used for anything else that opens. */ 2638. void 2639. b_trapped(item, bodypart) 2640. register const char *item; 2641. register int bodypart; 2642. { 2643. register int lvl = level_difficulty(); 2644. int dmg = rnd(5 + (lvl < 5 ? lvl : 2+lvl/2)); 2645. 2646. pline("KABOOM!! %s was booby-trapped!", The(item)); 2647. wake_nearby(); 2648. losehp(dmg, "explosion", KILLED_BY_AN); 2649. exercise(A_STR, FALSE); 2650. if (bodypart) exercise(A_CON, FALSE); 2651. make_stunned(HStun + dmg, TRUE); 2652. } 2653. 2654. /* Monster is hit by trap. */ 2655. /* Note: doesn't work if both obj and d_override are null */ 2656. STATIC_OVL boolean 2657. thitm(tlev, mon, obj, d_override) 2658. register int tlev; 2659. register struct monst *mon; 2660. register struct obj *obj; 2661. int d_override; 2662. { 2663. register int strike; 2664. register boolean trapkilled = FALSE; 2665. 2666. if (d_override) strike = 1; 2667. else if (obj) strike = (find_mac(mon) + tlev + obj->spe <= rnd(20)); 2668. else strike = (find_mac(mon) + tlev <= rnd(20)); 2669. 2670. /* Actually more accurate than thitu, which doesn't take 2671. * obj->spe into account. 2672. */ 2673. if(!strike) { 2674. if (cansee(mon->mx, mon->my)) 2675. pline("%s is almost hit by %s!", Monnam(mon), 2676. doname(obj)); 2677. } else { 2678. int dam = 1; 2679. 2680. if (obj && cansee(mon->mx, mon->my)) 2681. pline("%s is hit by %s!", Monnam(mon), doname(obj)); 2682. if (d_override) dam = d_override; 2683. else if (obj) { 2684. dam = dmgval(obj, mon); 2685. if (dam < 1) dam = 1; 2686. } 2687. if ((mon->mhp -= dam) <= 0) { 2688. int xx = mon->mx; 2689. int yy = mon->my; 2690. 2691. monkilled(mon, "", AD_PHYS); 2692. if (mon->mhp <= 0) { 2693. newsym(xx, yy); 2694. trapkilled = TRUE; 2695. } 2696. } 2697. } 2698. if (obj && (!strike || d_override)) { 2699. place_object(obj, mon->mx, mon->my); 2700. stackobj(obj); 2701. } else if (obj) dealloc_obj(obj); 2702. 2703. return trapkilled; 2704. } 2705. 2706. boolean 2707. unconscious() 2708. { 2709. return((boolean)(multi < 0 && (!nomovemsg || 2710. u.usleep || 2711. !strncmp(nomovemsg,"You regain con", 15) || 2712. !strncmp(nomovemsg,"You are consci", 15)))); 2713. } 2714. 2715. static char lava_killer[] = "molten lava"; 2716. 2717. boolean 2718. lava_effects() 2719. { 2720. register struct obj *obj, *obj2; 2721. int dmg; 2722. 2723. if (likes_lava(uasmon)) return FALSE; 2724. 2725. if (!Fire_resistance) { 2726. if(Wwalking) { 2727. dmg = d(6,6); 2728. pline_The("lava here burns you!"); 2729. if(dmg < u.uhp) { 2730. losehp(dmg, lava_killer, KILLED_BY); 2731. goto burn_stuff; 2732. } 2733. } else 2734. You("fall into the lava!"); 2735. 2736. for(obj = invent; obj; obj = obj2) { 2737. obj2 = obj->nobj; 2738. if(is_organic(obj) && !obj->oerodeproof) { 2739. if(obj->owornmask) { 2740. if(obj == uarm) (void) Armor_gone(); 2741. else if(obj == uarmc) (void) Cloak_off(); 2742. else if(obj == uarmh) (void) Helmet_off(); 2743. else if(obj == uarms) (void) Shield_off(); 2744. else if(obj == uarmg) (void) Gloves_off(); 2745. else if(obj == uarmf) (void) Boots_off(); 2746. #ifdef TOURIST 2747. else if(obj == uarmu) setnotworn(obj); 2748. #endif 2749. else if(obj == uleft) Ring_gone(obj); 2750. else if(obj == uright) Ring_gone(obj); 2751. else if(obj == ublindf) Blindf_off(obj); 2752. else if(obj == uwep) uwepgone(); 2753. if(Lifesaved 2754. #ifdef WIZARD 2755. || wizard 2756. #endif 2757. ) Your("%s into flame!", aobjnam(obj, "burst")); 2758. } 2759. useup(obj); 2760. } 2761. } 2762. 2763. /* s/he died... */ 2764. u.uhp = -1; 2765. killer_format = KILLED_BY; 2766. killer = lava_killer; 2767. You("burn to a crisp..."); 2768. done(BURNING); 2769. while (!safe_teleds()) { 2770. pline("You're still burning."); 2771. done(BURNING); 2772. } 2773. You("find yourself back on solid %s.", surface(u.ux, u.uy)); 2774. return(TRUE); 2775. } 2776. 2777. if (!Wwalking) { 2778. u.utrap = rn1(4, 4) + (rn1(4, 12) << 8); 2779. u.utraptype = TT_LAVA; 2780. You("sink into the lava, but it only burns slightly!"); 2781. if (u.uhp > 1) 2782. losehp(1, lava_killer, KILLED_BY); 2783. } 2784. /* just want to burn boots, not all armor; destroy_item doesn't work on 2785. armor anyway */ 2786. burn_stuff: 2787. if(uarmf && !uarmf->oerodeproof && is_organic(uarmf)) { 2788. /* save uarmf value because Boots_off() sets uarmf to null */ 2789. obj = uarmf; 2790. Your("%s burst into flame!", xname(obj)); 2791. (void) Boots_off(); 2792. useup(obj); 2793. } 2794. destroy_item(SCROLL_CLASS, AD_FIRE); 2795. destroy_item(SPBOOK_CLASS, AD_FIRE); 2796. destroy_item(POTION_CLASS, AD_FIRE); 2797. return(FALSE); 2798. } 2799. 2800. #endif /* OVLB */ 2801. 2802. /*trap.c*/
