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 } 270