comments
[btb/d2x.git] / main / playsave.c
1 /* $Id: */
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
533         Assert(Player_num>=0 && Player_num<MAX_PLAYERS);
534
535 #ifndef MACINTOSH
536         sprintf(filename,"%.8s.plr",Players[Player_num].callsign);
537 #else
538         sprintf(filename, ":Players:%.8s.plr",Players[Player_num].callsign);
539 #endif
540         file = fopen(filename,"rb");
541
542 #ifndef MACINTOSH
543         //check filename
544         if (file && isatty(fileno(file))) {
545                 //if the callsign is the name of a tty device, prepend a char
546                 fclose(file);
547                 sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
548                 file = fopen(filename,"rb");
549         }
550 #endif
551
552         if (!file) {
553                 return errno;
554         }
555
556         id = file_read_int(file);
557
558         // SWAPINT added here because old versions of d2x
559         // used the wrong byte order.
560         if (id!=SAVE_FILE_ID && id!=SWAPINT(SAVE_FILE_ID)) {
561                 nm_messagebox(TXT_ERROR, 1, TXT_OK, "Invalid player file");
562                 fclose(file);
563                 return -1;
564         }
565
566         player_file_version = file_read_short(file);
567
568         if (player_file_version<COMPATIBLE_PLAYER_FILE_VERSION) {
569                 nm_messagebox(TXT_ERROR, 1, TXT_OK, TXT_ERROR_PLR_VERSION);
570                 fclose(file);
571                 return -1;
572         }
573
574         Game_window_w                                   = file_read_short(file);
575         Game_window_h                                   = file_read_short(file);
576
577         Player_default_difficulty       = file_read_byte(file);
578         Default_leveling_on                     = file_read_byte(file);
579         Reticle_on                                              = file_read_byte(file);
580         Cockpit_mode                                    = file_read_byte(file);
581         #ifdef POLY_ACC
582          #ifdef PA_3DFX_VOODOO
583                 if (Cockpit_mode<2)
584                 {
585                 Cockpit_mode=2;
586                         Game_window_w  = 640;
587                         Game_window_h   = 480;
588                 }
589          #endif
590         #endif
591  
592         Default_display_mode                    = file_read_byte(file);
593         Missile_view_enabled                    = file_read_byte(file);
594         Headlight_active_default        = file_read_byte(file);
595         Guided_in_big_window                    = file_read_byte(file);
596
597         if (player_file_version >= 19)
598                 Automap_always_hires                    = file_read_byte(file);
599           
600         Auto_leveling_on = Default_leveling_on;
601
602         //read new highest level info
603
604         n_highest_levels = file_read_short(file);
605         if (fread(highest_levels,sizeof(hli),n_highest_levels,file) != n_highest_levels) {
606                 errno_ret                       = errno;
607                 fclose(file);
608                 return errno_ret;
609         }
610
611         //read taunt macros
612         {
613 #ifdef NETWORK
614                 int i,len;
615
616                 len                     = MAX_MESSAGE_LEN;
617
618                 for (i                  = 0; i < 4; i++)
619                         if (fread(Network_message_macro[i], len, 1, file) != 1)
620                                 {errno_ret                      = errno; break;}
621 #else
622                 char dummy[4][MAX_MESSAGE_LEN];
623                 fread(dummy, MAX_MESSAGE_LEN, 4, file);
624
625 #endif
626         }
627
628         //read kconfig data
629         {
630                 int n_control_types = (player_file_version<20)?7:CONTROL_MAX_TYPES;
631
632                 if (fread( kconfig_settings, MAX_CONTROLS*n_control_types, 1, file )!=1)
633                         errno_ret=errno;
634                 else if (fread((ubyte *)&control_type_dos, sizeof(ubyte), 1, file )!=1)
635                         errno_ret=errno;
636                 else if (player_file_version >= 21 && fread((ubyte *)&control_type_win, sizeof(ubyte), 1, file )!=1)
637                         errno_ret=errno;
638                 else if (fread(&Config_joystick_sensitivity, sizeof(ubyte), 1, file )!=1)
639                         errno_ret=errno;
640
641                 #ifdef WINDOWS
642                 Config_control_type = control_type_win;
643                 #else
644                 Config_control_type = control_type_dos;
645                 #endif
646                 
647                 #ifdef MACINTOSH
648                 joydefs_set_type(Config_control_type);
649                 #endif
650
651                 for (i=0;i<11;i++)
652                  {
653                         PrimaryOrder[i]=file_read_byte (file);
654                         SecondaryOrder[i]=file_read_byte(file);
655                  }
656                 
657                 if (player_file_version>=16)
658                  {
659                   Cockpit_3d_view[0]=file_read_int(file);
660                   Cockpit_3d_view[1]=file_read_int(file);
661                  }      
662                 
663                   
664                 if (errno_ret==EZERO)   {
665                         kc_set_controls();
666                 }
667
668         }
669
670    if (player_file_version>=22)
671          {
672 #ifdef NETWORK
673                 Netlife_kills=file_read_int (file);
674                 Netlife_killed=file_read_int (file);
675 #else
676                 file_read_int(file); file_read_int(file);
677 #endif
678          }
679 #ifdef NETWORK
680    else
681          {
682                  Netlife_kills=0; Netlife_killed=0;
683          }
684 #endif
685
686         if (player_file_version>=23)
687          {
688           i=file_read_int (file);       
689 #ifdef NETWORK
690           mprintf ((0,"Reading: lifetime checksum is %d\n",i));
691           if (i!=get_lifetime_checksum (Netlife_kills,Netlife_killed))
692                 {
693                  Netlife_kills=0; Netlife_killed=0;
694                  nm_messagebox(NULL, 1, "Shame on me", "Trying to cheat eh?");
695                  rewrite_it=1;
696                 }
697 #endif
698          }
699
700         //read guidebot name
701         if (player_file_version >= 18)
702                 file_read_string(guidebot_name,file);
703         else
704                 strcpy(guidebot_name,"GUIDE-BOT");
705
706         strcpy(real_guidebot_name,guidebot_name);
707
708         {
709                 char buf[128];
710
711         #ifdef WINDOWS
712                 joy95_get_name(JOYSTICKID1, buf, 127);
713                 if (player_file_version >= 24) 
714                         file_read_string(win95_current_joyname, file);
715                 else
716                         strcpy(win95_current_joyname, "Old Player File");
717                 
718                 mprintf((0, "Detected joystick: %s\n", buf));
719                 mprintf((0, "Player's joystick: %s\n", win95_current_joyname));
720
721                 if (strcmp(win95_current_joyname, buf)) {
722                         for (i = 0; i < MAX_CONTROLS; i++)
723                                 kconfig_settings[CONTROL_WINJOYSTICK][i] = 
724                                         default_kconfig_settings[CONTROL_WINJOYSTICK][i];
725                 }        
726         #else
727                 if (player_file_version >= 24) 
728                         file_read_string(buf, file);                    // Just read it in fpr DPS.
729         #endif
730         }
731
732         if (fclose(file) && errno_ret==EZERO)
733                 errno_ret                       = errno;
734
735         if (rewrite_it)
736          write_player_file();
737
738         return errno_ret;
739
740 }
741
742
743 //finds entry for this level in table.  if not found, returns ptr to 
744 //empty entry.  If no empty entries, takes over last one 
745 int find_hli_entry()
746 {
747         int i;
748
749         for (i=0;i<n_highest_levels;i++)
750                 if (!stricmp(highest_levels[i].shortname,Mission_list[Current_mission_num].filename))
751                         break;
752
753         if (i==n_highest_levels) {              //not found.  create entry
754
755                 if (i==MAX_MISSIONS)
756                         i--;            //take last entry
757                 else
758                         n_highest_levels++;
759
760                 strcpy(highest_levels[i].shortname,Mission_list[Current_mission_num].filename);
761                 highest_levels[i].level_num                     = 0;
762         }
763
764         return i;
765 }
766
767 //set a new highest level for player for this mission
768 void set_highest_level(int levelnum)
769 {
770         int ret,i;
771
772         if ((ret=read_player_file()) != EZERO)
773                 if (ret != ENOENT)              //if file doesn't exist, that's ok
774                         return;
775
776         i                       = find_hli_entry();
777
778         if (levelnum > highest_levels[i].level_num)
779                 highest_levels[i].level_num                     = levelnum;
780
781         write_player_file();
782 }
783
784 //gets the player's highest level from the file for this mission
785 int get_highest_level(void)
786 {
787         int i;
788         int highest_saturn_level                        = 0;
789         read_player_file();
790 #ifndef SATURN
791         if (strlen(Mission_list[Current_mission_num].filename)==0 )     {
792                 for (i=0;i<n_highest_levels;i++)
793                         if (!stricmp(highest_levels[i].shortname, "DESTSAT"))   //      Destination Saturn.
794                                 highest_saturn_level                    = highest_levels[i].level_num; 
795         }
796 #endif
797    i                    = highest_levels[find_hli_entry()].level_num;
798         if ( highest_saturn_level > i )
799         i                       = highest_saturn_level;
800         return i;
801 }
802
803 extern int Cockpit_mode_save;
804
805 //write out player's saved games.  returns errno (0 == no error)
806 int write_player_file()
807 {
808         #ifdef MACINTOSH
809         char filename[FILENAME_LEN+15];
810         #else
811         char filename[FILENAME_LEN];            // because of ":Players:" path
812         #endif
813         FILE *file;
814         int errno_ret,i;
815
816 //      #ifdef APPLE_DEMO               // no saving of player files in Apple OEM version
817 //      return 0;
818 //      #endif
819
820         errno_ret                       = WriteConfigFile();
821
822 #ifndef MACINTOSH
823         sprintf(filename,"%s.plr",Players[Player_num].callsign);
824 #else
825         sprintf(filename, ":Players:%.8s.plr",Players[Player_num].callsign);
826 #endif
827         file                    = fopen(filename,"wb");
828
829 #ifndef MACINTOSH
830         //check filename
831         if (file && isatty(fileno(file))) {
832
833                 //if the callsign is the name of a tty device, prepend a char
834
835                 fclose(file);
836                 sprintf(filename,"$%.7s.plr",Players[Player_num].callsign);
837                 file                    = fopen(filename,"wb");
838         }
839 #endif
840
841         if (!file)
842               return errno;
843
844         errno_ret                       = EZERO;
845
846         //Write out player's info
847         file_write_int(SAVE_FILE_ID,file);
848         file_write_short(PLAYER_FILE_VERSION,file);
849
850         file_write_short(Game_window_w,file);
851         file_write_short(Game_window_h,file);
852
853         file_write_byte(Player_default_difficulty,file);
854         file_write_byte(Auto_leveling_on,file);
855         file_write_byte(Reticle_on,file);
856         file_write_byte((Cockpit_mode_save!=-1)?Cockpit_mode_save:Cockpit_mode,file);   //if have saved mode, write it instead of letterbox/rear view
857         file_write_byte(Default_display_mode,file);
858         file_write_byte(Missile_view_enabled,file);
859         file_write_byte(Headlight_active_default,file);
860         file_write_byte(Guided_in_big_window,file);
861         file_write_byte(Automap_always_hires,file);
862
863         //write higest level info
864         file_write_short(n_highest_levels,file);
865         if ((fwrite(highest_levels, sizeof(hli), n_highest_levels, file) != n_highest_levels)) {
866                 errno_ret                       = errno;
867                 fclose(file);
868                 return errno_ret;
869         }
870
871         #ifdef NETWORK
872         if ((fwrite(Network_message_macro, MAX_MESSAGE_LEN, 4, file) != 4)) {
873                 errno_ret                       = errno;
874                 fclose(file);
875                 return errno_ret;
876         }
877         #else
878         fseek( file, MAX_MESSAGE_LEN * 4, SEEK_CUR );
879         #endif
880
881         //write kconfig info
882         {
883
884                 #ifdef WINDOWS
885                 control_type_win = Config_control_type;
886                 #else
887                 control_type_dos = Config_control_type;
888                 #endif
889
890                 if (fwrite( kconfig_settings, MAX_CONTROLS*CONTROL_MAX_TYPES, 1, file )!=1)
891                         errno_ret=errno;
892                 else if (fwrite( &control_type_dos, sizeof(ubyte), 1, file )!=1)
893                         errno_ret=errno;
894                 else if (fwrite( &control_type_win, sizeof(ubyte), 1, file )!=1)
895                         errno_ret=errno;
896                 else if (fwrite( &Config_joystick_sensitivity, sizeof(ubyte), 1, file )!=1)
897                         errno_ret=errno;
898
899       for (i=0;i<11;i++)
900        {
901         fwrite (&PrimaryOrder[i],sizeof(ubyte),1,file);
902         fwrite (&SecondaryOrder[i],sizeof(ubyte),1,file);
903        }
904                 file_write_int (Cockpit_3d_view[0],file);
905                 file_write_int (Cockpit_3d_view[1],file);
906
907 #ifdef NETWORK
908                 file_write_int (Netlife_kills,file);
909                 file_write_int (Netlife_killed,file);
910                 i=get_lifetime_checksum (Netlife_kills,Netlife_killed);
911                 mprintf ((0,"Writing: Lifetime checksum is %d\n",i));
912 #else
913            file_write_int(0, file);
914            file_write_int(0, file);
915            i = get_lifetime_checksum (0, 0);
916 #endif
917            file_write_int (i,file);
918         }
919
920         //write guidebot name
921         file_write_string(real_guidebot_name,file);
922
923         {
924                 char buf[128];
925                 #ifdef WINDOWS
926                 joy95_get_name(JOYSTICKID1, buf, 127);
927                 #else
928                 strcpy(buf, "DOS joystick");
929                 #endif
930                 file_write_string(buf, file);           // Write out current joystick for player.
931         }
932
933         if (fclose(file))
934                 errno_ret                       = errno;
935
936         if (errno_ret != EZERO) {
937                 remove(filename);                       //delete bogus file
938                 nm_messagebox(TXT_ERROR, 1, TXT_OK, "%s\n\n%s",TXT_ERROR_WRITING_PLR, strerror(errno_ret));
939         }
940
941         #ifdef MACINTOSH                // set filetype and creator for playerfile
942         {
943                 FInfo finfo;
944                 Str255 pfilename;
945                 OSErr err;
946
947                 strcpy(pfilename, filename);
948                 c2pstr(pfilename);
949                 err = HGetFInfo(0, 0, pfilename, &finfo);
950                 finfo.fdType = 'PLYR';
951                 finfo.fdCreator = 'DCT2';
952                 err = HSetFInfo(0, 0, pfilename, &finfo);
953         }
954         #endif
955
956         return errno_ret;
957
958 }
959
960 //update the player's highest level.  returns errno (0 == no error)
961 int update_player_file()
962 {
963         int ret;
964
965         if ((ret=read_player_file()) != EZERO)
966                 if (ret != ENOENT)              //if file doesn't exist, that's ok
967                         return ret;
968
969         return write_player_file();
970 }
971
972 int get_lifetime_checksum (int a,int b)
973  {
974   int num;
975
976   // confusing enough to beat amateur disassemblers? Lets hope so
977
978   num=(a<<8 ^ b);
979   num^=(a | b);
980   num*=num>>2;
981   return (num);
982  }
983   
984