home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / hack / 1 / src / save.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-07-26  |  5.8 KB  |  239 lines
  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. }
  239.