fix for vertigo
[btb/d2x.git] / main / bm.c
1 /* $Id: bm.c,v 1.16 2002-08-22 20:49:15 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  *
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 int             N_ObjBitmaps;
95 bitmap_index    ObjBitmaps[MAX_OBJ_BITMAPS];
96 ushort          ObjBitmapPtrs[MAX_OBJ_BITMAPS];     // These point back into ObjBitmaps, since some are used twice.
97
98 #ifdef FAST_FILE_IO
99 #define tmap_info_read_n(ti, n, fp) cfread(ti, sizeof(tmap_info), n, fp)
100 #else
101 /*
102  * reads n tmap_info structs from a CFILE
103  */
104 int tmap_info_read_n(tmap_info *ti, int n, CFILE *fp)
105 {
106         int i;
107
108         for (i = 0; i < n; i++) {
109                 ti[i].flags = cfile_read_byte(fp);
110                 ti[i].pad[0] = cfile_read_byte(fp);
111                 ti[i].pad[1] = cfile_read_byte(fp);
112                 ti[i].pad[2] = cfile_read_byte(fp);
113                 ti[i].lighting = cfile_read_fix(fp);
114                 ti[i].damage = cfile_read_fix(fp);
115                 ti[i].eclip_num = cfile_read_short(fp);
116                 ti[i].destroyed = cfile_read_short(fp);
117                 ti[i].slide_u = cfile_read_short(fp);
118                 ti[i].slide_v = cfile_read_short(fp);
119         }
120         return i;
121 }
122 #endif
123
124 extern int Num_bitmap_files;
125 int extra_bitmap_num;
126
127 bitmap_index exitmodel_bm_load_sub( char * filename )
128 {
129         bitmap_index bitmap_num;
130         grs_bitmap * new = &GameBitmaps[extra_bitmap_num];
131         ubyte newpal[256*3];
132         int iff_error;          //reference parm to avoid warning message
133
134         bitmap_num.index = 0;
135
136         //MALLOC( new, grs_bitmap, 1 );
137         iff_error = iff_read_bitmap(filename,new,BM_LINEAR,newpal);
138         new->bm_handle=0;
139         if (iff_error != IFF_NO_ERROR)          {
140                 Error("Error loading exit model bitmap <%s> - IFF error: %s",filename,iff_errormsg(iff_error));
141         }
142
143         if ( iff_has_transparency )
144                 gr_remap_bitmap_good( new, newpal, iff_transparent_color, 254 );
145         else
146                 gr_remap_bitmap_good( new, newpal, -1, 254 );
147
148         new->avg_color = 0;     //compute_average_pixel(new);
149
150         bitmap_num.index = extra_bitmap_num;
151
152         GameBitmaps[extra_bitmap_num++] = *new;
153
154         //d_free( new );
155         return bitmap_num;
156 }
157
158 grs_bitmap *load_exit_model_bitmap(char *name)
159 {
160         Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
161
162         {
163                 ObjBitmaps[N_ObjBitmaps] = exitmodel_bm_load_sub(name);
164                 if (GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_w!=64 || GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_h!=64)
165                         Error("Bitmap <%s> is not 64x64",name);
166                 ObjBitmapPtrs[N_ObjBitmaps] = N_ObjBitmaps;
167                 N_ObjBitmaps++;
168                 Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
169                 return &GameBitmaps[ObjBitmaps[N_ObjBitmaps-1].index];
170         }
171 }
172
173 void
174 free_exit_model_data()
175 {
176         int i;
177
178         for (i = Num_bitmap_files; i < extra_bitmap_num; i++)
179                 d_free(GameBitmaps[i].bm_data);
180         extra_bitmap_num = Num_bitmap_files;
181 }
182
183 //#define EXIT_POF
184
185 #ifdef OGL
186 void ogl_cache_polymodel_textures(int model_num);
187 #endif
188
189 void load_exit_models()
190 {
191 #ifndef EXIT_POF
192         CFILE *exit_hamfile;
193 #endif
194         int start_num;
195
196         if (!cfexist("steel1.bbm") ||
197             !cfexist("rbot061.bbm") ||
198             !cfexist("rbot062.bbm") ||
199             !cfexist("rbot063.bbm") ||
200 #ifdef EXIT_POF
201             !cfexist("exit01.pof") ||
202             !cfexist("exit01d.pof")) {
203 #else
204             !cfexist("exit.ham")) {
205 #endif
206                 Warning("Can't load exit models!\n");
207                 return;
208         }
209
210         start_num = N_ObjBitmaps;
211         extra_bitmap_num = Num_bitmap_files;
212         load_exit_model_bitmap("steel1.bbm");
213         load_exit_model_bitmap("rbot061.bbm");
214         load_exit_model_bitmap("rbot062.bbm");
215
216         load_exit_model_bitmap("steel1.bbm");
217         load_exit_model_bitmap("rbot061.bbm");
218         load_exit_model_bitmap("rbot063.bbm");
219
220 #ifndef EXIT_POF
221
222 #ifndef MACINTOSH
223         exit_hamfile = cfopen("exit.ham","rb");
224 #else
225         exit_hamfile = cfopen(":Data:exit.ham","rb");
226 #endif
227
228         exit_modelnum = N_polygon_models++;
229         destroyed_exit_modelnum = N_polygon_models++;
230         polymodel_read(&Polygon_models[exit_modelnum], exit_hamfile);
231         polymodel_read(&Polygon_models[destroyed_exit_modelnum], exit_hamfile);
232         Polygon_models[exit_modelnum].first_texture = start_num;
233         Polygon_models[destroyed_exit_modelnum].first_texture = start_num+3;
234
235         Polygon_models[exit_modelnum].model_data = d_malloc(Polygon_models[exit_modelnum].model_data_size);
236         Assert( Polygon_models[exit_modelnum].model_data != NULL );
237         cfread( Polygon_models[exit_modelnum].model_data, sizeof(ubyte), Polygon_models[exit_modelnum].model_data_size, exit_hamfile );
238 #ifdef WORDS_BIGENDIAN
239         swap_polygon_model_data(Polygon_models[exit_modelnum].model_data);
240 #endif
241         g3_init_polygon_model(Polygon_models[exit_modelnum].model_data);
242
243         Polygon_models[destroyed_exit_modelnum].model_data = d_malloc(Polygon_models[destroyed_exit_modelnum].model_data_size);
244         Assert( Polygon_models[destroyed_exit_modelnum].model_data != NULL );
245         cfread( Polygon_models[destroyed_exit_modelnum].model_data, sizeof(ubyte), Polygon_models[destroyed_exit_modelnum].model_data_size, exit_hamfile );
246 #ifdef WORDS_BIGENDIAN
247         swap_polygon_model_data(Polygon_models[destroyed_exit_modelnum].model_data);
248 #endif
249         g3_init_polygon_model(Polygon_models[destroyed_exit_modelnum].model_data);
250         cfclose(exit_hamfile);
251
252 #else // EXIT_POF
253
254         exit_modelnum = load_polygon_model("exit01.pof", 3, start_num, NULL);
255         destroyed_exit_modelnum = load_polygon_model("exit01d.pof", 3, start_num + 3, NULL);
256
257 #ifdef OGL
258         ogl_cache_polymodel_textures(exit_modelnum);
259         ogl_cache_polymodel_textures(destroyed_exit_modelnum);
260 #endif
261
262 #endif
263 }
264
265
266 //-----------------------------------------------------------------
267 // Read data from piggy.
268 // This is called when the editor is OUT.
269 // If editor is in, bm_init_use_table() is called.
270 int bm_init()
271 {
272         init_polygon_models();
273         if (! piggy_init())                             // This calls bm_read_all
274                 Error("Cannot open pig and/or ham file");
275
276         piggy_read_sounds();
277
278         init_endlevel();                //this is in bm_init_use_tbl(), so I gues it goes here
279
280         return 0;
281 }
282
283 void bm_read_all(CFILE * fp)
284 {
285         int i,t;
286
287         NumTextures = cfile_read_int(fp);
288         bitmap_index_read_n(Textures, NumTextures, fp );
289         tmap_info_read_n(TmapInfo, NumTextures, fp);
290
291         t = cfile_read_int(fp);
292         cfread( Sounds, sizeof(ubyte), t, fp );
293         cfread( AltSounds, sizeof(ubyte), t, fp );
294
295         Num_vclips = cfile_read_int(fp);
296         vclip_read_n(Vclip, Num_vclips, fp);
297
298         Num_effects = cfile_read_int(fp);
299         eclip_read_n(Effects, Num_effects, fp);
300
301         Num_wall_anims = cfile_read_int(fp);
302         wclip_read_n(WallAnims, Num_wall_anims, fp);
303
304         N_robot_types = cfile_read_int(fp);
305         robot_info_read_n(Robot_info, N_robot_types, fp);
306
307         N_robot_joints = cfile_read_int(fp);
308         jointpos_read_n(Robot_joints, N_robot_joints, fp);
309
310         N_weapon_types = cfile_read_int(fp);
311         weapon_info_read_n(Weapon_info, N_weapon_types, fp, Piggy_hamfile_version);
312
313         N_powerup_types = cfile_read_int(fp);
314         powerup_type_info_read_n(Powerup_info, N_powerup_types, fp);
315
316         N_polygon_models = cfile_read_int(fp);
317         polymodel_read_n(Polygon_models, N_polygon_models, fp);
318
319         for (i=0; i<N_polygon_models; i++ )     {
320                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
321                 Assert( Polygon_models[i].model_data != NULL );
322                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
323 #ifdef WORDS_BIGENDIAN
324                 swap_polygon_model_data(Polygon_models[i].model_data);
325 #endif
326                 g3_init_polygon_model(Polygon_models[i].model_data);
327         }
328
329         for (i = 0; i < N_polygon_models; i++)
330                 Dying_modelnums[i] = cfile_read_int(fp);
331         for (i = 0; i < N_polygon_models; i++)
332                 Dead_modelnums[i] = cfile_read_int(fp);
333
334         t = cfile_read_int(fp);
335         bitmap_index_read_n(Gauges, t, fp);
336         bitmap_index_read_n(Gauges_hires, t, fp);
337
338         N_ObjBitmaps = cfile_read_int(fp);
339         bitmap_index_read_n(ObjBitmaps, N_ObjBitmaps, fp);
340         for (i = 0; i < N_ObjBitmaps; i++)
341                 ObjBitmapPtrs[i] = cfile_read_short(fp);
342
343         player_ship_read(&only_player_ship, fp);
344
345         Num_cockpits = cfile_read_int(fp);
346         bitmap_index_read_n(cockpit_bitmap, Num_cockpits, fp);
347
348 //@@    cfread( &Num_total_object_types, sizeof(int), 1, fp );
349 //@@    cfread( ObjType, sizeof(byte), Num_total_object_types, fp );
350 //@@    cfread( ObjId, sizeof(byte), Num_total_object_types, fp );
351 //@@    cfread( ObjStrength, sizeof(fix), Num_total_object_types, fp );
352
353         First_multi_bitmap_num = cfile_read_int(fp);
354
355         Num_reactors = cfile_read_int(fp);
356         reactor_read_n(Reactors, Num_reactors, fp);
357
358         Marker_model_num = cfile_read_int(fp);
359
360         //@@cfread( &N_controlcen_guns, sizeof(int), 1, fp );
361         //@@cfread( controlcen_gun_points, sizeof(vms_vector), N_controlcen_guns, fp );
362         //@@cfread( controlcen_gun_dirs, sizeof(vms_vector), N_controlcen_guns, fp );
363
364         if (Piggy_hamfile_version < 3) {
365                 exit_modelnum = cfile_read_int(fp);
366                 destroyed_exit_modelnum = cfile_read_int(fp);
367         }
368
369 }
370
371
372 //these values are the number of each item in the release of d2
373 //extra items added after the release get written in an additional hamfile
374 #define N_D2_ROBOT_TYPES                66
375 #define N_D2_ROBOT_JOINTS               1145
376 #define N_D2_POLYGON_MODELS             166
377 #define N_D2_OBJBITMAPS                 422
378 #define N_D2_OBJBITMAPPTRS              502
379 #define N_D2_WEAPON_TYPES               62
380
381 //type==1 means 1.1, type==2 means 1.2 (with weapons)
382 void bm_read_extra_robots(char *fname,int type)
383 {
384         CFILE *fp;
385         int t,i;
386         int version;
387
388         #ifdef MACINTOSH
389                 ulong varSave = 0;
390         #endif
391
392         fp = cfopen(fname,"rb");
393
394         if (type == 2) {
395                 int sig;
396
397                 sig = cfile_read_int(fp);
398                 if (sig != MAKE_SIG('X','H','A','M'))
399                         return;
400                 version = cfile_read_int(fp);
401         }
402         else
403                 version = 0;
404
405         //read extra weapons
406
407         t = cfile_read_int(fp);
408         N_weapon_types = N_D2_WEAPON_TYPES+t;
409         if (N_weapon_types >= MAX_WEAPON_TYPES)
410                 Error("Too many weapons (%d) in <%s>.  Max is %d.",t,fname,MAX_WEAPON_TYPES-N_D2_WEAPON_TYPES);
411         weapon_info_read_n(&Weapon_info[N_D2_WEAPON_TYPES], t, fp, 3);
412
413         //now read robot info
414
415         t = cfile_read_int(fp);
416         N_robot_types = N_D2_ROBOT_TYPES+t;
417         if (N_robot_types >= MAX_ROBOT_TYPES)
418                 Error("Too many robots (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_TYPES-N_D2_ROBOT_TYPES);
419         robot_info_read_n(&Robot_info[N_D2_ROBOT_TYPES], t, fp);
420
421         t = cfile_read_int(fp);
422         N_robot_joints = N_D2_ROBOT_JOINTS+t;
423         if (N_robot_joints >= MAX_ROBOT_JOINTS)
424                 Error("Too many robot joints (%d) in <%s>.  Max is %d.",t,fname,MAX_ROBOT_JOINTS-N_D2_ROBOT_JOINTS);
425         jointpos_read_n(&Robot_joints[N_D2_ROBOT_JOINTS], t, fp);
426
427         t = cfile_read_int(fp);
428         N_polygon_models = N_D2_POLYGON_MODELS+t;
429         if (N_polygon_models >= MAX_POLYGON_MODELS)
430                 Error("Too many polygon models (%d) in <%s>.  Max is %d.",t,fname,MAX_POLYGON_MODELS-N_D2_POLYGON_MODELS);
431         polymodel_read_n(&Polygon_models[N_D2_POLYGON_MODELS], t, fp);
432
433         for (i=N_D2_POLYGON_MODELS; i<N_polygon_models; i++ )
434         {
435                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
436                 Assert( Polygon_models[i].model_data != NULL );
437                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
438 #ifdef WORDS_BIGENDIAN
439                 swap_polygon_model_data(Polygon_models[i].model_data);
440 #endif
441                 g3_init_polygon_model(Polygon_models[i].model_data);
442         }
443
444         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
445                 Dying_modelnums[i] = cfile_read_int(fp);
446         for (i = N_D2_POLYGON_MODELS; i < N_polygon_models; i++)
447                 Dead_modelnums[i] = cfile_read_int(fp);
448
449         t = cfile_read_int(fp);
450         if (N_D2_OBJBITMAPS+t >= MAX_OBJ_BITMAPS)
451                 Error("Too many object bitmaps (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPS);
452         bitmap_index_read_n(&ObjBitmaps[N_D2_OBJBITMAPS], t, fp);
453
454         t = cfile_read_int(fp);
455         if (N_D2_OBJBITMAPPTRS+t >= MAX_OBJ_BITMAPS)
456                 Error("Too many object bitmap pointers (%d) in <%s>.  Max is %d.",t,fname,MAX_OBJ_BITMAPS-N_D2_OBJBITMAPPTRS);
457         for (i = N_D2_OBJBITMAPPTRS; i < (N_D2_OBJBITMAPPTRS + t); i++)
458                 ObjBitmapPtrs[i] = cfile_read_short(fp);
459
460         cfclose(fp);
461 }
462
463 extern void change_filename_extension( char *dest, char *src, char *new_ext );
464
465 int Robot_replacements_loaded = 0;
466
467 void load_robot_replacements(char *level_name)
468 {
469         CFILE *fp;
470         int t,i,j;
471         char ifile_name[FILENAME_LEN];
472
473         change_filename_extension(ifile_name, level_name, ".HXM" );
474
475         fp = cfopen(ifile_name,"rb");
476
477         if (!fp)                //no robot replacement file
478                 return;
479
480         t = cfile_read_int(fp);                 //read id "HXM!"
481         if (t!= 0x21584d48)
482                 Error("ID of HXM! file incorrect");
483
484         t = cfile_read_int(fp);                 //read version
485         if (t<1)
486                 Error("HXM! version too old (%d)",t);
487
488         t = cfile_read_int(fp);                 //read number of robots
489         for (j=0;j<t;j++) {
490                 i = cfile_read_int(fp);         //read robot number
491                 if (i<0 || i>=N_robot_types)
492                         Error("Robots number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_types-1);
493                 robot_info_read_n(&Robot_info[i], 1, fp);
494         }
495
496         t = cfile_read_int(fp);                 //read number of joints
497         for (j=0;j<t;j++) {
498                 i = cfile_read_int(fp);         //read joint number
499                 if (i<0 || i>=N_robot_joints)
500                         Error("Robots joint (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_robot_joints-1);
501                 jointpos_read_n(&Robot_joints[i], 1, fp);
502         }
503
504         t = cfile_read_int(fp);                 //read number of polygon models
505         for (j=0;j<t;j++)
506         {
507                 i = cfile_read_int(fp);         //read model number
508                 if (i<0 || i>=N_polygon_models)
509                         Error("Polygon model (%d) out of range in (%s).  Range = [0..%d].",i,level_name,N_polygon_models-1);
510                 polymodel_read(&Polygon_models[i], fp);
511         
512                 d_free(Polygon_models[i].model_data);
513                 Polygon_models[i].model_data = d_malloc(Polygon_models[i].model_data_size);
514                 Assert( Polygon_models[i].model_data != NULL );
515
516                 cfread( Polygon_models[i].model_data, sizeof(ubyte), Polygon_models[i].model_data_size, fp );
517 #ifdef WORDS_BIGENDIAN
518                 swap_polygon_model_data(Polygon_models[i].model_data);
519 #endif
520                 g3_init_polygon_model(Polygon_models[i].model_data);
521
522                 Dying_modelnums[i] = cfile_read_int(fp);
523                 Dead_modelnums[i] = cfile_read_int(fp);
524         }
525
526         t = cfile_read_int(fp);                 //read number of objbitmaps
527         for (j=0;j<t;j++) {
528                 i = cfile_read_int(fp);         //read objbitmap number
529                 if (i<0 || i>=MAX_OBJ_BITMAPS)
530                         Error("Object bitmap number (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
531                 bitmap_index_read(&ObjBitmaps[i], fp);
532         }
533
534         t = cfile_read_int(fp);                 //read number of objbitmapptrs
535         for (j=0;j<t;j++) {
536                 i = cfile_read_int(fp);         //read objbitmapptr number
537                 if (i<0 || i>=MAX_OBJ_BITMAPS)
538                         Error("Object bitmap pointer (%d) out of range in (%s).  Range = [0..%d].",i,level_name,MAX_OBJ_BITMAPS-1);
539                 ObjBitmapPtrs[i] = cfile_read_short(fp);
540         }
541
542         cfclose(fp);
543 }