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