/* $Id: playsave.c,v 1.24 2005/07/30 01:50:17 chris Exp $ */
/*
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
*/

/*
 *
 * Functions to load & save player's settings (*.plr file)
 *
 */

#ifdef HAVE_CONFIG_H
#include <conf.h>
#endif

#ifdef WINDOWS
#include "desw.h"
#include <mmsystem.h>
#endif

#include <stdio.h>
#include <string.h>
#if !defined(_MSC_VER) && !defined(macintosh)
#include <unistd.h>
#endif
#ifndef _WIN32_WCE
#include <errno.h>
#endif

#include <physfs.h>

#include "error.h"

#include "strutil.h"
#include "game.h"
#include "gameseq.h"
#include "player.h"
#include "playsave.h"
#include "joy.h"
#include "kconfig.h"
#include "digi.h"
#include "newmenu.h"
#include "joydefs.h"
#include "palette.h"
#include "multi.h"
#include "menu.h"
#include "config.h"
#include "text.h"
#include "mono.h"
#include "state.h"
#include "gauges.h"
#include "screens.h"
#include "powerup.h"
#include "makesig.h"
#include "byteswap.h"
#include "escort.h"
#include "u_mem.h"
#include "strio.h"
#include "physfsx.h"

#define SAVE_FILE_ID			MAKE_SIG('D','P','L','R')

#ifdef MACINTOSH
	#include <Files.h>
	#include <Errors.h>			// mac doesn't have "normal" error numbers -- must use mac equivs
	#ifndef ENOENT
		#define ENOENT fnfErr
	#endif
	#include "isp.h"
#elif defined(_WIN32_WCE)
# define errno -1
# define ENOENT -1
# define strerror(x) "Unknown Error"
#endif

int get_lifetime_checksum (int a,int b);

typedef struct hli {
	char	shortname[9];
	ubyte	level_num;
} hli;

short n_highest_levels;

hli highest_levels[MAX_MISSIONS];

#define PLAYER_FILE_VERSION	25			//increment this every time the player file changes

//version 5  ->  6: added new highest level information
//version 6  ->  7: stripped out the old saved_game array.
//version 7  ->  8: added reticle flag, & window size
//version 8  ->  9: removed player_struct_version
//version 9  -> 10: added default display mode
//version 10 -> 11: added all toggles in toggle menu
//version 11 -> 12: added weapon ordering
//version 12 -> 13: added more keys
//version 13 -> 14: took out marker key
//version 14 -> 15: added guided in big window
//version 15 -> 16: added small windows in cockpit
//version 16 -> 17: ??
//version 17 -> 18: save guidebot name
//version 18 -> 19: added automap-highres flag
//version 19 -> 20: added kconfig data for windows joysticks
//version 20 -> 21: save seperate config types for DOS & Windows
//version 21 -> 22: save lifetime netstats 
//version 22 -> 23: ??
//version 23 -> 24: add name of joystick for windows version.
//version 24 -> 25: add d2x keys array

#define COMPATIBLE_PLAYER_FILE_VERSION          17
#define WINDOWSIZE 64
#define RESOLUTION 64


int Default_leveling_on=1;
extern ubyte SecondaryOrder[],PrimaryOrder[];
extern void InitWeaponOrdering();

#ifdef MACINTOSH
extern ubyte default_firebird_settings[];
extern ubyte default_mousestick_settings[];
#endif

static int Player_Game_window_w = 0;
static int Player_Game_window_h = 0;
static int Player_render_width = 0;
static int Player_render_height = 0;

