Import Rogue 5.2 from the Roguelike Restoration Project (r1490)
This commit is contained in:
John "Elwin" Edwards
parent
bcc2abe517
commit
9f62c197cc
44 changed files with 16770 additions and 0 deletions
342
rogue4/save.c
Normal file
342
rogue4/save.c
Normal file
|
|
@ -0,0 +1,342 @@
|
|||
/*
|
||||
* save and restore routines
|
||||
*
|
||||
* @(#)save.c 4.15 (Berkeley) 5/10/82
|
||||
*
|
||||
* Rogue: Exploring the Dungeons of Doom
|
||||
* Copyright (C) 1980, 1981, 1982 Michael Toy, Ken Arnold and Glenn Wichman
|
||||
* All rights reserved.
|
||||
*
|
||||
* See the file LICENSE.TXT for full copyright and licensing information.
|
||||
*/
|
||||
|
||||
#include <curses.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <errno.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#define KERNEL
|
||||
#include <signal.h>
|
||||
#undef KERNEL
|
||||
#include "rogue.h"
|
||||
|
||||
typedef struct stat STAT;
|
||||
|
||||
extern char version[], encstr[];
|
||||
extern bool _endwin;
|
||||
|
||||
STAT sbuf;
|
||||
|
||||
/*
|
||||
* save_game:
|
||||
* Implement the "save game" command
|
||||
*/
|
||||
save_game()
|
||||
{
|
||||
register FILE *savef;
|
||||
register int c;
|
||||
char buf[MAXSTR];
|
||||
|
||||
/*
|
||||
* get file name
|
||||
*/
|
||||
mpos = 0;
|
||||
over:
|
||||
if (file_name[0] != '\0')
|
||||
{
|
||||
for (;;)
|
||||
{
|
||||
msg("save file (%s)? ", file_name);
|
||||
c = getchar();
|
||||
mpos = 0;
|
||||
if (c == ESCAPE)
|
||||
{
|
||||
msg("");
|
||||
return FALSE;
|
||||
}
|
||||
else if (c == 'n' || c == 'N' || c == 'y' || c == 'Y')
|
||||
break;
|
||||
else
|
||||
msg("please answer Y or N");
|
||||
}
|
||||
if (c == 'y' || c == 'Y')
|
||||
{
|
||||
strcpy(buf, file_name);
|
||||
goto gotfile;
|
||||
}
|
||||
}
|
||||
|
||||
do
|
||||
{
|
||||
mpos = 0;
|
||||
msg("file name: ");
|
||||
buf[0] = '\0';
|
||||
if (get_str(buf, stdscr) == QUIT)
|
||||
{
|
||||
quit:
|
||||
msg("");
|
||||
return FALSE;
|
||||
}
|
||||
mpos = 0;
|
||||
gotfile:
|
||||
/*
|
||||
* test to see if the file exists
|
||||
*/
|
||||
if (stat(buf, &sbuf) >= 0)
|
||||
{
|
||||
for (;;)
|
||||
{
|
||||
msg("File exists. Do you wish to overwrite it?");
|
||||
mpos = 0;
|
||||
if ((c = readchar()) == ESCAPE)
|
||||
goto quit;
|
||||
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);
|
||||
}
|
||||
strcpy(file_name, buf);
|
||||
if ((savef = fopen(file_name, "w")) == NULL)
|
||||
msg(strerror(errno)); /* fake perror() */
|
||||
} while (savef == NULL);
|
||||
|
||||
/*
|
||||
* write out encrpyted file (after a stat)
|
||||
* The fwrite is to force allocation of the buffer before the write
|
||||
*/
|
||||
save_file(savef);
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
/*
|
||||
* auto_save:
|
||||
* Automatically save a file. This is used if a HUP signal is
|
||||
* recieved
|
||||
*/
|
||||
void
|
||||
auto_save(int sig)
|
||||
{
|
||||
register FILE *savef;
|
||||
|
||||
md_ignore_signals();
|
||||
|
||||
if (file_name[0] != '\0' && (savef = fopen(file_name, "w")) != NULL)
|
||||
save_file(savef);
|
||||
endwin();
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/*
|
||||
* save_file:
|
||||
* Write the saved game on the file
|
||||
*/
|
||||
save_file(savef)
|
||||
register FILE *savef;
|
||||
{
|
||||
int slines = LINES;
|
||||
int scols = COLS;
|
||||
|
||||
/*
|
||||
* close any open score file
|
||||
*/
|
||||
close(fd);
|
||||
move(LINES-1, 0);
|
||||
refresh();
|
||||
fstat(md_fileno(savef), &sbuf);
|
||||
/*
|
||||
* DO NOT DELETE. This forces stdio to allocate the output buffer
|
||||
* so that malloc doesn't get confused on restart
|
||||
*/
|
||||
fwrite("junk", 1, 5, savef);
|
||||
|
||||
fseek(savef, 0L, 0);
|
||||
|
||||
encwrite(version,strlen(version)+1,savef);
|
||||
encwrite(&sbuf.st_ino,sizeof(sbuf.st_ino),savef);
|
||||
encwrite(&sbuf.st_dev,sizeof(sbuf.st_dev),savef);
|
||||
encwrite(&sbuf.st_ctime,sizeof(sbuf.st_ctime),savef);
|
||||
encwrite(&sbuf.st_mtime,sizeof(sbuf.st_mtime),savef);
|
||||
encwrite(&slines,sizeof(slines),savef);
|
||||
encwrite(&scols,sizeof(scols),savef);
|
||||
msg("");
|
||||
rs_save_file(savef);
|
||||
|
||||
fclose(savef);
|
||||
}
|
||||
|
||||
/*
|
||||
* restore:
|
||||
* Restore a saved game from a file with elaborate checks for file
|
||||
* integrity from cheaters
|
||||
*/
|
||||
restore(file, envp)
|
||||
register char *file;
|
||||
char **envp;
|
||||
{
|
||||
register int inf;
|
||||
register bool syml;
|
||||
extern char **environ;
|
||||
char buf[MAXSTR];
|
||||
STAT sbuf2;
|
||||
int slines, scols;
|
||||
|
||||
if (strcmp(file, "-r") == 0)
|
||||
file = file_name;
|
||||
|
||||
#ifdef SIGTSTP
|
||||
/*
|
||||
* If a process can be suspended, this code wouldn't work
|
||||
*/
|
||||
signal(SIGTSTP, SIG_IGN);
|
||||
#endif
|
||||
|
||||
if ((inf = open(file, 0)) < 0)
|
||||
{
|
||||
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;
|
||||
}
|
||||
|
||||
fstat(inf, &sbuf2);
|
||||
fflush(stdout);
|
||||
syml = issymlink(file);
|
||||
if (
|
||||
#ifdef WIZARD
|
||||
!wizard &&
|
||||
#endif
|
||||
md_unlink(file) < 0)
|
||||
{
|
||||
printf("Cannot unlink file\n");
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
fflush(stdout);
|
||||
|
||||
encread(&sbuf.st_ino,sizeof(sbuf.st_ino), inf);
|
||||
encread(&sbuf.st_dev,sizeof(sbuf.st_dev), inf);
|
||||
encread(&sbuf.st_ctime,sizeof(sbuf.st_ctime), inf);
|
||||
encread(&sbuf.st_mtime,sizeof(sbuf.st_mtime), inf);
|
||||
encread(&slines,sizeof(slines),inf);
|
||||
encread(&scols,sizeof(scols),inf);
|
||||
|
||||
/*
|
||||
* we do not close the file so that we will have a hold of the
|
||||
* inode for as long as possible
|
||||
*/
|
||||
|
||||
initscr();
|
||||
|
||||
if (slines > LINES)
|
||||
{
|
||||
printf("Sorry, original game was played on a screen with %d lines.\n",slines);
|
||||
printf("Current screen only has %d lines. Unable to restore game\n",LINES);
|
||||
return(FALSE);
|
||||
}
|
||||
|
||||
if (scols > COLS)
|
||||
{
|
||||
printf("Sorry, original game was played on a screen with %d columns.\n",scols);
|
||||
printf("Current screen only has %d columns. Unable to restore game\n",COLS);
|
||||
return(FALSE);
|
||||
}
|
||||
|
||||
hw = newwin(LINES, COLS, 0, 0);
|
||||
keypad(stdscr,1);
|
||||
|
||||
mpos = 0;
|
||||
mvprintw(0, 0, "%s: %s", file, ctime(&sbuf2.st_mtime));
|
||||
|
||||
/*
|
||||
* defeat multiple restarting from the same place
|
||||
*/
|
||||
#ifdef WIZARD
|
||||
if (!wizard)
|
||||
#endif
|
||||
if (sbuf2.st_nlink != 1 || syml)
|
||||
{
|
||||
printf("Cannot restore from a linked file\n");
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
if (rs_restore_file(inf) == FALSE)
|
||||
{
|
||||
endwin();
|
||||
printf("Cannot restore file\n");
|
||||
return(FALSE);
|
||||
}
|
||||
|
||||
#ifdef SIGTSTP
|
||||
signal(SIGTSTP, tstp);
|
||||
#endif
|
||||
environ = envp;
|
||||
strcpy(file_name, file);
|
||||
setup();
|
||||
clearok(curscr, TRUE);
|
||||
touchwin(stdscr);
|
||||
srand(getpid());
|
||||
msg("file name: %s", file);
|
||||
status();
|
||||
playit();
|
||||
return 0;
|
||||
}
|
||||
|
||||
/*
|
||||
* encwrite:
|
||||
* Perform an encrypted write
|
||||
*/
|
||||
encwrite(starta, size, outf)
|
||||
void *starta;
|
||||
unsigned int size;
|
||||
register FILE *outf;
|
||||
{
|
||||
register char *ep;
|
||||
register char *start = (char *) starta;
|
||||
ep = encstr;
|
||||
|
||||
while (size--)
|
||||
{
|
||||
putc(*start++ ^ *ep++, outf);
|
||||
if (*ep == '\0')
|
||||
ep = encstr;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* encread:
|
||||
* Perform an encrypted read
|
||||
*/
|
||||
encread(starta, size, inf)
|
||||
register void *starta;
|
||||
unsigned int size;
|
||||
register int inf;
|
||||
{
|
||||
register char *ep;
|
||||
register int read_size;
|
||||
register char *start = (char *) starta;
|
||||
|
||||
if ((read_size = read(inf, start, size)) == -1 || read_size == 0)
|
||||
return read_size;
|
||||
|
||||
ep = encstr;
|
||||
|
||||
while (size--)
|
||||
{
|
||||
*start++ ^= *ep++;
|
||||
if (*ep == '\0')
|
||||
ep = encstr;
|
||||
}
|
||||
|
||||
return read_size;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue