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