main/bm.c

   1 /* $Id: bm.c,v 1.41 2003-11-03 12:03:43 btb Exp $ */
   2 /*
   3 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
   4 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
   5 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
   6 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
   7 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
   8 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
   9 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
  10 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
  11 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
  12 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
  13 */
  14
  15 /*
  16  *
  17  * Bitmap and palette loading functions.
  18  *
  19  * Old Log:
  20  * Revision 1.1  1995/05/16  15:23:08  allender
  21  * Initial revision
  22  *
  23  * Revision 2.3  1995/03/14  16:22:04  john
  24  * Added cdrom alternate directory stuff.
  25  *
  26  * Revision 2.2  1995/03/07  16:51:48  john
  27  * Fixed robots not moving without edtiro bug.
  28  *
  29  * Revision 2.1  1995/03/06  15:23:06  john
  30  * New screen techniques.
  31  *
  32  * Revision 2.0  1995/02/27  11:27:05  john
  33  * New version 2.0, which has no anonymous unions, builds with
  34  * Watcom 10.0, and doesn't require parsing BITMAPS.TBL.
  35  *
  36  */
  37
  38 #ifdef HAVE_CONFIG_H
  39 #include <conf.h>
  40 #endif
  41
  42 #include <stdio.h>
  43 #include <stdlib.h>
  44 #include <string.h>
  45
  46 #include "pstypes.h"
  47 #include "inferno.h"
  48 #include "gr.h"
  49 #include "bm.h"
  50 #include "u_mem.h"
  51 #include "mono.h"
  52 #include "error.h"
  53 #include "object.h"
  54 #include "vclip.h"
  55 #include "effects.h"
  56 #include "polyobj.h"
  57 #include "wall.h"
  58 #include "textures.h"
  59 #include "game.h"
  60 #ifdef NETWORK
  61 #include "multi.h"
  62 #endif
  63 #include "iff.h"
  64 #include "cfile.h"
  65 #include "powerup.h"
  66 #include "sounds.h"
  67 #include "piggy.h"
  68 #include "aistruct.h"
  69 #include "robot.h"
  70 #include "weapon.h"
  71 #include "gauges.h"
  72 #include "player.h"
  73 #include "endlevel.h"
  74 #include "cntrlcen.h"
  75 #include "makesig.h"
  76 #include "interp.h"
  77
  78 ubyte Sounds[MAX_SOUNDS];
  79 ubyte AltSounds[MAX_SOUNDS];
  80
  81 #ifdef EDITOR
  82 int Num_total_object_types;
  83 byte    ObjType[MAX_OBJTYPE];
  84 byte    ObjId[MAX_OBJTYPE];
  85 fix     ObjStrength[MAX_OBJTYPE];
  86 #endif
  87
  88 //for each model, a model number for dying & dead variants, or -1 if none
  89 int Dying_modelnums[MAX_POLYGON_MODELS];
  90 int Dead_modelnums[MAX_POLYGON_MODELS];
  91
  92 //the polygon model number to use for the marker
  93 int     Marker_model_num = -1;
  94
  95 //right now there's only one player ship, but we can have another by
  96 //adding an array and setting the pointer to the active ship.
  97 player_ship only_player_ship,*Player_ship=&only_player_ship;
  98
  99 //----------------- Miscellaneous bitmap pointers ---------------
 100 int             Num_cockpits = 0;
 101 bitmap_index    cockpit_bitmap[N_COCKPIT_BITMAPS];
 102
 103 //---------------- Variables for wall textures ------------------
 104 int             Num_tmaps;
 105 tmap_info       TmapInfo[MAX_TEXTURES];
 106
 107 //---------------- Variables for object textures ----------------
 108
 109 int             First_multi_bitmap_num=-1;
 110
 111 int             N_ObjBitmaps;
 112 bitmap_index    ObjBitmaps[MAX_OBJ_BITMAPS];
 113 ushort          ObjBitmapPtrs[MAX_OBJ_BITMAPS];     // These point back into ObjBitmaps, since some are used twice.
 114
 115 #ifdef FAST_FILE_IO
 116 #define tmap_info_read_n(ti, n, fp) cfread(ti, sizeof(tmap_info), n, fp)
 117 #else
 118 /*
 119  * reads n tmap_info structs from a CFILE
 120  */
 121 int tmap_info_read_n(tmap_info *ti, int n, CFILE *fp)
 122 {
 123         int i;
 124
 125         for (i = 0; i < n; i++) {
 126                 ti[i].flags = cfile_read_byte(fp);
 127                 ti[i].pad[0] = cfile_read_byte(fp);
 128                 ti[i].pad[1] = cfile_read_byte(fp);
 129                 ti[i].pad[2] = cfile_read_byte(fp);
 130                 ti[i].lighting = cfile_read_fix(fp);
 131                 ti[i].damage = cfile_read_fix(fp);
 132                 ti[i].eclip_num = cfile_read_short(fp);
 133                 ti[i].destroyed = cfile_read_short(fp);
 134                 ti[i].slide_u = cfile_read_short(fp);
 135                 ti[i].slide_v = cfile_read_short(fp);
 136         }
 137         return i;
 138 }
 139 #endif
 140
 141 int tmap_info_read_n_d1(tmap_info *ti, int n, CFILE *fp)
 142 {
 143         int i;
 144
 145         for (i = 0; i < n; i++) {
 146                 cfseek(fp, 13, SEEK_CUR);// skip filename
 147                 ti[i].flags = cfile_read_byte(fp);
 148                 ti[i].lighting = cfile_read_fix(fp);
 149                 ti[i].damage = cfile_read_fix(fp);
 150                 ti[i].eclip_num = cfile_read_int(fp);
 151         }
 152         return i;
 153 }
 154
 155
 156 //-----------------------------------------------------------------
 157 // Read data from piggy.
 158 // This is called when the editor is OUT.
 159 // If editor is in, bm_init_use_table() is called.
 160 int bm_init()
 161 {
 162         init_polygon_models();
 163         if (! piggy_init())                             // This calls bm_read_all
 164                 Error("Cannot open pig and/or ham file");
 165
 166         piggy_read_sounds();
 167
 168         init_endlevel();                //this is in bm_init_use_tbl(), so I gues it goes here
 169
 170         return 0;
 171 }
 172
 173 void bm_read_all(CFILE * fp)
 174 {
 175         int i,t;
 176
 177         NumTextures = cfile_read_int(fp);
 178         bitmap_index_read_n(Textures, NumTextures, fp );
 179         tmap_info_read_n(TmapInfo, NumTextures, fp);
 180
 181         t = cfile_read_int(fp);
 182         cfread( Sounds, sizeof(ubyte), t, fp );
 183         cfread( AltSounds, sizeof(ubyte), t, fp );
 184
 185         Num_vclips = cfile_read_int(fp);
 186         vclip_read_n(Vclip, Num_vclips, fp);
 187
 188         Num_effects = cfile_read_int(fp);
 189         eclip_read_n(Effects, Num_effects, fp);
 190
 191         Num_wall_anims = cfile_read_int(fp);
 192         wclip_read_n(WallAnims, Num_wall_anims, fp);
 193
 194         N_robot_types = cfile_read_int(fp);
 195         robot_info_read_n(Robot_info, N_robot_types, fp);
 196
 197         N_robot_joints = cfile_read_int(fp);
 198         jointpos_read_n(Robot_joints, N_robot_joints, fp);
 199
 200         N_weapon_types = cfile_read_int(fp);
 201         weapon_info_read_n(Weapon_info, N_weapon_types, fp, Piggy_hamfile_version);
 202
 203         N_powerup_types = cfile_read_int(fp);
 204         powerup_type_info_read_n(Powerup_info, N_powerup_types, fp);
 205
 206         N_polygon_models = cfile_read_int(fp);
 207         polymodel_read_n(Polygon_models, N_polygon_models, fp);
 208
 209         for (i=0; i<N_polygon_models; i++ )
 210                 polygon_model_data_read(&Polygon_models[i], fp);
 211
 212         for (i = 0; i < N_polygon_models; i++)
 213                 Dying_modelnums[i] = cfile_read_int(fp);
 214         for (i = 0; i < N_polygon_models; i++)
 215                 Dead_modelnums[i] = cfile_read_int(fp);
 216
 217         t = cfile_read_int(fp);
 218         bitmap_index_read_n(Gauges, t, fp);
 219         bitmap_index_read_n(Gauges_hires, t, fp);
 220
 221         N_ObjBitmaps = cfile_read_int(fp);
 222         bitmap_index_read_n(ObjBitmaps, N_ObjBitmaps, fp);
 223         for (i = 0; i < N_ObjBitmaps; i++)
 224                 ObjBitmapPtrs[i] = cfile_read_short(fp);
 225
 226         player_ship_read(&only_player_ship, fp);
 227
 228         Num_cockpits = cfile_read_int(fp);
 229         bitmap_index_read_n(cockpit_bitmap, Num_cockpits, fp);
 230
 231 //@@    cfread( &Num_total_object_types, sizeof(int), 1, fp );
 232 //@@    cfread( ObjType, sizeof(byte), Num_total_object_types, fp );
 233 //@@    cfread( ObjId, sizeof(byte), Num_total_object_types, fp );
 234 //@@    cfread( ObjStrength, sizeof(fix), Num_total_object_types, fp );
 235
 236         First_multi_bitmap_num = cfile_read_int(fp);
 237
 238         Num_reactors = cfile_read_int(fp);
 239         reactor_read_n(Reactors, Num_reactors, fp);
 240
 241         Marker_model_num = cfile_read_int(fp);
 242
 243         //@@cfread( &N_controlcen_guns, sizeof(int), 1, fp );
 244         //@@cfread( controlcen_gun_points, sizeof(vms_vector), N_controlcen_guns, fp );
 245         //@@cfread( controlcen_gun_dirs, sizeof(vms_vector), N_controlcen_guns, fp );
 246
 247         if (Piggy_hamfile_version < 3) {
 248                 exit_modelnum = cfile_read_int(fp);
 249                 destroyed_exit_modelnum = cfile_read_int(fp);
 250         }
 251         else
 252                 exit_modelnum = destroyed_exit_modelnum = N_polygon_models;
 253 }
 254
 255 // the following is old code for reading descent 1 textures.
 256 #if 0
 257
 258 #define D1_MAX_TEXTURES 800
 259 #define D1_MAX_SOUNDS 250
 260 #define D1_MAX_VCLIPS 70
 261 #define D1_MAX_EFFECTS 60
 262 #define D1_MAX_WALL_ANIMS 30
 263 #define D1_MAX_ROBOT_TYPES 30
 264 #define D1_MAX_ROBOT_JOINTS 600
 265 #define D1_MAX_WEAPON_TYPES 30
 266 #define D1_MAX_POWERUP_TYPES 29
 267 #define D1_MAX_GAUGE_BMS 80
 268 #define D1_MAX_OBJ_BITMAPS 210
 269 #define D1_MAX_COCKPIT_BITMAPS 4
 270 #define D1_MAX_OBJTYPE 100
 271 #define D1_MAX_POLYGON_MODELS 85
 272
 273 #define D1_TMAP_INFO_SIZE 26
 274 #define D1_VCLIP_SIZE 66
 275 #define D1_ROBOT_INFO_SIZE 486
 276 #define D1_WEAPON_INFO_SIZE 115
 277
 278 #define D1_LAST_STATIC_TMAP_NUM 324
 279
 280 // store the Textures[] array as read from the descent 2 pig.
 281 short *d2_Textures_backup = NULL;
 282
 283 void undo_bm_read_all_d1() {
 284         if (d2_Textures_backup) {
 285                 int i;
 286                 for (i = 0; i < D1_LAST_STATIC_TMAP_NUM; i++)
 287                         Textures[i].index = d2_Textures_backup[i];
 288                 d_free(d2_Textures_backup);
 289                 d2_Textures_backup = NULL;
 290         }
 291 }
 292
 293 /*
 294  * used by piggy_d1_init to read in descent 1 pigfile
 295  */
 296 void bm_read_all_d1(CFILE * fp)
 297 {
 298         int i;
 299
 300         atexit(undo_bm_read_all_d1);
 301
 302         /*NumTextures = */ cfile_read_int(fp);
 303         //bitmap_index_read_n(Textures, D1_MAX_TEXTURES, fp );
 304         //for (i = 0; i < D1_MAX_TEXTURES; i++)
 305         //      Textures[i].index = cfile_read_short(fp) + 600;
 306         //cfseek(fp, D1_MAX_TEXTURES * sizeof(short), SEEK_CUR);
 307         MALLOC(d2_Textures_backup, short, D1_LAST_STATIC_TMAP_NUM);
 308         for (i = 0; i < D1_LAST_STATIC_TMAP_NUM; i++) {
 309                 d2_Textures_backup[i] = Textures[i].index;
 310                 Textures[i].index = cfile_read_short(fp) + 521;
 311         }
 312         cfseek(fp, (D1_MAX_TEXTURES - D1_LAST_STATIC_TMAP_NUM) * sizeof(short), SEEK_CUR);
 313
 314         //tmap_info_read_n_d1(TmapInfo, D1_MAX_TEXTURES, fp);
 315         cfseek(fp, D1_MAX_TEXTURES * D1_TMAP_INFO_SIZE, SEEK_CUR);
 316
 317         /*
 318         cfread( Sounds, sizeof(ubyte), D1_MAX_SOUNDS, fp );
 319         cfread( AltSounds, sizeof(ubyte), D1_MAX_SOUNDS, fp );
 320         */cfseek(fp, D1_MAX_SOUNDS * 2, SEEK_CUR);
 321
 322         /*Num_vclips = */ cfile_read_int(fp);
 323         //vclip_read_n(Vclip, D1_MAX_VCLIPS, fp);
 324         cfseek(fp, D1_MAX_VCLIPS * D1_VCLIP_SIZE, SEEK_CUR);
 325
 326         /*
 327         Num_effects = cfile_read_int(fp);
 328         eclip_read_n(Effects, D1_MAX_EFFECTS, fp);
 329
 330         Num_wall_anims = cfile_read_int(fp);
 331         wclip_read_n_d1(WallAnims, D1_MAX_WALL_ANIMS, fp);
 332         */
 333
 334         /*
 335         N_robot_types = cfile_read_int(fp);
 336         //robot_info_read_n(Robot_info, D1_MAX_ROBOT_TYPES, fp);
 337         cfseek(fp, D1_MAX_ROBOT_TYPES * D1_ROBOT_INFO_SIZE, SEEK_CUR);
 338
 339         N_robot_joints = cfile_read_int(fp);
 340         jointpos_read_n(Robot_joints, D1_MAX_ROBOT_JOINTS, fp);
 341
 342         N_weapon_types = cfile_read_int(fp);
 343         //weapon_info_read_n(Weapon_info, D1_MAX_WEAPON_TYPES, fp, Piggy_hamfile_version);
 344         cfseek(fp, D1_MAX_WEAPON_TYPES * D1_WEAPON_INFO_SIZE, SEEK_CUR);
 345
 346         N_powerup_types = cfile_read_int(fp);
 347         powerup_type_info_read_n(Powerup_info, D1_MAX_POWERUP_TYPES, fp);
 348         */
 349
 350         /* in the following code are bugs, solved by hack
 351         N_polygon_models = cfile_read_int(fp);
 352         polymodel_read_n(Polygon_models, N_polygon_models, fp);
 353         for (i=0; i<N_polygon_models; i++ )
 354                 polygon_model_data_read(&Polygon_models[i], fp);
 355         */cfseek(fp, 521490-160, SEEK_SET); // OK, I admit, this is a dirty hack
 356         //bitmap_index_read_n(Gauges, D1_MAX_GAUGE_BMS, fp);
 357         cfseek(fp, D1_MAX_GAUGE_BMS * sizeof(bitmap_index), SEEK_CUR);
 358
 359         /*
 360         for (i = 0; i < D1_MAX_POLYGON_MODELS; i++)
 361                 Dying_modelnums[i] = cfile_read_int(fp);
 362         for (i = 0; i < D1_MAX_POLYGON_MODELS; i++)
 363                 Dead_modelnums[i] = cfile_read_int(fp);
 364         */ cfseek(fp, D1_MAX_POLYGON_MODELS * 8, SEEK_CUR);
 365
 366         //bitmap_index_read_n(ObjBitmaps, D1_MAX_OBJ_BITMAPS, fp);
 367         cfseek(fp, D1_MAX_OBJ_BITMAPS * sizeof(bitmap_index), SEEK_CUR);
 368         for (i = 0; i < D1_MAX_OBJ_BITMAPS; i++)
 369                 cfseek(fp, 2, SEEK_CUR);//ObjBitmapPtrs[i] = cfile_read_short(fp);
 370
 371         //player_ship_read(&only_player_ship, fp);
 372         cfseek(fp, sizeof(player_ship), SEEK_CUR);
 373
 374         /*Num_cockpits = */ cfile_read_int(fp);
 375         //bitmap_index_read_n(cockpit_bitmap, D1_MAX_COCKPIT_BITMAPS, fp);
 376         cfseek(fp, D1_MAX_COCKPIT_BITMAPS * sizeof(bitmap_index), SEEK_CUR);
 377
 378         /*
 379         cfread( Sounds, sizeof(ubyte), D1_MAX_SOUNDS, fp );
 380         cfread( AltSounds, sizeof(ubyte), D1_MAX_SOUNDS, fp );
 381         */cfseek(fp, D1_MAX_SOUNDS * 2, SEEK_CUR);
 382
 383         /*Num_total_object_types = */ cfile_read_int( fp );
 384         /*
 385         cfread( ObjType, sizeof(byte), D1_MAX_OBJTYPE, fp );
 386         cfread( ObjId, sizeof(byte), D1_MAX_OBJTYPE, fp );
 387         for (i=0; i<D1_MAX_OBJTYPE; i++ )
 388                 ObjStrength[i] = cfile_read_int( fp );
 389         */ cfseek(fp, D1_MAX_OBJTYPE * 6, SEEK_CUR);
 390
 391         /*First_multi_bitmap_num =*/ cfile_read_int(fp);
 392         /*Reactors[0].n_guns = */ cfile_read_int( fp );
 393         /*for (i=0; i<4; i++)
 394                 cfile_read_vector(&(Reactors[0].gun_points[i]), fp);
 395         for (i=0; i<4; i++)
 396                 cfile_read_vector(&(Reactors[0].gun_dirs[i]), fp);
 397         */cfseek(fp, 8 * 12, SEEK_CUR);
 398
 399         /*exit_modelnum = */ cfile_read_int(fp);
 400         /*destroyed_exit_modelnum = */ cfile_read_int(fp);
 401 }
 402
 403 #endif // if 0, old code for reading descent 1 textures
 404
 405 //these values are the number of each item in the release of d2
 406 //extra items added after the release get written in an additional hamfile
 407 #define N_D2_ROBOT_TYPES                66
 408 #define N_D2_ROBOT_JOINTS               1145
 409 #define N_D2_POLYGON_MODELS     166
 410 #define N_D2_OBJBITMAPS                 422
 411 #define N_D2_OBJBITMAPPTRS              502
 412 #define N_D2_WEAPON_TYPES               62
 413
 414 extern int Num_bitmap_files;
 415 int extra_bitmap_num = 0;
 416
 417 void bm_free_extra_objbitmaps()
 418 {
 419         int i;
 420
 421         if (!extra_bitmap_num)
 422                 extra_bitmap_num = Num_bitmap_files;
 423
 424         for (i = Num_bitmap_files; i < extra_bitmap_num; i++)
 425         {
 426                 N_ObjBitmaps--;
 427                 d_free(GameBitmaps[i].bm_data);
 428         }
 429         extra_bitmap_num = Num_bitmap_files;
 430 }
 431
 432 void bm_free_extra_models()
 433 {
 434         while (N_polygon_models > N_D2_POLYGON_MODELS)
 435                 free_model(&Polygon_models[--N_polygon_models]);
 436         while (N_polygon_models > exit_modelnum)
 437                 free_model(&Polygon_models[--N_polygon_models]);
 438 }
 439
 440 //type==1 means 1.1, type==2 means 1.2 (with weapons)
 441 void bm_read_extra_robots(char *fname,int type)
 442 {
 443         CFILE *fp;
 444         int t,i;
 445         int version;
 446
 447         fp = cfopen(fname,"rb");
 448
 449         if (type == 2) {
 450                 int sig;
 451
 452                 sig = cfile_read_int(fp);
 453                 if (sig != MAKE_SIG('X','H','A','M'))
 454                         return;
 455                 version = cfile_read_int(fp);
 456         }
 457         else
 458                 version = 0;
 459
 460         bm_free_extra_models();
 461         bm_free_extra_objbitmaps();
 462
 463         //read extra weapons
 464
 465         t = cfile_read_int(fp);
 466         N_weapon_types = N_D2_WEAPON_TYPES+t;
 467         if (N_weapon_types >= MAX_WEAPON_TYPES)
 468                 Error("Too many weapons (%d) in <%s>.  Max is %d.",t,fname,MAX_WEAPON_TYPES-N_D2_WEAPON_TYPES);
 469         weapon_info_read_n(&Weapon_info[N_D2_WEAPON_TYPES], t, fp, 3);
 470
 471         //now read robot info
 472
 473         t = cfile_read_int(fp);
 474         N_robot_types = N_D2_ROBOT_TYPES+t;
 475         if (N_robot_types >= MAX_ROBOT_TYPES)
 476                 Error("Too many robots (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_TYPES-N_D2_ROBOT_TYPES);
 477         robot_info_read_n(&Robot_info[N_D2_ROBOT_TYPES], t, fp);
 478
 479         t = cfile_read_int(fp);
 480         N_robot_joints = N_D2_ROBOT_JOINTS+t;
 481         if (N_robot_joints >= MAX_ROBOT_JOINTS)
 482                 Error("Too many robot joints (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_JOINTS-N_D2_ROBOT_JOINTS);
 483         jointpos_read_n(&Robot_joints[N_D2_ROBOT_JOINTS], t, fp);
 484
 485         t = cfile_read_int(fp);
 486         N_polygon_models = N_D2_POLYGON_MODELS+t;
 487         if (N_polygon_models >= MAX_POLYGON_MODELS)
 488                 Error("Too many polygon models (%d) in <%s>.  Max is %d.",t,fname,MAX_POLYGON_MODELS-N_D2_POLYGON_MODELS);
 489         polymodel_read_n(&Polygon_models[N_D2_POLYGON_MODELS], t, fp);
 490
 491         for (i=N_D2_POLYGON_MODELS; i<N_polygon_models; i++ )
 492                 polygon_model_data_read(&Polygon_models[i], fp);
 493
 494         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
 495                 Dying_modelnums[i] = cfile_read_int(fp);
 496         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
 497                 Dead_modelnums[i] = cfile_read_int(fp);
 498
 499         t = cfile_read_int(fp);
 500         if (N_D2_OBJBITMAPS+t >= MAX_OBJ_BITMAPS)
 501                 Error("Too many object bitmaps (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPS);
 502         bitmap_index_read_n(&ObjBitmaps[N_D2_OBJBITMAPS], t, fp);
 503
 504         t = cfile_read_int(fp);
 505         if (N_D2_OBJBITMAPPTRS+t >= MAX_OBJ_BITMAPS)
 506                 Error("Too many object bitmap pointers (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPPTRS);
 507         for (i = N_D2_OBJBITMAPPTRS; i < (N_D2_OBJBITMAPPTRS + t); i++)
 508                 ObjBitmapPtrs[i] = cfile_read_short(fp);
 509
 510         cfclose(fp);
 511 }
 512
 513 extern void change_filename_extension( char *dest, char *src, char *new_ext );
 514
 515 int Robot_replacements_loaded = 0;
 516
 517 void load_robot_replacements(char *level_name)
 518 {
 519         CFILE *fp;
 520         int t,i,j;
 521         char ifile_name[FILENAME_LEN];
 522
 523         change_filename_extension(ifile_name, level_name, ".HXM" );
 524
 525         fp = cfopen(ifile_name,"rb");
 526
 527         if (!fp)                //no robot replacement file
 528                 return;
 529
 530         t = cfile_read_int(fp);                 //read id "HXM!"
 531         if (t!= 0x21584d48)
 532                 Error("ID of HXM! file incorrect");
 533
 534         t = cfile_read_int(fp);                 //read version
 535         if (t<1)
 536                 Error("HXM! version too old (%d)",t);
 537
 538         t = cfile_read_int(fp);                 //read number of robots
 539         for (j=0;j<t;j++) {
 540                 i = cfile_read_int(fp);         //read robot number
 541                 if (i<0 || i>=N_robot_types)
 542                         Error("Robots number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_types-1);
 543                 robot_info_read_n(&Robot_info[i], 1, fp);
 544         }
 545
 546         t = cfile_read_int(fp);                 //read number of joints
 547         for (j=0;j<t;j++) {
 548                 i = cfile_read_int(fp);         //read joint number
 549                 if (i<0 || i>=N_robot_joints)
 550                         Error("Robots joint (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_joints-1);
 551                 jointpos_read_n(&Robot_joints[i], 1, fp);
 552         }
 553
 554         t = cfile_read_int(fp);                 //read number of polygon models
 555         for (j=0;j<t;j++)
 556         {
 557                 i = cfile_read_int(fp);         //read model number
 558                 if (i<0 || i>=N_polygon_models)
 559                         Error("Polygon model (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_polygon_models-1);
 560                 polymodel_read(&Polygon_models[i], fp);
 561
 562                 free_model(&Polygon_models[i]);
 563                 polygon_model_data_read(&Polygon_models[i], fp);
 564
 565                 Dying_modelnums[i] = cfile_read_int(fp);
 566                 Dead_modelnums[i] = cfile_read_int(fp);
 567         }
 568
 569         t = cfile_read_int(fp);                 //read number of objbitmaps
 570         for (j=0;j<t;j++) {
 571                 i = cfile_read_int(fp);         //read objbitmap number
 572                 if (i<0 || i>=MAX_OBJ_BITMAPS)
 573                         Error("Object bitmap number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
 574                 bitmap_index_read(&ObjBitmaps[i], fp);
 575         }
 576
 577         t = cfile_read_int(fp);                 //read number of objbitmapptrs
 578         for (j=0;j<t;j++) {
 579                 i = cfile_read_int(fp);         //read objbitmapptr number
 580                 if (i<0 || i>=MAX_OBJ_BITMAPS)
 581                         Error("Object bitmap pointer (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
 582                 ObjBitmapPtrs[i] = cfile_read_short(fp);
 583         }
 584
 585         cfclose(fp);
 586 }
 587
 588
 589 /*
 590  * Routines for loading exit models
 591  *
 592  * Used by d1 levels (including some add-ons), and by d2 shareware.
 593  * Could potentially be used by d2 add-on levels, but only if they
 594  * don't use "extra" robots...
 595  */
 596
 597 // formerly exitmodel_bm_load_sub
 598 bitmap_index read_extra_bitmap_iff( char * filename )
 599 {
 600         bitmap_index bitmap_num;
 601         grs_bitmap * new = &GameBitmaps[extra_bitmap_num];
 602         ubyte newpal[256*3];
 603         int iff_error;          //reference parm to avoid warning message
 604
 605         bitmap_num.index = 0;
 606
 607         //MALLOC( new, grs_bitmap, 1 );
 608         iff_error = iff_read_bitmap(filename,new,BM_LINEAR,newpal);
 609         new->bm_handle=0;
 610         if (iff_error != IFF_NO_ERROR)          {
 611                 con_printf(CON_DEBUG, "Error loading exit model bitmap <%s> - IFF error: %s\n", filename, iff_errormsg(iff_error));
 612                 return bitmap_num;
 613         }
 614
 615         if ( iff_has_transparency )
 616                 gr_remap_bitmap_good( new, newpal, iff_transparent_color, 254 );
 617         else
 618                 gr_remap_bitmap_good( new, newpal, -1, 254 );
 619
 620         new->avg_color = 0;     //compute_average_pixel(new);
 621
 622         bitmap_num.index = extra_bitmap_num;
 623
 624         GameBitmaps[extra_bitmap_num++] = *new;
 625
 626         //d_free( new );
 627         return bitmap_num;
 628 }
 629
 630 // formerly load_exit_model_bitmap
 631 grs_bitmap *bm_load_extra_objbitmap(char *name)
 632 {
 633         Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
 634
 635         {
 636                 ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_iff(name);
 637
 638                 if (ObjBitmaps[N_ObjBitmaps].index == 0)
 639                 {
 640                         char *name2 = d_strdup(name);
 641                         *strrchr(name2, '.') = '\0';
 642                         ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_d1_pig(name2);
 643                         d_free(name2);
 644                 }
 645                 if (ObjBitmaps[N_ObjBitmaps].index == 0)
 646                         return NULL;
 647
 648                 if (GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_w!=64 || GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_h!=64)
 649                         Error("Bitmap <%s> is not 64x64",name);
 650                 ObjBitmapPtrs[N_ObjBitmaps] = N_ObjBitmaps;
 651                 N_ObjBitmaps++;
 652                 Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
 653                 return &GameBitmaps[ObjBitmaps[N_ObjBitmaps-1].index];
 654         }
 655 }
 656
 657 #ifdef OGL
 658 void ogl_cache_polymodel_textures(int model_num);
 659 #endif
 660
 661 int load_exit_models()
 662 {
 663         CFILE *exit_hamfile;
 664         int start_num;
 665
 666         bm_free_extra_models();
 667         bm_free_extra_objbitmaps();
 668
 669         start_num = N_ObjBitmaps;
 670         if (!bm_load_extra_objbitmap("steel1.bbm") ||
 671                 !bm_load_extra_objbitmap("rbot061.bbm") ||
 672                 !bm_load_extra_objbitmap("rbot062.bbm") ||
 673                 !bm_load_extra_objbitmap("steel1.bbm") ||
 674                 !bm_load_extra_objbitmap("rbot061.bbm") ||
 675                 !bm_load_extra_objbitmap("rbot063.bbm"))
 676         {
 677                 con_printf(CON_NORMAL, "Can't load exit models!\n");
 678                 return 0;
 679         }
 680
 681 #ifndef MACINTOSH
 682         exit_hamfile = cfopen("exit.ham","rb");
 683 #else
 684         exit_hamfile = cfopen(":Data:exit.ham","rb");
 685 #endif
 686         if (exit_hamfile) {
 687                 exit_modelnum = N_polygon_models++;
 688                 destroyed_exit_modelnum = N_polygon_models++;
 689                 polymodel_read(&Polygon_models[exit_modelnum], exit_hamfile);
 690                 polymodel_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
 691                 Polygon_models[exit_modelnum].first_texture = start_num;
 692                 Polygon_models[destroyed_exit_modelnum].first_texture = start_num+3;
 693
 694                 polygon_model_data_read(&Polygon_models[exit_modelnum], exit_hamfile);
 695
 696                 polygon_model_data_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
 697
 698                 cfclose(exit_hamfile);
 699
 700         } else if (cfexist("exit01.pof") && cfexist("exit01d.pof")) {
 701
 702                 exit_modelnum = load_polygon_model("exit01.pof", 3, start_num, NULL);
 703                 destroyed_exit_modelnum = load_polygon_model("exit01d.pof", 3, start_num + 3, NULL);
 704
 705 #ifdef OGL
 706                 ogl_cache_polymodel_textures(exit_modelnum);
 707                 ogl_cache_polymodel_textures(destroyed_exit_modelnum);
 708 #endif
 709         }
 710         else if (cfexist(D1_PIGFILE))
 711         {
 712                 int offset, offset2;
 713
 714                 exit_hamfile = cfopen(D1_PIGFILE, "rb");
 715                 switch (cfilelength(exit_hamfile)) { //total hack for loading models
 716                 case D1_PIGSIZE:
 717                         offset = 91848;     /* and 92582  */
 718                         offset2 = 383390;   /* and 394022 */
 719                         break;
 720                 default:
 721                 case D1_SHARE_BIG_PIGSIZE:
 722                 case D1_SHARE_10_PIGSIZE:
 723                 case D1_SHARE_PIGSIZE:
 724                 case D1_10_BIG_PIGSIZE:
 725                 case D1_10_PIGSIZE:
 726                         Int3();             /* exit models should be in .pofs */
 727                 case D1_OEM_PIGSIZE:
 728                 case D1_MAC_PIGSIZE:
 729                 case D1_MAC_SHARE_PIGSIZE:
 730                         con_printf(CON_NORMAL, "Can't load exit models!\n");
 731                         return 0;
 732                 }
 733                 cfseek(exit_hamfile, offset, SEEK_SET);
 734                 exit_modelnum = N_polygon_models++;
 735                 destroyed_exit_modelnum = N_polygon_models++;
 736                 polymodel_read(&Polygon_models[exit_modelnum], exit_hamfile);
 737                 polymodel_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
 738                 Polygon_models[exit_modelnum].first_texture = start_num;
 739                 Polygon_models[destroyed_exit_modelnum].first_texture = start_num+3;
 740
 741                 cfseek(exit_hamfile, offset2, SEEK_SET);
 742                 polygon_model_data_read(&Polygon_models[exit_modelnum], exit_hamfile);
 743                 polygon_model_data_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
 744
 745                 cfclose(exit_hamfile);
 746         } else {
 747                 con_printf(CON_NORMAL, "Can't load exit models!\n");
 748                 return 0;
 749         }
 750
 751         atexit(bm_free_extra_objbitmaps);
 752
 753         return 1;
 754 }