int new_player_config()
{
	int nitems;
	int i,j,control_choice;
	newmenu_item m[8];
   int mct=CONTROL_MAX_TYPES;
 
   #ifndef WINDOWS
 	 mct--;
	#endif

   InitWeaponOrdering ();		//setup default weapon priorities 

#if defined(MACINTOSH) && defined(USE_ISP)
	if (!ISpEnabled())
	{
#endif
RetrySelection:
		#if !defined(MACINTOSH) && !defined(WINDOWS)
		for (i=0; i<mct; i++ )	{
			m[i].type = NM_TYPE_MENU; m[i].text = CONTROL_TEXT(i);
		}
		#elif defined(WINDOWS)
			m[0].type = NM_TYPE_MENU; m[0].text = CONTROL_TEXT(0);
	 		m[1].type = NM_TYPE_MENU; m[1].text = CONTROL_TEXT(5);
			m[2].type = NM_TYPE_MENU; m[2].text = CONTROL_TEXT(7);
		 	i = 3;
		#else
		for (i = 0; i < 6; i++) {
			m[i].type = NM_TYPE_MENU; m[i].text = CONTROL_TEXT(i);
		}
		m[4].text = "Gravis Firebird/Mousetick II";
		m[3].text = "Thrustmaster";
		#endif
		
		nitems = i;
		m[0].text = TXT_CONTROL_KEYBOARD;
	
		#ifdef WINDOWS
			if (Config_control_type==CONTROL_NONE) control_choice = 0;
			else if (Config_control_type == CONTROL_MOUSE) control_choice = 1;
			else if (Config_control_type == CONTROL_WINJOYSTICK) control_choice = 2;
			else control_choice = 0;
		#else
			control_choice = Config_control_type;				// Assume keyboard
		#endif
	
		#ifndef APPLE_DEMO
			control_choice = newmenu_do1( NULL, TXT_CHOOSE_INPUT, i, m, NULL, control_choice );
		#else
			control_choice = 0;
		#endif
		
		if ( control_choice < 0 )
			return 0;

#if defined(MACINTOSH) && defined(USE_ISP)
	}
	else	// !!!!NOTE ... link to above if (!ISpEnabled()), this is a really crappy function
	{
		control_choice = 0;
	}
#endif

	for (i=0;i<CONTROL_MAX_TYPES; i++ )
		for (j=0;j<MAX_CONTROLS; j++ )
			kconfig_settings[i][j] = default_kconfig_settings[i][j];
	//added on 2/4/99 by Victor Rachels for new keys
	for(i=0; i < MAX_D2X_CONTROLS; i++)
		kconfig_d2x_settings[i] = default_kconfig_d2x_settings[i];
	//end this section addition - VR
	kc_set_controls();

	Config_control_type = control_choice;

#ifdef WINDOWS
	if (control_choice == 1) Config_control_type = CONTROL_MOUSE;
	else if (control_choice == 2) Config_control_type = CONTROL_WINJOYSTICK;

//	if (Config_control_type == CONTROL_WINJOYSTICK) 
//		joydefs_calibrate();
#else
	#ifndef MACINTOSH
	if ( Config_control_type==CONTROL_THRUSTMASTER_FCS)	{
		i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, TXT_FCS );
		if (i==0) goto RetrySelection;
	}
	
	if ( (Config_control_type>0) && 	(Config_control_type<5))	{
		joydefs_calibrate();
	}
	#else		// some macintosh only stuff here
	if ( Config_control_type==CONTROL_THRUSTMASTER_FCS)	{
		extern char *tm_warning;
		
		i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, tm_warning );
		if (i==0) goto RetrySelection;
	} else 	if ( Config_control_type==CONTROL_FLIGHTSTICK_PRO )	{
		extern char *ch_warning;

		i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, ch_warning );
		if (i==0) goto RetrySelection;
	} else 	if ( Config_control_type==CONTROL_GRAVIS_GAMEPAD )	{
		extern char *ms_warning;

		i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, ms_warning );
		if (i==0) goto RetrySelection;
		// stupid me -- get real default setting for either mousestick or firebird
		joydefs_set_type( Config_control_type );
		if (joy_have_firebird())
			for (i=0; i<NUM_OTHER_CONTROLS; i++ )
				kconfig_settings[Config_control_type][i] = default_firebird_settings[i];
		else
			for (i=0; i<NUM_OTHER_CONTROLS; i++ )
				kconfig_settings[Config_control_type][i] = default_mousestick_settings[i];
		kc_set_controls();		// reset the joystick control
	}
	if ( (Config_control_type>0) && (Config_control_type<5)  ) {
		joydefs_set_type( Config_control_type );
		joydefs_calibrate();
	}

	#endif
