Furey: Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

2024-06-29T20:09:37Z

Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

Kernigh bot: Hack 1.0/hack.eat.c moved to Source:Hack 1.0/hack.eat.c: Robot: moved page

2008-03-03T22:19:30Z

Hack 1.0/hack.eat.c moved to Source:Hack 1.0/hack.eat.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-29T20:23:38Z

Automated source code upload

New page

Below is the full text to '''hack.eat.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.eat.c#line123|<nowiki>[[Hack 1.0/hack.eat.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2. 
3. #include "hack.h"
4. char POISONOUS[] = "ADKSVabhks";
5. extern char *nomovemsg;
6. extern int (*afternmv)();
7. 
8. /* hunger texts used on bottom line (each 8 chars long) */
9. #define SATIATED 0
10. #define NOT_HUNGRY 1
11. #define HUNGRY 2
12. #define WEAK 3
13. #define FAINTING 4
14. 
15. char *hu_stat[5] = {
16. "Satiated",
17. " ",
18. "Hungry ",
19. "Weak ",
20. "Fainting"
21. };
22. 
23. init_uhunger(){
24. u.uhunger = 900;
25. u.uhs = NOT_HUNGRY;
26. }
27. 
28. struct { char *txt; int nut; } tintxts[] = {
29. "It contains first quality peaches - what a surprise!", 40,
30. "It contains salmon - not bad!", 60,
31. "It contains apple juice - perhaps not what you hoped for.", 20,
32. "It contains some nondescript substance, tasting awfully.", 500,
33. "It contains rotten meat. You vomit.", -50,
34. "It turns out to be empty.", 0
35. };
36. 
37. tinopen(){
38. #define TTSZ (sizeof(tintxts)/sizeof(tintxts[0]))
39. register int r = rn2(2*TTSZ);
40. if(r < TTSZ){
41. pline(tintxts[r].txt);
42. lesshungry(tintxts[r].nut);
43. if(r == 1) /* SALMON */ {
44. Glib = rnd(15);
45. pline("Eating salmon made your fingers very slippery.");
46. }
47. } else {
48. pline("It contains spinach - this makes you feel like Popeye!");
49. lesshungry(600);
50. if(u.ustr < 118)
51. u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
52. if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
53. flags.botl = 1;
54. }
55. }
56. 
57. Meatdone(){
58. u.usym = '@';
59. prme();
60. }
61. 
62. doeat(){
63. register struct obj *otmp;
64. register struct objclass *ftmp;
65. register tmp;
66. 
67. otmp = getobj("%", "eat");
68. if(!otmp) return(0);
69. if(otmp->otyp == TIN){
70. if(uwep && (uwep->otyp == AXE || uwep->otyp == DAGGER ||
71. uwep->otyp == CRYSKNIFE)){
72. pline("Using your %s you try to open the tin",
73. aobjnam(uwep, (char *) 0));
74. tmp = 3;
75. } else {
76. pline("It is not so easy to open this tin.");
77. if(Glib) {
78. pline("The tin slips out of your hands.");
79. dropx(otmp);
80. return(1);
81. }
82. tmp = 2 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
83. }
84. if(tmp > 50){
85. nomul(-50);
86. nomovemsg="You give up your attempt to open the tin.";
87. } else {
88. nomul(-tmp);
89. nomovemsg = "You succeed in opening the tin.";
90. afternmv = tinopen;
91. useup(otmp);
92. }
93. return(1);
94. }
95. ftmp = &objects[otmp->otyp];
96. if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
97. if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
98. pline("Blecch! Rotten food!");
99. if(!rn2(4)) {
100. pline("You feel rather light headed.");
101. Confusion += d(2,4);
102. } else if(!rn2(4)&& !Blind) {
103. pline("Everything suddenly goes dark.");
104. Blind = d(2,10);
105. seeoff(0);
106. } else if(!rn2(3)) {
107. if(Blind)
108. pline("The world spins and you slap against the floor.");
109. else
110. pline("The world spins and goes dark.");
111. nomul(-rnd(10));
112. nomovemsg = "You are conscious again.";
113. }
114. lesshungry(ftmp->nutrition / 4);
115. } else {
116. multi = -ftmp->oc_delay;
117. if(u.uhunger >= 1500) {
118. pline("You choke over your food.");
119. pline("You die...");
120. killer = ftmp->oc_name;
121. done("choked");
122. }
123. switch(otmp->otyp){
124. case FOOD_RATION:
125. if(u.uhunger <= 200)
126. pline("That food really hit the spot!");
127. else if(u.uhunger <= 700)
128. pline("That satiated your stomach!");
129. else {
130. pline("You're having a hard time getting all that food down.");
131. multi -= 2;
132. }
133. lesshungry(ftmp->nutrition);
134. if(multi < 0) nomovemsg = "You finished your meal.";
135. break;
136. case TRIPE_RATION:
137. pline("Yak - dog food!");
138. u.uexp++;
139. u.urexp += 4;
140. flags.botl = 1;
141. if(rn2(2)){
142. pline("You vomit.");
143. lesshungry(-20);
144. } else lesshungry(ftmp->nutrition);
145. break;
146. default:
147. if(otmp->otyp >= CORPSE)
148. pline("That %s tasted terrible!",ftmp->oc_name);
149. else
150. pline("That %s was delicious!",ftmp->oc_name);
151. lesshungry(ftmp->nutrition);
152. #ifdef QUEST
153. if(otmp->otyp == CARROT && !Blind){
154. u.uhorizon++;
155. setsee();
156. pline("Your vision improves.");
157. }
158. #endif QUEST
159. if(otmp->otyp == FORTUNE_COOKIE) {
160. if(Blind) {
161. pline("This cookie has a scrap of paper inside!");
162. pline("What a pity, that you cannot read it!");
163. } else
164. outrumor();
165. }
166. break;
167. }
168. }
169. eatx:
170. if(multi<0 && !nomovemsg){
171. static char msgbuf[BUFSZ];
172. (void) sprintf(msgbuf, "You finished eating the %s.",
173. ftmp->oc_name);
174. nomovemsg = msgbuf;
175. }
176. useup(otmp);
177. return(1);
178. }
179. 
180. lesshungry(num) register num; {
181. /* called after eating something (and after drinking fruit juice) */
182. register int newhunger;
183. 
184. newhunger = u.uhunger + num;
185. if(u.uhunger <= 1000 && newhunger > 1000) {
186. flags.botl = 1;
187. u.uhs = SATIATED;
188. } else if(u.uhunger <= 150 && newhunger > 150) {
189. if(u.uhunger <= 50 && u.ustr < u.ustrmax) losestr(-1);
190. flags.botl = 1;
191. u.uhs = NOT_HUNGRY;
192. } else if(u.uhunger <= 50 && newhunger > 50) {
193. pline("You only feel hungry now.");
194. if(u.ustr < u.ustrmax) losestr(-1);
195. flags.botl = 1;
196. u.uhs = HUNGRY;
197. } else if(u.uhunger <= 0 && newhunger < 50) {
198. pline("You feel weak now.");
199. flags.botl = 1;
200. u.uhs = WEAK;
201. }
202. u.uhunger = newhunger;
203. }
204. 
205. /* called in hack.main.c */
206. gethungry(){
207. --u.uhunger;
208. if((Regeneration || Hunger) && moves%2) u.uhunger--;
209. if(u.uhunger <= 1000 && u.uhs == SATIATED) {
210. u.uhs = NOT_HUNGRY;
211. flags.botl = 1;
212. } else if(u.uhunger <= 150 && u.uhs == NOT_HUNGRY) {
213. pline("You are beginning to feel hungry.");
214. u.uhs = HUNGRY;
215. flags.botl = 1;
216. } else if(u.uhunger <= 50 && u.uhs == HUNGRY) {
217. pline("You are beginning to feel weak.");
218. u.uhs = WEAK;
219. losestr(1);
220. flags.botl = 1;
221. } else if(u.uhunger < 1 &&
222. (u.uhs == WEAK || rn2(20-u.uhunger/10) >= 19)) {
223. if(multi >= 0) /* not fainted already */ {
224. pline("You faint from lack of food.");
225. nomul(-10+(u.uhunger/10));
226. }
227. if(u.uhs != FAINTING) {
228. u.uhs = FAINTING;
229. flags.botl = 1;
230. }
231. } else if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
232. pline("You die from starvation.");
233. done("starved");
234. }
235. }
236. 
237. /* returns 1 if some text was printed */
238. eatcorpse(otmp) register struct obj *otmp; {
239. register schar let = otmp->spe;
240. register tp = 0;
241. if(moves > otmp->age + 50 + rn2(100)) {
242. tp++;
243. pline("Ulch -- that meat was tainted!");
244. pline("You get very sick.");
245. Sick = 10 + rn2(10);
246. u.usick_cause = objects[otmp->otyp].oc_name;
247. } else if(index(POISONOUS, let) && rn2(5)){
248. tp++;
249. pline("Ecch -- that must have been poisonous!");
250. if(!Poison_resistance){
251. losehp(rnd(15), "poisonous corpse");
252. losestr(rnd(4));
253. } else
254. pline("You don't seem affected by the poison.");
255. } else if(index("ELNOPQRUuxz", let) && rn2(5)){
256. tp++;
257. pline("You feel sick.");
258. losehp(rnd(8), "cadaver");
259. }
260. switch(let) {
261. case 'L':
262. case 'N':
263. case 't':
264. Teleportation |= INTRINSIC;
265. break;
266. case 'W':
267. pluslvl();
268. break;
269. case 'n':
270. u.uhp = u.uhpmax;
271. flags.botl = 1;
272. /* fall into next case */
273. case '@':
274. pline("You cannibal! You will be sorry for this!");
275. /* not tp++; */
276. /* fall into next case */
277. case 'd':
278. Aggravate_monster |= INTRINSIC;
279. break;
280. case 'I':
281. See_invisible |= INTRINSIC;
282. if(!Invis) newsym(u.ux, u.uy);
283. Invis += 50;
284. /* fall into next case */
285. case 'y':
286. #ifdef QUEST
287. u.uhorizon++;
288. #endif QUEST
289. /* fall into next case */
290. case 'B':
291. Confusion = 50;
292. break;
293. case 'D':
294. Fire_resistance |= INTRINSIC;
295. break;
296. case 'E':
297. Telepat |= INTRINSIC;
298. break;
299. case 'F':
300. case 'Y':
301. Cold_resistance |= INTRINSIC;
302. break;
303. case 'k':
304. case 's':
305. Poison_resistance |= INTRINSIC;
306. break;
307. case 'c':
308. pline("You turn to stone.");
309. killer = "dead cockatrice";
310. done("died");
311. case 'M':
312. pline("You cannot resist the temptation to mimic a treasure chest.");
313. tp++;
314. nomul(-30);
315. afternmv = Meatdone;
316. nomovemsg = "You now again prefer mimicking a human.";
317. u.usym = '$';
318. prme();
319. break;
320. }
321. return(tp);
322. }
[[Category:Hack 1.0 source code|hack.eat.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.eat.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.eat.c#line123|<nowiki>[[Hack 1.0/hack.eat.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.eat.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]].
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 22:19, 3 March 2008
(No difference)

Source:Hack 1.0/hack.eat.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

Kernigh bot: Hack 1.0/hack.eat.c moved to Source:Hack 1.0/hack.eat.c: Robot: moved page

Jaytbot: Automated source code upload