Source:NetHack 3.4.3/src/potion.c
Jump to navigation
Jump to search
Below is the full text to src/potion.c from NetHack 3.4.3. To link to a particular line, write [[potion.c#line123]], for example.
1. /* SCCS Id: @(#)potion.c 3.4 2002/10/02 */ 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. #ifdef OVLB 8. boolean notonhead = FALSE; 9. 10. static NEARDATA int nothing, unkn; 11. static NEARDATA const char beverages[] = { POTION_CLASS, 0 }; 12. 13. STATIC_DCL long FDECL(itimeout, (long)); 14. STATIC_DCL long FDECL(itimeout_incr, (long,int)); 15. STATIC_DCL void NDECL(ghost_from_bottle); 16. STATIC_DCL short FDECL(mixtype, (struct obj *,struct obj *)); 17. 18. /* force `val' to be within valid range for intrinsic timeout value */ 19. STATIC_OVL long 20. itimeout(val) 21. long val; 22. { 23. if (val >= TIMEOUT) val = TIMEOUT; 24. else if (val < 1) val = 0; 25. 26. return val; 27. } 28. 29. /* increment `old' by `incr' and force result to be valid intrinsic timeout */ 30. STATIC_OVL long 31. itimeout_incr(old, incr) 32. long old; 33. int incr; 34. { 35. return itimeout((old & TIMEOUT) + (long)incr); 36. } 37. 38. /* set the timeout field of intrinsic `which' */ 39. void 40. set_itimeout(which, val) 41. long *which, val; 42. { 43. *which &= ~TIMEOUT; 44. *which |= itimeout(val); 45. } 46. 47. /* increment the timeout field of intrinsic `which' */ 48. void 49. incr_itimeout(which, incr) 50. long *which; 51. int incr; 52. { 53. set_itimeout(which, itimeout_incr(*which, incr)); 54. } 55. 56. void 57. make_confused(xtime,talk) 58. long xtime; 59. boolean talk; 60. { 61. long old = HConfusion; 62. 63. if (!xtime && old) { 64. if (talk) 65. You_feel("less %s now.", 66. Hallucination ? "trippy" : "confused"); 67. } 68. if ((xtime && !old) || (!xtime && old)) flags.botl = TRUE; 69. 70. set_itimeout(&HConfusion, xtime); 71. } 72. 73. void 74. make_stunned(xtime,talk) 75. long xtime; 76. boolean talk; 77. { 78. long old = HStun; 79. 80. if (!xtime && old) { 81. if (talk) 82. You_feel("%s now.", 83. Hallucination ? "less wobbly" : "a bit steadier"); 84. } 85. if (xtime && !old) { 86. if (talk) { 87. #ifdef STEED 88. if (u.usteed) 89. You("wobble in the saddle."); 90. else 91. #endif 92. You("%s...", stagger(youmonst.data, "stagger")); 93. } 94. } 95. if ((!xtime && old) || (xtime && !old)) flags.botl = TRUE; 96. 97. set_itimeout(&HStun, xtime); 98. } 99. 100. void 101. make_sick(xtime, cause, talk, type) 102. long xtime; 103. const char *cause; /* sickness cause */ 104. boolean talk; 105. int type; 106. { 107. long old = Sick; 108. 109. if (xtime > 0L) { 110. if (Sick_resistance) return; 111. if (!old) { 112. /* newly sick */ 113. You_feel("deathly sick."); 114. } else { 115. /* already sick */ 116. if (talk) You_feel("%s worse.", 117. xtime <= Sick/2L ? "much" : "even"); 118. } 119. set_itimeout(&Sick, xtime); 120. u.usick_type |= type; 121. flags.botl = TRUE; 122. } else if (old && (type & u.usick_type)) { 123. /* was sick, now not */ 124. u.usick_type &= ~type; 125. if (u.usick_type) { /* only partly cured */ 126. if (talk) You_feel("somewhat better."); 127. set_itimeout(&Sick, Sick * 2); /* approximation */ 128. } else { 129. if (talk) pline("What a relief!"); 130. Sick = 0L; /* set_itimeout(&Sick, 0L) */ 131. } 132. flags.botl = TRUE; 133. } 134. 135. if (Sick) { 136. exercise(A_CON, FALSE); 137. if (cause) { 138. (void) strncpy(u.usick_cause, cause, sizeof(u.usick_cause)); 139. u.usick_cause[sizeof(u.usick_cause)-1] = 0; 140. } 141. else 142. u.usick_cause[0] = 0; 143. } else 144. u.usick_cause[0] = 0; 145. } 146. 147. void 148. make_vomiting(xtime, talk) 149. long xtime; 150. boolean talk; 151. { 152. long old = Vomiting; 153. 154. if(!xtime && old) 155. if(talk) You_feel("much less nauseated now."); 156. 157. set_itimeout(&Vomiting, xtime); 158. } 159. 160. static const char vismsg[] = "vision seems to %s for a moment but is %s now."; 161. static const char eyemsg[] = "%s momentarily %s."; 162. 163. void 164. make_blinded(xtime, talk) 165. long xtime; 166. boolean talk; 167. { 168. long old = Blinded; 169. boolean u_could_see, can_see_now; 170. int eyecnt; 171. char buf[BUFSZ]; 172. 173. /* we need to probe ahead in case the Eyes of the Overworld 174. are or will be overriding blindness */ 175. u_could_see = !Blind; 176. Blinded = xtime ? 1L : 0L; 177. can_see_now = !Blind; 178. Blinded = old; /* restore */ 179. 180. if (u.usleep) talk = FALSE; 181. 182. if (can_see_now && !u_could_see) { /* regaining sight */ 183. if (talk) { 184. if (Hallucination) 185. pline("Far out! Everything is all cosmic again!"); 186. else 187. You("can see again."); 188. } 189. } else if (old && !xtime) { 190. /* clearing temporary blindness without toggling blindness */ 191. if (talk) { 192. if (!haseyes(youmonst.data)) { 193. strange_feeling((struct obj *)0, (char *)0); 194. } else if (Blindfolded) { 195. Strcpy(buf, body_part(EYE)); 196. eyecnt = eyecount(youmonst.data); 197. Your(eyemsg, (eyecnt == 1) ? buf : makeplural(buf), 198. (eyecnt == 1) ? "itches" : "itch"); 199. } else { /* Eyes of the Overworld */ 200. Your(vismsg, "brighten", 201. Hallucination ? "sadder" : "normal"); 202. } 203. } 204. } 205. 206. if (u_could_see && !can_see_now) { /* losing sight */ 207. if (talk) { 208. if (Hallucination) 209. pline("Oh, bummer! Everything is dark! Help!"); 210. else 211. pline("A cloud of darkness falls upon you."); 212. } 213. /* Before the hero goes blind, set the ball&chain variables. */ 214. if (Punished) set_bc(0); 215. } else if (!old && xtime) { 216. /* setting temporary blindness without toggling blindness */ 217. if (talk) { 218. if (!haseyes(youmonst.data)) { 219. strange_feeling((struct obj *)0, (char *)0); 220. } else if (Blindfolded) { 221. Strcpy(buf, body_part(EYE)); 222. eyecnt = eyecount(youmonst.data); 223. Your(eyemsg, (eyecnt == 1) ? buf : makeplural(buf), 224. (eyecnt == 1) ? "twitches" : "twitch"); 225. } else { /* Eyes of the Overworld */ 226. Your(vismsg, "dim", 227. Hallucination ? "happier" : "normal"); 228. } 229. } 230. } 231. 232. set_itimeout(&Blinded, xtime); 233. 234. if (u_could_see ^ can_see_now) { /* one or the other but not both */ 235. flags.botl = 1; 236. vision_full_recalc = 1; /* blindness just got toggled */ 237. if (Blind_telepat || Infravision) see_monsters(); 238. } 239. } 240. 241. boolean 242. make_hallucinated(xtime, talk, mask) 243. long xtime; /* nonzero if this is an attempt to turn on hallucination */ 244. boolean talk; 245. long mask; /* nonzero if resistance status should change by mask */ 246. { 247. long old = HHallucination; 248. boolean changed = 0; 249. const char *message, *verb; 250. 251. message = (!xtime) ? "Everything %s SO boring now." : 252. "Oh wow! Everything %s so cosmic!"; 253. verb = (!Blind) ? "looks" : "feels"; 254. 255. if (mask) { 256. if (HHallucination) changed = TRUE; 257. 258. if (!xtime) EHalluc_resistance |= mask; 259. else EHalluc_resistance &= ~mask; 260. } else { 261. if (!EHalluc_resistance && (!!HHallucination != !!xtime)) 262. changed = TRUE; 263. set_itimeout(&HHallucination, xtime); 264. 265. /* clearing temporary hallucination without toggling vision */ 266. if (!changed && !HHallucination && old && talk) { 267. if (!haseyes(youmonst.data)) { 268. strange_feeling((struct obj *)0, (char *)0); 269. } else if (Blind) { 270. char buf[BUFSZ]; 271. int eyecnt = eyecount(youmonst.data); 272. 273. Strcpy(buf, body_part(EYE)); 274. Your(eyemsg, (eyecnt == 1) ? buf : makeplural(buf), 275. (eyecnt == 1) ? "itches" : "itch"); 276. } else { /* Grayswandir */ 277. Your(vismsg, "flatten", "normal"); 278. } 279. } 280. } 281. 282. if (changed) { 283. if (u.uswallow) { 284. swallowed(0); /* redraw swallow display */ 285. } else { 286. /* The see_* routines should be called *before* the pline. */ 287. see_monsters(); 288. see_objects(); 289. see_traps(); 290. } 291. 292. /* for perm_inv and anything similar 293. (eg. Qt windowport's equipped items display) */ 294. update_inventory(); 295. 296. flags.botl = 1; 297. if (talk) pline(message, verb); 298. } 299. return changed; 300. } 301. 302. STATIC_OVL void 303. ghost_from_bottle() 304. { 305. struct monst *mtmp = makemon(&mons[PM_GHOST], u.ux, u.uy, NO_MM_FLAGS); 306. 307. if (!mtmp) { 308. pline("This bottle turns out to be empty."); 309. return; 310. } 311. if (Blind) { 312. pline("As you open the bottle, %s emerges.", something); 313. return; 314. } 315. pline("As you open the bottle, an enormous %s emerges!", 316. Hallucination ? rndmonnam() : (const char *)"ghost"); 317. if(flags.verbose) 318. You("are frightened to death, and unable to move."); 319. nomul(-3); 320. nomovemsg = "You regain your composure."; 321. } 322. 323. /* "Quaffing is like drinking, except you spill more." -- Terry Pratchett 324. */ 325. int 326. dodrink() 327. { 328. register struct obj *otmp; 329. const char *potion_descr; 330. 331. if (Strangled) { 332. pline("If you can't breathe air, how can you drink liquid?"); 333. return 0; 334. } 335. /* Is there a fountain to drink from here? */ 336. if (IS_FOUNTAIN(levl[u.ux][u.uy].typ) && !Levitation) { 337. if(yn("Drink from the fountain?") == 'y') { 338. drinkfountain(); 339. return 1; 340. } 341. } 342. #ifdef SINKS 343. /* Or a kitchen sink? */ 344. if (IS_SINK(levl[u.ux][u.uy].typ)) { 345. if (yn("Drink from the sink?") == 'y') { 346. drinksink(); 347. return 1; 348. } 349. } 350. #endif 351. 352. /* Or are you surrounded by water? */ 353. if (Underwater) { 354. if (yn("Drink the water around you?") == 'y') { 355. pline("Do you know what lives in this water!"); 356. return 1; 357. } 358. } 359. 360. otmp = getobj(beverages, "drink"); 361. if(!otmp) return(0); 362. otmp->in_use = TRUE; /* you've opened the stopper */ 363. 364. #define POTION_OCCUPANT_CHANCE(n) (13 + 2*(n)) /* also in muse.c */ 365. 366. potion_descr = OBJ_DESCR(objects[otmp->otyp]); 367. if (potion_descr) { 368. if (!strcmp(potion_descr, "milky") && 369. flags.ghost_count < MAXMONNO && 370. !rn2(POTION_OCCUPANT_CHANCE(flags.ghost_count))) { 371. ghost_from_bottle(); 372. useup(otmp); 373. return(1); 374. } else if (!strcmp(potion_descr, "smoky") && 375. flags.djinni_count < MAXMONNO && 376. !rn2(POTION_OCCUPANT_CHANCE(flags.djinni_count))) { 377. djinni_from_bottle(otmp); 378. useup(otmp); 379. return(1); 380. } 381. } 382. return dopotion(otmp); 383. } 384. 385. int 386. dopotion(otmp) 387. register struct obj *otmp; 388. { 389. int retval; 390. 391. otmp->in_use = TRUE; 392. nothing = unkn = 0; 393. if((retval = peffects(otmp)) >= 0) return(retval); 394. 395. if(nothing) { 396. unkn++; 397. You("have a %s feeling for a moment, then it passes.", 398. Hallucination ? "normal" : "peculiar"); 399. } 400. if(otmp->dknown && !objects[otmp->otyp].oc_name_known) { 401. if(!unkn) { 402. makeknown(otmp->otyp); 403. more_experienced(0,10); 404. } else if(!objects[otmp->otyp].oc_uname) 405. docall(otmp); 406. } 407. useup(otmp); 408. return(1); 409. } 410. 411. int 412. peffects(otmp) 413. register struct obj *otmp; 414. { 415. register int i, ii, lim; 416. 417. switch(otmp->otyp){ 418. case POT_RESTORE_ABILITY: 419. case SPE_RESTORE_ABILITY: 420. unkn++; 421. if(otmp->cursed) { 422. pline("Ulch! This makes you feel mediocre!"); 423. break; 424. } else { 425. pline("Wow! This makes you feel %s!", 426. (otmp->blessed) ? 427. (unfixable_trouble_count(FALSE) ? "better" : "great") 428. : "good"); 429. i = rn2(A_MAX); /* start at a random point */ 430. for (ii = 0; ii < A_MAX; ii++) { 431. lim = AMAX(i); 432. if (i == A_STR && u.uhs >= 3) --lim; /* WEAK */ 433. if (ABASE(i) < lim) { 434. ABASE(i) = lim; 435. flags.botl = 1; 436. /* only first found if not blessed */ 437. if (!otmp->blessed) break; 438. } 439. if(++i >= A_MAX) i = 0; 440. } 441. } 442. break; 443. case POT_HALLUCINATION: 444. if (Hallucination || Halluc_resistance) nothing++; 445. (void) make_hallucinated(itimeout_incr(HHallucination, 446. rn1(200, 600 - 300 * bcsign(otmp))), 447. TRUE, 0L); 448. break; 449. case POT_WATER: 450. if(!otmp->blessed && !otmp->cursed) { 451. pline("This tastes like water."); 452. u.uhunger += rnd(10); 453. newuhs(FALSE); 454. break; 455. } 456. unkn++; 457. if(is_undead(youmonst.data) || is_demon(youmonst.data) || 458. u.ualign.type == A_CHAOTIC) { 459. if(otmp->blessed) { 460. pline("This burns like acid!"); 461. exercise(A_CON, FALSE); 462. if (u.ulycn >= LOW_PM) { 463. Your("affinity to %s disappears!", 464. makeplural(mons[u.ulycn].mname)); 465. if (youmonst.data == &mons[u.ulycn]) 466. you_unwere(FALSE); 467. u.ulycn = NON_PM; /* cure lycanthropy */ 468. } 469. losehp(d(2,6), "potion of holy water", KILLED_BY_AN); 470. } else if(otmp->cursed) { 471. You_feel("quite proud of yourself."); 472. healup(d(2,6),0,0,0); 473. if (u.ulycn >= LOW_PM && !Upolyd) you_were(); 474. exercise(A_CON, TRUE); 475. } 476. } else { 477. if(otmp->blessed) { 478. You_feel("full of awe."); 479. make_sick(0L, (char *) 0, TRUE, SICK_ALL); 480. exercise(A_WIS, TRUE); 481. exercise(A_CON, TRUE); 482. if (u.ulycn >= LOW_PM) 483. you_unwere(TRUE); /* "Purified" */ 484. /* make_confused(0L,TRUE); */ 485. } else { 486. if(u.ualign.type == A_LAWFUL) { 487. pline("This burns like acid!"); 488. losehp(d(2,6), "potion of unholy water", 489. KILLED_BY_AN); 490. } else 491. You_feel("full of dread."); 492. if (u.ulycn >= LOW_PM && !Upolyd) you_were(); 493. exercise(A_CON, FALSE); 494. } 495. } 496. break; 497. case POT_BOOZE: 498. unkn++; 499. pline("Ooph! This tastes like %s%s!", 500. otmp->odiluted ? "watered down " : "", 501. Hallucination ? "dandelion wine" : "liquid fire"); 502. if (!otmp->blessed) 503. make_confused(itimeout_incr(HConfusion, d(3,8)), FALSE); 504. /* the whiskey makes us feel better */ 505. if (!otmp->odiluted) healup(1, 0, FALSE, FALSE); 506. u.uhunger += 10 * (2 + bcsign(otmp)); 507. newuhs(FALSE); 508. exercise(A_WIS, FALSE); 509. if(otmp->cursed) { 510. You("pass out."); 511. multi = -rnd(15); 512. nomovemsg = "You awake with a headache."; 513. } 514. break; 515. case POT_ENLIGHTENMENT: 516. if(otmp->cursed) { 517. unkn++; 518. You("have an uneasy feeling..."); 519. exercise(A_WIS, FALSE); 520. } else { 521. if (otmp->blessed) { 522. (void) adjattrib(A_INT, 1, FALSE); 523. (void) adjattrib(A_WIS, 1, FALSE); 524. } 525. You_feel("self-knowledgeable..."); 526. display_nhwindow(WIN_MESSAGE, FALSE); 527. enlightenment(0); 528. pline_The("feeling subsides."); 529. exercise(A_WIS, TRUE); 530. } 531. break; 532. case SPE_INVISIBILITY: 533. /* spell cannot penetrate mummy wrapping */ 534. if (BInvis && uarmc->otyp == MUMMY_WRAPPING) { 535. You_feel("rather itchy under your %s.", xname(uarmc)); 536. break; 537. } 538. /* FALLTHRU */ 539. case POT_INVISIBILITY: 540. if (Invis || Blind || BInvis) { 541. nothing++; 542. } else { 543. self_invis_message(); 544. } 545. if (otmp->blessed) HInvis |= FROMOUTSIDE; 546. else incr_itimeout(&HInvis, rn1(15,31)); 547. newsym(u.ux,u.uy); /* update position */ 548. if(otmp->cursed) { 549. pline("For some reason, you feel your presence is known."); 550. aggravate(); 551. } 552. break; 553. case POT_SEE_INVISIBLE: 554. /* tastes like fruit juice in Rogue */ 555. case POT_FRUIT_JUICE: 556. { 557. int msg = Invisible && !Blind; 558. 559. unkn++; 560. if (otmp->cursed) 561. pline("Yecch! This tastes %s.", 562. Hallucination ? "overripe" : "rotten"); 563. else 564. pline(Hallucination ? 565. "This tastes like 10%% real %s%s all-natural beverage." : 566. "This tastes like %s%s.", 567. otmp->odiluted ? "reconstituted " : "", 568. fruitname(TRUE)); 569. if (otmp->otyp == POT_FRUIT_JUICE) { 570. u.uhunger += (otmp->odiluted ? 5 : 10) * (2 + bcsign(otmp)); 571. newuhs(FALSE); 572. break; 573. } 574. if (!otmp->cursed) { 575. /* Tell them they can see again immediately, which 576. * will help them identify the potion... 577. */ 578. make_blinded(0L,TRUE); 579. } 580. if (otmp->blessed) 581. HSee_invisible |= FROMOUTSIDE; 582. else 583. incr_itimeout(&HSee_invisible, rn1(100,750)); 584. set_mimic_blocking(); /* do special mimic handling */ 585. see_monsters(); /* see invisible monsters */ 586. newsym(u.ux,u.uy); /* see yourself! */ 587. if (msg && !Blind) { /* Blind possible if polymorphed */ 588. You("can see through yourself, but you are visible!"); 589. unkn--; 590. } 591. break; 592. } 593. case POT_PARALYSIS: 594. if (Free_action) 595. You("stiffen momentarily."); 596. else { 597. if (Levitation || Is_airlevel(&u.uz)||Is_waterlevel(&u.uz)) 598. You("are motionlessly suspended."); 599. #ifdef STEED 600. else if (u.usteed) 601. You("are frozen in place!"); 602. #endif 603. else 604. Your("%s are frozen to the %s!", 605. makeplural(body_part(FOOT)), surface(u.ux, u.uy)); 606. nomul(-(rn1(10, 25 - 12*bcsign(otmp)))); 607. nomovemsg = You_can_move_again; 608. exercise(A_DEX, FALSE); 609. } 610. break; 611. case POT_SLEEPING: 612. if(Sleep_resistance || Free_action) 613. You("yawn."); 614. else { 615. You("suddenly fall asleep!"); 616. fall_asleep(-rn1(10, 25 - 12*bcsign(otmp)), TRUE); 617. } 618. break; 619. case POT_MONSTER_DETECTION: 620. case SPE_DETECT_MONSTERS: 621. if (otmp->blessed) { 622. int x, y; 623. 624. if (Detect_monsters) nothing++; 625. unkn++; 626. /* after a while, repeated uses become less effective */ 627. if (HDetect_monsters >= 300L) 628. i = 1; 629. else 630. i = rn1(40,21); 631. incr_itimeout(&HDetect_monsters, i); 632. for (x = 1; x < COLNO; x++) { 633. for (y = 0; y < ROWNO; y++) { 634. if (levl[x][y].glyph == GLYPH_INVISIBLE) { 635. unmap_object(x, y); 636. newsym(x,y); 637. } 638. if (MON_AT(x,y)) unkn = 0; 639. } 640. } 641. see_monsters(); 642. if (unkn) You_feel("lonely."); 643. break; 644. } 645. if (monster_detect(otmp, 0)) 646. return(1); /* nothing detected */ 647. exercise(A_WIS, TRUE); 648. break; 649. case POT_OBJECT_DETECTION: 650. case SPE_DETECT_TREASURE: 651. if (object_detect(otmp, 0)) 652. return(1); /* nothing detected */ 653. exercise(A_WIS, TRUE); 654. break; 655. case POT_SICKNESS: 656. pline("Yecch! This stuff tastes like poison."); 657. if (otmp->blessed) { 658. pline("(But in fact it was mildly stale %s.)", 659. fruitname(TRUE)); 660. if (!Role_if(PM_HEALER)) { 661. /* NB: blessed otmp->fromsink is not possible */ 662. losehp(1, "mildly contaminated potion", KILLED_BY_AN); 663. } 664. } else { 665. if(Poison_resistance) 666. pline( 667. "(But in fact it was biologically contaminated %s.)", 668. fruitname(TRUE)); 669. if (Role_if(PM_HEALER)) 670. pline("Fortunately, you have been immunized."); 671. else { 672. int typ = rn2(A_MAX); 673. 674. if (!Fixed_abil) { 675. poisontell(typ); 676. (void) adjattrib(typ, 677. Poison_resistance ? -1 : -rn1(4,3), 678. TRUE); 679. } 680. if(!Poison_resistance) { 681. if (otmp->fromsink) 682. losehp(rnd(10)+5*!!(otmp->cursed), 683. "contaminated tap water", KILLED_BY); 684. else 685. losehp(rnd(10)+5*!!(otmp->cursed), 686. "contaminated potion", KILLED_BY_AN); 687. } 688. exercise(A_CON, FALSE); 689. } 690. } 691. if(Hallucination) { 692. You("are shocked back to your senses!"); 693. (void) make_hallucinated(0L,FALSE,0L); 694. } 695. break; 696. case POT_CONFUSION: 697. if(!Confusion) 698. if (Hallucination) { 699. pline("What a trippy feeling!"); 700. unkn++; 701. } else 702. pline("Huh, What? Where am I?"); 703. else nothing++; 704. make_confused(itimeout_incr(HConfusion, 705. rn1(7, 16 - 8 * bcsign(otmp))), 706. FALSE); 707. break; 708. case POT_GAIN_ABILITY: 709. if(otmp->cursed) { 710. pline("Ulch! That potion tasted foul!"); 711. unkn++; 712. } else if (Fixed_abil) { 713. nothing++; 714. } else { /* If blessed, increase all; if not, try up to */ 715. int itmp; /* 6 times to find one which can be increased. */ 716. i = -1; /* increment to 0 */ 717. for (ii = A_MAX; ii > 0; ii--) { 718. i = (otmp->blessed ? i + 1 : rn2(A_MAX)); 719. /* only give "your X is already as high as it can get" 720. message on last attempt (except blessed potions) */ 721. itmp = (otmp->blessed || ii == 1) ? 0 : -1; 722. if (adjattrib(i, 1, itmp) && !otmp->blessed) 723. break; 724. } 725. } 726. break; 727. case POT_SPEED: 728. if(Wounded_legs && !otmp->cursed 729. #ifdef STEED 730. && !u.usteed /* heal_legs() would heal steeds legs */ 731. #endif 732. ) { 733. heal_legs(); 734. unkn++; 735. break; 736. } /* and fall through */ 737. case SPE_HASTE_SELF: 738. if(!Very_fast) /* wwf@doe.carleton.ca */ 739. You("are suddenly moving %sfaster.", 740. Fast ? "" : "much "); 741. else { 742. Your("%s get new energy.", 743. makeplural(body_part(LEG))); 744. unkn++; 745. } 746. exercise(A_DEX, TRUE); 747. incr_itimeout(&HFast, rn1(10, 100 + 60 * bcsign(otmp))); 748. break; 749. case POT_BLINDNESS: 750. if(Blind) nothing++; 751. make_blinded(itimeout_incr(Blinded, 752. rn1(200, 250 - 125 * bcsign(otmp))), 753. (boolean)!Blind); 754. break; 755. case POT_GAIN_LEVEL: 756. if (otmp->cursed) { 757. unkn++; 758. /* they went up a level */ 759. if((ledger_no(&u.uz) == 1 && u.uhave.amulet) || 760. Can_rise_up(u.ux, u.uy, &u.uz)) { 761. const char *riseup ="rise up, through the %s!"; 762. if(ledger_no(&u.uz) == 1) { 763. You(riseup, ceiling(u.ux,u.uy)); 764. goto_level(&earth_level, FALSE, FALSE, FALSE); 765. } else { 766. register int newlev = depth(&u.uz)-1; 767. d_level newlevel; 768. ;769. get_level(&newlevel, newlev); 770. if(on_level(&newlevel, &u.uz)) { 771. pline("It tasted bad."); 772. break; 773. } else You(riseup, ceiling(u.ux,u.uy)); 774. goto_level(&newlevel, FALSE, FALSE, FALSE); 775. } 776. } 777. else You("have an uneasy feeling."); 778. break; 779. } 780. pluslvl(FALSE); 781. if (otmp->blessed) 782. /* blessed potions place you at a random spot in the 783. * middle of the new level instead of the low point 784. */ 785. u.uexp = rndexp(TRUE); 786. break; 787. case POT_HEALING: 788. You_feel("better."); 789. healup(d(6 + 2 * bcsign(otmp), 4), 790. !otmp->cursed ? 1 : 0, !!otmp->blessed, !otmp->cursed); 791. exercise(A_CON, TRUE); 792. break; 793. case POT_EXTRA_HEALING: 794. You_feel("much better."); 795. healup(d(6 + 2 * bcsign(otmp), 8), 796. otmp->blessed ? 5 : !otmp->cursed ? 2 : 0, 797. !otmp->cursed, TRUE); 798. (void) make_hallucinated(0L,TRUE,0L); 799. exercise(A_CON, TRUE); 800. exercise(A_STR, TRUE); 801. break; 802. case POT_FULL_HEALING: 803. You_feel("completely healed."); 804. healup(400, 4+4*bcsign(otmp), !otmp->cursed, TRUE); 805. /* Restore one lost level if blessed */ 806. if (otmp->blessed && u.ulevel < u.ulevelmax) { 807. /* when multiple levels have been lost, drinking 808. multiple potions will only get half of them back */ 809. u.ulevelmax -= 1; 810. pluslvl(FALSE); 811. } 812. (void) make_hallucinated(0L,TRUE,0L); 813. exercise(A_STR, TRUE); 814. exercise(A_CON, TRUE); 815. break; 816. case POT_LEVITATION: 817. case SPE_LEVITATION: 818. if (otmp->cursed) HLevitation &= ~I_SPECIAL; 819. if(!Levitation) { 820. /* kludge to ensure proper operation of float_up() */ 821. HLevitation = 1; 822. float_up(); 823. /* reverse kludge */ 824. HLevitation = 0; 825. if (otmp->cursed && !Is_waterlevel(&u.uz)) { 826. if((u.ux != xupstair || u.uy != yupstair) 827. && (u.ux != sstairs.sx || u.uy != sstairs.sy || !sstairs.up) 828. && (!xupladder || u.ux != xupladder || u.uy != yupladder) 829. ) { 830. You("hit your %s on the %s.", 831. body_part(HEAD), 832. ceiling(u.ux,u.uy)); 833. losehp(uarmh ? 1 : rnd(10), 834. "colliding with the ceiling", 835. KILLED_BY); 836. } else (void) doup(); 837. } 838. } else 839. nothing++; 840. if (otmp->blessed) { 841. incr_itimeout(&HLevitation, rn1(50,250)); 842. HLevitation |= I_SPECIAL; 843. } else incr_itimeout(&HLevitation, rn1(140,10)); 844. spoteffects(FALSE); /* for sinks */ 845. break; 846. case POT_GAIN_ENERGY: /* M. Stephenson */ 847. { register int num; 848. if(otmp->cursed) 849. You_feel("lackluster."); 850. else 851. pline("Magical energies course through your body."); 852. num = rnd(5) + 5 * otmp->blessed + 1; 853. u.uenmax += (otmp->cursed) ? -num : num; 854. u.uen += (otmp->cursed) ? -num : num; 855. if(u.uenmax <= 0) u.uenmax = 0; 856. if(u.uen <= 0) u.uen = 0; 857. flags.botl = 1; 858. exercise(A_WIS, TRUE); 859. } 860. break; 861. case POT_OIL: /* P. Winner */ 862. { 863. boolean good_for_you = FALSE; 864. 865. if (otmp->lamplit) { 866. if (likes_fire(youmonst.data)) { 867. pline("Ahh, a refreshing drink."); 868. good_for_you = TRUE; 869. } else { 870. You("burn your %s.", body_part(FACE)); 871. losehp(d(Fire_resistance ? 1 : 3, 4), 872. "burning potion of oil", KILLED_BY_AN); 873. } 874. } else if(otmp->cursed) 875. pline("This tastes like castor oil."); 876. else 877. pline("That was smooth!"); 878. exercise(A_WIS, good_for_you); 879. } 880. break; 881. case POT_ACID: 882. if (Acid_resistance) 883. /* Not necessarily a creature who _likes_ acid */ 884. pline("This tastes %s.", Hallucination ? "tangy" : "sour"); 885. else { 886. pline("This burns%s!", otmp->blessed ? " a little" : 887. otmp->cursed ? " a lot" : " like acid"); 888. losehp(d(otmp->cursed ? 2 : 1, otmp->blessed ? 4 : 8), 889. "potion of acid", KILLED_BY_AN); 890. exercise(A_CON, FALSE); 891. } 892. if (Stoned) fix_petrification(); 893. unkn++; /* holy/unholy water can burn like acid too */ 894. break; 895. case POT_POLYMORPH: 896. You_feel("a little %s.", Hallucination ? "normal" : "strange"); 897. if (!Unchanging) polyself(FALSE); 898. break; 899. default: 900. impossible("What a funny potion! (%u)", otmp->otyp); 901. return(0); 902. } 903. return(-1); 904. } 905. 906. void 907. healup(nhp, nxtra, curesick, cureblind) 908. int nhp, nxtra; 909. register boolean curesick, cureblind; 910. { 911. if (nhp) { 912. if (Upolyd) { 913. u.mh += nhp; 914. if (u.mh > u.mhmax) u.mh = (u.mhmax += nxtra); 915. } else { 916. u.uhp += nhp; 917. if(u.uhp > u.uhpmax) u.uhp = (u.uhpmax += nxtra); 918. } 919. } 920. if(cureblind) make_blinded(0L,TRUE); 921. if(curesick) make_sick(0L, (char *) 0, TRUE, SICK_ALL); 922. flags.botl = 1; 923. return; 924. } 925. 926. void 927. strange_feeling(obj,txt) 928. register struct obj *obj; 929. register const char *txt; 930. { 931. if (flags.beginner || !txt) 932. You("have a %s feeling for a moment, then it passes.", 933. Hallucination ? "normal" : "strange"); 934. else 935. pline(txt); 936. 937. if(!obj) /* e.g., crystal ball finds no traps */ 938. return; 939. 940. if(obj->dknown && !objects[obj->otyp].oc_name_known && 941. !objects[obj->otyp].oc_uname) 942. docall(obj); 943. useup(obj); 944. } 945. 946. const char *bottlenames[] = { 947. "bottle", "phial", "flagon", "carafe", "flask", "jar", "vial" 948. }; 949. 950. 951. const char * 952. bottlename() 953. { 954. return bottlenames[rn2(SIZE(bottlenames))]; 955. } 956. 957. void 958. potionhit(mon, obj, your_fault) 959. register struct monst *mon; 960. register struct obj *obj; 961. boolean your_fault; 962. { 963. register const char *botlnam = bottlename(); 964. boolean isyou = (mon == &youmonst); 965. int distance; 966. 967. if(isyou) { 968. distance = 0; 969. pline_The("%s crashes on your %s and breaks into shards.", 970. botlnam, body_part(HEAD)); 971. losehp(rnd(2), "thrown potion", KILLED_BY_AN); 972. } else { 973. distance = distu(mon->mx,mon->my); 974. if (!cansee(mon->mx,mon->my)) pline("Crash!"); 975. else { 976. char *mnam = mon_nam(mon); 977. char buf[BUFSZ]; 978. 979. if(has_head(mon->data)) { 980. Sprintf(buf, "%s %s", 981. s_suffix(mnam), 982. (notonhead ? "body" : "head")); 983. } else { 984. Strcpy(buf, mnam); 985. } 986. pline_The("%s crashes on %s and breaks into shards.", 987. botlnam, buf); 988. } 989. if(rn2(5) && mon->mhp > 1) 990. mon->mhp--; 991. } 992. 993. /* oil doesn't instantly evaporate */ 994. if (obj->otyp != POT_OIL && cansee(mon->mx,mon->my)) 995. pline("%s.", Tobjnam(obj, "evaporate")); 996. 997. if (isyou) { 998. switch (obj->otyp) { 999. case POT_OIL: 1000. if (obj->lamplit) 1001. splatter_burning_oil(u.ux, u.uy); 1002. break; 1003. case POT_POLYMORPH: 1004. You_feel("a little %s.", Hallucination ? "normal" : "strange"); 1005. if (!Unchanging && !Antimagic) polyself(FALSE); 1006. break; 1007. case POT_ACID: 1008. if (!Acid_resistance) { 1009. pline("This burns%s!", obj->blessed ? " a little" : 1010. obj->cursed ? " a lot" : ""); 1011. losehp(d(obj->cursed ? 2 : 1, obj->blessed ? 4 : 8), 1012. "potion of acid", KILLED_BY_AN); 1013. } 1014. break; 1015. } 1016. } else { 1017. boolean angermon = TRUE; 1018. 1019. if (!your_fault) angermon = FALSE; 1020. switch (obj->otyp) { 1021. case POT_HEALING: 1022. case POT_EXTRA_HEALING: 1023. case POT_FULL_HEALING: 1024. if (mon->data == &mons[PM_PESTILENCE]) goto do_illness; 1025. /*FALLTHRU*/ 1026. case POT_RESTORE_ABILITY: 1027. case POT_GAIN_ABILITY: 1028. do_healing: 1029. angermon = FALSE; 1030. if(mon->mhp < mon->mhpmax) { 1031. mon->mhp = mon->mhpmax; 1032. if (canseemon(mon)) 1033. pline("%s looks sound and hale again.", Monnam(mon)); 1034. } 1035. break; 1036. case POT_SICKNESS: 1037. if (mon->data == &mons[PM_PESTILENCE]) goto do_healing; 1038. if (dmgtype(mon->data, AD_DISE) || 1039. dmgtype(mon->data, AD_PEST) || /* won't happen, see prior goto */ 1040. resists_poison(mon)) { 1041. if (canseemon(mon)) 1042. pline("%s looks unharmed.", Monnam(mon)); 1043. break; 1044. } 1045. do_illness: 1046. if((mon->mhpmax > 3) && !resist(mon, POTION_CLASS, 0, NOTELL)) 1047. mon->mhpmax /= 2; 1048. if((mon->mhp > 2) && !resist(mon, POTION_CLASS, 0, NOTELL)) 1049. mon->mhp /= 2; 1050. if (mon->mhp > mon->mhpmax) mon->mhp = mon->mhpmax; 1051. if (canseemon(mon)) 1052. pline("%s looks rather ill.", Monnam(mon)); 1053. break; 1054. case POT_CONFUSION: 1055. case POT_BOOZE: 1056. if(!resist(mon, POTION_CLASS, 0, NOTELL)) mon->mconf = TRUE; 1057. break; 1058. case POT_INVISIBILITY: 1059. angermon = FALSE; 1060. mon_set_minvis(mon); 1061. break; 1062. case POT_SLEEPING: 1063. /* wakeup() doesn't rouse victims of temporary sleep */ 1064. if (sleep_monst(mon, rnd(12), POTION_CLASS)) { 1065. pline("%s falls asleep.", Monnam(mon)); 1066. slept_monst(mon); 1067. } 1068. break; 1069. case POT_PARALYSIS: 1070. if (mon->mcanmove) { 1071. mon->mcanmove = 0; 1072. /* really should be rnd(5) for consistency with players 1073. * breathing potions, but... 1074. */ 1075. mon->mfrozen = rnd(25); 1076. } 1077. break; 1078. case POT_SPEED: 1079. angermon = FALSE; 1080. mon_adjust_speed(mon, 1, obj); 1081. break; 1082. case POT_BLINDNESS: 1083. if(haseyes(mon->data)) { 1084. register int btmp = 64 + rn2(32) + 1085. rn2(32) * !resist(mon, POTION_CLASS, 0, NOTELL); 1086. btmp += mon->mblinded; 1087. mon->mblinded = min(btmp,127); 1088. mon->mcansee = 0; 1089. } 1090. break; 1091. case POT_WATER: 1092. if (is_undead(mon->data) || is_demon(mon->data) || 1093. is_were(mon->data)) { 1094. if (obj->blessed) { 1095. pline("%s %s in pain!", Monnam(mon), 1096. is_silent(mon->data) ? "writhes" : "shrieks"); 1097. mon->mhp -= d(2,6); 1098. /* should only be by you */ 1099. if (mon->mhp < 1) killed(mon); 1100. else if (is_were(mon->data) && !is_human(mon->data)) 1101. new_were(mon); /* revert to human */ 1102. } else if (obj->cursed) { 1103. angermon = FALSE; 1104. if (canseemon(mon)) 1105. pline("%s looks healthier.", Monnam(mon)); 1106. mon->mhp += d(2,6); 1107. if (mon->mhp > mon->mhpmax) mon->mhp = mon->mhpmax; 1108. if (is_were(mon->data) && is_human(mon->data) && 1109. !Protection_from_shape_changers) 1110. new_were(mon); /* transform into beast */ 1111. } 1112. } else if(mon->data == &mons[PM_GREMLIN]) { 1113. angermon = FALSE; 1114. (void)split_mon(mon, (struct monst *)0); 1115. } else if(mon->data == &mons[PM_IRON_GOLEM]) { 1116. if (canseemon(mon)) 1117. pline("%s rusts.", Monnam(mon)); 1118. mon->mhp -= d(1,6); 1119. /* should only be by you */ 1120. if (mon->mhp < 1) killed(mon); 1121. } 1122. break; 1123. case POT_OIL: 1124. if (obj->lamplit) 1125. splatter_burning_oil(mon->mx, mon->my); 1126. break; 1127. case POT_ACID: 1128. if (!resists_acid(mon) && !resist(mon, POTION_CLASS, 0, NOTELL)) { 1129. pline("%s %s in pain!", Monnam(mon), 1130. is_silent(mon->data) ? "writhes" : "shrieks"); 1131. mon->mhp -= d(obj->cursed ? 2 : 1, obj->blessed ? 4 : 8); 1132. if (mon->mhp < 1) { 1133. if (your_fault) 1134. killed(mon); 1135. else 1136. monkilled(mon, "", AD_ACID); 1137. } 1138. } 1139. break; 1140. case POT_POLYMORPH: 1141. (void) bhitm(mon, obj); 1142. break; 1143. /* 1144. case POT_GAIN_LEVEL: 1145. case POT_LEVITATION: 1146. case POT_FRUIT_JUICE: 1147. case POT_MONSTER_DETECTION: 1148. case POT_OBJECT_DETECTION: 1149. break; 1150. */ 1151. } 1152. if (angermon) 1153. wakeup(mon); 1154. else 1155. mon->msleeping = 0; 1156. } 1157. 1158. /* Note: potionbreathe() does its own docall() */ 1159. if ((distance==0 || ((distance < 3) && rn2(5))) && 1160. (!breathless(youmonst.data) || haseyes(youmonst.data))) 1161. potionbreathe(obj); 1162. else if (obj->dknown && !objects[obj->otyp].oc_name_known && 1163. !objects[obj->otyp].oc_uname && cansee(mon->mx,mon->my)) 1164. docall(obj); 1165. if(*u.ushops && obj->unpaid) { 1166. register struct monst *shkp = 1167. shop_keeper(*in_rooms(u.ux, u.uy, SHOPBASE)); 1168. 1169. if(!shkp) 1170. obj->unpaid = 0; 1171. else { 1172. (void)stolen_value(obj, u.ux, u.uy, 1173. (boolean)shkp->mpeaceful, FALSE); 1174. subfrombill(obj, shkp); 1175. } 1176. } 1177. obfree(obj, (struct obj *)0); 1178. } 1179. 1180. /* vapors are inhaled or get in your eyes */ 1181. void 1182. potionbreathe(obj) 1183. register struct obj *obj; 1184. { 1185. register int i, ii, isdone, kn = 0; 1186. 1187. switch(obj->otyp) { 1188. case POT_RESTORE_ABILITY: 1189. case POT_GAIN_ABILITY: 1190. if(obj->cursed) { 1191. if (!breathless(youmonst.data)) 1192. pline("Ulch! That potion smells terrible!"); 1193. else if (haseyes(youmonst.data)) { 1194. int numeyes = eyecount(youmonst.data); 1195. Your("%s sting%s!", 1196. (numeyes == 1) ? body_part(EYE) : makeplural(body_part(EYE)), 1197. (numeyes == 1) ? "s" : ""); 1198. } 1199. break; 1200. } else { 1201. i = rn2(A_MAX); /* start at a random point */ 1202. for(isdone = ii = 0; !isdone && ii < A_MAX; ii++) { 1203. if(ABASE(i) < AMAX(i)) { 1204. ABASE(i)++; 1205. /* only first found if not blessed */ 1206. isdone = !(obj->blessed); 1207. flags.botl = 1; 1208. } 1209. if(++i >= A_MAX) i = 0; 1210. } 1211. } 1212. break; 1213. case POT_FULL_HEALING: 1214. if (Upolyd && u.mh < u.mhmax) u.mh++, flags.botl = 1; 1215. if (u.uhp < u.uhpmax) u.uhp++, flags.botl = 1; 1216. /*FALL THROUGH*/ 1217. case POT_EXTRA_HEALING: 1218. if (Upolyd && u.mh < u.mhmax) u.mh++, flags.botl = 1; 1219. if (u.uhp < u.uhpmax) u.uhp++, flags.botl = 1; 1220. /*FALL THROUGH*/ 1221. case POT_HEALING: 1222. if (Upolyd && u.mh < u.mhmax) u.mh++, flags.botl = 1; 1223. if (u.uhp < u.uhpmax) u.uhp++, flags.botl = 1; 1224. exercise(A_CON, TRUE); 1225. break; 1226. case POT_SICKNESS: 1227. if (!Role_if(PM_HEALER)) { 1228. if (Upolyd) { 1229. if (u.mh <= 5) u.mh = 1; else u.mh -= 5; 1230. } else { 1231. if (u.uhp <= 5) u.uhp = 1; else u.uhp -= 5; 1232. } 1233. flags.botl = 1; 1234. exercise(A_CON, FALSE); 1235. } 1236. break; 1237. case POT_HALLUCINATION: 1238. You("have a momentary vision."); 1239. break; 1240. case POT_CONFUSION: 1241. case POT_BOOZE: 1242. if(!Confusion) 1243. You_feel("somewhat dizzy."); 1244. make_confused(itimeout_incr(HConfusion, rnd(5)), FALSE); 1245. break; 1246. case POT_INVISIBILITY: 1247. if (!Blind && !Invis) { 1248. kn++; 1249. pline("For an instant you %s!", 1250. See_invisible ? "could see right through yourself" 1251. : "couldn't see yourself"); 1252. } 1253. break; 1254. case POT_PARALYSIS: 1255. kn++; 1256. if (!Free_action) { 1257. pline("%s seems to be holding you.", Something); 1258. nomul(-rnd(5)); 1259. nomovemsg = You_can_move_again; 1260. exercise(A_DEX, FALSE); 1261. } else You("stiffen momentarily."); 1262. break; 1263. case POT_SLEEPING: 1264. kn++; 1265. if (!Free_action && !Sleep_resistance) { 1266. You_feel("rather tired."); 1267. nomul(-rnd(5)); 1268. nomovemsg = You_can_move_again; 1269. exercise(A_DEX, FALSE); 1270. } else You("yawn."); 1271. break; 1272. case POT_SPEED: 1273. if (!Fast) Your("knees seem more flexible now."); 1274. incr_itimeout(&HFast, rnd(5)); 1275. exercise(A_DEX, TRUE); 1276. break; 1277. case POT_BLINDNESS: 1278. if (!Blind && !u.usleep) { 1279. kn++; 1280. pline("It suddenly gets dark."); 1281. } 1282. make_blinded(itimeout_incr(Blinded, rnd(5)), FALSE); 1283. if (!Blind && !u.usleep) Your(vision_clears); 1284. break; 1285. case POT_WATER: 1286. if(u.umonnum == PM_GREMLIN) { 1287. (void)split_mon(&youmonst, (struct monst *)0); 1288. } else if (u.ulycn >= LOW_PM) { 1289. /* vapor from [un]holy water will trigger 1290. transformation but won't cure lycanthropy */ 1291. if (obj->blessed && youmonst.data == &mons[u.ulycn]) 1292. you_unwere(FALSE); 1293. else if (obj->cursed && !Upolyd) 1294. you_were(); 1295. } 1296. break; 1297. case POT_ACID: 1298. case POT_POLYMORPH: 1299. exercise(A_CON, FALSE); 1300. break; 1301. /* 1302. case POT_GAIN_LEVEL: 1303. case POT_LEVITATION: 1304. case POT_FRUIT_JUICE: 1305. case POT_MONSTER_DETECTION: 1306. case POT_OBJECT_DETECTION: 1307. case POT_OIL: 1308. break; 1309. */ 1310. } 1311. /* note: no obfree() */ 1312. if (obj->dknown) { 1313. if (kn) 1314. makeknown(obj->otyp); 1315. else if (!objects[obj->otyp].oc_name_known && 1316. !objects[obj->otyp].oc_uname) 1317. docall(obj); 1318. } 1319. } 1320. 1321. STATIC_OVL short 1322. mixtype(o1, o2) 1323. register struct obj *o1, *o2; 1324. /* returns the potion type when o1 is dipped in o2 */ 1325. { 1326. /* cut down on the number of cases below */ 1327. if (o1->oclass == POTION_CLASS && 1328. (o2->otyp == POT_GAIN_LEVEL || 1329. o2->otyp == POT_GAIN_ENERGY || 1330. o2->otyp == POT_HEALING || 1331. o2->otyp == POT_EXTRA_HEALING || 1332. o2->otyp == POT_FULL_HEALING || 1333. o2->otyp == POT_ENLIGHTENMENT || 1334. o2->otyp == POT_FRUIT_JUICE)) { 1335. struct obj *swp; 1336. 1337. swp = o1; o1 = o2; o2 = swp; 1338. } 1339. 1340. switch (o1->otyp) { 1341. case POT_HEALING: 1342. switch (o2->otyp) { 1343. case POT_SPEED: 1344. case POT_GAIN_LEVEL: 1345. case POT_GAIN_ENERGY: 1346. return POT_EXTRA_HEALING; 1347. } 1348. case POT_EXTRA_HEALING: 1349. switch (o2->otyp) { 1350. case POT_GAIN_LEVEL: 1351. case POT_GAIN_ENERGY: 1352. return POT_FULL_HEALING; 1353. } 1354. case POT_FULL_HEALING: 1355. switch (o2->otyp) { 1356. case POT_GAIN_LEVEL: 1357. case POT_GAIN_ENERGY: 1358. return POT_GAIN_ABILITY; 1359. } 1360. case UNICORN_HORN: 1361. switch (o2->otyp) { 1362. case POT_SICKNESS: 1363. return POT_FRUIT_JUICE; 1364. case POT_HALLUCINATION: 1365. case POT_BLINDNESS: 1366. case POT_CONFUSION: 1367. return POT_WATER; 1368. } 1369. break; 1370. case AMETHYST: /* "a-methyst" == "not intoxicated" */ 1371. if (o2->otyp == POT_BOOZE) 1372. return POT_FRUIT_JUICE; 1373. break; 1374. case POT_GAIN_LEVEL: 1375. case POT_GAIN_ENERGY: 1376. switch (o2->otyp) { 1377. case POT_CONFUSION: 1378. return (rn2(3) ? POT_BOOZE : POT_ENLIGHTENMENT); 1379. case POT_HEALING: 1380. return POT_EXTRA_HEALING; 1381. case POT_EXTRA_HEALING: 1382. return POT_FULL_HEALING; 1383. case POT_FULL_HEALING: 1384. return POT_GAIN_ABILITY; 1385. case POT_FRUIT_JUICE: 1386. return POT_SEE_INVISIBLE; 1387. case POT_BOOZE: 1388. return POT_HALLUCINATION; 1389. } 1390. break; 1391. case POT_FRUIT_JUICE: 1392. switch (o2->otyp) { 1393. case POT_SICKNESS: 1394. return POT_SICKNESS; 1395. case POT_SPEED: 1396. return POT_BOOZE; 1397. case POT_GAIN_LEVEL: 1398. case POT_GAIN_ENERGY: 1399. return POT_SEE_INVISIBLE; 1400. } 1401. break; 1402. case POT_ENLIGHTENMENT: 1403. switch (o2->otyp) { 1404. case POT_LEVITATION: 1405. if (rn2(3)) return POT_GAIN_LEVEL; 1406. break; 1407. case POT_FRUIT_JUICE: 1408. return POT_BOOZE; 1409. case POT_BOOZE: 1410. return POT_CONFUSION; 1411. } 1412. break; 1413. } 1414. 1415. return 0; 1416. } 1417. 1418. 1419. boolean 1420. get_wet(obj) 1421. register struct obj *obj; 1422. /* returns TRUE if something happened (potion should be used up) */ 1423. { 1424. char Your_buf[BUFSZ]; 1425. 1426. if (snuff_lit(obj)) return(TRUE); 1427. 1428. if (obj->greased) { 1429. grease_protect(obj,(char *)0,&youmonst); 1430. return(FALSE); 1431. } 1432. (void) Shk_Your(Your_buf, obj); 1433. /* (Rusting shop goods ought to be charged for.) */ 1434. switch (obj->oclass) { 1435. case POTION_CLASS: 1436. if (obj->otyp == POT_WATER) return FALSE; 1437. /* KMH -- Water into acid causes an explosion */ 1438. if (obj->otyp == POT_ACID) { 1439. pline("It boils vigorously!"); 1440. You("are caught in the explosion!"); 1441. losehp(rnd(10), "elementary chemistry", KILLED_BY); 1442. makeknown(obj->otyp); 1443. update_inventory(); 1444. return (TRUE); 1445. } 1446. pline("%s %s%s.", Your_buf, aobjnam(obj,"dilute"), 1447. obj->odiluted ? " further" : ""); 1448. if(obj->unpaid && costly_spot(u.ux, u.uy)) { 1449. You("dilute it, you pay for it."); 1450. bill_dummy_object(obj); 1451. } 1452. if (obj->odiluted) { 1453. obj->odiluted = 0; 1454. #ifdef UNIXPC 1455. obj->blessed = FALSE; 1456. obj->cursed = FALSE; 1457. #else 1458. obj->blessed = obj->cursed = FALSE; 1459. #endif 1460. obj->otyp = POT_WATER; 1461. } else obj->odiluted++; 1462. update_inventory(); 1463. return TRUE; 1464. case SCROLL_CLASS: 1465. if (obj->otyp != SCR_BLANK_PAPER 1466. #ifdef MAIL 1467. && obj->otyp != SCR_MAIL 1468. #endif 1469. ) { 1470. if (!Blind) { 1471. boolean oq1 = obj->quan == 1L; 1472. pline_The("scroll%s %s.", 1473. oq1 ? "" : "s", otense(obj, "fade")); 1474. } 1475. if(obj->unpaid && costly_spot(u.ux, u.uy)) { 1476. You("erase it, you pay for it."); 1477. bill_dummy_object(obj); 1478. } 1479. obj->otyp = SCR_BLANK_PAPER; 1480. obj->spe = 0; 1481. update_inventory(); 1482. return TRUE; 1483. } else break; 1484. case SPBOOK_CLASS: 1485. if (obj->otyp != SPE_BLANK_PAPER) { 1486. 1487. if (obj->otyp == SPE_BOOK_OF_THE_DEAD) { 1488. pline("%s suddenly heats up; steam rises and it remains dry.", 1489. The(xname(obj))); 1490. } else { 1491. if (!Blind) { 1492. boolean oq1 = obj->quan == 1L; 1493. pline_The("spellbook%s %s.", 1494. oq1 ? "" : "s", otense(obj, "fade")); 1495. } 1496. if(obj->unpaid && costly_spot(u.ux, u.uy)) { 1497. You("erase it, you pay for it."); 1498. bill_dummy_object(obj); 1499. } 1500. obj->otyp = SPE_BLANK_PAPER; 1501. update_inventory(); 1502. } 1503. return TRUE; 1504. } 1505. break; 1506. case WEAPON_CLASS: 1507. /* Just "fall through" to generic rustprone check for now. */ 1508. /* fall through */ 1509. default: 1510. if (!obj->oerodeproof && is_rustprone(obj) && 1511. (obj->oeroded < MAX_ERODE) && !rn2(2)) { 1512. pline("%s %s some%s.", 1513. Your_buf, aobjnam(obj, "rust"), 1514. obj->oeroded ? " more" : "what"); 1515. obj->oeroded++; 1516. update_inventory(); 1517. return TRUE; 1518. } else break; 1519. } 1520. pline("%s %s wet.", Your_buf, aobjnam(obj,"get")); 1521. return FALSE; 1522. } 1523. 1524. int 1525. dodip() 1526. { 1527. register struct obj *potion, *obj; 1528. struct obj *singlepotion; 1529. const char *tmp; 1530. uchar here; 1531. char allowall[2]; 1532. short mixture; 1533. char qbuf[QBUFSZ], Your_buf[BUFSZ]; 1534. 1535. allowall[0] = ALL_CLASSES; allowall[1] = '\0'; 1536. if(!(obj = getobj(allowall, "dip"))) 1537. return(0); 1538. 1539. here = levl[u.ux][u.uy].typ; 1540. /* Is there a fountain to dip into here? */ 1541. if (IS_FOUNTAIN(here)) { 1542. if(yn("Dip it into the fountain?") == 'y') { 1543. dipfountain(obj); 1544. return(1); 1545. } 1546. } else if (is_pool(u.ux,u.uy)) { 1547. tmp = waterbody_name(u.ux,u.uy); 1548. Sprintf(qbuf, "Dip it into the %s?", tmp); 1549. if (yn(qbuf) == 'y') { 1550. if (Levitation) { 1551. floating_above(tmp); 1552. #ifdef STEED 1553. } else if (u.usteed && !is_swimmer(u.usteed->data) && 1554. P_SKILL(P_RIDING) < P_BASIC) { 1555. rider_cant_reach(); /* not skilled enough to reach */ 1556. #endif 1557. } else { 1558. (void) get_wet(obj); 1559. if (obj->otyp == POT_ACID) useup(obj); 1560. } 1561. return 1; 1562. } 1563. } 1564. 1565. if(!(potion = getobj(beverages, "dip into"))) 1566. return(0); 1567. if (potion == obj && potion->quan == 1L) { 1568. pline("That is a potion bottle, not a Klein bottle!"); 1569. return 0; 1570. } 1571. potion->in_use = TRUE; /* assume it will be used up */ 1572. if(potion->otyp == POT_WATER) { 1573. boolean useeit = !Blind; 1574. if (useeit) (void) Shk_Your(Your_buf, obj); 1575. if (potion->blessed) { 1576. if (obj->cursed) { 1577. if (useeit) 1578. pline("%s %s %s.", 1579. Your_buf, 1580. aobjnam(obj, "softly glow"), 1581. hcolor(NH_AMBER)); 1582. uncurse(obj); 1583. obj->bknown=1; 1584. poof: 1585. if(!(objects[potion->otyp].oc_name_known) && 1586. !(objects[potion->otyp].oc_uname)) 1587. docall(potion); 1588. useup(potion); 1589. return(1); 1590. } else if(!obj->blessed) { 1591. if (useeit) { 1592. tmp = hcolor(NH_LIGHT_BLUE); 1593. pline("%s %s with a%s %s aura.", 1594. Your_buf, 1595. aobjnam(obj, "softly glow"), 1596. index(vowels, *tmp) ? "n" : "", tmp); 1597. } 1598. bless(obj); 1599. obj->bknown=1; 1600. goto poof; 1601. } 1602. } else if (potion->cursed) { 1603. if (obj->blessed) { 1604. if (useeit) 1605. pline("%s %s %s.", 1606. Your_buf, 1607. aobjnam(obj, "glow"), 1608. hcolor((const char *)"brown")); 1609. unbless(obj); 1610. obj->bknown=1; 1611. goto poof; 1612. } else if(!obj->cursed) { 1613. if (useeit) { 1614. tmp = hcolor(NH_BLACK); 1615. pline("%s %s with a%s %s aura.", 1616. Your_buf, 1617. aobjnam(obj, "glow"), 1618. index(vowels, *tmp) ? "n" : "", tmp); 1619. } 1620. curse(obj); 1621. obj->bknown=1; 1622. goto poof; 1623. } 1624. } else 1625. if (get_wet(obj)) 1626. goto poof; 1627. } else if (obj->otyp == POT_POLYMORPH || 1628. potion->otyp == POT_POLYMORPH) { 1629. /* some objects can't be polymorphed */ 1630. if (obj->otyp == potion->otyp || /* both POT_POLY */ 1631. obj->otyp == WAN_POLYMORPH || 1632. obj->otyp == SPE_POLYMORPH || 1633. obj == uball || obj == uskin || 1634. obj_resists(obj->otyp == POT_POLYMORPH ? 1635. potion : obj, 5, 95)) { 1636. pline(nothing_happens); 1637. } else { 1638. boolean was_wep = FALSE, was_swapwep = FALSE, was_quiver = FALSE; 1639. short save_otyp = obj->otyp; 1640. /* KMH, conduct */ 1641. u.uconduct.polypiles++; 1642. 1643. if (obj == uwep) was_wep = TRUE; 1644. else if (obj == uswapwep) was_swapwep = TRUE; 1645. else if (obj == uquiver) was_quiver = TRUE; 1646. 1647. obj = poly_obj(obj, STRANGE_OBJECT); 1648. 1649. if (was_wep) setuwep(obj); 1650. else if (was_swapwep) setuswapwep(obj); 1651. else if (was_quiver) setuqwep(obj); 1652. 1653. if (obj->otyp != save_otyp) { 1654. makeknown(POT_POLYMORPH); 1655. useup(potion); 1656. prinv((char *)0, obj, 0L); 1657. return 1; 1658. } else { 1659. pline("Nothing seems to happen."); 1660. goto poof; 1661. } 1662. } 1663. potion->in_use = FALSE; /* didn't go poof */ 1664. return(1); 1665. } else if(obj->oclass == POTION_CLASS && obj->otyp != potion->otyp) { 1666. /* Mixing potions is dangerous... */ 1667. pline_The("potions mix..."); 1668. /* KMH, balance patch -- acid is particularly unstable */ 1669. if (obj->cursed || obj->otyp == POT_ACID || !rn2(10)) { 1670. pline("BOOM! They explode!"); 1671. exercise(A_STR, FALSE); 1672. if (!breathless(youmonst.data) || haseyes(youmonst.data)) 1673. potionbreathe(obj); 1674. useup(obj); 1675. useup(potion); 1676. losehp(rnd(10), "alchemic blast", KILLED_BY_AN); 1677. return(1); 1678. } 1679. 1680. obj->blessed = obj->cursed = obj->bknown = 0; 1681. if (Blind || Hallucination) obj->dknown = 0; 1682. 1683. if ((mixture = mixtype(obj, potion)) != 0) { 1684. obj->otyp = mixture; 1685. } else { 1686. switch (obj->odiluted ? 1 : rnd(8)) { 1687. case 1: 1688. obj->otyp = POT_WATER; 1689. break; 1690. case 2: 1691. case 3: 1692. obj->otyp = POT_SICKNESS; 1693. break; 1694. case 4: 1695. { 1696. struct obj *otmp; 1697. otmp = mkobj(POTION_CLASS,FALSE); 1698. obj->otyp = otmp->otyp; 1699. obfree(otmp, (struct obj *)0); 1700. } 1701. break; 1702. default: 1703. if (!Blind) 1704. pline_The("mixture glows brightly and evaporates."); 1705. useup(obj); 1706. useup(potion); 1707. return(1); 1708. } 1709. } 1710. 1711. obj->odiluted = (obj->otyp != POT_WATER); 1712. 1713. if (obj->otyp == POT_WATER && !Hallucination) { 1714. pline_The("mixture bubbles%s.", 1715. Blind ? "" : ", then clears"); 1716. } else if (!Blind) { 1717. pline_The("mixture looks %s.", 1718. hcolor(OBJ_DESCR(objects[obj->otyp]))); 1719. } 1720. 1721. useup(potion); 1722. return(1); 1723. } 1724. 1725. #ifdef INVISIBLE_OBJECTS 1726. if (potion->otyp == POT_INVISIBILITY && !obj->oinvis) { 1727. obj->oinvis = TRUE; 1728. if (!Blind) { 1729. if (!See_invisible) pline("Where did %s go?", 1730. the(xname(obj))); 1731. else You("notice a little haziness around %s.", 1732. the(xname(obj))); 1733. } 1734. goto poof; 1735. } else if (potion->otyp == POT_SEE_INVISIBLE && obj->oinvis) { 1736. obj->oinvis = FALSE; 1737. if (!Blind) { 1738. if (!See_invisible) pline("So that's where %s went!", 1739. the(xname(obj))); 1740. else pline_The("haziness around %s disappears.", 1741. the(xname(obj))); 1742. } 1743. goto poof; 1744. } 1745. #endif 1746. 1747. if(is_poisonable(obj)) { 1748. if(potion->otyp == POT_SICKNESS && !obj->opoisoned) { 1749. char buf[BUFSZ]; 1750. if (potion->quan > 1L) 1751. Sprintf(buf, "One of %s", the(xname(potion))); 1752. else 1753. Strcpy(buf, The(xname(potion))); 1754. pline("%s forms a coating on %s.", 1755. buf, the(xname(obj))); 1756. obj->opoisoned = TRUE; 1757. goto poof; 1758. } else if(obj->opoisoned && 1759. (potion->otyp == POT_HEALING || 1760. potion->otyp == POT_EXTRA_HEALING || 1761. potion->otyp == POT_FULL_HEALING)) { 1762. pline("A coating wears off %s.", the(xname(obj))); 1763. obj->opoisoned = 0; 1764. goto poof; 1765. } 1766. } 1767. 1768. if (potion->otyp == POT_OIL) { 1769. boolean wisx = FALSE; 1770. if (potion->lamplit) { /* burning */ 1771. int omat = objects[obj->otyp].oc_material; 1772. /* the code here should be merged with fire_damage */ 1773. if (catch_lit(obj)) { 1774. /* catch_lit does all the work if true */ 1775. } else if (obj->oerodeproof || obj_resists(obj, 5, 95) || 1776. !is_flammable(obj) || obj->oclass == FOOD_CLASS) { 1777. pline("%s %s to burn for a moment.", 1778. Yname2(obj), otense(obj, "seem")); 1779. } else { 1780. if ((omat == PLASTIC || omat == PAPER) && !obj->oartifact) 1781. obj->oeroded = MAX_ERODE; 1782. pline_The("burning oil %s %s.", 1783. obj->oeroded == MAX_ERODE ? "destroys" : "damages", 1784. yname(obj)); 1785. if (obj->oeroded == MAX_ERODE) { 1786. obj_extract_self(obj); 1787. obfree(obj, (struct obj *)0); 1788. obj = (struct obj *) 0; 1789. } else { 1790. /* we know it's carried */ 1791. if (obj->unpaid) { 1792. /* create a dummy duplicate to put on bill */ 1793. verbalize("You burnt it, you bought it!"); 1794. bill_dummy_object(obj); 1795. } 1796. obj->oeroded++; 1797. } 1798. } 1799. } else if (potion->cursed) { 1800. pline_The("potion spills and covers your %s with oil.", 1801. makeplural(body_part(FINGER))); 1802. incr_itimeout(&Glib, d(2,10)); 1803. } else if (obj->oclass != WEAPON_CLASS && !is_weptool(obj)) { 1804. /* the following cases apply only to weapons */ 1805. goto more_dips; 1806. /* Oil removes rust and corrosion, but doesn't unburn. 1807. * Arrows, etc are classed as metallic due to arrowhead 1808. * material, but dipping in oil shouldn't repair them. 1809. */ 1810. } else if ((!is_rustprone(obj) && !is_corrodeable(obj)) || 1811. is_ammo(obj) || (!obj->oeroded && !obj->oeroded2)) { 1812. /* uses up potion, doesn't set obj->greased */ 1813. pline("%s %s with an oily sheen.", 1814. Yname2(obj), otense(obj, "gleam")); 1815. } else { 1816. pline("%s %s less %s.", 1817. Yname2(obj), otense(obj, "are"), 1818. (obj->oeroded && obj->oeroded2) ? "corroded and rusty" : 1819. obj->oeroded ? "rusty" : "corroded"); 1820. if (obj->oeroded > 0) obj->oeroded--; 1821. if (obj->oeroded2 > 0) obj->oeroded2--; 1822. wisx = TRUE; 1823. } 1824. exercise(A_WIS, wisx); 1825. makeknown(potion->otyp); 1826. useup(potion); 1827. return 1; 1828. } 1829. more_dips: 1830. 1831. /* Allow filling of MAGIC_LAMPs to prevent identification by player */ 1832. if ((obj->otyp == OIL_LAMP || obj->otyp == MAGIC_LAMP) && 1833. (potion->otyp == POT_OIL)) { 1834. /* Turn off engine before fueling, turn off fuel too :-) */ 1835. if (obj->lamplit || potion->lamplit) { 1836. useup(potion); 1837. explode(u.ux, u.uy, 11, d(6,6), 0, EXPL_FIERY); 1838. exercise(A_WIS, FALSE); 1839. return 1; 1840. } 1841. /* Adding oil to an empty magic lamp renders it into an oil lamp */ 1842. if ((obj->otyp == MAGIC_LAMP) && obj->spe == 0) { 1843. obj->otyp = OIL_LAMP; 1844. obj->age = 0; 1845. } 1846. if (obj->age > 1000L) { 1847. pline("%s %s full.", Yname2(obj), otense(obj, "are")); 1848. potion->in_use = FALSE; /* didn't go poof */ 1849. } else { 1850. You("fill %s with oil.", yname(obj)); 1851. check_unpaid(potion); /* Yendorian Fuel Tax */ 1852. obj->age += 2*potion->age; /* burns more efficiently */ 1853. if (obj->age > 1500L) obj->age = 1500L; 1854. useup(potion); 1855. exercise(A_WIS, TRUE); 1856. } 1857. makeknown(POT_OIL); 1858. obj->spe = 1; 1859. update_inventory(); 1860. return 1; 1861. } 1862. 1863. potion->in_use = FALSE; /* didn't go poof */ 1864. if ((obj->otyp == UNICORN_HORN || obj->otyp == AMETHYST) && 1865. (mixture = mixtype(obj, potion)) != 0) { 1866. char oldbuf[BUFSZ], newbuf[BUFSZ]; 1867. short old_otyp = potion->otyp; 1868. boolean old_dknown = FALSE; 1869. boolean more_than_one = potion->quan > 1; 1870. 1871. oldbuf[0] = '\0'; 1872. if (potion->dknown) { 1873. old_dknown = TRUE; 1874. Sprintf(oldbuf, "%s ", 1875. hcolor(OBJ_DESCR(objects[potion->otyp]))); 1876. } 1877. /* with multiple merged potions, split off one and 1878. just clear it */ 1879. if (potion->quan > 1L) { 1880. singlepotion = splitobj(potion, 1L); 1881. } else singlepotion = potion; 1882. 1883. if(singlepotion->unpaid && costly_spot(u.ux, u.uy)) { 1884. You("use it, you pay for it."); 1885. bill_dummy_object(singlepotion); 1886. } 1887. singlepotion->otyp = mixture; 1888. singlepotion->blessed = 0; 1889. if (mixture == POT_WATER) 1890. singlepotion->cursed = singlepotion->odiluted = 0; 1891. else 1892. singlepotion->cursed = obj->cursed; /* odiluted left as-is */ 1893. singlepotion->bknown = FALSE; 1894. if (Blind) { 1895. singlepotion->dknown = FALSE; 1896. } else { 1897. singlepotion->dknown = !Hallucination; 1898. if (mixture == POT_WATER && singlepotion->dknown) 1899. Sprintf(newbuf, "clears"); 1900. else 1901. Sprintf(newbuf, "turns %s", 1902. hcolor(OBJ_DESCR(objects[mixture]))); 1903. pline_The("%spotion%s %s.", oldbuf, 1904. more_than_one ? " that you dipped into" : "", 1905. newbuf); 1906. if(!objects[old_otyp].oc_uname && 1907. !objects[old_otyp].oc_name_known && old_dknown) { 1908. struct obj fakeobj; 1909. fakeobj = zeroobj; 1910. fakeobj.dknown = 1; 1911. fakeobj.otyp = old_otyp; 1912. fakeobj.oclass = POTION_CLASS; 1913. docall(&fakeobj); 1914. } 1915. } 1916. obj_extract_self(singlepotion); 1917. singlepotion = hold_another_object(singlepotion, 1918. "You juggle and drop %s!", 1919. doname(singlepotion), (const char *)0); 1920. update_inventory(); 1921. return(1); 1922. } 1923. 1924. pline("Interesting..."); 1925. return(1); 1926. } 1927. 1928. 1929. void 1930. djinni_from_bottle(obj) 1931. register struct obj *obj; 1932. { 1933. struct monst *mtmp; 1934. int chance; 1935. 1936. if(!(mtmp = makemon(&mons[PM_DJINNI], u.ux, u.uy, NO_MM_FLAGS))){ 1937. pline("It turns out to be empty."); 1938. return; 1939. } 1940. 1941. if (!Blind) { 1942. pline("In a cloud of smoke, %s emerges!", a_monnam(mtmp)); 1943. pline("%s speaks.", Monnam(mtmp)); 1944. } else { 1945. You("smell acrid fumes."); 1946. pline("%s speaks.", Something); 1947. } 1948. 1949. chance = rn2(5); 1950. if (obj->blessed) chance = (chance == 4) ? rnd(4) : 0; 1951. else if (obj->cursed) chance = (chance == 0) ? rn2(4) : 4; 1952. /* 0,1,2,3,4: b=80%,5,5,5,5; nc=20%,20,20,20,20; c=5%,5,5,5,80 */ 1953. 1954. switch (chance) { 1955. case 0 : verbalize("I am in your debt. I will grant one wish!"); 1956. makewish(); 1957. mongone(mtmp); 1958. break; 1959. case 1 : verbalize("Thank you for freeing me!"); 1960. (void) tamedog(mtmp, (struct obj *)0); 1961. break; 1962. case 2 : verbalize("You freed me!"); 1963. mtmp->mpeaceful = TRUE; 1964. set_malign(mtmp); 1965. break; 1966. case 3 : verbalize("It is about time!"); 1967. pline("%s vanishes.", Monnam(mtmp)); 1968. mongone(mtmp); 1969. break; 1970. default: verbalize("You disturbed me, fool!"); 1971. break; 1972. } 1973. } 1974. 1975. /* clone a gremlin or mold (2nd arg non-null implies heat as the trigger); 1976. hit points are cut in half (odd HP stays with original) */ 1977. struct monst * 1978. split_mon(mon, mtmp) 1979. struct monst *mon, /* monster being split */ 1980. *mtmp; /* optional attacker whose heat triggered it */ 1981. { 1982. struct monst *mtmp2; 1983. char reason[BUFSZ]; 1984. 1985. reason[0] = '\0'; 1986. if (mtmp) Sprintf(reason, " from %s heat", 1987. (mtmp == &youmonst) ? (const char *)"your" : 1988. (const char *)s_suffix(mon_nam(mtmp))); 1989. 1990. if (mon == &youmonst) { 1991. mtmp2 = cloneu(); 1992. if (mtmp2) { 1993. mtmp2->mhpmax = u.mhmax / 2; 1994. u.mhmax -= mtmp2->mhpmax; 1995. flags.botl = 1; 1996. You("multiply%s!", reason); 1997. } 1998. } else { 1999. mtmp2 = clone_mon(mon, 0, 0); 2000. if (mtmp2) { 2001. mtmp2->mhpmax = mon->mhpmax / 2; 2002. mon->mhpmax -= mtmp2->mhpmax; 2003. if (canspotmon(mon)) 2004. pline("%s multiplies%s!", Monnam(mon), reason); 2005. } 2006. } 2007. return mtmp2; 2008. } 2009. 2010. #endif /* OVLB */ 2011. 2012. /*potion.c*/
