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