src/end.c

   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
   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
  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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
 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
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
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*/