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