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.2 2003/06/17 04:25:24 dillon 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 } 288