games/hack/hack.bones.c

   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 }