Portability - OS X support
[btb/d2x.git] / main / bm.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  * Bitmap and palette loading functions.
18  *
19  *
20  */
21
22 #ifdef HAVE_CONFIG_H
23 #include <conf.h>
24 #endif
25
26 #include <stdio.h>
27 #include <stdlib.h>
28
29 #include "pstypes.h"
30 #include "inferno.h"
31 #include "gr.h"
32 #include "bm.h"
33 #include "u_mem.h"
34 #include "mono.h"
35 #include "error.h"
36 #include "object.h"
37 #include "vclip.h"
38 #include "effects.h"
39 #include "polyobj.h"
40 #include "wall.h"
41 #include "textures.h"
42 #include "game.h"
43 #ifdef NETWORK
44 #include "multi.h"
45 #endif
46 #include "iff.h"
47 #include "cfile.h"
48 #include "powerup.h"
49 #include "sounds.h"
50 #include "piggy.h"
51 #include "aistruct.h"
52 #include "robot.h"
53 #include "weapon.h"
54 #include "gauges.h"
55 #include "player.h"
56 #include "endlevel.h"
57 #include "cntrlcen.h"
58 #include "byteswap.h"
59 #include "makesig.h"
60
61 ubyte Sounds[MAX_SOUNDS];
62 ubyte AltSounds[MAX_SOUNDS];
63
64 #ifdef EDITOR
65 int Num_total_object_types;
66 byte    ObjType[MAX_OBJTYPE];
67 byte    ObjId[MAX_OBJTYPE];
68 fix     ObjStrength[MAX_OBJTYPE];
69 #endif
70
71 //for each model, a model number for dying & dead variants, or -1 if none
72 int Dying_modelnums[MAX_POLYGON_MODELS];
73 int Dead_modelnums[MAX_POLYGON_MODELS];
74
75 //the polygon model number to use for the marker
76 int     Marker_model_num = -1;
77
78 //right now there's only one player ship, but we can have another by 
79 //adding an array and setting the pointer to the active ship.
80 player_ship only_player_ship,*Player_ship=&only_player_ship;
81
82 //----------------- Miscellaneous bitmap pointers ---------------
83 int                                     Num_cockpits = 0;
84 bitmap_index            cockpit_bitmap[N_COCKPIT_BITMAPS];
85
86 //---------------- Variables for wall textures ------------------
87 int                                     Num_tmaps;
88 tmap_info                       TmapInfo[MAX_TEXTURES];
89
90 //---------------- Variables for object textures ----------------
91
92 int                                     First_multi_bitmap_num=-1;
93
94 bitmap_index            ObjBitmaps[MAX_OBJ_BITMAPS];
95 ushort                          ObjBitmapPtrs[MAX_OBJ_BITMAPS];         // These point back into ObjBitmaps, since some are used twice.
96
97 /*
98  * reads a tmap_info structure from a CFILE
99  */
100 void tmap_info_read(tmap_info *ti, CFILE *fp)
101 {
102         ti->flags = cfile_read_byte(fp);
103         ti->pad[0] = cfile_read_byte(fp);
104         ti->pad[1] = cfile_read_byte(fp);
105         ti->pad[2] = cfile_read_byte(fp);
106         ti->lighting = cfile_read_fix(fp);
107         ti->damage = cfile_read_fix(fp);
108         ti->eclip_num = cfile_read_short(fp);
109         ti->destroyed = cfile_read_short(fp);
110         ti->slide_u = cfile_read_short(fp);
111         ti->slide_v = cfile_read_short(fp);
112 }
113
114 #ifdef MACINTOSH
115
116 #ifdef SHAREWARE
117 extern int exit_modelnum,destroyed_exit_modelnum, Num_bitmap_files;
118 int N_ObjBitmaps, extra_bitmap_num;
119
120 bitmap_index exitmodel_bm_load_sub( char * filename )
121 {
122         bitmap_index bitmap_num;
123         grs_bitmap * new;
124         ubyte newpal[256*3];
125         int i, iff_error;               //reference parm to avoid warning message
126
127         bitmap_num.index = 0;
128
129         MALLOC( new, grs_bitmap, 1 );
130         iff_error = iff_read_bitmap(filename,new,BM_LINEAR,newpal);
131         new->bm_handle=0;
132         if (iff_error != IFF_NO_ERROR)          {
133                 Error("Error loading exit model bitmap <%s> - IFF error: %s",filename,iff_errormsg(iff_error));
134         }
135         
136         if ( iff_has_transparency )
137                 gr_remap_bitmap_good( new, newpal, iff_transparent_color, 254 );
138         else
139                 gr_remap_bitmap_good( new, newpal, -1, 254 );
140
141         new->avg_color = 0;     //compute_average_pixel(new);
142
143         bitmap_num.index = extra_bitmap_num;
144
145         GameBitmaps[extra_bitmap_num++] = *new;
146         
147         d_free( new );
148         return bitmap_num;
149 }
150
151 grs_bitmap *load_exit_model_bitmap(char *name)
152 {
153         Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
154
155         {
156                 ObjBitmaps[N_ObjBitmaps] = exitmodel_bm_load_sub(name);
157                 if (GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_w!=64 || GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_h!=64)
158                         Error("Bitmap <%s> is not 64x64",name);
159                 ObjBitmapPtrs[N_ObjBitmaps] = N_ObjBitmaps;
160                 N_ObjBitmaps++;
161                 Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
162                 return &GameBitmaps[ObjBitmaps[N_ObjBitmaps-1].index];
163         }
164 }
165
166 void load_exit_models()
167 {
168         CFILE *exit_hamfile;
169         int i, j;
170         ubyte pal[768];
171         int start_num;
172
173         start_num = N_ObjBitmaps;
174         extra_bitmap_num = Num_bitmap_files;
175         load_exit_model_bitmap("steel1.bbm");
176         load_exit_model_bitmap("rbot061.bbm");
177         load_exit_model_bitmap("rbot062.bbm");
178
179         load_exit_model_bitmap("steel1.bbm");
180         load_exit_model_bitmap("rbot061.bbm");
181         load_exit_model_bitmap("rbot063.bbm");
182
183         exit_hamfile = cfopen(":Data:exit.ham","rb");
184
185         exit_modelnum = N_polygon_models++;
186         destroyed_exit_modelnum = N_polygon_models++;
187
188         polymodel_read(&Polygon_models[exit_modelnum], exit_hamfile);
189         polymodel_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
190 #ifdef MACINTOSH //not sure what these are for
191         Polygon_models[exit_modelnum].first_texture = start_num;
192         Polygon_models[destroyed_exit_modelnum].first_texture = start_num+3;
193 #endif
194
195         Polygon_models[exit_modelnum].model_data = d_malloc(Polygon_models[exit_modelnum].model_data_size);
196         Assert( Polygon_models[exit_modelnum].model_data != NULL );
197         cfread( Polygon_models[exit_modelnum].model_data, sizeof(ubyte), Polygon_models[exit_modelnum].model_data_size, exit_hamfile );
198 #ifdef WORDS_BIGENDIAN
199         swap_polygon_model_data(Polygon_models[exit_modelnum].model_data);
200 #endif
201         g3_init_polygon_model(Polygon_models[exit_modelnum].model_data);
202
203         Polygon_models[destroyed_exit_modelnum].model_data = d_malloc(Polygon_models[destroyed_exit_modelnum].model_data_size);
204         Assert( Polygon_models[destroyed_exit_modelnum].model_data != NULL );
205         cfread( Polygon_models[destroyed_exit_modelnum].model_data, sizeof(ubyte), Polygon_models[destroyed_exit_modelnum].model_data_size, exit_hamfile );
206 #ifdef WORDS_BIGENDIAN
207         swap_polygon_model_data(Polygon_models[destroyed_exit_modelnum].model_data);
208 #endif
209         g3_init_polygon_model(Polygon_models[destroyed_exit_modelnum].model_data);
210
211         cfclose(exit_hamfile);
212
213 }
214 #endif          // SHAREWARE
215
216 #endif          // MACINTOSH
217
218 //-----------------------------------------------------------------
219 // Read data from piggy.
220 // This is called when the editor is OUT.  
221 // If editor is in, bm_init_use_table() is called.
222 int bm_init()
223 {
224         init_polygon_models();
225         if (! piggy_init())                             // This calls bm_read_all
226                 Error("Cannot open pig and/or ham file");
227
228         piggy_read_sounds();
229
230         #ifdef SHAREWARE
231         init_endlevel();                //this is in bm_init_use_tbl(), so I gues it goes here
232         #endif
233
234         return 0;
235 }
236
237 void bm_read_all(CFILE * fp)
238 {
239         int i,t;
240
241         NumTextures = cfile_read_int(fp);
242         for (i = 0; i < NumTextures; i++)
243                 bitmap_index_read(&Textures[i], fp);
244         for (i = 0; i < NumTextures; i++)
245                 tmap_info_read(&TmapInfo[i], fp);
246
247         t = cfile_read_int(fp); 
248         cfread( Sounds, sizeof(ubyte), t, fp );
249         cfread( AltSounds, sizeof(ubyte), t, fp );
250
251         Num_vclips = cfile_read_int(fp);
252         for (i = 0; i < Num_vclips; i++)
253                 vclip_read(&Vclip[i], fp);
254
255         Num_effects = cfile_read_int(fp);
256         for (i = 0; i < Num_effects; i++)
257                 eclip_read(&Effects[i], fp);
258
259         Num_wall_anims = cfile_read_int(fp);
260         for (i = 0; i < Num_wall_anims; i++)
261                 wclip_read(&WallAnims[i], fp);
262
263         N_robot_types = cfile_read_int(fp);
264         for (i = 0; i < N_robot_types; i++)
265                 robot_info_read(&Robot_info[i], fp);
266
267         N_robot_joints = cfile_read_int(fp);
268         for (i = 0; i < N_robot_joints; i++)
269                 jointpos_read(&Robot_joints[i], fp);
270
271         N_weapon_types = cfile_read_int(fp);
272         for (i = 0; i < N_weapon_types; i++)
273                 weapon_info_read(&Weapon_info[i], fp);
274
275         N_powerup_types = cfile_read_int(fp);
276         for (i = 0; i < N_powerup_types; i++)
277                 powerup_type_info_read(&Powerup_info[i], fp);
278         
279         N_polygon_models = cfile_read_int(fp);
280         for (i = 0; i < N_polygon_models; i++)
281                 polymodel_read(&Polygon_models[i], fp);
282
283         for (i=0; i<N_polygon_models; i++ )     {
284                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
285                 Assert( Polygon_models[i].model_data != NULL );
286                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
287 #ifdef WORDS_BIGENDIAN
288                 swap_polygon_model_data(Polygon_models[i].model_data);
289 #endif
290                 g3_init_polygon_model(Polygon_models[i].model_data);
291         }
292
293         for (i = 0; i < N_polygon_models; i++)
294                 Dying_modelnums[i] = cfile_read_int(fp);
295         for (i = 0; i < N_polygon_models; i++)
296                 Dead_modelnums[i] = cfile_read_int(fp);
297
298         t = cfile_read_int(fp);
299         for (i = 0; i < t; i++)
300                 bitmap_index_read(&Gauges[i], fp);
301         for (i = 0; i < t; i++)
302                 bitmap_index_read(&Gauges_hires[i], fp);
303
304         t = cfile_read_int(fp);
305         for (i = 0; i < t; i++)
306                 bitmap_index_read(&ObjBitmaps[i], fp);
307         for (i = 0; i < t; i++)
308                 ObjBitmapPtrs[i] = cfile_read_short(fp);
309
310 #ifdef SHAREWARE
311         N_ObjBitmaps = t;
312 #endif
313
314         player_ship_read(&only_player_ship, fp);
315
316         Num_cockpits = cfile_read_int(fp);
317         for (i = 0; i < Num_cockpits; i++)
318                 bitmap_index_read(&cockpit_bitmap[i], fp);
319
320 //@@    cfread( &Num_total_object_types, sizeof(int), 1, fp );
321 //@@    cfread( ObjType, sizeof(byte), Num_total_object_types, fp );
322 //@@    cfread( ObjId, sizeof(byte), Num_total_object_types, fp );
323 //@@    cfread( ObjStrength, sizeof(fix), Num_total_object_types, fp );
324
325         First_multi_bitmap_num = cfile_read_int(fp);
326
327         Num_reactors = cfile_read_int(fp);
328         for (i = 0; i < Num_reactors; i++)
329                 reactor_read(&Reactors[i], fp);
330
331         Marker_model_num = cfile_read_int(fp);
332
333         //@@cfread( &N_controlcen_guns, sizeof(int), 1, fp );
334         //@@cfread( controlcen_gun_points, sizeof(vms_vector), N_controlcen_guns, fp );
335         //@@cfread( controlcen_gun_dirs, sizeof(vms_vector), N_controlcen_guns, fp );
336
337         #ifdef SHAREWARE
338         exit_modelnum = cfile_read_int(fp);
339         destroyed_exit_modelnum = cfile_read_int(fp);
340         #endif
341
342 }
343
344
345 //these values are the number of each item in the release of d2
346 //extra items added after the release get written in an additional hamfile
347 #define N_D2_ROBOT_TYPES                66
348 #define N_D2_ROBOT_JOINTS               1145
349 #define N_D2_POLYGON_MODELS             166
350 #define N_D2_OBJBITMAPS                 422
351 #define N_D2_OBJBITMAPPTRS              502
352 #define N_D2_WEAPON_TYPES               62
353
354 //type==1 means 1.1, type==2 means 1.2 (with weaons)
355 void bm_read_extra_robots(char *fname,int type)
356 {
357         CFILE *fp;
358         int t,i;
359         int version;
360         
361         #ifdef MACINTOSH
362                 ulong varSave = 0;
363         #endif
364
365         fp = cfopen(fname,"rb");
366
367         if (type == 2) {
368                 int sig;
369
370                 sig = cfile_read_int(fp);
371                 if (sig != MAKE_SIG('X','H','A','M'))
372                         return;
373                 version = cfile_read_int(fp);
374         }
375         else
376                 version = 0;
377
378         //read extra weapons
379
380         t = cfile_read_int(fp);
381         N_weapon_types = N_D2_WEAPON_TYPES+t;
382         if (N_weapon_types >= MAX_WEAPON_TYPES)
383                 Error("Too many weapons (%d) in <%s>.  Max is %d.",t,fname,MAX_WEAPON_TYPES-N_D2_WEAPON_TYPES);
384         for (i = N_D2_WEAPON_TYPES; i < t + N_D2_WEAPON_TYPES; i++)
385                 weapon_info_read(&Weapon_info[i], fp);
386
387         //now read robot info
388
389         t = cfile_read_int(fp);
390         N_robot_types = N_D2_ROBOT_TYPES+t;
391         if (N_robot_types >= MAX_ROBOT_TYPES)
392                 Error("Too many robots (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_TYPES-N_D2_ROBOT_TYPES);
393         for (i = N_D2_ROBOT_TYPES; i < t + N_D2_ROBOT_TYPES; i++)
394                 robot_info_read(&Robot_info[i], fp);
395         
396         t = cfile_read_int(fp);
397         N_robot_joints = N_D2_ROBOT_JOINTS+t;
398         if (N_robot_joints >= MAX_ROBOT_JOINTS)
399                 Error("Too many robot joints (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_JOINTS-N_D2_ROBOT_JOINTS);
400         for (i = N_D2_ROBOT_JOINTS; i < t + N_D2_ROBOT_JOINTS; i++)
401                 jointpos_read(&Robot_joints[i], fp);
402         
403         t = cfile_read_int(fp);
404         N_polygon_models = N_D2_POLYGON_MODELS+t;
405         if (N_polygon_models >= MAX_POLYGON_MODELS)
406                 Error("Too many polygon models (%d) in <%s>.  Max is %d.",t,fname,MAX_POLYGON_MODELS-N_D2_POLYGON_MODELS);
407         for (i = N_D2_POLYGON_MODELS; i < t + N_D2_POLYGON_MODELS; i++)
408                 polymodel_read(&Polygon_models[i], fp);
409
410         for (i=N_D2_POLYGON_MODELS; i<N_polygon_models; i++ )
411         {
412                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
413                 Assert( Polygon_models[i].model_data != NULL );
414                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
415                 
416 #ifdef WORDS_BIGENDIAN
417                 swap_polygon_model_data(Polygon_models[i].model_data);
418 #endif
419                 
420                 g3_init_polygon_model(Polygon_models[i].model_data);
421         }
422
423         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
424                 Dying_modelnums[i] = cfile_read_int(fp);
425         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
426                 Dead_modelnums[i] = cfile_read_int(fp);
427
428         t = cfile_read_int(fp);
429         if (N_D2_OBJBITMAPS+t >= MAX_OBJ_BITMAPS)
430                 Error("Too many object bitmaps (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPS);
431         for (i = N_D2_OBJBITMAPS; i < (N_D2_OBJBITMAPS + t); i++)
432                 bitmap_index_read(&ObjBitmaps[i], fp);
433
434         t = cfile_read_int(fp);
435         if (N_D2_OBJBITMAPPTRS+t >= MAX_OBJ_BITMAPS)
436                 Error("Too many object bitmap pointers (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPPTRS);
437         for (i = N_D2_OBJBITMAPPTRS; i < (N_D2_OBJBITMAPPTRS + t); i++)
438                 ObjBitmapPtrs[i] = cfile_read_short(fp);
439
440         cfclose(fp);
441 }
442
443 extern void change_filename_extension( char *dest, char *src, char *new_ext );
444
445 int Robot_replacements_loaded = 0;
446
447 void load_robot_replacements(char *level_name)
448 {
449         CFILE *fp;
450         int t,i,j;
451         char ifile_name[FILENAME_LEN];
452
453         change_filename_extension(ifile_name, level_name, ".HXM" );
454         
455         fp = cfopen(ifile_name,"rb");
456
457         if (!fp)                //no robot replacement file
458                 return;
459
460         t = cfile_read_int(fp);                 //read id "HXM!"
461         if (t!= 0x21584d48) 
462                 Error("ID of HXM! file incorrect");
463
464         t = cfile_read_int(fp);                 //read version
465         if (t<1)
466                 Error("HXM! version too old (%d)",t); 
467
468         t = cfile_read_int(fp);                 //read number of robots
469         for (j=0;j<t;j++) {
470                 i = cfile_read_int(fp);         //read robot number
471                 if (i<0 || i>=N_robot_types)
472                         Error("Robots number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_types-1);
473                 robot_info_read(&Robot_info[i], fp);
474         }
475
476         t = cfile_read_int(fp);                 //read number of joints
477         for (j=0;j<t;j++) {
478                 i = cfile_read_int(fp);         //read joint number
479                 if (i<0 || i>=N_robot_joints)
480                         Error("Robots joint (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_joints-1);
481                 jointpos_read(&Robot_joints[i], fp);
482         }
483
484         t = cfile_read_int(fp);                 //read number of polygon models
485         for (j=0;j<t;j++)
486         {
487                 i = cfile_read_int(fp);         //read model number
488                 if (i<0 || i>=N_polygon_models)
489                         Error("Polygon model (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_polygon_models-1);
490                 polymodel_read(&Polygon_models[i], fp);
491         
492                 d_free(Polygon_models[i].model_data);
493                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
494                 Assert( Polygon_models[i].model_data != NULL );
495
496                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
497 #ifdef WORDS_BIGENDIAN
498                 swap_polygon_model_data(Polygon_models[i].model_data);
499 #endif
500                 g3_init_polygon_model(Polygon_models[i].model_data);
501
502                 Dying_modelnums[i] = cfile_read_int(fp);
503                 Dead_modelnums[i] = cfile_read_int(fp);
504         }
505
506         t = cfile_read_int(fp);                 //read number of objbitmaps
507         for (j=0;j<t;j++) {
508                 i = cfile_read_int(fp);         //read objbitmap number
509                 if (i<0 || i>=MAX_OBJ_BITMAPS)
510                         Error("Object bitmap number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
511                 bitmap_index_read(&ObjBitmaps[i], fp);
512         }
513
514         t = cfile_read_int(fp);                 //read number of objbitmapptrs
515         for (j=0;j<t;j++) {
516                 i = cfile_read_int(fp);         //read objbitmapptr number
517                 if (i<0 || i>=MAX_OBJ_BITMAPS)
518                         Error("Object bitmap pointer (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
519                 ObjBitmapPtrs[i] = cfile_read_short(fp);
520         }
521
522         cfclose(fp);
523 }