1 /* 2 * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. 3 */ 4 5 #ifndef lint 6 static char rcsid[] = "$NetBSD: hack.bones.c,v 1.3 1995/03/23 08:29:48 cgd Exp $"; 7 #endif /* not lint */ 8 9 #include "hack.h" 10 extern char plname[PL_NSIZ]; 11 extern long somegold(); 12 extern struct monst *makemon(); 13 extern struct permonst pm_ghost; 14 15 char bones[] = "bones_xx"; 16 17 /* save bones and possessions of a deceased adventurer */ 18 savebones(){ 19 register fd; 20 register struct obj *otmp; 21 register struct trap *ttmp; 22 register struct monst *mtmp; 23 if(dlevel <= 0 || dlevel > MAXLEVEL) return; 24 if(!rn2(1 + dlevel/2)) return; /* not so many ghosts on low levels */ 25 bones[6] = '0' + (dlevel/10); 26 bones[7] = '0' + (dlevel%10); 27 if((fd = open(bones,0)) >= 0){ 28 (void) close(fd); 29 return; 30 } 31 /* drop everything; the corpse's possessions are usually cursed */ 32 otmp = invent; 33 while(otmp){ 34 otmp->ox = u.ux; 35 otmp->oy = u.uy; 36 otmp->age = 0; /* very long ago */ 37 otmp->owornmask = 0; 38 if(rn2(5)) otmp->cursed = 1; 39 if(!otmp->nobj){ 40 otmp->nobj = fobj; 41 fobj = invent; 42 invent = 0; /* superfluous */ 43 break; 44 } 45 otmp = otmp->nobj; 46 } 47 if(!(mtmp = makemon(PM_GHOST, u.ux, u.uy))) return; 48 mtmp->mx = u.ux; 49 mtmp->my = u.uy; 50 mtmp->msleep = 1; 51 (void) strcpy((char *) mtmp->mextra, plname); 52 mkgold(somegold() + d(dlevel,30), u.ux, u.uy); 53 for(mtmp = fmon; mtmp; mtmp = mtmp->nmon){ 54 mtmp->m_id = 0; 55 if(mtmp->mtame) { 56 mtmp->mtame = 0; 57 mtmp->mpeaceful = 0; 58 } 59 mtmp->mlstmv = 0; 60 if(mtmp->mdispl) unpmon(mtmp); 61 } 62 for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) 63 ttmp->tseen = 0; 64 for(otmp = fobj; otmp; otmp = otmp->nobj) { 65 otmp->o_id = 0; 66 /* otmp->o_cnt_id = 0; - superfluous */ 67 otmp->onamelth = 0; 68 otmp->known = 0; 69 otmp->invlet = 0; 70 if(otmp->olet == AMULET_SYM && !otmp->spe) { 71 otmp->spe = -1; /* no longer the actual amulet */ 72 otmp->cursed = 1; /* flag as gotten from a ghost */ 73 } 74 } 75 if((fd = creat(bones, FMASK)) < 0) return; 76 savelev(fd,dlevel); 77 (void) close(fd); 78 } 79 80 getbones(){ 81 register fd,x,y,ok; 82 if(rn2(3)) return(0); /* only once in three times do we find bones */ 83 bones[6] = '0' + dlevel/10; 84 bones[7] = '0' + dlevel%10; 85 if((fd = open(bones, 0)) < 0) return(0); 86 if((ok = uptodate(fd)) != 0){ 87 getlev(fd, 0, dlevel); 88 for(x = 0; x < COLNO; x++) for(y = 0; y < ROWNO; y++) 89 levl[x][y].seen = levl[x][y].new = 0; 90 } 91 (void) close(fd); 92 #ifdef WIZARD 93 if(!wizard) /* duvel!frans: don't remove bones while debugging */ 94 #endif WiZARD 95 if(unlink(bones) < 0){ 96 pline("Cannot unlink %s .", bones); 97 return(0); 98 } 99 return(ok); 100 } 101