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
);