![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.save.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.save.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.