2.11BSD#431 - /usr/src/games/hack/hack.save.c

   1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2: /* hack.save.c - version 1.0.3 */
   3: 
   4: #include "hack.h"
   5: extern char genocided[60];  /* defined in Decl.c */
   6: extern char fut_geno[60];   /* idem */
   7: #include <signal.h>
   8: 
   9: extern char SAVEF[], nul[];
  10: extern char pl_character[PL_CSIZ];
  11: extern long lseek();
  12: extern struct obj *restobjchn();
  13: extern struct monst *restmonchn();
  14: 
  15: dosave(){
  16:     if(dosave0(0)) {
  17:         settty("Be seeing you ...\n");
  18:         exit(0);
  19:     }
  20: #ifdef lint
  21:     return(0);
  22: #endif lint
  23: }
  24: 
  25: #ifndef NOSAVEONHANGUP
  26: hangup(){
  27:     (void) dosave0(1);
  28:     exit(1);
  29: }
  30: #endif NOSAVEONHANGUP
  31: 
  32: /* returns 1 if save successful */
  33: dosave0(hu) int hu; {
  34:     register fd, ofd;
  35:     int tmp;        /* not register ! */
  36: 
  37:     (void) signal(SIGHUP, SIG_IGN);
  38:     (void) signal(SIGINT, SIG_IGN);
  39:     if((fd = creat(SAVEF, FMASK)) < 0) {
  40:         if(!hu) pline("Cannot open save file. (Continue or Quit)");
  41:         (void) unlink(SAVEF);       /* ab@unido */
  42:         return(0);
  43:     }
  44:     if(flags.moonphase == FULL_MOON)    /* ut-sally!fletcher */
  45:         u.uluck--;          /* and unido!ab */
  46:     savelev(fd,dlevel);
  47:     saveobjchn(fd, invent);
  48:     saveobjchn(fd, fcobj);
  49:     savemonchn(fd, fallen_down);
  50:     tmp = getuid();
  51:     bwrite(fd, (char *) &tmp, sizeof tmp);
  52:     bwrite(fd, (char *) &flags, sizeof(struct flag));
  53:     bwrite(fd, (char *) &dlevel, sizeof dlevel);
  54:     bwrite(fd, (char *) &maxdlevel, sizeof maxdlevel);
  55:     bwrite(fd, (char *) &moves, sizeof moves);
  56:     bwrite(fd, (char *) &u, sizeof(struct you));
  57:     if(u.ustuck)
  58:         bwrite(fd, (char *) &(u.ustuck->m_id), sizeof u.ustuck->m_id);
  59:     bwrite(fd, (char *) pl_character, sizeof pl_character);
  60:     bwrite(fd, (char *) genocided, sizeof genocided);
  61:     bwrite(fd, (char *) fut_geno, sizeof fut_geno);
  62:     savenames(fd);
  63:     for(tmp = 1; tmp <= maxdlevel; tmp++) {
  64:         extern int hackpid;
  65:         extern boolean level_exists[];
  66: 
  67:         if(tmp == dlevel || !level_exists[tmp]) continue;
  68:         glo(tmp);
  69:         if((ofd = open(lock, 0)) < 0) {
  70:             if(!hu) pline("Error while saving: cannot read %s.", lock);
  71:             (void) close(fd);
  72:             (void) unlink(SAVEF);
  73:             if(!hu) done("tricked");
  74:             return(0);
  75:         }
  76:         getlev(ofd, hackpid, tmp);
  77:         (void) close(ofd);
  78:         bwrite(fd, (char *) &tmp, sizeof tmp);  /* level number */
  79:         savelev(fd,tmp);            /* actual level */
  80:         (void) unlink(lock);
  81:     }
  82:     (void) close(fd);
  83:     glo(dlevel);
  84:     (void) unlink(lock);    /* get rid of current level --jgm */
  85:     glo(0);
  86:     (void) unlink(lock);
  87:     return(1);
  88: }
  89: 
  90: dorecover(fd)
  91: register fd;
  92: {
  93:     register nfd;
  94:     int tmp;        /* not a register ! */
  95:     unsigned mid;       /* idem */
  96:     struct obj *otmp;
  97:     extern boolean restoring;
  98: 
  99:     restoring = TRUE;
 100:     getlev(fd, 0, 0);
 101:     invent = restobjchn(fd);
 102:     for(otmp = invent; otmp; otmp = otmp->nobj)
 103:         if(otmp->owornmask)
 104:             setworn(otmp, otmp->owornmask);
 105:     fcobj = restobjchn(fd);
 106:     fallen_down = restmonchn(fd);
 107:     mread(fd, (char *) &tmp, sizeof tmp);
 108:     if(tmp != getuid()) {       /* strange ... */
 109:         (void) close(fd);
 110:         (void) unlink(SAVEF);
 111:         puts("Saved game was not yours.");
 112:         restoring = FALSE;
 113:         return(0);
 114:     }
 115:     mread(fd, (char *) &flags, sizeof(struct flag));
 116:     mread(fd, (char *) &dlevel, sizeof dlevel);
 117:     mread(fd, (char *) &maxdlevel, sizeof maxdlevel);
 118:     mread(fd, (char *) &moves, sizeof moves);
 119:     mread(fd, (char *) &u, sizeof(struct you));
 120:     if(u.ustuck)
 121:         mread(fd, (char *) &mid, sizeof mid);
 122:     mread(fd, (char *) pl_character, sizeof pl_character);
 123:     mread(fd, (char *) genocided, sizeof genocided);
 124:     mread(fd, (char *) fut_geno, sizeof fut_geno);
 125:     restnames(fd);
 126:     while(1) {
 127:         if(read(fd, (char *) &tmp, sizeof tmp) != sizeof tmp)
 128:             break;
 129:         getlev(fd, 0, tmp);
 130:         glo(tmp);
 131:         if((nfd = creat(lock, FMASK)) < 0)
 132:             panic("Cannot open temp file %s!\n", lock);
 133:         savelev(nfd,tmp);
 134:         (void) close(nfd);
 135:     }
 136:     (void) lseek(fd, 0L, 0);
 137:     getlev(fd, 0, 0);
 138:     (void) close(fd);
 139:     (void) unlink(SAVEF);
 140:     if(Punished) {
 141:         for(otmp = fobj; otmp; otmp = otmp->nobj)
 142:             if(otmp->olet == CHAIN_SYM) goto chainfnd;
 143:         panic("Cannot find the iron chain?");
 144:     chainfnd:
 145:         uchain = otmp;
 146:         if(!uball){
 147:             for(otmp = fobj; otmp; otmp = otmp->nobj)
 148:                 if(otmp->olet == BALL_SYM && otmp->spe)
 149:                     goto ballfnd;
 150:             panic("Cannot find the iron ball?");
 151:         ballfnd:
 152:             uball = otmp;
 153:         }
 154:     }
 155:     if(u.ustuck) {
 156:         register struct monst *mtmp;
 157: 
 158:         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
 159:             if(mtmp->m_id == mid) goto monfnd;
 160:         panic("Cannot find the monster ustuck.");
 161:     monfnd:
 162:         u.ustuck = mtmp;
 163:     }
 164: #ifndef QUEST
 165:     setsee();  /* only to recompute seelx etc. - these weren't saved */
 166: #endif QUEST
 167:     docrt();
 168:     restoring = FALSE;
 169:     return(1);
 170: }
 171: 
 172: struct obj *
 173: restobjchn(fd)
 174: register fd;
 175: {
 176:     register struct obj *otmp, *otmp2;
 177:     register struct obj *first = 0;
 178:     int xl;
 179: #ifdef lint
 180:     /* suppress "used before set" warning from lint */
 181:     otmp2 = 0;
 182: #endif lint
 183:     while(1) {
 184:         mread(fd, (char *) &xl, sizeof(xl));
 185:         if(xl == -1) break;
 186:         otmp = newobj(xl);
 187:         if(!first) first = otmp;
 188:         else otmp2->nobj = otmp;
 189:         mread(fd, (char *) otmp, (unsigned) xl + sizeof(struct obj));
 190:         if(!otmp->o_id) otmp->o_id = flags.ident++;
 191:         otmp2 = otmp;
 192:     }
 193:     if(first && otmp2->nobj){
 194:         impossible("Restobjchn: error reading objchn.");
 195:         otmp2->nobj = 0;
 196:     }
 197:     return(first);
 198: }
 199: 
 200: struct monst *
 201: restmonchn(fd)
 202: register fd;
 203: {
 204:     register struct monst *mtmp, *mtmp2;
 205:     register struct monst *first = 0;
 206:     int xl;
 207: 
 208:     struct permonst *monbegin;
 209:     long differ;
 210: 
 211:     mread(fd, (char *)&monbegin, sizeof(monbegin));
 212:     differ = (char *)(&mons[0]) - (char *)(monbegin);
 213: 
 214: #ifdef lint
 215:     /* suppress "used before set" warning from lint */
 216:     mtmp2 = 0;
 217: #endif lint
 218:     while(1) {
 219:         mread(fd, (char *) &xl, sizeof(xl));
 220:         if(xl == -1) break;
 221:         mtmp = newmonst(xl);
 222:         if(!first) first = mtmp;
 223:         else mtmp2->nmon = mtmp;
 224:         mread(fd, (char *) mtmp, (unsigned) xl + sizeof(struct monst));
 225:         if(!mtmp->m_id)
 226:             mtmp->m_id = flags.ident++;
 227:         mtmp->data = (struct permonst *)
 228:             ((char *) mtmp->data + differ);
 229:         if(mtmp->minvent)
 230:             mtmp->minvent = restobjchn(fd);
 231:         mtmp2 = mtmp;
 232:     }
 233:     if(first && mtmp2->nmon){
 234:         impossible("Restmonchn: error reading monchn.");
 235:         mtmp2->nmon = 0;
 236:     }
 237:     return(first);
 238: }

Defined functions