| abstract
| - Below is the full text to eat.c from the source code of NetHack 2.2a. To link to a particular line, write [[NetHack 2.2a/eat.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 1. /* SCCS Id: @(#)eat.c 2.2 87/11/29 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. 4. #include "hack.h" 5. #ifdef KAA 6. char POISONOUS[] = "ADKSVabhks&"; 7. #else 8. char POISONOUS[] = "ADKSVabhks"; 9. #endif 10. extern char *nomovemsg; 11. extern int (*afternmv)(); 12. extern int (*occupation)(); 13. extern char *occtxt; 14. extern struct obj *splitobj(), *addinv(); 15. 16. /* hunger texts used on bottom line (each 8 chars long) */ 17. #define SATIATED 0 18. #define NOT_HUNGRY 1 19. #define HUNGRY 2 20. #define WEAK 3 21. #define FAINTING 4 22. #define FAINTED 5 23. #define STARVED 6 24. 25. char *hu_stat[] = { 26. "Satiated", 27. " ", 28. "Hungry ", 29. "Weak ", 30. "Fainting", 31. "Fainted ", 32. "Starved " 33. }; 34. 35. init_uhunger(){ 36. u.uhunger = 900; 37. u.uhs = NOT_HUNGRY; 38. } 39. 40. struct { char *txt; int nut; } tintxts[] = { 41. "It contains salmon - not bad!", 60, 42. "It contains first quality peaches - what a surprise!", 40, 43. "It contains apple juice - perhaps not what you hoped for.", 20, 44. "It contains some nondescript substance, tasting awfully.", 500, 45. "It contains rotten meat. You vomit.", -50, 46. "It turns out to be empty.", 0 47. }; 48. #define TTSZ SIZE(tintxts) 49. 50. static struct { 51. struct obj *tin; 52. int usedtime, reqtime; 53. } tin; 54. 55. opentin(){ 56. register int r; 57. 58. if(!carried(tin.tin)) /* perhaps it was stolen? */ 59. return(0); /* %% probably we should use tinoid */ 60. if(tin.usedtime++ >= 50) { 61. pline("You give up your attempt to open the tin."); 62. return(0); 63. } 64. if(tin.usedtime < tin.reqtime) 65. return(1); /* still busy */ 66. 67. pline("You succeed in opening the tin."); 68. useup(tin.tin); 69. r = rn2(2*TTSZ); 70. if(r < TTSZ) { 71. pline(tintxts[r].txt); 72. lesshungry(tintxts[r].nut); 73. /* check for vomiting added by GAN 01/16/87 */ 74. if(tintxts[r].nut < 0 && Sick) { 75. Sick = 0; 76. pline("What a relief!"); 77. } 78. if(r == 0) { /* Salmon */ 79. Glib = rnd(15); 80. pline("Eating salmon made your fingers very slippery."); 81. } 82. } else { 83. pline("It contains spinach - this makes you feel like %s!", 84. Hallucination ? "Swee'pea" : "Popeye"); 85. 86. lesshungry(600); 87. gainstr(0); 88. } 89. return(0); 90. } 91. 92. Meatdone(){ 93. u.usym = '@'; 94. prme(); 95. } 96. 97. doeat(){ 98. register struct obj *otmp; 99. register struct objclass *ftmp; 100. register tmp; 101. 102. /* Is there some food (probably a heavy corpse) here on the ground? */ 103. if(!Levitation) 104. for(otmp = fobj; otmp; otmp = otmp->nobj) { 105. if(otmp->ox == u.ux && otmp->oy == u.uy && 106. otmp->olet == FOOD_SYM) { 107. pline("There %s %s here; eat %s? [ny] ", 108. (otmp->quan == 1) ? "is" : "are", 109. doname(otmp), 110. (otmp->quan == 1) ? "it" : "one"); 111. if(readchar() == 'y') { 112. if(otmp->quan != 1) 113. (void) splitobj(otmp, 1); 114. freeobj(otmp); 115. otmp = addinv(otmp); 116. addtobill(otmp); 117. if(Invisible) newsym(u.ux, u.uy); 118. goto gotit; 119. } 120. } 121. } 122. otmp = getobj("%", "eat"); 123. if(!otmp) return(0); 124. gotit: 125. if(otmp->otyp == TIN) { 126. if(uwep) { 127. switch(uwep->otyp) { 128. case CAN_OPENER: 129. tmp = 1; 130. break; 131. case DAGGER: 132. case CRYSKNIFE: 133. tmp = 3; 134. break; 135. case PICK_AXE: 136. case AXE: 137. tmp = 6; 138. break; 139. default: 140. goto no_opener; 141. } 142. pline("Using your %s you try to open the tin.", 143. aobjnam(uwep, (char *) 0)); 144. } else { 145. no_opener: 146. pline("It is not so easy to open this tin."); 147. if(Glib) { 148. pline("The tin slips out of your hands."); 149. if(otmp->quan > 1) { 150. register struct obj *obj; 151. extern struct obj *splitobj(); 152. 153. obj = splitobj(otmp, 1); 154. if(otmp == uwep) setuwep(obj); 155. } 156. dropx(otmp); 157. return(1); 158. } 159. tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr))); 160. } 161. tin.reqtime = tmp; 162. tin.usedtime = 0; 163. tin.tin = otmp; 164. #ifdef DGK 165. set_occupation(opentin, "opening the tin", 0); 166. #else 167. occupation = opentin; 168. occtxt = "opening the tin"; 169. #endif 170. return(1); 171. } 172. ftmp = &objects[otmp->otyp]; 173. multi = -ftmp->oc_delay; 174. if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx; 175. #ifdef DGKMOD 176. if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE && otmp->otyp != DEAD_LIZARD) { 177. #else 178. if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) { 179. #endif 180. #ifdef KAA 181. if (otmp->otyp == DEAD_VIOLET_FUNGUS) 182. pline("Seems rather stale though..."); 183. else 184. #endif 185. pline("Blecch! Rotten food!"); 186. if(!rn2(4)) { 187. if (Hallucination) pline("You feel rather trippy."); 188. else 189. pline("You feel rather light headed."); 190. HConfusion += d(2,4); 191. } else if(!rn2(4) && !Blind) { 192. pline("Everything suddenly goes dark."); 193. Blinded = d(2,10); 194. seeoff(0); 195. } else if(!rn2(3)) { 196. if(Blind) 197. pline("The world spins and you slap against the floor."); 198. else 199. pline("The world spins and goes dark."); 200. nomul(-rnd(10)); 201. nomovemsg = "You are conscious again."; 202. } 203. lesshungry(ftmp->nutrition / 4); 204. } else { 205. if(u.uhunger >= 1500) choke(ftmp); 206. 207. switch(otmp->otyp){ 208. case FOOD_RATION: 209. if(u.uhunger <= 200) 210. if (Hallucination) 211. pline("Oh wow, like superior man!"); 212. else 213. pline("That food really hit the spot!"); 214. else if(u.uhunger <= 700) 215. pline("That satiated your stomach!"); 216. #ifdef DGKMOD 217. /* Have lesshungry() report when you're nearly full so all eating 218. * warns when you're about to choke. 219. */ 220. lesshungry(ftmp->nutrition); 221. #else 222. else { 223. pline("You're having a hard time getting all that food down."); 224. multi -= 2; 225. } 226. lesshungry(ftmp->nutrition); 227. if(multi < 0) nomovemsg = "You finished your meal."; 228. #endif /* DGKMOD /**/ 229. break; 230. case TRIPE_RATION: 231. if (u.usym != '@') 232. pline("That tripe ration was surprisingly good!"); 233. else { 234. pline("Yak - dog food!"); 235. more_experienced(1,0); 236. flags.botl = 1; 237. } 238. if(rn2(2) && u.usym == '@'){ 239. pline("You vomit."); 240. morehungry(20); 241. if(Sick) { 242. Sick = 0; /* David Neves */ 243. pline("What a relief!"); 244. } 245. } else lesshungry(ftmp->nutrition); 246. break; 247. default: 248. if(u.usym == '@' && otmp->otyp >= CORPSE) { 249. #ifdef KAA 250. if(otmp->otyp != DEAD_VIOLET_FUNGUS) 251. #endif 252. pline("That %s tasted terrible!",ftmp->oc_name); 253. } else 254. pline("That %s was delicious!",ftmp->oc_name); 255. lesshungry(ftmp->nutrition); 256. #ifdef DGKMOD 257. /* Relief from cockatrices -dgk */ 258. if (otmp->otyp == DEAD_LIZARD) { 259. if (Stoned) { 260. Stoned = 0; 261. pline("You feel more limber!"); 262. } 263. if (HConfusion > 2) 264. HConfusion = 2; 265. } 266. #else 267. if(otmp->otyp == DEAD_LIZARD && (HConfusion > 2)) 268. HConfusion = 2; 269. #endif /* DGKMOD /**/ 270. else 271. #ifdef QUEST 272. if(otmp->otyp == CARROT && !Blind) { 273. u.uhorizon++; 274. setsee(); 275. pline("Your vision improves."); 276. } else 277. #endif 278. #ifdef KAA 279. if(otmp->otyp == CARROT && Blind) Blinded = 1; 280. else 281. #endif 282. if(otmp->otyp == FORTUNE_COOKIE) { 283. if(Blind) { 284. pline("This cookie has a scrap of paper inside!"); 285. pline("What a pity, that you cannot read it!"); 286. } else 287. outrumor(); 288. } else 289. if(otmp->otyp == LUMP_OF_ROYAL_JELLY) { 290. /* This stuff seems to be VERY healthy! */ 291. gainstr(1); 292. u.uhp += rnd(20); 293. if(u.uhp > u.uhpmax) { 294. if(!rn2(17)) u.uhpmax++; 295. u.uhp = u.uhpmax; 296. } 297. heal_legs(); 298. } 299. break; 300. } 301. } 302. eatx: 303. if(multi<0 && !nomovemsg){ 304. static char msgbuf[BUFSZ]; 305. (void) sprintf(msgbuf, "You finished eating the %s.", 306. ftmp->oc_name); 307. nomovemsg = msgbuf; 308. } 309. useup(otmp); 310. return(1); 311. } 312. 313. /* called in main.c */ 314. gethungry(){ 315. --u.uhunger; 316. if(moves % 2) { 317. if(HRegeneration) u.uhunger--; 318. if(Hunger) u.uhunger--; 319. /* a3: if(Hunger & LEFT_RING) u.uhunger--; 320. if(Hunger & RIGHT_RING) u.uhunger--; 321. etc. */ 322. } 323. if(moves % 20 == 0) { /* jimt@asgb */ 324. if(uleft) u.uhunger--; 325. if(uright) u.uhunger--; 326. } 327. newuhs(TRUE); 328. } 329. 330. /* called after vomiting and after performing feats of magic */ 331. morehungry(num) register num; { 332. u.uhunger -= num; 333. newuhs(TRUE); 334. } 335. 336. /* called after eating something (and after drinking fruit juice) */ 337. lesshungry(num) register num; { 338. u.uhunger += num; 339. if(u.uhunger >= 2000) choke((struct objclass *) 0); 340. #ifdef DGKMOD 341. else { 342. /* Have lesshungry() report when you're nearly full so all eating 343. * warns when you're about to choke. 344. */ 345. if (u.uhunger >= 1500) { 346. pline("You're having a hard time getting all of it down."); 347. multi -= 2; 348. nomovemsg = "You're finally finished."; 349. } 350. } 351. #endif /* DGKMOD /**/ 352. newuhs(FALSE); 353. } 354. 355. unfaint(){ 356. u.uhs = FAINTING; 357. flags.botl = 1; 358. } 359. 360. newuhs(incr) boolean incr; { 361. register int newhs, h = u.uhunger; 362. 363. newhs = (h > 1000) ? SATIATED : 364. (h > 150) ? NOT_HUNGRY : 365. (h > 50) ? HUNGRY : 366. (h > 0) ? WEAK : FAINTING; 367. 368. if(newhs == FAINTING) { 369. if(u.uhs == FAINTED) newhs = FAINTED; 370. if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) { 371. if(u.uhs != FAINTED && multi >= 0 /* %% */) { 372. pline("You faint from lack of food."); 373. nomul(-10+(u.uhunger/10)); 374. nomovemsg = "You regain consciousness."; 375. afternmv = unfaint; 376. newhs = FAINTED; 377. } 378. } else 379. if(u.uhunger < -(int)(200 + 25*u.ulevel)) { 380. u.uhs = STARVED; 381. flags.botl = 1; 382. bot(); 383. pline("You die from starvation."); 384. done("starved"); 385. } 386. } 387. 388. if(newhs != u.uhs) { 389. if(newhs >= WEAK && u.uhs < WEAK) 390. losestr(1); /* this may kill you -- see below */ 391. else 392. if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax) 393. losestr(-1); 394. switch(newhs){ 395. case HUNGRY: 396. if (Hallucination) { 397. pline((!incr) ? 398. "You now have a lesser case of the munchies." : 399. "You are getting the munchies."); 400. } else 401. pline((!incr) ? "You only feel hungry now." : 402. (u.uhunger < 145) ? "You feel hungry." : 403. "You are beginning to feel hungry."); 404. break; 405. case WEAK: 406. if (Hallucination) 407. pline((!incr) ? 408. "You still have the munchies." : 409. "The munchies are starting to interfere with your motor capabilities."); 410. else 411. pline((!incr) ? "You feel weak now." : 412. (u.uhunger < 45) ? "You feel weak." : 413. "You are beginning to feel weak."); 414. break; 415. } 416. u.uhs = newhs; 417. flags.botl = 1; 418. if(u.uhp < 1) { 419. pline("You die from hunger and exhaustion."); 420. killer = "exhaustion"; 421. done("starved"); 422. } 423. } 424. } 425. 426. #define CORPSE_I_TO_C(otyp) (char) ((otyp >= DEAD_ACID_BLOB)\ 427. ? 'a' + (otyp - DEAD_ACID_BLOB)\ 428. : '@' + (otyp - DEAD_HUMAN)) 429. poisonous(otmp) 430. register struct obj *otmp; 431. { 432. #ifdef KAA 433. if(otmp->otyp == DEAD_DEMON) return(1); 434. #endif 435. return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0); 436. } 437. 438. /* returns 1 if some text was printed */ 439. eatcorpse(otmp) register struct obj *otmp; { 440. #ifdef KAA 441. register char let; 442. #else 443. register char let = CORPSE_I_TO_C(otmp->otyp); 444. #endif 445. register tp = 0; 446. #ifdef KAA 447. if(otmp->otyp == DEAD_DEMON) let='&'; 448. else if (otmp->otyp == DEAD_GIANT) let='9'; 449. else let = CORPSE_I_TO_C(otmp->otyp); 450. #endif 451. if(let != 'a' && moves > otmp->age + 50 + rn2(100)) { 452. tp++; 453. pline("Ulch -- that meat was tainted!"); 454. pline("You get very sick."); 455. Sick = 10 + rn2(10); 456. u.usick_cause = objects[otmp->otyp].oc_name; 457. } else if(index(POISONOUS, let) && rn2(5)){ 458. tp++; 459. pline("Ecch -- that must have been poisonous!"); 460. if(!Poison_resistance){ 461. losestr(rnd(4)); 462. losehp(rnd(15), "poisonous corpse"); 463. } else 464. pline("You don't seem affected by the poison."); 465. } else if(index("ELNOPQRUuxz", let) && rn2(5)){ 466. tp++; 467. pline("You feel sick."); 468. losehp(rnd(8), "cadaver"); 469. } 470. switch(let) { 471. case 'L': 472. case 'N': 473. case 't': 474. #ifdef KAA 475. case 'Q': 476. #endif 477. HTeleportation |= INTRINSIC; 478. break; 479. case 'W': 480. pluslvl(); 481. break; 482. case 'n': 483. u.uhp = u.uhpmax; 484. flags.botl = 1; 485. /* fall into next case */ 486. #ifdef SAC 487. case '3': 488. #endif 489. case '@': 490. pline("You cannibal! You will be sorry for this!"); 491. /* not tp++; */ 492. /* fall into next case */ 493. case 'd': 494. Aggravate_monster |= INTRINSIC; 495. break; 496. case 'I': 497. if(!Invis) { 498. HInvis = 50+rn2(100); 499. if(!See_invisible) 500. newsym(u.ux, u.uy); 501. } else { 502. HInvis |= INTRINSIC; 503. HSee_invisible |= INTRINSIC; 504. } 505. /* fall into next case */ 506. case 'y': 507. #ifdef QUEST 508. u.uhorizon++; 509. #endif 510. /* fall into next case */ 511. case 'B': 512. HConfusion += 50; 513. break; 514. case 'D': 515. HFire_resistance |= INTRINSIC; 516. break; 517. case 'E': 518. HTelepat |= INTRINSIC; 519. break; 520. case 'F': 521. case 'Y': 522. HCold_resistance |= INTRINSIC; 523. break; 524. #ifdef KAA 525. case '9': 526. gainstr(1); 527. break; 528. #endif 529. #ifdef KJSMODS 530. case 'S': /* if a snake can kill you with poison, at least 531. * have the possibility of getting resistance */ 532. if ( rn2(5) ) break; 533. /* fall into next case */ 534. #endif 535. case 'k': 536. case 's': 537. HPoison_resistance |= INTRINSIC; 538. break; 539. case 'c': 540. if (u.usym != 'c') { 541. 542. pline("You turn to stone."); 543. killer = "dead cockatrice"; 544. done("died"); 545. } 546. break; 547. case 'a': 548. if(Stoned) { 549. pline("What a pity - you just destroyed a future piece of art!"); 550. tp++; 551. Stoned = 0; 552. } 553. break; 554. #ifdef KAA 555. case 'v': 556. pline ("Oh wow! Great stuff!"); 557. Hallucination += 200; 558. setsee(); 559. break; 560. #endif 561. case 'M': 562. if(u.usym == '@') { 563. pline("You cannot resist the temptation to mimic a treasure chest."); 564. tp++; 565. nomul(-30); 566. afternmv = Meatdone; 567. nomovemsg = "You now again prefer mimicking a human."; 568. u.usym = GOLD_SYM; 569. prme(); 570. } 571. break; 572. } 573. return(tp); 574. } 575. 576. /* Created by GAN 01/28/87 577. * Amended by AKP 09/22/87: if not hard, don't choke, just vomit. 578. * 579. * Note that if you have enough food, you can always stop being Sick! 580. * choke() returns if you don't choke, kills you if you do. 581. */ 582. choke(food) 583. register struct objclass *food; 584. { 585. /* only happens if you were satiated */ 586. if(u.uhs != SATIATED) return; 587. #ifdef HARD 588. if(food) killer = food->oc_name; 589. else killer = "exuberant appetite"; 590. pline("You choke over your food."); 591. pline("You die..."); 592. done("choked"); 593. #else 594. pline("You stuff yourself and then vomit voluminously."); 595. morehungry(1000); /* you just got *very* sick! */ 596. if(Sick) { 597. Sick = 0; /* A good idea from David Neves */ 598. pline("What a relief!"); 599. } 600. #endif 601. }
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)