Furey: Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

2024-06-29T01:40:06Z

Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

Kernigh bot: SLASH'EM 0.0.7E7F2/quest.c moved to Source:SLASH'EM 0.0.7E7F2/quest.c: Robot: moved page

2008-03-07T19:34:27Z

SLASH'EM 0.0.7E7F2/quest.c moved to Source:SLASH'EM 0.0.7E7F2/quest.c: Robot: moved page

Jaytbot: Automated source code upload

2006-10-02T19:54:55Z

Automated source code upload

New page

Below is the full text to '''quest.c''' from the [[SLASH'EM 0.0.7E7F2 source code|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/quest.c#line123|<nowiki>[[SLASH'EM 0.0.7E7F2/quest.c#line123]]</nowiki>]], for example.

The latest source code for vanilla NetHack is at [[Source code]].

{{NGPL}}
1. /* SCCS Id: @(#)quest.c 3.4 2000/05/05 */
2. /* Copyright 1991, M. Stephenson */
3. /* NetHack may be freely redistributed. See license for details. */
4. 
5. #include "hack.h"
6. 
7. /* quest dungeon branch routines. */
8. 
9. #include "quest.h"
10. #include "qtext.h"
11. 
12. #define Not_firsttime (on_level(&u.uz0, &u.uz))
13. #define Qstat(x) (quest_status.x)
14. 
15. STATIC_DCL void NDECL(on_start);
16. STATIC_DCL void NDECL(on_locate);
17. STATIC_DCL void NDECL(on_goal);
18. STATIC_DCL boolean NDECL(not_capable);
19. STATIC_DCL int FDECL(is_pure, (BOOLEAN_P));
20. STATIC_DCL void FDECL(expulsion, (BOOLEAN_P));
21. STATIC_DCL void NDECL(chat_with_leader);
22. STATIC_DCL void NDECL(chat_with_nemesis);
23. STATIC_DCL void NDECL(chat_with_guardian);
24. STATIC_DCL void FDECL(prisoner_speaks, (struct monst *));
25. 
26. 
27. STATIC_OVL void
28. on_start()
29. {
30. if(!Qstat(first_start)) {
31. qt_pager(QT_FIRSTTIME);
32. Qstat(first_start) = TRUE;
33. } else if((u.uz0.dnum != u.uz.dnum) || (u.uz0.dlevel < u.uz.dlevel)) {
34. if(Qstat(not_ready) <= 2) qt_pager(QT_NEXTTIME);
35. else qt_pager(QT_OTHERTIME);
36. }
37. }
38. 
39. STATIC_OVL void
40. on_locate()
41. {
42. if(!Qstat(first_locate)) {
43. qt_pager(QT_FIRSTLOCATE);
44. Qstat(first_locate) = TRUE;
45. } else if(u.uz0.dlevel < u.uz.dlevel && !Qstat(killed_nemesis))
46. qt_pager(QT_NEXTLOCATE);
47. }
48. 
49. STATIC_OVL void
50. on_goal()
51. {
52. if (Qstat(killed_nemesis)) {
53. return;
54. } else if (!Qstat(made_goal)) {
55. qt_pager(QT_FIRSTGOAL);
56. Qstat(made_goal) = 1;
57. } else {
58. qt_pager(QT_NEXTGOAL);
59. if(Qstat(made_goal) < 7) Qstat(made_goal)++;
60. }
61. }
62. 
63. void
64. onquest()
65. {
66. if(u.uevent.qcompleted || Not_firsttime) return;
67. if(!Is_special(&u.uz)) return;
68. 
69. if(Is_qstart(&u.uz)) on_start();
70. else if(Is_qlocate(&u.uz) && u.uz.dlevel > u.uz0.dlevel) on_locate();
71. else if(Is_nemesis(&u.uz)) on_goal();
72. return;
73. }
74. 
75. void
76. nemdead()
77. {
78. if(!Qstat(killed_nemesis)) {
79. Qstat(killed_nemesis) = TRUE;
80. qt_pager(QT_KILLEDNEM);
81. }
82. }
83. 
84. void
85. artitouch()
86. {
87. if(!Qstat(touched_artifact)) {
88. Qstat(touched_artifact) = TRUE;
89. qt_pager(QT_GOTIT);
90. exercise(A_WIS, TRUE);
91. }
92. }
93. 
94. /* external hook for do.c (level change check) */
95. boolean
96. ok_to_quest()
97. {
98. return((boolean)((Qstat(got_quest) || Qstat(got_thanks)))
99. && (is_pure(FALSE) > 0));
100. }
101. 
102. STATIC_OVL boolean
103. not_capable()
104. {
105. return((boolean)(u.ulevel < MIN_QUEST_LEVEL));
106. }
107. 
108. STATIC_OVL int
109. is_pure(talk)
110. boolean talk;
111. {
112. int purity;
113. aligntyp original_alignment = u.ualignbase[A_ORIGINAL];
114. 
115. #ifdef WIZARD
116. if (wizard && talk) {
117. if (u.ualign.type != original_alignment) {
118. You("are currently %s instead of %s.",
119. align_str(u.ualign.type), align_str(original_alignment));
120. } else if (u.ualignbase[A_CURRENT] != original_alignment) {
121. You("have converted.");
122. } else if (u.ualign.record < MIN_QUEST_ALIGN) {
123. You("are currently %d and require %d.",
124. u.ualign.record, MIN_QUEST_ALIGN);
125. if (yn_function("adjust?", (char *)0, 'y') == 'y')
126. u.ualign.record = MIN_QUEST_ALIGN;
127. }
128. }
129. #endif
130. purity = (u.ualign.record >= MIN_QUEST_ALIGN &&
131. u.ualign.type == original_alignment &&
132. u.ualignbase[A_CURRENT] == original_alignment) ? 1 :
133. (u.ualignbase[A_CURRENT] != original_alignment) ? -1 : 0;
134. return purity;
135. }
136. 
137. /*
138. * Expell the player to the stairs on the parent of the quest dungeon.
139. *
140. * This assumes that the hero is currently _in_ the quest dungeon and that
141. * there is a single branch to and from it.
142. */
143. STATIC_OVL void
144. expulsion(seal)
145. boolean seal;
146. {
147. branch *br;
148. d_level *dest;
149. struct trap *t;
150. int portal_flag;
151. 
152. br = dungeon_branch("The Quest");
153. dest = (br->end1.dnum == u.uz.dnum) ? &br->end2 : &br->end1;
154. portal_flag = u.uevent.qexpelled ? 0 : /* returned via artifact? */
155. !seal ? 1 : -1;
156. schedule_goto(dest, FALSE, FALSE, portal_flag, (char *)0, (char *)0);
157. if (seal) { /* remove the portal to the quest - sealing it off */
158. int reexpelled = u.uevent.qexpelled;
159. u.uevent.qexpelled = 1;
160. /* Delete the near portal now; the far (main dungeon side)
161. portal will be deleted as part of arrival on that level.
162. If monster movement is in progress, any who haven't moved
163. yet will now miss out on a chance to wander through it... */
164. for (t = ftrap; t; t = t->ntrap)
165. if (t->ttyp == MAGIC_PORTAL) break;
166. if (t) deltrap(t); /* (display might be briefly out of sync) */
167. else if (!reexpelled) impossible("quest portal already gone?");
168. }
169. }
170. 
171. /* Either you've returned to quest leader while carrying the quest
172. artifact or you've just thrown it to/at him or her. If quest
173. completion text hasn't been given yet, give it now. Otherwise
174. give another message about the character keeping the artifact
175. and using the magic portal to return to the dungeon. */
176. void
177. finish_quest(obj)
178. struct obj *obj; /* quest artifact; possibly null if carrying Amulet */
179. {
180. struct obj *otmp;
181. 
182. if (u.uhave.amulet) { /* unlikely but not impossible */
183. qt_pager(QT_HASAMULET);
184. /* leader IDs the real amulet but ignores any fakes */
185. if ((otmp = carrying(AMULET_OF_YENDOR)) != 0)
186. fully_identify_obj(otmp);
187. } else {
188. qt_pager(!Qstat(got_thanks) ? QT_OFFEREDIT : QT_OFFEREDIT2);
189. /* should have obtained bell during quest;
190. if not, suggest returning for it now */
191. if ((otmp = carrying(BELL_OF_OPENING)) == 0)
192. com_pager(5);
193. }
194. Qstat(got_thanks) = TRUE;
195. 
196. if (obj) {
197. u.uevent.qcompleted = 1; /* you did it! */
198. /* behave as if leader imparts sufficient info about the
199. quest artifact */
200. fully_identify_obj(obj);
201. update_inventory();
202. }
203. }
204. 
205. STATIC_OVL void
206. chat_with_leader()
207. {
208. /* Rule 0: Cheater checks. */
209. if(u.uhave.questart && !Qstat(met_nemesis))
210. Qstat(cheater) = TRUE;
211. 
212. /* It is possible for you to get the amulet without completing
213. * the quest. If so, try to induce the player to quest.
214. */
215. if(Qstat(got_thanks)) {
216. /* Rule 1: You've gone back with/without the amulet. */
217. if(u.uhave.amulet) finish_quest((struct obj *)0);
218. 
219. /* Rule 2: You've gone back before going for the amulet. */
220. else qt_pager(QT_POSTHANKS);
221. }
222. 
223. /* Rule 3: You've got the artifact and are back to return it. */
224. else if(u.uhave.questart) {
225. struct obj *otmp;
226. 
227. for (otmp = invent; otmp; otmp = otmp->nobj)
228. if (is_quest_artifact(otmp)) break;
229. 
230. finish_quest(otmp);
231. 
232. /* Rule 4: You haven't got the artifact yet. */
233. } else if(Qstat(got_quest)) {
234. qt_pager(rn1(10, QT_ENCOURAGE));
235. 
236. /* Rule 5: You aren't yet acceptable - or are you? */
237. } else {
238. if(!Qstat(met_leader)) {
239. qt_pager(QT_FIRSTLEADER);
240. Qstat(met_leader) = TRUE;
241. Qstat(not_ready) = 0;
242. } else qt_pager(QT_NEXTLEADER);
243. /* the quest leader might have passed through the portal into
244. the regular dungeon; none of the remaining make sense there */
245. if (!on_level(&u.uz, &qstart_level)) return;
246. 
247. if(not_capable()) {
248. qt_pager(QT_BADLEVEL);
249. exercise(A_WIS, TRUE);
250. expulsion(FALSE);
251. } else if(is_pure(TRUE) < 0) {
252. com_pager(QT_BANISHED);
253. expulsion(TRUE);
254. } else if(is_pure(TRUE) == 0) {
255. qt_pager(QT_BADALIGN);
256. if(Qstat(not_ready) == MAX_QUEST_TRIES) {
257. qt_pager(QT_LASTLEADER);
258. expulsion(TRUE);
259. } else {
260. Qstat(not_ready)++;
261. exercise(A_WIS, TRUE);
262. expulsion(FALSE);
263. }
264. } else { /* You are worthy! */
265. qt_pager(QT_ASSIGNQUEST);
266. exercise(A_WIS, TRUE);
267. Qstat(got_quest) = TRUE;
268. }
269. }
270. }
271. 
272. void
273. leader_speaks(mtmp)
274. register struct monst *mtmp;
275. {
276. /* maybe you attacked leader? */
277. if(!mtmp->mpeaceful) {
278. Qstat(pissed_off) = TRUE;
279. mtmp->mstrategy &= ~STRAT_WAITMASK; /* end the inaction */
280. }
281. /* the quest leader might have passed through the portal into the
282. regular dungeon; if so, mustn't perform "backwards expulsion" */
283. if (!on_level(&u.uz, &qstart_level)) return;
284. 
285. if(Qstat(pissed_off)) {
286. qt_pager(QT_LASTLEADER);
287. expulsion(TRUE);
288. } else chat_with_leader();
289. }
290. 
291. STATIC_OVL void
292. chat_with_nemesis()
293. {
294. /* The nemesis will do most of the talking, but... */
295. qt_pager(rn1(10, QT_DISCOURAGE));
296. if(!Qstat(met_nemesis)) Qstat(met_nemesis++);
297. }
298. 
299. void
300. nemesis_speaks()
301. {
302. if(!Qstat(in_battle)) {
303. if(u.uhave.questart) qt_pager(QT_NEMWANTSIT);
304. else if(Qstat(made_goal) == 1 || !Qstat(met_nemesis))
305. qt_pager(QT_FIRSTNEMESIS);
306. else if(Qstat(made_goal) < 4) qt_pager(QT_NEXTNEMESIS);
307. else if(Qstat(made_goal) < 7) qt_pager(QT_OTHERNEMESIS);
308. else if(!rn2(5)) qt_pager(rn1(10, QT_DISCOURAGE));
309. if(Qstat(made_goal) < 7) Qstat(made_goal)++;
310. Qstat(met_nemesis) = TRUE;
311. } else /* he will spit out random maledictions */
312. if(!rn2(5)) qt_pager(rn1(10, QT_DISCOURAGE));
313. }
314. 
315. STATIC_OVL void
316. chat_with_guardian()
317. {
318. /* These guys/gals really don't have much to say... */
319. if (u.uhave.questart && Qstat(killed_nemesis))
320. qt_pager(rn1(5, QT_GUARDTALK2));
321. else
322. qt_pager(rn1(5, QT_GUARDTALK));
323. }
324. 
325. STATIC_OVL void
326. prisoner_speaks (mtmp)
327. register struct monst *mtmp;
328. {
329. if (mtmp->data == &mons[PM_PRISONER] &&
330. (mtmp->mstrategy & STRAT_WAITMASK)) {
331. /* Awaken the prisoner */
332. if (canseemon(mtmp))
333. pline("%s speaks:", Monnam(mtmp));
334. verbalize("I'm finally free!");
335. mtmp->mstrategy &= ~STRAT_WAITMASK;
336. mtmp->mpeaceful = 1;
337. 
338. /* Your god is happy... */
339. adjalign(3);
340. 
341. /* ...But the guards are not */
342. (void) angry_guards(FALSE);
343. }
344. return;
345. }
346. 
347. void
348. quest_chat(mtmp)
349. register struct monst *mtmp;
350. {
351. if (mtmp->m_id == Qstat(leader_m_id)) {
352. chat_with_leader();
353. return;
354. }
355. switch(mtmp->data->msound) {
356. case MS_NEMESIS: chat_with_nemesis(); break;
357. case MS_GUARDIAN: chat_with_guardian(); break;
358. default: impossible("quest_chat: Unknown quest character %s.",
359. mon_nam(mtmp));
360. }
361. }
362. 
363. void
364. quest_talk(mtmp)
365. register struct monst *mtmp;
366. {
367. if (mtmp->m_id == Qstat(leader_m_id)) {
368. leader_speaks(mtmp);
369. return;
370. }
371. switch(mtmp->data->msound) {
372. case MS_NEMESIS: nemesis_speaks(); break;
373. case MS_DJINNI: prisoner_speaks(mtmp); break;
374. default: break;
375. }
376. }
377. 
378. void
379. quest_stat_check(mtmp)
380. struct monst *mtmp;
381. {
382. if(mtmp->data->msound == MS_NEMESIS)
383. Qstat(in_battle) = (mtmp->mcanmove && !mtmp->msleeping &&
384. monnear(mtmp, u.ux, u.uy));
385. }
386. 
387. /*quest.c*/
[[Category:SLASH'EM 0.0.7E7F2 source code|quest.c]]

← Older revision		Revision as of 01:40, 29 June 2024
Line 1:		Line 1:
−	Below is the full text to '''quest.c''' from the [[SLASH'EM 0.0.7E7F2 source code\|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/quest.c#line123\|<nowiki>[[SLASH'EM 0.0.7E7F2/quest.c#line123]]</nowiki>]], for example.	+	Below is the full text to '''quest.c''' from the [[SLASH'EM 0.0.7E7F2 source code\|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[Source:SLASH'EM 0.0.7E7F2/quest.c#line123\|<nowiki>[[Source:SLASH'EM 0.0.7E7F2/quest.c#line123]]</nowiki>]], for example.

−	~~The latest source~~ code for vanilla NetHack is at [[Source code]].	+	Source code for vanilla NetHack is at [[Source code]].

← Older revision	Revision as of 19:34, 7 March 2008
(No difference)

Source:SLASH'EM 0.0.7E7F2/quest.c - Revision history

Furey: Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

Kernigh bot: SLASH'EM 0.0.7E7F2/quest.c moved to Source:SLASH'EM 0.0.7E7F2/quest.c: Robot: moved page

Jaytbot: Automated source code upload