#endif
	
	Player_default_difficulty = 1;
	Auto_leveling_on = Default_leveling_on = 1;
	n_highest_levels = 1;
	highest_levels[0].shortname[0] = 0;			//no name for mission 0
	highest_levels[0].level_num = 1;				//was highest level in old struct
	Config_joystick_sensitivity = 8;
	Cockpit_3d_view[0]=CV_NONE;
	Cockpit_3d_view[1]=CV_NONE;

	// Default taunt macros
	#ifdef NETWORK
	strcpy(Network_message_macro[0], "Why can't we all just get along?");
	strcpy(Network_message_macro[1], "Hey, I got a present for ya");
	strcpy(Network_message_macro[2], "I got a hankerin' for a spankerin'");
	strcpy(Network_message_macro[3], "This one's headed for Uranus");
	Netlife_kills=0; Netlife_killed=0;	
	#endif
	
	return 1;
}

int read_player_d2x(char *filename)
{
	PHYSFS_file *f;
	int rc = 0;
	char line[20],*word;
	int Stop=0;
	char plxver[6];

	sprintf(plxver,"v0.00");

	f = PHYSFSX_openReadBuffered(filename);

	if(!f || PHYSFS_eof(f))
		return errno;

	while(!Stop && !PHYSFS_eof(f))
	{
		cfgets(line,20,f);
		word=splitword(line,':');
		strupr(word);
		if (strstr(word,"PLX VERSION"))
		{
			d_free(word);
			cfgets(line,20,f);
			word=splitword(line,'=');
			strupr(word);
			while(!strstr(word,"END") && !PHYSFS_eof(f))
			{
				if(!strcmp(word,"PLX VERSION"))
				{
					int maj,min;
					sscanf(line,"v%i.%i",&maj,&min);
					sprintf(plxver,"v%i.%i",maj,min);
				}
				d_free(word);
				cfgets(line,20,f);
				word=splitword(line,'=');
				strupr(word);
			}
		}
		else if (strstr(word,"WINDOWSIZE"))
		{
			d_free(word);
			cfgets(line,20,f);
			word=splitword(line,'=');
			strupr(word);
		
			while(!strstr(word,"END") && !PHYSFS_eof(f))
			{
				if(!strcmp(word,"WIDTH"))
					sscanf(line,"%i",&Player_Game_window_w);
				if(!strcmp(word,"HEIGHT"))
					sscanf(line,"%i",&Player_Game_window_h);

				d_free(word);
				cfgets(line,20,f);
				word=splitword(line,'=');
				strupr(word);
			}
		}
		else if (strstr(word,"RESOLUTION"))
		{
			d_free(word);
			cfgets(line,20,f);
			word=splitword(line,'=');
			strupr(word);
	
			while(!strstr(word,"END") && !PHYSFS_eof(f))
			{
				if(!strcmp(word,"WIDTH"))
					sscanf(line,"%i",&Player_render_width);
				if(!strcmp(word,"HEIGHT"))
					sscanf(line,"%i",&Player_render_height);
				d_free(word);
				cfgets(line,20,f);
				word=splitword(line,'=');
				strupr(word);
			}
		}
		else if (strstr(word,"END") || PHYSFS_eof(f))
		{
			Stop=1;
		}
		else
		{
			if(word[0]=='['&&!strstr(word,"D2X OPTIONS"))
			{
				while(!strstr(line,"END") && !PHYSFS_eof(f))
				{
					cfgets(line,20,f);
					strupr(line);
				}
			}
		}

		if(word)
			d_free(word);
	}

// 	if (ferror(f)) // FIXME
//                 rc = errno;

	PHYSFS_close(f);

	return rc;
}

