home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / src / bones.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-07  |  9.2 KB  |  386 lines
  1. /*    SCCS Id: @(#)bones.c    3.1    93/01/07    */
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985,1993. */
  3. /* NetHack may be freely redistributed.  See license for details. */
  4.  
  5. #include "hack.h"
  6. #include "lev.h"
  7.  
  8. #ifdef MFLOPPY
  9. extern char bones[];    /* from files.c */
  10. extern long bytes_counted;
  11. #endif
  12.  
  13. static boolean FDECL(no_bones_level, (d_level *));
  14. #ifdef TUTTI_FRUTTI
  15. static void FDECL(goodfruit, (int));
  16. #endif
  17. static void FDECL(resetobjs,(struct obj *,BOOLEAN_P));
  18. static void FDECL(drop_upon_death, (struct monst *, struct obj *));
  19.  
  20. static boolean
  21. no_bones_level(lev)
  22. d_level *lev;
  23. {
  24.     extern d_level save_dlevel;        /* in do.c */
  25.     s_level *sptr;
  26.  
  27.     if (ledger_no(&save_dlevel)) assign_level(lev, &save_dlevel);
  28.  
  29.     return (((sptr = Is_special(lev)) && !sptr->boneid)
  30.         || !dungeons[lev->dnum].boneid
  31.            /* no bones on the last or multiway branch levels */
  32.            /* in any dungeon (level 1 isn't multiway).       */
  33.         || Is_botlevel(lev) || (Is_branchlev(lev) && lev->dlevel > 1)
  34.            /* no bones in the invocation level               */
  35.         || (In_hell(lev) && lev->dlevel == dunlevs_in_dungeon(lev) - 1)
  36.         );
  37. }
  38.  
  39. #ifdef TUTTI_FRUTTI
  40. static void
  41. goodfruit(id)
  42. int id;
  43. {
  44.     register struct fruit *f;
  45.  
  46.     for(f=ffruit; f; f=f->nextf) {
  47.         if(f->fid == -id) {
  48.             f->fid = id;
  49.             return;
  50.         }
  51.     }
  52. }
  53. #endif
  54.  
  55. static void
  56. resetobjs(ochain,restore)
  57. struct obj *ochain;
  58. boolean restore;
  59. {
  60.     struct obj *otmp;
  61.  
  62.     for (otmp = ochain; otmp; otmp = otmp->nobj) {
  63.         if (otmp->cobj)
  64.             resetobjs(otmp->cobj,restore);
  65.  
  66.         if (((otmp->otyp != CORPSE || otmp->corpsenm < PM_ARCHEOLOGIST)
  67.             && otmp->otyp != STATUE)
  68.             && (!otmp->oartifact ||
  69.                 (exist_artifact(otmp->otyp,ONAME(otmp)) && restore))) {
  70.             otmp->oartifact = 0;
  71.             otmp->onamelth = 0;
  72.             *ONAME(otmp) = '\0';
  73.         } else if (otmp->oartifact && restore)
  74.             artifact_exists(otmp,ONAME(otmp),TRUE);
  75.         if (!restore) {
  76.             /* resetting the o_id's after getlev has carefully
  77.              * created proper new ones via restobjchn is a Bad
  78.              * Idea */
  79.             otmp->o_id = 0;
  80.             if(objects[otmp->otyp].oc_uses_known) otmp->known = 0;
  81.             otmp->dknown = otmp->bknown = 0;
  82.             otmp->rknown = 0;
  83.             otmp->invlet = 0;
  84. #ifdef TUTTI_FRUTTI
  85.             if(otmp->otyp == SLIME_MOLD) goodfruit(otmp->spe);
  86. #endif
  87. #ifdef MAIL
  88.             if (otmp->otyp == SCR_MAIL) otmp->spe = 1;
  89. #endif
  90. #ifdef POLYSELF
  91.             if (otmp->otyp == EGG) otmp->spe = 0;
  92. #endif
  93.             if(otmp->otyp == AMULET_OF_YENDOR) {
  94.                 /* no longer the actual amulet */
  95.                 otmp->otyp = FAKE_AMULET_OF_YENDOR;
  96.                 curse(otmp);
  97.             }
  98.             if(otmp->otyp == CANDELABRUM_OF_INVOCATION) {
  99.                 if(otmp->spe > 0) { /* leave candles, if any */
  100.                     otmp->otyp = WAX_CANDLE;
  101.                 otmp->age = 50L;  /* assume used */
  102.                 otmp->quan = (long)otmp->spe;
  103.                 otmp->lamplit = 0;
  104.                 otmp->spe = 0;
  105.                 } else obfree(otmp, (struct obj *)0);
  106.             }
  107.             if(otmp->otyp == BELL_OF_OPENING) otmp->otyp = BELL;
  108.             if(otmp->otyp == SPE_BOOK_OF_THE_DEAD) {
  109.                 otmp->otyp = SPE_MAGIC_MISSILE +
  110.                                 rn2(SPE_BLANK_PAPER -
  111.                           SPE_MAGIC_MISSILE + 1);
  112.                 curse(otmp);
  113.             }
  114.         }
  115.     }            
  116. }
  117.  
  118. static void
  119. drop_upon_death(mtmp, cont)
  120. struct monst *mtmp;
  121. struct obj *cont;
  122. {
  123.     struct obj *otmp = invent;
  124.     while(otmp) {
  125.         otmp->owornmask = 0;
  126.         otmp->lamplit = 0;
  127. #ifdef TUTTI_FRUTTI
  128.         if(otmp->otyp == SLIME_MOLD) goodfruit(otmp->spe);
  129. #endif
  130.         if(rn2(5)) curse(otmp);
  131.         if(!mtmp && !cont) place_object(otmp, u.ux, u.uy);
  132.         if(!otmp->nobj) {
  133.             if (mtmp) {
  134.                 otmp->nobj = mtmp->minvent;
  135.                 mtmp->minvent = invent;
  136.             } else if (cont) {
  137.                 otmp->nobj = cont->cobj;
  138.                 cont->cobj = invent;
  139.             } else {
  140.                 otmp->nobj = fobj;
  141.                 fobj = invent;
  142.             }
  143.             invent = 0;    /* superfluous */
  144.             break;
  145.         }
  146.         otmp = otmp->nobj;
  147.     }
  148.     if(u.ugold) {
  149.         if (mtmp) mtmp->mgold = u.ugold;
  150.         else mkgold(u.ugold, u.ux, u.uy);
  151.     }
  152. }
  153.  
  154. /* save bones and possessions of a deceased adventurer */
  155. void
  156. savebones()
  157. {
  158.     register int fd, x, y;
  159.     register struct trap *ttmp;
  160.     register struct monst *mtmp, *mtmp2;
  161. #ifdef TUTTI_FRUTTI
  162.     struct fruit *f;
  163. #endif
  164.     char *bonesid;
  165.  
  166.     if(ledger_no(&u.uz) <= 0 || ledger_no(&u.uz) > maxledgerno()) return;
  167.     if(no_bones_level(&u.uz)) return; /* no bones for specific levels */
  168.     if(!rn2(1 + (depth(&u.uz)>>2)) /* fewer ghosts on low levels */
  169. #ifdef WIZARD
  170.         && !wizard
  171. #endif
  172.         ) return;
  173. #ifdef EXPLORE_MODE
  174.     /* don't let multiple restarts generate multiple copies of objects
  175.      * in bones files */
  176.     if(discover) return;
  177. #endif
  178.  
  179.     fd = open_bonesfile(&u.uz, &bonesid);
  180.     if (fd >= 0) {
  181.         (void) close(fd);
  182.         compress_bonesfile();
  183. #ifdef WIZARD
  184.         if(wizard)
  185.             pline("Bones file already exists.");
  186. #endif
  187.         return;
  188.     }
  189.  
  190. #ifdef WALKIES
  191.     unleash_all();
  192. #endif
  193.     /* in case these characters are not in their home bases */
  194.     mtmp2 = fmon;
  195.     while((mtmp = mtmp2)) {
  196.         mtmp2 = mtmp->nmon;
  197.         if(mtmp->iswiz || mtmp->data == &mons[PM_MEDUSA]) mongone(mtmp);
  198.     }
  199. #ifdef TUTTI_FRUTTI
  200.     /* mark all fruits as nonexistent; when we come to them we'll mark
  201.      * them as existing (using goodfruit())
  202.      */
  203.     for(f=ffruit; f; f=f->nextf) f->fid = -f->fid;
  204. #endif
  205.  
  206.     /* check iron balls separately--maybe they're not carrying it */
  207.     if (uball) uball->owornmask = uchain->owornmask = 0;
  208.  
  209.     /* dispose of your possessions, usually cursed */
  210.     if (u.ugrave_arise == -2) {
  211.         struct obj *otmp;
  212.  
  213.         /* embed your possessions in your statue */
  214.         otmp = mk_named_object(STATUE,
  215. #ifdef POLYSELF
  216.                     u.mtimedone ? uasmon :
  217. #endif
  218.                     player_mon(), 
  219.                     u.ux, u.uy, plname,
  220.                     (int)strlen(plname));
  221.         if (!otmp) return;
  222.         drop_upon_death(mtmp = (struct monst *)0, otmp);
  223.     } else if (u.ugrave_arise == -1) {
  224.         /* drop everything */
  225.         drop_upon_death((struct monst *)0, (struct obj *)0);
  226.         /* trick makemon() into allowing monster creation
  227.          * on your location
  228.          */
  229.         in_mklev = TRUE;
  230.         mtmp = makemon(&mons[PM_GHOST], u.ux, u.uy);
  231.         in_mklev = FALSE;
  232.         if (!mtmp) return;
  233.         Strcpy((char *) mtmp->mextra, plname);
  234.     } else {
  235.         /* give your possessions to the monster you become */
  236.         in_mklev = TRUE;
  237.         mtmp = makemon(&mons[u.ugrave_arise], u.ux, u.uy);
  238.         in_mklev = FALSE;
  239.         if (!mtmp) return;
  240.         mtmp = christen_monst(mtmp, plname);
  241.         newsym(u.ux, u.uy);
  242.         Your("body rises from the dead as %s...",
  243.             an(mons[u.ugrave_arise].mname));
  244.         display_nhwindow(WIN_MESSAGE, FALSE);
  245.         drop_upon_death(mtmp, (struct obj *)0);
  246. #ifdef MUSE
  247.         m_dowear(mtmp, TRUE);
  248. #endif
  249.     }
  250.     if (mtmp) {
  251.         mtmp->m_lev = (u.ulevel ? u.ulevel : 1);
  252.         mtmp->mhp = mtmp->mhpmax = u.uhpmax;
  253.         mtmp->msleep = 1;
  254.     }
  255.     for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  256.         resetobjs(mtmp->minvent,FALSE);
  257.         mtmp->m_id = 0;
  258.         mtmp->mlstmv = 0L;
  259.         if(mtmp->mtame) mtmp->mtame = mtmp->mpeaceful = 0;
  260.     }
  261.     for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) {
  262.             if(ttmp->ttyp == MAGIC_PORTAL) deltrap(ttmp);
  263.         ttmp->tseen = 0;
  264.     }
  265.     resetobjs(fobj,FALSE);
  266.  
  267.     /* Clear all memory from the level. */
  268.     for(x=0; x<COLNO; x++) for(y=0; y<ROWNO; y++) {
  269.         levl[x][y].seen = levl[x][y].waslit = 0;
  270.         levl[x][y].glyph = cmap_to_glyph(S_stone);
  271.     }
  272.  
  273.     fd = create_bonesfile(&u.uz, &bonesid);
  274.     if(fd < 0) {
  275. #ifdef WIZARD
  276.         if(wizard)
  277.             pline("Cannot create bones file - create failed");
  278. #endif
  279.         return;
  280.     }
  281.  
  282.     bufon(fd);
  283. #ifdef MFLOPPY  /* check whether there is room */
  284.     savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
  285. # ifdef TUTTI_FRUTTI
  286.     /* this is in the opposite order from the real save, but savelev()
  287.      * initializes bytes_counted to 0, so doing savefruitchn() first is
  288.      * useless; the extra bflush() at the end of savelev() may increase
  289.      * bytes_counted by a couple over what the real usage will be
  290.      */
  291.     savefruitchn(fd, COUNT_SAVE);
  292.     bflush(fd);
  293. # endif
  294.     if (bytes_counted > freediskspace(bones)) {    /* not enough room */
  295. # ifdef WIZARD
  296.         if (wizard)
  297.             pline("Insufficient space to create bones file.");
  298. # endif
  299.         (void) close(fd);
  300.         delete_bonesfile(&u.uz);
  301.         return;
  302.     }
  303.     co_false();    /* make sure bonesid and savefruitchn get written */
  304. #endif /* MFLOPPY */
  305.  
  306.     bwrite(fd, (genericptr_t) bonesid, 7);    /* DD.nnn */
  307. #ifdef TUTTI_FRUTTI
  308.     savefruitchn(fd, WRITE_SAVE | FREE_SAVE);
  309. #endif
  310.     savelev(fd, ledger_no(&u.uz), WRITE_SAVE | FREE_SAVE);
  311.     bclose(fd);
  312.     compress_bonesfile();
  313. }
  314.  
  315. int
  316. getbones()
  317. {
  318.     register int fd;
  319.     register int ok;
  320.     char *bonesid, oldbonesid[7];
  321.  
  322. #ifdef EXPLORE_MODE
  323.     if(discover)        /* save bones files for real games */
  324.         return(0);
  325. #endif
  326.     /* wizard check added by GAN 02/05/87 */
  327.     if(rn2(3)    /* only once in three times do we find bones */
  328. #ifdef WIZARD
  329.         && !wizard
  330. #endif
  331.         ) return(0);
  332.     if(no_bones_level(&u.uz)) return(0);
  333.     fd = open_bonesfile(&u.uz, &bonesid);
  334.     if (fd < 0) return(0);
  335.  
  336.     if((ok = uptodate(fd)) != 0){
  337. #ifdef WIZARD
  338.         if(wizard)  {
  339.             if(yn("Get bones?") == 'n') {
  340.                 (void) close(fd);
  341.                 compress_bonesfile();
  342.                 return(0);
  343.             }
  344.         }
  345. #endif
  346.         minit();    /* ZEROCOMP */
  347.         mread(fd, (genericptr_t) oldbonesid, 7);    /* DD.nnn */
  348.         if (strcmp(bonesid, oldbonesid)) {
  349. #ifdef WIZARD
  350.             if (wizard) {
  351.                 pline("This is bones level '%s', not '%s'!",
  352.                     oldbonesid, bonesid);
  353.                 ok = FALSE;    /* won't die of trickery */
  354.             }
  355. #endif
  356.             trickery();
  357.         } else {
  358.             register struct monst *mtmp;
  359.  
  360.             getlev(fd, 0, 0, TRUE);
  361.  
  362.             /* to correctly reset named artifacts on the level */
  363.             for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  364.                 resetobjs(mtmp->minvent,TRUE);
  365.             resetobjs(fobj,TRUE);
  366.         }
  367.     }
  368.     (void) close(fd);
  369.  
  370. #ifdef WIZARD
  371.     if(wizard) {
  372.         if(yn("Unlink bones?") == 'n') {
  373.             compress_bonesfile();
  374.             return(ok);
  375.         }
  376.     }
  377. #endif
  378.     if (!delete_bonesfile(&u.uz)) {
  379.         pline("Cannot unlink bones.");
  380.         return(0);
  381.     }
  382.     return(ok);
  383. }
  384.  
  385. /*bones.c*/
  386.