Mercurial > hg > early-roguelike
view arogue7/save.c @ 315:ad2570b5b21f
Advanced Rogue 5, 7: fix some trading post messages.
When attempting to buy an unaffordable object, messages were often of
the form "You can't afford that a scroll of hold monster !", because
the object description (stored in curpurch) was the same text used in
inventory displays.
This has been worked around by inspecting the contents of curpurch and
using different message templates.
author | John "Elwin" Edwards |
---|---|
date | Sun, 24 Oct 2021 20:26:21 -0400 |
parents | 70aa5808c782 |
children |
line wrap: on
line source
/* * save.c - save and restore routines * * Advanced Rogue * Copyright (C) 1984, 1985, 1986 Michael Morgan, Ken Dalka and AT&T * All rights reserved. * * Based on "Rogue: Exploring the Dungeons of Doom" * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman * All rights reserved. * * See the file LICENSE.TXT for full copyright and licensing information. */ /* * save and restore routines * */ #include "curses.h" #include <ctype.h> #include <stdlib.h> #include <string.h> #include <sys/types.h> #include <sys/stat.h> #include <signal.h> #include <time.h> #include "rogue.h" #include <fcntl.h> #include <errno.h> #include "mach_dep.h" #ifdef PC7300 #include "sys/window.h" extern struct uwdata wdata; #endif #if u370 || uts #define ENCREAD(b,n,f) read(md_fileno(f),b,n) #define ENCWRITE(b,n,f) write(md_fileno(f),b,n) #endif #ifndef ENCREAD #define ENCREAD encread #define ENCWRITE encwrite #endif bool save_file(FILE *savef); typedef struct stat STAT; extern char version[], encstr[]; /* extern bool _endwin; */ extern int errno; STAT sbuf; bool save_game(void) { FILE *savefi = NULL; register int c; char buf[LINELEN]; /* * get file name */ mpos = 0; if (file_name[0] != '\0') { if (use_savedir) msg("Save game? "); else msg("Save file (%s)? ", file_name); do { c = readchar(); if (c == ESCAPE) return(0); } while (c != 'n' && c != 'N' && c != 'y' && c != 'Y'); mpos = 0; if (c == 'y' || c == 'Y') { msg("File name: %s", file_name); goto gotfile; } } if (use_savedir) { msg(""); return FALSE; } do { msg("File name: "); mpos = 0; buf[0] = '\0'; if (get_str(buf, msgw) == QUIT) { msg(""); return FALSE; } strcpy(file_name, buf); gotfile: if ((savefi = fopen(file_name, "w")) == NULL) { msg(strerror(errno)); /* fake perror() */ if (use_savedir) return FALSE; } } while (savefi == NULL); /* * write out encrpyted file (after a stat) */ if (save_file(savefi) == FALSE) { msg("Cannot create save file."); md_unlink(file_name); return(FALSE); } else return(TRUE); } /* * automatically save a file. This is used if a HUP signal is * recieved */ void auto_save(int sig) { FILE *savefi; register int i; for (i = 0; i < NSIG; i++) signal(i, SIG_IGN); if (file_name[0] != '\0' && pstats.s_hpt > 0 && (savefi = fopen(file_name, "w")) != NULL) save_file(savefi); endwin(); #ifdef PC7300 endhardwin(); #endif exit(1); } /* * write the saved game on the file */ bool save_file(FILE *savef) { register unsigned num_to_write, num_written; int ret; wmove(cw, lines-1, 0); draw(cw); fseek(savef, 0L, SEEK_SET); stat(file_name, &sbuf); num_to_write = strlen(version) + 1; num_written = ENCWRITE(version, num_to_write, savef); sprintf(prbuf,"%d x %d\n", LINES, COLS); ENCWRITE(prbuf,80,savef); ret = rs_save_file(savef); fclose(savef); if (num_to_write == num_written && ret == 0) return(TRUE); else return(FALSE); } bool restore(char *file, char *envp[]) { FILE *inf; extern char **environ; char buf[LINELEN]; STAT sbuf2; int oldcol, oldline; /* Old number of columns and lines */ if (strcmp(file, "-r") == 0) file = file_name; if ((inf = fopen(file, "r")) == NULL) { if (use_savedir && errno == ENOENT) { return TRUE; } perror(file); return FALSE; } fflush(stdout); ENCREAD(buf, strlen(version) + 1, inf); if (strcmp(buf, version) != 0) { printf("Sorry, saved game is out of date.\n"); return FALSE; } /* * Get the lines and columns from the previous game */ ENCREAD(buf, 80, inf); sscanf(buf, "%d x %d\n", &oldline, &oldcol); stat(file, &sbuf2); fflush(stdout); initscr(); if (COLS < oldcol || LINES < oldline) { endwin(); printf("Cannot restart the game on a smaller screen.\n"); return FALSE; } setup(); /* * Set up windows */ cw = newwin(lines, cols, 0, 0); mw = newwin(lines, cols, 0, 0); hw = newwin(lines, cols, 0, 0); msgw = newwin(4, cols, 0, 0); keypad(cw,1); keypad(msgw,1); if (rs_restore_file(inf) != 0) { printf("Cannot restore file\n"); fclose(inf); return(FALSE); } cols = COLS; lines = LINES; if (cols > 85) cols = 85; if (lines > 24) lines = 24; mpos = 0; msg(""); msg("%s: %s", file, ctime(&sbuf2.st_mtime)); /* * defeat multiple restarting from the same place */ if (!wizard && md_unlink_open_file(file, inf) < 0) { printf("Cannot unlink file\n"); return FALSE; } environ = envp; strcpy(file_name, file); setup(); clearok(curscr, TRUE); touchwin(cw); srand(md_random_seed()); playit(); /*NOTREACHED*/ return(0); } #define ENCWBSIZ 1024 /* * perform an encrypted write */ int encwrite(char *start, unsigned int size, FILE *outf) { register char *ep; register int i = 0; int num_written = 0; auto char buf[ENCWBSIZ]; ep = encstr; while (size--) { buf[i++] = *start++ ^ *ep++ ; if (*ep == '\0') ep = encstr; if (i == ENCWBSIZ || size == 0) { if (fwrite(buf, 1, (unsigned)i, outf) < i) return(num_written); else { num_written += i; i = 0; } } } return(num_written); } /* * perform an encrypted read */ int encread(char *start, unsigned int size, FILE *inf) { register char *ep; register int read_size; if ((read_size = fread(start, 1, size, inf)) == 0) return read_size; ep = encstr; size = read_size; while (size--) { *start++ ^= *ep++; if (*ep == '\0') ep = encstr; } return read_size; }