src/bones.c

   1 /*      SCCS Id: @(#)bones.c    3.4     2003/09/06      */
   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 extern char bones[];    /* from files.c */
   9 #ifdef MFLOPPY
  10 extern long bytes_counted;
  11 #endif
  12
  13 STATIC_DCL boolean no_bones_level(d_level *);
  14 STATIC_DCL void goodfruit(int);
  15 STATIC_DCL void resetobjs(struct obj *,BOOLEAN_P);
  16 STATIC_DCL void drop_upon_death(struct monst *, struct obj *);
  17
  18 STATIC_OVL boolean
  19 no_bones_level(lev)
  20 d_level *lev;
  21 {
  22         extern d_level save_dlevel;             /* in do.c */
  23         s_level *sptr;
  24
  25         if (ledger_no(&save_dlevel)) assign_level(lev, &save_dlevel);
  26
  27         return (boolean)(((sptr = Is_special(lev)) != 0 && !sptr->boneid)
  28                 || !dungeons[lev->dnum].boneid
  29                 || (iszapem && !(u.zapemescape) && In_spacebase(lev) && lev->dlevel < 3)
  30                 || (u.preversionmode && !u.preversionescape && In_greencross(lev) && lev->dlevel < 3)
  31                 || (u.freeplaymode) /* otherwise you could just kill yourself on purpose to give ascension kits to chars */
  32                 || (flags.lostsoul && In_dod(lev) && lev->dlevel == (depth(&medusa_level) - 1) )
  33                 || (flags.lostsoul && In_dod(lev) && lev->dlevel == (depth(&medusa_level)) )
  34                 || (flags.lostsoul && In_dod(lev) && lev->dlevel == (depth(&medusa_level) + 1) )
  35                 || (flags.uberlostsoul && In_gehennom(lev) && (lev->dlevel == 23 || lev->dlevel == 24 || lev->dlevel == 25))
  36                    /* no bones on the last or multiway branch levels */
  37                    /* in any dungeon (level 1 isn't multiway).       */
  38                 || (Is_botlevel(lev) && In_V_tower(lev) ) || (Is_branchlev(lev) && lev->dlevel > 1 && !In_sokoban(lev) && !In_towndungeon(lev) )
  39                 || (lev->dlevel < 2 && In_V_tower(lev) )  /* no bones on 1st level */
  40                    /* no bones in the invocation level               */
  41                 || (In_gehennom(lev) && lev->dlevel == dunlevs_in_dungeon(lev) - 1)
  42                 );
  43 }
  44
  45 /* Call this function for each fruit object saved in the bones level: it marks
  46  * that particular type of fruit as existing (the marker is that that type's
  47  * ID is positive instead of negative).  This way, when we later save the
  48  * chain of fruit types, we know to only save the types that exist.
  49  */
  50 STATIC_OVL void
  51 goodfruit(id)
  52 int id;
  53 {
  54         register struct fruit *f;
  55
  56         for(f=ffruit; f; f=f->nextf) {
  57                 if(f->fid == -id) {
  58                         f->fid = id;
  59                         return;
  60                 }
  61         }
  62 }
  63
  64 STATIC_OVL void
  65 resetobjs(ochain,restore)
  66 struct obj *ochain;
  67 boolean restore;
  68 {
  69         struct obj *otmp;
  70
  71         for (otmp = ochain; otmp; otmp = otmp->nobj) {
  72
  73                 /* prevent player from depositing a ton of stuff in a chest somewhere --Amy */
  74                 if (Has_contents(otmp)) delete_contents(otmp);
  75
  76                 if (otmp->cobj)
  77                     resetobjs(otmp->cobj,restore);
  78
  79                 if (((otmp->otyp != CORPSE || otmp->corpsenm < SPECIAL_PM)
  80                         && otmp->otyp != STATUE)
  81                         && (!otmp->oartifact ||
  82                            (restore && (exist_artifact(otmp->otyp, ONAME(otmp))
  83                                         || is_quest_artifact(otmp))))) {
  84                         otmp->oartifact = 0;
  85                         otmp->onamelth = 0;
  86                         *ONAME(otmp) = '\0';
  87                 } else if (otmp->oartifact && restore)
  88                         artifact_exists(otmp,ONAME(otmp),TRUE);
  89                 if (!restore) {
  90                         /* do not zero out o_ids for ghost levels anymore */
  91
  92                         if(objects[otmp->otyp].oc_uses_known) otmp->known = 0;
  93                         otmp->dknown = otmp->bknown = 0;
  94                         otmp->rknown = 0;
  95                         otmp->invlet = 0;
  96                         otmp->no_charge = 0;
  97                         otmp->was_thrown = 0;
  98
  99                         if (otmp->otyp == SLIME_MOLD) goodfruit(otmp->spe);
 100 #ifdef MAIL
 101                         else if (otmp->otyp == SCR_MAIL) otmp->spe = 1;
 102 #endif
 103                         else if (otmp->otyp == EGG) otmp->spe = 0;
 104                         else if (otmp->otyp == TIN) {
 105                             /* make tins of unique monster's meat be empty */
 106                             if (otmp->corpsenm >= LOW_PM &&
 107                                     (mons[otmp->corpsenm].geno & G_UNIQ))
 108                                 otmp->corpsenm = NON_PM;
 109                         } else if (otmp->otyp == AMULET_OF_YENDOR) {
 110                             /* no longer the real Amulet */
 111                             otmp->otyp = FAKE_AMULET_OF_YENDOR;
 112                             curse(otmp);
 113                         } else if (otmp->otyp == CANDELABRUM_OF_INVOCATION) {
 114                             if (otmp->lamplit)
 115                                 end_burn(otmp, TRUE);
 116                             otmp->otyp = WAX_CANDLE;
 117                             otmp->age = 50L;  /* assume used */
 118                             if (otmp->spe > 0)
 119                                 otmp->quan = (long)otmp->spe;
 120                             otmp->spe = 0;
 121                             otmp->owt = weight(otmp);
 122                             curse(otmp);
 123                         } else if (otmp->otyp == BELL_OF_OPENING) {
 124                             otmp->otyp = BELL;
 125                             curse(otmp);
 126                         } else if (otmp->otyp == SPE_BOOK_OF_THE_DEAD) {
 127                             otmp->otyp = SPE_BLANK_PAPER;
 128                             curse(otmp);
 129                         } else if (otmp->otyp == WAN_WISHING || otmp->otyp == WAN_ACQUIREMENT) {
 130                             otmp->otyp = WAN_NOTHING;
 131                         } else if (otmp->otyp == MAGIC_LAMP) {
 132                             otmp->otyp = TIN_OPENER;
 133                         } else if (otmp->otyp == SCR_WISHING || otmp->otyp == SCR_ACQUIREMENT) {
 134                             otmp->otyp = SCR_AMNESIA;
 135                         } else if (otmp->oartifact == ART_KEY_OF_LAW ||
 136                                    otmp->oartifact == ART_KEY_OF_NEUTRALITY ||
 137                                    otmp->oartifact == ART_KEY_OF_CHAOS ||
 138                                    otmp->oartifact == ART_NIGHTHORN ||
 139                                    otmp->oartifact == ART_EYE_OF_THE_BEHOLDER ||
 140                                    otmp->oartifact == ART_GAUNTLET_KEY ||
 141                                    otmp->oartifact == ART_HAND_OF_VECNA ||
 142                                    otmp->oartifact == ART_THIEFBANE) {
 143                             /* Guaranteed artifacts become ordinary objects */
 144                             otmp->oartifact = 0;
 145                             otmp->onamelth = 0;
 146                             *ONAME(otmp) = '\0';
 147                         }
 148                         else if (is_lightsaber(otmp)){
 149                                 if (otmp->lamplit)
 150                                         end_burn(otmp, /*FALSE*/TRUE);
 151                         }
 152                         if (otmp) {
 153
 154                                 if(!rn2(3)) curse(otmp);
 155
 156                                 /* still blessed? Roll for a chance to make it uncursed. --Amy */
 157                                 if(!rn2(3) && otmp->blessed) unbless(otmp);
 158
 159                                 /* degrade everything to reduce the # of free stuff the finder will get */
 160                                 if (rn2(2)) {
 161                                         if (otmp->spe > 2) otmp->spe /= 2;
 162                                         else if (otmp->spe > -20) otmp->spe--;
 163                                 }
 164
 165                         }
 166                 }
 167         }
 168 }
 169
 170 STATIC_OVL void
 171 drop_upon_death(mtmp, cont)
 172 struct monst *mtmp;
 173 struct obj *cont;
 174 {
 175         struct obj *otmp;
 176
 177         uswapwep = 0; /* ensure curse() won't cause swapwep to drop twice */
 178         while ((otmp = invent) != 0) {
 179                 obj_extract_self(otmp);
 180                 obj_no_longer_held(otmp);
 181
 182                 otmp->owornmask = 0;
 183                 /* lamps don't go out when dropped */
 184                 if ((cont || artifact_light(otmp)) && obj_is_burning(otmp))
 185                     end_burn(otmp, TRUE);       /* smother in statue */
 186
 187                 if(otmp->otyp == SLIME_MOLD) goodfruit(otmp->spe);
 188
 189                 /* Getting a bag filled with 10 pages of crap is incredibly imbalanced. --Amy */
 190                 if (Has_contents(otmp)) delete_contents(otmp);
 191                 /* At least now the late player will have to keep their stuff out in the open,
 192                  * which makes the items likely to be cursed. See below for an additional change... */
 193
 194                 if(rn2(5)) curse(otmp);
 195
 196                 /* still blessed? Roll for a chance to make it uncursed. --Amy */
 197                 if(rn2(5) && otmp->blessed) unbless(otmp);
 198
 199                 if (otmp && rn2(2)) delobj(otmp); /* prevent bones finders from getting everything --Amy */
 200                 else if (mtmp)
 201                         (void) add_to_minv(mtmp, otmp);
 202                 else if (cont)
 203                         (void) add_to_container(cont, otmp, TRUE);
 204                 else
 205                         place_object(otmp, u.ux, u.uy);
 206         }
 207 #ifndef GOLDOBJ
 208         if(u.ugold) {
 209                 long ugold = u.ugold;
 210                 if (mtmp) mtmp->mgold = ugold;
 211                 else if (cont) (void) add_to_container(cont, mkgoldobj(ugold), TRUE);
 212                 else (void)mkgold(ugold, u.ux, u.uy);
 213                 u.ugold = ugold;        /* undo mkgoldobj()'s removal */
 214         }
 215 #endif
 216         if (cont) cont->owt = weight(cont);
 217 }
 218
 219 /* check whether bones are feasible */
 220 boolean
 221 can_make_bones()
 222 {
 223         register struct trap *ttmp;
 224
 225 #ifdef NO_BONES
 226         return FALSE;
 227 #endif
 228
 229         if (ledger_no(&u.uz) <= 0 || ledger_no(&u.uz) > maxledgerno())
 230             return FALSE;
 231         if (no_bones_level(&u.uz))
 232             return FALSE;               /* no bones for specific levels */
 233         if (u.uswallow) {
 234             return FALSE;               /* no bones when swallowed */
 235         }
 236         if (!Is_branchlev(&u.uz)) {
 237             /* no bones on non-branches with portals */
 238             for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
 239                 if (ttmp->ttyp == MAGIC_PORTAL) return FALSE;
 240         }
 241
 242         /* Several variant authors have experimented with bones probabilities */
 243         /* KMH -- Restored to NetHack's chances, to limit abuse and for fairness */
 244         /* to both low-level and high-level characters */
 245         if(depth(&u.uz) <= 0 ||         /* bulletproofing for endgame */
 246            (!rn2(1 + (depth(&u.uz)>>2)) && !(BonesLevelChange || u.uprops[BONES_CHANGE].extrinsic || have_bonestone() || (uarmu && uarmu->oartifact == ART_ELVIS_S_BONES_FILE) )        /* fewer ghosts on low levels */
 247 #ifdef WIZARD
 248                 && !wizard
 249 #endif
 250                 )) return FALSE;
 251
 252         /* don't let multiple restarts generate multiple copies of objects
 253          * in bones files */
 254         if (discover) return FALSE;
 255         return TRUE;
 256 }
 257
 258 char *
 259 bonedunlvl(dnum)
 260 xchar dnum;
 261 {
 262         static char buf[BUFSZ];
 263
 264         strcpy(buf, "XXX"); /* placeholder */
 265
 266         if (!strcmp(dungeons[u.uz.dnum].dname, "Angmar"))
 267                 strcpy(buf, "ANG");
 268         else if (!strcmp(dungeons[u.uz.dnum].dname, "Hell's Bathroom"))
 269                 strcpy(buf, "BAT");
 270         else if (!strcmp(dungeons[u.uz.dnum].dname, "Bell Caves"))
 271                 strcpy(buf, "BEL");
 272         else if (!strcmp(dungeons[u.uz.dnum].dname, "Dead Grounds"))
 273                 strcpy(buf, "DEA");
 274         else if (!strcmp(dungeons[u.uz.dnum].dname, "Deep Mines"))
 275                 strcpy(buf, "DEE");
 276         else if (!strcmp(dungeons[u.uz.dnum].dname, "Digdug Challenge"))
 277                 strcpy(buf, "DIG");
 278         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Dungeons of Doom"))
 279                 strcpy(buf, "DOO");
 280         else if (!strcmp(dungeons[u.uz.dnum].dname, "Emyn Luin"))
 281                 strcpy(buf, "EMY");
 282         else if (!strcmp(dungeons[u.uz.dnum].dname, "Forging Chamber"))
 283                 strcpy(buf, "FOR");
 284         else if (!strcmp(dungeons[u.uz.dnum].dname, "Gamma Caves"))
 285                 strcpy(buf, "GAM");
 286         else if (!strcmp(dungeons[u.uz.dnum].dname, "Gehennom"))
 287                 strcpy(buf, "GEH");
 288         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Giant Caverns"))
 289                 strcpy(buf, "GIA");
 290         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Gnomish Mines"))
 291                 strcpy(buf, "GNO");
 292         else if (!strcmp(dungeons[u.uz.dnum].dname, "Green Cross"))
 293                 strcpy(buf, "GRC");
 294         else if (!strcmp(dungeons[u.uz.dnum].dname, "Grue Challenge"))
 295                 strcpy(buf, "GRE");
 296         else if (!strcmp(dungeons[u.uz.dnum].dname, "Grund's Stronghold"))
 297                 strcpy(buf, "GRU");
 298         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Ice Queen's Realm"))
 299                 strcpy(buf, "ICE");
 300         else if (!strcmp(dungeons[u.uz.dnum].dname, "Illusory Castle"))
 301                 strcpy(buf, "ILL");
 302         else if (!strcmp(dungeons[u.uz.dnum].dname, "Joust Challenge"))
 303                 strcpy(buf, "JOU");
 304         else if (!strcmp(dungeons[u.uz.dnum].dname, "Fort Ludios"))
 305                 strcpy(buf, "KNX");
 306         else if (!strcmp(dungeons[u.uz.dnum].dname, "Frankenstein's Lab"))
 307                 strcpy(buf, "LAB");
 308         else if (!strcmp(dungeons[u.uz.dnum].dname, "Mainframe"))
 309                 strcpy(buf, "MAI");
 310         else if (!strcmp(dungeons[u.uz.dnum].dname, "Minotaur Maze"))
 311                 strcpy(buf, "MIN");
 312         else if (!strcmp(dungeons[u.uz.dnum].dname, "Minus World"))
 313                 strcpy(buf, "MIW");
 314         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Temple of Moloch"))
 315                 strcpy(buf, "MOL");
 316         else if (!strcmp(dungeons[u.uz.dnum].dname, "Nether Realm"))
 317                 strcpy(buf, "NET");
 318         else if (!strcmp(dungeons[u.uz.dnum].dname, "Ordered Chaos"))
 319                 strcpy(buf, "ORD");
 320         else if (!strcmp(dungeons[u.uz.dnum].dname, "Pacman Challenge"))
 321                 strcpy(buf, "PAC");
 322         else if (!strcmp(dungeons[u.uz.dnum].dname, "Pool Challenge"))
 323                 strcpy(buf, "POO");
 324         else if (In_quest(&u.uz))
 325                 strcpy(buf, "QUE");
 326         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone A"))
 327                 strcpy(buf, "RAZ");
 328         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone E"))
 329                 strcpy(buf, "REZ");
 330         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GA"))
 331                 strcpy(buf, "RGA");
 332         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GB"))
 333                 strcpy(buf, "RGB");
 334         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GC"))
 335                 strcpy(buf, "RGC");
 336         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GD"))
 337                 strcpy(buf, "RGD");
 338         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GE"))
 339                 strcpy(buf, "RGE");
 340         else if (!strcmp(dungeons[u.uz.dnum].dname, "Rival Quest"))
 341                 strcpy(buf, "RIV");
 342         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone S"))
 343                 strcpy(buf, "RSZ");
 344         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TA"))
 345                 strcpy(buf, "RTA");
 346         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TB"))
 347                 strcpy(buf, "RTB");
 348         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TC"))
 349                 strcpy(buf, "RTC");
 350         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TD"))
 351                 strcpy(buf, "RTD");
 352         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TE"))
 353                 strcpy(buf, "RTE");
 354         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TF"))
 355                 strcpy(buf, "RTF");
 356         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TG"))
 357                 strcpy(buf, "RTG");
 358         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TH"))
 359                 strcpy(buf, "RTH");
 360         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TI"))
 361                 strcpy(buf, "RTI");
 362         else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TJ"))
 363                 strcpy(buf, "RTJ");
 364         else if (!strcmp(dungeons[u.uz.dnum].dname, "One-eyed Sam's Market"))
 365                 strcpy(buf, "SAM");
 366         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Subquest"))
 367                 strcpy(buf, "SBQ");
 368         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Sunless Sea"))
 369                 strcpy(buf, "SEA");
 370         else if (!strcmp(dungeons[u.uz.dnum].dname, "Sewer Plant"))
 371                 strcpy(buf, "SEW");
 372         else if (!strcmp(dungeons[u.uz.dnum].dname, "Sheol"))
 373                 strcpy(buf, "SHL");
 374         else if (!strcmp(dungeons[u.uz.dnum].dname, "Sokoban"))
 375                 strcpy(buf, "SOK");
 376         else if (!strcmp(dungeons[u.uz.dnum].dname, "Space Base"))
 377                 strcpy(buf, "SPC");
 378         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Spider Caves"))
 379                 strcpy(buf, "SPI");
 380         else if (!strcmp(dungeons[u.uz.dnum].dname, "Swimming Pool"))
 381                 strcpy(buf, "SWI");
 382         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Lost Tomb"))
 383                 strcpy(buf, "TOM");
 384         else if (!strcmp(dungeons[u.uz.dnum].dname, "Town"))
 385                 strcpy(buf, "TOW");
 386         else if (!strcmp(dungeons[u.uz.dnum].dname, "Vlad's Tower"))
 387                 strcpy(buf, "VLA");
 388         else if (!strcmp(dungeons[u.uz.dnum].dname, "Void"))
 389                 strcpy(buf, "VOI");
 390         else if (!strcmp(dungeons[u.uz.dnum].dname, "The Wyrm Caves"))
 391                 strcpy(buf, "WYR");
 392         else if (!strcmp(dungeons[u.uz.dnum].dname, "Yendorian Tower"))
 393                 strcpy(buf, "YEN");
 394         else impossible("Error! No bones level identifier found. Please notify Amy about this bug and tell her on which level it occurred.");
 395
 396         return buf;
 397
 398 }
 399
 400 /* save bones and possessions of a deceased adventurer */
 401 void
 402 savebones(corpse)
 403 struct obj *corpse;
 404 {
 405         int fd, x, y;
 406         struct trap *ttmp;
 407         struct monst *mtmp;
 408         struct permonst *mptr;
 409         struct fruit *f;
 410         char c, *bonesid;
 411         char whynot[BUFSZ];
 412
 413         /* caller has already checked `can_make_bones()' */
 414
 415         clear_bypasses();
 416         fd = open_bonesfile(&u.uz, &bonesid);
 417         if (fd >= 0) {
 418                 (void) close(fd);
 419                 compress_bonesfile();
 420 #ifdef WIZARD
 421                 if (wizard) {
 422                     if (yn("Bones file already exists.  Replace it?") == 'y') {
 423                         if (delete_bonesfile(&u.uz)) goto make_bones;
 424                         else pline("Cannot unlink old bones.");
 425                     }
 426                 }
 427 #endif
 428                 return;
 429         }
 430
 431 #ifdef WIZARD
 432  make_bones:
 433 #endif
 434         unleash_all();
 435
 436         /* in case these characters are not in their home bases */
 437         for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 438             if (DEADMONSTER(mtmp)) continue;
 439             mptr = mtmp->data;
 440             if (mtmp->iswiz || mptr == &mons[PM_MEDUSA] ||
 441                     (mptr->msound == MS_NEMESIS && mtmp->mnum >= PM_LORD_CARNARVON && mtmp->mnum <= PM_UPPER_BULL) || mptr->msound == MS_LEADER ||
 442                     mptr == &mons[PM_VLAD_THE_IMPALER] ||
 443                     mptr == &mons[PM_NIGHTMARE] ||
 444                     mptr == &mons[PM_BEHOLDER] || mptr == &mons[PM_VECNA] ||
 445                     mptr == &mons[PM_CTHULHU]) {
 446                 /* Since these monsters may be carrying indestructible
 447                  * artifacts, free inventory specifically here to avoid
 448                  * the indestructible sanity check in discard_minvent.
 449                  * Similar considerations cause the necessity to avoid
 450                  * calling delete_contents on containers which are
 451                  * directly in a monster's inventory (indestructable
 452                  * objects would be dropped on the floor).
 453                  */
 454                 struct obj *otmp, *curr;
 455                 while ((otmp = mtmp->minvent) != 0) {
 456                     while (Has_contents(otmp)) {
 457                         while (Has_contents(otmp->cobj))
 458                             delete_contents(otmp->cobj);
 459                         curr = otmp->cobj;
 460                         obj_extract_self(curr);
 461                         obfree(curr, (struct obj *)0);
 462                     }
 463                     obj_extract_self(otmp);
 464                     obfree(otmp, (struct obj *)0);
 465                 }
 466                 mongone(mtmp);
 467             }
 468         }
 469         if (u.usteed) dismount_steed(DISMOUNT_BONES);
 470         dmonsfree();            /* discard dead or gone monsters */
 471
 472         /* mark all fruits as nonexistent; when we come to them we'll mark
 473          * them as existing (using goodfruit())
 474          */
 475         for(f=ffruit; f; f=f->nextf) f->fid = -f->fid;
 476
 477         /* check iron balls separately--maybe they're not carrying it */
 478         if (uball) uball->owornmask = uchain->owornmask = 0;
 479
 480         /* dispose of your possessions, usually cursed */
 481         if (u.ugrave_arise == (NON_PM - 1)) {
 482                 struct obj *otmp;
 483
 484                 /* embed your possessions in your statue */
 485                 otmp = mk_named_object(STATUE, &mons[u.umonnum], u.ux, u.uy, playeraliasname);
 486
 487                 drop_upon_death((struct monst *)0, otmp);
 488                 if (!otmp) return;      /* couldn't make statue */
 489                 mtmp = (struct monst *)0;
 490         } else if (Frozen) { /* no player ghost if the player exploded into tiny ice cubes --Amy */
 491
 492                 /* drop everything */
 493                 drop_upon_death((struct monst *)0, (struct obj *)0);
 494                 mtmp = (struct monst *)0;
 495
 496         } else if (u.ugrave_arise < LOW_PM) {
 497                 /* trick makemon() into allowing monster creation
 498                  * on your location
 499                  */
 500                 in_mklev = TRUE;
 501
 502                 /* Come on, the ghost is just too weak. Let's try to make DCSS-styled player "ghosts". --Amy */
 503
 504                 if (!rn2(5)) mtmp = makemon(&mons[PM_GHOST], u.ux, u.uy, MM_NONAME);
 505
 506                 else if (u.ulevel >= 10 && !rn2(5)) { /* dangerous undead version --Amy */
 507
 508                 if (flags.female && urole.undeadfemalenum != NON_PM) mtmp = makemon(&mons[urole.undeadfemalenum], u.ux, u.uy, MM_NONAME);
 509                 else mtmp = makemon(&mons[urole.undeadmalenum], u.ux, u.uy, MM_NONAME);
 510
 511                 }
 512
 513                 else if (flags.female && urole.femalenum != NON_PM) mtmp = makemon(&mons[urole.femalenum], u.ux, u.uy, MM_NONAME);
 514                 else mtmp = makemon(&mons[urole.malenum], u.ux, u.uy, MM_NONAME);
 515
 516
 517                 in_mklev = FALSE;
 518
 519                 if (!mtmp) {
 520                 /* drop everything */
 521                         drop_upon_death((struct monst *)0, (struct obj *)0);
 522                         return;
 523                 }
 524
 525                 mtmp = christen_monst(mtmp, playeraliasname);
 526
 527                 drop_upon_death(mtmp, (struct obj *)0);
 528                 m_dowear(mtmp, TRUE);
 529
 530                 if (corpse)
 531                         (void) obj_attach_mid(corpse, mtmp->m_id);
 532         } else {
 533                 /* give your possessions to the monster you become */
 534                 in_mklev = TRUE;
 535                 mtmp = makemon(&mons[u.ugrave_arise], u.ux, u.uy, NO_MM_FLAGS);
 536                 in_mklev = FALSE;
 537                 if (!mtmp) {
 538                         drop_upon_death((struct monst *)0, (struct obj *)0);
 539                         return;
 540                 }
 541                 mtmp = christen_monst(mtmp, playeraliasname);
 542                 newsym(u.ux, u.uy);
 543                 Your("body rises from the dead as %s...",
 544                         an(mons[u.ugrave_arise].mname));
 545                 display_nhwindow(WIN_MESSAGE, FALSE);
 546                 drop_upon_death(mtmp, (struct obj *)0);
 547                 m_dowear(mtmp, TRUE);
 548         }
 549         if (mtmp) {
 550                 mtmp->m_lev = (u.ulevel ? u.ulevel : 1);
 551                 mtmp->mhp = mtmp->mhpmax = u.uhpmax;
 552                 mtmp->female = flags.female;
 553                 mtmp->msleeping = 1;
 554 #ifdef LIVELOG_BONES_KILLER
 555                 strcpy(mtmp->former_rank, rank());
 556 #endif
 557         }
 558         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 559                 resetobjs(mtmp->minvent,FALSE);
 560                 /* do not zero out m_ids for bones levels any more */
 561                 mtmp->mlstmv = 0L;
 562                 if(mtmp->mtame) mtmp->mtame = mtmp->mpeaceful = 0;
 563         }
 564         for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) {
 565                 ttmp->madeby_u = 0;
 566                 ttmp->tseen = (!ttmp->hiddentrap && (ttmp->ttyp == HOLE));
 567         }
 568         resetobjs(fobj,FALSE);
 569         resetobjs(level.buriedobjlist, FALSE);
 570
 571         /* Hero is no longer on the map. */
 572         u.ux = u.uy = 0;
 573
 574         /* Clear all memory from the level. */
 575         for(x=0; x<COLNO; x++) for(y=0; y<ROWNO; y++) {
 576             levl[x][y].seenv = 0;
 577             levl[x][y].waslit = 0;
 578             clear_memory_glyph(x, y, S_stone);
 579         }
 580
 581         fd = create_bonesfile(&u.uz, &bonesid, whynot);
 582         if(fd < 0) {
 583 #ifdef WIZARD
 584                 if(wizard)
 585                         pline("%s", whynot);
 586 #endif
 587                 /* bones file creation problems are silent to the player.
 588                  * Keep it that way, but place a clue into the paniclog.
 589                  */
 590                 paniclog("savebones", whynot);
 591                 return;
 592         }
 593         c = (char) (strlen(bonesid) + 1);
 594
 595 #ifdef MFLOPPY  /* check whether there is room */
 596         if (iflags.checkspace) {
 597             savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
 598             /* savelev() initializes bytes_counted to 0, so it must come
 599              * first here even though it does not in the real save.  the
 600              * resulting extra bflush() at the end of savelev() may increase
 601              * bytes_counted by a couple over what the real usage will be.
 602              *
 603              * note it is safe to call store_version() here only because
 604              * bufon() is null for ZEROCOMP, which MFLOPPY uses -- otherwise
 605              * this code would have to know the size of the version
 606              * information itself.
 607              */
 608             store_version(fd);
 609             bwrite(fd, (void *) &c, sizeof c);
 610             bwrite(fd, (void *) bonesid, (unsigned) c); /* DD.nnn */
 611             savefruitchn(fd, COUNT_SAVE);
 612             bflush(fd);
 613             if (bytes_counted > freediskspace(bones)) { /* not enough room */
 614 # ifdef WIZARD
 615                 if (wizard)
 616                         pline("Insufficient space to create bones file.");
 617 # endif
 618                 (void) close(fd);
 619                 cancel_bonesfile();
 620                 return;
 621             }
 622             co_false(); /* make sure stuff before savelev() gets written */
 623         }
 624 #endif /* MFLOPPY */
 625
 626         store_version(fd);
 627         bwrite(fd, (void *) &c, sizeof c);
 628         bwrite(fd, (void *) bonesid, (unsigned) c);     /* DD.nnn */
 629         savefruitchn(fd, WRITE_SAVE | FREE_SAVE);
 630         update_mlstmv();        /* update monsters for eventual restoration */
 631         savelev(fd, ledger_no(&u.uz), WRITE_SAVE | FREE_SAVE);
 632         bclose(fd);
 633         commit_bonesfile(&u.uz);
 634         compress_bonesfile();
 635 }
 636
 637 int
 638 getbones()
 639 {
 640         register int fd;
 641         register int ok;
 642         char c, *bonesid, oldbonesid[50];
 643
 644 #ifdef NO_BONES
 645         return(0);
 646 #endif
 647
 648         if(discover)            /* save bones files for real games */
 649                 return(0);
 650
 651         /* wizard check added by GAN 02/05/87 */
 652         if(rn2(3) && !(BonesLevelChange || u.uprops[BONES_CHANGE].extrinsic || have_bonestone() || (uarmu && uarmu->oartifact == ART_ELVIS_S_BONES_FILE) )      /* only once in three times do we find bones */
 653
 654 #ifdef WIZARD
 655                 && !wizard
 656 #endif
 657                 ) return(0);
 658         /* if you triggered a bones trap, bad luck - you can now get bones even if you disabled them :P --Amy */
 659         if (!iflags.bones && !(BonesLevelChange || u.uprops[BONES_CHANGE].extrinsic || have_bonestone() || (uarmu && uarmu->oartifact == ART_ELVIS_S_BONES_FILE) ) ) return(0);
 660         if(no_bones_level(&u.uz)) return(0);
 661         fd = open_bonesfile(&u.uz, &bonesid);
 662         if (fd < 0) return(0);
 663
 664         if ((ok = uptodate(fd, bones)) == 0) {
 665 #ifdef WIZARD
 666             if (!wizard)
 667 #endif
 668                 pline("Discarding unuseable bones; no need to panic...");
 669         } else {
 670 #ifdef WIZARD
 671                 if(wizard)  {
 672                         if(yn("Get bones?") == 'n') {
 673                                 (void) close(fd);
 674                                 compress_bonesfile();
 675                                 return(0);
 676                         }
 677                 }
 678 #endif
 679                 mread(fd, (void *) &c, sizeof c);       /* length incl. '\0' */
 680                 mread(fd, (void *) oldbonesid, (unsigned) c); /* DD.nnn */
 681                 if (strcmp(bonesid, oldbonesid) != 0) {
 682                         char errbuf[BUFSZ];
 683
 684                         sprintf(errbuf, "This is bones level '%s', not '%s'!",
 685                                 oldbonesid, bonesid);
 686 #ifdef WIZARD
 687                         if (wizard) {
 688                                 pline("%s", errbuf);
 689                                 ok = FALSE;     /* won't die of trickery */
 690                         }
 691 #endif
 692                         trickery(errbuf);
 693                 } else {
 694                         register struct monst *mtmp;
 695
 696                         getlev(fd, 0, 0, TRUE);
 697
 698                         /* Note that getlev() now keeps tabs on unique
 699                          * monsters such as demon lords, and tracks the
 700                          * birth counts of all species just as makemon()
 701                          * does.  If a bones monster is extinct or has been
 702                          * subject to genocide, their mhpmax will be
 703                          * set to the magic DEFUNCT_MONSTER cookie value.
 704                          */
 705                         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 706                             if (mtmp->mhpmax == DEFUNCT_MONSTER) {
 707 #if defined(DEBUG) && defined(WIZARD)
 708                                 if (wizard)
 709                                     pline("Removing defunct monster %s from bones.",
 710                                         mtmp->data->mname);
 711 #endif
 712                                 mongone(mtmp);
 713                             } else
 714                                 /* to correctly reset named artifacts on the level */
 715                                 resetobjs(mtmp->minvent,TRUE);
 716                         }
 717                         resetobjs(fobj,TRUE);
 718                         resetobjs(level.buriedobjlist,TRUE);
 719                 }
 720         }
 721         (void) close(fd);
 722
 723 #ifdef WIZARD
 724         if(wizard) {
 725                 if(yn("Unlink bones?") == 'n') {
 726                         compress_bonesfile();
 727                         return(ok);
 728                 }
 729         }
 730 #endif
 731
 732         if (!rn2(10)) { /* rarely don't delete bones --Amy */
 733                 compress_bonesfile();
 734                 return(ok);
 735         }
 736
 737         if (!delete_bonesfile(&u.uz)) {
 738                 /* When N games try to simultaneously restore the same
 739                  * bones file, N-1 of them will fail to delete it
 740                  * (the first N-1 under AmigaDOS, the last N-1 under UNIX).
 741                  * So no point in a mysterious message for a normal event
 742                  * -- just generate a new level for those N-1 games.
 743                  */
 744                 /* pline("Cannot unlink bones."); */
 745                 return(0);
 746         }
 747         return(ok);
 748 }
 749
 750 /*bones.c*/