fixes d1 still textures which are animated in d2, refactorizes d1 texture reading
[btb/d2x.git] / main / bm.c
1 /* $Id: bm.c,v 1.36 2003-10-10 21:04: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_SHAREWARE_10_PIGSIZE:
722                 case D1_SHAREWARE_PIGSIZE:
723                         Int3();             /* exit models should be in .pofs */
724                 case D1_OEM_PIGSIZE:
725                 case D1_MAC_PIGSIZE:
726                 case D1_MAC_SHARE_PIGSIZE:
727                         con_printf(CON_NORMAL, "Can't load exit models!\n");
728                         return 0;
729                 }
730                 cfseek(exit_hamfile, offset, SEEK_SET);
731                 exit_modelnum = N_polygon_models++;
732                 destroyed_exit_modelnum = N_polygon_models++;
733                 polymodel_read(&Polygon_models[exit_modelnum], exit_hamfile);
734                 polymodel_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
735                 Polygon_models[exit_modelnum].first_texture = start_num;
736                 Polygon_models[destroyed_exit_modelnum].first_texture = start_num+3;
737
738                 cfseek(exit_hamfile, offset2, SEEK_SET);
739                 polygon_model_data_read(&Polygon_models[exit_modelnum], exit_hamfile);
740                 polygon_model_data_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
741
742                 cfclose(exit_hamfile);
743         } else {
744                 con_printf(CON_NORMAL, "Can't load exit models!\n");
745                 return 0;
746         }
747
748         atexit(bm_free_extra_objbitmaps);
749
750         return 1;
751 }