#include "wand_head.h"
#include <errno.h>

extern char screen[NOOFROWS][ROWLEN+1];
extern int saved_game;
extern char screen_name[61];
extern void crypt_file();
extern int inform_me();
extern void readstring();

struct saved_game {
    short num;
    long  score;
    short bell;
    short maxmoves;
    short num_monsters;
};

struct save_vars zz;

extern struct mon_rec start_of_list, *tail_of_list;

void save_game(num, score, bell, maxmoves)
int  num, *bell, maxmoves;
long *score;
{
    char fname[128], buf[70], *fp;
    FILE *fo;
    struct saved_game s;
    extern char *getenv();
    struct mon_rec *mp;

    if ((char *)NULL == (fp = getenv("SAVENAME"))) {
	move(20,0);
	addstr("Saving: Filename? ");
	refresh();
	readstring(fname,127);
	fp = fname;
    }
    move(20,0);
    addstr("                                                                             ");
    move(20,0);
    refresh();
    if ((FILE *)NULL == (fo = fopen(fp, W_BIN))) {
	perror(fp);
	return;
    }

    s.num = num;
    s.score = *score;
    s.bell = *bell;
    s.maxmoves = maxmoves;
    s.num_monsters = 0;

    mp = &start_of_list;		/* first entry is dummy	*/
    while (mp != tail_of_list) {
	mp = mp->next;
	s.num_monsters++;	/* count them monsters	*/
    }

    if ((1 != fwrite((char *)&s, sizeof(s), 1, fo)) ||
	(1 != fwrite((char *)screen, sizeof(screen), 1, fo)) ||
	(1 != fwrite((char *)&zz, sizeof(zz), 1, fo))) {
	sprintf(buf,"Write error on '%s'\n", fname);
	inform_me(buf,0);
	fclose(fo);
	unlink(fname);
	return;
    }

    mp = &start_of_list;
    while (mp != tail_of_list) {
	/* save them monsters	*/
	mp = mp->next;
	if (1 != fwrite((char *)mp, sizeof(struct mon_rec), 1, fo)) {
	    sprintf(buf,"Write error on '%s'\n", fname);
	    inform_me(buf);
	    fclose(fo);
	    unlink(fname);
	    return;
	}
    }
    fwrite(screen_name,sizeof(char),strlen(screen_name),fo);
    fclose(fo);
#ifndef NO_ENCRYPTION
    crypt_file(fp);	/* encrpyt the saved game */
#endif
    clear();
    CBON;
    echo();
    refresh();
    endwin();
    printf("Game saved.\n\nWANDERER Copyright (C) 1988 S. Shipway\n\n");
    exit(0);
}

void restore_game(num, score, bell, maxmoves)
int  *num, *bell, *maxmoves;
long *score;
{
    FILE *fi;
    struct saved_game s;
    struct mon_rec *mp, *tmp, tmp_monst;
    char fname[128], *fp;
    extern char *getenv();

    if ((char *)NULL == (fp = getenv("SAVENAME"))) {
	move((LINES-1),0);
	addstr("Restore Filename ? ");
	refresh();
	echo(); CBOFF;
	fp = fname;
	gets(fp);
	CBON; noecho();
    }
    clear();
    refresh();
#ifndef NO_ENCRYPTION
    crypt_file(fp);   /* decrypt it */
#endif
    if ((FILE *)NULL == (fi = fopen(fp, R_BIN))) {
	endwin();
	printf("Open error on '%s'\n", fp);
	printf("Cannot restore game --- sorry.\n");
	exit(1);
    }
    if ( (1 != fread((char *)&s, sizeof(s), 1, fi)) ||
	(1 != fread((char *)screen, sizeof(screen), 1, fi)) ||
	(1 != fread((char *)&zz, sizeof(zz), 1, fi)) ) {
	endwin();
	printf("Read error on '%s'n", fp);
	printf("Cannot restore game --- sorry.\n");
	fclose(fi);
	exit(1);
    }

    *num = s.num;
    *score = s.score;
    *bell = s.bell;
    *maxmoves = s.maxmoves;

    /* free any monsters already on chain, to start clean */
    mp = start_of_list.next;
    while ((mp != NULL) && (mp != &start_of_list)) {
	/* free them monsters	*/
	tmp = mp;
	mp = mp->next;
	free(tmp);
    }

    /* re-initialize the monster list	*/
    /* start_of_list = {0,0,0,0,0,NULL,NULL}; */
    start_of_list.x = 0;
    start_of_list.y = 0;
    start_of_list.mx = 0;
    start_of_list.my = 0;
    start_of_list.under = 0;
    start_of_list.next = (struct mon_rec *)NULL;
    start_of_list.prev = (struct mon_rec *)NULL;

    tail_of_list = &start_of_list;

    while (s.num_monsters--) {
	/* use make_monster to allocate the monster structures	*/
	/* to get all the linking right without even trying	*/
	if ((struct mon_rec *)NULL == (mp = make_monster(0, 0))) {
	    endwin();
	    printf("Monster alloc error on '%s'n", fp);
	    printf("Try again - it might work.\nBut then,pigs might fly...\n");
	    fclose(fi);
	    exit(1);
	}
	if (1 != fread((char *)&tmp_monst, sizeof(struct mon_rec), 1, fi)) {
	    endwin();
	    printf("Monster read error on '%s'\n", fp);
	    printf("Cannot restore game --- sorry.\n");
	    fclose(fi);
	    exit(1);
	}
	/* copy info without trashing links	*/
	mp->x     = tmp_monst.x;
	mp->y     = tmp_monst.y;
	mp->mx    = tmp_monst.mx;
	mp->my    = tmp_monst.my;
	mp->under = tmp_monst.under;
    }
    if (fgets(screen_name,61,fi) == NULL)
	*screen_name = '#';
    fclose(fi);
    unlink(fp);
    saved_game = 1;
}