/*
* save and restore routines
*
* @(#)save.c 4.33 (Berkeley) 06/01/83
*
* Rogue: Exploring the Dungeons of Doom
* Copyright (C) 1980-1983, 1985, 1999 Michael Toy, Ken Arnold and Glenn Wichman
* All rights reserved.
*
* See the file LICENSE.TXT for full copyright and licensing information.
*/
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include <signal.h>
#include <string.h>
#include <curses.h>
#include "rogue.h"
#include "score.h"
/*
* save_game:
* Implement the "save game" command
*/
void
save_game(void)
{
FILE *savef;
int c;
char buf[MAXSTR];
struct stat sbuf;
/*
* get file name
*/
mpos = 0;
over:
if (file_name[0] != '\0')
{
for (;;)
{
if (use_savedir)
msg("Save game? ");
else
msg("Save file (%s)? ", file_name);
c = readchar();
mpos = 0;
if (c == ESCAPE)
{
msg("");
return;
}
else if (c == 'n' || c == 'N' || c == 'y' || c == 'Y')
break;
else
msg("please answer Y or N");
}
if (c == 'y' || c == 'Y')
{
addstr("Yes\n");
refresh();
strcpy(buf, file_name);
goto gotfile;
}
}
if (use_savedir) /* User chose N, changing location isn't allowed. */
goto quit_it;
do
{
mpos = 0;
msg("file name: ");
buf[0] = '\0';
if (get_str(buf, stdscr) == QUIT)
{
quit_it:
msg("");
return;
}
mpos = 0;
gotfile:
/*
* test to see if the file exists
*/
if (stat(buf, &sbuf) >= 0 && !use_savedir)
{
for (;;)
{
msg("File exists. Do you wish to overwrite it?");
mpos = 0;
if ((c = readchar()) == ESCAPE)
goto quit_it;
if (c == 'y' || c == 'Y')
break;
else if (c == 'n' || c == 'N')
goto over;
else
msg("Please answer Y or N");
}
msg("file name: %s", buf);
md_unlink(file_name);
}
strcpy(file_name, buf);
if ((savef = fopen(file_name, "w")) == NULL)
{
msg(strerror(errno));
if (use_savedir)
return;
}
} while (savef == NULL);
msg("");
save_file(savef);
/* NOTREACHED */
}
/*
* auto_save:
* Automatically save a file. This is used if a HUP signal is
* recieved
*/
void
auto_save(int sig)
{
FILE *savef;
NOOP(sig);
md_ignoreallsignals();
if (file_name[0] != '\0' && ((savef = fopen(file_name, "w")) != NULL ||
(md_unlink_open_file(file_name, savef) >= 0 && (savef = fopen(file_name, "w")) != NULL)))
save_file(savef);
exit(0);
}
/*
* save_file:
* Write the saved game on the file
*/
void
save_file(FILE *savef)
{
char buf[80];
mvcur(0, COLS - 1, LINES - 1, 0);
putchar('\n');
endwin();
resetltchars();
md_chmod(file_name, 0644);
encwrite(version, strlen(version)+1, savef);
sprintf(buf,"%d x %d\n", LINES, COLS);
encwrite(buf,80,savef);
rs_save_file(savef);
fflush(savef);
fclose(savef);
printf("See you soon, %s!\n", whoami);
exit(0);
}
/*
* restore:
* Restore a saved game from a file with elaborate checks for file
* integrity from cheaters
*/
int
restore(const char *file)
{
FILE *inf;
int syml;
char buf[MAXSTR];
struct stat sbuf2;
int lines, cols;
if (strcmp(file, "-r") == 0)
file = file_name;
md_tstphold();
if ((inf = fopen(file,"r")) == NULL)
{
/* If a system savefile doesn't exist, start a new game. */
if (use_savedir && errno == ENOENT)
return TRUE;
perror(file);
return FALSE;
}
stat(file, &sbuf2);
syml = is_symlink(file);
fflush(stdout);
encread(buf, strlen(version) + 1, inf);
if (strcmp(buf, version) != 0)
{
printf("Sorry, saved game is out of date.\n");
return FALSE;
}
encread(buf,80,inf);
(void) sscanf(buf,"%d x %d\n", &lines, &cols);
initscr(); /* Start up cursor package */
keypad(stdscr, 1);
if (lines > LINES)
{
endwin();
printf("Sorry, original game was played on a screen with %d lines.\n",lines);
printf("Current screen only has %d lines. Unable to restore game\n",LINES);
return(FALSE);
}
if (cols > COLS)
{
endwin();
printf("Sorry, original game was played on a screen with %d columns.\n",cols);
printf("Current screen only has %d columns. Unable to restore game\n",COLS);
return(FALSE);
}
hw = newwin(LINES, COLS, 0, 0);
setup();
rs_restore_file(inf);
/*
* we do not close the file so that we will have a hold of the
* inode for as long as possible
*/
if (
#ifdef MASTER
!wizard &&
#endif
md_unlink_open_file(file, inf) < 0)
{
printf("Cannot unlink file\n");
return FALSE;
}
mpos = 0;
/* printw(0, 0, "%s: %s", file, ctime(&sbuf2.st_mtime)); */
/*
printw("%s: %s", file, ctime(&sbuf2.st_mtime));
*/
clearok(stdscr,TRUE);
/*
* defeat multiple restarting from the same place
*/
#ifdef MASTER
if (!wizard)
#endif
if (sbuf2.st_nlink != 1 || syml)
{
endwin();
printf("\nCannot restore from a linked file\n");
return FALSE;
}
if (pstats.s_hpt <= 0)
{
endwin();
printf("\n\"He's dead, Jim\"\n");
return FALSE;
}
md_tstpresume();
strcpy(file_name, file);
clearok(curscr, TRUE);
srand(md_random_seed());
msg("file name: %s", file);
playit();
/*NOTREACHED*/
return(0);
}
static int encerrno = 0;
int
encerror()
{
return encerrno;
}
void
encseterr(int err)
{
encerrno = err;
}
int
encclearerr()
{
int n = encerrno;
encerrno = 0;
return(n);
}
/*
* encwrite:
* Perform an encrypted write
*/
size_t
encwrite(const char *start, size_t size, FILE *outf)
{
const char *e1, *e2;
char fb;
int temp;
size_t o_size = size;
e1 = encstr;
e2 = statlist;
fb = 0;
if (encerrno) {
errno = encerrno;
return 0;
}
while(size)
{
if (putc(*start++ ^ *e1 ^ *e2 ^ fb, outf) == EOF)
{
encerrno = errno;
break;
}
temp = *e1++;
fb = fb + ((char) (temp * *e2++));
if (*e1 == '\0')
e1 = encstr;
if (*e2 == '\0')
e2 = statlist;
size--;
}
return(o_size - size);
}
/*
* encread:
* Perform an encrypted read
*/
size_t
encread(char *start, size_t size, FILE *inf)
{
const char *e1, *e2;
char fb;
int temp;
size_t read_size;
size_t items;
fb = 0;
if (encerrno) {
errno = encerrno;
return 0;
}
items = read_size = fread(start,1,size,inf);
e1 = encstr;
e2 = statlist;
while (read_size--)
{
*start++ ^= *e1 ^ *e2 ^ fb;
temp = *e1++;
fb = fb + (char)(temp * *e2++);
if (*e1 == '\0')
e1 = encstr;
if (*e2 == '\0')
e2 = statlist;
}
if (items != size)
encerrno = errno;
return(items);
}
/*
* read_scrore
* Read in the score file
*/
void
rd_score(SCORE *top_ten)
{
char scoreline[100];
int i;
if (scoreboard == NULL)
return;
rewind(scoreboard);
for(i = 0; i < numscores; i++)
{
encread(top_ten[i].sc_name, MAXSTR, scoreboard);
scoreline[0] = '\0';
encread(scoreline, 100, scoreboard);
(void) sscanf(scoreline, " %u %d %u %d %d %x \n",
&top_ten[i].sc_uid, &top_ten[i].sc_score,
&top_ten[i].sc_flags, &top_ten[i].sc_monster,
&top_ten[i].sc_level, &top_ten[i].sc_time);
}
rewind(scoreboard);
}
/*
* write_scrore
* Read in the score file
*/
void
wr_score(SCORE *top_ten)
{
char scoreline[100];
int i;
if (scoreboard == NULL)
return;
rewind(scoreboard);
encerrno = 0;
for(i = 0; i < numscores; i++)
{
memset(scoreline,0,100);
encwrite(top_ten[i].sc_name, MAXSTR, scoreboard);
sprintf(scoreline, " %u %d %u %u %d %x \n",
top_ten[i].sc_uid, top_ten[i].sc_score,
top_ten[i].sc_flags, top_ten[i].sc_monster,
top_ten[i].sc_level, top_ten[i].sc_time);
encwrite(scoreline,100,scoreboard);
}
rewind(scoreboard);
}