Source:SLASH'EM 0.0.7E7F2/eat.c
Jump to navigation
Jump to search
Below is the full text to eat.c from the source code of SLASH'EM 0.0.7E7F2. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/eat.c#line123]], for example.
The latest source code for vanilla NetHack is at 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: @(#)eat.c 3.4 2003/02/13 */ 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* NetHack may be freely redistributed. See license for details. */ 4. 5. #include "hack.h" 6. /* #define DEBUG */ /* uncomment to enable new eat code debugging */ 7. 8. #ifdef DEBUG 9. # ifdef WIZARD 10. #define debugpline if (wizard) pline 11. # else 12. #define debugpline pline 13. # endif 14. #endif 15. 16. STATIC_PTR int NDECL(eatmdone); 17. STATIC_PTR int NDECL(eatfood); 18. STATIC_PTR void FDECL(costly_tin, (const char*)); 19. STATIC_PTR int NDECL(opentin); 20. STATIC_PTR int NDECL(unfaint); 21. 22. #ifdef OVLB 23. STATIC_DCL const char *FDECL(food_xname, (struct obj *,BOOLEAN_P)); 24. STATIC_DCL void FDECL(choke, (struct obj *)); 25. STATIC_DCL void NDECL(recalc_wt); 26. STATIC_DCL struct obj *FDECL(touchfood, (struct obj *)); 27. STATIC_DCL void NDECL(do_reset_eat); 28. STATIC_DCL void FDECL(done_eating, (BOOLEAN_P)); 29. STATIC_DCL void FDECL(cprefx, (int)); 30. STATIC_DCL int FDECL(intrinsic_possible, (int,struct permonst *)); 31. STATIC_DCL void FDECL(givit, (int,struct permonst *)); 32. STATIC_DCL void FDECL(cpostfx, (int)); 33. STATIC_DCL void FDECL(start_tin, (struct obj *)); 34. STATIC_DCL int FDECL(eatcorpse, (struct obj *)); 35. STATIC_DCL void FDECL(start_eating, (struct obj *)); 36. STATIC_DCL void FDECL(fprefx, (struct obj *)); 37. STATIC_DCL void FDECL(accessory_has_effect, (struct obj *)); 38. STATIC_DCL void FDECL(fpostfx, (struct obj *)); 39. STATIC_DCL int NDECL(bite); 40. STATIC_DCL int FDECL(edibility_prompts, (struct obj *)); 41. STATIC_DCL int FDECL(rottenfood, (struct obj *)); 42. STATIC_DCL void NDECL(eatspecial); 43. STATIC_DCL void FDECL(eataccessory, (struct obj *)); 44. STATIC_DCL const char *FDECL(foodword, (struct obj *)); 45. STATIC_DCL boolean FDECL(maybe_cannibal, (int,BOOLEAN_P)); 46. STATIC_DCL struct obj *FDECL(floorfood, (const char *)); 47. 48. char msgbuf[BUFSZ]; 49. 50. #endif /* OVLB */ 51. 52. /* hunger texts used on bottom line (each 8 chars long) */ 53. #define SATIATED 0 54. #define NOT_HUNGRY 1 55. #define HUNGRY 2 56. #define WEAK 3 57. #define FAINTING 4 58. #define FAINTED 5 59. #define STARVED 6 60. 61. /* also used to see if you're allowed to eat cats and dogs */ 62. #define CANNIBAL_ALLOWED() (Role_if(PM_CAVEMAN) || Race_if(PM_ORC) || \ 63. Race_if(PM_HUMAN_WEREWOLF) || Race_if(PM_VAMPIRE)) 64. 65. #ifndef OVLB 66. 67. STATIC_DCL NEARDATA const char comestibles[]; 68. STATIC_DCL NEARDATA const char allobj[]; 69. STATIC_DCL boolean force_save_hs; 70. 71. #else 72. 73. STATIC_OVL NEARDATA const char comestibles[] = { FOOD_CLASS, 0 }; 74. 75. /* Gold must come first for getobj(). */ 76. STATIC_OVL NEARDATA const char allobj[] = { COIN_CLASS, ALLOW_FLOOROBJ, 77. WEAPON_CLASS, ARMOR_CLASS, POTION_CLASS, SCROLL_CLASS, 78. WAND_CLASS, RING_CLASS, AMULET_CLASS, FOOD_CLASS, TOOL_CLASS, 79. GEM_CLASS, ROCK_CLASS, BALL_CLASS, CHAIN_CLASS, SPBOOK_CLASS, 0 }; 80. 81. STATIC_OVL boolean force_save_hs = FALSE; 82. 83. const char *hu_stat[] = { 84. "Satiated", 85. " ", 86. "Hungry ", 87. "Weak ", 88. "Fainting", 89. "Fainted ", 90. "Starved " 91. }; 92. 93. #endif /* OVLB */ 94. #ifdef OVL1 95. 96. /* 97. * Decide whether a particular object can be eaten by the possibly 98. * polymorphed character. Not used for monster checks. 99. */ 100. boolean 101. is_edible(obj) 102. register struct obj *obj; 103. { 104. /* protect invocation tools but not Rider corpses (handled elsewhere)*/ 105. /* if (obj->oclass != FOOD_CLASS && obj_resists(obj, 0, 0)) */ 106. if (evades_destruction(obj)) 107. return FALSE; 108. if (objects[obj->otyp].oc_unique) 109. return FALSE; 110. /* above also prevents the Amulet from being eaten, so we must never 111. allow fake amulets to be eaten either [which is already the case] */ 112. 113. if (metallivorous(youmonst.data) && is_metallic(obj) && 114. (youmonst.data != &mons[PM_RUST_MONSTER] || is_rustprone(obj))) 115. return TRUE; 116. /* KMH -- Taz likes organics, too! */ 117. if ((u.umonnum == PM_GELATINOUS_CUBE || 118. u.umonnum == PM_TASMANIAN_DEVIL) && is_organic(obj) && 119. /* [g.cubes can eat containers and retain all contents 120. as engulfed items, but poly'd player can't do that] */ 121. !Has_contents(obj)) 122. return TRUE; 123. 124. /* Koalas only eat Eucalyptus leaves */ 125. if (u.umonnum == PM_KOALA) 126. return (boolean)(obj->otyp == EUCALYPTUS_LEAF); 127. 128. /* Ghouls, ghasts only eat corpses */ 129. if (u.umonnum == PM_GHOUL || u.umonnum == PM_GHAST) 130. return (boolean)(obj->otyp == CORPSE); 131. /* Vampires drink the blood of meaty corpses */ 132. /* [ALI] (fully) drained food is not presented as an option, 133. * but partly eaten food is (even though you can't drain it). 134. */ 135. if (is_vampire(youmonst.data)) 136. return (boolean)(obj->otyp == CORPSE && 137. has_blood(&mons[obj->corpsenm]) && (!obj->odrained || 138. obj->oeaten > drainlevel(obj))); 139. 140. /* return((boolean)(!!index(comestibles, obj->oclass))); */ 141. return (boolean)(obj->oclass == FOOD_CLASS); 142. } 143. 144. #endif /* OVL1 */ 145. #ifdef OVLB 146. 147. void 148. init_uhunger() 149. { 150. u.uhunger = 900; 151. u.uhs = NOT_HUNGRY; 152. } 153. 154. static const struct { const char *txt; int nut; } tintxts[] = { 155. {"deep fried", 60}, 156. {"pickled", 40}, 157. {"soup made from", 20}, 158. {"pureed", 500}, 159. #define ROTTEN_TIN 4 160. {"rotten", -50}, 161. #define HOMEMADE_TIN 5 162. {"homemade", 50}, 163. {"stir fried", 80}, 164. {"candied", 100}, 165. {"boiled", 50}, 166. {"dried", 55}, 167. {"szechuan", 70}, 168. #define FRENCH_FRIED_TIN 11 169. {"french fried", 40}, 170. {"sauteed", 95}, 171. {"broiled", 80}, 172. {"smoked", 50}, 173. /* [Tom] added a few new styles */ 174. {"stir fried", 80}, 175. {"candied", 100}, 176. {"boiled", 50}, 177. {"dried", 55}, 178. {"szechuan", 70}, 179. {"french fried", 40}, 180. {"sauteed", 95}, 181. {"broiled", 80}, 182. {"smoked", 50}, 183. {"", 0} 184. }; 185. #define TTSZ SIZE(tintxts) 186. 187. static NEARDATA struct { 188. struct obj *tin; 189. int usedtime, reqtime; 190. } tin; 191. 192. static NEARDATA struct { 193. struct obj *piece; /* the thing being eaten, or last thing that 194. * was partially eaten, unless that thing was 195. * a tin, which uses the tin structure above, 196. * in which case this should be 0 */ 197. /* doeat() initializes these when piece is valid */ 198. int usedtime, /* turns spent eating */ 199. reqtime; /* turns required to eat */ 200. int nmod; /* coded nutrition per turn */ 201. Bitfield(canchoke,1); /* was satiated at beginning */ 202. 203. /* start_eating() initializes these */ 204. Bitfield(fullwarn,1); /* have warned about being full */ 205. Bitfield(eating,1); /* victual currently being eaten */ 206. Bitfield(doreset,1); /* stop eating at end of turn */ 207. } victual; 208. 209. static char *eatmbuf = 0; /* set by cpostfx() */ 210. 211. STATIC_PTR 212. int 213. eatmdone() /* called after mimicing is over */ 214. { 215. /* release `eatmbuf' */ 216. if (eatmbuf) { 217. if (nomovemsg == eatmbuf) nomovemsg = 0; 218. free((genericptr_t)eatmbuf), eatmbuf = 0; 219. } 220. /* update display */ 221. if (youmonst.m_ap_type) { 222. youmonst.m_ap_type = M_AP_NOTHING; 223. newsym(u.ux,u.uy); 224. } 225. return 0; 226. } 227. 228. /* ``[the(] singular(food, xname) [)] with awareness of unique monsters */ 229. STATIC_OVL const char * 230. food_xname(food, the_pfx) 231. struct obj *food; 232. boolean the_pfx; 233. { 234. const char *result; 235. int mnum = food->corpsenm; 236. 237. if (food->otyp == CORPSE && (mons[mnum].geno & G_UNIQ) && !Hallucination) { 238. /* grab xname()'s modifiable return buffer for our own use */ 239. char *bufp = xname(food); 240. 241. Sprintf(bufp, "%s%s corpse", 242. (the_pfx && !type_is_pname(&mons[mnum])) ? "the " : "", 243. s_suffix(mons[mnum].mname)); 244. result = bufp; 245. } else { 246. /* the ordinary case */ 247. result = singular(food, xname); 248. if (the_pfx) result = the(result); 249. } 250. return result; 251. } 252. 253. 254. /* Created by GAN 01/28/87 255. * Amended by AKP 09/22/87: if not hard, don't choke, just vomit. 256. * Amended by 3. 06/12/89: if not hard, sometimes choke anyway, to keep risk. 257. * 11/10/89: if hard, rarely vomit anyway, for slim chance. 258. */ 259. STATIC_OVL void 260. choke(food) /* To a full belly all food is bad. (It.) */ 261. register struct obj *food; 262. { 263. /* only happens if you were satiated */ 264. if (u.uhs != SATIATED) { 265. if (!food || food->otyp != AMULET_OF_STRANGULATION) 266. return; 267. } else if (Role_if(PM_KNIGHT) && u.ualign.type == A_LAWFUL) { 268. adjalign(-1); /* gluttony is unchivalrous */ 269. You("feel like a glutton!"); 270. } 271. 272. exercise(A_CON, FALSE); 273. 274. if (Breathless || (!Strangled && !rn2(20))) { 275. /* choking by eating AoS doesn't involve stuffing yourself */ 276. /* ALI - nor does other non-food nutrition (eg., life-blood) */ 277. if (!food || food->otyp == AMULET_OF_STRANGULATION) { 278. nomovemsg = "You recover your composure."; 279. You("choke over it."); 280. nomul(-2); 281. return; 282. } 283. You("stuff yourself and then vomit voluminously."); 284. morehungry(1000); /* you just got *very* sick! */ 285. nomovemsg = 0; 286. vomit(); 287. } else { 288. killer_format = KILLED_BY_AN; 289. /* 290. * Note all "killer"s below read "Choked on %s" on the 291. * high score list & tombstone. So plan accordingly. 292. */ 293. if(food) { 294. You("choke over your %s.", foodword(food)); 295. if (food->oclass == COIN_CLASS) { 296. killer = "a very rich meal"; 297. } else { 298. killer = food_xname(food, FALSE); 299. if (food->otyp == CORPSE && 300. (mons[food->corpsenm].geno & G_UNIQ)) { 301. if (!type_is_pname(&mons[food->corpsenm])) 302. killer = the(killer); 303. killer_format = KILLED_BY; 304. } 305. } 306. } else { 307. You("choke over it."); 308. killer = "quick snack"; 309. } 310. You("die..."); 311. done(CHOKING); 312. } 313. } 314. 315. /* modify object wt. depending on time spent consuming it */ 316. STATIC_OVL void 317. recalc_wt() 318. { 319. struct obj *piece = victual.piece; 320. 321. #ifdef DEBUG 322. debugpline("Old weight = %d", piece->owt); 323. debugpline("Used time = %d, Req'd time = %d", 324. victual.usedtime, victual.reqtime); 325. #endif 326. piece->owt = weight(piece); 327. #ifdef DEBUG 328. debugpline("New weight = %d", piece->owt); 329. #endif 330. } 331. 332. void 333. reset_eat() /* called when eating interrupted by an event */ 334. { 335. /* we only set a flag here - the actual reset process is done after 336. * the round is spent eating. 337. */ 338. if(victual.eating && !victual.doreset) { 339. #ifdef DEBUG 340. debugpline("reset_eat..."); 341. #endif 342. victual.doreset = TRUE; 343. } 344. return; 345. } 346. 347. STATIC_OVL struct obj * 348. touchfood(otmp) 349. register struct obj *otmp; 350. { 351. if (otmp->quan > 1L) { 352. if(!carried(otmp)) 353. (void) splitobj(otmp, otmp->quan - 1L); 354. else 355. otmp = splitobj(otmp, 1L); 356. 357. #ifdef DEBUG 358. debugpline("split object,"); 359. #endif 360. } 361. 362. if (!otmp->oeaten) { 363. if(((!carried(otmp) && costly_spot(otmp->ox, otmp->oy) && 364. !otmp->no_charge) 365. || otmp->unpaid)) { 366. /* create a dummy duplicate to put on bill */ 367. verbalize("You bit it, you bought it!"); 368. bill_dummy_object(otmp); 369. } 370. otmp->oeaten = (otmp->otyp == CORPSE ? 371. mons[otmp->corpsenm].cnutrit : 372. objects[otmp->otyp].oc_nutrition); 373. } 374. 375. if (carried(otmp)) { 376. freeinv(otmp); 377. if (inv_cnt() >= 52) { 378. sellobj_state(SELL_DONTSELL); 379. dropy(otmp); 380. sellobj_state(SELL_NORMAL); 381. } else { 382. otmp->oxlth++; /* hack to prevent merge */ 383. otmp = addinv(otmp); 384. otmp->oxlth--; 385. } 386. } 387. return(otmp); 388. } 389. 390. /* When food decays, in the middle of your meal, we don't want to dereference 391. * any dangling pointers, so set it to null (which should still trigger 392. * do_reset_eat() at the beginning of eatfood()) and check for null pointers 393. * in do_reset_eat(). 394. */ 395. void 396. food_disappears(obj) 397. register struct obj *obj; 398. { 399. if (obj == victual.piece) victual.piece = (struct obj *)0; 400. if (obj->timed) obj_stop_timers(obj); 401. } 402. 403. /* renaming an object usually results in it having a different address; 404. so the sequence start eating/opening, get interrupted, name the food, 405. resume eating/opening would restart from scratch */ 406. void 407. food_substitution(old_obj, new_obj) 408. struct obj *old_obj, *new_obj; 409. { 410. if (old_obj == victual.piece) victual.piece = new_obj; 411. if (old_obj == tin.tin) tin.tin = new_obj; 412. } 413. 414. STATIC_OVL void 415. do_reset_eat() 416. { 417. #ifdef DEBUG 418. debugpline("do_reset_eat..."); 419. #endif 420. if (victual.piece) { 421. victual.piece = touchfood(victual.piece); 422. recalc_wt(); 423. } 424. victual.fullwarn = victual.eating = victual.doreset = FALSE; 425. /* Do not set canchoke to FALSE; if we continue eating the same object 426. * we need to know if canchoke was set when they started eating it the 427. * previous time. And if we don't continue eating the same object 428. * canchoke always gets recalculated anyway. 429. */ 430. stop_occupation(); 431. newuhs(FALSE); 432. } 433. 434. STATIC_PTR 435. int 436. eatfood() /* called each move during eating process */ 437. { 438. if(!victual.piece || 439. (!carried(victual.piece) && !obj_here(victual.piece, u.ux, u.uy))) { 440. /* maybe it was stolen? */ 441. do_reset_eat(); 442. return(0); 443. } 444. if (is_vampire(youmonst.data) != victual.piece->odrained) { 445. /* Polymorphed while eating/draining */ 446. do_reset_eat(); 447. return(0); 448. } 449. if(!victual.eating) return(0); 450. 451. if(++victual.usedtime <= victual.reqtime) { 452. if(bite()) return(0); 453. return(1); /* still busy */ 454. } else { /* done */ 455. int crumbs = victual.piece->oeaten; /* The last crumbs */ 456. if (victual.piece->odrained) crumbs -= drainlevel(victual.piece); 457. if (crumbs > 0) { 458. lesshungry(crumbs); 459. victual.piece->oeaten -= crumbs; 460. } 461. done_eating(TRUE); 462. return(0); 463. } 464. } 465. 466. STATIC_OVL void 467. done_eating(message) 468. boolean message; 469. { 470. victual.piece->in_use = TRUE; 471. occupation = 0; /* do this early, so newuhs() knows we're done */ 472. newuhs(FALSE); 473. if (nomovemsg) { 474. if (message) pline(nomovemsg); 475. nomovemsg = 0; 476. } else if (message) 477. You("finish %s %s.", victual.piece->odrained ? "draining" : 478. "eating", food_xname(victual.piece, TRUE)); 479. 480. if(victual.piece->otyp == CORPSE) { 481. if (!victual.piece->odrained || Race_if(PM_VAMPIRE) && !rn2(5)) 482. cpostfx(victual.piece->corpsenm); 483. } else 484. fpostfx(victual.piece); 485. 486. if (victual.piece->odrained) 487. victual.piece->in_use = FALSE; 488. else 489. if (carried(victual.piece)) useup(victual.piece); 490. else useupf(victual.piece, 1L); 491. victual.piece = (struct obj *) 0; 492. victual.fullwarn = victual.eating = victual.doreset = FALSE; 493. } 494. 495. STATIC_OVL boolean 496. maybe_cannibal(pm, allowmsg) 497. int pm; 498. boolean allowmsg; 499. { 500. if (your_race(&mons[pm])) { 501. if (!CANNIBAL_ALLOWED()) { 502. if (allowmsg) { 503. if (Upolyd) 504. You("have a bad feeling deep inside."); 505. You("cannibal! You will regret this!"); 506. } 507. HAggravate_monster |= FROMOUTSIDE; 508. change_luck(-rn1(4,2)); /* -5..-2 */ 509. } else if (Role_if(PM_CAVEMAN)) { 510. adjalign(sgn(u.ualign.type)); 511. You("honour the dead."); 512. } else { 513. adjalign(-sgn(u.ualign.type)); 514. You_feel("evil and fiendish!"); 515. } 516. return TRUE; 517. } 518. return FALSE; 519. } 520. 521. STATIC_OVL void 522. cprefx(pm) 523. register int pm; 524. { 525. (void) maybe_cannibal(pm,TRUE); 526. if (touch_petrifies(&mons[pm]) || pm == PM_MEDUSA) { 527. if (!Stone_resistance && 528. !(poly_when_stoned(youmonst.data) && polymon(PM_STONE_GOLEM))) { 529. Sprintf(killer_buf, "tasting %s meat", mons[pm].mname); 530. killer_format = KILLED_BY; 531. killer = killer_buf; 532. You("turn to stone."); 533. done(STONING); 534. if (victual.piece) 535. victual.eating = FALSE; 536. return; /* lifesaved */ 537. } 538. } 539. 540. switch(pm) { 541. case PM_LITTLE_DOG: 542. case PM_DOG: 543. case PM_LARGE_DOG: 544. case PM_KITTEN: 545. case PM_HOUSECAT: 546. case PM_LARGE_CAT: 547. if (!CANNIBAL_ALLOWED()) { 548. You_feel("that %s the %s%s was a bad idea.", 549. victual.eating ? "eating" : "biting", 550. occupation == opentin ? "tinned " : "", mons[pm].mname); 551. HAggravate_monster |= FROMOUTSIDE; 552. } 553. break; 554. case PM_LIZARD: 555. if (Stoned) fix_petrification(); 556. break; 557. case PM_DEATH: 558. case PM_PESTILENCE: 559. case PM_FAMINE: 560. { char buf[BUFSZ]; 561. pline("Eating that is instantly fatal."); 562. Sprintf(buf, "unwisely ate the body of %s", 563. mons[pm].mname); 564. killer = buf; 565. killer_format = NO_KILLER_PREFIX; 566. done(DIED); 567. /* It so happens that since we know these monsters */ 568. /* cannot appear in tins, victual.piece will always */ 569. /* be what we want, which is not generally true. */ 570. if (revive_corpse(victual.piece, FALSE)) 571. victual.piece = (struct obj *)0; 572. return; 573. } 574. case PM_GREEN_SLIME: 575. if (!Slimed && !Unchanging && !flaming(youmonst.data) && 576. youmonst.data != &mons[PM_GREEN_SLIME]) { 577. You("don't feel very well."); 578. Slimed = 10L; 579. flags.botl = 1; 580. } 581. /* Fall through */ 582. default: 583. if (acidic(&mons[pm]) && Stoned) 584. fix_petrification(); 585. break; 586. } 587. } 588. 589. /* 590. * Called when a vampire bites a monster. 591. * Returns TRUE if hero died and was lifesaved. 592. */ 593. 594. boolean 595. bite_monster(mon) 596. struct monst *mon; 597. { 598. switch(monsndx(mon->data)) { 599. case PM_LIZARD: 600. if (Stoned) fix_petrification(); 601. break; 602. case PM_DEATH: 603. case PM_PESTILENCE: 604. case PM_FAMINE: 605. pline("Unfortunately, eating any of it is fatal."); 606. done_in_by(mon); 607. return TRUE; /* lifesaved */ 608. 609. case PM_GREEN_SLIME: 610. if (!Unchanging && youmonst.data != &mons[PM_FIRE_VORTEX] && 611. youmonst.data != &mons[PM_FIRE_ELEMENTAL] && 612. youmonst.data != &mons[PM_GREEN_SLIME]) { 613. You("don't feel very well."); 614. Slimed = 10L; 615. } 616. /* Fall through */ 617. default: 618. if (acidic(mon->data) && Stoned) 619. fix_petrification(); 620. break; 621. } 622. return FALSE; 623. } 624. 625. void 626. fix_petrification() 627. { 628. Stoned = 0; 629. delayed_killer = 0; 630. if (Hallucination) 631. pline("What a pity - you just ruined a future piece of %sart!", 632. ACURR(A_CHA) > 15 ? "fine " : ""); 633. else 634. You_feel("limber!"); 635. } 636. 637. /* 638. * If you add an intrinsic that can be gotten by eating a monster, add it 639. * to intrinsic_possible() and givit(). (It must already be in prop.h to 640. * be an intrinsic property.) 641. * It would be very easy to make the intrinsics not try to give you one 642. * that you already had by checking to see if you have it in 643. * intrinsic_possible() instead of givit(). 644. */ 645. 646. /* intrinsic_possible() returns TRUE if a monster can give an intrinsic. */ 647. STATIC_OVL int 648. intrinsic_possible(type, ptr) 649. int type; 650. register struct permonst *ptr; 651. { 652. switch (type) { 653. case FIRE_RES: 654. #ifdef DEBUG 655. if (ptr->mconveys & MR_FIRE) { 656. debugpline("can get fire resistance"); 657. return(TRUE); 658. } else return(FALSE); 659. #else 660. return(ptr->mconveys & MR_FIRE); 661. #endif 662. case SLEEP_RES: 663. #ifdef DEBUG 664. if (ptr->mconveys & MR_SLEEP) { 665. debugpline("can get sleep resistance"); 666. return(TRUE); 667. } else return(FALSE); 668. #else 669. return(ptr->mconveys & MR_SLEEP); 670. #endif 671. case COLD_RES: 672. #ifdef DEBUG 673. if (ptr->mconveys & MR_COLD) { 674. debugpline("can get cold resistance"); 675. return(TRUE); 676. } else return(FALSE); 677. #else 678. return(ptr->mconveys & MR_COLD); 679. #endif 680. case DISINT_RES: 681. #ifdef DEBUG 682. if (ptr->mconveys & MR_DISINT) { 683. debugpline("can get disintegration resistance"); 684. return(TRUE); 685. } else return(FALSE); 686. #else 687. return(ptr->mconveys & MR_DISINT); 688. #endif 689. case SHOCK_RES: /* shock (electricity) resistance */ 690. #ifdef DEBUG 691. if (ptr->mconveys & MR_ELEC) { 692. debugpline("can get shock resistance"); 693. return(TRUE); 694. } else return(FALSE); 695. #else 696. return(ptr->mconveys & MR_ELEC); 697. #endif 698. case POISON_RES: 699. #ifdef DEBUG 700. if (ptr->mconveys & MR_POISON) { 701. debugpline("can get poison resistance"); 702. return(TRUE); 703. } else return(FALSE); 704. #else 705. return(ptr->mconveys & MR_POISON); 706. #endif 707. case TELEPORT: 708. #ifdef DEBUG 709. if (can_teleport(ptr)) { 710. debugpline("can get teleport"); 711. return(TRUE); 712. } else return(FALSE); 713. #else 714. return(can_teleport(ptr)); 715. #endif 716. case TELEPORT_CONTROL: 717. #ifdef DEBUG 718. if (control_teleport(ptr)) { 719. debugpline("can get teleport control"); 720. return(TRUE); 721. } else return(FALSE); 722. #else 723. return(control_teleport(ptr)); 724. #endif 725. case TELEPAT: 726. #ifdef DEBUG 727. if (telepathic(ptr)) { 728. debugpline("can get telepathy"); 729. return(TRUE); 730. } else return(FALSE); 731. #else 732. return(telepathic(ptr)); 733. #endif 734. default: 735. return(FALSE); 736. } 737. /*NOTREACHED*/ 738. } 739. 740. /* givit() tries to give you an intrinsic based on the monster's level 741. * and what type of intrinsic it is trying to give you. 742. */ 743. /* KMH, balance patch -- eliminated temporary intrinsics from 744. * corpses, and restored probabilities to NetHack levels. 745. * 746. * There were several ways to deal with this issue: 747. * 1. Let corpses convey permanent intrisics (as implemented in 748. * vanilla NetHack). This is the easiest method for players 749. * to understand and has the least player frustration. 750. * 2. Provide a temporary intrinsic if you don't already have it, 751. * a give the permanent intrinsic if you do have it (Slash's 752. * method). This is probably the most realistic solution, 753. * but players were extremely annoyed by it. 754. * 3. Let certain intrinsics be conveyed one way and the rest 755. * conveyed the other. However, there would certainly be 756. * arguments about which should be which, and it would 757. * certainly become yet another FAQ. 758. * 4. Increase the timeouts. This is limited by the number of 759. * bits reserved for the timeout. 760. * 5. Convey a permanent intrinsic if you have _ever_ been 761. * given the temporary intrinsic. This is a nice solution, 762. * but it would use another bit, and probably isn't worth 763. * the effort. 764. * 6. Give the player better notice when the timeout expires, 765. * and/or some method to check on intrinsics that is not as 766. * revealing as enlightenment. 767. * 7. Some combination of the above. 768. * 769. * In the end, I decided that the simplest solution would be the 770. * best solution. 771. */ 772. STATIC_OVL void 773. givit(type, ptr) 774. int type; 775. register struct permonst *ptr; 776. { 777. register int chance; 778. 779. #ifdef DEBUG 780. debugpline("Attempting to give intrinsic %d", type); 781. #endif 782. /* some intrinsics are easier to get than others */ 783. switch (type) { 784. case POISON_RES: 785. if ((ptr == &mons[PM_KILLER_BEE] || 786. ptr == &mons[PM_SCORPION]) && !rn2(4)) 787. chance = 1; 788. else 789. chance = 15; 790. break; 791. case TELEPORT: 792. chance = 10; 793. break; 794. case TELEPORT_CONTROL: 795. chance = 12; 796. break; 797. case TELEPAT: 798. chance = 1; 799. break; 800. default: 801. chance = 15; 802. break; 803. } 804. 805. if (ptr->mlevel <= rn2(chance)) 806. return; /* failed die roll */ 807. 808. switch (type) { 809. case FIRE_RES: 810. #ifdef DEBUG 811. debugpline("Trying to give fire resistance"); 812. #endif 813. if(!(HFire_resistance & FROMOUTSIDE)) { 814. You(Hallucination ? "be chillin'." : 815. "feel a momentary chill."); 816. HFire_resistance |= FROMOUTSIDE; 817. } 818. break; 819. case SLEEP_RES: 820. #ifdef DEBUG 821. debugpline("Trying to give sleep resistance"); 822. #endif 823. if(!(HSleep_resistance & FROMOUTSIDE)) { 824. You_feel("wide awake."); 825. HSleep_resistance |= FROMOUTSIDE; 826. } 827. break; 828. case COLD_RES: 829. #ifdef DEBUG 830. debugpline("Trying to give cold resistance"); 831. #endif 832. if(!(HCold_resistance & FROMOUTSIDE)) { 833. You_feel("full of hot air."); 834. HCold_resistance |= FROMOUTSIDE; 835. } 836. break; 837. case DISINT_RES: 838. #ifdef DEBUG 839. debugpline("Trying to give disintegration resistance"); 840. #endif 841. if(!(HDisint_resistance & FROMOUTSIDE)) { 842. You_feel(Hallucination ? 843. "totally together, man." : 844. "very firm."); 845. HDisint_resistance |= FROMOUTSIDE; 846. } 847. break; 848. case SHOCK_RES: /* shock (electricity) resistance */ 849. #ifdef DEBUG 850. debugpline("Trying to give shock resistance"); 851. #endif 852. if(!(HShock_resistance & FROMOUTSIDE)) { 853. if (Hallucination) 854. You_feel("grounded in reality."); 855. else 856. Your("health currently feels amplified!"); 857. HShock_resistance |= FROMOUTSIDE; 858. } 859. break; 860. case POISON_RES: 861. #ifdef DEBUG 862. debugpline("Trying to give poison resistance"); 863. #endif 864. if(!(HPoison_resistance & FROMOUTSIDE)) { 865. You_feel(Poison_resistance ? 866. "especially healthy." : "healthy."); 867. HPoison_resistance |= FROMOUTSIDE; 868. } 869. break; 870. case TELEPORT: 871. #ifdef DEBUG 872. debugpline("Trying to give teleport"); 873. #endif 874. if(!(HTeleportation & FROMOUTSIDE)) { 875. You_feel(Hallucination ? "diffuse." : 876. "very jumpy."); 877. HTeleportation |= FROMOUTSIDE; 878. } 879. break; 880. case TELEPORT_CONTROL: 881. #ifdef DEBUG 882. debugpline("Trying to give teleport control"); 883. #endif 884. if(!(HTeleport_control & FROMOUTSIDE)) { 885. You_feel(Hallucination ? 886. "centered in your personal space." : 887. "in control of yourself."); 888. HTeleport_control |= FROMOUTSIDE; 889. } 890. break; 891. case TELEPAT: 892. #ifdef DEBUG 893. debugpline("Trying to give telepathy"); 894. #endif 895. if(!(HTelepat & FROMOUTSIDE)) { 896. You_feel(Hallucination ? 897. "in touch with the cosmos." : 898. "a strange mental acuity."); 899. HTelepat |= FROMOUTSIDE; 900. /* If blind, make sure monsters show up. */ 901. if (Blind) see_monsters(); 902. } 903. break; 904. default: 905. #ifdef DEBUG 906. debugpline("Tried to give an impossible intrinsic"); 907. #endif 908. break; 909. } 910. } 911. 912. STATIC_OVL void 913. cpostfx(pm) /* called after completely consuming a corpse */ 914. register int pm; 915. { 916. register int tmp = 0; 917. boolean catch_lycanthropy = FALSE; 918. 919. /* in case `afternmv' didn't get called for previously mimicking 920. gold, clean up now to avoid `eatmbuf' memory leak */ 921. if (eatmbuf) (void)eatmdone(); 922. 923. switch(pm) { 924. case PM_NEWT: 925. /* MRKR: "eye of newt" may give small magical energy boost */ 926. if (rn2(3) || 3 * u.uen <= 2 * u.uenmax) { 927. int old_uen = u.uen; 928. u.uen += rnd(3); 929. if (u.uen > u.uenmax) { 930. if (!rn2(3)) u.uenmax++; 931. u.uen = u.uenmax; 932. } 933. if (old_uen != u.uen) { 934. You_feel("a mild buzz."); 935. flags.botl = 1; 936. } 937. } 938. break; 939. case PM_WRAITH: 940. switch(rnd(10)) { 941. case 1: 942. You("feel that was a bad idea."); 943. losexp("eating a wraith corpse", FALSE); 944. break; 945. case 2: 946. You("don't feel so good ..."); 947. if (Upolyd) { 948. u.mhmax -= 4; 949. if (u.mhmax < 1) u.mhmax = 1; 950. } else { 951. u.uhpmax -= 4; 952. if (u.uhpmax < 1) u.uhpmax = 1; 953. } 954. u.uenmax -= 8; 955. if (u.uenmax < 1) u.uenmax = 1; 956. u.uen -= 8; 957. if (u.uen < 0) u.uen = 0; 958. losehp(4, "eating a wraith corpse", KILLED_BY); 959. break; 960. case 3: 961. case 4: 962. You("feel something strange for a moment."); 963. break; 964. case 5: 965. You("feel physically and mentally stronger!"); 966. if (Upolyd) { 967. u.mhmax += 4; 968. u.mh = u.mhmax; 969. } else { 970. u.uhpmax += 4; 971. u.uhp = u.uhpmax; 972. } 973. u.uenmax += 8; 974. u.uen = u.uenmax; 975. break; 976. case 6: 977. case 7: 978. case 8: 979. case 9: 980. case 10: 981. You("feel that was a smart thing to do."); 982. pluslvl(FALSE); 983. break; 984. default: 985. break; 986. } 987. flags.botl = 1; 988. break; 989. case PM_HUMAN_WERERAT: 990. catch_lycanthropy = TRUE; 991. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WERERAT; 992. break; 993. case PM_HUMAN_WEREJACKAL: 994. catch_lycanthropy = TRUE; 995. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WEREJACKAL; 996. break; 997. case PM_HUMAN_WEREWOLF: 998. catch_lycanthropy = TRUE; 999. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WEREWOLF; 1000. break; 1001. case PM_HUMAN_WEREPANTHER: 1002. catch_lycanthropy = TRUE; 1003. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WEREPANTHER; 1004. break; 1005. case PM_HUMAN_WERETIGER: 1006. catch_lycanthropy = TRUE; 1007. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WERETIGER; 1008. break; 1009. case PM_HUMAN_WERESNAKE: 1010. catch_lycanthropy = TRUE; 1011. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WERESNAKE; 1012. break; 1013. case PM_HUMAN_WERESPIDER: 1014. catch_lycanthropy = TRUE; 1015. if (!Race_if(PM_HUMAN_WEREWOLF)) u.ulycn = PM_WERESPIDER; 1016. break; 1017. case PM_NURSE: 1018. if (Upolyd) u.mh = u.mhmax; 1019. else u.uhp = u.uhpmax; 1020. flags.botl = 1; 1021. break; 1022. case PM_STALKER: 1023. if(!Invis) { 1024. set_itimeout(&HInvis, (long)rn1(100, 50)); 1025. if (!Blind && !BInvis) self_invis_message(); 1026. } else { 1027. if (!(HInvis & INTRINSIC)) You_feel("hidden!"); 1028. HInvis |= FROMOUTSIDE; 1029. HSee_invisible |= FROMOUTSIDE; 1030. } 1031. newsym(u.ux, u.uy); 1032. /* fall into next case */ 1033. case PM_YELLOW_LIGHT: 1034. /* fall into next case */ 1035. case PM_GIANT_BAT: 1036. make_stunned(HStun + 30,FALSE); 1037. /* fall into next case */ 1038. case PM_BAT: 1039. make_stunned(HStun + 30,FALSE); 1040. break; 1041. case PM_GIANT_MIMIC: 1042. tmp += 10; 1043. /* fall into next case */ 1044. case PM_LARGE_MIMIC: 1045. tmp += 20; 1046. /* fall into next case */ 1047. case PM_SMALL_MIMIC: 1048. tmp += 20; 1049. if (youmonst.data->mlet != S_MIMIC && !Unchanging) { 1050. char buf[BUFSZ]; 1051. You_cant("resist the temptation to mimic %s.", 1052. Hallucination ? "an orange" : "a pile of gold"); 1053. #ifdef STEED 1054. /* A pile of gold can't ride. */ 1055. if (u.usteed) dismount_steed(DISMOUNT_FELL); 1056. #endif 1057. nomul(-tmp); 1058. Sprintf(buf, Hallucination ? 1059. "You suddenly dread being peeled and mimic %s again!" : 1060. "You now prefer mimicking %s again.", 1061. an(Upolyd ? youmonst.data->mname : urace.noun)); 1062. eatmbuf = strcpy((char *) alloc(strlen(buf) + 1), buf); 1063. nomovemsg = eatmbuf; 1064. afternmv = eatmdone; 1065. /* ??? what if this was set before? */ 1066. youmonst.m_ap_type = M_AP_OBJECT; 1067. youmonst.mappearance = Hallucination ? ORANGE : GOLD_PIECE; 1068. newsym(u.ux,u.uy); 1069. curs_on_u(); 1070. /* make gold symbol show up now */ 1071. display_nhwindow(WIN_MAP, TRUE); 1072. } 1073. break; 1074. case PM_QUANTUM_MECHANIC: 1075. Your("velocity suddenly seems very uncertain!"); 1076. if (HFast & INTRINSIC) { 1077. HFast &= ~INTRINSIC; 1078. You("seem slower."); 1079. } else { 1080. HFast |= FROMOUTSIDE; 1081. You("seem faster."); 1082. } 1083. break; 1084. case PM_LIZARD: 1085. if (HStun > 2) make_stunned(2L,FALSE); 1086. if (HConfusion > 2) make_confused(2L,FALSE); 1087. break; 1088. case PM_CHAMELEON: 1089. case PM_DOPPELGANGER: 1090. /* case PM_SANDESTIN: */ 1091. if (!Unchanging) { 1092. You_feel("a change coming over you."); 1093. polyself(FALSE); 1094. } 1095. break; 1096. case PM_GENETIC_ENGINEER: /* Robin Johnson -- special msg */ 1097. if (!Unchanging) { 1098. You("undergo a freakish metamorphosis!"); 1099. polyself(FALSE); 1100. } 1101. break; 1102. /* WAC all mind flayers as per mondata.h have to be here */ 1103. case PM_MASTER_MIND_FLAYER: 1104. case PM_MIND_FLAYER: { 1105. #if 0 1106. int temp; 1107. temp = urole.attrmax[A_INT]; 1108. #endif 1109. if (ABASE(A_INT) < ATTRMAX(A_INT)) { 1110. if (!rn2(2)) { 1111. pline("Yum! That was real brain food!"); 1112. (void) adjattrib(A_INT, 1, FALSE); 1113. break; /* don't give them telepathy, too */ 1114. } 1115. } 1116. else { 1117. pline("For some reason, that tasted bland."); 1118. } 1119. } 1120. /* fall through to default case */ 1121. default: { 1122. register struct permonst *ptr = &mons[pm]; 1123. int i, count; 1124. 1125. if (dmgtype(ptr, AD_STUN) || dmgtype(ptr, AD_HALU) || 1126. pm == PM_VIOLET_FUNGUS) { 1127. pline ("Oh wow! Great stuff!"); 1128. make_hallucinated(HHallucination + 200,FALSE,0L); 1129. } 1130. if(is_giant(ptr) && !rn2(4)) gainstr((struct obj *)0, 0); 1131. 1132. /* Check the monster for all of the intrinsics. If this 1133. * monster can give more than one, pick one to try to give 1134. * from among all it can give. 1135. * 1136. * If a monster can give 4 intrinsics then you have 1137. * a 1/1 * 1/2 * 2/3 * 3/4 = 1/4 chance of getting the first, 1138. * a 1/2 * 2/3 * 3/4 = 1/4 chance of getting the second, 1139. * a 1/3 * 3/4 = 1/4 chance of getting the third, 1140. * and a 1/4 chance of getting the fourth. 1141. * 1142. * And now a proof by induction: 1143. * it works for 1 intrinsic (1 in 1 of getting it) 1144. * for 2 you have a 1 in 2 chance of getting the second, 1145. * otherwise you keep the first 1146. * for 3 you have a 1 in 3 chance of getting the third, 1147. * otherwise you keep the first or the second 1148. * for n+1 you have a 1 in n+1 chance of getting the (n+1)st, 1149. * otherwise you keep the previous one. 1150. * Elliott Kleinrock, October 5, 1990 1151. */ 1152. 1153. count = 0; /* number of possible intrinsics */ 1154. tmp = 0; /* which one we will try to give */ 1155. for (i = 1; i <= LAST_PROP; i++) { 1156. if (intrinsic_possible(i, ptr)) { 1157. count++; 1158. /* a 1 in count chance of replacing the old 1159. * one with this one, and a count-1 in count 1160. * chance of keeping the old one. (note 1161. * that 1 in 1 and 0 in 1 are what we want 1162. * for the first one 1163. */ 1164. if (!rn2(count)) { 1165. #ifdef DEBUG 1166. debugpline("Intrinsic %d replacing %d", 1167. i, tmp); 1168. #endif 1169. tmp = i; 1170. } 1171. } 1172. } 1173. 1174. /* if any found try to give them one */ 1175. if (count) givit(tmp, ptr); 1176. } 1177. break; 1178. } 1179. 1180. if (!Race_if(PM_HUMAN_WEREWOLF) && 1181. catch_lycanthropy && defends(AD_WERE, uwep)) { 1182. if (!touch_artifact(uwep, &youmonst)) { 1183. dropx(uwep); 1184. uwepgone(); 1185. } 1186. } 1187. 1188. return; 1189. } 1190. 1191. void 1192. violated_vegetarian() 1193. { 1194. u.uconduct.unvegetarian++; 1195. if (Role_if(PM_MONK)) { 1196. You_feel("guilty."); 1197. adjalign(-1); 1198. } 1199. return; 1200. } 1201. 1202. /* common code to check and possibly charge for 1 context.tin.tin, 1203. * will split() context.tin.tin if necessary */ 1204. STATIC_PTR 1205. void 1206. costly_tin(verb) 1207. const char* verb; /* if 0, the verb is "open" */ 1208. { 1209. if(((!carried(tin.tin) && 1210. costly_spot(tin.tin->ox, tin.tin->oy) && 1211. !tin.tin->no_charge) 1212. || tin.tin->unpaid)) { 1213. verbalize("You %s it, you bought it!", verb ? verb : "open"); 1214. if(tin.tin->quan > 1L) tin.tin = splitobj(tin.tin, 1L); 1215. bill_dummy_object(tin.tin); 1216. } 1217. } 1218. 1219. STATIC_PTR 1220. int 1221. opentin() /* called during each move whilst opening a tin */ 1222. { 1223. register int r; 1224. const char *what; 1225. int which; 1226. 1227. if(!carried(tin.tin) && !obj_here(tin.tin, u.ux, u.uy)) 1228. /* perhaps it was stolen? */ 1229. return(0); /* %% probably we should use tinoid */ 1230. if(tin.usedtime++ >= 50) { 1231. You("give up your attempt to open the tin."); 1232. return(0); 1233. } 1234. if(tin.usedtime < tin.reqtime) 1235. return(1); /* still busy */ 1236. if(tin.tin->otrapped || 1237. (tin.tin->cursed && tin.tin->spe != -1 && !rn2(8))) { 1238. b_trapped("tin", 0); 1239. costly_tin("destroyed"); 1240. goto use_me; 1241. } 1242. You("succeed in opening the tin."); 1243. if(tin.tin->spe != 1) { 1244. if (tin.tin->corpsenm == NON_PM) { 1245. pline("It turns out to be empty."); 1246. tin.tin->dknown = tin.tin->known = TRUE; 1247. costly_tin((const char*)0); 1248. goto use_me; 1249. } 1250. r = tin.tin->cursed ? ROTTEN_TIN : /* always rotten if cursed */ 1251. (tin.tin->spe == -1) ? HOMEMADE_TIN : /* player made it */ 1252. rn2(TTSZ-1); /* else take your pick */ 1253. if (r == ROTTEN_TIN && (tin.tin->corpsenm == PM_LIZARD || 1254. tin.tin->corpsenm == PM_LICHEN)) 1255. r = HOMEMADE_TIN; /* lizards don't rot */ 1256. else if (tin.tin->spe == -1 && !tin.tin->blessed && !rn2(7)) 1257. r = ROTTEN_TIN; /* some homemade tins go bad */ 1258. which = 0; /* 0=>plural, 1=>as-is, 2=>"the" prefix */ 1259. if (Hallucination) { 1260. what = rndmonnam(); 1261. } else { 1262. what = mons[tin.tin->corpsenm].mname; 1263. if (mons[tin.tin->corpsenm].geno & G_UNIQ) 1264. which = type_is_pname(&mons[tin.tin->corpsenm]) ? 1 : 2; 1265. } 1266. if (which == 0) what = makeplural(what); 1267. #ifdef EATEN_MEMORY 1268. /* ALI - you already know the type of the tinned meat */ 1269. if (tin.tin->known && mvitals[tin.tin->corpsenm].eaten < 255) 1270. mvitals[tin.tin->corpsenm].eaten++; 1271. /* WAC - you only recognize if you've eaten this before */ 1272. if (!mvitals[tin.tin->corpsenm].eaten && !Hallucination) { 1273. if (rn2(2)) 1274. pline ("It smells kind of like %s.", 1275. monexplain[mons[tin.tin->corpsenm].mlet]); 1276. else 1277. pline_The("smell is unfamiliar."); 1278. } else 1279. #endif 1280. pline("It smells like %s%s.", (which == 2) ? "the " : "", what); 1281. 1282. if (yn("Eat it?") == 'n') { 1283. #ifdef EATEN_MEMORY 1284. /* ALI - you know the tin iff you recognized the contents */ 1285. if (mvitals[tin.tin->corpsenm].eaten) 1286. #endif 1287. if (!Hallucination) tin.tin->dknown = tin.tin->known = TRUE; 1288. if (flags.verbose) You("discard the open tin."); 1289. costly_tin((const char*)0); 1290. goto use_me; 1291. } 1292. /* in case stop_occupation() was called on previous meal */ 1293. victual.piece = (struct obj *)0; 1294. victual.fullwarn = victual.eating = victual.doreset = FALSE; 1295. 1296. #ifdef EATEN_MEMORY 1297. /* WAC - you only recognize if you've eaten this before */ 1298. You("consume %s %s.", tintxts[r].txt, 1299. mvitals[tin.tin->corpsenm].eaten ? 1300. mons[tin.tin->corpsenm].mname : "food"); 1301. #else 1302. You("consume %s %s.", tintxts[r].txt, 1303. mons[tin.tin->corpsenm].mname); 1304. #endif 1305. 1306. /* KMH, conduct */ 1307. u.uconduct.food++; 1308. if (!vegan(&mons[tin.tin->corpsenm])) 1309. u.uconduct.unvegan++; 1310. if (!vegetarian(&mons[tin.tin->corpsenm])) 1311. violated_vegetarian(); 1312. 1313. #ifdef EATEN_MEMORY 1314. if (mvitals[tin.tin->corpsenm].eaten) 1315. #endif 1316. tin.tin->dknown = tin.tin->known = TRUE; 1317. cprefx(tin.tin->corpsenm); cpostfx(tin.tin->corpsenm); 1318. 1319. /* charge for one at pre-eating cost */ 1320. costly_tin((const char*)0); 1321. 1322. /* check for vomiting added by GAN 01/16/87 */ 1323. if(tintxts[r].nut < 0) make_vomiting((long)rn1(15,10), FALSE); 1324. else lesshungry(tintxts[r].nut); 1325. 1326. if(r == 0 || r == FRENCH_FRIED_TIN) { 1327. /* Assume !Glib, because you can't open tins when Glib. */ 1328. incr_itimeout(&Glib, rnd(15)); 1329. pline("Eating deep fried food made your %s very slippery.", 1330. makeplural(body_part(FINGER))); 1331. } 1332. } else { 1333. if (tin.tin->cursed) 1334. pline("It contains some decaying%s%s substance.", 1335. Blind ? "" : " ", Blind ? "" : hcolor(NH_GREEN)); 1336. else 1337. pline("It contains spinach."); 1338. 1339. if (yn("Eat it?") == 'n') { 1340. if (!Hallucination && !tin.tin->cursed) 1341. tin.tin->dknown = tin.tin->known = TRUE; 1342. if (flags.verbose) 1343. You("discard the open tin."); 1344. costly_tin((const char*)0); 1345. goto use_me; 1346. } 1347. 1348. tin.tin->dknown = tin.tin->known = TRUE; 1349. costly_tin((const char*)0); 1350. 1351. if (!tin.tin->cursed) 1352. pline("This makes you feel like %s!", 1353. Hallucination ? "Swee'pea" : "Popeye"); 1354. lesshungry(600); 1355. gainstr(tin.tin, 0); 1356. u.uconduct.food++; 1357. } 1358. use_me: 1359. if (carried(tin.tin)) useup(tin.tin); 1360. else useupf(tin.tin, 1L); 1361. tin.tin = (struct obj *) 0; 1362. return(0); 1363. } 1364. 1365. STATIC_OVL void 1366. start_tin(otmp) /* called when starting to open a tin */ 1367. register struct obj *otmp; 1368. { 1369. register int tmp; 1370. 1371. if (metallivorous(youmonst.data)) { 1372. You("bite right into the metal tin..."); 1373. tmp = 1; 1374. } else if (nolimbs(youmonst.data)) { 1375. You("cannot handle the tin properly to open it."); 1376. return; 1377. } else if (otmp->blessed) { 1378. pline_The("tin opens like magic!"); 1379. tmp = 1; 1380. } else if(uwep) { 1381. switch(uwep->otyp) { 1382. case TIN_OPENER: 1383. tmp = 1; 1384. break; 1385. case DAGGER: 1386. case SILVER_DAGGER: 1387. case ELVEN_DAGGER: 1388. case ORCISH_DAGGER: 1389. case ATHAME: 1390. case CRYSKNIFE: 1391. case DARK_ELVEN_DAGGER: 1392. case GREAT_DAGGER: 1393. tmp = 3; 1394. break; 1395. case PICK_AXE: 1396. case AXE: 1397. tmp = 6; 1398. break; 1399. default: 1400. goto no_opener; 1401. } 1402. pline("Using your %s you try to open the tin.", 1403. aobjnam(uwep, (char *)0)); 1404. } else { 1405. no_opener: 1406. pline("It is not so easy to open this tin."); 1407. if(Glib) { 1408. pline_The("tin slips from your %s.", 1409. makeplural(body_part(FINGER))); 1410. if(otmp->quan > 1L) { 1411. otmp = splitobj(otmp, 1L); 1412. } 1413. if (carried(otmp)) dropx(otmp); 1414. else stackobj(otmp); 1415. return; 1416. } 1417. tmp = rn1(1 + 500/((int)(ACURR(A_DEX) + ACURRSTR)), 10); 1418. } 1419. tin.reqtime = tmp; 1420. tin.usedtime = 0; 1421. tin.tin = otmp; 1422. set_occupation(opentin, "opening the tin", 0); 1423. return; 1424. } 1425. 1426. int 1427. Hear_again() /* called when waking up after fainting */ 1428. { 1429. flags.soundok = 1; 1430. return 0; 1431. } 1432. 1433. /* called on the "first bite" of rotten food */ 1434. STATIC_OVL int 1435. rottenfood(obj) 1436. struct obj *obj; 1437. { 1438. pline("Blecch! Rotten %s!", foodword(obj)); 1439. if(!rn2(4)) { 1440. if (Hallucination) You_feel("rather trippy."); 1441. else You_feel("rather %s.", body_part(LIGHT_HEADED)); 1442. make_confused(HConfusion + d(2,4),FALSE); 1443. } else if(!rn2(4) && !Blind) { 1444. pline("Everything suddenly goes dark."); 1445. make_blinded((long)d(2,10),FALSE); 1446. if (!Blind) Your(vision_clears); 1447. } else if(!rn2(3)) { 1448. const char *what, *where; 1449. if (!Blind) 1450. what = "goes", where = "dark"; 1451. else if (Levitation || Is_airlevel(&u.uz) || 1452. Is_waterlevel(&u.uz)) 1453. what = "you lose control of", where = "yourself"; 1454. else 1455. what = "you slap against the", where = 1456. #ifdef STEED 1457. (u.usteed) ? "saddle" : 1458. #endif 1459. surface(u.ux,u.uy); 1460. pline_The("world spins and %s %s.", what, where); 1461. flags.soundok = 0; 1462. nomul(-rnd(10)); 1463. nomovemsg = "You are conscious again."; 1464. afternmv = Hear_again; 1465. return(1); 1466. } 1467. return(0); 1468. } 1469. 1470. /* [ALI] Return codes: 1471. * 1472. * 0 - Ready to start eating 1473. * 1 - Corpse partly eaten, but don't start occupation 1474. * 2 - Corpse completely consumed, victual.piece left dangling 1475. * 3 - Corpse was inedible 1476. */ 1477. 1478. STATIC_OVL int 1479. eatcorpse(otmp) /* called when a corpse is selected as food */ 1480. register struct obj *otmp; 1481. { 1482. int tp = 0, mnum = otmp->corpsenm; 1483. long rotted = 0L; 1484. boolean uniq = !!(mons[mnum].geno & G_UNIQ); 1485. int retcode = 0; 1486. boolean stoneable = (touch_petrifies(&mons[mnum]) && !Stone_resistance && 1487. !poly_when_stoned(youmonst.data)); 1488. 1489. 1490. /* KMH, conduct */ 1491. if (!vegan(&mons[mnum])) u.uconduct.unvegan++; 1492. if (!vegetarian(&mons[mnum])) violated_vegetarian(); 1493. 1494. if (mnum != PM_LIZARD && mnum != PM_LICHEN) { 1495. long age = peek_at_iced_corpse_age(otmp); 1496. 1497. rotted = (monstermoves - age)/(10L + rn2(20)); 1498. if (otmp->cursed) rotted += 2L; 1499. else if (otmp->blessed) rotted -= 2L; 1500. } 1501. 1502. /* Vampires only drink the blood of very young, meaty corpses 1503. * is_edible only allows meaty corpses here 1504. * Blood is assumed to be 1/5 of the nutrition 1505. * Thus happens before the conduct checks intentionally - should it be after? 1506. * Blood is assumed to be meat and flesh. 1507. */ 1508. if (is_vampire(youmonst.data)) { 1509. /* oeaten is set up by touchfood */ 1510. if (otmp->odrained ? otmp->oeaten <= drainlevel(otmp) : 1511. otmp->oeaten < mons[otmp->corpsenm].cnutrit) { 1512. pline("There is no blood left in this corpse!"); 1513. return 3; 1514. } else if (rotted <= 0 && 1515. (peek_at_iced_corpse_age(otmp) + 5) >= monstermoves) { 1516. char buf[BUFSZ]; 1517. 1518. /* Generate the name for the corpse */ 1519. if (!uniq || Hallucination) 1520. Sprintf(buf, "%s", the(corpse_xname(otmp,TRUE))); 1521. else 1522. Sprintf(buf, "%s%s corpse", 1523. !type_is_pname(&mons[mnum]) ? "the " : "", 1524. s_suffix(mons[mnum].mname)); 1525. 1526. pline("You drain the blood from %s.", buf); 1527. otmp->odrained = 1; 1528. } else { 1529. pline("The blood in this corpse has coagulated!"); 1530. return 3; 1531. } 1532. } 1533. else 1534. otmp->odrained = 0; 1535. 1536. /* Very rotten corpse will make you sick unless you are a ghoul or a ghast */ 1537. if (mnum != PM_ACID_BLOB && !stoneable && rotted > 5L) { 1538. boolean cannibal = maybe_cannibal(mnum, FALSE); 1539. if (u.umonnum == PM_GHOUL || u.umonnum == PM_GHAST) { 1540. pline("Yum - that %s was well aged%s!", 1541. mons[mnum].mlet == S_FUNGUS ? "fungoid vegetation" : 1542. !vegetarian(&mons[mnum]) ? "meat" : "protoplasm", 1543. cannibal ? ", cannibal" : ""); 1544. } else { 1545. pline("Ulch - that %s was tainted%s!", 1546. mons[mnum].mlet == S_FUNGUS ? "fungoid vegetation" : 1547. !vegetarian(&mons[mnum]) ? "meat" : "protoplasm", 1548. cannibal ? ", cannibal" : ""); 1549. if (Sick_resistance) { 1550. pline("It doesn't seem at all sickening, though..."); 1551. } else { 1552. char buf[BUFSZ]; 1553. long sick_time; 1554. 1555. sick_time = (long) rn1(10, 10); 1556. /* make sure new ill doesn't result in improvement */ 1557. if (Sick && (sick_time > Sick)) 1558. sick_time = (Sick > 1L) ? Sick - 1L : 1L; 1559. if (!uniq || Hallucination) 1560. Sprintf(buf, "rotted %s", corpse_xname(otmp,TRUE)); 1561. else 1562. Sprintf(buf, "%s%s rotted corpse", 1563. !type_is_pname(&mons[mnum]) ? "the " : "", 1564. s_suffix(mons[mnum].mname)); 1565. make_sick(sick_time, buf, TRUE, SICK_VOMITABLE); 1566. } 1567. if (carried(otmp)) useup(otmp); 1568. else useupf(otmp, 1L); 1569. return(2); 1570. } 1571. } else if (youmonst.data == &mons[PM_GHOUL] || 1572. youmonst.data == &mons[PM_GHAST]) { 1573. pline ("This corpse is too fresh!"); 1574. return 3; 1575. } else if (acidic(&mons[mnum]) && !Acid_resistance) { 1576. tp++; 1577. You("have a very bad case of stomach acid."); /* not body_part() */ 1578. losehp(rnd(15), "acidic corpse", KILLED_BY_AN); 1579. } else if (poisonous(&mons[mnum]) && rn2(5)) { 1580. tp++; 1581. pline("Ecch - that must have been poisonous!"); 1582. if(!Poison_resistance) { 1583. losestr(rnd(4)); 1584. losehp(rnd(15), "poisonous corpse", KILLED_BY_AN); 1585. } else You("seem unaffected by the poison."); 1586. /* now any corpse left too long will make you mildly ill */ 1587. } else if ((rotted > 5L || (rotted > 3L && rn2(5))) 1588. && !Sick_resistance) { 1589. tp++; 1590. You_feel("%ssick.", (Sick) ? "very " : ""); 1591. losehp(rnd(8), "cadaver", KILLED_BY_AN); 1592. } 1593. 1594. /* delay is weight dependent */ 1595. victual.reqtime = 3 + (mons[mnum].cwt >> 6); 1596. if (otmp->odrained) victual.reqtime = rounddiv(victual.reqtime, 5); 1597. 1598. if (!tp && mnum != PM_LIZARD && mnum != PM_LICHEN && 1599. (otmp->orotten || !rn2(7))) { 1600. if (rottenfood(otmp)) { 1601. otmp->orotten = TRUE; 1602. (void)touchfood(otmp); 1603. retcode = 1; 1604. } 1605. 1606. if (!mons[otmp->corpsenm].cnutrit) { 1607. /* no nutrution: rots away, no message if you passed out */ 1608. if (!retcode) pline_The("corpse rots away completely."); 1609. if (carried(otmp)) useup(otmp); 1610. else useupf(otmp, 1L); 1611. retcode = 2; 1612. } 1613. 1614. if (!retcode) consume_oeaten(otmp, 2); /* oeaten >>= 2 */ 1615. if (otmp->odrained && otmp->oeaten < drainlevel(otmp)) 1616. otmp->oeaten = drainlevel(otmp); 1617. } else if (!is_vampire(youmonst.data)) { 1618. pline("%s%s %s!", 1619. !uniq ? "This " : !type_is_pname(&mons[mnum]) ? "The " : "", 1620. food_xname(otmp, FALSE), 1621. (vegan(&mons[mnum]) ? 1622. (!carnivorous(youmonst.data) && herbivorous(youmonst.data)) : 1623. (carnivorous(youmonst.data) && !herbivorous(youmonst.data))) 1624. ? "is delicious" : "tastes terrible"); 1625. } 1626. 1627. #ifdef EATEN_MEMORY 1628. /* WAC Track food types eaten */ 1629. if (mvitals[mnum].eaten < 255) mvitals[mnum].eaten++; 1630. #endif 1631. 1632. return(retcode); 1633. } 1634. 1635. STATIC_OVL void 1636. start_eating(otmp) /* called as you start to eat */ 1637. register struct obj *otmp; 1638. { 1639. #ifdef DEBUG 1640. debugpline("start_eating: %lx (victual = %lx)", otmp, victual.piece); 1641. debugpline("reqtime = %d", victual.reqtime); 1642. debugpline("(original reqtime = %d)", objects[otmp->otyp].oc_delay); 1643. debugpline("nmod = %d", victual.nmod); 1644. debugpline("oeaten = %d", otmp->oeaten); 1645. #endif 1646. victual.fullwarn = victual.doreset = FALSE; 1647. victual.eating = TRUE; 1648. 1649. if (otmp->otyp == CORPSE) { 1650. cprefx(victual.piece->corpsenm); 1651. if (!victual.piece || !victual.eating) { 1652. /* rider revived, or died and lifesaved */ 1653. return; 1654. } 1655. } 1656. 1657. if (bite()) return; 1658. 1659. if (++victual.usedtime >= victual.reqtime) { 1660. /* print "finish eating" message if they just resumed -dlc */ 1661. done_eating(victual.reqtime > 1 ? TRUE : FALSE); 1662. return; 1663. } 1664. 1665. Sprintf(msgbuf, "%s %s", otmp->odrained ? "draining" : "eating", 1666. food_xname(otmp, TRUE)); 1667. set_occupation(eatfood, msgbuf, 0); 1668. } 1669. 1670. 1671. /* 1672. * called on "first bite" of (non-corpse) food. 1673. * used for non-rotten non-tin non-corpse food 1674. */ 1675. STATIC_OVL void 1676. fprefx(otmp) 1677. struct obj *otmp; 1678. { 1679. switch(otmp->otyp) { 1680. 1681. case FOOD_RATION: 1682. if(u.uhunger <= 200) 1683. pline(Hallucination ? "Oh wow, like, superior, man!" : 1684. "That food really hit the spot!"); 1685. else if(u.uhunger <= 700) pline("That satiated your %s!", 1686. body_part(STOMACH)); 1687. break; 1688. case TRIPE_RATION: 1689. if (carnivorous(youmonst.data) && (!humanoid(youmonst.data)) || 1690. u.ulycn != NON_PM && carnivorous(&mons[u.ulycn]) && 1691. !humanoid(&mons[u.ulycn])) 1692. /* Symptom of lycanthropy is starting to like your 1693. * alternative form's food! 1694. */ 1695. pline("That tripe ration was surprisingly good!"); 1696. else if (maybe_polyd(is_orc(youmonst.data), Race_if(PM_ORC))) 1697. pline(Hallucination ? "Tastes great! Less filling!" : 1698. "Mmm, tripe... not bad!"); 1699. else { 1700. pline("Yak - dog food!"); 1701. more_experienced(1,0); 1702. newexplevel(); 1703. /* not cannibalism, but we use similar criteria 1704. for deciding whether to be sickened by this meal */ 1705. if (rn2(2) && !CANNIBAL_ALLOWED()) 1706. make_vomiting((long)rn1(victual.reqtime, 14), FALSE); 1707. } 1708. break; 1709. case PILL: 1710. You("swallow the little pink pill."); 1711. switch(rn2(7)) 1712. { 1713. case 0: 1714. /* [Tom] wishing pills are from the Land of Oz */ 1715. pline ("The pink sugar coating hid a silver wishing pill!"); 1716. makewish(); 1717. break; 1718. case 1: 1719. if(!Poison_resistance) { 1720. You("feel your stomach twinge."); 1721. losestr(rnd(4)); 1722. losehp(rnd(15), "poisonous pill", KILLED_BY_AN); 1723. } else You("seem unaffected by the poison."); 1724. break; 1725. case 2: 1726. pline ("Everything begins to get blurry."); 1727. make_stunned(HStun + 30,FALSE); 1728. break; 1729. case 3: 1730. pline ("Oh wow! Look at the lights!"); 1731. make_hallucinated(HHallucination + 150,FALSE,0L); 1732. break; 1733. case 4: 1734. pline("That tasted like vitamins..."); 1735. lesshungry(600); 1736. break; 1737. case 5: 1738. if(Sleep_resistance) { 1739. pline("Hmm. Nothing happens."); 1740. } else { 1741. pline("You feel drowsy..."); 1742. nomul(-rn2(50)); 1743. u.usleep = 1; 1744. nomovemsg = "You wake up."; 1745. } 1746. break; 1747. case 6: 1748. pline("Wow... everything is moving in slow motion..."); 1749. /* KMH, balance patch -- Use incr_itimeout() instead of += */ 1750. incr_itimeout(&HFast, rn1(10,200)); 1751. break; 1752. } 1753. break; 1754. case MUSHROOM: 1755. pline("This %s is %s", singular(otmp, xname), 1756. otmp->cursed ? (Hallucination ? "far-out!" : "terrible!") : 1757. Hallucination ? "groovy!" : "delicious!"); 1758. switch(rn2(10)) 1759. { 1760. case 0: 1761. case 1: 1762. if(!Poison_resistance) { 1763. You("feel rather ill...."); 1764. losestr(rnd(4)); 1765. losehp(rnd(15), "poisonous mushroom", KILLED_BY_AN); 1766. } else You("burp loudly."); 1767. break; 1768. case 2: 1769. pline ("That mushroom tasted a little funny."); 1770. make_stunned(HStun + 30,FALSE); 1771. break; 1772. case 3: 1773. pline ("Whoa! Everything looks groovy!"); 1774. make_hallucinated(HHallucination + 150,FALSE,0L); 1775. break; 1776. case 4: 1777. gainstr(otmp, 1); 1778. pline ("You feel stronger!"); 1779. break; 1780. case 5: 1781. case 6: 1782. case 7: 1783. case 8: 1784. case 9: 1785. break; 1786. } 1787. break; 1788. case MEATBALL: 1789. case MEAT_STICK: 1790. case HUGE_CHUNK_OF_MEAT: 1791. case MEAT_RING: 1792. goto give_feedback; 1793. /* break; */ 1794. case CLOVE_OF_GARLIC: 1795. if (is_undead(youmonst.data)) { 1796. make_vomiting((long)rn1(victual.reqtime, 5), FALSE); 1797. break; 1798. } 1799. /* Fall through otherwise */ 1800. default: 1801. if (otmp->otyp == SLIME_MOLD && !otmp->cursed 1802. && otmp->spe == current_fruit) 1803. pline("My, that was a %s %s!", 1804. Hallucination ? "primo" : "yummy", 1805. singular(otmp, xname)); 1806. else 1807. #ifdef UNIX 1808. if (otmp->otyp == APPLE || otmp->otyp == PEAR) { 1809. if (!Hallucination) pline("Core dumped."); 1810. else { 1811. /* This is based on an old Usenet joke, a fake a.out manual page */ 1812. int x = rnd(100); 1813. if (x <= 75) 1814. pline("Segmentation fault -- core dumped."); 1815. else if (x <= 99) 1816. pline("Bus error -- core dumped."); 1817. else pline("Yo' mama -- core dumped."); 1818. } 1819. } else 1820. #endif 1821. #ifdef MAC /* KMH -- Why should Unix have all the fun? */ 1822. if (otmp->otyp == APPLE) { 1823. pline("This Macintosh is wonderful!"); 1824. } else 1825. #endif 1826. if (otmp->otyp == EGG && stale_egg(otmp)) { 1827. pline("Ugh. Rotten egg."); /* perhaps others like it */ 1828. make_vomiting(Vomiting+d(10,4), TRUE); 1829. } else { 1830. boolean bad_for_you; 1831. give_feedback: 1832. bad_for_you = otmp->cursed || 1833. (Race_if(PM_HUMAN_WEREWOLF) && 1834. otmp->otyp == SPRIG_OF_WOLFSBANE); 1835. pline("This %s is %s", singular(otmp, xname), 1836. bad_for_you ? (Hallucination ? "grody!" : "terrible!") : 1837. (otmp->otyp == CRAM_RATION 1838. || otmp->otyp == K_RATION 1839. || otmp->otyp == C_RATION) 1840. ? "bland." : 1841. Hallucination ? "gnarly!" : "delicious!"); 1842. } 1843. break; 1844. } 1845. } 1846. 1847. STATIC_OVL void 1848. accessory_has_effect(otmp) 1849. struct obj *otmp; 1850. { 1851. pline("Magic spreads through your body as you digest the %s.", 1852. otmp->oclass == RING_CLASS ? "ring" : "amulet"); 1853. } 1854. 1855. STATIC_OVL void 1856. eataccessory(otmp) 1857. struct obj *otmp; 1858. { 1859. int typ = otmp->otyp; 1860. long oldprop; 1861. 1862. /* Note: rings are not so common that this is unbalancing. */ 1863. /* (How often do you even _find_ 3 rings of polymorph in a game?) */ 1864. /* KMH, intrinsic patch -- several changes below */ 1865. oldprop = u.uprops[objects[typ].oc_oprop].intrinsic; 1866. if (otmp == uleft || otmp == uright) { 1867. Ring_gone(otmp); 1868. if (u.uhp <= 0) return; /* died from sink fall */ 1869. } 1870. otmp->known = otmp->dknown = 1; /* by taste */ 1871. if (!rn2(otmp->oclass == RING_CLASS ? 3 : 5)) { 1872. switch (otmp->otyp) { 1873. default: 1874. if (!objects[typ].oc_oprop) break; /* should never happen */ 1875. 1876. if (!(u.uprops[objects[typ].oc_oprop].intrinsic & FROMOUTSIDE)) 1877. accessory_has_effect(otmp); 1878. 1879. u.uprops[objects[typ].oc_oprop].intrinsic |= FROMOUTSIDE; 1880. 1881. switch (typ) { 1882. case RIN_SEE_INVISIBLE: 1883. set_mimic_blocking(); 1884. see_monsters(); 1885. if (Invis && !oldprop && !ESee_invisible && 1886. !perceives(youmonst.data) && !Blind) { 1887. newsym(u.ux,u.uy); 1888. pline("Suddenly you can see yourself."); 1889. makeknown(typ); 1890. } 1891. break; 1892. case RIN_INVISIBILITY: 1893. if (!oldprop && !EInvis && !BInvis && 1894. !See_invisible && !Blind) { 1895. newsym(u.ux,u.uy); 1896. Your("body takes on a %s transparency...", 1897. Hallucination ? "normal" : "strange"); 1898. makeknown(typ); 1899. } 1900. break; 1901. case RIN_PROTECTION_FROM_SHAPE_CHAN: 1902. rescham(); 1903. break; 1904. case RIN_LEVITATION: 1905. /* undo the `.intrinsic |= FROMOUTSIDE' done above */ 1906. u.uprops[LEVITATION].intrinsic = oldprop; 1907. if (!Levitation) { 1908. float_up(); 1909. incr_itimeout(&HLevitation, d(10,20)); 1910. makeknown(typ); 1911. } 1912. break; 1913. } 1914. break; 1915. case RIN_ADORNMENT: 1916. accessory_has_effect(otmp); 1917. if (adjattrib(A_CHA, otmp->spe, -1)) 1918. makeknown(typ); 1919. break; 1920. case RIN_GAIN_STRENGTH: 1921. accessory_has_effect(otmp); 1922. if (adjattrib(A_STR, otmp->spe, -1)) 1923. makeknown(typ); 1924. break; 1925. case RIN_GAIN_CONSTITUTION: 1926. accessory_has_effect(otmp); 1927. if (adjattrib(A_CON, otmp->spe, -1)) 1928. makeknown(typ); 1929. break; 1930. case RIN_GAIN_INTELLIGENCE: 1931. accessory_has_effect(otmp); 1932. if (adjattrib(A_INT, otmp->spe, -1)) 1933. makeknown(typ); 1934. break; 1935. case RIN_GAIN_WISDOM: 1936. accessory_has_effect(otmp); 1937. if (adjattrib(A_WIS, otmp->spe, -1)) 1938. makeknown(typ); 1939. break; 1940. case RIN_GAIN_DEXTERITY: 1941. accessory_has_effect(otmp); 1942. if (adjattrib(A_DEX, otmp->spe, -1)) 1943. makeknown(typ); 1944. break; 1945. case RIN_INCREASE_ACCURACY: 1946. accessory_has_effect(otmp); 1947. u.uhitinc += otmp->spe; 1948. break; 1949. case RIN_INCREASE_DAMAGE: 1950. accessory_has_effect(otmp); 1951. u.udaminc += otmp->spe; 1952. break; 1953. case RIN_PROTECTION: 1954. accessory_has_effect(otmp); 1955. HProtection |= FROMOUTSIDE; 1956. u.ublessed += otmp->spe; 1957. flags.botl = 1; 1958. break; 1959. case RIN_FREE_ACTION: 1960. /* Give sleep resistance instead */ 1961. if (!(HSleep_resistance & FROMOUTSIDE)) 1962. accessory_has_effect(otmp); 1963. if (!Sleep_resistance) 1964. You_feel("wide awake."); 1965. HSleep_resistance |= FROMOUTSIDE; 1966. break; 1967. case AMULET_OF_CHANGE: 1968. accessory_has_effect(otmp); 1969. makeknown(typ); 1970. change_sex(); 1971. You("are suddenly very %s!", 1972. flags.female ? "feminine" : "masculine"); 1973. flags.botl = 1; 1974. break; 1975. case AMULET_OF_UNCHANGING: 1976. /* un-change: it's a pun */ 1977. if (!Unchanging && Upolyd) { 1978. accessory_has_effect(otmp); 1979. makeknown(typ); 1980. rehumanize(); 1981. } 1982. break; 1983. case AMULET_OF_STRANGULATION: /* bad idea! */ 1984. /* no message--this gives no permanent effect */ 1985. choke(otmp); 1986. break; 1987. case AMULET_OF_RESTFUL_SLEEP: /* another bad idea! */ 1988. case RIN_SLEEPING: 1989. if (!(HSleeping & FROMOUTSIDE)) 1990. accessory_has_effect(otmp); 1991. HSleeping = FROMOUTSIDE | rnd(100); 1992. break; 1993. case AMULET_VERSUS_STONE: 1994. /* no message--this gives no permanent effect */ 1995. (void)uunstone(); 1996. break; 1997. case RIN_SUSTAIN_ABILITY: 1998. case AMULET_OF_FLYING: /* Intrinsic flying not supported --ALI */ 1999. case AMULET_OF_LIFE_SAVING: 2000. case AMULET_OF_REFLECTION: /* nice try */ 2001. case AMULET_OF_DRAIN_RESISTANCE: 2002. /* can't eat Amulet of Yendor or fakes, 2003. * and no oc_prop even if you could -3. 2004. */ 2005. break; 2006. } 2007. } 2008. } 2009. 2010. STATIC_OVL void 2011. eatspecial() /* called after eating non-food */ 2012. { 2013. register struct obj *otmp = victual.piece; 2014. 2015. /* lesshungry wants an occupation to handle choke messages correctly */ 2016. set_occupation(eatfood, "eating non-food", 0); 2017. lesshungry(victual.nmod); 2018. occupation = 0; 2019. victual.piece = (struct obj *)0; 2020. victual.eating = 0; 2021. if (otmp->oclass == COIN_CLASS) { 2022. #ifdef GOLDOBJ 2023. if (carried(otmp)) 2024. useupall(otmp); 2025. #else 2026. if (otmp->where == OBJ_FREE) 2027. dealloc_obj(otmp); 2028. #endif 2029. else 2030. useupf(otmp, otmp->quan); 2031. return; 2032. } 2033. if (otmp->oclass == POTION_CLASS) { 2034. otmp->quan++; /* dopotion() does a useup() */ 2035. (void)dopotion(otmp); 2036. } 2037. if (otmp->oclass == RING_CLASS || otmp->oclass == AMULET_CLASS) 2038. eataccessory(otmp); 2039. else if (otmp->otyp == LEASH && otmp->leashmon) 2040. o_unleash(otmp); 2041. 2042. /* KMH -- idea by "Tommy the Terrorist" */ 2043. if ((otmp->otyp == TRIDENT) && !otmp->cursed) 2044. { 2045. pline(Hallucination ? "Four out of five dentists agree." : 2046. "That was pure chewing satisfaction!"); 2047. exercise(A_WIS, TRUE); 2048. } 2049. if ((otmp->otyp == FLINT) && !otmp->cursed) 2050. { 2051. pline("Yabba-dabba delicious!"); 2052. exercise(A_CON, TRUE); 2053. } 2054. 2055. if (otmp == uwep && otmp->quan == 1L) uwepgone(); 2056. if (otmp == uquiver && otmp->quan == 1L) uqwepgone(); 2057. if (otmp == uswapwep && otmp->quan == 1L) uswapwepgone(); 2058. 2059. if (otmp == uball) unpunish(); 2060. if (otmp == uchain) unpunish(); /* but no useup() */ 2061. else if (carried(otmp)) useup(otmp); 2062. else useupf(otmp, 1L); 2063. } 2064. 2065. /* NOTE: the order of these words exactly corresponds to the 2066. order of oc_material values #define'd in objclass.h. */ 2067. static const char *foodwords[] = { 2068. "meal", "liquid", "wax", "food", "meat", 2069. "paper", "cloth", "leather", "wood", "bone", "scale", 2070. "metal", "metal", "metal", "silver", "gold", "platinum", "mithril", 2071. "plastic", "glass", "rich food", "stone" 2072. }; 2073. 2074. STATIC_OVL const char * 2075. foodword(otmp) 2076. register struct obj *otmp; 2077. { 2078. if (otmp->oclass == FOOD_CLASS) return "food"; 2079. if (otmp->oclass == GEM_CLASS && 2080. objects[otmp->otyp].oc_material == GLASS && 2081. otmp->dknown) 2082. makeknown(otmp->otyp); 2083. return foodwords[objects[otmp->otyp].oc_material]; 2084. } 2085. 2086. STATIC_OVL void 2087. fpostfx(otmp) /* called after consuming (non-corpse) food */ 2088. register struct obj *otmp; 2089. { 2090. switch(otmp->otyp) { 2091. case SPRIG_OF_WOLFSBANE: 2092. if (u.ulycn >= LOW_PM || is_were(youmonst.data) || Race_if(PM_HUMAN_WEREWOLF)) 2093. you_unwere(TRUE); 2094. break; 2095. case HOLY_WAFER: 2096. if (u.ualign.type == A_LAWFUL) { 2097. if (u.uhp < u.uhpmax) { 2098. You("feel warm inside."); 2099. u.uhp += rn1(20,20); 2100. if (u.uhp > u.uhpmax) u.uhp = u.uhpmax; 2101. } 2102. } 2103. if (Sick) make_sick(0L, (char *)0, TRUE, SICK_ALL); 2104. if (u.ulycn != -1) { 2105. you_unwere(TRUE); 2106. } 2107. if (u.ualign.type == A_CHAOTIC) { 2108. You("feel a burning inside!"); 2109. u.uhp -= rn1(10,10); 2110. /* KMH, balance patch 2 -- should not have 0 hp */ 2111. if (u.uhp < 1) u.uhp = 1; 2112. } 2113. break; 2114. case CARROT: 2115. make_blinded((long)u.ucreamed,TRUE); 2116. break; 2117. /* body parts -- now checks for artifact and name*/ 2118. case EYEBALL: 2119. if (!otmp->oartifact) break; 2120. You("feel a burning inside!"); 2121. u.uhp -= rn1(50,150); 2122. if (u.uhp <= 0) { 2123. killer_format = KILLED_BY; 2124. killer = food_xname(otmp, TRUE); 2125. done(CHOKING); 2126. } 2127. break; 2128. case SEVERED_HAND: 2129. if (!otmp->oartifact) break; 2130. You("feel the hand scrabbling around inside of you!"); 2131. u.uhp -= rn1(50,150); 2132. if (u.uhp <= 0) { 2133. killer_format = KILLED_BY; 2134. killer = food_xname(otmp, TRUE); 2135. done(CHOKING); 2136. } 2137. break; 2138. case FORTUNE_COOKIE: 2139. if (yn("Read the fortune?") == 'y') { 2140. outrumor(bcsign(otmp), BY_COOKIE); 2141. if (!Blind) u.uconduct.literate++; 2142. } 2143. break; 2144. /* STEHPEN WHITE'S NEW CODE */ 2145. case LUMP_OF_ROYAL_JELLY: 2146. /* This stuff seems to be VERY healthy! */ 2147. gainstr(otmp, 1); 2148. if (Upolyd) { 2149. u.mh += otmp->cursed ? -rnd(20) : rnd(20); 2150. if (u.mh > u.mhmax) { 2151. if (!rn2(17)) u.mhmax++; 2152. u.mh = u.mhmax; 2153. } else if (u.mh <= 0) { 2154. rehumanize(); 2155. } 2156. } else { 2157. u.uhp += otmp->cursed ? -rnd(20) : rnd(20); 2158. if (u.uhp > u.uhpmax) { 2159. if(!rn2(17)) u.uhpmax++; 2160. u.uhp = u.uhpmax; 2161. } else if(u.uhp <= 0) { 2162. killer_format = KILLED_BY_AN; 2163. killer = "rotten lump of royal jelly"; 2164. done(POISONING); 2165. } 2166. } 2167. if(!otmp->cursed) heal_legs(); 2168. break; 2169. case EGG: 2170. if (touch_petrifies(&mons[otmp->corpsenm])) { 2171. if (!Stone_resistance && 2172. !(poly_when_stoned(youmonst.data) && polymon(PM_STONE_GOLEM))) { 2173. if (!Stoned) Stoned = 5; 2174. killer_format = KILLED_BY_AN; 2175. Sprintf(killer_buf, "%s egg", mons[otmp->corpsenm].mname); 2176. delayed_killer = killer_buf; 2177. } 2178. } 2179. break; 2180. case EUCALYPTUS_LEAF: 2181. if (Sick && !otmp->cursed) 2182. make_sick(0L, (char *)0, TRUE, SICK_ALL); 2183. if (Vomiting && !otmp->cursed) 2184. make_vomiting(0L, TRUE); 2185. break; 2186. } 2187. 2188. return; 2189. } 2190. /* 2191. * return 0 if the food was not dangerous. 2192. * return 1 if the food was dangerous and you chose to stop. 2193. * return 2 if the food was dangerous and you chose to eat it anyway. 2194. */ 2195. STATIC_OVL int 2196. edibility_prompts(otmp) 2197. struct obj *otmp; 2198. { 2199. /* blessed food detection granted you a one-use 2200. ability to detect food that is unfit for consumption 2201. or dangerous and avoid it. */ 2202. 2203. char buf[BUFSZ], foodsmell[BUFSZ], 2204. it_or_they[QBUFSZ], eat_it_anyway[QBUFSZ]; 2205. boolean cadaver = (otmp->otyp == CORPSE), 2206. stoneorslime = FALSE; 2207. int material = objects[otmp->otyp].oc_material, 2208. mnum = otmp->corpsenm; 2209. long rotted = 0L; 2210. 2211. Strcpy(foodsmell, Tobjnam(otmp, "smell")); 2212. Strcpy(it_or_they, (otmp->quan == 1L) ? "it" : "they"); 2213. Sprintf(eat_it_anyway, "Eat %s anyway?", 2214. (otmp->quan == 1L) ? "it" : "one"); 2215. 2216. if (cadaver || otmp->otyp == EGG || otmp->otyp == TIN) { 2217. /* These checks must match those in eatcorpse() */ 2218. stoneorslime = (touch_petrifies(&mons[mnum]) && 2219. !Stone_resistance && 2220. !poly_when_stoned(youmonst.data)); 2221. 2222. if (mnum == PM_GREEN_SLIME) 2223. stoneorslime = (!Unchanging && !flaming(youmonst.data) && 2224. youmonst.data != &mons[PM_GREEN_SLIME]); 2225. 2226. if (cadaver && mnum != PM_LIZARD && mnum != PM_LICHEN) { 2227. long age = peek_at_iced_corpse_age(otmp); 2228. /* worst case rather than random 2229. in this calculation to force prompt */ 2230. rotted = (monstermoves - age)/(10L + 0 /* was rn2(20) */); 2231. if (otmp->cursed) rotted += 2L; 2232. else if (otmp->blessed) rotted -= 2L; 2233. } 2234. } 2235. 2236. /* 2237. * These problems with food should be checked in 2238. * order from most detrimental to least detrimental. 2239. */ 2240. 2241. if (cadaver && mnum != PM_ACID_BLOB && rotted > 5L && !Sick_resistance) { 2242. /* Tainted meat */ 2243. Sprintf(buf, "%s like %s could be tainted! %s", 2244. foodsmell, it_or_they, eat_it_anyway); 2245. if (yn_function(buf,ynchars,'n')=='n') return 1; 2246. else return 2; 2247. } 2248. if (stoneorslime) { 2249. Sprintf(buf, "%s like %s could be something very dangerous! %s", 2250. foodsmell, it_or_they, eat_it_anyway); 2251. if (yn_function(buf,ynchars,'n')=='n') return 1; 2252. else return 2; 2253. } 2254. if (otmp->orotten || (cadaver && rotted > 3L)) { 2255. /* Rotten */ 2256. Sprintf(buf, "%s like %s could be rotten! %s", 2257. foodsmell, it_or_they, eat_it_anyway); 2258. if (yn_function(buf,ynchars,'n')=='n') return 1; 2259. else return 2; 2260. } 2261. if (cadaver && poisonous(&mons[mnum]) && !Poison_resistance) { 2262. /* poisonous */ 2263. Sprintf(buf, "%s like %s might be poisonous! %s", 2264. foodsmell, it_or_they, eat_it_anyway); 2265. if (yn_function(buf,ynchars,'n')=='n') return 1; 2266. else return 2; 2267. } 2268. if (cadaver && !vegetarian(&mons[mnum]) && 2269. !u.uconduct.unvegetarian && Role_if(PM_MONK)) { 2270. Sprintf(buf, "%s unhealthy. %s", 2271. foodsmell, eat_it_anyway); 2272. if (yn_function(buf,ynchars,'n')=='n') return 1; 2273. else return 2; 2274. } 2275. if (cadaver && acidic(&mons[mnum]) && !Acid_resistance) { 2276. Sprintf(buf, "%s rather acidic. %s", 2277. foodsmell, eat_it_anyway); 2278. if (yn_function(buf,ynchars,'n')=='n') return 1; 2279. else return 2; 2280. } 2281. if (Upolyd && u.umonnum == PM_RUST_MONSTER && 2282. is_metallic(otmp) && otmp->oerodeproof) { 2283. Sprintf(buf, "%s disgusting to you right now. %s", 2284. foodsmell, eat_it_anyway); 2285. if (yn_function(buf,ynchars,'n')=='n') return 1; 2286. else return 2; 2287. } 2288. 2289. /* 2290. * Breaks conduct, but otherwise safe. 2291. */ 2292. 2293. if (!u.uconduct.unvegan && 2294. ((material == LEATHER || material == BONE || 2295. material == EYEBALL || material == SEVERED_HAND || 2296. material == DRAGON_HIDE || material == WAX) || 2297. (cadaver && !vegan(&mons[mnum])))) { 2298. Sprintf(buf, "%s foul and unfamiliar to you. %s", 2299. foodsmell, eat_it_anyway); 2300. if (yn_function(buf,ynchars,'n')=='n') return 1; 2301. else return 2; 2302. } 2303. if (!u.uconduct.unvegetarian && 2304. ((material == LEATHER || material == BONE || 2305. material == EYEBALL || material == SEVERED_HAND || 2306. material == DRAGON_HIDE) || 2307. (cadaver && !vegetarian(&mons[mnum])))) { 2308. Sprintf(buf, "%s unfamiliar to you. %s", 2309. foodsmell, eat_it_anyway); 2310. if (yn_function(buf,ynchars,'n')=='n') return 1; 2311. else return 2; 2312. } 2313. 2314. if (cadaver && mnum != PM_ACID_BLOB && rotted > 5L && Sick_resistance) { 2315. /* Tainted meat with Sick_resistance */ 2316. Sprintf(buf, "%s like %s could be tainted! %s", 2317. foodsmell, it_or_they, eat_it_anyway); 2318. if (yn_function(buf,ynchars,'n')=='n') return 1; 2319. else return 2; 2320. } 2321. return 0; 2322. } 2323. 2324. int 2325. doeat() /* generic "eat" command funtion (see cmd.c) */ 2326. { 2327. register struct obj *otmp; 2328. int basenutrit; /* nutrition of full item */ 2329. int nutrit; /* nutrition available */ 2330. char qbuf[QBUFSZ]; 2331. char c; 2332. 2333. boolean dont_start = FALSE; 2334. if (Strangled) { 2335. pline("If you can't breathe air, how can you consume solids?"); 2336. return 0; 2337. } 2338. if (!(otmp = floorfood("eat"))) return 0; 2339. if (check_capacity((char *)0)) return 0; 2340. 2341. if (u.uedibility) { 2342. int res = edibility_prompts(otmp); 2343. if (res) { 2344. Your("%s stops tingling and your sense of smell returns to normal.", 2345. body_part(NOSE)); 2346. u.uedibility = 0; 2347. if (res == 1) return 0; 2348. } 2349. } 2350. 2351. /* We have to make non-foods take 1 move to eat, unless we want to 2352. * do ridiculous amounts of coding to deal with partly eaten plate 2353. * mails, players who polymorph back to human in the middle of their 2354. * metallic meal, etc.... 2355. */ 2356. if (!is_edible(otmp)) { 2357. You("cannot eat that!"); 2358. return 0; 2359. } else if ((otmp->owornmask & (W_ARMOR|W_TOOL|W_AMUL 2360. #ifdef STEED 2361. |W_SADDLE 2362. #endif 2363. )) != 0) { 2364. /* let them eat rings */ 2365. You_cant("eat %s you're wearing.", something); 2366. return 0; 2367. } 2368. if (is_metallic(otmp) && 2369. u.umonnum == PM_RUST_MONSTER && otmp->oerodeproof) { 2370. otmp->rknown = TRUE; 2371. if (otmp->quan > 1L) { 2372. if(!carried(otmp)) 2373. (void) splitobj(otmp, otmp->quan - 1L); 2374. else 2375. otmp = splitobj(otmp, 1L); 2376. } 2377. pline("Ulch - That %s was rustproofed!", xname(otmp)); 2378. /* The regurgitated object's rustproofing is gone now */ 2379. otmp->oerodeproof = 0; 2380. make_stunned(HStun + rn2(10), TRUE); 2381. You("spit %s out onto the %s.", the(xname(otmp)), 2382. surface(u.ux, u.uy)); 2383. if (carried(otmp)) { 2384. freeinv(otmp); 2385. dropy(otmp); 2386. } 2387. stackobj(otmp); 2388. return 1; 2389. } 2390. if (otmp->otyp == EYEBALL || otmp->otyp == SEVERED_HAND) { 2391. Strcpy(qbuf,"Are you sure you want to eat that?"); 2392. if ((c = yn_function(qbuf, ynqchars, 'n')) != 'y') return 0; 2393. } 2394. 2395. /* KMH -- Slow digestion is... indigestible */ 2396. if (otmp->otyp == RIN_SLOW_DIGESTION) { 2397. pline("This ring is indigestible!"); 2398. (void) rottenfood(otmp); 2399. if (otmp->dknown && !objects[otmp->otyp].oc_name_known 2400. && !objects[otmp->otyp].oc_uname) 2401. docall(otmp); 2402. return (1); 2403. } 2404. 2405. if (otmp->oclass != FOOD_CLASS) { 2406. int material; 2407. victual.reqtime = 1; 2408. victual.piece = otmp; 2409. /* Don't split it, we don't need to if it's 1 move */ 2410. victual.usedtime = 0; 2411. victual.canchoke = (u.uhs == SATIATED); 2412. /* Note: gold weighs 1 pt. for each 1000 pieces (see */ 2413. /* pickup.c) so gold and non-gold is consistent. */ 2414. if (otmp->oclass == COIN_CLASS) 2415. basenutrit = ((otmp->quan > 200000L) ? 2000 2416. : (int)(otmp->quan/100L)); 2417. else if(otmp->oclass == BALL_CLASS || otmp->oclass == CHAIN_CLASS) 2418. basenutrit = weight(otmp); 2419. /* oc_nutrition is usually weight anyway */ 2420. else basenutrit = objects[otmp->otyp].oc_nutrition; 2421. victual.nmod = basenutrit; 2422. victual.eating = TRUE; /* needed for lesshungry() */ 2423. 2424. material = objects[otmp->otyp].oc_material; 2425. if (material == LEATHER || 2426. material == EYEBALL || material == SEVERED_HAND || 2427. material == BONE || material == DRAGON_HIDE) { 2428. u.uconduct.unvegan++; 2429. violated_vegetarian(); 2430. } else if (material == WAX) 2431. u.uconduct.unvegan++; 2432. u.uconduct.food++; 2433. 2434. if (otmp->cursed) 2435. (void) rottenfood(otmp); 2436. 2437. if (otmp->oclass == WEAPON_CLASS && otmp->opoisoned) { 2438. pline("Ecch - that must have been poisonous!"); 2439. if(!Poison_resistance) { 2440. losestr(rnd(4)); 2441. losehp(rnd(15), xname(otmp), KILLED_BY_AN); 2442. } else 2443. You("seem unaffected by the poison."); 2444. } else if (!otmp->cursed) 2445. pline("This %s is delicious!", 2446. otmp->oclass == COIN_CLASS ? foodword(otmp) : 2447. singular(otmp, xname)); 2448. 2449. eatspecial(); 2450. return 1; 2451. } 2452. 2453. /* [ALI] Hero polymorphed in the meantime. 2454. */ 2455. if (otmp == victual.piece && 2456. is_vampire(youmonst.data) != otmp->odrained) 2457. victual.piece = (struct obj *)0; /* Can't resume */ 2458. 2459. /* [ALI] Blood can coagulate during the interruption 2460. * but not during the draining process. 2461. */ 2462. if(otmp == victual.piece && otmp->odrained && 2463. (peek_at_iced_corpse_age(otmp) + victual.usedtime + 5) < monstermoves) 2464. victual.piece = (struct obj *)0; /* Can't resume */ 2465. 2466. if(otmp == victual.piece) { 2467. /* If they weren't able to choke, they don't suddenly become able to 2468. * choke just because they were interrupted. On the other hand, if 2469. * they were able to choke before, if they lost food it's possible 2470. * they shouldn't be able to choke now. 2471. */ 2472. if (u.uhs != SATIATED) victual.canchoke = FALSE; 2473. victual.piece = touchfood(otmp); 2474. You("resume your meal."); 2475. start_eating(victual.piece); 2476. return(1); 2477. } 2478. 2479. /* nothing in progress - so try to find something. */ 2480. /* tins are a special case */ 2481. /* tins must also check conduct separately in case they're discarded */ 2482. if(otmp->otyp == TIN) { 2483. start_tin(otmp); 2484. return(1); 2485. } 2486. 2487. /* KMH, conduct */ 2488. u.uconduct.food++; 2489. 2490. victual.piece = otmp = touchfood(otmp); 2491. victual.usedtime = 0; 2492. 2493. /* Now we need to calculate delay and nutritional info. 2494. * The base nutrition calculated here and in eatcorpse() accounts 2495. * for normal vs. rotten food. The reqtime and nutrit values are 2496. * then adjusted in accordance with the amount of food left. 2497. */ 2498. if(otmp->otyp == CORPSE) { 2499. int tmp = eatcorpse(otmp); 2500. if (tmp == 3) { 2501. /* inedible */ 2502. victual.piece = (struct obj *)0; 2503. /* 2504. * The combination of odrained == TRUE and oeaten == cnutrit 2505. * represents the case of starting to drain a corpse but not 2506. * getting any further (eg., loosing consciousness due to 2507. * rotten food). We must preserve this case to avoid corpses 2508. * changing appearance after a failed attempt to eat. 2509. */ 2510. if (!otmp->odrained && 2511. otmp->oeaten == mons[otmp->corpsenm].cnutrit) 2512. otmp->oeaten = 0; 2513. /* ALI, conduct: didn't eat it after all */ 2514. u.uconduct.food--; 2515. return 0; 2516. } else if (tmp == 2) { 2517. /* used up */ 2518. victual.piece = (struct obj *)0; 2519. return(1); 2520. } else if (tmp) 2521. dont_start = TRUE; 2522. /* if not used up, eatcorpse sets up reqtime and may modify 2523. * oeaten */ 2524. } else { 2525. /* No checks for WAX, LEATHER, BONE, DRAGON_HIDE. These are 2526. * all handled in the != FOOD_CLASS case, above */ 2527. switch (objects[otmp->otyp].oc_material) { 2528. case FLESH: 2529. u.uconduct.unvegan++; 2530. if (otmp->otyp != EGG && otmp->otyp != CHEESE) { 2531. violated_vegetarian(); 2532. } 2533. break; 2534. 2535. default: 2536. if (otmp->otyp == PANCAKE || 2537. otmp->otyp == FORTUNE_COOKIE || /* eggs */ 2538. otmp->otyp == CREAM_PIE || 2539. otmp->otyp == CANDY_BAR || /* milk */ 2540. otmp->otyp == LUMP_OF_ROYAL_JELLY) 2541. u.uconduct.unvegan++; 2542. break; 2543. } 2544. 2545. victual.reqtime = objects[otmp->otyp].oc_delay; 2546. if (otmp->otyp != FORTUNE_COOKIE && 2547. (otmp->cursed || 2548. (((monstermoves - otmp->age) > (int) otmp->blessed ? 50:30) && 2549. (otmp->orotten || !rn2(7))))) { 2550. 2551. if (rottenfood(otmp)) { 2552. otmp->orotten = TRUE; 2553. dont_start = TRUE; 2554. } 2555. if (otmp->oeaten < 2) { 2556. victual.piece = (struct obj *)0; 2557. if (carried(otmp)) useup(otmp); 2558. else useupf(otmp, 1L); 2559. return 1; 2560. } else 2561. consume_oeaten(otmp, 1); /* oeaten >>= 1 */ 2562. } else fprefx(otmp); 2563. } 2564. 2565. /* re-calc the nutrition */ 2566. if (otmp->otyp == CORPSE) basenutrit = mons[otmp->corpsenm].cnutrit; 2567. else basenutrit = objects[otmp->otyp].oc_nutrition; 2568. nutrit = otmp->oeaten; 2569. if (otmp->otyp == CORPSE && otmp->odrained) { 2570. nutrit -= drainlevel(otmp); 2571. basenutrit -= drainlevel(otmp); 2572. } 2573. 2574. #ifdef DEBUG 2575. debugpline("before rounddiv: victual.reqtime == %d", victual.reqtime); 2576. debugpline("oeaten == %d, basenutrit == %d", otmp->oeaten, basenutrit); 2577. debugpline("nutrit == %d, cnutrit == %d", nutrit, otmp->otyp == CORPSE ? 2578. mons[otmp->corpsenm].cnutrit : objects[otmp->otyp].oc_nutrition); 2579. #endif 2580. victual.reqtime = (basenutrit == 0 ? 0 : 2581. rounddiv(victual.reqtime * (long)nutrit, basenutrit)); 2582. #ifdef DEBUG 2583. debugpline("after rounddiv: victual.reqtime == %d", victual.reqtime); 2584. #endif 2585. /* calculate the modulo value (nutrit. units per round eating) 2586. * [ALI] Note: although this is not exact, the remainder is 2587. * now dealt with in done_eating(). 2588. */ 2589. if (victual.reqtime == 0 || nutrit == 0) 2590. /* possible if most has been eaten before */ 2591. victual.nmod = 0; 2592. else if (nutrit >= victual.reqtime) 2593. victual.nmod = -(nutrit / victual.reqtime); 2594. else 2595. victual.nmod = victual.reqtime % nutrit; 2596. victual.canchoke = (u.uhs == SATIATED); 2597. 2598. if (!dont_start) start_eating(otmp); 2599. return(1); 2600. } 2601. 2602. /* Take a single bite from a piece of food, checking for choking and 2603. * modifying usedtime. Returns 1 if they choked and survived, 0 otherwise. 2604. */ 2605. STATIC_OVL int 2606. bite() 2607. { 2608. if(victual.canchoke && u.uhunger >= 2000) { 2609. choke(victual.piece); 2610. return 1; 2611. } 2612. if (victual.doreset) { 2613. do_reset_eat(); 2614. return 0; 2615. } 2616. force_save_hs = TRUE; 2617. if(victual.nmod < 0) { 2618. lesshungry(-victual.nmod); 2619. consume_oeaten(victual.piece, victual.nmod); /* -= -nmod */ 2620. } else if(victual.nmod > 0 && (victual.usedtime % victual.nmod)) { 2621. lesshungry(1); 2622. consume_oeaten(victual.piece, -1); /* -= 1 */ 2623. } 2624. force_save_hs = FALSE; 2625. recalc_wt(); 2626. return 0; 2627. } 2628. 2629. #endif /* OVLB */ 2630. #ifdef OVL0 2631. 2632. void 2633. gethungry() /* as time goes by - called by moveloop() and domove() */ 2634. { 2635. if (u.uinvulnerable) return; /* you don't feel hungrier */ 2636. 2637. if ((!u.usleep || !rn2(10)) /* slow metabolic rate while asleep */ 2638. && (carnivorous(youmonst.data) || herbivorous(youmonst.data)) 2639. && !Slow_digestion) 2640. u.uhunger--; /* ordinary food consumption */ 2641. 2642. if (moves % 2) { /* odd turns */ 2643. /* Regeneration uses up food, unless due to an artifact */ 2644. if (HRegeneration || ((ERegeneration & (~W_ART)) && 2645. (ERegeneration != W_WEP || !uwep->oartifact))) 2646. u.uhunger--; 2647. if (near_capacity() > SLT_ENCUMBER) u.uhunger--; 2648. } else { /* even turns */ 2649. if (Hunger) u.uhunger--; 2650. /* Conflict uses up food too */ 2651. if (HConflict || (EConflict & (~W_ARTI))) u.uhunger--; 2652. /* +0 charged rings don't do anything, so don't affect hunger */ 2653. /* Slow digestion still uses ring hunger */ 2654. switch ((int)(moves % 20)) { /* note: use even cases only */ 2655. case 4: if (uleft && 2656. (uleft->spe || !objects[uleft->otyp].oc_charged)) 2657. u.uhunger--; 2658. break; 2659. case 8: if (uamul) u.uhunger--; 2660. break; 2661. case 12: if (uright && 2662. (uright->spe || !objects[uright->otyp].oc_charged)) 2663. u.uhunger--; 2664. break; 2665. case 16: if (u.uhave.amulet) u.uhunger--; 2666. break; 2667. default: break; 2668. } 2669. } 2670. newuhs(TRUE); 2671. } 2672. 2673. #endif /* OVL0 */ 2674. #ifdef OVLB 2675. 2676. void 2677. morehungry(num) /* called after vomiting and after performing feats of magic */ 2678. register int num; 2679. { 2680. u.uhunger -= num; 2681. newuhs(TRUE); 2682. } 2683. 2684. 2685. void 2686. lesshungry(num) /* called after eating (and after drinking fruit juice) */ 2687. register int num; 2688. { 2689. /* See comments in newuhs() for discussion on force_save_hs */ 2690. boolean iseating = occupation == eatfood || force_save_hs; 2691. #ifdef DEBUG 2692. debugpline("lesshungry(%d)", num); 2693. #endif 2694. u.uhunger += num; 2695. if(u.uhunger >= 2000) { 2696. if (!iseating || victual.canchoke) { 2697. if (iseating) { 2698. choke(victual.piece); 2699. reset_eat(); 2700. } else 2701. choke(occupation == opentin ? tin.tin : (struct obj *)0); 2702. /* no reset_eat() */ 2703. } 2704. } else { 2705. /* Have lesshungry() report when you're nearly full so all eating 2706. * warns when you're about to choke. 2707. */ 2708. if (u.uhunger >= 1500) { 2709. if (!victual.eating || (victual.eating && !victual.fullwarn)) { 2710. pline("You're having a hard time getting all of it down."); 2711. nomovemsg = "You're finally finished."; 2712. if (!victual.eating) 2713. multi = -2; 2714. else { 2715. victual.fullwarn = TRUE; 2716. if (victual.canchoke && victual.reqtime > 1) { 2717. /* a one-gulp food will not survive a stop */ 2718. if (yn_function("Stop eating?",ynchars,'y')=='y') { 2719. reset_eat(); 2720. nomovemsg = (char *)0; 2721. } 2722. } 2723. } 2724. } 2725. } 2726. } 2727. newuhs(FALSE); 2728. } 2729. 2730. STATIC_PTR 2731. int 2732. unfaint() 2733. { 2734. (void) Hear_again(); 2735. if(u.uhs > FAINTING) 2736. u.uhs = FAINTING; 2737. stop_occupation(); 2738. flags.botl = 1; 2739. return 0; 2740. } 2741. 2742. #endif /* OVLB */ 2743. #ifdef OVL0 2744. 2745. boolean 2746. is_fainted() 2747. { 2748. return((boolean)(u.uhs == FAINTED)); 2749. } 2750. 2751. void 2752. reset_faint() /* call when a faint must be prematurely terminated */ 2753. { 2754. if(is_fainted()) nomul(0); 2755. } 2756. 2757. #if 0 2758. void 2759. sync_hunger() 2760. { 2761. if(is_fainted()) { 2762. flags.soundok = 0; 2763. nomul(-10+(u.uhunger/10)); 2764. nomovemsg = "You regain consciousness."; 2765. afternmv = unfaint; 2766. } 2767. } 2768. #endif 2769. 2770. void 2771. newuhs(incr) /* compute and comment on your (new?) hunger status */ 2772. boolean incr; 2773. { 2774. unsigned newhs; 2775. static unsigned save_hs; 2776. static boolean saved_hs = FALSE; 2777. int h = u.uhunger; 2778. 2779. newhs = (h > 1000) ? SATIATED : 2780. (h > 150) ? NOT_HUNGRY : 2781. (h > 50) ? HUNGRY : 2782. (h > 0) ? WEAK : FAINTING; 2783. 2784. /* While you're eating, you may pass from WEAK to HUNGRY to NOT_HUNGRY. 2785. * This should not produce the message "you only feel hungry now"; 2786. * that message should only appear if HUNGRY is an endpoint. Therefore 2787. * we check to see if we're in the middle of eating. If so, we save 2788. * the first hunger status, and at the end of eating we decide what 2789. * message to print based on the _entire_ meal, not on each little bit. 2790. */ 2791. /* It is normally possible to check if you are in the middle of a meal 2792. * by checking occupation == eatfood, but there is one special case: 2793. * start_eating() can call bite() for your first bite before it 2794. * sets the occupation. 2795. * Anyone who wants to get that case to work _without_ an ugly static 2796. * force_save_hs variable, feel free. 2797. */ 2798. /* Note: If you become a certain hunger status in the middle of the 2799. * meal, and still have that same status at the end of the meal, 2800. * this will incorrectly print the associated message at the end of 2801. * the meal instead of the middle. Such a case is currently 2802. * impossible, but could become possible if a message for SATIATED 2803. * were added or if HUNGRY and WEAK were separated by a big enough 2804. * gap to fit two bites. 2805. */ 2806. if (occupation == eatfood || force_save_hs) { 2807. if (!saved_hs) { 2808. save_hs = u.uhs; 2809. saved_hs = TRUE; 2810. } 2811. u.uhs = newhs; 2812. return; 2813. } else { 2814. if (saved_hs) { 2815. u.uhs = save_hs; 2816. saved_hs = FALSE; 2817. } 2818. } 2819. 2820. if(newhs == FAINTING) { 2821. if(is_fainted()) newhs = FAINTED; 2822. if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) { 2823. if(!is_fainted() && multi >= 0 /* %% */) { 2824. /* stop what you're doing, then faint */ 2825. stop_occupation(); 2826. You("faint from lack of food."); 2827. flags.soundok = 0; 2828. nomul(-10+(u.uhunger/10)); 2829. nomovemsg = "You regain consciousness."; 2830. afternmv = unfaint; 2831. newhs = FAINTED; 2832. } 2833. } else 2834. if(u.uhunger < -(int)(200 + 20*ACURR(A_CON))) { 2835. u.uhs = STARVED; 2836. flags.botl = 1; 2837. bot(); 2838. You("die from starvation."); 2839. killer_format = KILLED_BY; 2840. killer = "starvation"; 2841. done(STARVING); 2842. /* if we return, we lifesaved, and that calls newuhs */ 2843. return; 2844. } 2845. } 2846. 2847. if(newhs != u.uhs) { 2848. if(newhs >= WEAK && u.uhs < WEAK) 2849. losestr(1); /* this may kill you -- see below */ 2850. else if(newhs < WEAK && u.uhs >= WEAK) 2851. losestr(-1); 2852. switch(newhs){ 2853. case HUNGRY: 2854. if (Hallucination) { 2855. You((!incr) ? 2856. "now have a lesser case of the munchies." : 2857. "are getting the munchies."); 2858. } else 2859. You((!incr) ? "only feel hungry now." : 2860. (u.uhunger < 145) ? "feel hungry." : 2861. "are beginning to feel hungry."); 2862. if (incr && occupation && 2863. (occupation != eatfood && occupation != opentin)) 2864. stop_occupation(); 2865. break; 2866. case WEAK: 2867. if (Hallucination) 2868. pline((!incr) ? 2869. "You still have the munchies." : 2870. "The munchies are interfering with your motor capabilities."); 2871. else if (incr && 2872. (Role_if(PM_WIZARD) || Race_if(PM_ELF) || 2873. Role_if(PM_VALKYRIE))) 2874. pline("%s needs food, badly!", 2875. (Role_if(PM_WIZARD) || Role_if(PM_VALKYRIE)) ? 2876. urole.name.m : "Elf"); 2877. else 2878. You((!incr) ? "feel weak now." : 2879. (u.uhunger < 45) ? "feel weak." : 2880. "are beginning to feel weak."); 2881. if (incr && occupation && 2882. (occupation != eatfood && occupation != opentin)) 2883. stop_occupation(); 2884. break; 2885. } 2886. u.uhs = newhs; 2887. flags.botl = 1; 2888. bot(); 2889. if ((Upolyd ? u.mh : u.uhp) < 1) { 2890. You("die from hunger and exhaustion."); 2891. killer_format = KILLED_BY; 2892. killer = "exhaustion"; 2893. done(STARVING); 2894. return; 2895. } 2896. } 2897. } 2898. 2899. #endif /* OVL0 */ 2900. #ifdef OVLB 2901. 2902. boolean can_reach_floorobj() 2903. { 2904. return can_reach_floor() && 2905. !((is_pool(u.ux, u.uy) || is_lava(u.ux, u.uy)) && 2906. (Wwalking || is_clinger(youmonst.data) || (Flying && !Breathless))); 2907. } 2908. 2909. /* Returns an object representing food. Object may be either on floor or 2910. * in inventory. 2911. */ 2912. STATIC_OVL struct obj * 2913. floorfood(verb) /* get food from floor or pack */ 2914. const char *verb; 2915. { 2916. register struct obj *otmp; 2917. /* We cannot use ALL_CLASSES since that causes getobj() to skip its 2918. * "ugly checks" and we need to check for inedible items. 2919. */ 2920. const char *edibles = (const char *)allobj; 2921. char qbuf[QBUFSZ]; 2922. char c; 2923. 2924. #ifdef STEED 2925. if (u.usteed) /* can't eat off floor while riding */ 2926. edibles++; 2927. else 2928. #endif 2929. if (metallivorous(youmonst.data)) { 2930. struct trap *ttmp = t_at(u.ux, u.uy); 2931. 2932. if (ttmp && ttmp->tseen && ttmp->ttyp == BEAR_TRAP) { 2933. /* If not already stuck in the trap, perhaps there should 2934. be a chance to becoming trapped? Probably not, because 2935. then the trap would just get eaten on the _next_ turn... */ 2936. Sprintf(qbuf, "There is a bear trap here (%s); eat it?", 2937. (u.utrap && u.utraptype == TT_BEARTRAP) ? 2938. "holding you" : "armed"); 2939. if ((c = yn_function(qbuf, ynqchars, 'n')) == 'y') { 2940. u.utrap = u.utraptype = 0; 2941. deltrap(ttmp); 2942. return mksobj(BEARTRAP, TRUE, FALSE); 2943. } else if (c == 'q') { 2944. return (struct obj *)0; 2945. } 2946. } 2947. } 2948. 2949. otmp = getobj(edibles, verb); 2950. if (otmp && otmp->oclass == COIN_CLASS) 2951. obj_extract_self(otmp); 2952. return otmp; 2953. } 2954. 2955. /* Side effects of vomiting */ 2956. /* added nomul (MRS) - it makes sense, you're too busy being sick! */ 2957. void 2958. vomit() /* A good idea from David Neves */ 2959. { 2960. make_sick(0L, (char *) 0, TRUE, SICK_VOMITABLE); 2961. nomul(-2); 2962. nomovemsg = 0; 2963. } 2964. 2965. int 2966. eaten_stat(base, obj) 2967. register int base; 2968. register struct obj *obj; 2969. { 2970. long uneaten_amt, full_amount; 2971. 2972. uneaten_amt = (long)obj->oeaten; 2973. full_amount = (obj->otyp == CORPSE) ? (long)mons[obj->corpsenm].cnutrit 2974. : (long)objects[obj->otyp].oc_nutrition; 2975. if (uneaten_amt > full_amount) { 2976. impossible( 2977. "partly eaten food (%ld) more nutritious than untouched food (%ld)", 2978. uneaten_amt, full_amount); 2979. uneaten_amt = full_amount; 2980. } 2981. 2982. base = (int)(full_amount ? (long)base * uneaten_amt / full_amount : 0L); 2983. return (base < 1) ? 1 : base; 2984. } 2985. 2986. /* reduce obj's oeaten field, making sure it never hits or passes 0 */ 2987. void 2988. consume_oeaten(obj, amt) 2989. struct obj *obj; 2990. int amt; 2991. { 2992. /* 2993. * This is a hack to try to squelch several long standing mystery 2994. * food bugs. A better solution would be to rewrite the entire 2995. * victual handling mechanism from scratch using a less complex 2996. * model. Alternatively, this routine could call done_eating() 2997. * or food_disappears() but its callers would need revisions to 2998. * cope with victual.piece unexpectedly going away. 2999. * 3000. * Multi-turn eating operates by setting the food's oeaten field 3001. * to its full nutritional value and then running a counter which 3002. * independently keeps track of whether there is any food left. 3003. * The oeaten field can reach exactly zero on the last turn, and 3004. * the object isn't removed from inventory until the next turn 3005. * when the "you finish eating" message gets delivered, so the 3006. * food would be restored to the status of untouched during that 3007. * interval. This resulted in unexpected encumbrance messages 3008. * at the end of a meal (if near enough to a threshold) and would 3009. * yield full food if there was an interruption on the critical 3010. * turn. Also, there have been reports over the years of food 3011. * becoming massively heavy or producing unlimited satiation; 3012. * this would occur if reducing oeaten via subtraction attempted 3013. * to drop it below 0 since its unsigned type would produce a 3014. * huge positive value instead. So far, no one has figured out 3015. * _why_ that inappropriate subtraction might sometimes happen. 3016. */ 3017. 3018. if (amt > 0) { 3019. /* bit shift to divide the remaining amount of food */ 3020. obj->oeaten >>= amt; 3021. } else { 3022. /* simple decrement; value is negative so we actually add it */ 3023. if ((int) obj->oeaten > -amt) 3024. obj->oeaten += amt; 3025. else 3026. obj->oeaten = 0; 3027. } 3028. 3029. if (obj->oeaten == 0) { 3030. if (obj == victual.piece) /* always true unless wishing... */ 3031. victual.reqtime = victual.usedtime; /* no bites left */ 3032. obj->oeaten = 1; /* smallest possible positive value */ 3033. } 3034. } 3035. 3036. #endif /* OVLB */ 3037. #ifdef OVL1 3038. 3039. /* called when eatfood occupation has been interrupted, 3040. or in the case of theft, is about to be interrupted */ 3041. boolean 3042. maybe_finished_meal(stopping) 3043. boolean stopping; 3044. { 3045. /* in case consume_oeaten() has decided that the food is all gone */ 3046. if (occupation == eatfood && victual.usedtime >= victual.reqtime) { 3047. if (stopping) occupation = 0; /* for do_reset_eat */ 3048. (void) eatfood(); /* calls done_eating() to use up victual.piece */ 3049. return TRUE; 3050. } 3051. return FALSE; 3052. } 3053. 3054. #endif /* OVL1 */ 3055. 3056. /*eat.c*/ 3057.
