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