dfa82344c1aaa280f96ca7878e6a46e73a475a0f
[dragonfly.git] / games / hack / hack.lev.c
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.lev.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.lev.c,v 1.4 1999/11/16 10:26:36 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.lev.c,v 1.3 2004/11/06 12:29:17 eirikn Exp $ */
5
6 #include "hack.h"
7 #include "def.mkroom.h"
8 #include <stdio.h>
9 extern struct monst *restmonchn();
10 extern struct obj *restobjchn();
11 extern struct obj *billobjs;
12 extern char *itoa();
13 extern char SAVEF[];
14 extern int hackpid;
15 extern xchar dlevel;
16 extern char nul[];
17
18 #ifndef NOWORM
19 #include        "def.wseg.h"
20 extern struct wseg *wsegs[32], *wheads[32];
21 extern long wgrowtime[32];
22 #endif /* NOWORM */
23
24 boolean level_exists[MAXLEVEL+1];
25
26 savelev(fd,lev)
27 int fd;
28 xchar lev;
29 {
30 #ifndef NOWORM
31         struct wseg *wtmp, *wtmp2;
32         int tmp;
33 #endif /* NOWORM */
34
35         if(fd < 0) panic("Save on bad file!");  /* impossible */
36         if(lev >= 0 && lev <= MAXLEVEL)
37                 level_exists[lev] = TRUE;
38
39         bwrite(fd,(char *) &hackpid,sizeof(hackpid));
40         bwrite(fd,(char *) &lev,sizeof(lev));
41         bwrite(fd,(char *) levl,sizeof(levl));
42         bwrite(fd,(char *) &moves,sizeof(long));
43         bwrite(fd,(char *) &xupstair,sizeof(xupstair));
44         bwrite(fd,(char *) &yupstair,sizeof(yupstair));
45         bwrite(fd,(char *) &xdnstair,sizeof(xdnstair));
46         bwrite(fd,(char *) &ydnstair,sizeof(ydnstair));
47         savemonchn(fd, fmon);
48         savegoldchn(fd, fgold);
49         savetrapchn(fd, ftrap);
50         saveobjchn(fd, fobj);
51         saveobjchn(fd, billobjs);
52         billobjs = 0;
53         save_engravings(fd);
54 #ifndef QUEST
55         bwrite(fd,(char *) rooms,sizeof(rooms));
56         bwrite(fd,(char *) doors,sizeof(doors));
57 #endif /* QUEST */
58         fgold = 0;
59         ftrap = 0;
60         fmon = 0;
61         fobj = 0;
62 #ifndef NOWORM
63         bwrite(fd,(char *) wsegs,sizeof(wsegs));
64         for(tmp=1; tmp<32; tmp++){
65                 for(wtmp = wsegs[tmp]; wtmp; wtmp = wtmp2){
66                         wtmp2 = wtmp->nseg;
67                         bwrite(fd,(char *) wtmp,sizeof(struct wseg));
68                 }
69                 wsegs[tmp] = 0;
70         }
71         bwrite(fd,(char *) wgrowtime,sizeof(wgrowtime));
72 #endif /* NOWORM */
73 }
74
75 bwrite(fd,loc,num)
76 int fd;
77 char *loc;
78 unsigned num;
79 {
80 /* lint wants the 3rd arg of write to be an int; lint -p an unsigned */
81         if(write(fd, loc, (int) num) != num)
82                 panic("cannot write %u bytes to file #%d", num, fd);
83 }
84
85 saveobjchn(fd,otmp)
86 int fd;
87 struct obj *otmp;
88 {
89         struct obj *otmp2;
90         unsigned xl;
91         int minusone = -1;
92
93         while(otmp) {
94                 otmp2 = otmp->nobj;
95                 xl = otmp->onamelth;
96                 bwrite(fd, (char *) &xl, sizeof(int));
97                 bwrite(fd, (char *) otmp, xl + sizeof(struct obj));
98                 free((char *) otmp);
99                 otmp = otmp2;
100         }
101         bwrite(fd, (char *) &minusone, sizeof(int));
102 }
103
104 savemonchn(fd,mtmp)
105 int fd;
106 struct monst *mtmp;
107 {
108         struct monst *mtmp2;
109         unsigned xl;
110         int minusone = -1;
111         struct permonst *monbegin = &mons[0];
112
113         bwrite(fd, (char *) &monbegin, sizeof(monbegin));
114
115         while(mtmp) {
116                 mtmp2 = mtmp->nmon;
117                 xl = mtmp->mxlth + mtmp->mnamelth;
118                 bwrite(fd, (char *) &xl, sizeof(int));
119                 bwrite(fd, (char *) mtmp, xl + sizeof(struct monst));
120                 if(mtmp->minvent) saveobjchn(fd,mtmp->minvent);
121                 free((char *) mtmp);
122                 mtmp = mtmp2;
123         }
124         bwrite(fd, (char *) &minusone, sizeof(int));
125 }
126
127 savegoldchn(fd,gold)
128 int fd;
129 struct gold *gold;
130 {
131         struct gold *gold2;
132         while(gold) {
133                 gold2 = gold->ngold;
134                 bwrite(fd, (char *) gold, sizeof(struct gold));
135                 free((char *) gold);
136                 gold = gold2;
137         }
138         bwrite(fd, nul, sizeof(struct gold));
139 }
140
141 savetrapchn(fd,trap)
142 int fd;
143 struct trap *trap;
144 {
145         struct trap *trap2;
146         while(trap) {
147                 trap2 = trap->ntrap;
148                 bwrite(fd, (char *) trap, sizeof(struct trap));
149                 free((char *) trap);
150                 trap = trap2;
151         }
152         bwrite(fd, nul, sizeof(struct trap));
153 }
154
155 getlev(fd,pid,lev)
156 int fd,pid;
157 xchar lev;
158 {
159         struct gold *gold;
160         struct trap *trap;
161 #ifndef NOWORM
162         struct wseg *wtmp;
163 #endif /* NOWORM */
164         int tmp;
165         long omoves;
166         int hpid;
167         xchar dlvl;
168
169         /* First some sanity checks */
170         mread(fd, (char *) &hpid, sizeof(hpid));
171         mread(fd, (char *) &dlvl, sizeof(dlvl));
172         if((pid && pid != hpid) || (lev && dlvl != lev)) {
173                 pline("Strange, this map is not as I remember it.");
174                 pline("Somebody is trying some trickery here ...");
175                 pline("This game is void ...");
176                 done("tricked");
177         }
178
179         fgold = 0;
180         ftrap = 0;
181         mread(fd, (char *) levl, sizeof(levl));
182         mread(fd, (char *)&omoves, sizeof(omoves));
183         mread(fd, (char *)&xupstair, sizeof(xupstair));
184         mread(fd, (char *)&yupstair, sizeof(yupstair));
185         mread(fd, (char *)&xdnstair, sizeof(xdnstair));
186         mread(fd, (char *)&ydnstair, sizeof(ydnstair));
187
188         fmon = restmonchn(fd);
189
190         /* regenerate animals while on another level */
191         { long tmoves = (moves > omoves) ? moves-omoves : 0;
192           struct monst *mtmp, *mtmp2;
193           extern char genocided[];
194
195           for(mtmp = fmon; mtmp; mtmp = mtmp2) {
196                 long newhp;             /* tmoves may be very large */
197
198                 mtmp2 = mtmp->nmon;
199                 if(index(genocided, mtmp->data->mlet)) {
200                         mondead(mtmp);
201                         continue;
202                 }
203
204                 if(mtmp->mtame && tmoves > 250) {
205                         mtmp->mtame = 0;
206                         mtmp->mpeaceful = 0;
207                 }
208
209                 newhp = mtmp->mhp +
210                         (index(MREGEN, mtmp->data->mlet) ? tmoves : tmoves/20);
211                 if(newhp > mtmp->mhpmax)
212                         mtmp->mhp = mtmp->mhpmax;
213                 else
214                         mtmp->mhp = newhp;
215           }
216         }
217
218         setgd();
219         gold = newgold();
220         mread(fd, (char *)gold, sizeof(struct gold));
221         while(gold->gx) {
222                 gold->ngold = fgold;
223                 fgold = gold;
224                 gold = newgold();
225                 mread(fd, (char *)gold, sizeof(struct gold));
226         }
227         free((char *) gold);
228         trap = newtrap();
229         mread(fd, (char *)trap, sizeof(struct trap));
230         while(trap->tx) {
231                 trap->ntrap = ftrap;
232                 ftrap = trap;
233                 trap = newtrap();
234                 mread(fd, (char *)trap, sizeof(struct trap));
235         }
236         free((char *) trap);
237         fobj = restobjchn(fd);
238         billobjs = restobjchn(fd);
239         rest_engravings(fd);
240 #ifndef QUEST
241         mread(fd, (char *)rooms, sizeof(rooms));
242         mread(fd, (char *)doors, sizeof(doors));
243 #endif /* QUEST */
244 #ifndef NOWORM
245         mread(fd, (char *)wsegs, sizeof(wsegs));
246         for(tmp = 1; tmp < 32; tmp++) if(wsegs[tmp]){
247                 wheads[tmp] = wsegs[tmp] = wtmp = newseg();
248                 while(1) {
249                         mread(fd, (char *)wtmp, sizeof(struct wseg));
250                         if(!wtmp->nseg) break;
251                         wheads[tmp]->nseg = wtmp = newseg();
252                         wheads[tmp] = wtmp;
253                 }
254         }
255         mread(fd, (char *)wgrowtime, sizeof(wgrowtime));
256 #endif /* NOWORM */
257 }
258
259 mread(fd, buf, len)
260 int fd;
261 char *buf;
262 unsigned len;
263 {
264         int rlen;
265         extern boolean restoring;
266
267         rlen = read(fd, buf, (int) len);
268         if(rlen != len){
269                 pline("Read %d instead of %u bytes.\n", rlen, len);
270                 if(restoring) {
271                         (void) unlink(SAVEF);
272                         error("Error restoring old game.");
273                 }
274                 panic("Error reading level file.");
275         }
276 }
277
278 mklev()
279 {
280         extern boolean in_mklev;
281
282         if(getbones()) return;
283
284         in_mklev = TRUE;
285         makelevel();
286         in_mklev = FALSE;
287 }