Fix crash if Num_walls=0
[btb/d2x.git] / main / gamemine.c
1 /* $Id: gamemine.c,v 1.32 2004-12-20 06:34:42 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  * Functions for loading mines in the game
18  *
19  */
20
21 #ifdef HAVE_CONFIG_H
22 #include <conf.h>
23 #endif
24
25 #ifdef RCS
26 static char rcsid[] = "$Id: gamemine.c,v 1.32 2004-12-20 06:34:42 btb Exp $";
27 #endif
28
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <math.h>
32 #include <string.h>
33
34 #include "pstypes.h"
35 #include "mono.h"
36
37 #include "inferno.h"
38 #include "segment.h"
39 #include "textures.h"
40 #include "wall.h"
41 #include "object.h"
42 #include "gamemine.h"
43 #include "error.h"
44 #include "gameseg.h"
45 #include "switch.h"
46
47 #include "game.h"
48 #include "newmenu.h"
49
50 #ifdef EDITOR
51 #include "editor/editor.h"
52 #endif
53
54 #include "cfile.h"
55 #include "fuelcen.h"
56
57 #include "hash.h"
58 #include "key.h"
59 #include "piggy.h"
60
61 #include "byteswap.h"
62 #include "gamesave.h"
63
64 #define REMOVE_EXT(s)  (*(strchr( (s), '.' ))='\0')
65
66 fix Level_shake_frequency = 0, Level_shake_duration = 0;
67 int Secret_return_segment = 0;
68 vms_matrix Secret_return_orient;
69
70 #ifdef EDITOR
71 struct mtfi mine_top_fileinfo; // Should be same as first two fields below...
72 struct mfi mine_fileinfo;
73 struct mh mine_header;
74 struct me mine_editor;
75 #endif // EDITOR
76
77 typedef struct v16_segment {
78         #ifdef EDITOR
79         short   segnum;             // segment number, not sure what it means
80         #endif
81         side    sides[MAX_SIDES_PER_SEGMENT];       // 6 sides
82         short   children[MAX_SIDES_PER_SEGMENT];    // indices of 6 children segments, front, left, top, right, bottom, back
83         short   verts[MAX_VERTICES_PER_SEGMENT];    // vertex ids of 4 front and 4 back vertices
84         #ifdef  EDITOR
85         short   group;              // group number to which the segment belongs.
86         #endif
87         short   objects;            // pointer to objects in this segment
88         ubyte   special;            // what type of center this is
89         sbyte   matcen_num;         // which center segment is associated with.
90         short   value;
91         fix     static_light;       // average static light in segment
92         #ifndef EDITOR
93         short   pad;                // make structure longword aligned
94         #endif
95 } v16_segment;
96
97 #if 0
98 struct mfi_v19 {
99         ushort  fileinfo_signature;
100         ushort  fileinfo_version;
101         int     fileinfo_sizeof;
102         int     header_offset;      // Stuff common to game & editor
103         int     header_size;
104         int     editor_offset;      // Editor specific stuff
105         int     editor_size;
106         int     segment_offset;
107         int     segment_howmany;
108         int     segment_sizeof;
109         int     newseg_verts_offset;
110         int     newseg_verts_howmany;
111         int     newseg_verts_sizeof;
112         int     group_offset;
113         int     group_howmany;
114         int     group_sizeof;
115         int     vertex_offset;
116         int     vertex_howmany;
117         int     vertex_sizeof;
118         int     texture_offset;
119         int     texture_howmany;
120         int     texture_sizeof;
121         int     walls_offset;
122         int     walls_howmany;
123         int     walls_sizeof;
124         int     triggers_offset;
125         int     triggers_howmany;
126         int     triggers_sizeof;
127         int     links_offset;
128         int     links_howmany;
129         int     links_sizeof;
130         int     object_offset;      // Object info
131         int     object_howmany;
132         int     object_sizeof;
133         int     unused_offset;      // was: doors_offset
134         int     unused_howmamy;     // was: doors_howmany
135         int     unused_sizeof;      // was: doors_sizeof
136         short   level_shake_frequency;  // Shakes every level_shake_frequency seconds
137         short   level_shake_duration;   // for level_shake_duration seconds (on average, random).  In 16ths second.
138         int     secret_return_segment;
139         vms_matrix  secret_return_orient;
140
141         int     dl_indices_offset;
142         int     dl_indices_howmany;
143         int     dl_indices_sizeof;
144
145         int     delta_light_offset;
146         int     delta_light_howmany;
147         int     delta_light_sizeof;
148
149 };
150 #endif // 0
151
152 int CreateDefaultNewSegment();
153
154 int New_file_format_load = 1; // "new file format" is everything newer than d1 shareware
155
156 int d1_pig_present = 0; // can descent.pig from descent 1 be loaded?
157
158 /* returns nonzero if d1_tmap_num references a texture which isn't available in d2. */
159 int d1_tmap_num_unique(short d1_tmap_num) {
160         switch (d1_tmap_num) {
161         case   0: case   2: case   4: case   5: case   6: case   7: case   9:
162         case  10: case  11: case  12: case  17: case  18:
163         case  20: case  21: case  25: case  28:
164         case  38: case  39: case  41: case  44: case  49:
165         case  50: case  55: case  57: case  88:
166         case 132: case 141: case 147:
167         case 154: case 155: case 158: case 159:
168         case 160: case 161: case 167: case 168: case 169:
169         case 170: case 171: case 174: case 175: case 185:
170         case 193: case 194: case 195: case 198: case 199:
171         case 200: case 202: case 210: case 211:
172         case 220: case 226: case 227: case 228: case 229: case 230:
173         case 240: case 241: case 242: case 243: case 246:
174         case 250: case 251: case 252: case 253: case 257: case 258: case 259:
175         case 260: case 263: case 266: case 283: case 298:
176         case 315: case 317: case 319: case 320: case 321:
177         case 330: case 331: case 332: case 333: case 349:
178         case 351: case 352: case 353: case 354:
179         case 355: case 357: case 358: case 359:
180         case 362: case 370: return 1;
181         default: return 0;
182         }
183 }
184
185 #define TMAP_NUM_MASK 0x3FFF
186
187 /* Converts descent 1 texture numbers to descent 2 texture numbers.
188  * Textures from d1 which are unique to d1 have extra spaces around "return".
189  * If we can load the original d1 pig, we make sure this function is bijective.
190  * This function was updated using the file config/convtabl.ini from devil 2.2.
191  */
192 short convert_d1_tmap_num(short d1_tmap_num) {
193         switch (d1_tmap_num) {
194         case 0: case 2: case 4: case 5:
195                 // all refer to grey rock001 (exception to bijectivity rule)
196                 return  d1_pig_present ? 137 : 43; // (devil:95)
197         case   1: return 0;
198         case   3: return 1; // rock021
199         case   6:  return  270; // blue rock002
200         case   7:  return  271; // yellow rock265
201         case   8: return 2; // rock004
202         case   9:  return  d1_pig_present ? 138 : 62; // purple (devil:179)
203         case  10:  return  272; // red rock006
204         case  11:  return  d1_pig_present ? 139 : 117;
205         case  12:  return  d1_pig_present ? 140 : 12; //devil:43
206         case  13: return 3; // rock014
207         case  14: return 4; // rock019
208         case  15: return 5; // rock020
209         case  16: return 6;
210         case  17:  return  d1_pig_present ? 141 : 52;
211         case  18:  return  129;
212         case  19: return 7;
213         case  20:  return  d1_pig_present ? 142 : 22;
214         case  21:  return  d1_pig_present ? 143 : 9;
215         case  22: return 8;
216         case  23: return 9;
217         case  24: return 10;
218         case  25:  return  d1_pig_present ? 144 : 12; //devil:35
219         case  26: return 11;
220         case  27: return 12;
221         case  28:  return  d1_pig_present ? 145 : 11; //devil:43
222         //range handled by default case, returns 13..21 (- 16)
223         case  38:  return  163; //devil:27
224         case  39:  return  147; //31
225         case  40: return 22;
226         case  41:  return  266;
227         case  42: return 23;
228         case  43: return 24;
229         case  44:  return  136; //devil:135
230         case  45: return 25;
231         case  46: return 26;
232         case  47: return 27;
233         case  48: return 28;
234         case  49:  return  d1_pig_present ? 146 : 43; //devil:60
235         case  50:  return  131; //devil:138
236         case  51: return 29;
237         case  52: return 30;
238         case  53: return 31;
239         case  54: return 32;
240         case  55:  return  165; //devil:193
241         case  56: return 33;
242         case  57:  return  132; //devil:119
243         // range handled by default case, returns 34..63 (- 24)
244         case  88:  return  197; //devil:15
245         // range handled by default case, returns 64..106 (- 25)
246         case 132:  return  167;
247         // range handled by default case, returns 107..114 (- 26)
248         case 141:  return  d1_pig_present ? 148 : 110; //devil:106
249         case 142: return 115;
250         case 143: return 116;
251         case 144: return 117;
252         case 145: return 118;
253         case 146: return 119;
254         case 147:  return  d1_pig_present ? 149 : 93;
255         case 148: return 120;
256         case 149: return 121;
257         case 150: return 122;
258         case 151: return 123;
259         case 152: return 124;
260         case 153: return 125; // rock263
261         case 154:  return  d1_pig_present ? 150 : 27;
262         case 155:  return  126; // rock269
263         case 156: return 200; // metl002
264         case 157: return 201; // metl003
265         case 158:  return  186; //devil:227
266         case 159:  return  190; //devil:246
267         case 160:  return  d1_pig_present ? 151 : 206;
268         case 161:  return  d1_pig_present ? 152 : 114; //devil:206
269         case 162: return 202;
270         case 163: return 203;
271         case 164: return 204;
272         case 165: return 205;
273         case 166: return 206;
274         case 167:  return  d1_pig_present ? 153 : 206;
275         case 168:  return  d1_pig_present ? 154 : 206;
276         case 169:  return  d1_pig_present ? 155 : 206;
277         case 170:  return  d1_pig_present ? 156 : 227;//206;
278         case 171:  return  d1_pig_present ? 157 : 206;//227;
279         case 172: return 207;
280         case 173: return 208;
281         case 174:  return  d1_pig_present ? 158 : 202;
282         case 175:  return  d1_pig_present ? 159 : 206;
283         // range handled by default case, returns 209..217 (+ 33)
284         case 185:  return  d1_pig_present ? 160 : 217;
285         // range handled by default case, returns 218..224 (+ 32)
286         case 193:  return  d1_pig_present ? 161 : 206;
287         case 194:  return  d1_pig_present ? 162 : 203;//206;
288         case 195:  return  d1_pig_present ? 166 : 234;
289         case 196: return 225;
290         case 197: return 226;
291         case 198:  return  d1_pig_present ? 167 : 225;
292         case 199:  return  d1_pig_present ? 168 : 206; //devil:204
293         case 200:  return  d1_pig_present ? 169 : 206; //devil:204
294         case 201: return 227;
295         case 202:  return  d1_pig_present ? 170 : 206; //devil:227
296         // range handled by default case, returns 228..234 (+ 25)
297         case 210:  return  d1_pig_present ? 171 : 234; //devil:242
298         case 211:  return  d1_pig_present ? 172 : 206; //devil:240
299         // range handled by default case, returns 235..242 (+ 23)
300         case 220:  return  d1_pig_present ? 173 : 242; //devil:240
301         case 221: return 243;
302         case 222: return 244;
303         case 223:  return  d1_pig_present ? 174 : 313;
304         case 224: return 245;
305         case 225: return 246;
306         case 226:  return  164;//247; matching names but not matching textures
307         case 227:  return  179; //devil:181
308         case 228:  return  196;//248; matching names but not matching textures
309         case 229:  return  d1_pig_present ? 175 : 15; //devil:66
310         case 230:  return  d1_pig_present ? 176 : 15; //devil:66
311         // range handled by default case, returns 249..257 (+ 18)
312         case 240:  return  d1_pig_present ? 177 : 6; //devil:132
313         case 241:  return  130; //devil:131
314         case 242:  return  d1_pig_present ? 178 : 78; //devil:15
315         case 243:  return  d1_pig_present ? 180 : 33; //devil:38
316         case 244: return 258;
317         case 245: return 259;
318         case 246:  return  d1_pig_present ? 181 : 321; // grate metl127
319         case 247: return 260;
320         case 248: return 261;
321         case 249: return 262;
322         case 250:  return  340; //  white doorframe metl126
323         case 251:  return  412; //    red doorframe metl133
324         case 252:  return  410; //   blue doorframe metl134
325         case 253:  return  411; // yellow doorframe metl135
326         case 254: return 263; // metl136
327         case 255: return 264; // metl139
328         case 256: return 265; // metl140
329         case 257:  return  d1_pig_present ? 182 : 249;//246; brig001
330         case 258:  return  d1_pig_present ? 183 : 251;//246; brig002
331         case 259:  return  d1_pig_present ? 184 : 252;//246; brig003
332         case 260:  return  d1_pig_present ? 185 : 256;//246; brig004
333         case 261: return 273; // exit01
334         case 262: return 274; // exit02
335         case 263:  return  d1_pig_present ? 187 : 281; // ceil001
336         case 264: return 275; // ceil002
337         case 265: return 276; // ceil003
338         case 266:  return  d1_pig_present ? 188 : 279; //devil:291
339         // range handled by default case, returns 277..291 (+ 10)
340         case 282: return 293;
341         case 283:  return  d1_pig_present ? 189 : 295;
342         case 284: return 295;
343         case 285: return 296;
344         case 286: return 298;
345         // range handled by default case, returns 300..310 (+ 13)
346         case 298:  return  d1_pig_present ? 191 : 364; // devil:374 misc010
347         // range handled by default case, returns 311..326 (+ 12)
348         case 315:  return  d1_pig_present ? 192 : 361; // bad producer misc044
349         // range handled by default case,  returns  327..337 (+ 11)
350         case 327: return 352; // arw01
351         case 328: return 353; // misc17
352         case 329: return 354; // fan01
353         case 330:  return  380; // mntr04
354         case 331:  return  379;//373; matching names but not matching textures
355         case 332:  return  355;//344; matching names but not matching textures
356         case 333:  return  409; // lava misc11 //devil:404
357         case 334: return 356; // ctrl04
358         case 335: return 357; // ctrl01
359         case 336: return 358; // ctrl02
360         case 337: return 359; // ctrl03
361         case 338: return 360; // misc14
362         case 339: return 361; // producer misc16
363         case 340: return 362; // misc049
364         case 341: return 364; // misc060
365         case 342: return 363; // blown01
366         case 343: return 366; // misc061
367         case 344: return 365;
368         case 345: return 368;
369         case 346: return 376;
370         case 347: return 370;
371         case 348: return 367;
372         case 349:  return  372;
373         case 350: return 369;
374         case 351:  return  374;//429; matching names but not matching textures
375         case 352:  return  375;//387; matching names but not matching textures
376         case 353:  return  371;
377         case 354:  return  377;//425; matching names but not matching textures
378         case 355:  return  408;
379         case 356: return 378; // lava02
380         case 357:  return  383;//384; matching names but not matching textures
381         case 358:  return  384;//385; matching names but not matching textures
382         case 359:  return  385;//386; matching names but not matching textures
383         case 360: return 386;
384         case 361: return 387;
385         case 362:  return  d1_pig_present ? 194 : 388; // mntr04b (devil: -1)
386         case 363: return 388;
387         case 364: return 391;
388         case 365: return 392;
389         case 366: return 393;
390         case 367: return 394;
391         case 368: return 395;
392         case 369: return 396;
393         case 370:  return  d1_pig_present ? 195 : 392; // mntr04d (devil: -1)
394         // range 371..584 handled by default case (wall01 and door frames)
395         default:
396                 // ranges:
397                 if (d1_tmap_num >= 29 && d1_tmap_num <= 37)
398                         return d1_tmap_num - 16;
399                 if (d1_tmap_num >= 58 && d1_tmap_num <= 87)
400                         return d1_tmap_num - 24;
401                 if (d1_tmap_num >= 89 && d1_tmap_num <= 131)
402                         return d1_tmap_num - 25;
403                 if (d1_tmap_num >= 133 && d1_tmap_num <= 140)
404                         return d1_tmap_num - 26;
405                 if (d1_tmap_num >= 176 && d1_tmap_num <= 184)
406                         return d1_tmap_num + 33;
407                 if (d1_tmap_num >= 186 && d1_tmap_num <= 192)
408                         return d1_tmap_num + 32;
409                 if (d1_tmap_num >= 203 && d1_tmap_num <= 209)
410                         return d1_tmap_num + 25;
411                 if (d1_tmap_num >= 212 && d1_tmap_num <= 219)
412                         return d1_tmap_num + 23;
413                 if (d1_tmap_num >= 231 && d1_tmap_num <= 239)
414                         return d1_tmap_num + 18;
415                 if (d1_tmap_num >= 267 && d1_tmap_num <= 281)
416                         return d1_tmap_num + 10;
417                 if (d1_tmap_num >= 287 && d1_tmap_num <= 297)
418                         return d1_tmap_num + 13;
419                 if (d1_tmap_num >= 299 && d1_tmap_num <= 314)
420                         return d1_tmap_num + 12;
421                 if (d1_tmap_num >= 316 && d1_tmap_num <= 326)
422                          return  d1_tmap_num + 11; // matching names but not matching textures
423                 // wall01 and door frames:
424                 if (d1_tmap_num > 370 && d1_tmap_num < 584) {
425                         if (New_file_format_load) return d1_tmap_num + 64;
426                         // d1 shareware needs special treatment:
427                         if (d1_tmap_num < 410) return d1_tmap_num + 68;
428                         if (d1_tmap_num < 417) return d1_tmap_num + 73;
429                         if (d1_tmap_num < 446) return d1_tmap_num + 91;
430                         if (d1_tmap_num < 453) return d1_tmap_num + 104;
431                         if (d1_tmap_num < 462) return d1_tmap_num + 111;
432                         if (d1_tmap_num < 486) return d1_tmap_num + 117;
433                         if (d1_tmap_num < 494) return d1_tmap_num + 141;
434                         if (d1_tmap_num < 584) return d1_tmap_num + 147;
435                 }
436                 { // handle rare case where orientation != 0
437                         short tmap_num = d1_tmap_num &  TMAP_NUM_MASK;
438                         short orient = d1_tmap_num & ~TMAP_NUM_MASK;
439                         if (orient != 0) {
440                                 return orient | convert_d1_tmap_num(tmap_num);
441                         } else {
442                                 Warning("can't convert unknown descent 1 texture #%d.\n", tmap_num);
443                                 return d1_tmap_num;
444                         }
445                 }
446         }
447 }
448
449 #ifdef EDITOR
450
451 static char old_tmap_list[MAX_TEXTURES][FILENAME_LEN];
452 short tmap_xlate_table[MAX_TEXTURES];
453 static short tmap_times_used[MAX_TEXTURES];
454
455 // -----------------------------------------------------------------------------
456 //loads from an already-open file
457 // returns 0=everything ok, 1=old version, -1=error
458 int load_mine_data(CFILE *LoadFile)
459 {
460         int   i, j,oldsizeadjust;
461         short tmap_xlate;
462         int     translate;
463         char    *temptr;
464         int     mine_start = cftell(LoadFile);
465
466         oldsizeadjust=(sizeof(int)*2)+sizeof (vms_matrix);
467         fuelcen_reset();
468
469         for (i=0; i<MAX_TEXTURES; i++ )
470                 tmap_times_used[i] = 0;
471
472         #ifdef EDITOR
473         // Create a new mine to initialize things.
474         //texpage_goto_first();
475         create_new_mine();
476         #endif
477
478         //===================== READ FILE INFO ========================
479
480         // These are the default values... version and fileinfo_sizeof
481         // don't have defaults.
482         mine_fileinfo.header_offset     =   -1;
483         mine_fileinfo.header_size       =   sizeof(mine_header);
484         mine_fileinfo.editor_offset     =   -1;
485         mine_fileinfo.editor_size       =   sizeof(mine_editor);
486         mine_fileinfo.vertex_offset     =   -1;
487         mine_fileinfo.vertex_howmany    =   0;
488         mine_fileinfo.vertex_sizeof     =   sizeof(vms_vector);
489         mine_fileinfo.segment_offset    =   -1;
490         mine_fileinfo.segment_howmany   =   0;
491         mine_fileinfo.segment_sizeof    =   sizeof(segment);
492         mine_fileinfo.newseg_verts_offset     =   -1;
493         mine_fileinfo.newseg_verts_howmany    =   0;
494         mine_fileinfo.newseg_verts_sizeof     =   sizeof(vms_vector);
495         mine_fileinfo.group_offset                =     -1;
496         mine_fileinfo.group_howmany       =     0;
497         mine_fileinfo.group_sizeof                =     sizeof(group);
498         mine_fileinfo.texture_offset    =   -1;
499         mine_fileinfo.texture_howmany   =   0;
500         mine_fileinfo.texture_sizeof    =   FILENAME_LEN;  // num characters in a name
501         mine_fileinfo.walls_offset                =     -1;
502         mine_fileinfo.walls_howmany       =     0;
503         mine_fileinfo.walls_sizeof                =     sizeof(wall);  
504         mine_fileinfo.triggers_offset     =     -1;
505         mine_fileinfo.triggers_howmany  =       0;
506         mine_fileinfo.triggers_sizeof     =     sizeof(trigger);  
507         mine_fileinfo.object_offset             =       -1;
508         mine_fileinfo.object_howmany            =       1;
509         mine_fileinfo.object_sizeof             =       sizeof(object);  
510
511         mine_fileinfo.level_shake_frequency             =       0;
512         mine_fileinfo.level_shake_duration              =       0;
513
514         //      Delta light stuff for blowing out light sources.
515 //      if (mine_top_fileinfo.fileinfo_version >= 19) {
516                 mine_fileinfo.dl_indices_offset         =       -1;
517                 mine_fileinfo.dl_indices_howmany                =       0;
518                 mine_fileinfo.dl_indices_sizeof         =       sizeof(dl_index);  
519
520                 mine_fileinfo.delta_light_offset                =       -1;
521                 mine_fileinfo.delta_light_howmany               =       0;
522                 mine_fileinfo.delta_light_sizeof                =       sizeof(delta_light);  
523
524 //      }
525
526         mine_fileinfo.segment2_offset           = -1;
527         mine_fileinfo.segment2_howmany  = 0;
528         mine_fileinfo.segment2_sizeof    = sizeof(segment2);
529
530         // Read in mine_top_fileinfo to get size of saved fileinfo.
531         
532         memset( &mine_top_fileinfo, 0, sizeof(mine_top_fileinfo) );
533
534         if (cfseek( LoadFile, mine_start, SEEK_SET ))
535                 Error( "Error moving to top of file in gamemine.c" );
536
537         if (cfread( &mine_top_fileinfo, sizeof(mine_top_fileinfo), 1, LoadFile )!=1)
538                 Error( "Error reading mine_top_fileinfo in gamemine.c" );
539
540         if (mine_top_fileinfo.fileinfo_signature != 0x2884)
541                 return -1;
542
543         // Check version number
544         if (mine_top_fileinfo.fileinfo_version < COMPATIBLE_VERSION )
545                 return -1;
546
547         // Now, Read in the fileinfo
548         if (cfseek( LoadFile, mine_start, SEEK_SET ))
549                 Error( "Error seeking to top of file in gamemine.c" );
550
551         if (cfread( &mine_fileinfo, mine_top_fileinfo.fileinfo_sizeof, 1, LoadFile )!=1)
552                 Error( "Error reading mine_fileinfo in gamemine.c" );
553
554         if (mine_top_fileinfo.fileinfo_version < 18) {
555                 mprintf((1, "Old version, setting shake intensity to 0.\n"));
556                 Level_shake_frequency = 0;
557                 Level_shake_duration = 0;
558                 Secret_return_segment = 0;
559                 Secret_return_orient = vmd_identity_matrix;
560         } else {
561                 Level_shake_frequency = mine_fileinfo.level_shake_frequency << 12;
562                 Level_shake_duration = mine_fileinfo.level_shake_duration << 12;
563                 Secret_return_segment = mine_fileinfo.secret_return_segment;
564                 Secret_return_orient = mine_fileinfo.secret_return_orient;
565         }
566
567         //===================== READ HEADER INFO ========================
568
569         // Set default values.
570         mine_header.num_vertices        =   0;
571         mine_header.num_segments        =   0;
572
573         if (mine_fileinfo.header_offset > -1 )
574         {
575                 if (cfseek( LoadFile, mine_fileinfo.header_offset, SEEK_SET ))
576                         Error( "Error seeking to header_offset in gamemine.c" );
577         
578                 if (cfread( &mine_header, mine_fileinfo.header_size, 1, LoadFile )!=1)
579                         Error( "Error reading mine_header in gamemine.c" );
580         }
581
582         //===================== READ EDITOR INFO ==========================
583
584         // Set default values
585         mine_editor.current_seg         =   0;
586         mine_editor.newsegment_offset   =   -1; // To be written
587         mine_editor.newsegment_size     =   sizeof(segment);
588         mine_editor.Curside             =   0;
589         mine_editor.Markedsegp          =   -1;
590         mine_editor.Markedside          =   0;
591
592         if (mine_fileinfo.editor_offset > -1 )
593         {
594                 if (cfseek( LoadFile, mine_fileinfo.editor_offset, SEEK_SET ))
595                         Error( "Error seeking to editor_offset in gamemine.c" );
596         
597                 if (cfread( &mine_editor, mine_fileinfo.editor_size, 1, LoadFile )!=1)
598                         Error( "Error reading mine_editor in gamemine.c" );
599         }
600
601         //===================== READ TEXTURE INFO ==========================
602
603         if ( (mine_fileinfo.texture_offset > -1) && (mine_fileinfo.texture_howmany > 0))
604         {
605                 if (cfseek( LoadFile, mine_fileinfo.texture_offset, SEEK_SET ))
606                         Error( "Error seeking to texture_offset in gamemine.c" );
607
608                 for (i=0; i< mine_fileinfo.texture_howmany; i++ )
609                 {
610                         if (cfread( &old_tmap_list[i], mine_fileinfo.texture_sizeof, 1, LoadFile )!=1)
611                                 Error( "Error reading old_tmap_list[i] in gamemine.c" );
612                 }
613         }
614
615         //=============== GENERATE TEXTURE TRANSLATION TABLE ===============
616
617         translate = 0;
618         
619         Assert (NumTextures < MAX_TEXTURES);
620
621         {
622                 hashtable ht;
623         
624                 hashtable_init( &ht, NumTextures );
625         
626                 // Remove all the file extensions in the textures list
627         
628                 for (i=0;i<NumTextures;i++)     {
629                         temptr = strchr(TmapInfo[i].filename, '.');
630                         if (temptr) *temptr = '\0';
631                         hashtable_insert( &ht, TmapInfo[i].filename, i );
632                 }
633         
634                 // For every texture, search through the texture list
635                 // to find a matching name.
636                 for (j=0;j<mine_fileinfo.texture_howmany;j++)   {
637                         // Remove this texture name's extension
638                         temptr = strchr(old_tmap_list[j], '.');
639                         if (temptr) *temptr = '\0';
640         
641                         tmap_xlate_table[j] = hashtable_search( &ht,old_tmap_list[j]);
642                         if (tmap_xlate_table[j] < 0 )   {
643                                 //tmap_xlate_table[j] = 0;
644                                 // mprintf( (0, "Couldn't find texture '%s'\n", old_tmap_list[j] ));
645                                 ;
646                         }
647                         if (tmap_xlate_table[j] != j ) translate = 1;
648                         if (tmap_xlate_table[j] >= 0)
649                                 tmap_times_used[tmap_xlate_table[j]]++;
650                 }
651         
652                 {
653                         int count = 0;
654                         for (i=0; i<MAX_TEXTURES; i++ )
655                                 if (tmap_times_used[i])
656                                         count++;
657                         mprintf( (0, "This mine has %d unique textures in it (~%d KB)\n", count, (count*4096) /1024 ));
658                 }
659         
660                 // -- mprintf( (0, "Translate=%d\n", translate ));
661         
662                 hashtable_free( &ht );
663         }
664
665         //====================== READ VERTEX INFO ==========================
666
667         // New check added to make sure we don't read in too many vertices.
668         if ( mine_fileinfo.vertex_howmany > MAX_VERTICES )
669                 {
670                 mprintf((0, "Num vertices exceeds maximum.  Loading MAX %d vertices\n", MAX_VERTICES));
671                 mine_fileinfo.vertex_howmany = MAX_VERTICES;
672                 }
673
674         if ( (mine_fileinfo.vertex_offset > -1) && (mine_fileinfo.vertex_howmany > 0))
675         {
676                 if (cfseek( LoadFile, mine_fileinfo.vertex_offset, SEEK_SET ))
677                         Error( "Error seeking to vertex_offset in gamemine.c" );
678
679                 for (i=0; i< mine_fileinfo.vertex_howmany; i++ )
680                 {
681                         // Set the default values for this vertex
682                         Vertices[i].x = 1;
683                         Vertices[i].y = 1;
684                         Vertices[i].z = 1;
685
686                         if (cfread( &Vertices[i], mine_fileinfo.vertex_sizeof, 1, LoadFile )!=1)
687                                 Error( "Error reading Vertices[i] in gamemine.c" );
688                 }
689         }
690
691         //==================== READ SEGMENT INFO ===========================
692
693         // New check added to make sure we don't read in too many segments.
694         if ( mine_fileinfo.segment_howmany > MAX_SEGMENTS ) {
695                 mprintf((0, "Num segments exceeds maximum.  Loading MAX %d segments\n", MAX_SEGMENTS));
696                 mine_fileinfo.segment_howmany = MAX_SEGMENTS;
697                 mine_fileinfo.segment2_howmany = MAX_SEGMENTS;
698         }
699
700         // [commented out by mk on 11/20/94 (weren't we supposed to hit final in October?) because it looks redundant.  I think I'll test it now...]  fuelcen_reset();
701
702         if ( (mine_fileinfo.segment_offset > -1) && (mine_fileinfo.segment_howmany > 0))        {
703
704                 if (cfseek( LoadFile, mine_fileinfo.segment_offset,SEEK_SET ))
705
706                         Error( "Error seeking to segment_offset in gamemine.c" );
707
708                 Highest_segment_index = mine_fileinfo.segment_howmany-1;
709
710                 for (i=0; i< mine_fileinfo.segment_howmany; i++ ) {
711
712                         // Set the default values for this segment (clear to zero )
713                         //memset( &Segments[i], 0, sizeof(segment) );
714
715                         if (mine_top_fileinfo.fileinfo_version < 20) {
716                                 v16_segment v16_seg;
717
718                                 Assert(mine_fileinfo.segment_sizeof == sizeof(v16_seg));
719
720                                 if (cfread( &v16_seg, mine_fileinfo.segment_sizeof, 1, LoadFile )!=1)
721                                         Error( "Error reading segments in gamemine.c" );
722
723                                 #ifdef EDITOR
724                                 Segments[i].segnum = v16_seg.segnum;
725                                 // -- Segments[i].pad = v16_seg.pad;
726                                 #endif
727
728                                 for (j=0; j<MAX_SIDES_PER_SEGMENT; j++)
729                                         Segments[i].sides[j] = v16_seg.sides[j];
730
731                                 for (j=0; j<MAX_SIDES_PER_SEGMENT; j++)
732                                         Segments[i].children[j] = v16_seg.children[j];
733
734                                 for (j=0; j<MAX_VERTICES_PER_SEGMENT; j++)
735                                         Segments[i].verts[j] = v16_seg.verts[j];
736
737                                 Segment2s[i].special = v16_seg.special;
738                                 Segment2s[i].value = v16_seg.value;
739                                 Segment2s[i].s2_flags = 0;
740                                 Segment2s[i].matcen_num = v16_seg.matcen_num;
741                                 Segment2s[i].static_light = v16_seg.static_light;
742                                 fuelcen_activate( &Segments[i], Segment2s[i].special );
743
744                         } else  {
745                                 if (cfread( &Segments[i], mine_fileinfo.segment_sizeof, 1, LoadFile )!=1)
746                                         Error("Unable to read segment %i\n", i);
747                         }
748
749                         Segments[i].objects = -1;
750                         #ifdef EDITOR
751                         Segments[i].group = -1;
752                         #endif
753
754                         if (mine_top_fileinfo.fileinfo_version < 15) {  //used old uvl ranges
755                                 int sn,uvln;
756
757                                 for (sn=0;sn<MAX_SIDES_PER_SEGMENT;sn++)
758                                         for (uvln=0;uvln<4;uvln++) {
759                                                 Segments[i].sides[sn].uvls[uvln].u /= 64;
760                                                 Segments[i].sides[sn].uvls[uvln].v /= 64;
761                                                 Segments[i].sides[sn].uvls[uvln].l /= 32;
762                                         }
763                         }
764
765                         if (translate == 1)
766                                 for (j=0;j<MAX_SIDES_PER_SEGMENT;j++) {
767                                         unsigned short orient;
768                                         tmap_xlate = Segments[i].sides[j].tmap_num;
769                                         Segments[i].sides[j].tmap_num = tmap_xlate_table[tmap_xlate];
770                                         if ((WALL_IS_DOORWAY(&Segments[i],j) & WID_RENDER_FLAG))
771                                                 if (Segments[i].sides[j].tmap_num < 0)  {
772                                                         mprintf( (0, "Couldn't find texture '%s' for Segment %d, side %d\n", old_tmap_list[tmap_xlate],i,j));
773                                                         Int3();
774                                                         Segments[i].sides[j].tmap_num = NumTextures-1;
775                                                 }
776                                         tmap_xlate = Segments[i].sides[j].tmap_num2 & TMAP_NUM_MASK;
777                                         orient = Segments[i].sides[j].tmap_num2 & (~TMAP_NUM_MASK);
778                                         if (tmap_xlate != 0) {
779                                                 int xlated_tmap = tmap_xlate_table[tmap_xlate];
780
781                                                 if ((WALL_IS_DOORWAY(&Segments[i],j) & WID_RENDER_FLAG))
782                                                         if (xlated_tmap <= 0)   {
783                                                                 mprintf( (0, "Couldn't find texture '%s' for Segment %d, side %d\n", old_tmap_list[tmap_xlate],i,j));
784                                                                 Int3();
785                                                                 Segments[i].sides[j].tmap_num2 = NumTextures-1;
786                                                         }
787                                                 Segments[i].sides[j].tmap_num2 = xlated_tmap | orient;
788                                         }
789                                 }
790                 }
791
792
793                 if (mine_top_fileinfo.fileinfo_version >= 20)
794                         for (i=0; i<=Highest_segment_index; i++) {
795                                 cfread(&Segment2s[i], sizeof(segment2), 1, LoadFile);
796                                 fuelcen_activate( &Segments[i], Segment2s[i].special );
797                         }
798         }
799
800         //===================== READ NEWSEGMENT INFO =====================
801
802         #ifdef EDITOR
803
804         {               // Default segment created.
805                 vms_vector      sizevec;
806                 med_create_new_segment(vm_vec_make(&sizevec,DEFAULT_X_SIZE,DEFAULT_Y_SIZE,DEFAULT_Z_SIZE));             // New_segment = Segments[0];
807                 //memset( &New_segment, 0, sizeof(segment) );
808         }
809
810         if (mine_editor.newsegment_offset > -1)
811         {
812                 if (cfseek( LoadFile, mine_editor.newsegment_offset,SEEK_SET ))
813                         Error( "Error seeking to newsegment_offset in gamemine.c" );
814                 if (cfread( &New_segment, mine_editor.newsegment_size,1,LoadFile )!=1)
815                         Error( "Error reading new_segment in gamemine.c" );
816         }
817
818         if ( (mine_fileinfo.newseg_verts_offset > -1) && (mine_fileinfo.newseg_verts_howmany > 0))
819         {
820                 if (cfseek( LoadFile, mine_fileinfo.newseg_verts_offset, SEEK_SET ))
821                         Error( "Error seeking to newseg_verts_offset in gamemine.c" );
822                 for (i=0; i< mine_fileinfo.newseg_verts_howmany; i++ )
823                 {
824                         // Set the default values for this vertex
825                         Vertices[NEW_SEGMENT_VERTICES+i].x = 1;
826                         Vertices[NEW_SEGMENT_VERTICES+i].y = 1;
827                         Vertices[NEW_SEGMENT_VERTICES+i].z = 1;
828                         
829                         if (cfread( &Vertices[NEW_SEGMENT_VERTICES+i], mine_fileinfo.newseg_verts_sizeof,1,LoadFile )!=1)
830                                 Error( "Error reading Vertices[NEW_SEGMENT_VERTICES+i] in gamemine.c" );
831
832                         New_segment.verts[i] = NEW_SEGMENT_VERTICES+i;
833                 }
834         }
835
836         #endif
837                                                                                                                         
838         //========================= UPDATE VARIABLES ======================
839
840         #ifdef EDITOR
841
842         // Setting to Markedsegp to NULL ignores Curside and Markedside, which
843         // we want to do when reading in an old file.
844         
845         Markedside = mine_editor.Markedside;
846         Curside = mine_editor.Curside;
847         for (i=0;i<10;i++)
848                 Groupside[i] = mine_editor.Groupside[i];
849
850         if ( mine_editor.current_seg != -1 )
851                 Cursegp = mine_editor.current_seg + Segments;
852         else
853                 Cursegp = NULL;
854
855         if (mine_editor.Markedsegp != -1 ) 
856                 Markedsegp = mine_editor.Markedsegp + Segments;
857         else
858                 Markedsegp = NULL;
859
860         num_groups = 0;
861         current_group = -1;
862
863         #endif
864
865         Num_vertices = mine_fileinfo.vertex_howmany;
866         Num_segments = mine_fileinfo.segment_howmany;
867         Highest_vertex_index = Num_vertices-1;
868         Highest_segment_index = Num_segments-1;
869
870         reset_objects(1);               //one object, the player
871
872         #ifdef EDITOR
873         Highest_vertex_index = MAX_SEGMENT_VERTICES-1;
874         Highest_segment_index = MAX_SEGMENTS-1;
875         set_vertex_counts();
876         Highest_vertex_index = Num_vertices-1;
877         Highest_segment_index = Num_segments-1;
878
879         warn_if_concave_segments();
880         #endif
881
882         #ifdef EDITOR
883                 validate_segment_all();
884         #endif
885
886         //create_local_segment_data();
887
888         //gamemine_find_textures();
889
890         if (mine_top_fileinfo.fileinfo_version < MINE_VERSION )
891                 return 1;               //old version
892         else
893                 return 0;
894
895 }
896 #endif
897
898 #define COMPILED_MINE_VERSION 0
899
900 void read_children(int segnum,ubyte bit_mask,CFILE *LoadFile)
901 {
902         int bit;
903
904         for (bit=0; bit<MAX_SIDES_PER_SEGMENT; bit++) {
905                 if (bit_mask & (1 << bit)) {
906                         Segments[segnum].children[bit] = cfile_read_short(LoadFile);
907                 } else
908                         Segments[segnum].children[bit] = -1;
909         }
910 }
911
912 void read_verts(int segnum,CFILE *LoadFile)
913 {
914         int i;
915         // Read short Segments[segnum].verts[MAX_VERTICES_PER_SEGMENT]
916         for (i = 0; i < MAX_VERTICES_PER_SEGMENT; i++)
917                 Segments[segnum].verts[i] = cfile_read_short(LoadFile);
918 }
919
920 void read_special(int segnum,ubyte bit_mask,CFILE *LoadFile)
921 {
922         if (bit_mask & (1 << MAX_SIDES_PER_SEGMENT)) {
923                 // Read ubyte   Segment2s[segnum].special
924                 Segment2s[segnum].special = cfile_read_byte(LoadFile);
925                 // Read byte    Segment2s[segnum].matcen_num
926                 Segment2s[segnum].matcen_num = cfile_read_byte(LoadFile);
927                 // Read short   Segment2s[segnum].value
928                 Segment2s[segnum].value = cfile_read_short(LoadFile);
929         } else {
930                 Segment2s[segnum].special = 0;
931                 Segment2s[segnum].matcen_num = -1;
932                 Segment2s[segnum].value = 0;
933         }
934 }
935
936 int load_mine_data_compiled(CFILE *LoadFile)
937 {
938         int     i, segnum, sidenum;
939         ubyte   compiled_version;
940         short   temp_short;
941         ushort  temp_ushort = 0;
942         ubyte   bit_mask;
943
944         d1_pig_present = cfexist(D1_PIGFILE);
945 #if 0 // the following will be deleted once reading old pigfiles works reliably
946         if (d1_pig_present) {
947                 CFILE * d1_Piggy_fp = cfopen( D1_PIGFILE, "rb" );
948                 switch (cfilelength(d1_Piggy_fp)) {
949                 case D1_SHARE_BIG_PIGSIZE:
950                 case D1_SHARE_10_PIGSIZE:
951                 case D1_SHARE_PIGSIZE:
952                 case D1_10_BIG_PIGSIZE:
953                 case D1_10_PIGSIZE:
954                         //d1_pig_present = 0;
955                 }
956                 cfclose (d1_Piggy_fp);
957         }
958 #endif
959
960         if (!strcmp(strchr(Gamesave_current_filename, '.'), ".sdl"))
961                 New_file_format_load = 0; // descent 1 shareware
962         else
963                 New_file_format_load = 1;
964
965         //      For compiled levels, textures map to themselves, prevent tmap_override always being gray,
966         //      bug which Matt and John refused to acknowledge, so here is Mike, fixing it.
967 #ifdef EDITOR
968         for (i=0; i<MAX_TEXTURES; i++)
969                 tmap_xlate_table[i] = i;
970 #endif
971
972 //      memset( Segments, 0, sizeof(segment)*MAX_SEGMENTS );
973         fuelcen_reset();
974
975         //=============================== Reading part ==============================
976         compiled_version = cfile_read_byte(LoadFile);
977         //Assert( compiled_version==COMPILED_MINE_VERSION );
978         if (compiled_version!=COMPILED_MINE_VERSION)
979                 mprintf((0,"compiled mine version=%i\n", compiled_version)); //many levels have "wrong" versions.  Theres no point in aborting because of it, I think.
980
981         if (New_file_format_load)
982                 Num_vertices = cfile_read_short(LoadFile);
983         else
984                 Num_vertices = cfile_read_int(LoadFile);
985         Assert( Num_vertices <= MAX_VERTICES );
986
987         if (New_file_format_load)
988                 Num_segments = cfile_read_short(LoadFile);
989         else
990                 Num_segments = cfile_read_int(LoadFile);
991         Assert( Num_segments <= MAX_SEGMENTS );
992
993         for (i = 0; i < Num_vertices; i++)
994                 cfile_read_vector( &(Vertices[i]), LoadFile);
995
996         for (segnum=0; segnum<Num_segments; segnum++ )  {
997
998                 #ifdef EDITOR
999                 Segments[segnum].segnum = segnum;
1000                 Segments[segnum].group = 0;
1001                 #endif
1002
1003                 if (New_file_format_load)
1004                         bit_mask = cfile_read_byte(LoadFile);
1005                 else
1006                         bit_mask = 0x7f; // read all six children and special stuff...
1007
1008                 if (Gamesave_current_version == 5) { // d2 SHAREWARE level
1009                         read_special(segnum,bit_mask,LoadFile);
1010                         read_verts(segnum,LoadFile);
1011                         read_children(segnum,bit_mask,LoadFile);
1012                 } else {
1013                         read_children(segnum,bit_mask,LoadFile);
1014                         read_verts(segnum,LoadFile);
1015                         if (Gamesave_current_version <= 1) { // descent 1 level
1016                                 read_special(segnum,bit_mask,LoadFile);
1017                         }
1018                 }
1019
1020                 Segments[segnum].objects = -1;
1021
1022                 if (Gamesave_current_version <= 5) { // descent 1 thru d2 SHAREWARE level
1023                         // Read fix     Segments[segnum].static_light (shift down 5 bits, write as short)
1024                         temp_ushort = cfile_read_short(LoadFile);
1025                         Segment2s[segnum].static_light  = ((fix)temp_ushort) << 4;
1026                         //cfread( &Segments[segnum].static_light, sizeof(fix), 1, LoadFile );
1027                 }
1028
1029                 // Read the walls as a 6 byte array
1030                 for (sidenum=0; sidenum<MAX_SIDES_PER_SEGMENT; sidenum++ )      {
1031                         Segments[segnum].sides[sidenum].pad = 0;
1032                 }
1033
1034                 if (New_file_format_load)
1035                         bit_mask = cfile_read_byte(LoadFile);
1036                 else
1037                         bit_mask = 0x3f; // read all six sides
1038                 for (sidenum=0; sidenum<MAX_SIDES_PER_SEGMENT; sidenum++) {
1039                         ubyte byte_wallnum;
1040
1041                         if (bit_mask & (1 << sidenum)) {
1042                                 byte_wallnum = cfile_read_byte(LoadFile);
1043                                 if ( byte_wallnum == 255 )
1044                                         Segments[segnum].sides[sidenum].wall_num = -1;
1045                                 else
1046                                         Segments[segnum].sides[sidenum].wall_num = byte_wallnum;
1047                         } else
1048                                         Segments[segnum].sides[sidenum].wall_num = -1;
1049                 }
1050
1051                 for (sidenum=0; sidenum<MAX_SIDES_PER_SEGMENT; sidenum++ )      {
1052
1053                         if ( (Segments[segnum].children[sidenum]==-1) || (Segments[segnum].sides[sidenum].wall_num!=-1) )       {
1054                                 // Read short Segments[segnum].sides[sidenum].tmap_num;
1055                                 if (New_file_format_load) {
1056                                         temp_ushort = cfile_read_short(LoadFile);
1057                                         Segments[segnum].sides[sidenum].tmap_num = temp_ushort & 0x7fff;
1058                                 } else
1059                                         Segments[segnum].sides[sidenum].tmap_num = cfile_read_short(LoadFile);
1060
1061                                 if (Gamesave_current_version <= 1)
1062                                         Segments[segnum].sides[sidenum].tmap_num = convert_d1_tmap_num(Segments[segnum].sides[sidenum].tmap_num);
1063
1064                                 if (New_file_format_load && !(temp_ushort & 0x8000))
1065                                         Segments[segnum].sides[sidenum].tmap_num2 = 0;
1066                                 else {
1067                                         // Read short Segments[segnum].sides[sidenum].tmap_num2;
1068                                         Segments[segnum].sides[sidenum].tmap_num2 = cfile_read_short(LoadFile);
1069                                         if (Gamesave_current_version <= 1 && Segments[segnum].sides[sidenum].tmap_num2 != 0)
1070                                                 Segments[segnum].sides[sidenum].tmap_num2 = convert_d1_tmap_num(Segments[segnum].sides[sidenum].tmap_num2);
1071                                 }
1072
1073                                 // Read uvl Segments[segnum].sides[sidenum].uvls[4] (u,v>>5, write as short, l>>1 write as short)
1074                                 for (i=0; i<4; i++ )    {
1075                                         temp_short = cfile_read_short(LoadFile);
1076                                         Segments[segnum].sides[sidenum].uvls[i].u = ((fix)temp_short) << 5;
1077                                         temp_short = cfile_read_short(LoadFile);
1078                                         Segments[segnum].sides[sidenum].uvls[i].v = ((fix)temp_short) << 5;
1079                                         temp_ushort = cfile_read_short(LoadFile);
1080                                         Segments[segnum].sides[sidenum].uvls[i].l = ((fix)temp_ushort) << 1;
1081                                         //cfread( &Segments[segnum].sides[sidenum].uvls[i].l, sizeof(fix), 1, LoadFile );
1082                                 }
1083                         } else {
1084                                 Segments[segnum].sides[sidenum].tmap_num = 0;
1085                                 Segments[segnum].sides[sidenum].tmap_num2 = 0;
1086                                 for (i=0; i<4; i++ )    {
1087                                         Segments[segnum].sides[sidenum].uvls[i].u = 0;
1088                                         Segments[segnum].sides[sidenum].uvls[i].v = 0;
1089                                         Segments[segnum].sides[sidenum].uvls[i].l = 0;
1090                                 }
1091                         }
1092                 }
1093         }
1094
1095 #if 0
1096         {
1097                 FILE *fp;
1098
1099                 fp = fopen("segments.out", "wt");
1100                 for (i = 0; i <= Highest_segment_index; i++) {
1101                         side    sides[MAX_SIDES_PER_SEGMENT];   // 6 sides
1102                         short   children[MAX_SIDES_PER_SEGMENT];        // indices of 6 children segments, front, left, top, right, bottom, back
1103                         short   verts[MAX_VERTICES_PER_SEGMENT];        // vertex ids of 4 front and 4 back vertices
1104                         int             objects;                                                                // pointer to objects in this segment
1105
1106                         for (j = 0; j < MAX_SIDES_PER_SEGMENT; j++) {
1107                                 sbyte   type;                           // replaces num_faces and tri_edge, 1 = quad, 2 = 0:2 triangulation, 3 = 1:3 triangulation
1108                                 ubyte   pad;                                                                    //keep us longword alligned
1109                                 short   wall_num;
1110                                 short   tmap_num;
1111                                 short   tmap_num2;
1112                                 uvl             uvls[4];
1113                                 vms_vector      normals[2];                                             // 2 normals, if quadrilateral, both the same.
1114                                 fprintf(fp, "%d\n", Segments[i].sides[j].type);
1115                                 fprintf(fp, "%d\n", Segments[i].sides[j].pad);
1116                                 fprintf(fp, "%d\n", Segments[i].sides[j].wall_num);
1117                                 fprintf(fp, "%d\n", Segments[i].tmap_num);
1118
1119                         }
1120                         fclose(fp);
1121                 }
1122         }
1123 #endif
1124
1125         Highest_vertex_index = Num_vertices-1;
1126         Highest_segment_index = Num_segments-1;
1127
1128         validate_segment_all();                 // Fill in side type and normals.
1129
1130         for (i=0; i<Num_segments; i++) {
1131                 if (Gamesave_current_version > 5)
1132                         segment2_read(&Segment2s[i], LoadFile);
1133                 fuelcen_activate( &Segments[i], Segment2s[i].special );
1134         }
1135
1136         reset_objects(1);               //one object, the player
1137
1138         return 0;
1139 }