configuration fixes
[btb/d2x.git] / main / gamepal.c
1 /*
2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
3 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
6 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
8 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.  
11 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
12 */
13
14
15 #include <conf.h>
16 #include <string.h>
17 #include <stdlib.h>
18 #include <math.h>
19
20 #include "pa_enabl.h"                   //$$POLY_ACC
21 #include "fix.h"
22 #include "vecmat.h"
23 #include "gr.h"
24 #include "3d.h"
25 #include "palette.h"
26 #include "rle.h"
27
28 #include "inferno.h"
29 #include "gamepal.h"
30 #include "mission.h"
31 #include "newmenu.h"
32 #include "texmerge.h"
33 #include "piggy.h"
34 #include "strutil.h"
35
36 #if defined(POLY_ACC)
37 #include "poly_acc.h"
38 #endif
39
40 extern void g3_remap_interp_colors();
41
42 char Current_level_palette[FILENAME_LEN];
43
44 extern int Color_0_31_0, HUD_color;
45
46 //give a filename a new extension
47 void change_filename_ext( char *dest, char *src, char *ext )
48 {
49         char *p;
50
51         strcpy (dest, src);
52
53         if (ext[0] == '.')
54                 ext++;
55
56         p = strchr(dest,'.');
57         if (!p) {
58                 p = dest + strlen(dest);
59                 *p = '.';
60         }
61
62         strcpy(p+1,ext);
63 }
64
65 //background for boxed messages
66 typedef struct bkg {
67         short x, y, w, h;                       // The location of the menu.
68         grs_bitmap * bmp;                       // The background under the menu.
69 } bkg;
70
71 extern bkg bg;
72
73 void load_background_bitmap(void);
74
75 char last_palette_loaded[FILENAME_LEN]="";
76 char last_palette_loaded_pig[FILENAME_LEN]="";
77
78 ubyte last_palette_for_color_fonts[768];
79
80 void remap_fonts_and_menus(int do_fadetable_hack)
81 {
82         nm_remap_background();
83         gr_remap_color_fonts();
84
85         if (do_fadetable_hack) {
86                 int i;
87                 float g = 1.0;
88                 double intensity;
89                 ubyte gamma[64];
90
91                 intensity = (double)(14)/(double)(32);
92                 for (i=0;i<64;i++)
93                         gamma[i] = (int)((pow(intensity, 1.0/g)*i) + 0.5);
94                 for (i=0;i<256;i++) {
95                         int c;
96                         c = gr_find_closest_color(gamma[gr_palette[i*3]],gamma[gr_palette[i*3+1]],gamma[gr_palette[i*3+2]]);
97                         gr_fade_table[14*256+i] = c;
98                 }
99         }
100
101         memcpy(last_palette_for_color_fonts,gr_palette,sizeof(last_palette_for_color_fonts));
102 }
103
104 //load a palette by name. returns 1 if new palette loaded, else 0
105 //if used_for_level is set, load pig, etc.
106 //if no_change_screen is set, the current screen does not get remapped,
107 //and the hardware palette does not get changed
108 int load_palette(char *name,int used_for_level,int no_change_screen)
109 {
110         char pigname[FILENAME_LEN];
111         ubyte old_pal[256*3];
112
113         //special hack to tell that palette system about a pig that's been loaded elsewhere
114         if (used_for_level == -2) {
115                 strncpy(last_palette_loaded_pig,name,sizeof(last_palette_loaded_pig));
116                 return 1;
117         }
118
119         if (name==NULL)
120                 name = last_palette_loaded_pig;
121
122         if (used_for_level && stricmp(last_palette_loaded_pig,name) != 0) {
123
124                 _splitpath(name,NULL,NULL,pigname,NULL);
125                 strcat(pigname,".PIG");
126
127                 //if not editor, load pig first so small install message can come
128                 //up in old palette.  If editor version, we must load the pig after
129                 //the palette is loaded so we can remap new textures.
130                 #ifndef EDITOR
131                 piggy_new_pigfile(pigname);
132                 #endif
133         }
134
135         if (stricmp(last_palette_loaded,name) != 0) {
136
137                 memcpy(old_pal,gr_palette,sizeof(old_pal));
138
139                 strncpy(last_palette_loaded,name,sizeof(last_palette_loaded));
140
141                 gr_use_palette_table(name);
142
143                 if (Function_mode == FMODE_GAME && !no_change_screen)
144                         gr_remap_bitmap_good( &grd_curscreen->sc_canvas.cv_bitmap, old_pal, -1, -1 );
145
146 #if defined(POLY_ACC)
147         if (bg.bmp && bg.bmp->bm_type == BM_LINEAR)
148 #else
149         if (bg.bmp)
150 #endif
151             gr_remap_bitmap_good( bg.bmp, old_pal, -1, -1 );
152
153                 if (!gr_palette_faded_out && !no_change_screen)
154                         gr_palette_load(gr_palette);
155
156                 remap_fonts_and_menus(0);
157
158                 Color_0_31_0 = -1;              //for gauges
159                 HUD_color = -1;
160
161                 load_background_bitmap();
162
163                 g3_remap_interp_colors();
164         }
165
166
167         if (used_for_level && stricmp(last_palette_loaded_pig,name) != 0) {
168
169                 strncpy(last_palette_loaded_pig,name,sizeof(last_palette_loaded_pig));
170
171                 #ifdef EDITOR
172                 piggy_new_pigfile(pigname);
173                 #endif
174
175                 texmerge_flush();
176                 rle_cache_flush();
177         }
178
179         return 1;
180 }
181