int write_player_d2x(char *filename)
{
	PHYSFS_file *fin, *fout;
	int rc=0;
	int Stop=0;
	char line[20];
	char tempfile[PATH_MAX];
	char str[256];

	strcpy(tempfile,filename);
	tempfile[strlen(tempfile)-4]=0;
	strcat(tempfile,".pl$");
	fout=PHYSFSX_openWriteBuffered(tempfile);
	
	if(fout)
	{
		fin=PHYSFSX_openReadBuffered(filename);
		if(!fin)
		{
			sprintf (str, "[D2X OPTIONS]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "[windowsize]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "width=%i\n", Game_window_w);
			PHYSFSX_puts(fout, str);
			sprintf (str, "height=%d\n", Game_window_h);
			PHYSFSX_puts(fout, str);
			sprintf (str, "[end]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "[resolution]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "width=%i\n", VR_render_buffer[0].cv_bitmap.bm_w);
			PHYSFSX_puts(fout, str);
			sprintf (str, "height=%d\n", VR_render_buffer[0].cv_bitmap.bm_h);
			PHYSFSX_puts(fout, str);
			sprintf (str, "[end]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "[plx version]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "plx version=%s\n", VERSION);
			PHYSFSX_puts(fout, str);
			sprintf (str, "[end]\n");
			PHYSFSX_puts(fout, str);
			sprintf (str, "[end]\n");
			PHYSFSX_puts(fout, str);
		}
		else
		{
			int printed=0;
		
			while(!Stop && !PHYSFS_eof(fin))
			{
				cfgets(line,20,fin);
				strupr(line);
				if (strstr(line,"PLX VERSION"))
				{
					while(!strstr(line,"END")&&!PHYSFS_eof(fin))
					{
						cfgets(line,20,fin);
						strupr(line);
					}
				}
				else if (strstr(line,"WINDOWSIZE"))
				{
					sprintf (str, "[windowsize]\n");
					PHYSFSX_puts(fout, str);
					sprintf (str, "width=%i\n", Game_window_w);
					PHYSFSX_puts(fout, str);
					sprintf (str, "height=%d\n", Game_window_h);
					PHYSFSX_puts(fout, str);
					sprintf (str, "[end]\n");
					PHYSFSX_puts(fout, str);
					while(!strstr(line,"END")&&!PHYSFS_eof(fin))
					{
						cfgets(line,20,fin);
						strupr(line);
					}
					printed |= WINDOWSIZE;
				}
				else if (strstr(line,"RESOLUTION"))
				{
					sprintf (str, "[resolution]\n");
					PHYSFSX_puts(fout, str);
					sprintf (str, "width=%i\n", VR_render_buffer[0].cv_bitmap.bm_w);
					PHYSFSX_puts(fout, str);
					sprintf (str, "height=%d\n", VR_render_buffer[0].cv_bitmap.bm_h);
					PHYSFSX_puts(fout, str);
					sprintf (str, "[end]\n");
					PHYSFSX_puts(fout, str);
					while(!strstr(line,"END")&&!PHYSFS_eof(fin))
					{
						cfgets(line,20,fin);
						strupr(line);
					}
					printed |= RESOLUTION;
				}
				else if (strstr(line,"END"))
				{
					Stop=1;
				}
				else
				{
					if(line[0]=='['&&!strstr(line,"D2X OPTIONS"))
						while(!strstr(line,"END") && !PHYSFS_eof(fin))
						{
							sprintf (str, "%s\n", line);
							PHYSFSX_puts(fout, str);
							cfgets(line,20,fin);
							strupr(line);
						}
					sprintf (str, "%s\n", line);
					PHYSFSX_puts(fout, str);
				}
			
				if(!Stop&&PHYSFS_eof(fin))
					Stop=1;
			}
			if(!(printed&WINDOWSIZE))
			{
				sprintf (str, "[windowsize]\n");
				PHYSFSX_puts(fout, str);
				sprintf (str, "width=%i\n", Game_window_w);
				PHYSFSX_puts(fout, str);
				sprintf (str, "height=%d\n", Game_window_h);
				PHYSFSX_puts(fout, str);
				sprintf (str, "[end]\n");
				PHYSFSX_puts(fout, str);
			}
		
			if(!(printed&RESOLUTION))
			{
				sprintf (str, "[resolution]\n");
				PHYSFSX_puts(fout, str);
				sprintf (str, "width=%i\n", VR_render_buffer[0].cv_bitmap.bm_w);
				PHYSFSX_puts(fout, str);
				sprintf (str, "height=%d\n", VR_render_buffer[0].cv_bitmap.bm_h);
				PHYSFSX_puts(fout, str);
				sprintf (str, "[end]\n");
				PHYSFSX_puts(fout, str);
			}
		
				sprintf (str, "[plx version]\n");
				PHYSFSX_puts(fout, str);
				sprintf (str, "plx version=%s\n", VERSION);
				PHYSFSX_puts(fout, str);
				sprintf (str, "[end]\n");
				PHYSFSX_puts(fout, str);
				sprintf (str, "[end]\n");
				PHYSFSX_puts(fout, str);
			
				PHYSFS_close(fin);
		}
		
		//if (ferror(fout)) // FIXME
			//rc = errno;

		PHYSFS_close(fout);
		if(rc==0)
		{
			unlink(filename);
			rc = PHYSFSX_rename(tempfile,filename);
		}
		return rc;
	}
	else
		return errno;

}

