Branch data Line data Source code
1 : : /* omega copyright (c) 1987,1988,1989 by Laurence Raphael Brothers */
2 : : /* save.c */
3 : :
4 : : #ifndef MSDOS_SUPPORTED_ANTIQUE
5 : : #include <unistd.h>
6 : : #include <stdlib.h>
7 : : #endif
8 : :
9 : : #include "glob.h"
10 : :
11 : : #ifdef ALLOWING_OLD_SAVEFILES
12 : : /* holds the OLD_ definitions */
13 : : # include "oldsave.h"
14 : : #endif
15 : :
16 : : /*Various functions for doing game saves and restores */
17 : : /*The game remembers various player information, the city level,
18 : : the country level, and the last or current dungeon level */
19 : :
20 : : #if defined(MSDOS_SUPPORTED_ANTIQUE) || defined(AMIGA)
21 : : void do_compression(int, char *);
22 : : #endif
23 : :
24 : : /**************** SAVE FUNCTIONS */
25 : :
26 : : /* Checks to see if save file already exists.
27 : : Checks to see if save file can be opened for write.
28 : : The player, the city level, and the current dungeon level are saved.
29 : : */
30 : :
31 : 1 : int save_game(int compress, char *savestr)
32 : : {
33 : : FILE *fd;
34 : : int slashpos;
35 : : #ifdef SAVE_LEVELS
36 : : int tmpdepth;
37 : : #endif
38 : 1 : int i,writeok=TRUE;
39 : : plv current, save;
40 : : #ifdef COMPRESS_SAVE_FILES
41 : : char temp[200];
42 : : #endif
43 : :
44 : : #ifndef MSDOS_SUPPORTED_ANTIQUE
45 [ - + ]: 1 : if (access(savestr, R_OK) == 0)
46 [ # # ]: 0 : if (access(savestr, W_OK) == 0)
47 : : {
48 : 0 : mprint(" Overwrite old file?");
49 : 0 : writeok = (ynq() == 'y');
50 : : }
51 : : else
52 : : {
53 : 0 : mprint(" File already exists.");
54 : 0 : writeok = FALSE;
55 : : }
56 : : else
57 : : {
58 [ + + ][ + - ]: 7 : for (slashpos = strlen(savestr); slashpos > 0 && savestr[slashpos] != '/';
59 : 6 : slashpos--)
60 : : ;
61 [ - + ]: 1 : if (slashpos > 0)
62 : : {
63 : 0 : savestr[slashpos] = '\0';
64 [ # # ]: 0 : if (access(savestr, W_OK) == -1)
65 : : {
66 : 0 : mprint(" Unable to save to that directory.");
67 : 0 : writeok = FALSE;
68 : : }
69 : 0 : savestr[slashpos] = '/';
70 : : }
71 : : }
72 : : #endif
73 : 1 : change_to_user_perms();
74 [ + - ]: 1 : if (writeok) {
75 : 1 : fd = fopen(savestr,"wb");
76 [ - + ]: 1 : if (fd == NULL) {
77 : 0 : writeok = FALSE;
78 : 0 : mprint(" Error opening file.");
79 : : }
80 : : }
81 [ - + ]: 1 : if (! writeok)
82 : : {
83 : 0 : morewait();
84 : 0 : print2("Save aborted.");
85 : : }
86 : : else {
87 : :
88 : 1 : print1("Saving Game....");
89 : :
90 : : /* write the version number */
91 : 1 : i = VERSION;
92 : 1 : fwrite((char *)&i,sizeof(int),1,fd);
93 : : /* write game id to save file */
94 : :
95 : 1 : writeok &= save_player(fd);
96 : 1 : writeok &= save_country(fd);
97 : : #ifdef SAVE_LEVELS
98 : : tmpdepth = Level->depth;
99 : : City = msdos_changelevel(Level,E_CITY,0);
100 : : #endif
101 : 1 : writeok &= save_level(fd,City);
102 : :
103 [ - + ][ # # ]: 1 : if (Current_Environment == E_CITY || Current_Environment == E_COUNTRYSIDE)
104 : 1 : save = Dungeon;
105 [ # # ]: 0 : else if (Current_Environment == Current_Dungeon)
106 : 0 : save = Dungeon;
107 : : else
108 : 0 : save = Level;
109 [ - + ]: 1 : for (i = 0, current = save; current; current = current->next, i++)
110 : : ;
111 [ - + ]: 1 : if (!fwrite((char *)&i,sizeof(int),1,fd))
112 : 0 : writeok = FALSE;
113 : : #ifdef SAVE_LEVELS
114 : : Level = msdos_changelevel(NULL,Current_Environment,tmpdepth);
115 : : #endif
116 [ - + ]: 1 : for (current = save; current; current = current->next)
117 [ # # ]: 0 : if (current != Level)
118 : 0 : writeok &= save_level(fd,current);
119 [ - + ]: 1 : if (save)
120 : 0 : writeok &= save_level(fd,Level); /* put current level last */
121 : 1 : fclose(fd);
122 [ + - ]: 1 : if (writeok)
123 : 1 : print1("Game Saved.");
124 : : else
125 : 0 : print1("Something didn't work... save aborted.");
126 : : #ifdef COMPRESS_SAVE_FILES
127 : : if (writeok && compress) {
128 : : print2("Compressing Save File....");
129 : : # if defined(MSDOS) || defined(AMIGA)
130 : : do_compression(0, savestr);
131 : : strcpy(temp, savestr);
132 : : strcat(temp, "Z");
133 : : rename(temp, savestr);
134 : : # else
135 : : strcpy(temp,COMPRESSOR);
136 : : strcat(temp," ");
137 : : strcat(temp,savestr);
138 : : system(temp);
139 : : sprintf(temp, "%s.%s", savestr, COMPRESS_EXT);
140 : : unlink(savestr);
141 : : link(temp, savestr);
142 : : unlink(temp); /* renames, but sys-V doesn't have rename()... */
143 : : # endif
144 : : }
145 : : #endif
146 : 1 : morewait();
147 : 1 : clearmsg();
148 : : }
149 : 1 : change_to_game_perms();
150 : 1 : return(writeok);
151 : : }
152 : :
153 : :
154 : :
155 : :
156 : : /* saves game on SIGHUP */
157 : : /* no longer tries to compress, which hangs */
158 : 0 : void signalsave(int ignore)
159 : : {
160 : 0 : change_to_user_perms();
161 : 0 : save_game(FALSE, "Omega.Sav");
162 : : #ifdef COMPRESS_SAVE_FILES
163 : : print1("Signal - Saving uncompressed file 'Omega.Sav'.");
164 : : print2("You can compress it yourself, if you like.");
165 : : #else
166 : 0 : print1("Signal - Saving file 'Omega.Sav'.");
167 : : #endif
168 : 0 : morewait();
169 : 0 : endgraf();
170 : 0 : exit(0);
171 : : }
172 : :
173 : :
174 : : /* also saves some globals like Level->depth... */
175 : :
176 : 1 : int save_player(FILE *fd)
177 : : {
178 : : int i;
179 : 1 : int ok = 1;
180 : : #ifdef NEW_BANK
181 : : bank_account *account;
182 : : #endif
183 : :
184 : : /* Save random global state information */
185 : :
186 : 1 : Player.click = (Tick + 1)%60;
187 : 1 : ok &= (fwrite((char *)&Player,sizeof(Player),1,fd) > 0);
188 : : #ifndef NEW_BANK
189 : : ok &= (fprintf(fd,"%s\n",Password) >= 0);
190 : : #endif
191 : 1 : ok &= (fprintf(fd,"%s\n",Player.name) >= 0);
192 : 1 : ok &= (fwrite((char *)CitySiteList,sizeof(CitySiteList),1,fd) > 0);
193 : 1 : ok &= (fwrite((char *)&GameStatus,sizeof(long),1,fd) > 0);
194 : 1 : ok &= (fwrite((char *)&Current_Environment,sizeof(int),1,fd) > 0);
195 : 1 : ok &= (fwrite((char *)&Last_Environment,sizeof(int),1,fd) > 0);
196 : 1 : ok &= (fwrite((char *)&Current_Dungeon,sizeof(int),1,fd) > 0);
197 : 1 : ok &= (fwrite((char *)&Villagenum,sizeof(int),1,fd) > 0);
198 : 1 : ok &= (fwrite((char *)&Verbosity,sizeof(char),1,fd) > 0);
199 : 1 : ok &= (fwrite((char *)&Time,sizeof(long),1,fd) > 0);
200 : 1 : ok &= (fwrite((char *)&Tick,sizeof(int),1,fd) > 0);
201 : 1 : ok &= (fwrite((char *)&Searchnum,sizeof(int),1,fd) > 0);
202 : 1 : ok &= (fwrite((char *)&Behavior,sizeof(int),1,fd) > 0);
203 : 1 : ok &= (fwrite((char *)&Phase,sizeof(int),1,fd) > 0);
204 : 1 : ok &= (fwrite((char *)&Date,sizeof(int),1,fd) > 0);
205 : 1 : ok &= (fwrite((char *)&Spellsleft,sizeof(int),1,fd) > 0);
206 : 1 : ok &= (fwrite((char *)&SalaryAmount,sizeof(int),1,fd) > 0);
207 : 1 : ok &= (fwrite((char *)&SalaryAccount,sizeof(int),1,fd) > 0);
208 : 1 : ok &= (fwrite((char *)&Studiesleft,sizeof(int),1,fd) > 0);
209 : 1 : ok &= (fwrite((char *)&SymbolUseHour,sizeof(int),1,fd) > 0);
210 : 1 : ok &= (fwrite((char *)&SymbolUseDay,sizeof(int),1,fd) > 0);
211 : 1 : ok &= (fwrite((char *)&ViewHour,sizeof(int),1,fd) > 0);
212 : 1 : ok &= (fwrite((char *)&ViewDay,sizeof(int),1,fd) > 0);
213 : 1 : ok &= (fwrite((char *)&HelmHour,sizeof(int),1,fd) > 0);
214 : 1 : ok &= (fwrite((char *)&HelmDay,sizeof(int),1,fd) > 0);
215 : 1 : ok &= (fwrite((char *)&Constriction,sizeof(int),1,fd) > 0);
216 : 1 : ok &= (fwrite((char *)&Blessing,sizeof(int),1,fd) > 0);
217 : 1 : ok &= (fwrite((char *)&LastDay,sizeof(int),1,fd) > 0);
218 : 1 : ok &= (fwrite((char *)&RitualHour,sizeof(int),1,fd) > 0);
219 : 1 : ok &= (fwrite((char *)&Lawstone,sizeof(int),1,fd) > 0);
220 : 1 : ok &= (fwrite((char *)&Chaostone,sizeof(int),1,fd) > 0);
221 : 1 : ok &= (fwrite((char *)&Mindstone,sizeof(int),1,fd) > 0);
222 : 1 : ok &= (fwrite((char *)&Arena_Opponent,sizeof(int),1,fd) > 0);
223 : 1 : ok &= (fwrite((char *)&Imprisonment,sizeof(int),1,fd) > 0);
224 : 1 : ok &= (fwrite((char *)&Gymcredit,sizeof(long),1,fd) > 0);
225 : :
226 : : #ifdef NEW_BANK
227 : 1 : i = 0;
228 [ + + ]: 9 : for( account = bank; account; account = account->next_account ) i++;
229 : 1 : ok &= ( fwrite( (char *)&i, sizeof( int ), 1, fd ) > 0 );
230 [ + + ]: 9 : for( account = bank; account; account = account->next_account )
231 : : {
232 : 8 : ok &= ( fwrite( (char *)(&(account->player)), sizeof(short), 1, fd ) > 0 );
233 : 8 : ok &= ( fwrite( (char *)(&(account->balance)), sizeof(long), 1, fd ) > 0 );
234 : 8 : ok &= ( fwrite( (char *)(&(account->number)), sizeof(long), 1, fd ) > 0 );
235 : 8 : ok &= ( fprintf( fd, "%s\n", account->password ) >= 0 );
236 : : }
237 : : #else
238 : : ok &= (fwrite((char *)&Balance,sizeof(long),1,fd) > 0);
239 : : #endif
240 : :
241 : 1 : ok &= (fwrite((char *)&StarGemUse,sizeof(int),1,fd) > 0);
242 : 1 : ok &= (fwrite((char *)&HiMagicUse,sizeof(int),1,fd) > 0);
243 : 1 : ok &= (fwrite((char *)&HiMagic,sizeof(int),1,fd) > 0);
244 : 1 : ok &= (fwrite((char *)&FixedPoints,sizeof(long),1,fd) > 0);
245 : 1 : ok &= (fwrite((char *)&LastCountryLocX,sizeof(int),1,fd) > 0);
246 : 1 : ok &= (fwrite((char *)&LastCountryLocY,sizeof(int),1,fd) > 0);
247 : 1 : ok &= (fwrite((char *)&LastTownLocX,sizeof(int),1,fd) > 0);
248 : 1 : ok &= (fwrite((char *)&LastTownLocY,sizeof(int),1,fd) > 0);
249 : 1 : ok &= (fwrite((char *)&Pawndate,sizeof(int),1,fd) > 0);
250 : :
251 : 1 : ok &= (fwrite((char *)Spells,sizeof(Spells),1,fd) > 0);
252 : :
253 : 1 : ok &= (fwrite((char *)&Command_Duration,sizeof(Command_Duration),1,fd) > 0);
254 : 1 : ok &= (fwrite((char *)&Precipitation,sizeof(Precipitation),1,fd) > 0);
255 : 1 : ok &= (fwrite((char *)&Lunarity,sizeof(Lunarity),1,fd) > 0);
256 : 1 : ok &= (fwrite((char *)&ZapHour,sizeof(ZapHour),1,fd) > 0);
257 : 1 : ok &= (fwrite((char *)&RitualRoom,sizeof(RitualRoom),1,fd) > 0);
258 : :
259 : : /* stuff which used to be statics */
260 : 1 : ok &= (fwrite((char *)&twiddle,sizeof(twiddle),1,fd) > 0);
261 : 1 : ok &= (fwrite((char *)&saved,sizeof(saved),1,fd) > 0);
262 : 1 : ok &= (fwrite((char *)&onewithchaos,sizeof(onewithchaos),1,fd) > 0);
263 : 1 : ok &= (fwrite((char *)&club_hinthour,sizeof(club_hinthour),1,fd) > 0);
264 : 1 : ok &= (fwrite((char *)&winnings,sizeof(winnings),1,fd) > 0);
265 : 1 : ok &= (fwrite((char *)&tavern_hinthour,sizeof(tavern_hinthour),1,fd) > 0);
266 : 1 : ok &= (fwrite((char *)scroll_ids,sizeof(scroll_ids),1,fd) > 0);
267 : 1 : ok &= (fwrite((char *)potion_ids,sizeof(potion_ids),1,fd) > 0);
268 : 1 : ok &= (fwrite((char *)stick_ids,sizeof(stick_ids),1,fd) > 0);
269 : 1 : ok &= (fwrite((char *)ring_ids,sizeof(ring_ids),1,fd) > 0);
270 : 1 : ok &= (fwrite((char *)cloak_ids,sizeof(cloak_ids),1,fd) > 0);
271 : 1 : ok &= (fwrite((char *)boot_ids,sizeof(boot_ids),1,fd) > 0);
272 : 1 : ok &= (fwrite((char *)deepest,sizeof(int),E_MAX + 1,fd) > 0);
273 : 1 : ok &= (fwrite((char *)level_seed,sizeof(int),E_MAX + 1,fd) > 0);
274 : :
275 : : /* Save player possessions */
276 : :
277 [ - + ]: 1 : if (Player.possessions[O_READY_HAND] == Player.possessions[O_WEAPON_HAND])
278 : 0 : Player.possessions[O_READY_HAND] = NULL;
279 [ + + ]: 17 : for(i=0;i<MAXITEMS;i++) ok &= save_item(fd,Player.possessions[i]);
280 [ + + ]: 27 : for(i=0;i<MAXPACK;i++) ok &= save_item(fd,Player.pack[i]);
281 [ + + ]: 21 : for(i=0;i<PAWNITEMS;i++) ok &= save_item(fd,Pawnitems[i]);
282 : :
283 : : /* Save items in condo vault */
284 : 1 : ok &= save_itemlist(fd,Condoitems);
285 : : /* Save items in bag of holding */
286 : 1 : ok &= save_itemlist(fd,Bagitems);
287 : :
288 : : /* Save player item knowledge */
289 [ + + ]: 224 : for (i=0;i<TOTALITEMS;i++)
290 : : {
291 : 223 : ok &= (fwrite((char *)&(Objects[i].known),sizeof(Objects[i].known),1,fd) > 0);
292 : 223 : ok &= (fwrite((char *)&(Objects[i].uniqueness),sizeof(Objects[i].uniqueness),1,fd) > 0);
293 : : }
294 : 1 : return ok;
295 : : }
296 : :
297 : :
298 : : /* Save whatever is pointed to by level */
299 : 1 : int save_level(FILE *fd, plv level)
300 : : {
301 : : int i, j, run;
302 : : unsigned long int mask;
303 : 1 : int ok = 1;
304 : 1 : int width = level->level_width;
305 : 1 : int length = level->level_length;
306 : :
307 : 1 : ok &= (fwrite((char *)&level->depth,sizeof(char),1,fd) > 0);
308 : 1 : ok &= (fwrite((char *)&level->numrooms,sizeof(char),1,fd) > 0);
309 : 1 : ok &= (fwrite((char *)&level->tunnelled,sizeof(char),1,fd) > 0);
310 : 1 : ok &= (fwrite((char *)&level->environment,sizeof(int),1,fd) > 0);
311 : 1 : ok &= (fwrite((char *)&level->level_width,sizeof(int),1,fd) > 0);
312 : 1 : ok &= (fwrite((char *)&level->level_length,sizeof(int),1,fd) > 0);
313 [ + + ]: 65 : for (j = 0; j < length; j++)
314 [ + + ]: 4160 : for (i = 0; i < width; i++)
315 [ - + ]: 4096 : if (level->site[i][j].lstatus&CHANGED) { /* this loc has been changed */
316 [ # # ][ # # ]: 0 : for (run = i + 1; run < width && /* find how many in a row */
317 : 0 : level->site[run][j].lstatus&CHANGED; run++)
318 : : ;
319 : 0 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
320 : 0 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0);
321 : 0 : ok &= (fwrite((char *)&run,sizeof(int),1,fd) > 0);
322 [ # # ]: 0 : for (; i < run; i++)
323 : 0 : ok &= (fwrite((char *)&level->site[i][j],sizeof(struct location),1,fd) > 0);
324 : : }
325 : 1 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
326 : 1 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0); /* signify end */
327 : : /* since we don't mark the 'seen' bits as CHANGED, need to save a bitmask */
328 : 1 : run = 8*sizeof(long int);
329 : 1 : mask = 0;
330 [ + + ]: 65 : for (j = 0; j < length; j++)
331 [ + + ]: 4160 : for (i = 0; i < width; i++) {
332 [ + + ]: 4096 : if (run == 0) {
333 : 63 : run = 8*sizeof(long int);
334 : 63 : ok &= (fwrite((char *)&mask,sizeof(long int),1,fd) > 0);
335 : 63 : mask = 0;
336 : : }
337 : 4096 : mask >>= 1;
338 [ + + ]: 4096 : if (level->site[i][j].lstatus&SEEN)
339 : 3810 : mask |= (1UL<<(sizeof(long int)*8 - 1));
340 : 4096 : run--;
341 : : }
342 [ + - ]: 1 : if (run < 8*sizeof(long int))
343 : 1 : ok &= (fwrite((char *)&mask,sizeof(long int),1,fd) > 0);
344 : 1 : ok &= save_monsters(fd,level->mlist);
345 [ + + ]: 65 : for(i=0;i<width;i++)
346 [ + + ]: 4160 : for(j=0;j<length;j++)
347 [ + + ]: 4096 : if (level->site[i][j].things) {
348 : 35 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
349 : 35 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0);
350 : 35 : ok &= save_itemlist(fd,level->site[i][j].things);
351 : : }
352 : 1 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
353 : 1 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0); /* signify end */
354 : 1 : return ok;
355 : : }
356 : :
357 : :
358 : 1 : int save_monsters(FILE *fd, pml ml)
359 : : {
360 : : pml tml;
361 : 1 : int nummonsters=0;
362 : 1 : int ok = 1;
363 : : unsigned char type;
364 : :
365 : : /* First count monsters */
366 [ + + ]: 22 : for(tml=ml;tml!=NULL;tml=tml->next)
367 [ + - ]: 21 : if (tml->m->hp > 0) nummonsters++;
368 : :
369 : 1 : ok &= (fwrite((char *)&nummonsters,sizeof(int),1,fd) > 0);
370 : :
371 : : /* Now save monsters */
372 [ + + ]: 22 : for(tml=ml;tml!=NULL;tml=tml->next) {
373 [ + - ]: 21 : if (tml->m->hp > 0) {
374 : 21 : ok &= (fwrite((char *)tml->m,sizeof(montype),1,fd) > 0);
375 [ + + ]: 21 : if (tml->m->id != HISCORE_NPC) {
376 : 20 : type = 0x0;
377 : : /* DAG use pointer compare rather than strcmp; a bit more effecient */
378 [ - + ]: 20 : if (tml->m->monstring != Monsters[tml->m->id].monstring)
379 : 0 : type |= 0x1;
380 [ - + ]: 20 : if (tml->m->corpsestr != Monsters[tml->m->id].corpsestr)
381 : 0 : type |= 0x2;
382 : : /* DAG expect from now (version 9000) on that type will always be */
383 : : /* 0x3 (both) saved, but leave this way as it may not, and this */
384 : : /* preserves save-file compatibility without requiring code changes */
385 : 20 : ok &= (fwrite((char *)&type,sizeof(unsigned char),1,fd) > 0);
386 [ - + ]: 20 : if (type&1)
387 : 0 : ok &= (fprintf(fd,"%s\n",tml->m->monstring) >= 0);
388 [ - + ]: 20 : if (type&2)
389 : 0 : ok &= (fprintf(fd,"%s\n",tml->m->corpsestr) >= 0);
390 : : /* WDT: line moved from here... */
391 : : } /* else it'll be reloaded from the hiscore file on restore */
392 : : /* WDT: to here. This bug fix is Sheldon Simm's suggestion
393 : : * to fix the well-known 'Star Gem' bug; it should allow the
394 : : * possessions of hiscore NPCs to be restored from the savefile.
395 : : * See also the complementary change in restore_monsters. */
396 : 21 : ok &= save_itemlist(fd,tml->m->possessions);
397 : : }
398 : : }
399 : 1 : return ok;
400 : : }
401 : :
402 : :
403 : : /* Save o unless it's null, then save a special flag byte instead */
404 : : /* Use other values of flag byte to indicate what strings are saved */
405 : 116 : int save_item(FILE *fd, pob o)
406 : : {
407 : 116 : int ok = 1;
408 : : unsigned char type;
409 : :
410 [ + + ]: 116 : if (o == NULL) {
411 : 37 : type = 0xff;
412 : 37 : ok &= (fwrite((char *)&type,sizeof(type),1,fd) > 0);
413 : : }
414 : : else {
415 : 79 : type = 0;
416 : : /* DAG these strcmp could be just pointer comparisons, more efficient. */
417 [ + + ]: 79 : if (strcmp(o->objstr, Objects[o->id].objstr))
418 : 1 : type |= 1;
419 [ + + ]: 79 : if (strcmp(o->truename, Objects[o->id].truename))
420 : 1 : type |= 2;
421 [ + + ]: 79 : if (strcmp(o->cursestr, Objects[o->id].cursestr))
422 : 1 : type |= 4;
423 : : /* DAG following is true for corpses */
424 [ + + ][ + - ]: 79 : if ( (type && o->cursestr == o->objstr) && (o->cursestr == o->truename) )
[ + - ]
425 : 1 : type |=8;
426 : 79 : ok &= (fwrite((char *)&type,sizeof(type),1,fd) > 0);
427 : 79 : ok &= (fwrite((char *)o,sizeof(objtype),1,fd) > 0);
428 [ + + ]: 79 : if (type&1)
429 : 1 : ok &= (fprintf(fd,"%s\n",o->objstr) >= 0);
430 [ + + ]: 79 : if (type&2)
431 : 1 : ok &= (fprintf(fd,"%s\n",o->truename) >= 0);
432 [ + + ]: 79 : if (type&4)
433 : 1 : ok &= (fprintf(fd,"%s\n",o->cursestr) >= 0);
434 : : }
435 : 116 : return ok;
436 : : }
437 : :
438 : 58 : int save_itemlist(FILE *fd, pol ol)
439 : : {
440 : 58 : int numitems = 0;
441 : : pol tol;
442 : 58 : int ok = 1;
443 : :
444 [ + + ]: 112 : for(tol=ol;tol!=NULL;tol=tol->next) numitems++;
445 : 58 : ok &= (fwrite((char *)&numitems,sizeof(int),1,fd) > 0);
446 [ + + ]: 112 : for(tol=ol;tol!=NULL;tol=tol->next)
447 : 54 : ok &= save_item(fd,tol->thing);
448 : 58 : return ok;
449 : : }
450 : :
451 : :
452 : 1 : int save_country(FILE *fd)
453 : : {
454 : : int i, j;
455 : 1 : int ok = 1;
456 : : int run;
457 : : unsigned long int mask;
458 : :
459 [ + + ]: 65 : for (i = 0; i < COUNTRY_WIDTH; i++)
460 [ + + ]: 4160 : for (j = 0; j < COUNTRY_LENGTH; j++)
461 [ - + ]: 4096 : if (c_statusp(i, j, CHANGED)) {
462 : 0 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
463 : 0 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0);
464 : 0 : ok &= (fwrite((char *)&Country[i][j],sizeof(struct terrain),1,fd) > 0);
465 : : }
466 : 1 : ok &= (fwrite((char *)&i,sizeof(int),1,fd) > 0);
467 : 1 : ok &= (fwrite((char *)&j,sizeof(int),1,fd) > 0);
468 : : /* since we don't mark the 'seen' bits as CHANGED, need to save a bitmask */
469 : 1 : run = 8*sizeof(long int);
470 : 1 : mask = 0;
471 [ + + ]: 65 : for (i = 0; i < COUNTRY_WIDTH; i++)
472 [ + + ]: 4160 : for (j = 0; j < COUNTRY_LENGTH; j++) {
473 [ + + ]: 4096 : if (run == 0) {
474 : 63 : run = 8*sizeof(long int);
475 : 63 : ok &= (fwrite((char *)&mask,sizeof(long int),1,fd) > 0);
476 : 63 : mask = 0;
477 : : }
478 : 4096 : mask >>= 1;
479 [ + + ]: 4096 : if (c_statusp(i, j, SEEN))
480 : 302 : mask |= (1UL<<(sizeof(long int)*8 - 1));
481 : 4096 : run--;
482 : : }
483 [ + - ]: 1 : if (run < 8*sizeof(long int))
484 : 1 : ok &= (fwrite((char *)&mask,sizeof(long int),1,fd) > 0);
485 : 1 : return ok;
486 : : }
487 : :
488 : :
489 : : /* returns TRUE if the given version can be restored by this version */
490 : 0 : int ok_outdated(int version)
491 : : {
492 : : /* currently all backwards compatibility is broken, so fail ok_outdated()
493 : : until we actually re-install some type of backwards compatibility. DAG */
494 : :
495 : 0 : return FALSE;
496 : :
497 : : #if 0
498 : : switch (version) {
499 : : case 80:
500 : : print1("Converting version 0.80 savefile to current.");
501 : : morewait();
502 : : return TRUE;
503 : : break;
504 : : case 81:
505 : : print1("Converting version 0.81 savefile to current.");
506 : : morewait();
507 : : return TRUE;
508 : : break;
509 : : case 90:
510 : : print1("Converting version 0.90 savefile to current.");
511 : : morewait();
512 : : return TRUE;
513 : : break;
514 : : case 91:
515 : : /* version 91 is same as version 9000 right now */
516 : : return TRUE;
517 : : break;
518 : : case 9000:
519 : : /* DAG - 9000 is the re-numbered 90, for the new version numbering system. */
520 : : print1("Converting version 0.90 savefile to current.");
521 : : morewait();
522 : : return TRUE;
523 : : break;
524 : : default:
525 : : return FALSE;
526 : : break;
527 : : }
528 : : #endif /* #if 0 */
529 : : }
530 : :
531 : :
532 : : /* read player data, city level, dungeon level,
533 : : check on validity of save file, etc.
534 : : return TRUE if game restored, FALSE otherwise */
535 : :
536 : 1 : int restore_game(char *savestr)
537 : : {
538 : : int i,version;
539 : : #ifdef COMPRESS_SAVE_FILES
540 : : char temp[200];
541 : : #endif
542 : : FILE *fd;
543 : :
544 : : #ifndef MSDOS_SUPPORTED_ANTIQUE
545 [ - + ]: 1 : if (access(savestr, F_OK|R_OK|W_OK) == -1) /* access uses real uid */
546 : : {
547 : 0 : print1("Unable to access save file: ");
548 : 0 : nprint1(savestr);
549 : 0 : morewait();
550 : 0 : return FALSE;
551 : : }
552 : : #endif
553 : 1 : change_to_user_perms();
554 : : #ifdef COMPRESS_SAVE_FILES
555 : : fd = fopen(savestr,"rb");
556 : : if (fd == NULL) {
557 : : print1("Error restoring game -- aborted.");
558 : : print2("File name was: ");
559 : : nprint2(savestr);
560 : : morewait();
561 : : change_to_game_perms();
562 : : return(FALSE);
563 : : }
564 : : fread((char *)&version,sizeof(int),1,fd);
565 : : fclose(fd);
566 : : if (VERSION != version && !ok_outdated(version)) {
567 : : print1("Uncompressing Save File....");
568 : : #if defined(MSDOS) || defined(AMIGA)
569 : : strcpy(temp, savestr);
570 : : strcat(temp, "Z");
571 : : rename(savestr, temp);
572 : : do_compression(1, savestr);
573 : : #else
574 : : sprintf(temp, "%s.%s", savestr, COMPRESS_EXT);
575 : : unlink(temp);
576 : : link(savestr, temp);
577 : : unlink(savestr); /* renames, but sys-V doesn't have rename()... */
578 : : strcpy(temp,UNCOMPRESSOR);
579 : : strcat(temp," ");
580 : : strcat(temp,savestr);
581 : : system(temp);
582 : : #endif
583 : : print2("Save file uncompressed.");
584 : : morewait();
585 : : }
586 : : #endif
587 : :
588 : 1 : fd = fopen(savestr,"rb");
589 : :
590 [ - + ]: 1 : if (fd == NULL) {
591 : 0 : print1("Error restoring game -- aborted.");
592 : 0 : print2("File name was: ");
593 : 0 : nprint2(savestr);
594 : 0 : morewait();
595 : 0 : change_to_game_perms();
596 : 0 : return(FALSE);
597 : : }
598 : : else {
599 : 1 : print1("Restoring...");
600 : :
601 : 1 : fread((char *)&version,sizeof(int),1,fd);
602 : :
603 [ - + ][ # # ]: 1 : if (VERSION != version && !ok_outdated(version)) {
604 : 0 : change_to_game_perms();
605 : 0 : fclose(fd);
606 : 0 : clearmsg();
607 : 0 : mprint(" Sorry, I can't restore an outdated save file!");
608 : 0 : mprint(" savefile is version ");
609 : 0 : mnumprint(version/10000);
610 : 0 : nprint2(".");
611 : 0 : mnumprint( (version/100)%100);
612 : 0 : morewait();
613 : 0 : return(FALSE);
614 : : }
615 : 1 : restore_player(fd, version);
616 : 1 : restore_country(fd, version);
617 : 1 : restore_level(fd, version); /* the city level */
618 : 1 : fread((char *)&i,sizeof(int),1,fd);
619 [ + + ]: 2 : for (; i > 0; i--) {
620 : : #ifdef SAVE_LEVELS
621 : : msdos_changelevel(Level,0,-1);
622 : : #endif
623 : 1 : restore_level(fd, version);
624 [ - + ]: 1 : if (Level->environment == Current_Dungeon) {
625 : 0 : Level->next = Dungeon;
626 : 0 : Dungeon = Level;
627 : : }
628 [ - + ]: 1 : if (Current_Environment == E_CITY)
629 : 0 : Level = City;
630 : : }
631 : :
632 : 1 : fclose(fd);
633 : 1 : print3("Restoration complete.");
634 : 1 : ScreenOffset = -1000; /* to force a redraw */
635 : 1 : setgamestatus(SKIP_MONSTERS);
636 : 1 : change_to_game_perms();
637 : 1 : return(TRUE);
638 : : }
639 : : }
640 : :
641 : 1 : void restore_player(FILE *fd, int version)
642 : : {
643 : : int i;
644 : : #ifdef NEW_BANK
645 : : int num_accounts;
646 : : bank_account *account;
647 : : char pw_buf[ 64 ];
648 : : #endif
649 : :
650 : 1 : fread((char *)&Player,sizeof(Player),1,fd);
651 : : #ifndef NEW_BANK
652 : : filescanstring(fd,Password);
653 : : #endif
654 : 1 : filescanstring(fd,Player.name);
655 : : #ifdef ALLOWING_OLD_SAVEFILES
656 : : if( version < 91 ) /* DAG */
657 : : fread((char *)CitySiteList,(3*OLD_NUMCITYSITES*sizeof(int)),1,fd);
658 : : else
659 : : #endif
660 : 1 : fread((char *)CitySiteList,sizeof(CitySiteList),1,fd);
661 : 1 : fread((char *)&GameStatus,sizeof(long),1,fd);
662 : 1 : fread((char *)&Current_Environment,sizeof(int),1,fd);
663 : 1 : fread((char *)&Last_Environment,sizeof(int),1,fd);
664 : 1 : fread((char *)&Current_Dungeon,sizeof(int),1,fd);
665 : 1 : fread((char *)&Villagenum,sizeof(int),1,fd);
666 [ - - - - : 1 : switch(Current_Dungeon) {
- - + ]
667 : 0 : case E_ASTRAL: MaxDungeonLevels = ASTRALLEVELS; break;
668 : 0 : case E_SEWERS: MaxDungeonLevels = SEWERLEVELS; break;
669 : 0 : case E_CASTLE: MaxDungeonLevels = CASTLELEVELS; break;
670 : 0 : case E_CAVES: MaxDungeonLevels = CAVELEVELS; break;
671 : 0 : case E_VOLCANO: MaxDungeonLevels = VOLCANOLEVELS; break;
672 : 0 : case E_PALACE: MaxDungeonLevels = PALACELEVELS; break;
673 : : }
674 : 1 : fread((char *)&Verbosity,sizeof(char),1,fd);
675 : 1 : fread((char *)&Time,sizeof(long),1,fd);
676 : 1 : fread((char *)&Tick,sizeof(int),1,fd);
677 : 1 : fread((char *)&Searchnum,sizeof(int),1,fd);
678 : 1 : fread((char *)&Behavior,sizeof(int),1,fd);
679 : 1 : fread((char *)&Phase,sizeof(int),1,fd);
680 : 1 : fread((char *)&Date,sizeof(int),1,fd);
681 : 1 : fread((char *)&Spellsleft,sizeof(int),1,fd);
682 : 1 : fread((char *)&SalaryAmount,sizeof(int),1,fd);
683 : 1 : fread((char *)&SalaryAccount,sizeof(int),1,fd);
684 : 1 : fread((char *)&Studiesleft,sizeof(int),1,fd);
685 : 1 : fread((char *)&SymbolUseHour,sizeof(int),1,fd);
686 : 1 : fread((char *)&SymbolUseDay,sizeof(int),1,fd);
687 : 1 : fread((char *)&ViewHour,sizeof(int),1,fd);
688 : 1 : fread((char *)&ViewDay,sizeof(int),1,fd);
689 : 1 : fread((char *)&HelmHour,sizeof(int),1,fd);
690 : 1 : fread((char *)&HelmDay,sizeof(int),1,fd);
691 : 1 : fread((char *)&Constriction,sizeof(int),1,fd);
692 : 1 : fread((char *)&Blessing,sizeof(int),1,fd);
693 : 1 : fread((char *)&LastDay,sizeof(int),1,fd);
694 : 1 : fread((char *)&RitualHour,sizeof(int),1,fd);
695 : 1 : fread((char *)&Lawstone,sizeof(int),1,fd);
696 : 1 : fread((char *)&Chaostone,sizeof(int),1,fd);
697 : 1 : fread((char *)&Mindstone,sizeof(int),1,fd);
698 : 1 : fread((char *)&Arena_Opponent,sizeof(int),1,fd);
699 : 1 : fread((char *)&Imprisonment,sizeof(int),1,fd);
700 : 1 : fread((char *)&Gymcredit,sizeof(long),1,fd);
701 : :
702 : : #ifdef NEW_BANK
703 : 1 : fread( (char *)&num_accounts, sizeof( int ), 1, fd );
704 [ + + ]: 9 : for( i = 0; i < num_accounts; i++ )
705 : : {
706 : 8 : account = (bank_account *)checkmalloc( sizeof( bank_account ));
707 : 8 : fread( (char *)(&(account->player)), sizeof(short), 1, fd );
708 : 8 : fread( (char *)(&(account->balance)), sizeof(long), 1, fd );
709 : 8 : fread( (char *)(&(account->number)), sizeof(long), 1, fd );
710 : 8 : filescanstring( fd, pw_buf );
711 : 8 : account->password = salloc( pw_buf );
712 : 8 : account->next_account = bank;
713 : 8 : bank = account;
714 : : }
715 : : #else
716 : : fread((char *)&Balance,sizeof(long),1,fd);
717 : : #endif
718 : :
719 : 1 : fread((char *)&StarGemUse,sizeof(int),1,fd);
720 : 1 : fread((char *)&HiMagicUse,sizeof(int),1,fd);
721 : 1 : fread((char *)&HiMagic,sizeof(int),1,fd);
722 : 1 : fread((char *)&FixedPoints,sizeof(long),1,fd);
723 : 1 : fread((char *)&LastCountryLocX,sizeof(int),1,fd);
724 : 1 : fread((char *)&LastCountryLocY,sizeof(int),1,fd);
725 : 1 : fread((char *)&LastTownLocX,sizeof(int),1,fd);
726 : 1 : fread((char *)&LastTownLocY,sizeof(int),1,fd);
727 : 1 : fread((char *)&Pawndate,sizeof(int),1,fd);
728 : :
729 : 1 : fread((char *)Spells,sizeof(Spells),1,fd);
730 : :
731 : 1 : fread((char *)&Command_Duration,sizeof(Command_Duration),1,fd);
732 : 1 : fread((char *)&Precipitation,sizeof(Precipitation),1,fd);
733 : 1 : fread((char *)&Lunarity,sizeof(Lunarity),1,fd);
734 : 1 : fread((char *)&ZapHour,sizeof(ZapHour),1,fd);
735 : 1 : fread((char *)&RitualRoom,sizeof(RitualRoom),1,fd);
736 : :
737 : : /* stuff which used to be statics */
738 : 1 : fread((char *)&twiddle,sizeof(twiddle),1,fd);
739 : 1 : fread((char *)&saved,sizeof(saved),1,fd);
740 : 1 : fread((char *)&onewithchaos,sizeof(onewithchaos),1,fd);
741 : 1 : fread((char *)&club_hinthour,sizeof(club_hinthour),1,fd);
742 : 1 : fread((char *)&winnings,sizeof(winnings),1,fd);
743 : 1 : fread((char *)&tavern_hinthour,sizeof(tavern_hinthour),1,fd);
744 : 1 : fread((char *)scroll_ids,sizeof(scroll_ids),1,fd);
745 : 1 : fread((char *)potion_ids,sizeof(potion_ids),1,fd);
746 : 1 : fread((char *)stick_ids,sizeof(stick_ids),1,fd);
747 : 1 : fread((char *)ring_ids,sizeof(ring_ids),1,fd);
748 : 1 : fread((char *)cloak_ids,sizeof(cloak_ids),1,fd);
749 : 1 : fread((char *)boot_ids,sizeof(boot_ids),1,fd);
750 : 1 : fread((char *)deepest,sizeof(int),E_MAX + 1,fd);
751 : 1 : fread((char *)level_seed,sizeof(int),E_MAX + 1,fd);
752 : :
753 : : /* Set up the strings for the id's */
754 : 1 : inititem(FALSE);
755 : :
756 [ + + ]: 17 : for(i=0;i<MAXITEMS;i++)
757 : 16 : Player.possessions[i] = restore_item(fd, version);
758 : :
759 [ - + ]: 1 : if (!Player.possessions[O_READY_HAND] && Player.possessions[O_WEAPON_HAND] &&
[ # # # # ]
760 : 0 : twohandedp(Player.possessions[O_WEAPON_HAND]->id))
761 : 0 : Player.possessions[O_READY_HAND] = Player.possessions[O_WEAPON_HAND];
762 : :
763 [ + + ]: 27 : for(i=0;i<MAXPACK;i++)
764 : 26 : Player.pack[i] = restore_item(fd, version);
765 [ + + ]: 21 : for(i=0;i<PAWNITEMS;i++)
766 : 20 : Pawnitems[i] = restore_item(fd, version);
767 : 1 : Condoitems = restore_itemlist(fd, version);
768 : : /* Added bag of holding in 9001, so need to restore list. */
769 [ - + ]: 1 : if (version < 9001)
770 : 0 : Bagitems = NULL;
771 : : else
772 : 1 : Bagitems = restore_itemlist(fd, version);
773 : :
774 [ + + ]: 224 : for (i=0;i<TOTALITEMS;i++)
775 : : {
776 : : /* Add bag of holding, skip its position in the 2 arrays */
777 [ - + ][ # # ]: 223 : if ( (version < 9001) && (i == 215) )
778 : 0 : i = 216;
779 : 223 : fread((char *)&(Objects[i].known),sizeof(Objects[i].known),1,fd);
780 [ + - ]: 223 : if (version != 80)
781 : 223 : fread((char *)&(Objects[i].uniqueness),sizeof(Objects[i].uniqueness),1,fd);
782 : : }
783 : 1 : }
784 : :
785 : :
786 : :
787 : : /* Restore an item, the first byte tells us if it's NULL, and what strings */
788 : : /* have been saved as different from the typical */
789 : 165 : pob restore_item(FILE *fd, int version)
790 : : {
791 : : char tempstr[80];
792 : : unsigned char type;
793 : 165 : pob obj = NULL;
794 : :
795 : 165 : fread((char *)&type,sizeof(type),1,fd);
796 [ + + ]: 165 : if (type != 0xff) {
797 : 131 : obj = ((pob) checkmalloc(sizeof(objtype)));
798 : 131 : fread((char *)obj,sizeof(objtype),1,fd);
799 : :
800 : : /* DAG -- added object 215 (bag of holding) in 9001; have to renumber */
801 [ - + ]: 131 : if (version < 9001 )
802 [ # # ]: 0 : if (obj->id >= 215)
803 : 0 : obj->id++;
804 : :
805 [ + + ]: 131 : if (type&8)
806 : : {
807 : : /* DAG case to handle corpses */
808 [ + - ]: 1 : if (type&1)
809 : 1 : filescanstring(fd,tempstr);
810 [ + - ]: 1 : if (type&2)
811 : 1 : filescanstring(fd,tempstr);
812 [ + - ]: 1 : if (type&4)
813 : 1 : filescanstring(fd,tempstr);
814 : 1 : obj->objstr = obj->truename = obj->cursestr = salloc(tempstr);
815 : : }
816 : : else
817 : : {
818 [ - + ]: 130 : if (type&1) {
819 : 0 : filescanstring(fd,tempstr);
820 : 0 : obj->objstr = salloc(tempstr);
821 : : }
822 : : else
823 : 130 : obj->objstr = Objects[obj->id].objstr;
824 [ - + ]: 130 : if (type&2) {
825 : 0 : filescanstring(fd,tempstr);
826 : 0 : obj->truename = salloc(tempstr);
827 : : }
828 : : else
829 : 130 : obj->truename = Objects[obj->id].truename;
830 [ - + ]: 130 : if (type&4) {
831 : 0 : filescanstring(fd,tempstr);
832 : 0 : obj->cursestr = salloc(tempstr);
833 : : }
834 : : else
835 : 130 : obj->cursestr = Objects[obj->id].cursestr;
836 : : }
837 : : }
838 : 165 : return obj;
839 : : }
840 : :
841 : 74 : pol restore_itemlist(FILE *fd, int version)
842 : : {
843 : 74 : pol ol=NULL,cur=NULL,new=NULL;
844 : 74 : int i,numitems,firsttime=TRUE;
845 : 74 : fread((char *)&numitems,sizeof(int),1,fd);
846 [ + + ]: 177 : for(i=0;i<numitems;i++) {
847 : 103 : new = ((pol) checkmalloc(sizeof(oltype)));
848 : 103 : new->thing = restore_item(fd, version);
849 : 103 : new->next = NULL;
850 [ + + ]: 103 : if (firsttime==TRUE) {
851 : 63 : ol = cur = new;
852 : 63 : firsttime = FALSE;
853 : : }
854 : : else {
855 : 40 : cur->next = new;
856 : 40 : cur = new;
857 : : }
858 : : }
859 : 74 : return(ol);
860 : : }
861 : :
862 : : /* converts old location function ids to current ones. DAG */
863 : 0 : void fix_p_locf( unsigned char *p_locf, int version )
864 : : /* char *p_locf is pointer to single char, not a string */
865 : : {
866 : : #ifdef ALLOWING_OLD_SAVEFILES
867 : : if( version < 91 )
868 : : {
869 : : switch( *p_locf )
870 : : {
871 : : case OLD_L_NO_OP : *p_locf = L_NO_OP; break;
872 : : case OLD_L_LIFT : *p_locf = L_LIFT; break;
873 : : case OLD_L_BALANCESTONE : *p_locf = L_BALANCESTONE; break;
874 : : case OLD_L_FIRE : *p_locf = L_FIRE; break;
875 : : case OLD_L_WHIRLWIND : *p_locf = L_WHIRLWIND; break;
876 : : case OLD_L_VOIDSTONE : *p_locf = L_VOIDSTONE; break;
877 : : case OLD_L_WARNING : *p_locf = L_WARNING; break;
878 : : case OLD_L_ARENA_EXIT : *p_locf = L_ARENA_EXIT; break;
879 : : case OLD_L_HOUSE_EXIT : *p_locf = L_HOUSE_EXIT; break;
880 : : case OLD_L_SAFE : *p_locf = L_SAFE; break;
881 : : case OLD_L_CHARITY : *p_locf = L_CHARITY; break;
882 : : case OLD_L_ARMORER : *p_locf = L_ARMORER; break;
883 : : case OLD_L_CLUB : *p_locf = L_CLUB; break;
884 : : case OLD_L_GYM : *p_locf = L_GYM; break;
885 : : case OLD_L_THIEVES_GUILD : *p_locf = L_THIEVES_GUILD; break;
886 : : case OLD_L_COLLEGE : *p_locf = L_COLLEGE; break;
887 : : case OLD_L_HEALER : *p_locf = L_HEALER; break;
888 : : case OLD_L_CASINO : *p_locf = L_CASINO; break;
889 : : case OLD_L_TAVERN : *p_locf = L_TAVERN; break;
890 : : case OLD_L_MERC_GUILD : *p_locf = L_MERC_GUILD; break;
891 : : case OLD_L_ALCHEMIST : *p_locf = L_ALCHEMIST; break;
892 : : case OLD_L_SORCERORS : *p_locf = L_SORCERORS; break;
893 : : case OLD_L_CASTLE : *p_locf = L_CASTLE; break;
894 : : case OLD_L_ARENA : *p_locf = L_ARENA; break;
895 : : case OLD_L_DPW : *p_locf = L_DPW; break;
896 : : case OLD_L_LIBRARY : *p_locf = L_LIBRARY; break;
897 : : case OLD_L_PAWN_SHOP : *p_locf = L_PAWN_SHOP; break;
898 : : case OLD_L_BANK : *p_locf = L_BANK; break;
899 : : case OLD_L_CONDO : *p_locf = L_CONDO; break;
900 : : case OLD_L_ORACLE : *p_locf = L_ORACLE; break;
901 : : case OLD_L_ORDER : *p_locf = L_ORDER; break;
902 : : case OLD_L_DINER : *p_locf = L_DINER; break;
903 : : case OLD_L_COMMANDANT : *p_locf = L_COMMANDANT; break;
904 : : case OLD_L_CRAP : *p_locf = L_CRAP; break;
905 : : case OLD_L_TEMPLE : *p_locf = L_TEMPLE; break;
906 : : case OLD_L_COUNTRYSIDE : *p_locf = L_COUNTRYSIDE; break;
907 : : case OLD_L_BROTHEL : *p_locf = L_BROTHEL; break;
908 : : case OLD_L_JAIL : *p_locf = L_JAIL; break;
909 : : case OLD_L_TEMPLE_WARNING : *p_locf = L_TEMPLE_WARNING; break;
910 : : case OLD_L_LAWSTONE : *p_locf = L_LAWSTONE; break;
911 : : case OLD_L_CHAOSTONE : *p_locf = L_CHAOSTONE; break;
912 : : case OLD_L_EARTH_STATION : *p_locf = L_EARTH_STATION; break;
913 : : case OLD_L_FIRE_STATION : *p_locf = L_FIRE_STATION; break;
914 : : case OLD_L_WATER_STATION : *p_locf = L_WATER_STATION; break;
915 : : case OLD_L_AIR_STATION : *p_locf = L_AIR_STATION; break;
916 : : case OLD_L_VOID_STATION : *p_locf = L_VOID_STATION; break;
917 : : case OLD_L_VOID : *p_locf = L_VOID; break;
918 : : case OLD_L_VOICE1 : *p_locf = L_VOICE1; break;
919 : : case OLD_L_VOICE2 : *p_locf = L_VOICE2; break;
920 : : case OLD_L_VOICE3 : *p_locf = L_VOICE3; break;
921 : : case OLD_L_SACRIFICESTONE : *p_locf = L_SACRIFICESTONE; break;
922 : : case OLD_L_TOME1 : *p_locf = L_TOME1; break;
923 : : case OLD_L_TOME2 : *p_locf = L_TOME2; break;
924 : : case OLD_L_ENTER_CIRCLE : *p_locf = L_ENTER_CIRCLE; break;
925 : : case OLD_L_CIRCLE_LIBRARY : *p_locf = L_CIRCLE_LIBRARY; break;
926 : : case OLD_L_DRUID : *p_locf = L_DRUID; break;
927 : : case OLD_L_ALTAR : *p_locf = L_ALTAR; break;
928 : : case OLD_L_GARDEN : *p_locf = L_GARDEN; break;
929 : : case OLD_L_ADEPT : *p_locf = L_ADEPT; break;
930 : : case OLD_L_SEWER : *p_locf = L_SEWER; break;
931 : : case OLD_L_OMEGA : *p_locf = L_OMEGA; break;
932 : : case OLD_L_CARTOGRAPHER : *p_locf = L_CARTOGRAPHER; break;
933 : : case OLD_L_STABLES : *p_locf = L_STABLES; break;
934 : : case OLD_L_COMMONS : *p_locf = L_COMMONS; break;
935 : : case OLD_L_GRANARY : *p_locf = L_GRANARY; break;
936 : : case OLD_L_MAZE : *p_locf = L_MAZE; break;
937 : : case OLD_L_HOVEL : *p_locf = L_HOVEL; break;
938 : : case OLD_L_HOUSE : *p_locf = L_HOUSE; break;
939 : : case OLD_L_MANSION : *p_locf = L_MANSION; break;
940 : : case OLD_L_OCCUPIED_HOUSE : *p_locf = L_OCCUPIED_HOUSE; break;
941 : : case OLD_L_TACTICAL_EXIT : *p_locf = L_TACTICAL_EXIT; break;
942 : : case OLD_L_VAULT : *p_locf = L_VAULT; break;
943 : : case OLD_L_CEMETARY : *p_locf = L_CEMETARY; break;
944 : : case OLD_L_THRONE : *p_locf = L_THRONE; break;
945 : : case OLD_L_ESCALATOR : *p_locf = L_ESCALATOR; break;
946 : : case OLD_L_ENTER_COURT : *p_locf = L_ENTER_COURT; break;
947 : : case OLD_L_TRIFID : *p_locf = L_TRIFID; break;
948 : : case OLD_L_FINAL_ABYSS : *p_locf = L_FINAL_ABYSS; break;
949 : : case OLD_L_RAISE_PORTCULLIS : *p_locf = L_RAISE_PORTCULLIS; break;
950 : : case OLD_L_MINDSTONE : *p_locf = L_MINDSTONE; break;
951 : : case OLD_L_CHAOS : *p_locf = L_CHAOS; break;
952 : : case OLD_L_WATER : *p_locf = L_WATER; break;
953 : : case OLD_L_LAVA : *p_locf = L_LAVA; break;
954 : : case OLD_L_MAGIC_POOL : *p_locf = L_MAGIC_POOL; break;
955 : : case OLD_L_PORTCULLIS_TRAP : *p_locf = L_PORTCULLIS_TRAP; break;
956 : : case OLD_L_DROP_EVERY_PORTCULLIS : *p_locf = L_DROP_EVERY_PORTCULLIS; break;
957 : : case OLD_L_PORTCULLIS : *p_locf = L_PORTCULLIS; break;
958 : : case OLD_L_TRAP_DART : *p_locf = L_TRAP_DART; break;
959 : : case OLD_L_TRAP_PIT : *p_locf = L_TRAP_PIT; break;
960 : : case OLD_L_TRAP_DOOR : *p_locf = L_TRAP_DOOR; break;
961 : : case OLD_L_TRAP_SNARE : *p_locf = L_TRAP_SNARE; break;
962 : : case OLD_L_TRAP_BLADE : *p_locf = L_TRAP_BLADE; break;
963 : : case OLD_L_TRAP_FIRE : *p_locf = L_TRAP_FIRE; break;
964 : : case OLD_L_TRAP_TELEPORT : *p_locf = L_TRAP_TELEPORT; break;
965 : : case OLD_L_TRAP_DISINTEGRATE : *p_locf = L_TRAP_DISINTEGRATE; break;
966 : : case OLD_L_TRAP_SLEEP_GAS : *p_locf = L_TRAP_SLEEP_GAS; break;
967 : : case OLD_L_TRAP_ACID : *p_locf = L_TRAP_ACID; break;
968 : : case OLD_L_TRAP_MANADRAIN : *p_locf = L_TRAP_MANADRAIN; break;
969 : : case OLD_L_TRAP_ABYSS : *p_locf = L_TRAP_ABYSS; break;
970 : : case OLD_L_TRAP_SIREN : *p_locf = L_TRAP_SIREN; break;
971 : : case OLD_L_STATUE_WAKE : *p_locf = L_STATUE_WAKE; break;
972 : : case OLD_L_STATUE_RANDOM : *p_locf = L_STATUE_RANDOM; break;
973 : : case OLD_L_HEDGE : *p_locf = L_HEDGE; break;
974 : : case OLD_L_RUBBLE : *p_locf = L_RUBBLE; break;
975 : : case OLD_L_ABYSS : *p_locf = L_ABYSS; break;
976 : : default: *p_locf = L_NO_OP; break; /* shouldn't happen */
977 : : }
978 : : }
979 : : #endif
980 : 0 : }
981 : :
982 : 2 : void restore_level(FILE *fd, int version)
983 : : {
984 : : int i, j, run;
985 : : unsigned long int mask;
986 : : int temp_env;
987 : : int length, width;
988 : :
989 : 2 : Level = (plv) checkmalloc(sizeof(levtype));
990 : 2 : clear_level(Level);
991 : 2 : fread((char *)&Level->depth,sizeof(char),1,fd);
992 : 2 : fread((char *)&Level->numrooms,sizeof(char),1,fd);
993 : 2 : fread((char *)&Level->tunnelled,sizeof(char),1,fd);
994 : 2 : fread((char *)&Level->environment,sizeof(int),1,fd);
995 : 2 : fread((char *)&Level->level_width,sizeof(int),1,fd);
996 : 2 : fread((char *)&Level->level_length,sizeof(int),1,fd);
997 : :
998 : 2 : width = Level->level_width;
999 : 2 : length = Level->level_length;
1000 : 2 : Level->generated = TRUE;
1001 : 2 : temp_env = Current_Environment;
1002 : 2 : Current_Environment = Level->environment;
1003 [ - + + - : 2 : switch(Level->environment) {
- - - - -
- - - - -
- - - ]
1004 : : case E_COUNTRYSIDE:
1005 : 0 : load_country();
1006 : 0 : break;
1007 : : case E_CITY:
1008 : 1 : load_city(FALSE);
1009 : 1 : break;
1010 : : case E_VILLAGE:
1011 : 1 : load_village(Country[LastCountryLocX][LastCountryLocY].aux, FALSE);
1012 : 1 : break;
1013 : : case E_CAVES:
1014 : 0 : initrand(Current_Environment, Level->depth);
1015 [ # # ][ # # ]: 0 : if ((random_range(4)==0) && (Level->depth < MaxDungeonLevels))
1016 : 0 : room_level();
1017 : 0 : else cavern_level();
1018 : 0 : break;
1019 : : case E_SEWERS:
1020 : 0 : initrand(Current_Environment, Level->depth);
1021 [ # # ][ # # ]: 0 : if ((random_range(4)==0) && (Level->depth < MaxDungeonLevels))
1022 : 0 : room_level();
1023 : 0 : else sewer_level();
1024 : 0 : break;
1025 : : case E_CASTLE:
1026 : 0 : initrand(Current_Environment, Level->depth);
1027 : 0 : room_level();
1028 : 0 : break;
1029 : : case E_PALACE:
1030 : 0 : initrand(Current_Environment, Level->depth);
1031 : 0 : room_level(); /* TODO PGM */
1032 : 0 : break;
1033 : : case E_ASTRAL:
1034 : 0 : initrand(Current_Environment, Level->depth);
1035 : 0 : maze_level();
1036 : 0 : break;
1037 : : case E_VOLCANO:
1038 : 0 : initrand(Current_Environment, Level->depth);
1039 [ # # # # ]: 0 : switch(random_range(3)) {
1040 : 0 : case 0: cavern_level(); break;
1041 : 0 : case 1: room_level(); break;
1042 : 0 : case 2: maze_level(); break;
1043 : : }
1044 : 0 : break;
1045 : : case E_HOVEL:
1046 : : case E_MANSION:
1047 : : case E_HOUSE:
1048 : 0 : load_house(Level->environment, FALSE);
1049 : 0 : break;
1050 : : case E_DLAIR:
1051 : 0 : load_dlair(gamestatusp(KILLED_DRAGONLORD), FALSE);
1052 : 0 : break;
1053 : : case E_STARPEAK:
1054 : 0 : load_speak(gamestatusp(KILLED_LAWBRINGER), FALSE);
1055 : 0 : break;
1056 : : case E_MAGIC_ISLE:
1057 : 0 : load_misle(gamestatusp(KILLED_EATER), FALSE);
1058 : 0 : break;
1059 : : case E_TEMPLE:
1060 : 0 : load_temple(Country[LastCountryLocX][LastCountryLocY].aux, FALSE);
1061 : 0 : break;
1062 : : case E_CIRCLE:
1063 : 0 : load_circle(FALSE);
1064 : 0 : break;
1065 : : case E_COURT:
1066 : 0 : load_court(FALSE);
1067 : 0 : break;
1068 : 0 : default: print3("This dungeon not implemented!"); break;
1069 : : }
1070 [ - + ]: 2 : if (Level->depth > 0) { /* dungeon... */
1071 : 0 : install_traps();
1072 : 0 : install_specials();
1073 : 0 : make_stairs(-1);
1074 : 0 : make_stairs(-1);
1075 : 0 : initrand(E_RESTORE, 0);
1076 : : }
1077 : 2 : Current_Environment = temp_env;
1078 : 2 : fread((char *)&i,sizeof(int),1,fd);
1079 : 2 : fread((char *)&j,sizeof(int),1,fd);
1080 [ - + ][ # # ]: 2 : while ((j < length) && (i < width)) {
1081 : 0 : fread((char *)&run,sizeof(int),1,fd);
1082 [ # # ]: 0 : for (; i < run; i++) {
1083 : 0 : fread((char *)&Level->site[i][j],sizeof(struct location),1,fd);
1084 : 0 : fix_p_locf( &(Level->site[i][j].p_locf), version ); /* DAG */
1085 : 0 : Level->site[i][j].creature = NULL;
1086 : 0 : Level->site[i][j].things = NULL;
1087 : : }
1088 : 0 : fread((char *)&i,sizeof(int),1,fd);
1089 : 0 : fread((char *)&j,sizeof(int),1,fd);
1090 : : }
1091 : 2 : run = 0;
1092 [ + + ]: 82 : for (j = 0; j < length; j++)
1093 [ + + ]: 5200 : for (i = 0; i < width; i++) {
1094 [ + + ]: 5120 : if (run == 0) {
1095 : 80 : run = 8*sizeof(long int);
1096 : 80 : fread((char *)&mask,sizeof(long int),1,fd);
1097 : : }
1098 [ + + ]: 5120 : if (mask&1)
1099 : 4834 : lset(i, j, SEEN);
1100 : 5120 : mask >>= 1;
1101 : 5120 : run--;
1102 : : }
1103 : 2 : restore_monsters(fd,Level, version);
1104 : 2 : fread((char *)&i,sizeof(int),1,fd);
1105 : 2 : fread((char *)&j,sizeof(int),1,fd);
1106 [ + + ][ + - ]: 41 : while (j < length && i < width) {
1107 : 39 : Level->site[i][j].things = restore_itemlist(fd, version);
1108 : 39 : fread((char *)&i,sizeof(int),1,fd);
1109 : 39 : fread((char *)&j,sizeof(int),1,fd);
1110 : : }
1111 : 2 : }
1112 : :
1113 : :
1114 : 1 : void restore_hiscore_npc(pmt npc, int npcid)
1115 : : {
1116 : : int level, behavior;
1117 : : long status;
1118 : :
1119 [ - - - - : 1 : switch(npcid) {
- - - - -
- + - - ]
1120 : : case 0:
1121 : 0 : strcpy(Str2,Hiscorer);
1122 : 0 : level = Hilevel;
1123 : 0 : behavior = Hibehavior;
1124 : 0 : break;
1125 : : case 1: case 2: case 3: case 4: case 5: case 6:
1126 : 0 : strcpy(Str2,Priest[npcid]);
1127 : 0 : level = Priestlevel[npcid];
1128 : 0 : behavior = Priestbehavior[npcid];
1129 : 0 : break;
1130 : : case 7:
1131 : 0 : strcpy(Str2,Shadowlord);
1132 : 0 : level = Shadowlordlevel;
1133 : 0 : behavior = Shadowlordbehavior;
1134 : 0 : break;
1135 : : case 8:
1136 : 0 : strcpy(Str2,Commandant);
1137 : 0 : level = Commandantlevel;
1138 : 0 : behavior = Commandantbehavior;
1139 : 0 : break;
1140 : : case 9:
1141 : 0 : strcpy(Str2,Archmage);
1142 : 0 : level = Archmagelevel;
1143 : 0 : behavior = Archmagebehavior;
1144 : 0 : break;
1145 : : case 10:
1146 : 0 : strcpy(Str2,Prime);
1147 : 0 : level = Primelevel;
1148 : 0 : behavior = Primebehavior;
1149 : 0 : break;
1150 : : case 11:
1151 : 0 : strcpy(Str2,Champion);
1152 : 0 : level = Championlevel;
1153 : 0 : behavior = Championbehavior;
1154 : 0 : break;
1155 : : case 12:
1156 : 0 : strcpy(Str2,Duke);
1157 : 0 : level = Dukelevel;
1158 : 0 : behavior = Dukebehavior;
1159 : 0 : break;
1160 : : case 13:
1161 : 0 : strcpy(Str2,Chaoslord);
1162 : 0 : level = Chaoslordlevel;
1163 : 0 : behavior = Chaoslordbehavior;
1164 : 0 : break;
1165 : : case 14:
1166 : 0 : strcpy(Str2,Lawlord);
1167 : 0 : level = Lawlordlevel;
1168 : 0 : behavior = Lawlordbehavior;
1169 : 0 : break;
1170 : : case 15:
1171 : 1 : strcpy(Str2,Justiciar);
1172 : 1 : level = Justiciarlevel;
1173 : 1 : behavior = Justiciarbehavior;
1174 : 1 : break;
1175 : : case 16:
1176 : 0 : strcpy(Str2,Grandmaster);
1177 : 0 : level = Grandmasterlevel;
1178 : 0 : behavior = Grandmasterbehavior;
1179 : 0 : break;
1180 : : default:
1181 : : /* bomb on error */
1182 : 0 : level = behavior = 0;
1183 : 0 : assert(FALSE);
1184 : : }
1185 : 1 : npc->monstring = salloc(Str2);
1186 : 1 : strcpy(Str1,"The body of ");
1187 : 1 : strcat(Str1,Str2);
1188 : 1 : npc->corpsestr = salloc(Str1);
1189 : 1 : m_status_set( npc, ALLOC );
1190 [ + - ]: 1 : if (!m_statusp(npc, HOSTILE)) {
1191 : 1 : status = npc->status;
1192 : 1 : determine_npc_behavior(npc,level,behavior);
1193 : 1 : npc->status = status;
1194 : : }
1195 : 1 : }
1196 : :
1197 : :
1198 : 2 : void restore_monsters(FILE *fd, plv level, int version)
1199 : : {
1200 : 2 : pml ml=NULL;
1201 : : int i,nummonsters;
1202 : : char tempstr[80];
1203 : : int temp_x, temp_y;
1204 : : unsigned char type;
1205 : :
1206 : 2 : level->mlist = NULL;
1207 : :
1208 : 2 : fread((char *)&nummonsters,sizeof(int),1,fd);
1209 : :
1210 [ + + ]: 35 : for(i=0;i<nummonsters;i++) {
1211 : 33 : ml = ((pml) checkmalloc(sizeof(mltype)));
1212 : 33 : ml->m = ((pmt) checkmalloc(sizeof(montype)));
1213 : 33 : ml->next = NULL;
1214 : 33 : fread((char *)ml->m,sizeof(montype),1,fd);
1215 [ + + ]: 33 : if (ml->m->id == HISCORE_NPC)
1216 [ - + ]: 1 : if (version == 80) {
1217 : 0 : temp_x = ml->m->x;
1218 : 0 : temp_y = ml->m->y;
1219 : 0 : make_hiscore_npc(ml->m, ml->m->aux2);
1220 : 0 : ml->m->x = temp_x;
1221 : 0 : ml->m->y = temp_y;
1222 : : }
1223 : : else
1224 : 1 : restore_hiscore_npc(ml->m, ml->m->aux2);
1225 : : else {
1226 : 32 : fread((char *)&type,sizeof(unsigned char),1,fd);
1227 [ - + ]: 32 : if ( type )
1228 : : {
1229 : : /* DAG enforce that if either one of monstring or corpsestr are */
1230 : : /* alloced, both are */
1231 : 0 : m_status_set( ml->m, ALLOC );
1232 [ # # ]: 0 : if (type&1) {
1233 : 0 : filescanstring(fd,tempstr);
1234 : 0 : ml->m->monstring = salloc(tempstr);
1235 : : }
1236 : : else
1237 : 0 : ml->m->monstring = salloc( Monsters[ml->m->id].monstring );
1238 : :
1239 [ # # ]: 0 : if (type&2) {
1240 : 0 : filescanstring(fd,tempstr);
1241 : 0 : ml->m->corpsestr = salloc(tempstr);
1242 : : }
1243 : : else
1244 : 0 : ml->m->corpsestr = salloc( Monsters[ml->m->id].corpsestr );
1245 : : }
1246 : : else
1247 : : {
1248 : 32 : ml->m->corpsestr = Monsters[ml->m->id].corpsestr;
1249 : 32 : ml->m->monstring = Monsters[ml->m->id].monstring;
1250 : : }
1251 : : /* WDT: As suggested by Sheldon Simms, I'm moving this line... */
1252 [ - + ]: 32 : if ( version <= 80 )
1253 : 0 : ml->m->possessions = restore_itemlist(fd,version);
1254 : 32 : ml->m->meleestr = Monsters[ml->m->id].meleestr;
1255 : : }
1256 : : /* WDT: ...to here, so that all creatures will have their stuff
1257 : : * restored to them. Savefile versioning added by David Given. */
1258 [ + - ]: 33 : if ( version > 80 )
1259 : 33 : ml->m->possessions = restore_itemlist(fd,version);
1260 : 33 : level->site[ml->m->x][ml->m->y].creature = ml->m;
1261 : 33 : ml->next = level->mlist;
1262 : 33 : level->mlist = ml;
1263 : : }
1264 : 2 : }
1265 : :
1266 : :
1267 : 1 : void restore_country(FILE *fd, int version)
1268 : : {
1269 : : int i, j;
1270 : : int run;
1271 : : unsigned long int mask;
1272 : :
1273 : 1 : load_country();
1274 : 1 : fread((char *)&i,sizeof(int),1,fd);
1275 : 1 : fread((char *)&j,sizeof(int),1,fd);
1276 [ - + ][ # # ]: 1 : while (i < COUNTRY_WIDTH && j < COUNTRY_LENGTH) {
1277 : 0 : fread((char *)&Country[i][j],sizeof(struct terrain),1,fd);
1278 : 0 : fread((char *)&i,sizeof(int),1,fd);
1279 : 0 : fread((char *)&j,sizeof(int),1,fd);
1280 : : }
1281 : 1 : run = 0;
1282 [ + + ]: 65 : for (i = 0; i < COUNTRY_WIDTH; i++)
1283 [ + + ]: 4160 : for (j = 0; j < COUNTRY_LENGTH; j++) {
1284 [ + + ]: 4096 : if (run == 0) {
1285 : 64 : run = 8*sizeof(long int);
1286 : 64 : fread((char *)&mask,sizeof(long int),1,fd);
1287 : : }
1288 [ + + ]: 4096 : if (mask&1)
1289 : 302 : c_set(i, j, SEEN);
1290 : 4096 : mask >>= 1;
1291 : 4096 : run--;
1292 : : }
1293 : 1 : }
|
