Wikia

Wikihack

Source:End.c

2,032pages on
this wiki
Talk0

Below is the full text to src/end.c from NetHack 3.4.3. To link to a particular line, write [[end.c#line123]], for example.

Top of file Edit

1.    /*	SCCS Id: @(#)end.c	3.4	2003/03/10	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
5.    #define NEED_VARARGS	/* comment line for pre-compiled headers */
6.    
7.    #include "hack.h"
8.    #include "eshk.h"
9.    #ifndef NO_SIGNAL
10.   #include <signal.h>
11.   #endif
12.   #include "dlb.h"
13.   
14.   	/* these probably ought to be generated by makedefs, like LAST_GEM */
15.   #define FIRST_GEM    DILITHIUM_CRYSTAL
16.   #define FIRST_AMULET AMULET_OF_ESP
17.   #define LAST_AMULET  AMULET_OF_YENDOR
18.    
19.   struct valuable_data { long count; int typ; };
20.   
21.   static struct valuable_data
22.   	gems[LAST_GEM+1 - FIRST_GEM + 1], /* 1 extra for glass */
23.   	amulets[LAST_AMULET+1 - FIRST_AMULET];
24.   
25.   static struct val_list { struct valuable_data *list; int size; } valuables[] = {
26.   	{ gems,    sizeof gems / sizeof *gems },
27.   	{ amulets, sizeof amulets / sizeof *amulets },
28.   	{ 0, 0 }
29.   };
30.   
31.   #ifndef NO_SIGNAL
32.   STATIC_PTR void FDECL(done_intr, (int));
33.   # if defined(UNIX) || defined(VMS) || defined (__EMX__)
34.   static void FDECL(done_hangup, (int));
35.   # endif
36.   #endif
37.   STATIC_DCL void FDECL(disclose,(int,BOOLEAN_P));
38.   STATIC_DCL void FDECL(get_valuables, (struct obj *));
39.   STATIC_DCL void FDECL(sort_valuables, (struct valuable_data *,int));
40.   STATIC_DCL void FDECL(artifact_score, (struct obj *,BOOLEAN_P,winid));
41.   STATIC_DCL void FDECL(savelife, (int));
42.   STATIC_DCL void FDECL(list_vanquished, (CHAR_P,BOOLEAN_P));
43.   STATIC_DCL void FDECL(list_genocided, (CHAR_P,BOOLEAN_P));
44.   STATIC_DCL boolean FDECL(should_query_disclose_option, (int,char *));
45.   
46.   #if defined(__BEOS__) || defined(MICRO) || defined(WIN32) || defined(OS2)
47.   extern void FDECL(nethack_exit,(int));
48.   #else
49.   #define nethack_exit exit
50.   #endif
51.   
52.   #define done_stopprint program_state.stopprint
53.   
54.   #ifdef AMIGA
55.   # define NH_abort()	Abort(0)
56.   #else
57.   # ifdef SYSV
58.   # define NH_abort()	(void) abort()
59.   # else
60.   #  ifdef WIN32
61.   # define NH_abort()	win32_abort()
62.   #  else
63.   # define NH_abort()	abort()
64.   #  endif
65.   # endif
66.   #endif
67.   
68.   /*
69.    * The order of these needs to match the macros in hack.h.
70.    */
71.   static NEARDATA const char *deaths[] = {		/* the array of death */
72.   	"died", "choked", "poisoned", "starvation", "drowning",
73.   	"burning", "dissolving under the heat and pressure",
74.   	"crushed", "turned to stone", "turned into slime",
75.   	"genocided", "panic", "trickery",
76.   	"quit", "escaped", "ascended"
77.   };
78.   
79.   static NEARDATA const char *ends[] = {		/* "when you..." */
80.   	"died", "choked", "were poisoned", "starved", "drowned",
81.   	"burned", "dissolved in the lava",
82.   	"were crushed", "turned to stone", "turned into slime",
83.   	"were genocided", "panicked", "were tricked",
84.   	"quit", "escaped", "ascended"
85.   };
86.   
87.   extern const char * const killed_by_prefix[];	/* from topten.c */
88.   

done1 Edit

89.   /*ARGSUSED*/
90.   void
91.   done1(sig_unused)   /* called as signal() handler, so sent at least one arg */
92.   int sig_unused;
93.   {
94.   #ifndef NO_SIGNAL
95.   	(void) signal(SIGINT,SIG_IGN);
96.   #endif
97.   	if(flags.ignintr) {
98.   #ifndef NO_SIGNAL
99.   		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
100.  #endif
101.  		clear_nhwindow(WIN_MESSAGE);
102.  		curs_on_u();
103.  		wait_synch();
104.  		if(multi > 0) nomul(0);
105.  	} else {
106.  		(void)done2();
107.  	}
108.  }
109.  
110.  

done2 Edit

111.  /* "#quit" command or keyboard interrupt */
112.  int
113.  done2()
114.  {
115.  	if(yn("Really quit?") == 'n') {
116.  #ifndef NO_SIGNAL
117.  		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
118.  #endif
119.  		clear_nhwindow(WIN_MESSAGE);
120.  		curs_on_u();
121.  		wait_synch();
122.  		if(multi > 0) nomul(0);
123.  		if(multi == 0) {
124.  		    u.uinvulnerable = FALSE;	/* avoid ctrl-C bug -dlc */
125.  		    u.usleep = 0;
126.  		}
127.  		return 0;
128.  	}
129.  #if defined(WIZARD) && (defined(UNIX) || defined(VMS) || defined(LATTICE))
130.  	if(wizard) {
131.  	    int c;
132.  # ifdef VMS
133.  	    const char *tmp = "Enter debugger?";
134.  # else
135.  #  ifdef LATTICE
136.  	    const char *tmp = "Create SnapShot?";
137.  #  else
138.  	    const char *tmp = "Dump core?";
139.  #  endif
140.  # endif
141.  	    if ((c = ynq(tmp)) == 'y') {
142.  		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
143.  		exit_nhwindows((char *)0);
144.  		NH_abort();
145.  	    } else if (c == 'q') done_stopprint++;
146.  	}
147.  #endif
148.  #ifndef LINT
149.  	done(QUIT);
150.  #endif
151.  	return 0;
152.  }
153.  

done_intr Edit

154.  #ifndef NO_SIGNAL
155.  /*ARGSUSED*/
156.  STATIC_PTR void
157.  done_intr(sig_unused) /* called as signal() handler, so sent at least one arg */
158.  int sig_unused;
159.  {
160.  	done_stopprint++;
161.  	(void) signal(SIGINT, SIG_IGN);
162.  # if defined(UNIX) || defined(VMS)
163.  	(void) signal(SIGQUIT, SIG_IGN);
164.  # endif
165.  	return;
166.  }
167.  

done_hangup Edit

168.  # if defined(UNIX) || defined(VMS) || defined(__EMX__)
169.  static void
170.  done_hangup(sig)	/* signal() handler */
171.  int sig;
172.  {
173.  	program_state.done_hup++;
174.  	(void)signal(SIGHUP, SIG_IGN);
175.  	done_intr(sig);
176.  	return;
177.  }
178.  # endif
179.  #endif /* NO_SIGNAL */
180.  

done_in_by Edit

181.  void
182.  done_in_by(mtmp)
183.  register struct monst *mtmp;
184.  {
185.  	char buf[BUFSZ];
186.  	boolean distorted = (boolean)(Hallucination && canspotmon(mtmp));
187.  
188.  	You("die...");
189.  	mark_synch();	/* flush buffered screen output */
190.  	buf[0] = '\0';
191.  	killer_format = KILLED_BY_AN;
192.  	/* "killed by the high priest of Crom" is okay, "killed by the high
193.  	   priest" alone isn't */
194.  	if ((mtmp->data->geno & G_UNIQ) != 0 && !(mtmp->data == &mons[PM_HIGH_PRIEST] && !mtmp->ispriest)) {
195.  	    if (!type_is_pname(mtmp->data))
196.  		Strcat(buf, "the ");
197.  	    killer_format = KILLED_BY;
198.  	}
199.  	/* _the_ <invisible> <distorted> ghost of Dudley */
200.  	if (mtmp->data == &mons[PM_GHOST] && mtmp->mnamelth) {
201.  		Strcat(buf, "the ");
202.  		killer_format = KILLED_BY;
203.  	}
204.  	if (mtmp->minvis)
205.  		Strcat(buf, "invisible ");
206.  	if (distorted)
207.  		Strcat(buf, "hallucinogen-distorted ");
208.  
209.  	if(mtmp->data == &mons[PM_GHOST]) {
210.  		Strcat(buf, "ghost");
211.  		if (mtmp->mnamelth) Sprintf(eos(buf), " of %s", NAME(mtmp));
212.  	} else if(mtmp->isshk) {
213.  		Sprintf(eos(buf), "%s %s, the shopkeeper",
214.  			(mtmp->female ? "Ms." : "Mr."), shkname(mtmp));
215.  		killer_format = KILLED_BY;
216.  	} else if (mtmp->ispriest || mtmp->isminion) {
217.  		/* m_monnam() suppresses "the" prefix plus "invisible", and
218.  		   it overrides the effect of Hallucination on priestname() */
219.  		killer = m_monnam(mtmp);
220.  		Strcat(buf, killer);
221.  	} else {
222.  		Strcat(buf, mtmp->data->mname);
223.  		if (mtmp->mnamelth)
224.  		    Sprintf(eos(buf), " called %s", NAME(mtmp));
225.  	}
226.  
227.  	if (multi) Strcat(buf, ", while helpless");
228.  	killer = buf;
229.  	if (mtmp->data->mlet == S_WRAITH)
230.  		u.ugrave_arise = PM_WRAITH;
231.  	else if (mtmp->data->mlet == S_MUMMY && urace.mummynum != NON_PM)
232.  		u.ugrave_arise = urace.mummynum;
233.  	else if (mtmp->data->mlet == S_VAMPIRE && Race_if(PM_HUMAN))
234.  		u.ugrave_arise = PM_VAMPIRE;
235.  	else if (mtmp->data == &mons[PM_GHOUL])
236.  		u.ugrave_arise = PM_GHOUL;
237.  	if (u.ugrave_arise >= LOW_PM &&
238.  				(mvitals[u.ugrave_arise].mvflags & G_GENOD))
239.  		u.ugrave_arise = NON_PM;
240.  	if (touch_petrifies(mtmp->data))
241.  		done(STONING);
242.  	else
243.  		done(DIED);
244.  	return;
245.  }
246.  
247.  #if defined(WIN32)
248.  #define NOTIFY_NETHACK_BUGS
249.  #endif
250.  

panic Edit

251.  /*VARARGS1*/
252.  void
253.  panic VA_DECL(const char *, str)
254.  	VA_START(str);
255.  	VA_INIT(str, char *);
256.  
257.  	if (program_state.panicking++)
258.  	    NH_abort();	/* avoid loops - this should never happen*/
259.  
260.  	if (iflags.window_inited) {
261.  	    raw_print("\r\nOops...");
262.  	    wait_synch();	/* make sure all pending output gets flushed */
263.  	    exit_nhwindows((char *)0);
264.  	    iflags.window_inited = 0; /* they're gone; force raw_print()ing */
265.  	}
266.  
267.  	raw_print(program_state.gameover ?
268.  		  "Postgame wrapup disrupted." :
269.  		  !program_state.something_worth_saving ?
270.  		  "Program initialization has failed." :
271.  		  "Suddenly, the dungeon collapses.");
272.  #if defined(WIZARD) && !defined(MICRO)
273.  # if defined(NOTIFY_NETHACK_BUGS)
274.  	if (!wizard)
275.  	    raw_printf("Report the following error to \"%s\".",
276.  			"nethack-bugs@nethack.org");
277.  	else if (program_state.something_worth_saving)
278.  	    raw_print("\nError save file being written.\n");
279.  # else
280.  	if (!wizard)
281.  	    raw_printf("Report error to \"%s\"%s.",
282.  #  ifdef WIZARD_NAME	/*(KR1ED)*/
283.  			WIZARD_NAME,
284.  #  else
285.  			WIZARD,
286.  #  endif
287.  			!program_state.something_worth_saving ? "" :
288.  			" and it may be possible to rebuild.");
289.  # endif
290.  	if (program_state.something_worth_saving) {
291.  	    set_error_savefile();
292.  	    (void) dosave0();
293.  	}
294.  #endif
295.  	{
296.  	    char buf[BUFSZ];
297.  	    Vsprintf(buf,str,VA_ARGS);
298.  	    raw_print(buf);
299.  	    paniclog("panic", buf);
300.  	}
301.  #ifdef WIN32
302.  	interject(INTERJECT_PANIC);
303.  #endif
304.  #if defined(WIZARD) && (defined(UNIX) || defined(VMS) || defined(LATTICE) || defined(WIN32))
305.  	if (wizard)
306.  	    NH_abort();	/* generate core dump */
307.  #endif
308.  	VA_END();
309.  	done(PANICKED);
310.  }
311.  

should_query_disclose_option Edit

312.  STATIC_OVL boolean
313.  should_query_disclose_option(category, defquery)
314.  int category;
315.  char *defquery;
316.  {
317.      int idx;
318.      char *dop = index(disclosure_options, category);
319.  
320.      if (dop && defquery) {
321.  	idx = dop - disclosure_options;
322.  	if (idx < 0 || idx > (NUM_DISCLOSURE_OPTIONS - 1)) {
323.  	    impossible(
324.  		   "should_query_disclose_option: bad disclosure index %d %c",
325.  		       idx, category);
326.  	    *defquery = DISCLOSE_PROMPT_DEFAULT_YES;
327.  	    return TRUE;
328.  	}
329.  	if (flags.end_disclose[idx] == DISCLOSE_YES_WITHOUT_PROMPT) {
330.  	    *defquery = 'y';
331.  	    return FALSE;
332.  	} else if (flags.end_disclose[idx] == DISCLOSE_NO_WITHOUT_PROMPT) {
333.  	    *defquery = 'n';
334.  	    return FALSE;
335.  	} else if (flags.end_disclose[idx] == DISCLOSE_PROMPT_DEFAULT_YES) {
336.  	    *defquery = 'y';
337.  	    return TRUE;
338.  	} else if (flags.end_disclose[idx] == DISCLOSE_PROMPT_DEFAULT_NO) {
339.  	    *defquery = 'n';
340.  	    return TRUE;
341.  	}
342.      }
343.      if (defquery)
344.  	impossible("should_query_disclose_option: bad category %c", category);
345.      else
346.  	impossible("should_query_disclose_option: null defquery");
347.      return TRUE;
348.  }
349.  

disclose Edit

350.  STATIC_OVL void
351.  disclose(how,taken)
352.  int how;
353.  boolean taken;
354.  {
355.  	char	c = 0, defquery;
356.  	char	qbuf[QBUFSZ];
357.  	boolean ask;
358.  
359.  	if (invent) {
360.  	    if(taken)
361.  		Sprintf(qbuf,"Do you want to see what you had when you %s?",
362.  			(how == QUIT) ? "quit" : "died");
363.  	    else
364.  		Strcpy(qbuf,"Do you want your possessions identified?");
365.  
366.  	    ask = should_query_disclose_option('i', &defquery);
367.  	    if (!done_stopprint) {
368.  		c = ask ? yn_function(qbuf, ynqchars, defquery) : defquery;
369.  		if (c == 'y') {
370.  			struct obj *obj;
371.  
372.  			for (obj = invent; obj; obj = obj->nobj) {
373.  			    makeknown(obj->otyp);
374.  			    obj->known = obj->bknown = obj->dknown = obj->rknown = 1;
375.  			}
376.  			(void) display_inventory((char *)0, TRUE);
377.  			container_contents(invent, TRUE, TRUE);
378.  		}
379.  		if (c == 'q')  done_stopprint++;
380.  	    }
381.  	}
382.  
383.  	ask = should_query_disclose_option('a', &defquery);
384.  	if (!done_stopprint) {
385.  	    c = ask ? yn_function("Do you want to see your attributes?",
386.  				  ynqchars, defquery) : defquery;
387.  	    if (c == 'y')
388.  		enlightenment(how >= PANICKED ? 1 : 2); /* final */
389.  	    if (c == 'q') done_stopprint++;
390.  	}
391.  
392.  	ask = should_query_disclose_option('v', &defquery);
393.  	if (!done_stopprint)
394.  	    list_vanquished(defquery, ask);
395.  
396.  	ask = should_query_disclose_option('g', &defquery);
397.  	if (!done_stopprint)
398.  	    list_genocided(defquery, ask);
399.  
400.  	ask = should_query_disclose_option('c', &defquery);
401.  	if (!done_stopprint) {
402.  	    c = ask ? yn_function("Do you want to see your conduct?",
403.  				  ynqchars, defquery) : defquery;
404.  	    if (c == 'y')
405.  		show_conduct(how >= PANICKED ? 1 : 2);
406.  	    if (c == 'q') done_stopprint++;
407.  	}
408.  }
409.  

savelife Edit

410.  /* try to get the player back in a viable state after being killed */
411.  STATIC_OVL void
412.  savelife(how)
413.  int how;
414.  {
415.  	u.uswldtim = 0;
416.  	u.uhp = u.uhpmax;
417.  	if (u.uhunger < 500) {
418.  	    u.uhunger = 500;
419.  	    newuhs(FALSE);
420.  	}
421.  	/* cure impending doom of sickness hero won't have time to fix */
422.  	if ((Sick & TIMEOUT) == 1) {
423.  	    u.usick_type = 0;
424.  	    Sick = 0;
425.  	}
426.  	if (how == CHOKING) init_uhunger();
427.  	nomovemsg = "You survived that attempt on your life.";
428.  	flags.move = 0;
429.  	if(multi > 0) multi = 0; else multi = -1;
430.  	if(u.utrap && u.utraptype == TT_LAVA) u.utrap = 0;
431.  	flags.botl = 1;
432.  	u.ugrave_arise = NON_PM;
433.  	HUnchanging = 0L;
434.  	curs_on_u();
435.  }
436.  

get_valuables Edit

437.  /*
438.   * Get valuables from the given list.  Revised code: the list always remains
439.   * intact.
440.   */
441.  STATIC_OVL void
442.  get_valuables(list)
443.  struct obj *list;	/* inventory or container contents */
444.  {
445.      register struct obj *obj;
446.      register int i;
447.  
448.      /* find amulets and gems, ignoring all artifacts */
449.      for (obj = list; obj; obj = obj->nobj)
450.  	if (Has_contents(obj)) {
451.  	    get_valuables(obj->cobj);
452.  	} else if (obj->oartifact) {
453.  	    continue;
454.  	} else if (obj->oclass == AMULET_CLASS) {
455.  	    i = obj->otyp - FIRST_AMULET;
456.  	    if (!amulets[i].count) {
457.  		amulets[i].count = obj->quan;
458.  		amulets[i].typ = obj->otyp;
459.  	    } else amulets[i].count += obj->quan; /* always adds one */
460.  	} else if (obj->oclass == GEM_CLASS && obj->otyp < LUCKSTONE) {
461.  	    i = min(obj->otyp, LAST_GEM + 1) - FIRST_GEM;
462.  	    if (!gems[i].count) {
463.  		gems[i].count = obj->quan;
464.  		gems[i].typ = obj->otyp;
465.  	    } else gems[i].count += obj->quan;
466.  	}
467.      return;
468.  }
469.  

sort_valuables Edit

470.  /*
471.   *  Sort collected valuables, most frequent to least.  We could just
472.   *  as easily use qsort, but we don't care about efficiency here.
473.   */
474.  STATIC_OVL void
475.  sort_valuables(list, size)
476.  struct valuable_data list[];
477.  int size;		/* max value is less than 20 */
478.  {
479.      register int i, j;
480.      struct valuable_data ltmp;
481.  
482.      /* move greater quantities to the front of the list */
483.      for (i = 1; i < size; i++) {
484.  	if (list[i].count == 0) continue;	/* empty slot */
485.  	ltmp = list[i]; /* structure copy */
486.  	for (j = i; j > 0; --j)
487.  	    if (list[j-1].count >= ltmp.count) break;
488.  	    else {
489.  		list[j] = list[j-1];
490.  	    }
491.  	list[j] = ltmp;
492.      }
493.      return;
494.  }
495.  

artifact_score Edit

496.  /* called twice; first to calculate total, then to list relevant items */
497.  STATIC_OVL void
498.  artifact_score(list, counting, endwin)
499.  struct obj *list;
500.  boolean counting;	/* true => add up points; false => display them */
501.  winid endwin;
502.  {
503.      char pbuf[BUFSZ];
504.      struct obj *otmp;
505.      long value, points;
506.      short dummy;	/* object type returned by artifact_name() */
507.  
508.      for (otmp = list; otmp; otmp = otmp->nobj) {
509.  	if (otmp->oartifact ||
510.  			otmp->otyp == BELL_OF_OPENING ||
511.  			otmp->otyp == SPE_BOOK_OF_THE_DEAD ||
512.  			otmp->otyp == CANDELABRUM_OF_INVOCATION) {
513.  	    value = arti_cost(otmp);	/* zorkmid value */
514.  	    points = value * 5 / 2;	/* score value */
515.  	    if (counting) {
516.  		u.urexp += points;
517.  	    } else {
518.  		makeknown(otmp->otyp);
519.  		otmp->known = otmp->dknown = otmp->bknown = otmp->rknown = 1;
520.  		/* assumes artifacts don't have quan > 1 */
521.  		Sprintf(pbuf, "%s%s (worth %ld %s and %ld points)",
522.  			the_unique_obj(otmp) ? "The " : "",
523.  			otmp->oartifact ? artifact_name(xname(otmp), &dummy) :
524.  				OBJ_NAME(objects[otmp->otyp]),
525.  			value, currency(value), points);
526.  		putstr(endwin, 0, pbuf);
527.  	    }
528.  	}
529.  	if (Has_contents(otmp))
530.  	    artifact_score(otmp->cobj, counting, endwin);
531.      }
532.  }
533.  

done Edit

534.  /* Be careful not to call panic from here! */
535.  void
536.  done(how)
537.  int how;
538.  {
539.  	boolean taken;
540.  	char kilbuf[BUFSZ], pbuf[BUFSZ];
541.  	winid endwin = WIN_ERR;
542.  	boolean bones_ok, have_windows = iflags.window_inited;
543.  	struct obj *corpse = (struct obj *)0;
544.  	long umoney;
545.  
546.  	if (how == TRICKED) {
547.  	    if (killer) {
548.  		paniclog("trickery", killer);
549.  		killer = 0;
550.  	    }
551.  #ifdef WIZARD
552.  	    if (wizard) {
553.  		You("are a very tricky wizard, it seems.");
554.  		return;
555.  	    }
556.  #endif
557.  	}
558.  
559.  	/* kilbuf: used to copy killer in case it comes from something like
560.  	 *	xname(), which would otherwise get overwritten when we call
561.  	 *	xname() when listing possessions
562.  	 * pbuf: holds Sprintf'd output for raw_print and putstr
563.  	 */
564.  	if (how == ASCENDED || (!killer && how == GENOCIDED))
565.  		killer_format = NO_KILLER_PREFIX;
566.  	/* Avoid killed by "a" burning or "a" starvation */
567.  	if (!killer && (how == STARVING || how == BURNING))
568.  		killer_format = KILLED_BY;
569.  	Strcpy(kilbuf, (!killer || how >= PANICKED ? deaths[how] : killer));
570.  	killer = kilbuf;
571.  
572.  	if (how < PANICKED) u.umortality++;
573.  	if (Lifesaved && (how <= GENOCIDED)) {
574.  		pline("But wait...");
575.  		makeknown(AMULET_OF_LIFE_SAVING);
576.  		Your("medallion %s!",
577.  		      !Blind ? "begins to glow" : "feels warm");
578.  		if (how == CHOKING) You("vomit ...");
579.  		You_feel("much better!");
580.  		pline_The("medallion crumbles to dust!");
581.  		if (uamul) useup(uamul);
582.  
583.  		(void) adjattrib(A_CON, -1, TRUE);
584.  		if(u.uhpmax <= 0) u.uhpmax = 10;	/* arbitrary */
585.  		savelife(how);
586.  		if (how == GENOCIDED)
587.  			pline("Unfortunately you are still genocided...");
588.  		else {
589.  			killer = 0;
590.  			killer_format = 0;
591.  			return;
592.  		}
593.  	}
594.  	if ((
595.  #ifdef WIZARD
596.  			wizard ||
597.  #endif
598.  			discover) && (how <= GENOCIDED)) {
599.  		if(yn("Die?") == 'y') goto die;
600.  		pline("OK, so you don't %s.",
601.  			(how == CHOKING) ? "choke" : "die");
602.  		if(u.uhpmax <= 0) u.uhpmax = u.ulevel * 8;	/* arbitrary */
603.  		savelife(how);
604.  		killer = 0;
605.  		killer_format = 0;
606.  		return;
607.  	}
608.  
609.      /*
610.       *	The game is now over...
611.       */
612.  
613.  die:
614.  	program_state.gameover = 1;
615.  	/* in case of a subsequent panic(), there's no point trying to save */
616.  	program_state.something_worth_saving = 0;
617.  	/* render vision subsystem inoperative */
618.  	iflags.vision_inited = 0;
619.  	/* might have been killed while using a disposable item, so make sure
620.  	   it's gone prior to inventory disclosure and creation of bones data */
621.  	inven_inuse(TRUE);
622.  
623.  	/* Sometimes you die on the first move.  Life's not fair.
624.  	 * On those rare occasions you get hosed immediately, go out
625.  	 * smiling... :-)  -3.
626.  	 */
627.  	if (moves <= 1 && how < PANICKED)	/* You die... --More-- */
628.  	    pline("Do not pass go.  Do not collect 200 %s.", currency(200L));
629.  
630.  	if (have_windows) wait_synch();	/* flush screen output */
631.  #ifndef NO_SIGNAL
632.  	(void) signal(SIGINT, (SIG_RET_TYPE) done_intr);
633.  # if defined(UNIX) || defined(VMS) || defined (__EMX__)
634.  	(void) signal(SIGQUIT, (SIG_RET_TYPE) done_intr);
635.  	(void) signal(SIGHUP, (SIG_RET_TYPE) done_hangup);
636.  # endif
637.  #endif /* NO_SIGNAL */
638.  
639.  	bones_ok = (how < GENOCIDED) && can_make_bones();
640.  
641.  	if (how == TURNED_SLIME)
642.  	    u.ugrave_arise = PM_GREEN_SLIME;
643.  
644.  	if (bones_ok && u.ugrave_arise < LOW_PM) {
645.  	    /* corpse gets burnt up too */
646.  	    if (how == BURNING)
647.  		u.ugrave_arise = (NON_PM - 2);	/* leave no corpse */
648.  	    else if (how == STONING)
649.  		u.ugrave_arise = (NON_PM - 1);	/* statue instead of corpse */
650.  	    else if (u.ugrave_arise == NON_PM &&
651.  		     !(mvitals[u.umonnum].mvflags & G_NOCORPSE)) {
652.  		int mnum = u.umonnum;
653.  
654.  		if (!Upolyd) {
655.  		    /* Base corpse on race when not poly'd since original
656.  		     * u.umonnum is based on role, and all role monsters
657.  		     * are human.
658.  		     */
659.  		    mnum = (flags.female && urace.femalenum != NON_PM) ?
660.  			urace.femalenum : urace.malenum;
661.  		}
662.  		corpse = mk_named_object(CORPSE, &mons[mnum],
663.  				       u.ux, u.uy, plname);
664.  		Sprintf(pbuf, "%s, %s%s", plname,
665.  			killer_format == NO_KILLER_PREFIX ? "" :
666.  			killed_by_prefix[how],
667.  			killer_format == KILLED_BY_AN ? an(killer) : killer);
668.  		make_grave(u.ux, u.uy, pbuf);
669.  	    }
670.  	}
671.  
672.  	if (how == QUIT) {
673.  		killer_format = NO_KILLER_PREFIX;
674.  		if (u.uhp < 1) {
675.  			how = DIED;
676.  			u.umortality++;	/* skipped above when how==QUIT */
677.  			/* note that killer is pointing at kilbuf */
678.  			Strcpy(kilbuf, "quit while already on Charon's boat");
679.  		}
680.  	}
681.  	if (how == ESCAPED || how == PANICKED)
682.  		killer_format = NO_KILLER_PREFIX;
683.  
684.  	if (how != PANICKED) {
685.  	    /* these affect score and/or bones, but avoid them during panic */
686.  	    taken = paybill((how == ESCAPED) ? -1 : (how != QUIT));
687.  	    paygd();
688.  	    clearpriests();
689.  	} else	taken = FALSE;	/* lint; assert( !bones_ok ); */
690.  
691.  	clearlocks();
692.  
693.  	if (have_windows) display_nhwindow(WIN_MESSAGE, FALSE);
694.  
695.  	if (strcmp(flags.end_disclose, "none") && how != PANICKED)
696.  		disclose(how, taken);
697.  	/* finish_paybill should be called after disclosure but before bones */
698.  	if (bones_ok && taken) finish_paybill();
699.  
700.  	/* calculate score, before creating bones [container gold] */
701.  	{
702.  	    long tmp;
703.  	    int deepest = deepest_lev_reached(FALSE);
704.  
705.  #ifndef GOLDOBJ
706.  	    umoney = u.ugold;
707.  	    tmp = u.ugold0;
708.  #else
709.  	    umoney = money_cnt(invent);
710.  	    tmp = u.umoney0;
711.  #endif
712.  	    umoney += hidden_gold();	/* accumulate gold from containers */
713.  	    tmp = umoney - tmp;		/* net gain */
714.  
715.  	    if (tmp < 0L)
716.  		tmp = 0L;
717.  	    if (how < PANICKED)
718.  		tmp -= tmp / 10L;
719.  	    u.urexp += tmp;
720.  	    u.urexp += 50L * (long)(deepest - 1);
721.  	    if (deepest > 20)
722.  		u.urexp += 1000L * (long)((deepest > 30) ? 10 : deepest - 20);
723.  	    if (how == ASCENDED) u.urexp *= 2L;
724.  	}
725.  
726.  	if (bones_ok) {
727.  #ifdef WIZARD
728.  	    if (!wizard || yn("Save bones?") == 'y')
729.  #endif
730.  		savebones(corpse);
731.  	    /* corpse may be invalid pointer now so
732.  		ensure that it isn't used again */
733.  	    corpse = (struct obj *)0;
734.  	}
735.  
736.  	/* update gold for the rip output, which can't use hidden_gold()
737.  	   (containers will be gone by then if bones just got saved...) */
738.  #ifndef GOLDOBJ
739.  	u.ugold = umoney;
740.  #else
741.  	done_money = umoney;
742.  #endif
743.  
744.  	/* clean up unneeded windows */
745.  	if (have_windows) {
746.  	    wait_synch();
747.  	    display_nhwindow(WIN_MESSAGE, TRUE);
748.  	    destroy_nhwindow(WIN_MAP);
749.  	    destroy_nhwindow(WIN_STATUS);
750.  	    destroy_nhwindow(WIN_MESSAGE);
751.  	    WIN_MESSAGE = WIN_STATUS = WIN_MAP = WIN_ERR;
752.  
753.  	    if(!done_stopprint || flags.tombstone)
754.  		endwin = create_nhwindow(NHW_TEXT);
755.  
756.  	    if (how < GENOCIDED && flags.tombstone && endwin != WIN_ERR)
757.  		outrip(endwin, how);
758.  	} else
759.  	    done_stopprint = 1; /* just avoid any more output */
760.  
761.  /* changing kilbuf really changes killer. we do it this way because
762.     killer is declared a (const char *)
763.  */
764.  	if (u.uhave.amulet) Strcat(kilbuf, " (with the Amulet)");
765.  	else if (how == ESCAPED) {
766.  	    if (Is_astralevel(&u.uz))	/* offered Amulet to wrong deity */
767.  		Strcat(kilbuf, " (in celestial disgrace)");
768.  	    else if (carrying(FAKE_AMULET_OF_YENDOR))
769.  		Strcat(kilbuf, " (with a fake Amulet)");
770.  		/* don't bother counting to see whether it should be plural */
771.  	}
772.  
773.  	if (!done_stopprint) {
774.  	    Sprintf(pbuf, "%s %s the %s...", Goodbye(), plname,
775.  		   how != ASCENDED ?
776.  		      (const char *) ((flags.female && urole.name.f) ?
777.  		         urole.name.f : urole.name.m) :
778.  		      (const char *) (flags.female ? "Demigoddess" : "Demigod"));
779.  	    putstr(endwin, 0, pbuf);
780.  	    putstr(endwin, 0, "");
781.  	}
782.  
783.  	if (how == ESCAPED || how == ASCENDED) {
784.  	    register struct monst *mtmp;
785.  	    register struct obj *otmp;
786.  	    register struct val_list *val;
787.  	    register int i;
788.  
789.  	    for (val = valuables; val->list; val++)
790.  		for (i = 0; i < val->size; i++) {
791.  		    val->list[i].count = 0L;
792.  		}
793.  	    get_valuables(invent);
794.  
795.  	    /* add points for collected valuables */
796.  	    for (val = valuables; val->list; val++)
797.  		for (i = 0; i < val->size; i++)
798.  		    if (val->list[i].count != 0L)
799.  			u.urexp += val->list[i].count
800.  				  * (long)objects[val->list[i].typ].oc_cost;
801.  
802.  	    /* count the points for artifacts */
803.  	    artifact_score(invent, TRUE, endwin);
804.  
805.  	    keepdogs(TRUE);
806.  	    viz_array[0][0] |= IN_SIGHT; /* need visibility for naming */
807.  	    mtmp = mydogs;
808.  	    if (!done_stopprint) Strcpy(pbuf, "You");
809.  	    if (mtmp) {
810.  		while (mtmp) {
811.  		    if (!done_stopprint)
812.  			Sprintf(eos(pbuf), " and %s", mon_nam(mtmp));
813.  		    if (mtmp->mtame)
814.  			u.urexp += mtmp->mhp;
815.  		    mtmp = mtmp->nmon;
816.  		}
817.  		if (!done_stopprint) putstr(endwin, 0, pbuf);
818.  		pbuf[0] = '\0';
819.  	    } else {
820.  		if (!done_stopprint) Strcat(pbuf, " ");
821.  	    }
822.  	    if (!done_stopprint) {
823.  		Sprintf(eos(pbuf), "%s with %ld point%s,",
824.  			how==ASCENDED ? "went to your reward" :
825.  					"escaped from the dungeon",
826.  			u.urexp, plur(u.urexp));
827.  		putstr(endwin, 0, pbuf);
828.  	    }
829.  
830.  	    if (!done_stopprint)
831.  		artifact_score(invent, FALSE, endwin);	/* list artifacts */
832.  
833.  	    /* list valuables here */
834.  	    for (val = valuables; val->list; val++) {
835.  		sort_valuables(val->list, val->size);
836.  		for (i = 0; i < val->size && !done_stopprint; i++) {
837.  		    int typ = val->list[i].typ;
838.  		    long count = val->list[i].count;
839.  
840.  		    if (count == 0L) continue;
841.  		    if (objects[typ].oc_class != GEM_CLASS || typ <= LAST_GEM) {
842.  			otmp = mksobj(typ, FALSE, FALSE);
843.  			makeknown(otmp->otyp);
844.  			otmp->known = 1;	/* for fake amulets */
845.  			otmp->dknown = 1;	/* seen it (blindness fix) */
846.  			otmp->onamelth = 0;
847.  			otmp->quan = count;
848.  			Sprintf(pbuf, "%8ld %s (worth %ld %s),",
849.  				count, xname(otmp),
850.  				count * (long)objects[typ].oc_cost, currency(2L));
851.  			obfree(otmp, (struct obj *)0);
852.  		    } else {
853.  			Sprintf(pbuf,
854.  				"%8ld worthless piece%s of colored glass,",
855.  				count, plur(count));
856.  		    }
857.  		    putstr(endwin, 0, pbuf);
858.  		}
859.  	    }
860.  
861.  	} else if (!done_stopprint) {
862.  	    /* did not escape or ascend */
863.  	    if (u.uz.dnum == 0 && u.uz.dlevel <= 0) {
864.  		/* level teleported out of the dungeon; `how' is DIED,
865.  		   due to falling or to "arriving at heaven prematurely" */
866.  		Sprintf(pbuf, "You %s beyond the confines of the dungeon",
867.  			(u.uz.dlevel < 0) ? "passed away" : ends[how]);
868.  	    } else {
869.  		/* more conventional demise */
870.  		const char *where = dungeons[u.uz.dnum].dname;
871.  
872.  		if (Is_astralevel(&u.uz)) where = "The Astral Plane";
873.  		Sprintf(pbuf, "You %s in %s", ends[how], where);
874.  		if (!In_endgame(&u.uz) && !Is_knox(&u.uz))
875.  		    Sprintf(eos(pbuf), " on dungeon level %d",
876.  			    In_quest(&u.uz) ? dunlev(&u.uz) : depth(&u.uz));
877.  	    }
878.  
879.  	    Sprintf(eos(pbuf), " with %ld point%s,",
880.  		    u.urexp, plur(u.urexp));
881.  	    putstr(endwin, 0, pbuf);
882.  	}
883.  
884.  	if (!done_stopprint) {
885.  	    Sprintf(pbuf, "and %ld piece%s of gold, after %ld move%s.",
886.  		    umoney, plur(umoney), moves, plur(moves));
887.  	    putstr(endwin, 0, pbuf);
888.  	}
889.  	if (!done_stopprint) {
890.  	    Sprintf(pbuf,
891.  	     "You were level %d with a maximum of %d hit point%s when you %s.",
892.  		    u.ulevel, u.uhpmax, plur(u.uhpmax), ends[how]);
893.  	    putstr(endwin, 0, pbuf);
894.  	    putstr(endwin, 0, "");
895.  	}
896.  	if (!done_stopprint)
897.  	    display_nhwindow(endwin, TRUE);
898.  	if (endwin != WIN_ERR)
899.  	    destroy_nhwindow(endwin);
900.  
901.  	/* "So when I die, the first thing I will see in Heaven is a
902.  	 * score list?" */
903.  	if (flags.toptenwin) {
904.  	    topten(how);
905.  	    if (have_windows)
906.  		exit_nhwindows((char *)0);
907.  	} else {
908.  	    if (have_windows)
909.  		exit_nhwindows((char *)0);
910.  	    topten(how);
911.  	}
912.  
913.  	if(done_stopprint) { raw_print(""); raw_print(""); }
914.  	terminate(EXIT_SUCCESS);
915.  }
916.  
917.  

container_contents Edit

918.  void
919.  container_contents(list, identified, all_containers)
920.  struct obj *list;
921.  boolean identified, all_containers;
922.  {
923.  	register struct obj *box, *obj;
924.  	char buf[BUFSZ];
925.  
926.  	for (box = list; box; box = box->nobj) {
927.  	    if (Is_container(box) || box->otyp == STATUE) {
928.  		if (box->otyp == BAG_OF_TRICKS) {
929.  		    continue;	/* wrong type of container */
930.  		} else if (box->cobj) {
931.  		    winid tmpwin = create_nhwindow(NHW_MENU);
932.  		    Sprintf(buf, "Contents of %s:", the(xname(box)));
933.  		    putstr(tmpwin, 0, buf);
934.  		    putstr(tmpwin, 0, "");
935.  		    for (obj = box->cobj; obj; obj = obj->nobj) {
936.  			if (identified) {
937.  			    makeknown(obj->otyp);
938.  			    obj->known = obj->bknown =
939.  			    obj->dknown = obj->rknown = 1;
940.  			}
941.  			putstr(tmpwin, 0, doname(obj));
942.  		    }
943.  		    display_nhwindow(tmpwin, TRUE);
944.  		    destroy_nhwindow(tmpwin);
945.  		    if (all_containers)
946.  			container_contents(box->cobj, identified, TRUE);
947.  		} else {
948.  		    pline("%s empty.", Tobjnam(box, "are"));
949.  		    display_nhwindow(WIN_MESSAGE, FALSE);
950.  		}
951.  	    }
952.  	    if (!all_containers)
953.  		break;
954.  	}
955.  }
956.  
957.  

terminate Edit

958.  /* should be called with either EXIT_SUCCESS or EXIT_FAILURE */
959.  void
960.  terminate(status)
961.  int status;
962.  {
963.  #ifdef MAC
964.  	getreturn("to exit");
965.  #endif
966.  	/* don't bother to try to release memory if we're in panic mode, to
967.  	   avoid trouble in case that happens to be due to memory problems */
968.  	if (!program_state.panicking) {
969.  	    freedynamicdata();
970.  	    dlb_cleanup();
971.  	}
972.  
973.  	nethack_exit(status);
974.  }
975.  

list_vanquished Edit

976.  STATIC_OVL void
977.  list_vanquished(defquery, ask)
978.  char defquery;
979.  boolean ask;
980.  {
981.      register int i, lev;
982.      int ntypes = 0, max_lev = 0, nkilled;
983.      long total_killed = 0L;
984.      char c;
985.      winid klwin;
986.      char buf[BUFSZ];
987.  
988.      /* get totals first */
989.      for (i = LOW_PM; i < NUMMONS; i++) {
990.  	if (mvitals[i].died) ntypes++;
991.  	total_killed += (long)mvitals[i].died;
992.  	if (mons[i].mlevel > max_lev) max_lev = mons[i].mlevel;
993.      }
994.  
995.      /* vanquished creatures list;
996.       * includes all dead monsters, not just those killed by the player
997.       */
998.      if (ntypes != 0) {
999.  	c = ask ? yn_function("Do you want an account of creatures vanquished?",
1000. 			      ynqchars, defquery) : defquery;
1001. 	if (c == 'q') done_stopprint++;
1002. 	if (c == 'y') {
1003. 	    klwin = create_nhwindow(NHW_MENU);
1004. 	    putstr(klwin, 0, "Vanquished creatures:");
1005. 	    putstr(klwin, 0, "");
1006. 
1007. 	    /* countdown by monster "toughness" */
1008. 	    for (lev = max_lev; lev >= 0; lev--)
1009. 	      for (i = LOW_PM; i < NUMMONS; i++)
1010. 		if (mons[i].mlevel == lev && (nkilled = mvitals[i].died) > 0) {
1011. 		    if ((mons[i].geno & G_UNIQ) && i != PM_HIGH_PRIEST) {
1012. 			Sprintf(buf, "%s%s",
1013. 				!type_is_pname(&mons[i]) ? "The " : "",
1014. 				mons[i].mname);
1015. 			if (nkilled > 1) {
1016. 			    switch (nkilled) {
1017. 				case 2:  Sprintf(eos(buf)," (twice)");  break;
1018. 				case 3:  Sprintf(eos(buf)," (thrice)");  break;
1019. 				default: Sprintf(eos(buf)," (%d time%s)",
1020. 						 nkilled, plur(nkilled));
1021. 					 break;
1022. 			    }
1023. 			}
1024. 		    } else {
1025. 			/* trolls or undead might have come back,
1026. 			   but we don't keep track of that */
1027. 			if (nkilled == 1)
1028. 			    Strcpy(buf, an(mons[i].mname));
1029. 			else
1030. 			    Sprintf(buf, "%d %s",
1031. 				    nkilled, makeplural(mons[i].mname));
1032. 		    }
1033. 		    putstr(klwin, 0, buf);
1034. 		}
1035. 	    /*
1036. 	     * if (Hallucination)
1037. 	     *     putstr(klwin, 0, "and a partridge in a pear tree");
1038. 	     */
1039. 	    if (ntypes > 1) {
1040. 		putstr(klwin, 0, "");
1041. 		Sprintf(buf, "%ld creatures vanquished.", total_killed);
1042. 		putstr(klwin, 0, buf);
1043. 	    }
1044. 	    display_nhwindow(klwin, TRUE);
1045. 	    destroy_nhwindow(klwin);
1046. 	}
1047.     }
1048. }
1049. 

num_genocides Edit

1050. /* number of monster species which have been genocided */
1051. int
1052. num_genocides()
1053. {
1054.     int i, n = 0;
1055. 
1056.     for (i = LOW_PM; i < NUMMONS; ++i)
1057. 	if (mvitals[i].mvflags & G_GENOD) ++n;
1058. 
1059.     return n;
1060. }
1061. 

list_genocided Edit

1062. STATIC_OVL void
1063. list_genocided(defquery, ask)
1064. char defquery;
1065. boolean ask;
1066. {
1067.     register int i;
1068.     int ngenocided;
1069.     char c;
1070.     winid klwin;
1071.     char buf[BUFSZ];
1072. 
1073.     ngenocided = num_genocides();
1074. 
1075.     /* genocided species list */
1076.     if (ngenocided != 0) {
1077. 	c = ask ? yn_function("Do you want a list of species genocided?",
1078. 			      ynqchars, defquery) : defquery;
1079. 	if (c == 'q') done_stopprint++;
1080. 	if (c == 'y') {
1081. 	    klwin = create_nhwindow(NHW_MENU);
1082. 	    putstr(klwin, 0, "Genocided species:");
1083. 	    putstr(klwin, 0, "");
1084. 
1085. 	    for (i = LOW_PM; i < NUMMONS; i++)
1086. 		if (mvitals[i].mvflags & G_GENOD) {
1087. 		    if ((mons[i].geno & G_UNIQ) && i != PM_HIGH_PRIEST)
1088. 			Sprintf(buf, "%s%s",
1089. 				!type_is_pname(&mons[i]) ? "" : "the ",
1090. 				mons[i].mname);
1091. 		    else
1092. 			Strcpy(buf, makeplural(mons[i].mname));
1093. 		    putstr(klwin, 0, buf);
1094. 		}
1095. 
1096. 	    putstr(klwin, 0, "");
1097. 	    Sprintf(buf, "%d species genocided.", ngenocided);
1098. 	    putstr(klwin, 0, buf);
1099. 
1100. 	    display_nhwindow(klwin, TRUE);
1101. 	    destroy_nhwindow(klwin);
1102. 	}
1103.     }
1104. }
1105. 
1106. /*end.c*/

Around Wikia's network

Random Wiki