Return to hack.bones.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack

Annotation of 43BSDTahoe/games/hack/hack.bones.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.