extern int Guided_in_big_window,Automap_always_hires;

//this length must match the value in escort.c
#define GUIDEBOT_NAME_LEN 9
extern char guidebot_name[];
extern char real_guidebot_name[];

WIN(extern char win95_current_joyname[]);

ubyte control_type_dos,control_type_win;


//read in the player's saved games.  returns errno (0 == no error)
int read_player_file()
{
	#ifdef MACINTOSH
	char filename[FILENAME_LEN+15];
	#else
	char filename[FILENAME_LEN];
	#endif
	PHYSFS_file *file;
	int id, i;
	short player_file_version;
	int rewrite_it=0;
	int swap = 0;

	Assert(Player_num>=0 && Player_num<MAX_PLAYERS);

#ifndef MACINTOSH
	sprintf(filename,"%.8s.plr",Players[Player_num].callsign);
#else
	sprintf(filename, "Players/%.8s.plr",Players[Player_num].callsign);
#endif

	if (!PHYSFS_exists(filename))
		return ENOENT;

	file = PHYSFSX_openReadBuffered(filename);

#if 0
#ifndef MACINTOSH
	//check filename
	if (file && isatty(fileno(file))) {
		//if the callsign is the name of a tty device, prepend a char
		PHYSFS_close(file);
		sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
		file = PHYSFSX_openReadBuffered(filename);
	}
#endif
#endif

	if (!file)
		goto read_player_file_failed;

	PHYSFS_readSLE32(file, &id);

        // SWAPINT added here because old versions of d2x
        // used the wrong byte order.
	if (id!=SAVE_FILE_ID && id!=SWAPINT(SAVE_FILE_ID)) {
		nm_messagebox(TXT_ERROR, 1, TXT_OK, "Invalid player file");
		PHYSFS_close(file);
		return -1;
	}

	player_file_version = cfile_read_short(file);

	if (player_file_version > 255) // bigendian file?
		swap = 1;

	if (swap)
		player_file_version = SWAPSHORT(player_file_version);

	if (player_file_version<COMPATIBLE_PLAYER_FILE_VERSION) {
		nm_messagebox(TXT_ERROR, 1, TXT_OK, TXT_ERROR_PLR_VERSION);
		PHYSFS_close(file);
		return -1;
	}

	Game_window_w = cfile_read_short(file);
	Game_window_h = cfile_read_short(file);

	if (swap) {
		Game_window_w = SWAPSHORT(Game_window_w);
		Game_window_h = SWAPSHORT(Game_window_h);
	}

	Player_default_difficulty = cfile_read_byte(file);
	Default_leveling_on       = cfile_read_byte(file);
	Reticle_on                = cfile_read_byte(file);
	Cockpit_mode              = cfile_read_byte(file);
	Default_display_mode      = cfile_read_byte(file);
	Missile_view_enabled      = cfile_read_byte(file);
	Headlight_active_default  = cfile_read_byte(file);
	Guided_in_big_window      = cfile_read_byte(file);
		
	if (player_file_version >= 19)
		Automap_always_hires = cfile_read_byte(file);

	Auto_leveling_on = Default_leveling_on;

	//read new highest level info

	n_highest_levels = cfile_read_short(file);
	if (swap)
		n_highest_levels = SWAPSHORT(n_highest_levels);
	Assert(n_highest_levels <= MAX_MISSIONS);

	if (PHYSFS_read(file, highest_levels, sizeof(hli), n_highest_levels) != n_highest_levels)
		goto read_player_file_failed;

	//read taunt macros
	{
#ifdef NETWORK
		int i,len;

		len = MAX_MESSAGE_LEN;

		for (i = 0; i < 4; i++)
			if (PHYSFS_read(file, Network_message_macro[i], len, 1) != 1)
				goto read_player_file_failed;
#else
		char dummy[4][MAX_MESSAGE_LEN];

		cfread(dummy, MAX_MESSAGE_LEN, 4, file);
#endif
	}

	//read kconfig data
	{
		int n_control_types = (player_file_version<20)?7:CONTROL_MAX_TYPES;

		if (PHYSFS_read(file, kconfig_settings, MAX_CONTROLS*n_control_types, 1) != 1)
			goto read_player_file_failed;
		else if (PHYSFS_read(file, (ubyte *)&control_type_dos, sizeof(ubyte), 1) != 1)
			goto read_player_file_failed;
		else if (player_file_version >= 21 && PHYSFS_read(file, (ubyte *)&control_type_win, sizeof(ubyte), 1) != 1)
			goto read_player_file_failed;
		else if (PHYSFS_read(file, &Config_joystick_sensitivity, sizeof(ubyte), 1) !=1 )
			goto read_player_file_failed;

		#ifdef WINDOWS
		Config_control_type = control_type_win;
		#else
		Config_control_type = control_type_dos;
		#endif
		
		#ifdef MACINTOSH
		joydefs_set_type(Config_control_type);
		#endif

		for (i=0;i<11;i++)
		{
			PrimaryOrder[i] = cfile_read_byte(file);
			SecondaryOrder[i] = cfile_read_byte(file);
		}

		if (player_file_version>=16)
		{
			PHYSFS_readSLE32(file, &Cockpit_3d_view[0]);
			PHYSFS_readSLE32(file, &Cockpit_3d_view[1]);
			if (swap)
			{
				Cockpit_3d_view[0] = SWAPINT(Cockpit_3d_view[0]);
				Cockpit_3d_view[1] = SWAPINT(Cockpit_3d_view[1]);
			}
		}

		kc_set_controls();

	}

	if (player_file_version>=22)
	{
#ifdef NETWORK
		PHYSFS_readSLE32(file, &Netlife_kills);
		PHYSFS_readSLE32(file, &Netlife_killed);
		if (swap) {
			Netlife_kills = SWAPINT(Netlife_kills);
			Netlife_killed = SWAPINT(Netlife_killed);
		}
#else
		{
			int dummy;
			PHYSFS_readSLE32(file, &dummy);
			PHYSFS_readSLE32(file, &dummy);
		}
#endif
	}
#ifdef NETWORK
	else
	{
		Netlife_kills=0; Netlife_killed=0;
	}
#endif

	if (player_file_version>=23)
	{
		PHYSFS_readSLE32(file, &i);
		if (swap)
			i = SWAPINT(i);
#ifdef NETWORK
		mprintf ((0,"Reading: lifetime checksum is %d\n",i));
		if (i!=get_lifetime_checksum (Netlife_kills,Netlife_killed))
		{
			Netlife_kills=0; Netlife_killed=0;
			nm_messagebox(NULL, 1, "Shame on me", "Trying to cheat eh?");
			rewrite_it=1;
		}
#endif
	}

	//read guidebot name
	if (player_file_version >= 18)
		PHYSFSX_readString(file, guidebot_name);
	else
		strcpy(guidebot_name,"GUIDE-BOT");

	strcpy(real_guidebot_name,guidebot_name);

	{
		char buf[128];

	#ifdef WINDOWS
		joy95_get_name(JOYSTICKID1, buf, 127);
		if (player_file_version >= 24) 
			PHYSFSX_readString(file, win95_current_joyname);
		else
			strcpy(win95_current_joyname, "Old Player File");
		
		mprintf((0, "Detected joystick: %s\n", buf));
		mprintf((0, "Player's joystick: %s\n", win95_current_joyname));

		if (strcmp(win95_current_joyname, buf)) {
			for (i = 0; i < MAX_CONTROLS; i++)
				kconfig_settings[CONTROL_WINJOYSTICK][i] = 
					default_kconfig_settings[CONTROL_WINJOYSTICK][i];
		}	 
	#else
		if (player_file_version >= 24) 
			PHYSFSX_readString(file, buf);			// Just read it in fpr DPS.
	#endif
	}

	if (player_file_version >= 25)
		PHYSFS_read(file, kconfig_d2x_settings, MAX_D2X_CONTROLS, 1);
	else
		for(i=0; i < MAX_D2X_CONTROLS; i++)
			kconfig_d2x_settings[i] = default_kconfig_d2x_settings[i];

	if (!PHYSFS_close(file))
		goto read_player_file_failed;

	if (rewrite_it)
		write_player_file();

	filename[strlen(filename) - 4] = 0;
	strcat(filename, ".plx");
        strlwr(filename);
	read_player_d2x(filename);

	if (Player_render_width && Player_render_height && Game_screen_mode != SM(Player_render_width, Player_render_height))
	{
		Game_screen_mode = SM(Player_render_width,Player_render_height);
		game_init_render_buffers(
			SM(Player_render_width,Player_render_height),
			Player_render_width,
			Player_render_height, VR_NONE, 0);
	}
	Game_window_w = Player_Game_window_w;
	Game_window_h = Player_Game_window_h;

	return EZERO;

 read_player_file_failed:
	nm_messagebox(TXT_ERROR, 1, TXT_OK, "%s\n\n%s", "Error reading PLR file", PHYSFS_getLastError());
	if (file)
		PHYSFS_close(file);

	return -1;
}


