Source:NetHack 3.1.0/end.c

From NetHackWiki
Revision as of 06:24, 4 March 2008 by Kernigh bot (talk | contribs) (NetHack 3.1.0/end.c moved to Source:NetHack 3.1.0/end.c: Robot: moved page)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

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

Warning! This is the source code from an old release. For the latest release, see 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: @(#)end.c	3.1	93/01/15	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
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.   
13.   STATIC_PTR int NDECL(done_intr);
14.   static void FDECL(disclose,(int,BOOLEAN_P));
15.   static struct obj *FDECL(get_valuables, (struct obj *));
16.   static void FDECL(savelife, (int));
17.   
18.   /*
19.    * The order of these needs to match the macros in hack.h.
20.    */
21.   static const char NEARDATA *deaths[] = {		/* the array of death */
22.   	"died", "choked", "poisoned", "starvation", "drowning",
23.   	"burning", "crushed", "turned to stone", "genocided",
24.   	"panic", "trickery",
25.   	"quit", "escaped", "ascended"
26.   };
27.   
28.   static const char NEARDATA *ends[] = {		/* "when you..." */
29.   	"died", "choked", "were poisoned", "starved", "drowned",
30.   	"burned", "were crushed", "turned to stone", "were genocided",
31.   	"panicked", "were tricked",
32.   	"quit", "escaped", "ascended"
33.   };
34.   
35.   int
36.   done1()
37.   {
38.   #ifndef NO_SIGNAL
39.   	(void) signal(SIGINT,SIG_IGN);
40.   #endif
41.   	if(flags.ignintr) {
42.   #ifndef NO_SIGNAL
43.   		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
44.   #endif
45.   		clear_nhwindow(WIN_MESSAGE);
46.   		curs_on_u();
47.   		wait_synch();
48.   		if(multi > 0) nomul(0);
49.   		return 0;
50.   	}
51.   	return done2();
52.   }
53.   
54.   int
55.   done2()
56.   {
57.   	if(yn("Really quit?") == 'n') {
58.   #ifndef NO_SIGNAL
59.   		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
60.   #endif
61.   		clear_nhwindow(WIN_MESSAGE);
62.   		curs_on_u();
63.   		wait_synch();
64.   		if(multi > 0) nomul(0);
65.   		if(multi == 0) {
66.   		    u.uinvulnerable = FALSE;	/* avoid ctrl-C bug -dlc */
67.   		    u.usleep = 0;
68.   		}
69.   		return 0;
70.   	}
71.   #if defined(WIZARD) && (defined(UNIX) || defined(VMS) || defined(LATTICE))
72.   	if(wizard) {
73.   # ifdef VMS
74.   	    const char *tmp = "Enter debugger?";
75.   # else
76.   #  ifdef LATTICE
77.   	    const char *tmp = "Create SnapShot?";
78.   #  else
79.   	    const char *tmp = "Dump core?";
80.   #  endif
81.   # endif
82.   	    if(yn(tmp) == 'y') {
83.   		(void) signal(SIGINT, (SIG_RET_TYPE) done1);
84.   		exit_nhwindows(NULL);
85.   #ifdef AMIGA
86.   		Abort(0);
87.   #else
88.   # ifdef SYSV
89.   		(void)
90.   # endif
91.   		    abort();
92.   #endif
93.   	    }
94.   	}
95.   #endif
96.   #ifndef LINT
97.   	done(QUIT);
98.   #endif
99.   	return 0;
100.  }
101.  
102.  STATIC_PTR
103.  int
104.  done_intr(){
105.  	done_stopprint++;
106.  #ifndef NO_SIGNAL
107.  	(void) signal(SIGINT, SIG_IGN);
108.  # if defined(UNIX) || defined(VMS)
109.  	(void) signal(SIGQUIT, SIG_IGN);
110.  # endif
111.  #endif /* NO_SIGNAL /* */
112.  	return 0;
113.  }
114.  
115.  #if defined(UNIX) || defined(VMS)
116.  static
117.  int
118.  done_hangup(){
119.  	done_hup++;
120.  	(void)signal(SIGHUP, SIG_IGN);
121.  	(void)done_intr();
122.  	return 0;
123.  }
124.  #endif
125.  
126.  void
127.  done_in_by(mtmp)
128.  register struct monst *mtmp;
129.  {
130.  	char buf[BUFSZ];
131.  
132.  	You("die...");
133.  	buf[0] = '\0';
134.  	if (type_is_pname(mtmp->data) || (mtmp->data->geno & G_UNIQ)) {
135.  	     if (!(type_is_pname(mtmp->data) && (mtmp->data->geno & G_UNIQ)))
136.  		Strcat(buf, "the ");
137.  	     killer_format = KILLED_BY;
138.  	}
139.  	if (mtmp->minvis)
140.  		Strcat(buf, "invisible ");
141.  	if (Hallucination)
142.  		Strcat(buf, "hallucinogen-distorted ");
143.  
144.  	if(mtmp->data == &mons[PM_GHOST]) {
145.  		register char *gn = (char *) mtmp->mextra;
146.  		if (!Hallucination && !mtmp->minvis && *gn) {
147.  			Strcat(buf, "the ");
148.  			killer_format = KILLED_BY;
149.  		}
150.  		Sprintf(eos(buf), (*gn ? "ghost of %s" : "ghost%s"), gn);
151.  	} else if(mtmp->isshk) {
152.  		Sprintf(eos(buf), "%s %s, the shopkeeper",
153.  			(mtmp->female ? "Ms." : "Mr."), shkname(mtmp));
154.  		killer_format = KILLED_BY;
155.  	} else if (mtmp->ispriest || mtmp->isminion) {
156.  		killer = priestname(mtmp);
157.  		if (!strncmp(killer, "the ", 4)) Strcat(buf, killer+4);
158.  		else Strcat(buf, killer);
159.  	} else Strcat(buf, mtmp->data->mname);
160.  	if (mtmp->mnamelth) Sprintf(eos(buf), " called %s", NAME(mtmp));
161.  	killer = buf;
162.  	if (mtmp->data->mlet == S_WRAITH)
163.  		u.ugrave_arise = PM_WRAITH;
164.  	else if (mtmp->data->mlet == S_MUMMY)
165.  		u.ugrave_arise = (pl_character[0]=='E') ?
166.  						PM_ELF_MUMMY : PM_HUMAN_MUMMY;
167.  	else if (mtmp->data->mlet == S_VAMPIRE)
168.  		u.ugrave_arise = PM_VAMPIRE;
169.  	if (u.ugrave_arise > -1 && (mons[u.ugrave_arise].geno & G_GENOD))
170.  		u.ugrave_arise = -1;
171.  	if (mtmp->data->mlet == S_COCKATRICE)
172.  		done(STONING);
173.  	else
174.  		done(DIED);
175.  	return;
176.  }
177.  
178.  /*VARARGS1*/
179.  boolean panicking;
180.  extern boolean hu;	/* from save.c */
181.  
182.  void
183.  panic VA_DECL(const char *, str)
184.  	VA_START(str);
185.  	VA_INIT(str, char *);
186.  
187.  	if(panicking++)
188.  #ifdef AMIGA
189.  	    Abort(0);
190.  #else
191.  # ifdef SYSV
192.  	    (void)
193.  # endif
194.  		abort();    /* avoid loops - this should never happen*/
195.  #endif
196.  
197.  	if (flags.window_inited) exit_nhwindows(NULL);
198.  	flags.window_inited = 0; /* they're gone; force raw_print()ing */
199.  
200.  	raw_print(" Suddenly, the dungeon collapses.");
201.  #if defined(WIZARD) && !defined(MICRO)
202.  	if(!wizard) {
203.  	    raw_printf("Report error to %s and it may be possible to rebuild.",
204.  # ifdef WIZARD_NAME	/*(KR1ED)*/
205.  		WIZARD_NAME);
206.  # else
207.  		WIZARD);
208.  # endif
209.  	}
210.  	set_error_savefile();
211.  	hu = FALSE;
212.  	(void) dosave0();
213.  #endif
214.  	{
215.  	    char buf[BUFSZ];
216.  	    Vsprintf(buf,str,VA_ARGS);
217.  	    raw_print(buf);
218.  	}
219.  #if defined(WIZARD) && (defined(UNIX) || defined(VMS) || defined(LATTICE))
220.  	if (wizard)
221.  # ifdef AMIGA
222.  		Abort(0);
223.  # else
224.  #  ifdef SYSV
225.  		(void)
226.  #  endif
227.  		    abort();	/* generate core dump */
228.  # endif
229.  #endif
230.  	VA_END();
231.  	done(PANICKED);
232.  }
233.  
234.  static void
235.  disclose(how,taken)
236.  int how;
237.  boolean taken;
238.  {
239.  	char	c;
240.  	char	qbuf[QBUFSZ];
241.  
242.  	if(invent) {
243.  	    if(taken)
244.  		Sprintf(qbuf,"Do you want to see what you had when you %s?",
245.  			(how == QUIT) ? "quit" : "died");
246.  	    else
247.  		Strcpy(qbuf,"Do you want your possessions identified?");
248.  	    if ((c = yn_function(qbuf, ynqchars, 'y')) == 'y') {
249.  	    /* New dump format by maartenj@cs.vu.nl */
250.  		struct obj *obj;
251.  
252.  		for(obj = invent; obj && !done_stopprint; obj = obj->nobj) {
253.  		    makeknown(obj->otyp);
254.  		    obj->known = obj->bknown = obj->dknown = obj->rknown = 1;
255.  		}
256.  		(void) display_inventory(NULL, FALSE);
257.  		container_contents(invent, TRUE, TRUE);
258.  	    }
259.  	    if (c == 'q')  done_stopprint++;
260.  	    if (taken) {
261.  		/* paybill has already given the inventory locations
262.  		 * in the shop and put it on the main object list
263.  		 */
264.  		struct obj *obj;
265.  
266.  		for(obj = invent; obj; obj = obj->nobj) {
267.  		    obj->owornmask = 0;
268.  		    if(rn2(5)) curse(obj);
269.  		}
270.  		invent = (struct obj *) 0;
271.  	    }
272.  	}
273.  
274.  	if (!done_stopprint) {
275.  	    c = yn_function("Do you want to see your intrinsics?",ynqchars,'y');
276.  	    if (c == 'y') enlightenment(TRUE);	/* final */
277.  	    if (c == 'q') done_stopprint++;
278.  	}
279.  
280.  }
281.  
282.  /* try to get the player back in a viable state after being killed */
283.  static void
284.  savelife(how)
285.  int how;
286.  {
287.  	u.uswldtim = 0;
288.  	u.uhp = u.uhpmax;
289.  	if (u.uhunger < 500) {
290.  	    u.uhunger = 500;
291.  	    newuhs(FALSE);
292.  	}
293.  	if (how == CHOKING) init_uhunger();
294.  	nomovemsg = "You survived that attempt on your life.";
295.  	flags.move = 0;
296.  	if(multi > 0) multi = 0; else multi = -1;
297.  	if(u.utrap && u.utraptype == TT_LAVA) u.utrap = 0;
298.  	flags.botl = 1;
299.  	u.ugrave_arise = -1;
300.  	curs_on_u();
301.  }
302.  
303.  /*
304.   *  Get valuables from the given list. NOTE: The list is destroyed as it is
305.   *  processed, so don't expect to use it again!
306.   */
307.  static struct obj *
308.  get_valuables(list)
309.      struct obj *list;
310.  {
311.      struct obj *obj, *next_obj, *c_vals, *temp;
312.      struct obj *valuables = (struct obj *)0;
313.  
314.      for (obj = list; obj; obj = next_obj) {
315.  	if (Is_container(obj) && obj->cobj) {
316.  	    c_vals = get_valuables(obj->cobj);
317.  
318.  	    if (c_vals) {
319.  		/* find the end of the list */
320.  		for (temp = c_vals; temp->nobj; temp = temp->nobj) ;
321.  
322.  		temp->nobj = valuables;
323.  		valuables = c_vals;
324.  	    }
325.  	}
326.  
327.  	next_obj = obj->nobj;
328.  
329.  	if ((obj->oclass == GEM_CLASS && obj->otyp < LUCKSTONE)
330.  	    || obj->oclass == AMULET_CLASS) {
331.  	    obj->nobj = valuables;
332.  	    valuables = obj;
333.  	}
334.      }
335.      return valuables;
336.  }
337.  
338.  /* Be careful not to call panic from here! */
339.  void
340.  done(how)
341.  int how;
342.  {
343.  	struct permonst *upmon;
344.  	boolean taken;
345.  	char kilbuf[BUFSZ], pbuf[BUFSZ];
346.  	winid endwin = WIN_ERR;
347.  	boolean have_windows = flags.window_inited;
348.  
349.  	/* kilbuf: used to copy killer in case it comes from something like
350.  	 *	xname(), which would otherwise get overwritten when we call
351.  	 *	xname() when listing possessions
352.  	 * pbuf: holds Sprintf'd output for raw_print and putstr
353.  	 */
354.  	if (how == ASCENDED)
355.  		killer_format = NO_KILLER_PREFIX;
356.  	/* Avoid killed by "a" burning or "a" starvation */
357.  	if (!killer && (how == STARVING || how == BURNING))
358.  		killer_format = KILLED_BY;
359.  	Strcpy(kilbuf, (!killer || how >= PANICKED ? deaths[how] : killer));
360.  	killer = kilbuf;
361.  #ifdef WIZARD
362.  	if (wizard && how == TRICKED) {
363.  		You("are a very tricky wizard, it seems.");
364.  		return;
365.  	}
366.  #endif
367.  	if (Lifesaved && how <= GENOCIDED) {
368.  		pline("But wait...");
369.  		makeknown(AMULET_OF_LIFE_SAVING);
370.  		Your("medallion %s!",
371.  		      !Blind ? "begins to glow" : "feels warm");
372.  		if (how == CHOKING) You("vomit ...");
373.  		You("feel much better!");
374.  		pline("The medallion crumbles to dust!");
375.  		useup(uamul);
376.  
377.  		(void) adjattrib(A_CON, -1, TRUE);
378.  		if(u.uhpmax <= 0) u.uhpmax = 10;	/* arbitrary */
379.  		savelife(how);
380.  		if (how == GENOCIDED)
381.  			pline("Unfortunately you are still genocided...");
382.  		else {
383.  			killer = 0;
384.  			return;
385.  		}
386.  	}
387.  #if defined(WIZARD) || defined(EXPLORE_MODE)
388.  	if ((wizard || discover) && how <= GENOCIDED) {
389.  		if(yn("Die?") == 'y') goto die;
390.  		pline("OK, so you don't %s.",
391.  			(how == CHOKING) ? "choke" : "die");
392.  		if(u.uhpmax <= 0) u.uhpmax = u.ulevel * 8;	/* arbitrary */
393.  		savelife(how);
394.  		killer = 0;
395.  		return;
396.  	}
397.  #endif /* WIZARD || EXPLORE_MODE */
398.  	/* Sometimes you die on the first move.  Life's not fair.
399.  	 * On those rare occasions you get hosed immediately, go out
400.  	 * smiling... :-)  -3.
401.  	 */
402.  	if (moves <= 1 && how < QUIT)
403.  	    /* You die... --More-- */
404.  	    pline("Do not pass go.  Do not collect 200 zorkmids.");
405.  
406.  die:
407.  	if (have_windows) wait_synch();	/* flush screen output */
408.  #ifndef NO_SIGNAL
409.  	(void) signal(SIGINT, (SIG_RET_TYPE) done_intr);
410.  # if defined(UNIX) || defined(VMS)
411.  	(void) signal(SIGQUIT, (SIG_RET_TYPE) done_intr);
412.  	(void) signal(SIGHUP, (SIG_RET_TYPE) done_hangup);
413.  # endif
414.  #endif /* NO_SIGNAL /* */
415.  #ifdef POLYSELF
416.  	if (u.mtimedone)
417.  	    upmon = uasmon;
418.  	else
419.  #endif
420.  	upmon = player_mon();
421.  
422.  	if (u.ugrave_arise < 0) { /* >= 0 means create no corpse */
423.  	    if (how == STONING)
424.  		u.ugrave_arise = -2;
425.  
426.  /*
427.   * If you're burned to a crisp, why leave a corpse?
428.   */
429.  	    else if (how != BURNING && how != PANICKED)
430.  		(void) mk_named_object(CORPSE, upmon, u.ux, u.uy, plname,
431.  							(int)strlen(plname));
432.  	}
433.  
434.  	if (how == QUIT) {
435.  		killer_format = NO_KILLER_PREFIX;
436.  		if (u.uhp < 1) {
437.  			how = DIED;
438.  /* note that killer is pointing at kilbuf */
439.  			Strcpy(kilbuf, "quit while already on Charon's boat");
440.  		}
441.  	}
442.  	if (how == ESCAPED || how == PANICKED)
443.  		killer_format = NO_KILLER_PREFIX;
444.  
445.  	/* paybill() must be called unconditionally, or strange things will
446.  	 * happen to bones levels */
447.  	taken = paybill(how != QUIT);
448.  	paygd();
449.  	clearlocks();
450.  #ifdef AMIGA
451.  	clear_icon();
452.  #endif
453.  	if (have_windows) display_nhwindow(WIN_MESSAGE, FALSE);
454.  
455.  	if (flags.end_disclose && how != PANICKED) disclose(how,taken);
456.  
457.  	if (how < GENOCIDED) {
458.  #ifdef WIZARD
459.  	    if (!wizard || yn("Save bones?") == 'y')
460.  #endif
461.  		savebones();
462.  	}
463.  
464.  	/* clean up unneeded windows */
465.  	if (have_windows) {
466.  	    destroy_nhwindow(WIN_MAP);
467.  	    destroy_nhwindow(WIN_STATUS);
468.  	    destroy_nhwindow(WIN_MESSAGE);
469.  
470.  	    if(!done_stopprint || flags.tombstone)
471.  		endwin = create_nhwindow(NHW_TEXT);
472.  
473.  	    if(how < GENOCIDED && flags.tombstone) outrip(how, endwin);
474.  	} else
475.  	    done_stopprint = 1; /* just avoid any more output */
476.  
477.  /* changing kilbuf really changes killer. we do it this way because
478.     killer is declared a (const char *)
479.  */
480.  	if (u.uhave.amulet) Strcat(kilbuf, " (with the Amulet)");
481.  	if (!done_stopprint) {
482.  	    Sprintf(pbuf, "%s %s the %s...",
483.  		   (pl_character[0]=='S') ? "Sayonara" : "Goodbye", plname,
484.  		   how != ASCENDED ? (const char *) pl_character :
485.  		   (const char *) (flags.female ? "Demigoddess" : "Demigod"));
486.  	    putstr(endwin, 0, pbuf);
487.  	    putstr(endwin, 0, "");
488.  	}
489.  	{   long tmp;
490.  	    int deepest = deepest_lev_reached(FALSE);
491.  
492.  	    u.ugold += hidden_gold();	/* accumulate gold from containers */
493.  	    tmp = u.ugold - u.ugold0;
494.  	    if (tmp < 0L)
495.  		tmp = 0L;
496.  	    if (how < PANICKED)
497.  		tmp -= tmp / 10L;
498.  	    u.urexp += tmp;
499.  	    u.urexp += 50L * (long)(deepest - 1);
500.  	    if (deepest > 20)
501.  		u.urexp += 1000L * (long)((deepest > 30) ? 10 : deepest - 20);
502.  	    if (how == ASCENDED) u.urexp *= 2L;
503.  	}
504.  	if (how == ESCAPED || how == ASCENDED) {
505.  		register struct monst *mtmp;
506.  		register struct obj *otmp;
507.  		struct obj *jewels;
508.  		long i;
509.  		register long worthlessct = 0;
510.  
511.  		/*
512.  		 *  Put items that count into the jewels chain.  Rewriting
513.  		 *  the invent chain and all the container chains (within
514.  		 *  invent) here is safe.  They will never be used again.
515.  		 */
516.  		jewels = get_valuables(invent);
517.  
518.  		/* add points for jewels */
519.  		for(otmp = jewels; otmp; otmp = otmp->nobj) {
520.  			if(otmp->oclass == GEM_CLASS)
521.  				u.urexp += otmp->quan *
522.  					    objects[otmp->otyp].oc_cost;
523.  			else	/* amulet */
524.  				u.urexp += objects[otmp->otyp].oc_cost;
525.  		}
526.  
527.  		keepdogs();
528.  		viz_array[0][0] |= IN_SIGHT; /* need visibility for naming */
529.  		mtmp = mydogs;
530.  		if(!done_stopprint) Strcpy(pbuf, "You");
531.  		if(mtmp) {
532.  			while(mtmp) {
533.  				if(!done_stopprint) {
534.  				    Strcat(pbuf, " and ");
535.  				    Strcat(pbuf, mon_nam(mtmp));
536.  				}
537.  				if(mtmp->mtame)
538.  					u.urexp += mtmp->mhp;
539.  				mtmp = mtmp->nmon;
540.  			}
541.  			if(!done_stopprint)
542.  				putstr(endwin, 0, pbuf);
543.  			pbuf[0] = 0;
544.  		} else {
545.  			if(!done_stopprint)
546.  				Strcat(pbuf, " ");
547.  		}
548.  		if(!done_stopprint) {
549.  			Sprintf(eos(pbuf),
550.  				"%s with %ld point%s,",
551.  				how==ASCENDED ? "went to your reward"
552.  				: "escaped from the dungeon",
553.  				u.urexp, plur(u.urexp));
554.  			putstr(endwin, 0, pbuf);
555.  		}
556.  
557.  		/* print jewels chain here */
558.  		for(otmp = jewels; otmp; otmp = otmp->nobj) {
559.  			makeknown(otmp->otyp);
560.  			if(otmp->oclass == GEM_CLASS &&
561.  			   otmp->otyp < LUCKSTONE) {
562.  				i = otmp->quan *
563.  					objects[otmp->otyp].oc_cost;
564.  				if(i == 0) {
565.  					worthlessct += otmp->quan;
566.  					continue;
567.  				}
568.  			} else {		/* amulet */
569.  				otmp->known = 1;
570.  				i = objects[otmp->otyp].oc_cost;
571.  			}
572.  			if(!done_stopprint) {
573.  			    Sprintf(pbuf, "        %s (worth %ld zorkmids),",
574.  				    doname(otmp), i);
575.  			    putstr(endwin, 0, pbuf);
576.  			}
577.  		}
578.  		if(worthlessct && !done_stopprint) {
579.  		    Sprintf(pbuf,
580.  			  "        %ld worthless piece%s of colored glass,",
581.  			  worthlessct, plur(worthlessct));
582.  		    putstr(endwin, 0, pbuf);
583.  		}
584.  	} else if (!done_stopprint) {
585.  		Strcpy(pbuf, "You ");
586.  		Strcat(pbuf, ends[how]);
587.  		if (how != ASCENDED) {
588.  		    Strcat(pbuf, " in ");
589.  		    if (Is_astralevel(&u.uz))
590.  			Strcat(pbuf, "The Astral Plane");
591.  		    else Strcat(pbuf, dungeons[u.uz.dnum].dname);
592.  		    Strcat(pbuf, " ");
593.  		    if (!In_endgame(&u.uz)
594.  #ifdef MULDGN
595.  					       && !Is_knox(&u.uz)
596.  #endif
597.  			)
598.  			Sprintf(eos(pbuf), "on dungeon level %d ", (
599.  #ifdef MULDGN
600.  						 In_quest(&u.uz) ?
601.  						    dunlev(&u.uz) :
602.  #endif
603.  						    depth(&u.uz)));
604.  		}
605.  		Sprintf(eos(pbuf),
606.  			"with %ld point%s,", u.urexp, plur(u.urexp));
607.  		putstr(endwin, 0, pbuf);
608.  	}
609.  	if (!done_stopprint) {
610.  	    Sprintf(pbuf, "and %ld piece%s of gold, after %ld move%s.",
611.  		    u.ugold, plur(u.ugold), moves, plur(moves));
612.  	    putstr(endwin, 0, pbuf);
613.  	}
614.  	if (!done_stopprint) {
615.  	    Sprintf(pbuf,
616.  	     "You were level %u with a maximum of %d hit point%s when you %s.",
617.  		    u.ulevel, u.uhpmax, plur(u.uhpmax), ends[how]);
618.  	    putstr(endwin, 0, pbuf);
619.  	    putstr(endwin, 0, "");
620.  	}
621.  #if (defined(WIZARD) || defined(EXPLORE_MODE))
622.  # ifndef LOGFILE
623.  	if (wizard || discover) {
624.  	    if (!done_stopprint) {
625.  		putstr(endwin, 0, "");
626.  		Sprintf(pbuf, "Since you were in %s mode, the score list \
627.  will not be checked.", wizard ? "wizard" : "discover");
628.  		putstr(endwin, 0, pbuf);
629.  		putstr(endwin, 0, "");
630.  		display_nhwindow(endwin, TRUE);
631.  	    }
632.  	    if (have_windows)
633.  		exit_nhwindows(NULL);
634.  	} else
635.  # endif
636.  #endif
637.  	{
638.  	    if (!done_stopprint)
639.  		display_nhwindow(endwin, TRUE);
640.  	    if (have_windows)
641.  		exit_nhwindows(NULL);
642.  /* "So when I die, the first thing I will see in Heaven is a score list?" */
643.  	    topten(how);
644.  	}
645.  	if(done_stopprint) { raw_print(""); raw_print(""); }
646.  	terminate(0);
647.  }
648.  
649.  
650.  #ifdef NOSAVEONHANGUP
651.  int
652.  hangup()
653.  {
654.  	(void) signal(SIGINT, SIG_IGN);
655.  	clearlocks();
656.  # ifndef VMS
657.  	terminate(1);
658.  # endif
659.  }
660.  #endif
661.  
662.  
663.  void
664.  container_contents(list, identified, all_containers)
665.  	struct obj *list;
666.  	boolean identified, all_containers;
667.  {
668.  	register struct obj *box, *obj;
669.  	char buf[BUFSZ];
670.  
671.  	for (box = list; box; box = box->nobj) {
672.  	    if (Is_container(box) && box->otyp != BAG_OF_TRICKS) {
673.  		if (box->cobj) {
674.  		    winid tmpwin = create_nhwindow(NHW_MENU);
675.  		    Sprintf(buf, "Contents of the %s:", xname(box));
676.  		    putstr(tmpwin, 0, buf); putstr(tmpwin, 0, "");
677.  		    for (obj = box->cobj; obj; obj = obj->nobj) {
678.  			if (identified) {
679.  			    makeknown(obj->otyp);
680.  			    obj->known = obj->bknown = obj->dknown = 1;
681.  			}
682.  			putstr(tmpwin, 0, doname(obj));
683.  		    }
684.  		    display_nhwindow(tmpwin, TRUE);
685.  		    destroy_nhwindow(tmpwin);
686.  		    if (all_containers)
687.  			container_contents(box->cobj, identified, TRUE);
688.  		} else {
689.  		    pline("%s is empty.", The(xname(box)));
690.  		    display_nhwindow(WIN_MESSAGE, FALSE);
691.  		}
692.  	    }
693.  	    if (!all_containers)
694.  		break;
695.  	}
696.  }
697.  
698.  void
699.  terminate(status)
700.  int status;
701.  {
702.  #ifdef MAC
703.  	if (!hu) {
704.  		int idx;
705.  		for (idx = theWindows[BASE_WINDOW].windowTextLen; --idx >= 0; )
706.  			/* If there is something to show... */
707.  			if (((unsigned char *)*theWindows[BASE_WINDOW].windowText)[idx] > ' ') {
708.  				display_nhwindow(BASE_WINDOW, TRUE);
709.  				break;
710.  			}
711.  	}
712.  #endif
713.  	exit(status);
714.  }
715.  
716.  /*end.c*/