whitespace
[btb/d2x.git] / main / playsave.c
1 /* $Id: playsave.c,v 1.9 2003-02-27 04:24:43 btb Exp $ */
2 /*
3 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
4 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
5 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
6 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
7 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
8 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
9 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
10 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
11 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
12 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
13 */
14
15 /*
16  *
17  * Functions to load & save player games
18  *
19  * Old Log:
20  * Revision 1.1  1995/12/05  16:05:47  allender
21  * Initial revision
22  *
23  * Revision 1.10  1995/11/03  12:53:24  allender
24  * shareware changes
25  *
26  * Revision 1.9  1995/10/31  10:19:12  allender
27  * shareware stuff
28  *
29  * Revision 1.8  1995/10/23  14:50:11  allender
30  * set control type for new player *before* calling kc_set_controls
31  *
32  * Revision 1.7  1995/10/21  22:25:31  allender
33  * *** empty log message ***
34  *
35  * Revision 1.6  1995/10/17  15:57:42  allender
36  * removed line setting wrong COnfig_control_type
37  *
38  * Revision 1.5  1995/10/17  13:16:44  allender
39  * new controller support
40  *
41  * Revision 1.4  1995/08/24  16:03:38  allender
42  * call joystick code when player file uses joystick
43  *
44  * Revision 1.3  1995/08/03  15:15:39  allender
45  * got player save file working (more to go for shareware)
46  *
47  * Revision 1.2  1995/08/01  13:57:20  allender
48  * macified the player file stuff -- in a seperate folder
49  *
50  * Revision 1.1  1995/05/16  15:30:00  allender
51  * Initial revision
52  *
53  * Revision 2.3  1995/05/26  16:16:23  john
54  * Split SATURN into define's for requiring cd, using cd, etc.
55  * Also started adding all the Rockwell stuff.
56  *
57  * Revision 2.2  1995/03/24  17:48:21  john
58  * Made player files from saturn excrement the highest level for
59  * normal descent levels.
60  *
61  * Revision 2.1  1995/03/21  14:38:49  john
62  * Ifdef'd out the NETWORK code.
63  *
64  * Revision 2.0  1995/02/27  11:27:59  john
65  * New version 2.0, which has no anonymous unions, builds with
66  * Watcom 10.0, and doesn't require parsing BITMAPS.TBL.
67  *
68  * Revision 1.57  1995/02/13  20:34:55  john
69  * Lintized
70  *
71  * Revision 1.56  1995/02/13  13:23:24  john
72  * Fixed bug with new player joystick selection.
73  *
74  * Revision 1.55  1995/02/13  12:01:19  john
75  * Fixed bug with joystick throttle still asking for
76  * calibration with new pilots.
77  *
78  * Revision 1.54  1995/02/13  10:29:12  john
79  * Fixed bug with creating new player not resetting everything to default.
80  *
81  * Revision 1.53  1995/02/03  10:58:46  john
82  * Added code to save shareware style saved games into new format...
83  * Also, made new player file format not have the saved game array in it.
84  *
85  * Revision 1.52  1995/02/02  21:09:28  matt
86  * Let player start of level 8 if he made it to level 7 in the shareware
87  *
88  * Revision 1.51  1995/02/02  18:50:14  john
89  * Added warning for FCS when new pilot chooses.
90  *
91  * Revision 1.50  1995/02/02  11:21:34  john
92  * Made joystick calibrate when new user selects.
93  *
94  * Revision 1.49  1995/02/01  18:06:38  rob
95  * Put defaults macros into descent.tex
96  *
97  * Revision 1.48  1995/01/25  14:37:53  john
98  * Made joystick only prompt for calibration once...
99  *
100  * Revision 1.47  1995/01/24  19:37:12  matt
101  * Took out incorrect mprintf
102  *
103  * Revision 1.46  1995/01/22  18:57:22  matt
104  * Made player highest level work with missions
105  *
106  * Revision 1.45  1995/01/21  16:36:05  matt
107  * Made starting level system work for now, pending integration with
108  * mission code.
109  *
110  * Revision 1.44  1995/01/20  22:47:32  matt
111  * Mission system implemented, though imcompletely
112  *
113  * Revision 1.43  1995/01/04  14:58:39  rob
114  * Fixed for shareware build.
115  *
116  * Revision 1.42  1995/01/04  11:36:43  rob
117  * Added compatibility with older shareware pilot files.
118  *
119  * Revision 1.41  1995/01/03  11:01:58  rob
120  * fixed a default macro.
121  *
122  * Revision 1.40  1995/01/03  10:44:06  rob
123  * Added default taunt macros.
124  *
125  * Revision 1.39  1994/12/13  10:01:16  allender
126  * pop up message box when unable to correctly save player file
127  *
128  * Revision 1.38  1994/12/12  11:37:14  matt
129  * Fixed auto leveling defaults & saving
130  *
131  * Revision 1.37  1994/12/12  00:26:59  matt
132  * Added support for no-levelling option
133  *
134  * Revision 1.36  1994/12/10  19:09:54  matt
135  * Added assert for valid player number when loading game
136  *
137  * Revision 1.35  1994/12/08  10:53:07  rob
138  * Fixed a bug in highest_level tracking.
139  *
140  * Revision 1.34  1994/12/08  10:01:36  john
141  * Changed the way the player callsign stuff works.
142  *
143  * Revision 1.33  1994/12/07  18:30:38  rob
144  * Load highest level along with player (used to be only if higher)
145  * Capped at LAST_LEVEL in case a person loads a registered player in shareware.
146  *
147  * Revision 1.32  1994/12/03  16:01:12  matt
148  * When player file has bad version, force player to choose another
149  *
150  * Revision 1.31  1994/12/02  19:54:00  yuan
151  * Localization.
152  *
153  * Revision 1.30  1994/12/02  11:01:36  yuan
154  * Localization.
155  *
156  * Revision 1.29  1994/11/29  03:46:28  john
157  * Added joystick sensitivity; Added sound channels to detail menu.  Removed -maxchannels
158  * command line arg.
159  *
160  * Revision 1.28  1994/11/29  01:10:23  john
161  * Took out code that allowed new players to
162  * configure keyboard.
163  *
164  * Revision 1.27  1994/11/25  22:47:10  matt
165  * Made saved game descriptions longer
166  *
167  * Revision 1.26  1994/11/22  12:10:42  rob
168  * Fixed file handle left open if player file versions don't
169  * match.
170  *
171  * Revision 1.25  1994/11/21  19:35:30  john
172  * Replaced calls to joy_init with if (joy_present)
173  *
174  * Revision 1.24  1994/11/21  17:29:34  matt
175  * Cleaned up sequencing & game saving for secret levels
176  *
177  * Revision 1.23  1994/11/21  11:10:01  john
178  * Fixed bug with read-only .plr file making the config file
179  * not update.
180  *
181  * Revision 1.22  1994/11/20  19:03:08  john
182  * Fixed bug with if not having a joystick, default
183  * player input device is cyberman.
184  *
185  * Revision 1.21  1994/11/17  12:24:07  matt
186  * Made an array the right size, to fix error loading games
187  *
188  * Revision 1.20  1994/11/14  17:52:54  allender
189  * add call to WriteConfigFile when player files gets written
190  *
191  * Revision 1.19  1994/11/14  17:19:23  rob
192  * Removed gamma, joystick calibration, and sound settings from player file.
193  * Added default difficulty and multi macros.
194  *
195  * Revision 1.18  1994/11/07  14:01:23  john
196  * Changed the gamma correction sequencing.
197  *
198  * Revision 1.17  1994/11/05  17:22:49  john
199  * Fixed lots of sequencing problems with newdemo stuff.
200  *
201  * Revision 1.16  1994/11/01  16:40:11  john
202  * Added Gamma correction.
203  *
204  * Revision 1.15  1994/10/24  19:56:50  john
205  * Made the new user setup prompt for config options.
206  *
207  * Revision 1.14  1994/10/24  17:44:21  john
208  * Added stereo channel reversing.
209  *
210  * Revision 1.13  1994/10/24  16:05:12  matt
211  * Improved handling of player names that are the names of DOS devices
212  *
213  * Revision 1.12  1994/10/22  00:08:51  matt
214  * Fixed up problems with bonus & game sequencing
215  * Player doesn't get credit for hostages unless he gets them out alive
216  *
217  * Revision 1.11  1994/10/19  19:59:57  john
218  * Added bonus points at the end of level based on skill level.
219  *
220  * Revision 1.10  1994/10/19  15:14:34  john
221  * Took % hits out of player structure, made %kills work properly.
222  *
223  * Revision 1.9  1994/10/19  12:44:26  john
224  * Added hours field to player structure.
225  *
226  * Revision 1.8  1994/10/17  17:24:34  john
227  * Added starting_level to player struct.
228  *
229  * Revision 1.7  1994/10/17  13:07:15  john
230  * Moved the descent.cfg info into the player config file.
231  *
232  * Revision 1.6  1994/10/09  14:54:31  matt
233  * Made player cockpit state & window size save/restore with saved games & automap
234  *
235  * Revision 1.5  1994/10/08  23:08:09  matt
236  * Added error check & handling for game load/save disk io
237  *
238  * Revision 1.4  1994/10/05  17:40:54  rob
239  * Bumped save_file_version to 5 due to change in player.h
240  *
241  * Revision 1.3  1994/10/03  23:00:54  matt
242  * New file version for shorter callsigns
243  *
244  * Revision 1.2  1994/09/28  17:25:05  matt
245  * Added first draft of game save/load system
246  *
247  * Revision 1.1  1994/09/27  14:39:12  matt
248  * Initial revision
249  *
250  */
251
252 #ifdef HAVE_CONFIG_H
253 #include <conf.h>
254 #endif
255
256 #ifdef WINDOWS
257 #include "desw.h"
258 #include <mmsystem.h>
259 #endif
260
261 #include <stdio.h>
262 #include <string.h>
263 #include <unistd.h>
264 #include <errno.h>
265
266 #include "error.h"
267
268 #include "pa_enabl.h"
269 #include "strutil.h"
270 #include "game.h"
271 #include "gameseq.h"
272 #include "player.h"
273 #include "playsave.h"
274 #include "joy.h"
275 #include "kconfig.h"
276 #include "digi.h"
277 #include "newmenu.h"
278 #include "joydefs.h"
279 #include "palette.h"
280 #include "multi.h"
281 #include "menu.h"
282 #include "config.h"
283 #include "text.h"
284 #include "mono.h"
285 #include "state.h"
286 #include "gauges.h"
287 #include "screens.h"
288 #include "powerup.h"
289 #include "makesig.h"
290 #include "byteswap.h"
291 #include "fileutil.h"
292
293 #define SAVE_FILE_ID                    MAKE_SIG('D','P','L','R')
294
295 #ifdef MACINTOSH
296         #include <Files.h>
297         #include <Errors.h>                     // mac doesn't have "normal" error numbers -- must use mac equivs
298         #ifndef ENOENT
299                 #define ENOENT fnfErr
300         #endif
301         #ifdef POLY_ACC
302                 #include "poly_acc.h"
303         #endif
304         #include "isp.h"
305 #endif
306
307 int get_lifetime_checksum (int a,int b);
308
309 typedef struct hli {
310         char    shortname[9];
311         ubyte   level_num;
312 } hli;
313
314 int n_highest_levels;
315
316 hli highest_levels[MAX_MISSIONS];
317
318 #define PLAYER_FILE_VERSION     24                      //increment this every time the player file changes
319
320 //version 5  ->  6: added new highest level information
321 //version 6  ->  7: stripped out the old saved_game array.
322 //version 7  ->  8: added reticle flag, & window size
323 //version 8  ->  9: removed player_struct_version
324 //version 9  -> 10: added default display mode
325 //version 10 -> 11: added all toggles in toggle menu
326 //version 11 -> 12: added weapon ordering
327 //version 12 -> 13: added more keys
328 //version 13 -> 14: took out marker key
329 //version 14 -> 15: added guided in big window
330 //version 15 -> 16: added small windows in cockpit
331 //version 16 -> 17: ??
332 //version 17 -> 18: save guidebot name
333 //version 18 -> 19: added automap-highres flag
334 //version 19 -> 20: added kconfig data for windows joysticks
335 //version 20 -> 21: save seperate config types for DOS & Windows
336 //version 21 -> 22: save lifetime netstats 
337 //version 22 -> 23: ??
338 //version 23 -> 24: add name of joystick for windows version.
339
340 #define COMPATIBLE_PLAYER_FILE_VERSION          17
341
342
343 int Default_leveling_on=1;
344 extern ubyte SecondaryOrder[],PrimaryOrder[];
345 extern void InitWeaponOrdering();
346
347 #ifdef MACINTOSH
348 extern ubyte default_firebird_settings[];
349 extern ubyte default_mousestick_settings[];
350 #endif
351
352 int new_player_config()
353 {
354         int nitems;
355         int i,j,control_choice;
356         newmenu_item m[8];
357    int mct=CONTROL_MAX_TYPES;
358  
359    #ifndef WINDOWS
360          mct--;
361         #endif
362
363    InitWeaponOrdering ();               //setup default weapon priorities 
364
365 #if defined(MACINTOSH) && defined(USE_ISP)
366         if (!ISpEnabled())
367         {
368 #endif
369 RetrySelection:
370                 #if !defined(MACINTOSH) && !defined(WINDOWS)
371                 for (i=0; i<mct; i++ )  {
372                         m[i].type = NM_TYPE_MENU; m[i].text = CONTROL_TEXT(i);
373                 }
374                 #elif defined(WINDOWS)
375                         m[0].type = NM_TYPE_MENU; m[0].text = CONTROL_TEXT(0);
376                         m[1].type = NM_TYPE_MENU; m[1].text = CONTROL_TEXT(5);
377                         m[2].type = NM_TYPE_MENU; m[2].text = CONTROL_TEXT(7);
378                         i = 3;
379                 #else
380                 for (i = 0; i < 6; i++) {
381                         m[i].type = NM_TYPE_MENU; m[i].text = CONTROL_TEXT(i);
382                 }
383                 m[4].text = "Gravis Firebird/Mousetick II";
384                 m[3].text = "Thrustmaster";
385                 #endif
386                 
387                 nitems = i;
388                 m[0].text = TXT_CONTROL_KEYBOARD;
389         
390                 #ifdef WINDOWS
391                         if (Config_control_type==CONTROL_NONE) control_choice = 0;
392                         else if (Config_control_type == CONTROL_MOUSE) control_choice = 1;
393                         else if (Config_control_type == CONTROL_WINJOYSTICK) control_choice = 2;
394                         else control_choice = 0;
395                 #else
396                         control_choice = Config_control_type;                           // Assume keyboard
397                 #endif
398         
399                 #ifndef APPLE_DEMO
400                         control_choice = newmenu_do1( NULL, TXT_CHOOSE_INPUT, i, m, NULL, control_choice );
401                 #else
402                         control_choice = 0;
403                 #endif
404                 
405                 if ( control_choice < 0 )
406                         return 0;
407
408 #if defined(MACINTOSH) && defined(USE_ISP)
409         }
410         else    // !!!!NOTE ... link to above if (!ISpEnabled()), this is a really crappy function
411         {
412                 control_choice = 0;
413         }
414 #endif
415
416         for (i=0;i<CONTROL_MAX_TYPES; i++ )
417                 for (j=0;j<MAX_CONTROLS; j++ )
418                         kconfig_settings[i][j] = default_kconfig_settings[i][j];
419         kc_set_controls();
420
421         Config_control_type = control_choice;
422
423 #ifdef WINDOWS
424         if (control_choice == 1) Config_control_type = CONTROL_MOUSE;
425         else if (control_choice == 2) Config_control_type = CONTROL_WINJOYSTICK;
426
427 //      if (Config_control_type == CONTROL_WINJOYSTICK) 
428 //              joydefs_calibrate();
429 #else
430         #ifndef MACINTOSH
431         if ( Config_control_type==CONTROL_THRUSTMASTER_FCS)     {
432                 i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, TXT_FCS );
433                 if (i==0) goto RetrySelection;
434         }
435         
436         if ( (Config_control_type>0) &&         (Config_control_type<5))        {
437                 joydefs_calibrate();
438         }
439         #else           // some macintosh only stuff here
440         if ( Config_control_type==CONTROL_THRUSTMASTER_FCS)     {
441                 extern char *tm_warning;
442                 
443                 i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, tm_warning );
444                 if (i==0) goto RetrySelection;
445         } else  if ( Config_control_type==CONTROL_FLIGHTSTICK_PRO )     {
446                 extern char *ch_warning;
447
448                 i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, ch_warning );
449                 if (i==0) goto RetrySelection;
450         } else  if ( Config_control_type==CONTROL_GRAVIS_GAMEPAD )      {
451                 extern char *ms_warning;
452
453                 i = nm_messagebox( TXT_IMPORTANT_NOTE, 2, "Choose another", TXT_OK, ms_warning );
454                 if (i==0) goto RetrySelection;
455                 // stupid me -- get real default setting for either mousestick or firebird
456                 joydefs_set_type( Config_control_type );
457                 if (joy_have_firebird())
458                         for (i=0; i<NUM_OTHER_CONTROLS; i++ )
459                                 kconfig_settings[Config_control_type][i] = default_firebird_settings[i];
460                 else
461                         for (i=0; i<NUM_OTHER_CONTROLS; i++ )
462                                 kconfig_settings[Config_control_type][i] = default_mousestick_settings[i];
463                 kc_set_controls();              // reset the joystick control
464         }
465         if ( (Config_control_type>0) && (Config_control_type<5)  ) {
466                 joydefs_set_type( Config_control_type );
467                 joydefs_calibrate();
468         }
469
470         #endif
471 #endif
472         
473         Player_default_difficulty = 1;
474         Auto_leveling_on = Default_leveling_on = 1;
475         n_highest_levels = 1;
476         highest_levels[0].shortname[0] = 0;                     //no name for mission 0
477         highest_levels[0].level_num = 1;                                //was highest level in old struct
478         Config_joystick_sensitivity = 8;
479         Cockpit_3d_view[0]=CV_NONE;
480         Cockpit_3d_view[1]=CV_NONE;
481
482         // Default taunt macros
483         #ifdef NETWORK
484         strcpy(Network_message_macro[0], "Why can't we all just get along?");
485         strcpy(Network_message_macro[1], "Hey, I got a present for ya");
486         strcpy(Network_message_macro[2], "I got a hankerin' for a spankerin'");
487         strcpy(Network_message_macro[3], "This one's headed for Uranus");
488         Netlife_kills=0; Netlife_killed=0;      
489         #endif
490         
491         #ifdef MACINTOSH
492                 #ifdef POLY_ACC
493                         if (PAEnabled)
494                         {
495                                 Scanline_double = 0;            // no pixel doubling for poly_acc
496                         }
497                         else
498                         {
499                                 Scanline_double = 1;            // should be default for new player
500                         }
501                 #else
502                         Scanline_double = 1;                    // should be default for new player
503                 #endif
504         #endif
505
506         return 1;
507 }
508
509 extern int Guided_in_big_window,Automap_always_hires;
510
511 //this length must match the value in escort.c
512 #define GUIDEBOT_NAME_LEN 9
513 extern char guidebot_name[];
514 extern char real_guidebot_name[];
515
516 WIN(extern char win95_current_joyname[]);
517
518 ubyte control_type_dos,control_type_win;
519
520 //read in the player's saved games.  returns errno (0 == no error)
521 int read_player_file()
522 {
523         #ifdef MACINTOSH
524         char filename[FILENAME_LEN+15];
525         #else
526         char filename[FILENAME_LEN];
527         #endif
528         FILE *file;
529         int errno_ret = EZERO;
530         int id,player_file_version,i;
531         int rewrite_it=0;
532         int swap = 0;
533
534         Assert(Player_num>=0 && Player_num<MAX_PLAYERS);
535
536 #ifndef MACINTOSH
537         sprintf(filename,"%.8s.plr",Players[Player_num].callsign);
538 #else
539         sprintf(filename, ":Players:%.8s.plr",Players[Player_num].callsign);
540 #endif
541         file = fopen(filename,"rb");
542
543 #ifndef MACINTOSH
544         //check filename
545         if (file && isatty(fileno(file))) {
546                 //if the callsign is the name of a tty device, prepend a char
547                 fclose(file);
548                 sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
549                 file = fopen(filename,"rb");
550         }
551 #endif
552
553         if (!file) {
554                 return errno;
555         }
556
557         id = file_read_int(file);
558
559         // SWAPINT added here because old versions of d2x
560         // used the wrong byte order.
561         if (id!=SAVE_FILE_ID && id!=SWAPINT(SAVE_FILE_ID)) {
562                 nm_messagebox(TXT_ERROR, 1, TXT_OK, "Invalid player file");
563                 fclose(file);
564                 return -1;
565         }
566
567         player_file_version = file_read_short(file);
568
569         if (player_file_version > 255) // bigendian file?
570                 swap = 1;
571
572         if (swap)
573                 player_file_version = SWAPSHORT(player_file_version);
574
575         if (player_file_version<COMPATIBLE_PLAYER_FILE_VERSION) {
576                 nm_messagebox(TXT_ERROR, 1, TXT_OK, TXT_ERROR_PLR_VERSION);
577                 fclose(file);
578                 return -1;
579         }
580
581         Game_window_w                                   = file_read_short(file);
582         Game_window_h                                   = file_read_short(file);
583
584         if (swap) {
585                 Game_window_w = SWAPSHORT(Game_window_w);
586                 Game_window_h = SWAPSHORT(Game_window_h);
587         }
588
589         Player_default_difficulty       = file_read_byte(file);
590         Default_leveling_on                     = file_read_byte(file);
591         Reticle_on                                              = file_read_byte(file);
592         Cockpit_mode                                    = file_read_byte(file);
593         #ifdef POLY_ACC
594          #ifdef PA_3DFX_VOODOO
595                 if (Cockpit_mode<2)
596                 {
597                 Cockpit_mode=2;
598                         Game_window_w  = 640;
599                         Game_window_h   = 480;
600                 }
601          #endif
602         #endif
603  
604         Default_display_mode                    = file_read_byte(file);
605         Missile_view_enabled                    = file_read_byte(file);
606         Headlight_active_default        = file_read_byte(file);
607         Guided_in_big_window                    = file_read_byte(file);
608
609         if (player_file_version >= 19)
610                 Automap_always_hires                    = file_read_byte(file);
611           
612         Auto_leveling_on = Default_leveling_on;
613
614         //read new highest level info
615
616         n_highest_levels = file_read_short(file);
617         if (swap)
618                 n_highest_levels = SWAPSHORT(n_highest_levels);
619
620         if (fread(highest_levels,sizeof(hli),n_highest_levels,file) != n_highest_levels) {
621                 errno_ret                       = errno;
622                 fclose(file);
623                 return errno_ret;
624         }
625
626         //read taunt macros
627         {
628 #ifdef NETWORK
629                 int i,len;
630
631                 len                     = MAX_MESSAGE_LEN;
632
633                 for (i                  = 0; i < 4; i++)
634                         if (fread(Network_message_macro[i], len, 1, file) != 1)
635                                 {errno_ret                      = errno; break;}
636 #else
637                 char dummy[4][MAX_MESSAGE_LEN];
638                 fread(dummy, MAX_MESSAGE_LEN, 4, file);
639
640 #endif
641         }
642
643         //read kconfig data
644         {
645                 int n_control_types = (player_file_version<20)?7:CONTROL_MAX_TYPES;
646
647                 if (fread( kconfig_settings, MAX_CONTROLS*n_control_types, 1, file )!=1)
648                         errno_ret=errno;
649                 else if (fread((ubyte *)&control_type_dos, sizeof(ubyte), 1, file )!=1)
650                         errno_ret=errno;
651                 else if (player_file_version >= 21 && fread((ubyte *)&control_type_win, sizeof(ubyte), 1, file )!=1)
652                         errno_ret=errno;
653                 else if (fread(&Config_joystick_sensitivity, sizeof(ubyte), 1, file )!=1)
654                         errno_ret=errno;
655
656                 #ifdef WINDOWS
657                 Config_control_type = control_type_win;
658                 #else
659                 Config_control_type = control_type_dos;
660                 #endif
661                 
662                 #ifdef MACINTOSH
663                 joydefs_set_type(Config_control_type);
664                 #endif
665
666                 for (i=0;i<11;i++)
667                  {
668                         PrimaryOrder[i]=file_read_byte (file);
669                         SecondaryOrder[i]=file_read_byte(file);
670                  }
671                 
672                 if (player_file_version>=16)
673                  {
674                   Cockpit_3d_view[0]=file_read_int(file);
675                   Cockpit_3d_view[1]=file_read_int(file);
676                   if (swap) {
677                           Cockpit_3d_view[0] = SWAPINT(Cockpit_3d_view[0]);
678                           Cockpit_3d_view[1] = SWAPINT(Cockpit_3d_view[1]);
679                   }
680                  }      
681                 
682                   
683                 if (errno_ret==EZERO)   {
684                         kc_set_controls();
685                 }
686
687         }
688
689    if (player_file_version>=22)
690          {
691 #ifdef NETWORK
692                 Netlife_kills=file_read_int (file);
693                 Netlife_killed=file_read_int (file);
694                 if (swap) {
695                         Netlife_kills = SWAPINT(Netlife_kills);
696                         Netlife_killed = SWAPINT(Netlife_killed);
697                 }
698 #else
699                 file_read_int(file); file_read_int(file);
700 #endif
701          }
702 #ifdef NETWORK
703    else
704          {
705                  Netlife_kills=0; Netlife_killed=0;
706          }
707 #endif
708
709         if (player_file_version>=23)
710          {
711           i=file_read_int (file);       
712           if (swap)
713                   i = SWAPINT(i);
714 #ifdef NETWORK
715           mprintf ((0,"Reading: lifetime checksum is %d\n",i));
716           if (i!=get_lifetime_checksum (Netlife_kills,Netlife_killed))
717                 {
718                  Netlife_kills=0; Netlife_killed=0;
719                  nm_messagebox(NULL, 1, "Shame on me", "Trying to cheat eh?");
720                  rewrite_it=1;
721                 }
722 #endif
723          }
724
725         //read guidebot name
726         if (player_file_version >= 18)
727                 file_read_string(guidebot_name,file);
728         else
729                 strcpy(guidebot_name,"GUIDE-BOT");
730
731         strcpy(real_guidebot_name,guidebot_name);
732
733         {
734                 char buf[128];
735
736         #ifdef WINDOWS
737                 joy95_get_name(JOYSTICKID1, buf, 127);
738                 if (player_file_version >= 24) 
739                         file_read_string(win95_current_joyname, file);
740                 else
741                         strcpy(win95_current_joyname, "Old Player File");
742                 
743                 mprintf((0, "Detected joystick: %s\n", buf));
744                 mprintf((0, "Player's joystick: %s\n", win95_current_joyname));
745
746                 if (strcmp(win95_current_joyname, buf)) {
747                         for (i = 0; i < MAX_CONTROLS; i++)
748                                 kconfig_settings[CONTROL_WINJOYSTICK][i] = 
749                                         default_kconfig_settings[CONTROL_WINJOYSTICK][i];
750                 }        
751         #else
752                 if (player_file_version >= 24) 
753                         file_read_string(buf, file);                    // Just read it in fpr DPS.
754         #endif
755         }
756
757         if (fclose(file) && errno_ret==EZERO)
758                 errno_ret                       = errno;
759
760         if (rewrite_it)
761          write_player_file();
762
763         return errno_ret;
764
765 }
766
767
768 //finds entry for this level in table.  if not found, returns ptr to 
769 //empty entry.  If no empty entries, takes over last one 
770 int find_hli_entry()
771 {
772         int i;
773
774         for (i=0;i<n_highest_levels;i++)
775                 if (!stricmp(highest_levels[i].shortname,Mission_list[Current_mission_num].filename))
776                         break;
777
778         if (i==n_highest_levels) {              //not found.  create entry
779
780                 if (i==MAX_MISSIONS)
781                         i--;            //take last entry
782                 else
783                         n_highest_levels++;
784
785                 strcpy(highest_levels[i].shortname,Mission_list[Current_mission_num].filename);
786                 highest_levels[i].level_num                     = 0;
787         }
788
789         return i;
790 }
791
792 //set a new highest level for player for this mission
793 void set_highest_level(int levelnum)
794 {
795         int ret,i;
796
797         if ((ret=read_player_file()) != EZERO)
798                 if (ret != ENOENT)              //if file doesn't exist, that's ok
799                         return;
800
801         i                       = find_hli_entry();
802
803         if (levelnum > highest_levels[i].level_num)
804                 highest_levels[i].level_num                     = levelnum;
805
806         write_player_file();
807 }
808
809 //gets the player's highest level from the file for this mission
810 int get_highest_level(void)
811 {
812         int i;
813         int highest_saturn_level                        = 0;
814         read_player_file();
815 #ifndef SATURN
816         if (strlen(Mission_list[Current_mission_num].filename)==0 )     {
817                 for (i=0;i<n_highest_levels;i++)
818                         if (!stricmp(highest_levels[i].shortname, "DESTSAT"))   //      Destination Saturn.
819                                 highest_saturn_level                    = highest_levels[i].level_num; 
820         }
821 #endif
822    i                    = highest_levels[find_hli_entry()].level_num;
823         if ( highest_saturn_level > i )
824         i                       = highest_saturn_level;
825         return i;
826 }
827
828 extern int Cockpit_mode_save;
829
830 //write out player's saved games.  returns errno (0 == no error)
831 int write_player_file()
832 {
833         #ifdef MACINTOSH
834         char filename[FILENAME_LEN+15];
835         #else
836         char filename[FILENAME_LEN];            // because of ":Players:" path
837         #endif
838         FILE *file;
839         int errno_ret,i;
840
841 //      #ifdef APPLE_DEMO               // no saving of player files in Apple OEM version
842 //      return 0;
843 //      #endif
844
845         errno_ret                       = WriteConfigFile();
846
847 #ifndef MACINTOSH
848         sprintf(filename,"%s.plr",Players[Player_num].callsign);
849 #else
850         sprintf(filename, ":Players:%.8s.plr",Players[Player_num].callsign);
851 #endif
852         file                    = fopen(filename,"wb");
853
854 #ifndef MACINTOSH
855         //check filename
856         if (file && isatty(fileno(file))) {
857
858                 //if the callsign is the name of a tty device, prepend a char
859
860                 fclose(file);
861                 sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
862                 file                    = fopen(filename,"wb");
863         }
864 #endif
865
866         if (!file)
867               return errno;
868
869         errno_ret                       = EZERO;
870
871         //Write out player's info
872         file_write_int(SAVE_FILE_ID,file);
873         file_write_short(PLAYER_FILE_VERSION,file);
874
875         file_write_short(Game_window_w,file);
876         file_write_short(Game_window_h,file);
877
878         file_write_byte(Player_default_difficulty,file);
879         file_write_byte(Auto_leveling_on,file);
880         file_write_byte(Reticle_on,file);
881         file_write_byte((Cockpit_mode_save!=-1)?Cockpit_mode_save:Cockpit_mode,file);   //if have saved mode, write it instead of letterbox/rear view
882         file_write_byte(Default_display_mode,file);
883         file_write_byte(Missile_view_enabled,file);
884         file_write_byte(Headlight_active_default,file);
885         file_write_byte(Guided_in_big_window,file);
886         file_write_byte(Automap_always_hires,file);
887
888         //write higest level info
889         file_write_short(n_highest_levels,file);
890         if ((fwrite(highest_levels, sizeof(hli), n_highest_levels, file) != n_highest_levels)) {
891                 errno_ret                       = errno;
892                 fclose(file);
893                 return errno_ret;
894         }
895
896         #ifdef NETWORK
897         if ((fwrite(Network_message_macro, MAX_MESSAGE_LEN, 4, file) != 4)) {
898                 errno_ret                       = errno;
899                 fclose(file);
900                 return errno_ret;
901         }
902         #else
903         fseek( file, MAX_MESSAGE_LEN * 4, SEEK_CUR );
904         #endif
905
906         //write kconfig info
907         {
908
909                 #ifdef WINDOWS
910                 control_type_win = Config_control_type;
911                 #else
912                 control_type_dos = Config_control_type;
913                 #endif
914
915                 if (fwrite( kconfig_settings, MAX_CONTROLS*CONTROL_MAX_TYPES, 1, file )!=1)
916                         errno_ret=errno;
917                 else if (fwrite( &control_type_dos, sizeof(ubyte), 1, file )!=1)
918                         errno_ret=errno;
919                 else if (fwrite( &control_type_win, sizeof(ubyte), 1, file )!=1)
920                         errno_ret=errno;
921                 else if (fwrite( &Config_joystick_sensitivity, sizeof(ubyte), 1, file )!=1)
922                         errno_ret=errno;
923
924       for (i=0;i<11;i++)
925        {
926         fwrite (&PrimaryOrder[i],sizeof(ubyte),1,file);
927         fwrite (&SecondaryOrder[i],sizeof(ubyte),1,file);
928        }
929                 file_write_int (Cockpit_3d_view[0],file);
930                 file_write_int (Cockpit_3d_view[1],file);
931
932 #ifdef NETWORK
933                 file_write_int (Netlife_kills,file);
934                 file_write_int (Netlife_killed,file);
935                 i=get_lifetime_checksum (Netlife_kills,Netlife_killed);
936                 mprintf ((0,"Writing: Lifetime checksum is %d\n",i));
937 #else
938            file_write_int(0, file);
939            file_write_int(0, file);
940            i = get_lifetime_checksum (0, 0);
941 #endif
942            file_write_int (i,file);
943         }
944
945         //write guidebot name
946         file_write_string(real_guidebot_name,file);
947
948         {
949                 char buf[128];
950                 #ifdef WINDOWS
951                 joy95_get_name(JOYSTICKID1, buf, 127);
952                 #else
953                 strcpy(buf, "DOS joystick");
954                 #endif
955                 file_write_string(buf, file);           // Write out current joystick for player.
956         }
957
958         if (fclose(file))
959                 errno_ret                       = errno;
960
961         if (errno_ret != EZERO) {
962                 remove(filename);                       //delete bogus file
963                 nm_messagebox(TXT_ERROR, 1, TXT_OK, "%s\n\n%s",TXT_ERROR_WRITING_PLR, strerror(errno_ret));
964         }
965
966         #ifdef MACINTOSH                // set filetype and creator for playerfile
967         {
968                 FInfo finfo;
969                 Str255 pfilename;
970                 OSErr err;
971
972                 strcpy(pfilename, filename);
973                 c2pstr(pfilename);
974                 err = HGetFInfo(0, 0, pfilename, &finfo);
975                 finfo.fdType = 'PLYR';
976                 finfo.fdCreator = 'DCT2';
977                 err = HSetFInfo(0, 0, pfilename, &finfo);
978         }
979         #endif
980
981         return errno_ret;
982
983 }
984
985 //update the player's highest level.  returns errno (0 == no error)
986 int update_player_file()
987 {
988         int ret;
989
990         if ((ret=read_player_file()) != EZERO)
991                 if (ret != ENOENT)              //if file doesn't exist, that's ok
992                         return ret;
993
994         return write_player_file();
995 }
996
997 int get_lifetime_checksum (int a,int b)
998  {
999   int num;
1000
1001   // confusing enough to beat amateur disassemblers? Lets hope so
1002
1003   num=(a<<8 ^ b);
1004   num^=(a | b);
1005   num*=num>>2;
1006   return (num);
1007  }
1008   
1009