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