//finds entry for this level in table.  if not found, returns ptr to 
//empty entry.  If no empty entries, takes over last one 
int find_hli_entry()
{
	int i;

	for (i=0;i<n_highest_levels;i++)
		if (!stricmp(highest_levels[i].shortname, Current_mission_filename))
			break;

	if (i==n_highest_levels) {		//not found.  create entry

		if (i==MAX_MISSIONS)
			i--;		//take last entry
		else
			n_highest_levels++;

		strcpy(highest_levels[i].shortname, Current_mission_filename);
		highest_levels[i].level_num			= 0;
	}

	return i;
}

//set a new highest level for player for this mission
void set_highest_level(int levelnum)
{
	int ret,i;

	if ((ret=read_player_file()) != EZERO)
		if (ret != ENOENT)		//if file doesn't exist, that's ok
			return;

	i			= find_hli_entry();

	if (levelnum > highest_levels[i].level_num)
		highest_levels[i].level_num			= levelnum;

	write_player_file();
}

//gets the player's highest level from the file for this mission
int get_highest_level(void)
{
	int i;
	int highest_saturn_level			= 0;
	read_player_file();
#ifndef SATURN
	if (strlen(Current_mission_filename)==0 )	{
		for (i=0;i<n_highest_levels;i++)
			if (!stricmp(highest_levels[i].shortname, "DESTSAT")) 	//	Destination Saturn.
		 		highest_saturn_level			= highest_levels[i].level_num; 
	}
#endif
   i			= highest_levels[find_hli_entry()].level_num;
	if ( highest_saturn_level > i )
   	i			= highest_saturn_level;
	return i;
}

