diff options
Diffstat (limited to 'games/hack/hack.save.c')
| -rw-r--r-- | games/hack/hack.save.c | 238 |
1 files changed, 238 insertions, 0 deletions
diff --git a/games/hack/hack.save.c b/games/hack/hack.save.c new file mode 100644 index 0000000..5fd7ba1 --- /dev/null +++ b/games/hack/hack.save.c @@ -0,0 +1,238 @@ +/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ +/* hack.save.c - version 1.0.3 */ + +#include "hack.h" +extern char genocided[60]; /* defined in Decl.c */ +extern char fut_geno[60]; /* idem */ +#include <signal.h> +#include <unistd.h> + +extern char SAVEF[], nul[]; +extern char pl_character[PL_CSIZ]; +extern struct obj *restobjchn(); +extern struct monst *restmonchn(); + +dosave(){ + if(dosave0(0)) { + settty("Be seeing you ...\n"); + exit(0); + } +#ifdef lint + return(0); +#endif lint +} + +#ifndef NOSAVEONHANGUP +hangup(){ + (void) dosave0(1); + exit(1); +} +#endif NOSAVEONHANGUP + +/* returns 1 if save successful */ +dosave0(hu) int hu; { + register fd, ofd; + int tmp; /* not register ! */ + + (void) signal(SIGHUP, SIG_IGN); + (void) signal(SIGINT, SIG_IGN); + if((fd = creat(SAVEF, FMASK)) < 0) { + if(!hu) pline("Cannot open save file. (Continue or Quit)"); + (void) unlink(SAVEF); /* ab@unido */ + return(0); + } + if(flags.moonphase == FULL_MOON) /* ut-sally!fletcher */ + u.uluck--; /* and unido!ab */ + savelev(fd,dlevel); + saveobjchn(fd, invent); + saveobjchn(fd, fcobj); + savemonchn(fd, fallen_down); + tmp = getuid(); + bwrite(fd, (char *) &tmp, sizeof tmp); + bwrite(fd, (char *) &flags, sizeof(struct flag)); + bwrite(fd, (char *) &dlevel, sizeof dlevel); + bwrite(fd, (char *) &maxdlevel, sizeof maxdlevel); + bwrite(fd, (char *) &moves, sizeof moves); + bwrite(fd, (char *) &u, sizeof(struct you)); + if(u.ustuck) + bwrite(fd, (char *) &(u.ustuck->m_id), sizeof u.ustuck->m_id); + bwrite(fd, (char *) pl_character, sizeof pl_character); + bwrite(fd, (char *) genocided, sizeof genocided); + bwrite(fd, (char *) fut_geno, sizeof fut_geno); + savenames(fd); + for(tmp = 1; tmp <= maxdlevel; tmp++) { + extern int hackpid; + extern boolean level_exists[]; + + if(tmp == dlevel || !level_exists[tmp]) continue; + glo(tmp); + if((ofd = open(lock, 0)) < 0) { + if(!hu) pline("Error while saving: cannot read %s.", lock); + (void) close(fd); + (void) unlink(SAVEF); + if(!hu) done("tricked"); + return(0); + } + getlev(ofd, hackpid, tmp); + (void) close(ofd); + bwrite(fd, (char *) &tmp, sizeof tmp); /* level number */ + savelev(fd,tmp); /* actual level */ + (void) unlink(lock); + } + (void) close(fd); + glo(dlevel); + (void) unlink(lock); /* get rid of current level --jgm */ + glo(0); + (void) unlink(lock); + return(1); +} + +dorecover(fd) +register fd; +{ + register nfd; + int tmp; /* not a register ! */ + unsigned mid; /* idem */ + struct obj *otmp; + extern boolean restoring; + + restoring = TRUE; + getlev(fd, 0, 0); + invent = restobjchn(fd); + for(otmp = invent; otmp; otmp = otmp->nobj) + if(otmp->owornmask) + setworn(otmp, otmp->owornmask); + fcobj = restobjchn(fd); + fallen_down = restmonchn(fd); + mread(fd, (char *) &tmp, sizeof tmp); + if(tmp != getuid()) { /* strange ... */ + (void) close(fd); + (void) unlink(SAVEF); + puts("Saved game was not yours."); + restoring = FALSE; + return(0); + } + mread(fd, (char *) &flags, sizeof(struct flag)); + mread(fd, (char *) &dlevel, sizeof dlevel); + mread(fd, (char *) &maxdlevel, sizeof maxdlevel); + mread(fd, (char *) &moves, sizeof moves); + mread(fd, (char *) &u, sizeof(struct you)); + if(u.ustuck) + mread(fd, (char *) &mid, sizeof mid); + mread(fd, (char *) pl_character, sizeof pl_character); + mread(fd, (char *) genocided, sizeof genocided); + mread(fd, (char *) fut_geno, sizeof fut_geno); + restnames(fd); + while(1) { + if(read(fd, (char *) &tmp, sizeof tmp) != sizeof tmp) + break; + getlev(fd, 0, tmp); + glo(tmp); + if((nfd = creat(lock, FMASK)) < 0) + panic("Cannot open temp file %s!\n", lock); + savelev(nfd,tmp); + (void) close(nfd); + } + (void) lseek(fd, (off_t)0, 0); + getlev(fd, 0, 0); + (void) close(fd); + (void) unlink(SAVEF); + if(Punished) { + for(otmp = fobj; otmp; otmp = otmp->nobj) + if(otmp->olet == CHAIN_SYM) goto chainfnd; + panic("Cannot find the iron chain?"); + chainfnd: + uchain = otmp; + if(!uball){ + for(otmp = fobj; otmp; otmp = otmp->nobj) + if(otmp->olet == BALL_SYM && otmp->spe) + goto ballfnd; + panic("Cannot find the iron ball?"); + ballfnd: + uball = otmp; + } + } + if(u.ustuck) { + register struct monst *mtmp; + + for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) + if(mtmp->m_id == mid) goto monfnd; + panic("Cannot find the monster ustuck."); + monfnd: + u.ustuck = mtmp; + } +#ifndef QUEST + setsee(); /* only to recompute seelx etc. - these weren't saved */ +#endif QUEST + docrt(); + restoring = FALSE; + return(1); +} + +struct obj * +restobjchn(fd) +register fd; +{ + register struct obj *otmp, *otmp2; + register struct obj *first = 0; + int xl; +#ifdef lint + /* suppress "used before set" warning from lint */ + otmp2 = 0; +#endif lint + while(1) { + mread(fd, (char *) &xl, sizeof(xl)); + if(xl == -1) break; + otmp = newobj(xl); + if(!first) first = otmp; + else otmp2->nobj = otmp; + mread(fd, (char *) otmp, (unsigned) xl + sizeof(struct obj)); + if(!otmp->o_id) otmp->o_id = flags.ident++; + otmp2 = otmp; + } + if(first && otmp2->nobj){ + impossible("Restobjchn: error reading objchn."); + otmp2->nobj = 0; + } + return(first); +} + +struct monst * +restmonchn(fd) +register fd; +{ + register struct monst *mtmp, *mtmp2; + register struct monst *first = 0; + int xl; + + struct permonst *monbegin; + long differ; + + mread(fd, (char *)&monbegin, sizeof(monbegin)); + differ = (char *)(&mons[0]) - (char *)(monbegin); + +#ifdef lint + /* suppress "used before set" warning from lint */ + mtmp2 = 0; +#endif lint + while(1) { + mread(fd, (char *) &xl, sizeof(xl)); + if(xl == -1) break; + mtmp = newmonst(xl); + if(!first) first = mtmp; + else mtmp2->nmon = mtmp; + mread(fd, (char *) mtmp, (unsigned) xl + sizeof(struct monst)); + if(!mtmp->m_id) + mtmp->m_id = flags.ident++; + mtmp->data = (struct permonst *) + ((char *) mtmp->data + differ); + if(mtmp->minvent) + mtmp->minvent = restobjchn(fd); + mtmp2 = mtmp; + } + if(first && mtmp2->nmon){ + impossible("Restmonchn: error reading monchn."); + mtmp2->nmon = 0; + } + return(first); +} |
