1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.bones.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.bones.c,v 1.4 1999/11/16 10:26:35 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.bones.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */
8 char bones[] = "bones_xx";
10 /* save bones and possessions of a deceased adventurer */
19 if (dlevel <= 0 || dlevel > MAXLEVEL)
21 if (!rn2(1 + dlevel / 2)) /* not so many ghosts on low levels */
23 bones[6] = '0' + (dlevel / 10);
24 bones[7] = '0' + (dlevel % 10);
25 if ((fd = open(bones, O_RDONLY)) >= 0) {
29 /* drop everything; the corpse's possessions are usually cursed */
34 otmp->age = 0; /* very long ago */
41 invent = 0; /* superfluous */
46 if (!(mtmp = makemon(PM_GHOST, u.ux, u.uy)))
51 strcpy((char *)mtmp->mextra, plname);
52 mkgold(somegold() + d(dlevel, 30), u.ux, u.uy);
53 for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
63 for (ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
65 for (otmp = fobj; otmp; otmp = otmp->nobj) {
67 /* otmp->o_cnt_id = 0; - superfluous */
71 if (otmp->olet == AMULET_SYM && !otmp->spe) {
72 otmp->spe = -1; /* no longer the actual amulet */
73 otmp->cursed = 1; /* flag as gotten from a ghost */
76 if ((fd = creat(bones, FMASK)) < 0)
87 if (rn2(3)) /* only once in three times do we find bones */
89 bones[6] = '0' + dlevel / 10;
90 bones[7] = '0' + dlevel % 10;
91 if ((fd = open(bones, O_RDONLY)) < 0)
93 if ((ok = uptodate(fd)) != 0) {
94 getlev(fd, 0, dlevel);
95 for (x = 0; x < COLNO; x++)
96 for (y = 0; y < ROWNO; y++)
97 levl[x][y].seen = levl[x][y].new = 0;
101 if (!wizard) /* duvel!frans: don't remove bones while debugging */
103 if (unlink(bones) < 0) {
104 pline("Cannot unlink %s .", bones);