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