more d1 level loading stuff
[btb/d2x.git] / main / gamesave.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  * Save game information
18  *
19  *
20  */
21
22 #ifdef HAVE_CONFIG_H
23 #include <conf.h>
24 #endif
25
26 #ifdef RCS
27 char gamesave_rcsid[] = "$Id: gamesave.c,v 1.10 2002-08-02 23:28:40 btb Exp $";
28 #endif
29
30 #include <stdio.h>
31 #include <string.h>
32
33 #include "pstypes.h"
34 #include "strutil.h"
35 #include "mono.h"
36 #include "key.h"
37 #include "gr.h"
38 #include "palette.h"
39 #include "newmenu.h"
40
41 #include "inferno.h"
42 #ifdef EDITOR
43 #include "editor/editor.h"
44 #endif
45 #include "error.h"
46 #include "object.h"
47 #include "game.h"
48 #include "screens.h"
49 #include "wall.h"
50 #include "gamemine.h"
51 #include "robot.h"
52
53
54 #include "cfile.h"
55 #include "bm.h"
56 #include "menu.h"
57 #include "switch.h"
58 #include "fuelcen.h"
59 #include "cntrlcen.h"
60 #include "powerup.h"
61 #include "weapon.h"
62 #include "newdemo.h"
63 #include "gameseq.h"
64 #include "automap.h"
65 #include "polyobj.h"
66 #include "text.h"
67 #include "gamefont.h"
68 #include "gamesave.h"
69 #include "gamepal.h"
70 #include "laser.h"
71 #include "byteswap.h"
72 #include "multi.h"
73 #include "makesig.h"
74
75 char Gamesave_current_filename[128];
76
77 int Gamesave_current_version;
78
79 #define GAME_VERSION            32
80 #define GAME_COMPATIBLE_VERSION 22
81
82 //version 28->29  add delta light support
83 //version 27->28  controlcen id now is reactor number, not model number
84 //version 28->29  ??
85 //version 29->30  changed trigger structure
86 //version 30->31  changed trigger structure some more
87 //version 31->32  change segment structure, make it 512 bytes w/o editor, add Segment2s array.
88
89 #define MENU_CURSOR_X_MIN       MENU_X
90 #define MENU_CURSOR_X_MAX       MENU_X+6
91
92 struct {
93         ushort  fileinfo_signature;
94         ushort  fileinfo_version;
95         int     fileinfo_sizeof;
96 } game_top_fileinfo;    // Should be same as first two fields below...
97
98 struct {
99         ushort  fileinfo_signature;
100         ushort  fileinfo_version;
101         int     fileinfo_sizeof;
102         char    mine_filename[15];
103         int     level;
104         int     player_offset;              // Player info
105         int     player_sizeof;
106         int     object_offset;              // Object info
107         int     object_howmany;
108         int     object_sizeof;
109         int     walls_offset;
110         int     walls_howmany;
111         int     walls_sizeof;
112         int     doors_offset;
113         int     doors_howmany;
114         int     doors_sizeof;
115         int     triggers_offset;
116         int     triggers_howmany;
117         int     triggers_sizeof;
118         int     links_offset;
119         int     links_howmany;
120         int     links_sizeof;
121         int     control_offset;
122         int     control_howmany;
123         int     control_sizeof;
124         int     matcen_offset;
125         int     matcen_howmany;
126         int     matcen_sizeof;
127         int     dl_indices_offset;
128         int     dl_indices_howmany;
129         int     dl_indices_sizeof;
130         int     delta_light_offset;
131         int     delta_light_howmany;
132         int     delta_light_sizeof;
133 } game_fileinfo;
134
135 //  LINT: adding function prototypes
136 void read_object(object *obj, CFILE *f, int version);
137 void write_object(object *obj, FILE *f);
138 void do_load_save_levels(int save);
139 void dump_mine_info(void);
140
141 extern char MaxPowerupsAllowed[MAX_POWERUP_TYPES];
142 extern char PowerupsInMine[MAX_POWERUP_TYPES];
143
144 #ifdef EDITOR
145 extern char mine_filename[];
146 extern int save_mine_data_compiled(FILE * SaveFile);
147 //--unused-- #else
148 //--unused-- char mine_filename[128];
149 #endif
150
151 int Gamesave_num_org_robots = 0;
152 //--unused-- grs_bitmap * Gamesave_saved_bitmap = NULL;
153
154 #ifdef EDITOR
155 // Return true if this level has a name of the form "level??"
156 // Note that a pathspec can appear at the beginning of the filename.
157 int is_real_level(char *filename)
158 {
159         int len = strlen(filename);
160
161         if (len < 6)
162                 return 0;
163
164         //mprintf((0, "String = [%s]\n", &filename[len-11]));
165         return !strnicmp(&filename[len-11], "level", 5);
166
167 }
168 #endif
169
170 void change_filename_extension( char *dest, char *src, char *new_ext )
171 {
172         int i;
173
174         strcpy (dest, src);
175
176         if (new_ext[0]=='.')
177                 new_ext++;
178
179         for (i=1; i<strlen(dest); i++ )
180                 if (dest[i]=='.'||dest[i]==' '||dest[i]==0)
181                         break;
182
183         if (i < 123) {
184                 dest[i]='.';
185                 dest[i+1]=new_ext[0];
186                 dest[i+2]=new_ext[1];
187                 dest[i+3]=new_ext[2];
188                 dest[i+4]=0;
189                 return;
190         }
191 }
192
193 //--unused-- vms_angvec zero_angles={0,0,0};
194
195 #define vm_angvec_zero(v) do {(v)->p=(v)->b=(v)->h=0;} while (0)
196
197 int Gamesave_num_players=0;
198
199 int N_save_pof_names;
200 char Save_pof_names[MAX_POLYGON_MODELS][FILENAME_LEN];
201
202 void check_and_fix_matrix(vms_matrix *m);
203
204 void verify_object( object * obj )      {
205
206         obj->lifeleft = IMMORTAL_TIME;          //all loaded object are immortal, for now
207
208         if ( obj->type == OBJ_ROBOT )   {
209                 Gamesave_num_org_robots++;
210
211                 // Make sure valid id...
212                 if ( obj->id >= N_robot_types )
213                         obj->id = obj->id % N_robot_types;
214
215                 // Make sure model number & size are correct...         
216                 if ( obj->render_type == RT_POLYOBJ ) {
217                         Assert(Robot_info[obj->id].model_num != -1);
218                                 //if you fail this assert, it means that a robot in this level
219                                 //hasn't been loaded, possibly because he's marked as
220                                 //non-shareware.  To see what robot number, print obj->id.
221
222                         Assert(Robot_info[obj->id].always_0xabcd == 0xabcd);
223                                 //if you fail this assert, it means that the robot_ai for
224                                 //a robot in this level hasn't been loaded, possibly because 
225                                 //it's marked as non-shareware.  To see what robot number, 
226                                 //print obj->id.
227
228                         obj->rtype.pobj_info.model_num = Robot_info[obj->id].model_num;
229                         obj->size = Polygon_models[obj->rtype.pobj_info.model_num].rad;
230
231                         //@@Took out this ugly hack 1/12/96, because Mike has added code
232                         //@@that should fix it in a better way.
233                         //@@//this is a super-ugly hack.  Since the baby stripe robots have
234                         //@@//their firing point on their bounding sphere, the firing points
235                         //@@//can poke through a wall if the robots are very close to it. So
236                         //@@//we make their radii bigger so the guns can't get too close to 
237                         //@@//the walls
238                         //@@if (Robot_info[obj->id].flags & RIF_BIG_RADIUS)
239                         //@@    obj->size = (obj->size*3)/2;
240
241                         //@@if (obj->control_type==CT_AI && Robot_info[obj->id].attack_type)
242                         //@@    obj->size = obj->size*3/4;
243                 }
244
245                 if (obj->id == 65)                                              //special "reactor" robots
246                         obj->movement_type = MT_NONE;
247
248                 if (obj->movement_type == MT_PHYSICS) {
249                         obj->mtype.phys_info.mass = Robot_info[obj->id].mass;
250                         obj->mtype.phys_info.drag = Robot_info[obj->id].drag;
251                 }
252         }
253         else {          //Robots taken care of above
254
255                 if ( obj->render_type == RT_POLYOBJ ) {
256                         int i;
257                         char *name = Save_pof_names[obj->rtype.pobj_info.model_num];
258
259                         for (i=0;i<N_polygon_models;i++)
260                                 if (!stricmp(Pof_names[i],name)) {              //found it!     
261                                         // mprintf((0,"Mapping <%s> to %d (was %d)\n",name,i,obj->rtype.pobj_info.model_num));
262                                         obj->rtype.pobj_info.model_num = i;
263                                         break;
264                                 }
265                 }
266         }
267
268         if ( obj->type == OBJ_POWERUP ) {
269                 if ( obj->id >= N_powerup_types )       {
270                         obj->id = 0;
271                         Assert( obj->render_type != RT_POLYOBJ );
272                 }
273                 obj->control_type = CT_POWERUP;
274                 obj->size = Powerup_info[obj->id].size;
275                 obj->ctype.powerup_info.creation_time = 0;
276
277 #ifdef NETWORK
278                 if (Game_mode & GM_NETWORK)
279                         {
280                           if (multi_powerup_is_4pack(obj->id))
281                                 {
282                                  PowerupsInMine[obj->id-1]+=4;
283                                  MaxPowerupsAllowed[obj->id-1]+=4;
284                                 }
285                           PowerupsInMine[obj->id]++;
286                      MaxPowerupsAllowed[obj->id]++;
287                           mprintf ((0,"PowerupLimiter: ID=%d\n",obj->id));
288                           if (obj->id>MAX_POWERUP_TYPES)
289                                 mprintf ((1,"POWERUP: Overwriting array bounds!! Get JL!\n"));
290                         }
291 #endif
292
293         }
294
295         if ( obj->type == OBJ_WEAPON )  {
296                 if ( obj->id >= N_weapon_types )        {
297                         obj->id = 0;
298                         Assert( obj->render_type != RT_POLYOBJ );
299                 }
300
301                 if (obj->id == PMINE_ID) {              //make sure pmines have correct values
302
303                         obj->mtype.phys_info.mass = Weapon_info[obj->id].mass;
304                         obj->mtype.phys_info.drag = Weapon_info[obj->id].drag;
305                         obj->mtype.phys_info.flags |= PF_FREE_SPINNING;
306
307                         // Make sure model number & size are correct...         
308                         Assert( obj->render_type == RT_POLYOBJ );
309
310                         obj->rtype.pobj_info.model_num = Weapon_info[obj->id].model_num;
311                         obj->size = Polygon_models[obj->rtype.pobj_info.model_num].rad;
312                 }
313         }
314
315         if ( obj->type == OBJ_CNTRLCEN ) {
316
317                 obj->render_type = RT_POLYOBJ;
318                 obj->control_type = CT_CNTRLCEN;
319
320                 if (Gamesave_current_version <= 1) { // descent 1 reactor
321                         obj->id = 0;                         // used to be only one kind of reactor
322                         obj->rtype.pobj_info.model_num = 97; // approximately descent 1 type
323                 }
324                 //@@// Make model number is correct...
325                 //@@for (i=0; i<Num_total_object_types; i++ )
326                 //@@    if ( ObjType[i] == OL_CONTROL_CENTER ) {
327                 //@@            obj->rtype.pobj_info.model_num = ObjId[i];
328                 //@@            obj->shields = ObjStrength[i];
329                 //@@            break;
330                 //@@    }
331
332                 #ifdef EDITOR
333                 {
334                 int i;
335                 // Check, and set, strength of reactor
336                 for (i=0; i<Num_total_object_types; i++ )       
337                         if ( ObjType[i]==OL_CONTROL_CENTER && ObjId[i] == obj->id ) {
338                                 obj->shields = ObjStrength[i];
339                                 break;          
340                         }
341                 Assert(i < Num_total_object_types);             //make sure we found it
342                 }
343                 #endif
344         }
345
346         if ( obj->type == OBJ_PLAYER )  {
347                 //int i;
348
349                 //Assert(obj == Player);
350
351                 if ( obj == ConsoleObject )             
352                         init_player_object();
353                 else
354                         if (obj->render_type == RT_POLYOBJ)     //recover from Matt's pof file matchup bug
355                                 obj->rtype.pobj_info.model_num = Player_ship->model_num;
356
357                 //Make sure orient matrix is orthogonal
358                 check_and_fix_matrix(&obj->orient);
359
360                 obj->id = Gamesave_num_players++;
361         }
362
363         if (obj->type == OBJ_HOSTAGE) {
364
365                 //@@if (obj->id > N_hostage_types)
366                 //@@    obj->id = 0;
367
368                 obj->render_type = RT_HOSTAGE;
369                 obj->control_type = CT_POWERUP;
370         }
371
372 }
373
374 //static gs_skip(int len,CFILE *file)
375 //{
376 //
377 //      cfseek(file,len,SEEK_CUR);
378 //}
379
380 #ifdef EDITOR
381 static void gs_write_int(int i,FILE *file)
382 {
383         if (fwrite( &i, sizeof(i), 1, file) != 1)
384                 Error( "Error reading int in gamesave.c" );
385
386 }
387
388 static void gs_write_fix(fix f,FILE *file)
389 {
390         if (fwrite( &f, sizeof(f), 1, file) != 1)
391                 Error( "Error reading fix in gamesave.c" );
392
393 }
394
395 static void gs_write_short(short s,FILE *file)
396 {
397         if (fwrite( &s, sizeof(s), 1, file) != 1)
398                 Error( "Error reading short in gamesave.c" );
399
400 }
401
402 static void gs_write_fixang(fixang f,FILE *file)
403 {
404         if (fwrite( &f, sizeof(f), 1, file) != 1)
405                 Error( "Error reading fixang in gamesave.c" );
406
407 }
408
409 static void gs_write_byte(byte b,FILE *file)
410 {
411         if (fwrite( &b, sizeof(b), 1, file) != 1)
412                 Error( "Error reading byte in gamesave.c" );
413
414 }
415
416 static void gr_write_vector(vms_vector *v,FILE *file)
417 {
418         gs_write_fix(v->x,file);
419         gs_write_fix(v->y,file);
420         gs_write_fix(v->z,file);
421 }
422
423 static void gs_write_matrix(vms_matrix *m,FILE *file)
424 {
425         gr_write_vector(&m->rvec,file);
426         gr_write_vector(&m->uvec,file);
427         gr_write_vector(&m->fvec,file);
428 }
429
430 static void gs_write_angvec(vms_angvec *v,FILE *file)
431 {
432         gs_write_fixang(v->p,file);
433         gs_write_fixang(v->b,file);
434         gs_write_fixang(v->h,file);
435 }
436
437 #endif
438
439
440 extern int multi_powerup_is_4pack(int);
441 //reads one object of the given version from the given file
442 void read_object(object *obj,CFILE *f,int version)
443 {
444
445         obj->type           = cfile_read_byte(f);
446         obj->id             = cfile_read_byte(f);
447
448         obj->control_type   = cfile_read_byte(f);
449         obj->movement_type  = cfile_read_byte(f);
450         obj->render_type    = cfile_read_byte(f);
451         obj->flags          = cfile_read_byte(f);
452
453         obj->segnum         = cfile_read_short(f);
454         obj->attached_obj   = -1;
455
456         cfile_read_vector(&obj->pos,f);
457         cfile_read_matrix(&obj->orient,f);
458
459         obj->size           = cfile_read_fix(f);
460         obj->shields        = cfile_read_fix(f);
461
462         cfile_read_vector(&obj->last_pos,f);
463
464         obj->contains_type  = cfile_read_byte(f);
465         obj->contains_id    = cfile_read_byte(f);
466         obj->contains_count = cfile_read_byte(f);
467
468         switch (obj->movement_type) {
469
470                 case MT_PHYSICS:
471
472                         cfile_read_vector(&obj->mtype.phys_info.velocity,f);
473                         cfile_read_vector(&obj->mtype.phys_info.thrust,f);
474
475                         obj->mtype.phys_info.mass               = cfile_read_fix(f);
476                         obj->mtype.phys_info.drag               = cfile_read_fix(f);
477                         obj->mtype.phys_info.brakes     = cfile_read_fix(f);
478
479                         cfile_read_vector(&obj->mtype.phys_info.rotvel,f);
480                         cfile_read_vector(&obj->mtype.phys_info.rotthrust,f);
481
482                         obj->mtype.phys_info.turnroll   = cfile_read_fixang(f);
483                         obj->mtype.phys_info.flags              = cfile_read_short(f);
484
485                         break;
486
487                 case MT_SPINNING:
488
489                         cfile_read_vector(&obj->mtype.spin_rate,f);
490                         break;
491
492                 case MT_NONE:
493                         break;
494
495                 default:
496                         Int3();
497         }
498
499         switch (obj->control_type) {
500
501                 case CT_AI: {
502                         int i;
503
504                         obj->ctype.ai_info.behavior                             = cfile_read_byte(f);
505
506                         for (i=0;i<MAX_AI_FLAGS;i++)
507                                 obj->ctype.ai_info.flags[i]                     = cfile_read_byte(f);
508
509                         obj->ctype.ai_info.hide_segment                 = cfile_read_short(f);
510                         obj->ctype.ai_info.hide_index                   = cfile_read_short(f);
511                         obj->ctype.ai_info.path_length                  = cfile_read_short(f);
512                         obj->ctype.ai_info.cur_path_index               = cfile_read_short(f);
513
514                         if (version <= 25) {
515                                 cfile_read_short(f);    //                              obj->ctype.ai_info.follow_path_start_seg        = 
516                                 cfile_read_short(f);    //                              obj->ctype.ai_info.follow_path_end_seg          = 
517                         }
518
519                         break;
520                 }
521
522                 case CT_EXPLOSION:
523
524                         obj->ctype.expl_info.spawn_time         = cfile_read_fix(f);
525                         obj->ctype.expl_info.delete_time                = cfile_read_fix(f);
526                         obj->ctype.expl_info.delete_objnum      = cfile_read_short(f);
527                         obj->ctype.expl_info.next_attach = obj->ctype.expl_info.prev_attach = obj->ctype.expl_info.attach_parent = -1;
528
529                         break;
530
531                 case CT_WEAPON:
532
533                         //do I really need to read these?  Are they even saved to disk?
534
535                         obj->ctype.laser_info.parent_type               = cfile_read_short(f);
536                         obj->ctype.laser_info.parent_num                = cfile_read_short(f);
537                         obj->ctype.laser_info.parent_signature  = cfile_read_int(f);
538
539                         break;
540
541                 case CT_LIGHT:
542
543                         obj->ctype.light_info.intensity = cfile_read_fix(f);
544                         break;
545
546                 case CT_POWERUP:
547
548                         if (version >= 25)
549                                 obj->ctype.powerup_info.count = cfile_read_int(f);
550                         else
551                                 obj->ctype.powerup_info.count = 1;
552
553                         if (obj->id == POW_VULCAN_WEAPON)
554                                         obj->ctype.powerup_info.count = VULCAN_WEAPON_AMMO_AMOUNT;
555
556                         if (obj->id == POW_GAUSS_WEAPON)
557                                         obj->ctype.powerup_info.count = VULCAN_WEAPON_AMMO_AMOUNT;
558
559                         if (obj->id == POW_OMEGA_WEAPON)
560                                         obj->ctype.powerup_info.count = MAX_OMEGA_CHARGE;
561
562                         break;
563
564
565                 case CT_NONE:
566                 case CT_FLYING:
567                 case CT_DEBRIS:
568                         break;
569
570                 case CT_SLEW:           //the player is generally saved as slew
571                         break;
572
573                 case CT_CNTRLCEN:
574                         break;
575
576                 case CT_MORPH:
577                 case CT_FLYTHROUGH:
578                 case CT_REPAIRCEN:
579                 default:
580                         Int3();
581         
582         }
583
584         switch (obj->render_type) {
585
586                 case RT_NONE:
587                         break;
588
589                 case RT_MORPH:
590                 case RT_POLYOBJ: {
591                         int i,tmo;
592
593                         obj->rtype.pobj_info.model_num          = cfile_read_int(f);
594
595                         for (i=0;i<MAX_SUBMODELS;i++)
596                                 cfile_read_angvec(&obj->rtype.pobj_info.anim_angles[i],f);
597
598                         obj->rtype.pobj_info.subobj_flags       = cfile_read_int(f);
599
600                         tmo = cfile_read_int(f);
601
602                         #ifndef EDITOR
603                         obj->rtype.pobj_info.tmap_override      = tmo;
604                         #else
605                         if (tmo==-1)
606                                 obj->rtype.pobj_info.tmap_override      = -1;
607                         else {
608                                 int xlated_tmo = tmap_xlate_table[tmo];
609                                 if (xlated_tmo < 0)     {
610                                         mprintf( (0, "Couldn't find texture for demo object, model_num = %d\n", obj->rtype.pobj_info.model_num));
611                                         Int3();
612                                         xlated_tmo = 0;
613                                 }
614                                 obj->rtype.pobj_info.tmap_override      = xlated_tmo;
615                         }
616                         #endif
617
618                         obj->rtype.pobj_info.alt_textures       = 0;
619
620                         break;
621                 }
622
623                 case RT_WEAPON_VCLIP:
624                 case RT_HOSTAGE:
625                 case RT_POWERUP:
626                 case RT_FIREBALL:
627
628                         obj->rtype.vclip_info.vclip_num = cfile_read_int(f);
629                         obj->rtype.vclip_info.frametime = cfile_read_fix(f);
630                         obj->rtype.vclip_info.framenum  = cfile_read_byte(f);
631
632                         break;
633
634                 case RT_LASER:
635                         break;
636
637                 default:
638                         Int3();
639
640         }
641
642 }
643
644 #ifdef EDITOR
645
646 //writes one object to the given file
647 void write_object(object *obj,FILE *f)
648 {
649         gs_write_byte(obj->type,f);
650         gs_write_byte(obj->id,f);
651
652         gs_write_byte(obj->control_type,f);
653         gs_write_byte(obj->movement_type,f);
654         gs_write_byte(obj->render_type,f);
655         gs_write_byte(obj->flags,f);
656
657         gs_write_short(obj->segnum,f);
658
659         gr_write_vector(&obj->pos,f);
660         gs_write_matrix(&obj->orient,f);
661
662         gs_write_fix(obj->size,f);
663         gs_write_fix(obj->shields,f);
664
665         gr_write_vector(&obj->last_pos,f);
666
667         gs_write_byte(obj->contains_type,f);
668         gs_write_byte(obj->contains_id,f);
669         gs_write_byte(obj->contains_count,f);
670
671         switch (obj->movement_type) {
672
673                 case MT_PHYSICS:
674
675                         gr_write_vector(&obj->mtype.phys_info.velocity,f);
676                         gr_write_vector(&obj->mtype.phys_info.thrust,f);
677
678                         gs_write_fix(obj->mtype.phys_info.mass,f);
679                         gs_write_fix(obj->mtype.phys_info.drag,f);
680                         gs_write_fix(obj->mtype.phys_info.brakes,f);
681
682                         gr_write_vector(&obj->mtype.phys_info.rotvel,f);
683                         gr_write_vector(&obj->mtype.phys_info.rotthrust,f);
684
685                         gs_write_fixang(obj->mtype.phys_info.turnroll,f);
686                         gs_write_short(obj->mtype.phys_info.flags,f);
687
688                         break;
689
690                 case MT_SPINNING:
691
692                         gr_write_vector(&obj->mtype.spin_rate,f);
693                         break;
694
695                 case MT_NONE:
696                         break;
697
698                 default:
699                         Int3();
700         }
701
702         switch (obj->control_type) {
703
704                 case CT_AI: {
705                         int i;
706
707                         gs_write_byte(obj->ctype.ai_info.behavior,f);
708
709                         for (i=0;i<MAX_AI_FLAGS;i++)
710                                 gs_write_byte(obj->ctype.ai_info.flags[i],f);
711
712                         gs_write_short(obj->ctype.ai_info.hide_segment,f);
713                         gs_write_short(obj->ctype.ai_info.hide_index,f);
714                         gs_write_short(obj->ctype.ai_info.path_length,f);
715                         gs_write_short(obj->ctype.ai_info.cur_path_index,f);
716
717                         // -- unused! mk, 08/13/95 -- gs_write_short(obj->ctype.ai_info.follow_path_start_seg,f);
718                         // -- unused! mk, 08/13/95 -- gs_write_short(obj->ctype.ai_info.follow_path_end_seg,f);
719
720                         break;
721                 }
722
723                 case CT_EXPLOSION:
724
725                         gs_write_fix(obj->ctype.expl_info.spawn_time,f);
726                         gs_write_fix(obj->ctype.expl_info.delete_time,f);
727                         gs_write_short(obj->ctype.expl_info.delete_objnum,f);
728
729                         break;
730
731                 case CT_WEAPON:
732
733                         //do I really need to write these objects?
734
735                         gs_write_short(obj->ctype.laser_info.parent_type,f);
736                         gs_write_short(obj->ctype.laser_info.parent_num,f);
737                         gs_write_int(obj->ctype.laser_info.parent_signature,f);
738
739                         break;
740
741                 case CT_LIGHT:
742
743                         gs_write_fix(obj->ctype.light_info.intensity,f);
744                         break;
745
746                 case CT_POWERUP:
747
748                         gs_write_int(obj->ctype.powerup_info.count,f);
749                         break;
750
751                 case CT_NONE:
752                 case CT_FLYING:
753                 case CT_DEBRIS:
754                         break;
755
756                 case CT_SLEW:           //the player is generally saved as slew
757                         break;
758
759                 case CT_CNTRLCEN:
760                         break;                  //control center object.
761
762                 case CT_MORPH:
763                 case CT_REPAIRCEN:
764                 case CT_FLYTHROUGH:
765                 default:
766                         Int3();
767         
768         }
769
770         switch (obj->render_type) {
771
772                 case RT_NONE:
773                         break;
774
775                 case RT_MORPH:
776                 case RT_POLYOBJ: {
777                         int i;
778
779                         gs_write_int(obj->rtype.pobj_info.model_num,f);
780
781                         for (i=0;i<MAX_SUBMODELS;i++)
782                                 gs_write_angvec(&obj->rtype.pobj_info.anim_angles[i],f);
783
784                         gs_write_int(obj->rtype.pobj_info.subobj_flags,f);
785
786                         gs_write_int(obj->rtype.pobj_info.tmap_override,f);
787
788                         break;
789                 }
790
791                 case RT_WEAPON_VCLIP:
792                 case RT_HOSTAGE:
793                 case RT_POWERUP:
794                 case RT_FIREBALL:
795
796                         gs_write_int(obj->rtype.vclip_info.vclip_num,f);
797                         gs_write_fix(obj->rtype.vclip_info.frametime,f);
798                         gs_write_byte(obj->rtype.vclip_info.framenum,f);
799
800                         break;
801
802                 case RT_LASER:
803                         break;
804
805                 default:
806                         Int3();
807
808         }
809
810 }
811 #endif
812
813 extern int remove_trigger_num(int trigger_num);
814
815 // -----------------------------------------------------------------------------
816 // Load game 
817 // Loads all the relevant data for a level.
818 // If level != -1, it loads the filename with extension changed to .min
819 // Otherwise it loads the appropriate level mine.
820 // returns 0=everything ok, 1=old version, -1=error
821 int load_game_data(CFILE *LoadFile)
822 {
823         int i,j;
824         int start_offset;
825
826         start_offset = cftell(LoadFile);
827
828         //===================== READ FILE INFO ========================
829
830         // Set default values
831         game_fileinfo.level                                     =       -1;
832         game_fileinfo.player_offset             =       -1;
833         game_fileinfo.player_sizeof             =       sizeof(player);
834         game_fileinfo.object_offset             =       -1;
835         game_fileinfo.object_howmany            =       0;
836         game_fileinfo.object_sizeof             =       sizeof(object);  
837         game_fileinfo.walls_offset                      =       -1;
838         game_fileinfo.walls_howmany             =       0;
839         game_fileinfo.walls_sizeof                      =       sizeof(wall);  
840         game_fileinfo.doors_offset                      =       -1;
841         game_fileinfo.doors_howmany             =       0;
842         game_fileinfo.doors_sizeof                      =       sizeof(active_door);  
843         game_fileinfo.triggers_offset           =       -1;
844         game_fileinfo.triggers_howmany  =       0;
845         game_fileinfo.triggers_sizeof           =       sizeof(trigger);  
846         game_fileinfo.control_offset            =       -1;
847         game_fileinfo.control_howmany           =       0;
848         game_fileinfo.control_sizeof            =       sizeof(control_center_triggers);
849         game_fileinfo.matcen_offset             =       -1;
850         game_fileinfo.matcen_howmany            =       0;
851         game_fileinfo.matcen_sizeof             =       sizeof(matcen_info);
852
853         game_fileinfo.dl_indices_offset         =       -1;
854         game_fileinfo.dl_indices_howmany                =       0;
855         game_fileinfo.dl_indices_sizeof         =       sizeof(dl_index);
856
857         game_fileinfo.delta_light_offset                =       -1;
858         game_fileinfo.delta_light_howmany               =       0;
859         game_fileinfo.delta_light_sizeof                =       sizeof(delta_light);
860
861         // Read in game_top_fileinfo to get size of saved fileinfo.
862
863         if (cfseek( LoadFile, start_offset, SEEK_SET )) 
864                 Error( "Error seeking in gamesave.c" ); 
865
866 //      if (cfread( &game_top_fileinfo, sizeof(game_top_fileinfo), 1, LoadFile) != 1)
867 //              Error( "Error reading game_top_fileinfo in gamesave.c" );
868
869         game_top_fileinfo.fileinfo_signature = cfile_read_short(LoadFile);
870         game_top_fileinfo.fileinfo_version = cfile_read_short(LoadFile);
871         game_top_fileinfo.fileinfo_sizeof = cfile_read_int(LoadFile);
872
873         // Check signature
874         if (game_top_fileinfo.fileinfo_signature != 0x6705)
875                 return -1;
876
877         // Check version number
878         if (game_top_fileinfo.fileinfo_version < GAME_COMPATIBLE_VERSION )
879                 return -1;
880
881         // Now, Read in the fileinfo
882         if (cfseek( LoadFile, start_offset, SEEK_SET )) 
883                 Error( "Error seeking to game_fileinfo in gamesave.c" );
884
885 //      if (cfread( &game_fileinfo, game_top_fileinfo.fileinfo_sizeof, 1, LoadFile )!=1)
886 //              Error( "Error reading game_fileinfo in gamesave.c" );
887
888         game_fileinfo.fileinfo_signature = cfile_read_short(LoadFile);
889         game_fileinfo.fileinfo_version = cfile_read_short(LoadFile);
890         game_fileinfo.fileinfo_sizeof = cfile_read_int(LoadFile);
891         for(i=0; i<15; i++)
892                 game_fileinfo.mine_filename[i] = cfile_read_byte(LoadFile);
893         game_fileinfo.level = cfile_read_int(LoadFile);
894         game_fileinfo.player_offset = cfile_read_int(LoadFile);                         // Player info
895         game_fileinfo.player_sizeof = cfile_read_int(LoadFile);
896         game_fileinfo.object_offset = cfile_read_int(LoadFile);                         // Object info
897         game_fileinfo.object_howmany = cfile_read_int(LoadFile);        
898         game_fileinfo.object_sizeof = cfile_read_int(LoadFile);  
899         game_fileinfo.walls_offset = cfile_read_int(LoadFile);
900         game_fileinfo.walls_howmany = cfile_read_int(LoadFile);
901         game_fileinfo.walls_sizeof = cfile_read_int(LoadFile);
902         game_fileinfo.doors_offset = cfile_read_int(LoadFile);
903         game_fileinfo.doors_howmany = cfile_read_int(LoadFile);
904         game_fileinfo.doors_sizeof = cfile_read_int(LoadFile);
905         game_fileinfo.triggers_offset = cfile_read_int(LoadFile);
906         game_fileinfo.triggers_howmany = cfile_read_int(LoadFile);
907         game_fileinfo.triggers_sizeof = cfile_read_int(LoadFile);
908         game_fileinfo.links_offset = cfile_read_int(LoadFile);
909         game_fileinfo.links_howmany = cfile_read_int(LoadFile);
910         game_fileinfo.links_sizeof = cfile_read_int(LoadFile);
911         game_fileinfo.control_offset = cfile_read_int(LoadFile);
912         game_fileinfo.control_howmany = cfile_read_int(LoadFile);
913         game_fileinfo.control_sizeof = cfile_read_int(LoadFile);
914         game_fileinfo.matcen_offset = cfile_read_int(LoadFile);
915         game_fileinfo.matcen_howmany = cfile_read_int(LoadFile);
916         game_fileinfo.matcen_sizeof = cfile_read_int(LoadFile);
917
918         if (game_top_fileinfo.fileinfo_version >= 29) {
919                 game_fileinfo.dl_indices_offset = cfile_read_int(LoadFile);
920                 game_fileinfo.dl_indices_howmany = cfile_read_int(LoadFile);
921                 game_fileinfo.dl_indices_sizeof = cfile_read_int(LoadFile);
922
923                 game_fileinfo.delta_light_offset = cfile_read_int(LoadFile);
924                 game_fileinfo.delta_light_howmany = cfile_read_int(LoadFile);
925                 game_fileinfo.delta_light_sizeof = cfile_read_int(LoadFile);
926         }
927
928         if (game_top_fileinfo.fileinfo_version >= 14) { //load mine filename
929                 //@@char *p=Current_level_name;
930                 //@@//must do read one char at a time, since no cfgets()
931                 //@@do *p = cfgetc(LoadFile); while (*p++!=0);
932
933                 cfgets(Current_level_name,sizeof(Current_level_name),LoadFile);
934
935                 if (Current_level_name[strlen(Current_level_name)-1] == '\n')
936                         Current_level_name[strlen(Current_level_name)-1] = 0;
937         }
938         else
939                 Current_level_name[0]=0;
940
941         if (game_top_fileinfo.fileinfo_version >= 19) { //load pof names
942 //              cfread(&N_save_pof_names,2,1,LoadFile);
943                 N_save_pof_names = cfile_read_short(LoadFile);
944                 cfread(Save_pof_names,N_save_pof_names,FILENAME_LEN,LoadFile);
945         }
946
947         //===================== READ PLAYER INFO ==========================
948         Object_next_signature = 0;
949
950         //===================== READ OBJECT INFO ==========================
951
952         Gamesave_num_org_robots = 0;
953         Gamesave_num_players = 0;
954
955         if (game_fileinfo.object_offset > -1) {
956                 if (cfseek( LoadFile, game_fileinfo.object_offset, SEEK_SET ))
957                         Error( "Error seeking to object_offset in gamesave.c" );
958
959                 for (i=0;i<game_fileinfo.object_howmany;i++) {
960
961                         read_object(&Objects[i], LoadFile, game_top_fileinfo.fileinfo_version);
962
963                         Objects[i].signature = Object_next_signature++;
964                         verify_object( &Objects[i] );
965                 }
966
967         }
968
969         //===================== READ WALL INFO ============================
970
971         if (game_fileinfo.walls_offset > -1)
972         {
973
974                 if (!cfseek( LoadFile, game_fileinfo.walls_offset,SEEK_SET ))   {
975                         for (i=0;i<game_fileinfo.walls_howmany;i++) {
976
977                                 if (game_top_fileinfo.fileinfo_version >= 20)
978                                         wall_read(&Walls[i], LoadFile); // v20 walls and up.
979                                 else if (game_top_fileinfo.fileinfo_version >= 17) {
980                                         v19_wall w;
981
982                                         v19_wall_read(&w, LoadFile);
983
984                                         Walls[i].segnum         = w.segnum;
985                                         Walls[i].sidenum                = w.sidenum;
986                                         Walls[i].linked_wall    = w.linked_wall;
987
988                                         Walls[i].type                   = w.type;
989                                         Walls[i].flags                  = w.flags;
990                                         Walls[i].hps                    = w.hps;
991                                         Walls[i].trigger                = w.trigger;
992                                         Walls[i].clip_num               = w.clip_num;
993                                         Walls[i].keys                   = w.keys;
994
995                                         Walls[i].state                  = WALL_DOOR_CLOSED;
996                                 } else {
997                                         v16_wall w;
998
999                                         v16_wall_read(&w, LoadFile);
1000
1001                                         Walls[i].segnum = Walls[i].sidenum = Walls[i].linked_wall = -1;
1002
1003                                         Walls[i].type           = w.type;
1004                                         Walls[i].flags          = w.flags;
1005                                         Walls[i].hps            = w.hps;
1006                                         Walls[i].trigger        = w.trigger;
1007                                         Walls[i].clip_num       = w.clip_num;
1008                                         Walls[i].keys           = w.keys;
1009                                 }
1010
1011                         }
1012                 }
1013         }
1014
1015         //===================== READ DOOR INFO ============================
1016
1017         if (game_fileinfo.doors_offset > -1)
1018         {
1019                 if (!cfseek( LoadFile, game_fileinfo.doors_offset,SEEK_SET ))   {
1020
1021                         for (i=0;i<game_fileinfo.doors_howmany;i++) {
1022
1023                                 if (game_top_fileinfo.fileinfo_version >= 20)
1024                                         active_door_read(&ActiveDoors[i], LoadFile); // version 20 and up
1025                                 else {
1026                                         v19_door d;
1027                                         int p;
1028
1029                                         v19_door_read(&d, LoadFile);
1030
1031                                         ActiveDoors[i].n_parts = d.n_parts;
1032
1033                                         for (p=0;p<d.n_parts;p++) {
1034                                                 int cseg,cside;
1035
1036                                                 cseg = Segments[d.seg[p]].children[d.side[p]];
1037                                                 cside = find_connect_side(&Segments[d.seg[p]],&Segments[cseg]);
1038
1039                                                 ActiveDoors[i].front_wallnum[p] = Segments[d.seg[p]].sides[d.side[p]].wall_num;
1040                                                 ActiveDoors[i].back_wallnum[p] = Segments[cseg].sides[cside].wall_num;
1041                                         }
1042                                 }
1043
1044                         }
1045                 }
1046         }
1047
1048         //==================== READ TRIGGER INFO ==========================
1049
1050
1051 // for MACINTOSH -- assume all triggers >= verion 31 triggers.
1052
1053         if (game_fileinfo.triggers_offset > -1)
1054         {
1055                 if (!cfseek( LoadFile, game_fileinfo.triggers_offset,SEEK_SET ))        {
1056                         for (i=0;i<game_fileinfo.triggers_howmany;i++)
1057                                 if (game_top_fileinfo.fileinfo_version < 31) {
1058                                         v30_trigger trig;
1059                                         int t,type;
1060
1061                                         type=0;
1062
1063                                         if (game_top_fileinfo.fileinfo_version < 30) {
1064                                                 v29_trigger trig29;
1065                                                 int t;
1066
1067                                                 v29_trigger_read(&trig29, LoadFile);
1068
1069                                                 trig.flags              = trig29.flags;
1070                                                 trig.num_links  = trig29.num_links;
1071                                                 trig.num_links  = trig29.num_links;
1072                                                 trig.value              = trig29.value;
1073                                                 trig.time               = trig29.time;
1074
1075                                                 for (t=0;t<trig.num_links;t++) {
1076                                                         trig.seg[t]  = trig29.seg[t];
1077                                                         trig.side[t] = trig29.side[t];
1078                                                 }
1079                                         }
1080                                         else
1081                                                 v30_trigger_read(&trig, LoadFile);
1082
1083                                         //Assert(trig.flags & TRIGGER_ON);
1084                                         trig.flags &= ~TRIGGER_ON;
1085
1086                                         if (trig.flags & TRIGGER_CONTROL_DOORS)
1087                                                 type = TT_OPEN_DOOR;
1088                                         else if (trig.flags & TRIGGER_SHIELD_DAMAGE)
1089                                                 Int3();
1090                                         else if (trig.flags & TRIGGER_ENERGY_DRAIN)
1091                                                 Int3();
1092                                         else if (trig.flags & TRIGGER_EXIT)
1093                                                 type = TT_EXIT;
1094                                         else if (trig.flags & TRIGGER_ONE_SHOT)
1095                                                 Int3();
1096                                         else if (trig.flags & TRIGGER_MATCEN)
1097                                                 type = TT_MATCEN;
1098                                         else if (trig.flags & TRIGGER_ILLUSION_OFF)
1099                                                 type = TT_ILLUSION_OFF;
1100                                         else if (trig.flags & TRIGGER_SECRET_EXIT)
1101                                                 type = TT_SECRET_EXIT;
1102                                         else if (trig.flags & TRIGGER_ILLUSION_ON)
1103                                                 type = TT_ILLUSION_ON;
1104                                         else if (trig.flags & TRIGGER_UNLOCK_DOORS)
1105                                                 type = TT_UNLOCK_DOOR;
1106                                         else if (trig.flags & TRIGGER_OPEN_WALL)
1107                                                 type = TT_OPEN_WALL;
1108                                         else if (trig.flags & TRIGGER_CLOSE_WALL)
1109                                                 type = TT_CLOSE_WALL;
1110                                         else if (trig.flags & TRIGGER_ILLUSORY_WALL)
1111                                                 type = TT_ILLUSORY_WALL;
1112                                         else
1113                                                 Int3();
1114
1115                                         Triggers[i].type        = type;
1116                                         Triggers[i].flags       = 0;
1117                                         Triggers[i].num_links   = trig.num_links;
1118                                         Triggers[i].num_links   = trig.num_links;
1119                                         Triggers[i].value       = trig.value;
1120                                         Triggers[i].time        = trig.time;
1121
1122                                         for (t=0;t<trig.num_links;t++) {
1123                                                 Triggers[i].seg[t] = trig.seg[t];
1124                                                 Triggers[i].side[t] = trig.side[t];
1125                                         }
1126                                 }
1127                                 else
1128                                         trigger_read(&Triggers[i], LoadFile);
1129                 }
1130         }
1131
1132         //================ READ CONTROL CENTER TRIGGER INFO ===============
1133
1134         if (game_fileinfo.control_offset > -1)
1135                 if (!cfseek( LoadFile, game_fileinfo.control_offset,SEEK_SET ))
1136                         for (i=0;i<game_fileinfo.control_howmany;i++)
1137                                 control_center_triggers_read(&ControlCenterTriggers, LoadFile);
1138
1139
1140         //================ READ MATERIALOGRIFIZATIONATORS INFO ===============
1141
1142         if (game_fileinfo.matcen_offset > -1)
1143         {       int     j;
1144
1145                 if (!cfseek( LoadFile, game_fileinfo.matcen_offset,SEEK_SET ))  {
1146                         // mprintf((0, "Reading %i materialization centers.\n", game_fileinfo.matcen_howmany));
1147                         for (i=0;i<game_fileinfo.matcen_howmany;i++) {
1148                                 if (game_top_fileinfo.fileinfo_version < 27) {
1149                                         old_matcen_info m;
1150
1151                                         old_matcen_info_read(&m, LoadFile);
1152
1153                                         RobotCenters[i].robot_flags[0] = m.robot_flags;
1154                                         RobotCenters[i].robot_flags[1] = 0;
1155                                         RobotCenters[i].hit_points = m.hit_points;
1156                                         RobotCenters[i].interval = m.interval;
1157                                         RobotCenters[i].segnum = m.segnum;
1158                                         RobotCenters[i].fuelcen_num = m.fuelcen_num;
1159                                 }
1160                                 else
1161                                         matcen_info_read(&RobotCenters[i], LoadFile);
1162
1163                                 //      Set links in RobotCenters to Station array
1164
1165                                 for (j=0; j<=Highest_segment_index; j++)
1166                                         if (Segment2s[j].special == SEGMENT_IS_ROBOTMAKER)
1167                                                 if (Segment2s[j].matcen_num == i)
1168                                                         RobotCenters[i].fuelcen_num = Segment2s[j].value;
1169
1170                                 // mprintf((0, "   %i: flags = %08x\n", i, RobotCenters[i].robot_flags));
1171                         }
1172                 }
1173         }
1174
1175
1176         //================ READ DL_INDICES INFO ===============
1177
1178         Num_static_lights = 0;
1179
1180         if (game_fileinfo.dl_indices_offset > -1) {
1181                 int     i;
1182
1183                 if (!cfseek( LoadFile, game_fileinfo.dl_indices_offset, SEEK_SET ))     {
1184                         Num_static_lights = game_fileinfo.dl_indices_howmany;
1185                         for (i=0; i<game_fileinfo.dl_indices_howmany; i++) {
1186                                 if (game_top_fileinfo.fileinfo_version < 29) {
1187                                         mprintf((0, "Warning: Old mine version.  Not reading Dl_indices info.\n"));
1188                                         Int3(); //shouldn't be here!!!
1189                                 } else
1190                                         dl_index_read(&Dl_indices[i], LoadFile);
1191                         }
1192                 }
1193         }
1194
1195         //      Indicate that no light has been subtracted from any vertices.
1196         clear_light_subtracted();
1197
1198         //================ READ DELTA LIGHT INFO ===============
1199
1200         if (game_fileinfo.delta_light_offset > -1) {
1201                 int     i;
1202
1203                 if (!cfseek( LoadFile, game_fileinfo.delta_light_offset, SEEK_SET ))    {
1204                         for (i=0; i<game_fileinfo.delta_light_howmany; i++) {
1205                                 if (game_top_fileinfo.fileinfo_version < 29) {
1206                                         mprintf((0, "Warning: Old mine version.  Not reading delta light info.\n"));
1207                                 } else
1208                                         delta_light_read(&Delta_lights[i], LoadFile);
1209                         }
1210                 }
1211         }
1212
1213         //========================= UPDATE VARIABLES ======================
1214
1215         reset_objects(game_fileinfo.object_howmany);
1216
1217         for (i=0; i<MAX_OBJECTS; i++) {
1218                 Objects[i].next = Objects[i].prev = -1;
1219                 if (Objects[i].type != OBJ_NONE) {
1220                         int objsegnum = Objects[i].segnum;
1221
1222                         if (objsegnum > Highest_segment_index)          //bogus object
1223                                 Objects[i].type = OBJ_NONE;
1224                         else {
1225                                 Objects[i].segnum = -1;                 //avoid Assert()
1226                                 obj_link(i,objsegnum);
1227                         }
1228                 }
1229         }
1230
1231         clear_transient_objects(1);             //1 means clear proximity bombs
1232
1233         // Make sure non-transparent doors are set correctly.
1234         for (i=0; i< Num_segments; i++)
1235                 for (j=0;j<MAX_SIDES_PER_SEGMENT;j++) {
1236                         side    *sidep = &Segments[i].sides[j];
1237                         if ((sidep->wall_num != -1) && (Walls[sidep->wall_num].clip_num != -1)) {
1238                                 //mprintf((0, "Checking Wall %d\n", Segments[i].sides[j].wall_num));
1239                                 if (WallAnims[Walls[sidep->wall_num].clip_num].flags & WCF_TMAP1) {
1240                                         //mprintf((0, "Fixing non-transparent door.\n"));
1241                                         sidep->tmap_num = WallAnims[Walls[sidep->wall_num].clip_num].frames[0];
1242                                         sidep->tmap_num2 = 0;
1243                                 }
1244                         }
1245                 }
1246
1247
1248         Num_walls = game_fileinfo.walls_howmany;
1249         reset_walls();
1250
1251         Num_open_doors = game_fileinfo.doors_howmany;
1252         Num_triggers = game_fileinfo.triggers_howmany;
1253
1254         //go through all walls, killing references to invalid triggers
1255         for (i=0;i<Num_walls;i++)
1256                 if (Walls[i].trigger >= Num_triggers) {
1257                         mprintf((0,"Removing reference to invalid trigger %d from wall %d\n",Walls[i].trigger,i));
1258                         Walls[i].trigger = -1;  //kill trigger
1259                 }
1260
1261         //go through all triggers, killing unused ones
1262         for (i=0;i<Num_triggers;) {
1263                 int w;
1264
1265                 //      Find which wall this trigger is connected to.
1266                 for (w=0; w<Num_walls; w++)
1267                         if (Walls[w].trigger == i)
1268                                 break;
1269
1270         #ifdef EDITOR
1271                 if (w == Num_walls) {
1272                         mprintf((0,"Removing unreferenced trigger %d\n",i));
1273                         remove_trigger_num(i);
1274                 }
1275                 else
1276         #endif
1277                         i++;
1278         }
1279
1280         //      MK, 10/17/95: Make walls point back at the triggers that control them.
1281         //      Go through all triggers, stuffing controlling_trigger field in Walls.
1282         {       int t;
1283
1284         for (i=0; i<Num_walls; i++)
1285                 Walls[i].controlling_trigger = -1;
1286
1287         for (t=0; t<Num_triggers; t++) {
1288                 int     l;
1289                 for (l=0; l<Triggers[t].num_links; l++) {
1290                         int     seg_num, side_num, wall_num;
1291
1292                         seg_num = Triggers[t].seg[l];
1293                         side_num = Triggers[t].side[l];
1294                         wall_num = Segments[seg_num].sides[side_num].wall_num;
1295
1296                         // -- if (Walls[wall_num].controlling_trigger != -1)
1297                         // --   Int3();
1298
1299                         //check to see that if a trigger requires a wall that it has one,
1300                         //and if it requires a matcen that it has one
1301
1302                         if (Triggers[t].type == TT_MATCEN) {
1303                                 if (Segment2s[seg_num].special != SEGMENT_IS_ROBOTMAKER)
1304                                         Int3();         //matcen trigger doesn't point to matcen
1305                         }
1306                         else if (Triggers[t].type != TT_LIGHT_OFF && Triggers[t].type != TT_LIGHT_ON) { //light triggers don't require walls
1307                                 if (wall_num == -1)
1308                                         Int3(); //      This is illegal.  This trigger requires a wall
1309                                 else
1310                                         Walls[wall_num].controlling_trigger = t;
1311                         }
1312                 }
1313         }
1314         }
1315
1316         Num_robot_centers = game_fileinfo.matcen_howmany;
1317
1318         //fix old wall structs
1319         if (game_top_fileinfo.fileinfo_version < 17) {
1320                 int segnum,sidenum,wallnum;
1321
1322                 for (segnum=0; segnum<=Highest_segment_index; segnum++)
1323                         for (sidenum=0;sidenum<6;sidenum++)
1324                                 if ((wallnum=Segments[segnum].sides[sidenum].wall_num) != -1) {
1325                                         Walls[wallnum].segnum = segnum;
1326                                         Walls[wallnum].sidenum = sidenum;
1327                                 }
1328         }
1329
1330         #ifndef NDEBUG
1331         {
1332                 int     sidenum;
1333                 for (sidenum=0; sidenum<6; sidenum++) {
1334                         int     wallnum = Segments[Highest_segment_index].sides[sidenum].wall_num;
1335                         if (wallnum != -1)
1336                                 if ((Walls[wallnum].segnum != Highest_segment_index) || (Walls[wallnum].sidenum != sidenum))
1337                                         Int3(); //      Error.  Bogus walls in this segment.
1338                                                                 // Consult Yuan or Mike.
1339                 }
1340         }
1341         #endif
1342
1343         //create_local_segment_data();
1344
1345         fix_object_segs();
1346
1347         #ifndef NDEBUG
1348         dump_mine_info();
1349         #endif
1350
1351         if (game_top_fileinfo.fileinfo_version < GAME_VERSION && !(game_top_fileinfo.fileinfo_version==25 && GAME_VERSION==26))
1352                 return 1;               //means old version
1353         else
1354                 return 0;
1355 }
1356
1357
1358 int check_segment_connections(void);
1359
1360 extern void     set_ambient_sound_flags(void);
1361
1362 // ----------------------------------------------------------------------------
1363
1364 #define LEVEL_FILE_VERSION              8
1365 //1 -> 2  add palette name
1366 //2 -> 3  add control center explosion time
1367 //3 -> 4  add reactor strength
1368 //4 -> 5  killed hostage text stuff
1369 //5 -> 6  added Secret_return_segment and Secret_return_orient
1370 //6 -> 7         added flickering lights
1371 //7 -> 8  made version 8 to be not compatible with D2 1.0 & 1.1
1372
1373 #ifndef RELEASE
1374 char *Level_being_loaded=NULL;
1375 #endif
1376
1377 #ifdef COMPACT_SEGS
1378 extern void ncache_flush();
1379 #endif
1380
1381 extern int HoardEquipped();
1382
1383 extern int Slide_segs_computed;
1384
1385 int no_old_level_file_error=0;
1386
1387 //loads a level (.LVL) file from disk
1388 //returns 0 if success, else error code
1389 int load_level(char * filename_passed)
1390 {
1391 #ifdef EDITOR
1392         int use_compiled_level=1;
1393 #endif
1394         CFILE * LoadFile;
1395         char filename[128];
1396         int sig, minedata_offset, gamedata_offset;
1397         int mine_err, game_err;
1398 #ifdef NETWORK
1399         int i;
1400 #endif
1401
1402         Slide_segs_computed = 0;
1403
1404 #ifdef NETWORK
1405    if (Game_mode & GM_NETWORK)
1406          {
1407           for (i=0;i<MAX_POWERUP_TYPES;i++)
1408                 {
1409                         MaxPowerupsAllowed[i]=0;
1410                         PowerupsInMine[i]=0;
1411                 }
1412          }
1413 #endif
1414
1415         #ifdef COMPACT_SEGS
1416         ncache_flush();
1417         #endif
1418
1419         #ifndef RELEASE
1420         Level_being_loaded = filename_passed;
1421         #endif
1422
1423         strcpy(filename,filename_passed);
1424         strupr(filename);
1425
1426         #ifdef EDITOR
1427                 //if we have the editor, try the LVL first, no matter what was passed.
1428                 //if we don't have an LVL, try RDL  
1429                 //if we don't have the editor, we just use what was passed
1430         
1431                 change_filename_extension(filename,filename_passed,".LVL");
1432                 use_compiled_level = 0;
1433         
1434                 if (!cfexist(filename)) {
1435                         change_filename_extension(filename,filename,".RL2");
1436                         use_compiled_level = 1;
1437                 }               
1438         #endif
1439
1440         LoadFile = cfopen( filename, "rb" );
1441
1442         if (!LoadFile)  {
1443                 #ifdef EDITOR
1444                         mprintf((0,"Can't open level file <%s>\n", filename));
1445                         return 1;
1446                 #else
1447                         Error("Can't open file <%s>\n",filename);
1448                 #endif
1449         }
1450
1451         strcpy( Gamesave_current_filename, filename );
1452
1453 //      #ifdef NEWDEMO
1454 //      if ( Newdemo_state == ND_STATE_RECORDING )
1455 //              newdemo_record_start_demo();
1456 //      #endif
1457
1458         sig                      = cfile_read_int(LoadFile);
1459         Gamesave_current_version = cfile_read_int(LoadFile);
1460         minedata_offset          = cfile_read_int(LoadFile);
1461         gamedata_offset          = cfile_read_int(LoadFile);
1462
1463         Assert(sig == MAKE_SIG('P','L','V','L'));
1464
1465         if (Gamesave_current_version >= 8) {    //read dummy data
1466 #ifdef NETWORK
1467                 if (HoardEquipped())
1468                 {
1469                         cfile_read_int(LoadFile);
1470                         cfile_read_short(LoadFile);
1471                         cfile_read_byte(LoadFile);
1472                 }
1473                 else
1474 #endif
1475                         // NOTE LINK TO ABOVE!
1476                         Error("This level requires the Vertigo Enhanced version of D2.");
1477
1478         }
1479
1480         if (Gamesave_current_version < 5)
1481                 cfile_read_int(LoadFile);       //was hostagetext_offset
1482
1483         if (Gamesave_current_version > 1) {
1484                 cfgets(Current_level_palette,sizeof(Current_level_palette),LoadFile);
1485                 if (Current_level_palette[strlen(Current_level_palette)-1] == '\n')
1486                         Current_level_palette[strlen(Current_level_palette)-1] = 0;
1487         }
1488         if (Gamesave_current_version <= 1 || Current_level_palette[0]==0) // descent 1 level
1489                 strcpy(Current_level_palette,"groupa.256");
1490
1491         if (Gamesave_current_version >= 3)
1492                 Base_control_center_explosion_time = cfile_read_int(LoadFile);
1493         else
1494                 Base_control_center_explosion_time = DEFAULT_CONTROL_CENTER_EXPLOSION_TIME;
1495
1496         if (Gamesave_current_version >= 4)
1497                 Reactor_strength = cfile_read_int(LoadFile);
1498         else
1499                 Reactor_strength = -1;  //use old defaults
1500
1501         if (Gamesave_current_version >= 7) {
1502                 int i;
1503
1504                 Num_flickering_lights = cfile_read_int(LoadFile);
1505                 Assert((Num_flickering_lights >= 0) && (Num_flickering_lights < MAX_FLICKERING_LIGHTS));
1506                 for (i = 0; i < Num_flickering_lights; i++)
1507                         flickering_light_read(&Flickering_lights[i], LoadFile);
1508         }
1509         else
1510                 Num_flickering_lights = 0;
1511
1512         if (Gamesave_current_version < 6) {
1513                 Secret_return_segment = 0;
1514                 Secret_return_orient.rvec.x = F1_0;
1515                 Secret_return_orient.rvec.y = 0;
1516                 Secret_return_orient.rvec.z = 0;
1517                 Secret_return_orient.fvec.x = 0;
1518                 Secret_return_orient.fvec.y = F1_0;
1519                 Secret_return_orient.fvec.z = 0;
1520                 Secret_return_orient.uvec.x = 0;
1521                 Secret_return_orient.uvec.y = 0;
1522                 Secret_return_orient.uvec.z = F1_0;
1523         } else {
1524                 Secret_return_segment = cfile_read_int(LoadFile);
1525                 Secret_return_orient.rvec.x = cfile_read_int(LoadFile);
1526                 Secret_return_orient.rvec.y = cfile_read_int(LoadFile);
1527                 Secret_return_orient.rvec.z = cfile_read_int(LoadFile);
1528                 Secret_return_orient.fvec.x = cfile_read_int(LoadFile);
1529                 Secret_return_orient.fvec.y = cfile_read_int(LoadFile);
1530                 Secret_return_orient.fvec.z = cfile_read_int(LoadFile);
1531                 Secret_return_orient.uvec.x = cfile_read_int(LoadFile);
1532                 Secret_return_orient.uvec.y = cfile_read_int(LoadFile);
1533                 Secret_return_orient.uvec.z = cfile_read_int(LoadFile);
1534         }
1535
1536         cfseek(LoadFile,minedata_offset,SEEK_SET);
1537         #ifdef EDITOR
1538         if (!use_compiled_level) {
1539                 mine_err = load_mine_data(LoadFile);
1540 #if 0 //dunno - 3rd party stuff?
1541                 // Compress all uv coordinates in mine, improves texmap precision. --MK, 02/19/96
1542                 compress_uv_coordinates_all();
1543 #endif
1544         } else
1545         #endif
1546                 //NOTE LINK TO ABOVE!!
1547                 mine_err = load_mine_data_compiled(LoadFile);
1548
1549         if (mine_err == -1) {   //error!!
1550                 cfclose(LoadFile);
1551                 return 2;
1552         }
1553
1554         cfseek(LoadFile,gamedata_offset,SEEK_SET);
1555         game_err = load_game_data(LoadFile);
1556
1557         if (game_err == -1) {   //error!!
1558                 cfclose(LoadFile);
1559                 return 3;
1560         }
1561
1562         //======================== CLOSE FILE =============================
1563
1564         cfclose( LoadFile );
1565
1566         set_ambient_sound_flags();
1567
1568         #ifdef EDITOR
1569         write_game_text_file(filename);
1570         if (Errors_in_mine) {
1571                 if (is_real_level(filename)) {
1572                         char  ErrorMessage[200];
1573
1574                         sprintf( ErrorMessage, "Warning: %i errors in %s!\n", Errors_in_mine, Level_being_loaded );
1575                         stop_time();
1576                         gr_palette_load(gr_palette);
1577                         nm_messagebox( NULL, 1, "Continue", ErrorMessage );
1578                         start_time();
1579                 } else
1580                         mprintf((1, "Error: %i errors in %s.\n", Errors_in_mine, Level_being_loaded));
1581         }
1582         #endif
1583
1584         #ifdef EDITOR
1585         //If an old version, ask the use if he wants to save as new version
1586         if (!no_old_level_file_error && (Function_mode == FMODE_EDITOR) && (((LEVEL_FILE_VERSION > 3) && Gamesave_current_version < LEVEL_FILE_VERSION) || mine_err == 1 || game_err == 1)) {
1587                 char  ErrorMessage[200];
1588
1589                 sprintf( ErrorMessage,
1590                                         "You just loaded a old version\n"
1591                                         "level.  Would you like to save\n"
1592                                         "it as a current version level?");
1593
1594                 stop_time();
1595                 gr_palette_load(gr_palette);
1596                 if (nm_messagebox( NULL, 2, "Don't Save", "Save", ErrorMessage )==1)
1597                         save_level(filename);
1598                 start_time();
1599         }
1600         #endif
1601
1602         #ifdef EDITOR
1603         if (Function_mode == FMODE_EDITOR)
1604                 editor_status("Loaded NEW mine %s, \"%s\"",filename,Current_level_name);
1605         #endif
1606
1607         #ifdef EDITOR
1608         if (check_segment_connections())
1609                 nm_messagebox( "ERROR", 1, "Ok", 
1610                                 "Connectivity errors detected in\n"
1611                                 "mine.  See monochrome screen for\n"
1612                                 "details, and contact Matt or Mike." );
1613         #endif
1614
1615         return 0;
1616 }
1617
1618 #ifdef EDITOR
1619 void get_level_name()
1620 {
1621 //NO_UI!!!      UI_WINDOW                               *NameWindow = NULL;
1622 //NO_UI!!!      UI_GADGET_INPUTBOX      *NameText;
1623 //NO_UI!!!      UI_GADGET_BUTTON                *QuitButton;
1624 //NO_UI!!!
1625 //NO_UI!!!      // Open a window with a quit button
1626 //NO_UI!!!      NameWindow = ui_open_window( 20, 20, 300, 110, WIN_DIALOG );
1627 //NO_UI!!!      QuitButton = ui_add_gadget_button( NameWindow, 150-24, 60, 48, 40, "Done", NULL );
1628 //NO_UI!!!
1629 //NO_UI!!!      ui_wprintf_at( NameWindow, 10, 12,"Please enter a name for this mine:" );
1630 //NO_UI!!!      NameText = ui_add_gadget_inputbox( NameWindow, 10, 30, LEVEL_NAME_LEN, LEVEL_NAME_LEN, Current_level_name );
1631 //NO_UI!!!
1632 //NO_UI!!!      NameWindow->keyboard_focus_gadget = (UI_GADGET *)NameText;
1633 //NO_UI!!!      QuitButton->hotkey = KEY_ENTER;
1634 //NO_UI!!!
1635 //NO_UI!!!      ui_gadget_calc_keys(NameWindow);
1636 //NO_UI!!!
1637 //NO_UI!!!      while (!QuitButton->pressed && last_keypress!=KEY_ENTER) {
1638 //NO_UI!!!              ui_mega_process();
1639 //NO_UI!!!              ui_window_do_gadgets(NameWindow);
1640 //NO_UI!!!      }
1641 //NO_UI!!!
1642 //NO_UI!!!      strcpy( Current_level_name, NameText->text );
1643 //NO_UI!!!
1644 //NO_UI!!!      if ( NameWindow!=NULL ) {
1645 //NO_UI!!!              ui_close_window( NameWindow );
1646 //NO_UI!!!              NameWindow = NULL;
1647 //NO_UI!!!      }
1648 //NO_UI!!!
1649
1650         newmenu_item m[2];
1651
1652         m[0].type = NM_TYPE_TEXT; m[0].text = "Please enter a name for this mine:";
1653         m[1].type = NM_TYPE_INPUT; m[1].text = Current_level_name; m[1].text_len = LEVEL_NAME_LEN;
1654
1655         newmenu_do( NULL, "Enter mine name", 2, m, NULL );
1656
1657 }
1658 #endif
1659
1660
1661 #ifdef EDITOR
1662
1663 int     Errors_in_mine;
1664
1665 // -----------------------------------------------------------------------------
1666 int compute_num_delta_light_records(void)
1667 {
1668         int     i;
1669         int     total = 0;
1670
1671         for (i=0; i<Num_static_lights; i++) {
1672                 total += Dl_indices[i].count;
1673         }
1674
1675         return total;
1676
1677 }
1678
1679 // -----------------------------------------------------------------------------
1680 // Save game
1681 int save_game_data(FILE * SaveFile)
1682 {
1683         int  player_offset, object_offset, walls_offset, doors_offset, triggers_offset, control_offset, matcen_offset; //, links_offset;
1684         int     dl_indices_offset, delta_light_offset;
1685         int start_offset,end_offset;
1686
1687         start_offset = ftell(SaveFile);
1688
1689         //===================== SAVE FILE INFO ========================
1690
1691         game_fileinfo.fileinfo_signature =      0x6705;
1692         game_fileinfo.fileinfo_version  =       GAME_VERSION;
1693         game_fileinfo.level                                     =  Current_level_num;
1694         game_fileinfo.fileinfo_sizeof           =       sizeof(game_fileinfo);
1695         game_fileinfo.player_offset             =       -1;
1696         game_fileinfo.player_sizeof             =       sizeof(player);
1697         game_fileinfo.object_offset             =       -1;
1698         game_fileinfo.object_howmany            =       Highest_object_index+1;
1699         game_fileinfo.object_sizeof             =       sizeof(object);
1700         game_fileinfo.walls_offset                      =       -1;
1701         game_fileinfo.walls_howmany             =       Num_walls;
1702         game_fileinfo.walls_sizeof                      =       sizeof(wall);
1703         game_fileinfo.doors_offset                      =       -1;
1704         game_fileinfo.doors_howmany             =       Num_open_doors;
1705         game_fileinfo.doors_sizeof                      =       sizeof(active_door);
1706         game_fileinfo.triggers_offset           =       -1;
1707         game_fileinfo.triggers_howmany  =       Num_triggers;
1708         game_fileinfo.triggers_sizeof           =       sizeof(trigger);
1709         game_fileinfo.control_offset            =       -1;
1710         game_fileinfo.control_howmany           =  1;
1711         game_fileinfo.control_sizeof            =  sizeof(control_center_triggers);
1712         game_fileinfo.matcen_offset             =       -1;
1713         game_fileinfo.matcen_howmany            =       Num_robot_centers;
1714         game_fileinfo.matcen_sizeof             =       sizeof(matcen_info);
1715
1716         game_fileinfo.dl_indices_offset         =       -1;
1717         game_fileinfo.dl_indices_howmany                =       Num_static_lights;
1718         game_fileinfo.dl_indices_sizeof         =       sizeof(dl_index);
1719
1720         game_fileinfo.delta_light_offset                =       -1;
1721         game_fileinfo.delta_light_howmany       =       compute_num_delta_light_records();
1722         game_fileinfo.delta_light_sizeof                =       sizeof(delta_light);
1723
1724         // Write the fileinfo
1725         fwrite( &game_fileinfo, sizeof(game_fileinfo), 1, SaveFile );
1726
1727         // Write the mine name
1728         fprintf(SaveFile,"%s\n",Current_level_name);
1729
1730         fwrite(&N_polygon_models,2,1,SaveFile);
1731         fwrite(Pof_names,N_polygon_models,sizeof(*Pof_names),SaveFile);
1732
1733         //==================== SAVE PLAYER INFO ===========================
1734
1735         player_offset = ftell(SaveFile);
1736         fwrite( &Players[Player_num], sizeof(player), 1, SaveFile );
1737
1738         //==================== SAVE OBJECT INFO ===========================
1739
1740         object_offset = ftell(SaveFile);
1741         //fwrite( &Objects, sizeof(object), game_fileinfo.object_howmany, SaveFile );
1742         {
1743                 int i;
1744                 for (i=0;i<game_fileinfo.object_howmany;i++)
1745                         write_object(&Objects[i],SaveFile);
1746         }
1747
1748         //==================== SAVE WALL INFO =============================
1749
1750         walls_offset = ftell(SaveFile);
1751         fwrite( Walls, sizeof(wall), game_fileinfo.walls_howmany, SaveFile );
1752
1753         //==================== SAVE DOOR INFO =============================
1754
1755         doors_offset = ftell(SaveFile);
1756         fwrite( ActiveDoors, sizeof(active_door), game_fileinfo.doors_howmany, SaveFile );
1757
1758         //==================== SAVE TRIGGER INFO =============================
1759
1760         triggers_offset = ftell(SaveFile);
1761         fwrite( Triggers, sizeof(trigger), game_fileinfo.triggers_howmany, SaveFile );
1762
1763         //================ SAVE CONTROL CENTER TRIGGER INFO ===============
1764
1765         control_offset = ftell(SaveFile);
1766         fwrite( &ControlCenterTriggers, sizeof(control_center_triggers), 1, SaveFile );
1767
1768
1769         //================ SAVE MATERIALIZATION CENTER TRIGGER INFO ===============
1770
1771         matcen_offset = ftell(SaveFile);
1772         // mprintf((0, "Writing %i materialization centers\n", game_fileinfo.matcen_howmany));
1773         // { int i;
1774         // for (i=0; i<game_fileinfo.matcen_howmany; i++)
1775         //      mprintf((0, "   %i: robot_flags = %08x\n", i, RobotCenters[i].robot_flags));
1776         // }
1777         fwrite( RobotCenters, sizeof(matcen_info), game_fileinfo.matcen_howmany, SaveFile );
1778
1779         //================ SAVE DELTA LIGHT INFO ===============
1780         dl_indices_offset = ftell(SaveFile);
1781         fwrite( Dl_indices, sizeof(dl_index), game_fileinfo.dl_indices_howmany, SaveFile );
1782
1783         delta_light_offset = ftell(SaveFile);
1784         fwrite( Delta_lights, sizeof(delta_light), game_fileinfo.delta_light_howmany, SaveFile );
1785
1786         //============= REWRITE FILE INFO, TO SAVE OFFSETS ===============
1787
1788         // Update the offset fields
1789         game_fileinfo.player_offset             =       player_offset;
1790         game_fileinfo.object_offset             =       object_offset;
1791         game_fileinfo.walls_offset                      =       walls_offset;
1792         game_fileinfo.doors_offset                      =       doors_offset;
1793         game_fileinfo.triggers_offset           =       triggers_offset;
1794         game_fileinfo.control_offset            =       control_offset;
1795         game_fileinfo.matcen_offset             =       matcen_offset;
1796         game_fileinfo.dl_indices_offset =       dl_indices_offset;
1797         game_fileinfo.delta_light_offset        =       delta_light_offset;
1798
1799
1800         end_offset = ftell(SaveFile);
1801
1802         // Write the fileinfo
1803         fseek(  SaveFile, start_offset, SEEK_SET );  // Move to TOF
1804         fwrite( &game_fileinfo, sizeof(game_fileinfo), 1, SaveFile );
1805
1806         // Go back to end of data
1807         fseek(SaveFile,end_offset,SEEK_SET);
1808
1809         return 0;
1810 }
1811
1812 int save_mine_data(FILE * SaveFile);
1813
1814 // -----------------------------------------------------------------------------
1815 // Save game
1816 int save_level_sub(char * filename, int compiled_version)
1817 {
1818         FILE * SaveFile;
1819         char temp_filename[128];
1820         int sig = MAKE_SIG('P','L','V','L'),version=LEVEL_FILE_VERSION;
1821         int minedata_offset=0,gamedata_offset=0;
1822
1823         if ( !compiled_version )        {
1824                 write_game_text_file(filename);
1825
1826                 if (Errors_in_mine) {
1827                         if (is_real_level(filename)) {
1828                                 char  ErrorMessage[200];
1829         
1830                                 sprintf( ErrorMessage, "Warning: %i errors in this mine!\n", Errors_in_mine );
1831                                 stop_time();
1832                                 gr_palette_load(gr_palette);
1833          
1834                                 if (nm_messagebox( NULL, 2, "Cancel Save", "Save", ErrorMessage )!=1)   {
1835                                         start_time();
1836                                         return 1;
1837                                 }
1838                                 start_time();
1839                         } else
1840                                 mprintf((1, "Error: %i errors in this mine.  See the 'txm' file.\n", Errors_in_mine));
1841                 }
1842                 change_filename_extension(temp_filename,filename,".LVL");
1843         }
1844         else
1845         {
1846                 // macs are using the regular hog/rl2 files for shareware
1847                 #if defined(SHAREWARE) && !defined(MACINTOSH)
1848                         change_filename_extension(temp_filename,filename,".SL2");
1849                 #else           
1850                         change_filename_extension(temp_filename,filename,".RL2");
1851                 #endif
1852         }
1853
1854         SaveFile = fopen( temp_filename, "wb" );
1855         if (!SaveFile)
1856         {
1857                 char ErrorMessage[256];
1858
1859                 char fname[20];
1860                 _splitpath( temp_filename, NULL, NULL, fname, NULL );
1861
1862                 sprintf( ErrorMessage, \
1863                         "ERROR: Cannot write to '%s'.\nYou probably need to check out a locked\nversion of the file. You should save\nthis under a different filename, and then\ncheck out a locked copy by typing\n\'co -l %s.lvl'\nat the DOS prompt.\n" 
1864                         , temp_filename, fname );
1865                 stop_time();
1866                 gr_palette_load(gr_palette);
1867                 nm_messagebox( NULL, 1, "Ok", ErrorMessage );
1868                 start_time();
1869                 return 1;
1870         }
1871
1872         if (Current_level_name[0] == 0)
1873                 strcpy(Current_level_name,"Untitled");
1874
1875         clear_transient_objects(1);             //1 means clear proximity bombs
1876
1877         compress_objects();             //after this, Highest_object_index == num objects
1878
1879         //make sure player is in a segment
1880         if (update_object_seg(&Objects[Players[0].objnum]) == 0) {
1881                 if (ConsoleObject->segnum > Highest_segment_index)
1882                         ConsoleObject->segnum = 0;
1883                 compute_segment_center(&ConsoleObject->pos,&(Segments[ConsoleObject->segnum]));
1884         }
1885  
1886         fix_object_segs();
1887
1888         //Write the header
1889
1890         gs_write_int(sig,SaveFile);
1891         gs_write_int(version,SaveFile);
1892
1893         //save placeholders
1894         gs_write_int(minedata_offset,SaveFile);
1895         gs_write_int(gamedata_offset,SaveFile);
1896
1897         //Now write the damn data
1898
1899         //write the version 8 data (to make file unreadable by 1.0 & 1.1)
1900         gs_write_int(GameTime,SaveFile);
1901         gs_write_short(FrameCount,SaveFile);
1902         gs_write_byte(FrameTime,SaveFile);
1903
1904         // Write the palette file name
1905         fprintf(SaveFile,"%s\n",Current_level_palette);
1906
1907         gs_write_int(Base_control_center_explosion_time,SaveFile);
1908         gs_write_int(Reactor_strength,SaveFile);
1909
1910         gs_write_int(Num_flickering_lights,SaveFile);
1911         fwrite(Flickering_lights,sizeof(*Flickering_lights),Num_flickering_lights,SaveFile);
1912         
1913         gs_write_int(Secret_return_segment, SaveFile);
1914         gs_write_int(Secret_return_orient.rvec.x, SaveFile);
1915         gs_write_int(Secret_return_orient.rvec.y, SaveFile);
1916         gs_write_int(Secret_return_orient.rvec.z, SaveFile);
1917         gs_write_int(Secret_return_orient.fvec.x, SaveFile);
1918         gs_write_int(Secret_return_orient.fvec.y, SaveFile);
1919         gs_write_int(Secret_return_orient.fvec.z, SaveFile);
1920         gs_write_int(Secret_return_orient.uvec.x, SaveFile);
1921         gs_write_int(Secret_return_orient.uvec.y, SaveFile);
1922         gs_write_int(Secret_return_orient.uvec.z, SaveFile);
1923
1924         minedata_offset = ftell(SaveFile);
1925         if ( !compiled_version )        
1926                 save_mine_data(SaveFile);
1927         else
1928                 save_mine_data_compiled(SaveFile);
1929         gamedata_offset = ftell(SaveFile);
1930         save_game_data(SaveFile);
1931
1932         fseek(SaveFile,sizeof(sig)+sizeof(version),SEEK_SET);
1933         gs_write_int(minedata_offset,SaveFile);
1934         gs_write_int(gamedata_offset,SaveFile);
1935
1936         //==================== CLOSE THE FILE =============================
1937         fclose(SaveFile);
1938
1939         if ( !compiled_version )        {
1940                 if (Function_mode == FMODE_EDITOR)
1941                         editor_status("Saved mine %s, \"%s\"",filename,Current_level_name);
1942         }
1943
1944         return 0;
1945
1946 }
1947
1948 #if 0 //dunno - 3rd party stuff?
1949 extern void compress_uv_coordinates_all(void);
1950 #endif
1951
1952 int save_level(char * filename)
1953 {
1954         int r1;
1955
1956         // Save normal version...
1957         r1 = save_level_sub(filename, 0);
1958
1959         // Save compiled version...
1960         save_level_sub(filename, 1);
1961
1962         return r1;
1963 }
1964
1965 #endif  //EDITOR
1966
1967 #ifndef NDEBUG
1968 void dump_mine_info(void)
1969 {
1970         int     segnum, sidenum;
1971         fix     min_u, max_u, min_v, max_v, min_l, max_l, max_sl;
1972
1973         min_u = F1_0*1000;
1974         min_v = min_u;
1975         min_l = min_u;
1976
1977         max_u = -min_u;
1978         max_v = max_u;
1979         max_l = max_u;
1980
1981         max_sl = 0;
1982
1983         for (segnum=0; segnum<=Highest_segment_index; segnum++) {
1984                 for (sidenum=0; sidenum<MAX_SIDES_PER_SEGMENT; sidenum++) {
1985                         int     vertnum;
1986                         side    *sidep = &Segments[segnum].sides[sidenum];
1987
1988                         if (Segment2s[segnum].static_light > max_sl)
1989                                 max_sl = Segment2s[segnum].static_light;
1990
1991                         for (vertnum=0; vertnum<4; vertnum++) {
1992                                 if (sidep->uvls[vertnum].u < min_u)
1993                                         min_u = sidep->uvls[vertnum].u;
1994                                 else if (sidep->uvls[vertnum].u > max_u)
1995                                         max_u = sidep->uvls[vertnum].u;
1996
1997                                 if (sidep->uvls[vertnum].v < min_v)
1998                                         min_v = sidep->uvls[vertnum].v;
1999                                 else if (sidep->uvls[vertnum].v > max_v)
2000                                         max_v = sidep->uvls[vertnum].v;
2001
2002                                 if (sidep->uvls[vertnum].l < min_l)
2003                                         min_l = sidep->uvls[vertnum].l;
2004                                 else if (sidep->uvls[vertnum].l > max_l)
2005                                         max_l = sidep->uvls[vertnum].l;
2006                         }
2007
2008                 }
2009         }
2010
2011 //      mprintf((0, "Smallest uvl = %7.3f %7.3f %7.3f.  Largest uvl = %7.3f %7.3f %7.3f\n", f2fl(min_u), f2fl(min_v), f2fl(min_l), f2fl(max_u), f2fl(max_v), f2fl(max_l)));
2012 //      mprintf((0, "Static light maximum = %7.3f\n", f2fl(max_sl)));
2013 //      mprintf((0, "Number of walls: %i\n", Num_walls));
2014
2015 }
2016
2017 #endif
2018
2019 #ifdef EDITOR
2020
2021 //read in every level in mission and save out compiled version 
2022 void save_all_compiled_levels(void)
2023 {
2024         do_load_save_levels(1);
2025 }
2026
2027 //read in every level in mission
2028 void load_all_levels(void)
2029 {
2030         do_load_save_levels(0);
2031 }
2032
2033
2034 void do_load_save_levels(int save)
2035 {
2036         int level_num;
2037
2038         if (! SafetyCheck())
2039                 return;
2040
2041         no_old_level_file_error=1;
2042
2043         for (level_num=1;level_num<=Last_level;level_num++) {
2044                 load_level(Level_names[level_num-1]);
2045                 load_palette(Current_level_palette,1,1);                //don't change screen
2046                 if (save)
2047                         save_level_sub(Level_names[level_num-1],1);
2048         }
2049
2050         for (level_num=-1;level_num>=Last_secret_level;level_num--) {
2051                 load_level(Secret_level_names[-level_num-1]);
2052                 load_palette(Current_level_palette,1,1);                //don't change screen
2053                 if (save)
2054                         save_level_sub(Secret_level_names[-level_num-1],1);
2055         }
2056
2057         no_old_level_file_error=0;
2058
2059 }
2060
2061 #endif