extern int Cockpit_mode_save;


//write out player's saved games.  returns errno (0 == no error)
int write_player_file()
{
	#ifdef MACINTOSH
	char filename[FILENAME_LEN+15];
	#else
	char filename[FILENAME_LEN];		// because of ":Players:" path
	#endif
	PHYSFS_file *file;
	int i;

//	#ifdef APPLE_DEMO		// no saving of player files in Apple OEM version
//	return 0;
//	#endif

	WriteConfigFile();

        sprintf(filename,"%s.plx",Players[Player_num].callsign);
        strlwr(filename);
	write_player_d2x(filename);
#ifndef MACINTOSH
	sprintf(filename,"%s.plr",Players[Player_num].callsign);
#else
	sprintf(filename, ":Players:%.8s.plr",Players[Player_num].callsign);
#endif
	file = PHYSFSX_openWriteBuffered(filename);

#if 0 //ndef MACINTOSH
	//check filename
	if (file && isatty(fileno(file))) {

		//if the callsign is the name of a tty device, prepend a char

		PHYSFS_close(file);
		sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
		file = PHYSFSX_openWriteBuffered(filename);
	}
#endif

	if (!file)
		return -1;

	//Write out player's info
	PHYSFS_writeULE32(file, SAVE_FILE_ID);
	PHYSFS_writeULE16(file, PLAYER_FILE_VERSION);

	PHYSFS_writeULE16(file, Game_window_w);
	PHYSFS_writeULE16(file, Game_window_h);

	PHYSFSX_writeU8(file, Player_default_difficulty);
	PHYSFSX_writeU8(file, Auto_leveling_on);
	PHYSFSX_writeU8(file, Reticle_on);
	PHYSFSX_writeU8(file, (Cockpit_mode_save!=-1)?Cockpit_mode_save:Cockpit_mode);	//if have saved mode, write it instead of letterbox/rear view
	PHYSFSX_writeU8(file, Default_display_mode);
	PHYSFSX_writeU8(file, Missile_view_enabled);
	PHYSFSX_writeU8(file, Headlight_active_default);
	PHYSFSX_writeU8(file, Guided_in_big_window);
	PHYSFSX_writeU8(file, Automap_always_hires);

	//write higest level info
	PHYSFS_writeULE16(file, n_highest_levels);
	if ((PHYSFS_write(file, highest_levels, sizeof(hli), n_highest_levels) != n_highest_levels))
		goto write_player_file_failed;

#ifdef NETWORK
	if ((PHYSFS_write(file, Network_message_macro, MAX_MESSAGE_LEN, 4) != 4))
		goto write_player_file_failed;
#else
	{
		char dummy[4][MAX_MESSAGE_LEN];	// Pull the messages from a hat! ;-)

		if ((PHYSFS_write(file, dummy, MAX_MESSAGE_LEN, 4) != 4))
			goto write_player_file_failed;
	}
#endif

	//write kconfig info
	{

		#ifdef WINDOWS
		control_type_win = Config_control_type;
		#else
		control_type_dos = Config_control_type;
		#endif

		if (PHYSFS_write(file, kconfig_settings, MAX_CONTROLS*CONTROL_MAX_TYPES, 1) != 1)
			goto write_player_file_failed;
		else if (PHYSFS_write(file, &control_type_dos, sizeof(ubyte), 1) != 1)
			goto write_player_file_failed;
		else if (PHYSFS_write(file, &control_type_win, sizeof(ubyte), 1) != 1)
			goto write_player_file_failed;
		else if (PHYSFS_write(file, &Config_joystick_sensitivity, sizeof(ubyte), 1) != 1)
			goto write_player_file_failed;

		for (i = 0; i < 11; i++)
		{
			PHYSFS_write(file, &PrimaryOrder[i], sizeof(ubyte), 1);
			PHYSFS_write(file, &SecondaryOrder[i], sizeof(ubyte), 1);
		}

		PHYSFS_writeULE32(file, Cockpit_3d_view[0]);
		PHYSFS_writeULE32(file, Cockpit_3d_view[1]);

#ifdef NETWORK
		PHYSFS_writeULE32(file, Netlife_kills);
		PHYSFS_writeULE32(file, Netlife_killed);
		i=get_lifetime_checksum (Netlife_kills,Netlife_killed);
		mprintf ((0,"Writing: Lifetime checksum is %d\n",i));
#else
		PHYSFS_writeULE32(file, 0);
		PHYSFS_writeULE32(file, 0);
		i = get_lifetime_checksum (0, 0);
#endif
		PHYSFS_writeULE32(file, i);
	}

	//write guidebot name
	PHYSFSX_writeString(file, real_guidebot_name);

	{
		char buf[128];
		#ifdef WINDOWS
		joy95_get_name(JOYSTICKID1, buf, 127);
		#else
		strcpy(buf, "DOS joystick");
		#endif
		PHYSFSX_writeString(file, buf);		// Write out current joystick for player.
	}

	PHYSFS_write(file, kconfig_d2x_settings, MAX_D2X_CONTROLS, 1);

	if (!PHYSFS_close(file))
		goto write_player_file_failed;

	#ifdef MACINTOSH		// set filetype and creator for playerfile
	{
		FInfo finfo;
		Str255 pfilename;
		OSErr err;

		strcpy(pfilename, filename);
		c2pstr(pfilename);
		err = HGetFInfo(0, 0, pfilename, &finfo);
		finfo.fdType = 'PLYR';
		finfo.fdCreator = 'DCT2';
		err = HSetFInfo(0, 0, pfilename, &finfo);
	}
	#endif

	return EZERO;

 write_player_file_failed:
	nm_messagebox(TXT_ERROR, 1, TXT_OK, "%s\n\n%s", TXT_ERROR_WRITING_PLR, PHYSFS_getLastError());
	if (file)
	{
		PHYSFS_close(file);
		PHYSFS_delete(filename);        //delete bogus file
	}

	return -1;
}

//update the player's highest level.  returns errno (0 == no error)
int update_player_file()
{
	int ret;

	if ((ret=read_player_file()) != EZERO)
		if (ret != ENOENT)		//if file doesn't exist, that's ok
			return ret;

	return write_player_file();
}

int get_lifetime_checksum (int a,int b)
{
  int num;

  // confusing enough to beat amateur disassemblers? Lets hope so

  num=(a<<8 ^ b);
  num^=(a | b);
  num*=num>>2;
  return (num);
}