1 | Public Type LWOPolygon |
---|
2 | NumVe As Integer |
---|
3 | P1 As Integer |
---|
4 | P2 As Integer |
---|
5 | P3 As Integer |
---|
6 | Surfa As Integer |
---|
7 | End Type |
---|
8 | |
---|
9 | Public Type PolDef |
---|
10 | P1 As Integer |
---|
11 | P2 As Integer |
---|
12 | P3 As Integer |
---|
13 | End Type |
---|
14 | |
---|
15 | 'Texture Coordinate Entry |
---|
16 | Public Type TXCAentry |
---|
17 | X As Single |
---|
18 | Y As Single |
---|
19 | End Type |
---|
20 | |
---|
21 | 'Texture Coordinate Lists |
---|
22 | Public Type TXCA 'Length |
---|
23 | ID As Long '4 |
---|
24 | Version As Long '8 |
---|
25 | Filler(1 To 5) As Long '28 |
---|
26 | NumEntries As Long '32 |
---|
27 | End Type |
---|
28 | |
---|
29 | 'Level Data Reference List |
---|
30 | Public Type ONLV 'Length |
---|
31 | ID As Long '4 |
---|
32 | Version As Long '8 |
---|
33 | LevelName As String * 64 '72 |
---|
34 | AKEVid As Long '76 |
---|
35 | OBOAid As Long '80 |
---|
36 | ONMAid As Long '84 |
---|
37 | ONFAid As Long '88 |
---|
38 | ONTAid As Long '92 |
---|
39 | ONSKid As Long '96 |
---|
40 | Unkn As Long '100 |
---|
41 | AISAid As Long '104 |
---|
42 | AITRid As Long '108 |
---|
43 | ONSAid As Long '112 |
---|
44 | OBDCid As Long '116 |
---|
45 | ONOAid As Long '120 |
---|
46 | Fill(1 To 161) As Long '764 |
---|
47 | CRSAid As Long '768 |
---|
48 | End Type |
---|
49 | |
---|
50 | Public Type AGQG |
---|
51 | ID As Long |
---|
52 | unk(1 To 24) As Byte |
---|
53 | NumEntries As Long |
---|
54 | End Type |
---|
55 | |
---|
56 | Public Type AGQGEntry |
---|
57 | VertIndex(1 To 4) As Long |
---|
58 | VertUVIndex(1 To 4) As Long |
---|
59 | LData_1(1 To 4) As Byte |
---|
60 | LData_2(1 To 4) As Byte |
---|
61 | LData_3(1 To 4) As Byte |
---|
62 | LData_4(1 To 4) As Byte |
---|
63 | unk(1 To 2) As Long |
---|
64 | End Type |
---|
65 | |
---|
66 | Public Type AGQREntry |
---|
67 | TexIndex As Integer |
---|
68 | unk As Integer |
---|
69 | End Type |
---|
70 | |
---|
71 | Public Type TXMA |
---|
72 | ID As Long |
---|
73 | shit(1 To 24) As Byte |
---|
74 | NumEntries As Long |
---|
75 | End Type |
---|
76 | |
---|
77 | Public Type TXMAEntry |
---|
78 | TXMP_ID As Long |
---|
79 | End Type |
---|
80 | |
---|
81 | |
---|
82 | |
---|
83 | |
---|
84 | |
---|
85 | Public Sub CExportONLV(Optional FileName As String) |
---|
86 | Form1.StatusBar1.SimpleText = "Status: Extracting LEVEL....." |
---|
87 | Dim ID4 As Long |
---|
88 | Dim I As Long |
---|
89 | Dim L As Long |
---|
90 | Dim LwoP() As LWOPolygon |
---|
91 | Dim OniPol2() As PolDef |
---|
92 | Dim NP As Long |
---|
93 | Dim numb As Long |
---|
94 | |
---|
95 | Dim TXMA1 As TXMA |
---|
96 | Dim AGQR1 As TXMA |
---|
97 | Dim TXCA1 As TXCA |
---|
98 | Dim TXCA_E() As TXCAentry |
---|
99 | Dim TXMA_E() As TXMAEntry |
---|
100 | Dim AGQR_E() As AGQREntry |
---|
101 | Dim TexNames() As String |
---|
102 | |
---|
103 | If FileName = "" Then |
---|
104 | Form1.CD.DialogTitle = "Unpack resource..." |
---|
105 | Form1.CD.FileName = OniEntry(Curr).szTagName |
---|
106 | Form1.CD.Filter = "LightWave (*.lwo)|*.lwo" |
---|
107 | Form1.CD.Flags = &H2 + &H4 |
---|
108 | Form1.CD.ShowSave |
---|
109 | FileName = Form1.CD.FileName |
---|
110 | If FileName = "" Then Exit Sub |
---|
111 | End If |
---|
112 | |
---|
113 | DoEvents |
---|
114 | |
---|
115 | Open DatFile For Binary As #1 |
---|
116 | Get 1, OniEntry(Curr).rDataPosition, ONLV |
---|
117 | For I = 0 To UBound(OniEntry) - 1 |
---|
118 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
119 | If ID4 = ONLV.AKEVid Then |
---|
120 | Get 1, OniEntry(I).rDataPosition, AKEV |
---|
121 | Exit For |
---|
122 | End If |
---|
123 | Next I |
---|
124 | |
---|
125 | 'Find ID of PNTA |
---|
126 | For I = 0 To UBound(OniEntry) - 1 |
---|
127 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
128 | If ID4 = AKEV.PNTAid Then |
---|
129 | Get 1, OniEntry(I).rDataPosition, PNTA |
---|
130 | ReDim PNTAentry(PNTA.NumEntries - 1) |
---|
131 | Get 1, , PNTAentry |
---|
132 | Exit For |
---|
133 | End If |
---|
134 | Next I |
---|
135 | |
---|
136 | For I = 0 To UBound(OniEntry) - 1 |
---|
137 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
138 | If ID4 = AKEV.AGQGid Then |
---|
139 | Get 1, OniEntry(I).rDataPosition, AGQG |
---|
140 | ReDim AGQGEntry(AGQG.NumEntries - 1) |
---|
141 | Get 1, , AGQGEntry |
---|
142 | Exit For |
---|
143 | End If |
---|
144 | Next I |
---|
145 | |
---|
146 | 'TXCA |
---|
147 | For I = 0 To UBound(OniEntry) - 1 |
---|
148 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
149 | If ID4 = AKEV.TXCAid Then |
---|
150 | Get 1, OniEntry(I).rDataPosition, TXCA1 |
---|
151 | ReDim TXCA_E(TXCA1.NumEntries - 1) |
---|
152 | Get 1, , TXCA_E |
---|
153 | ReDim Preserve TXCA_E(PNTA.NumEntries - 1) |
---|
154 | Exit For |
---|
155 | End If |
---|
156 | Next I |
---|
157 | |
---|
158 | 'TXMA |
---|
159 | For I = 0 To UBound(OniEntry) - 1 |
---|
160 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
161 | If ID4 = AKEV.TXMAid Then |
---|
162 | Get 1, OniEntry(I).rDataPosition, TXMA1 |
---|
163 | ReDim TXMA_E(TXMA1.NumEntries - 1) |
---|
164 | Get 1, , TXMA_E |
---|
165 | Exit For |
---|
166 | End If |
---|
167 | Next I |
---|
168 | |
---|
169 | 'AGQR |
---|
170 | For I = 0 To UBound(OniEntry) - 1 |
---|
171 | Get 1, OniEntry(I).rDataPosition, ID4 |
---|
172 | If ID4 = AKEV.AGQRid Then |
---|
173 | Get 1, OniEntry(I).rDataPosition, AGQR1 |
---|
174 | ReDim AGQR_E(AGQR1.NumEntries - 1) |
---|
175 | Get 1, , AGQR_E |
---|
176 | Exit For |
---|
177 | End If |
---|
178 | Next I |
---|
179 | |
---|
180 | ReDim TexNames(TXMA1.NumEntries - 1) |
---|
181 | |
---|
182 | For I = 0 To TXMA1.NumEntries - 1 |
---|
183 | For L = 0 To UBound(OniEntry) - 1 |
---|
184 | Get 1, OniEntry(L).rDataPosition, ID4 |
---|
185 | If ID4 = TXMA_E(I).TXMP_ID Then |
---|
186 | TexNames(I) = OniEntry(L).szTagName + Ext |
---|
187 | Exit For |
---|
188 | End If |
---|
189 | Next L |
---|
190 | Next I |
---|
191 | |
---|
192 | Close |
---|
193 | 'Ok |
---|
194 | ' so we have: 3D points, Texture coordinates and list of polygons, |
---|
195 | ' end reading, now convert data |
---|
196 | I = 0 |
---|
197 | Open App.Path + "\lwo.tmp" For Binary As #11 |
---|
198 | Form1.StatusBar1.SimpleText = "Status: Extracting LEVEL [Reading Polygons...]" |
---|
199 | Seek 11, 1 |
---|
200 | |
---|
201 | 'reading polygons....... |
---|
202 | |
---|
203 | NP = AGQG.NumEntries * 2 |
---|
204 | For I = 0 To AGQG.NumEntries - 1 |
---|
205 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
206 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
207 | NP = NP - 2 |
---|
208 | Case Else |
---|
209 | Select Case Mid$(GetPureFile(TexNames(AGQR_E(I).TexIndex)), 1, 5) |
---|
210 | Case "_DOOR" |
---|
211 | NP = NP - 2 |
---|
212 | Case Else |
---|
213 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(1)) |
---|
214 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(2)) |
---|
215 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(3)) |
---|
216 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(3)) |
---|
217 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(4)) |
---|
218 | Put 11, , TestSwapInt(AGQGEntry(I).VertIndex(1)) |
---|
219 | End Select |
---|
220 | End Select |
---|
221 | Next I |
---|
222 | |
---|
223 | |
---|
224 | |
---|
225 | ReDim OniPol2(NP - 1) |
---|
226 | ReDim LwoP(NP - 1) |
---|
227 | Get 11, 1, OniPol2 |
---|
228 | |
---|
229 | For I = 0 To NP - 1 |
---|
230 | LwoP(I).NumVe = ISItoMSI(3) |
---|
231 | LwoP(I).P1 = OniPol2(I).P1 |
---|
232 | LwoP(I).P2 = OniPol2(I).P2 |
---|
233 | LwoP(I).P3 = OniPol2(I).P3 |
---|
234 | LwoP(I).Surfa = ISItoMSI(1) |
---|
235 | Next I |
---|
236 | |
---|
237 | I = Empty |
---|
238 | |
---|
239 | Close |
---|
240 | |
---|
241 | On Error Resume Next |
---|
242 | Kill App.Path + "\*.tmp" |
---|
243 | On Error GoTo 0 |
---|
244 | |
---|
245 | Form1.StatusBar1.SimpleText = "Status: Extracting LEVEL [Writing...]" |
---|
246 | Form1.ProgressBar1.Max = PNTA.NumEntries |
---|
247 | Form1.ProgressBar1.Value = 0 |
---|
248 | If LevelType = 5 Or LevelType = 10 Then |
---|
249 | FileName = GetPureFile(FileName) + ".raw" |
---|
250 | End If |
---|
251 | |
---|
252 | For I = 0 To PNTA.NumEntries - 1 |
---|
253 | If PNTAentry(I).X > 2000000.1 Then PNTAentry(I).X = 0 |
---|
254 | If PNTAentry(I).Y > 2000000.1 Then PNTAentry(I).Y = 0 |
---|
255 | If PNTAentry(I).Z > 2000000.1 Then PNTAentry(I).Z = 0 |
---|
256 | If PNTAentry(I).X < -2000000.1 Then PNTAentry(I).X = 0 |
---|
257 | If PNTAentry(I).Y < -2000000.1 Then PNTAentry(I).Y = 0 |
---|
258 | If PNTAentry(I).Z < -2000000.1 Then PNTAentry(I).Z = 0 |
---|
259 | Next I |
---|
260 | |
---|
261 | Select Case LevelType |
---|
262 | Case 1 |
---|
263 | |
---|
264 | Open FileName For Binary As #1 |
---|
265 | Put 1, , "FORM" |
---|
266 | Put 1, , ISLtoMSL(12 + (PNTA.NumEntries * 12) + 8 + 6 + 8 + (NP * 10)) |
---|
267 | Put 1, , "LWOBPNTS" |
---|
268 | Put 1, , ISLtoMSL(PNTA.NumEntries * 12) |
---|
269 | For I = 0 To PNTA.NumEntries - 1 |
---|
270 | Put 1, , SwapFloat(PNTAentry(I).X) |
---|
271 | Put 1, , SwapFloat(PNTAentry(I).Y) |
---|
272 | Put 1, , SwapFloat(PNTAentry(I).Z) |
---|
273 | Form1.ProgressBar1.Value = I |
---|
274 | Next I |
---|
275 | Put 1, , "SRFS" |
---|
276 | Put 1, , ISLtoMSL(6) |
---|
277 | Put 1, , "Level" |
---|
278 | Put 1, , CByte(0) |
---|
279 | Put 1, , "POLS" |
---|
280 | Put 1, , ISLtoMSL(NP * 10) |
---|
281 | Put 1, , LwoP |
---|
282 | Close |
---|
283 | Case 6 |
---|
284 | |
---|
285 | ' Convert Oni level to RAW 3D Binary |
---|
286 | Open GetPureFile(FileName) + ".rwb" For Binary As #1 |
---|
287 | For I = 0 To AGQG.NumEntries - 1 |
---|
288 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).X |
---|
289 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Y |
---|
290 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Z |
---|
291 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).X |
---|
292 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).Y |
---|
293 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).Z |
---|
294 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).X |
---|
295 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Y |
---|
296 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Z |
---|
297 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).X |
---|
298 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Y |
---|
299 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Z |
---|
300 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).X |
---|
301 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).Y |
---|
302 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).Z |
---|
303 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).X |
---|
304 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Y |
---|
305 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Z |
---|
306 | Next I |
---|
307 | |
---|
308 | Close |
---|
309 | Case 7 |
---|
310 | |
---|
311 | ' B3D |
---|
312 | Open GetPureFile(FileName) + ".b3d" For Binary As #1 |
---|
313 | Put 1, , "Big3DbyOleg" |
---|
314 | Put 1, , CLng(1067030938) |
---|
315 | Put 1, , "POINTS " |
---|
316 | Put 1, , CLng(PNTA.NumEntries) |
---|
317 | For I = 0 To PNTA.NumEntries - 1 |
---|
318 | Put 1, , PNTAentry(I).X |
---|
319 | Put 1, , PNTAentry(I).Y |
---|
320 | Put 1, , PNTAentry(I).Z |
---|
321 | Next I |
---|
322 | |
---|
323 | Put 1, , "POLYGONS" |
---|
324 | Put 1, , CLng(NP * 2) |
---|
325 | For I = 0 To AGQG.NumEntries - 1 |
---|
326 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
327 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
328 | 'nothing |
---|
329 | Case Else |
---|
330 | Select Case Mid$(GetPureFile(TexNames(AGQR_E(I).TexIndex)), 1, 5) |
---|
331 | Case "_DOOR" |
---|
332 | 'nothing |
---|
333 | Case Else |
---|
334 | Put 1, , CLng(3) |
---|
335 | Put 1, , AGQGEntry(I).VertIndex(1) |
---|
336 | Put 1, , AGQGEntry(I).VertIndex(2) |
---|
337 | Put 1, , AGQGEntry(I).VertIndex(3) |
---|
338 | Put 1, , CLng(0) |
---|
339 | Put 1, , CLng(3) |
---|
340 | Put 1, , AGQGEntry(I).VertIndex(3) |
---|
341 | Put 1, , AGQGEntry(I).VertIndex(4) |
---|
342 | Put 1, , AGQGEntry(I).VertIndex(1) |
---|
343 | Put 1, , CLng(0) |
---|
344 | End Select |
---|
345 | End Select |
---|
346 | Next I |
---|
347 | Put 1, , CLng(0) |
---|
348 | Close |
---|
349 | |
---|
350 | Case 8 |
---|
351 | |
---|
352 | 'Delete shit from the Oni level |
---|
353 | numb = AGQG.NumEntries |
---|
354 | ReDim Preserve PNTAentry(PNTA.NumEntries + 3) |
---|
355 | PNTAentry(PNTA.NumEntries + 0).X = -9 |
---|
356 | PNTAentry(PNTA.NumEntries + 0).Y = 0 |
---|
357 | PNTAentry(PNTA.NumEntries + 0).Z = -3 |
---|
358 | PNTAentry(PNTA.NumEntries + 1).X = -9 |
---|
359 | PNTAentry(PNTA.NumEntries + 1).Y = 0 |
---|
360 | PNTAentry(PNTA.NumEntries + 1).Z = 8 |
---|
361 | PNTAentry(PNTA.NumEntries + 2).X = 11 |
---|
362 | PNTAentry(PNTA.NumEntries + 2).Y = 0 |
---|
363 | PNTAentry(PNTA.NumEntries + 2).Z = -3 |
---|
364 | PNTAentry(PNTA.NumEntries + 3).X = 11 |
---|
365 | PNTAentry(PNTA.NumEntries + 3).Y = 0 |
---|
366 | PNTAentry(PNTA.NumEntries + 3).Z = 8 |
---|
367 | |
---|
368 | If Form1.mnuDelGarbage.Checked = True Then |
---|
369 | For I = 0 To AGQG.NumEntries - 1 |
---|
370 | Select Case Mid$(GetPureFile(TexNames(AGQR_E(I).TexIndex)), 1, 5) |
---|
371 | Case "_DOOR" |
---|
372 | AGQGEntry(I).VertIndex(1) = PNTA.NumEntries + 0 |
---|
373 | AGQGEntry(I).VertIndex(2) = PNTA.NumEntries + 1 |
---|
374 | AGQGEntry(I).VertIndex(3) = PNTA.NumEntries + 2 |
---|
375 | AGQGEntry(I).VertIndex(4) = PNTA.NumEntries + 3 |
---|
376 | 'numb = numb - 1 |
---|
377 | End Select |
---|
378 | Next I |
---|
379 | End If |
---|
380 | |
---|
381 | For I = 0 To AGQG.NumEntries - 1 |
---|
382 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
383 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
384 | AGQGEntry(I).VertIndex(1) = PNTA.NumEntries + 0 |
---|
385 | AGQGEntry(I).VertIndex(2) = PNTA.NumEntries + 1 |
---|
386 | AGQGEntry(I).VertIndex(3) = PNTA.NumEntries + 2 |
---|
387 | AGQGEntry(I).VertIndex(4) = PNTA.NumEntries + 3 |
---|
388 | numb = numb - 1 |
---|
389 | End Select |
---|
390 | Next I |
---|
391 | |
---|
392 | 'B3D + materials |
---|
393 | Open GetPureFile(FileName) + ".b3d" For Binary As #1 |
---|
394 | Put 1, , "Big3DbyOleg" |
---|
395 | Put 1, , CLng(1067030938) |
---|
396 | Put 1, , "POINTS " |
---|
397 | Put 1, , CLng(numb * 4) |
---|
398 | |
---|
399 | For I = 0 To AGQG.NumEntries - 1 |
---|
400 | ' Begin polygon |
---|
401 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
402 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
403 | 'nothing |
---|
404 | Case Else |
---|
405 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).X |
---|
406 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Y |
---|
407 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(1)).Z |
---|
408 | |
---|
409 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).X |
---|
410 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).Y |
---|
411 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(2)).Z |
---|
412 | |
---|
413 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).X |
---|
414 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Y |
---|
415 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(3)).Z |
---|
416 | |
---|
417 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).X |
---|
418 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).Y |
---|
419 | Put 1, , PNTAentry(AGQGEntry(I).VertIndex(4)).Z |
---|
420 | End Select |
---|
421 | ' end polygon |
---|
422 | Next I |
---|
423 | |
---|
424 | Put 1, , "POLYGONS" |
---|
425 | Put 1, , CLng(numb * 2) |
---|
426 | L = 0 |
---|
427 | ID4 = 0 |
---|
428 | For I = 0 To AGQG.NumEntries - 1 |
---|
429 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
430 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
431 | 'nothing |
---|
432 | Case Else |
---|
433 | Put 1, , CLng(3) |
---|
434 | Put 1, , CLng(L) |
---|
435 | Put 1, , CLng(L + 1) |
---|
436 | Put 1, , CLng(L + 2) |
---|
437 | Put 1, , CLng(ID4) |
---|
438 | Put 1, , CLng(3) |
---|
439 | Put 1, , CLng(L + 2) |
---|
440 | Put 1, , CLng(L + 3) |
---|
441 | Put 1, , CLng(L) |
---|
442 | Put 1, , CLng(ID4) |
---|
443 | ID4 = ID4 + 1 |
---|
444 | L = L + 4 |
---|
445 | End Select |
---|
446 | Next I |
---|
447 | |
---|
448 | Put 1, , CLng(1) |
---|
449 | Put 1, , "TEX_UV " |
---|
450 | Put 1, , CLng(numb * 4) |
---|
451 | L = 0 |
---|
452 | |
---|
453 | For I = 0 To AGQG.NumEntries - 1 |
---|
454 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
455 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
456 | 'nothing |
---|
457 | Case Else |
---|
458 | Put 1, , CLng(L) |
---|
459 | L = L + 1 |
---|
460 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(1)).X |
---|
461 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(1)).Y |
---|
462 | Put 1, , CLng(L) |
---|
463 | L = L + 1 |
---|
464 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(2)).X |
---|
465 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(2)).Y |
---|
466 | Put 1, , CLng(L) |
---|
467 | L = L + 1 |
---|
468 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(3)).X |
---|
469 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(3)).Y |
---|
470 | Put 1, , CLng(L) |
---|
471 | L = L + 1 |
---|
472 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(4)).X |
---|
473 | Put 1, , TXCA_E(AGQGEntry(I).VertUVIndex(4)).Y |
---|
474 | End Select |
---|
475 | 'Put 1, , CSng((-TXCA_E(I).Y) + 1) |
---|
476 | Next I |
---|
477 | |
---|
478 | L = 0 |
---|
479 | Put 1, , "MATERIAL" |
---|
480 | Put 1, , CLng(numb) |
---|
481 | For I = 0 To AGQG.NumEntries - 1 |
---|
482 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
483 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
484 | 'nothing |
---|
485 | Case Else |
---|
486 | Put 1, , CLng(1) |
---|
487 | Put 1, , CLng(L) |
---|
488 | Put 1, , CLng(Len(TexNames(AGQR_E(I).TexIndex))) |
---|
489 | Put 1, , TexNames(AGQR_E(I).TexIndex) |
---|
490 | L = L + 1 |
---|
491 | End Select |
---|
492 | Next I |
---|
493 | Close |
---|
494 | |
---|
495 | Open GetPureFile(FileName) + ".tlist" For Binary As #4 |
---|
496 | For I = 0 To AGQR1.NumEntries - 1 |
---|
497 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
498 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
499 | 'nothing |
---|
500 | Case Else |
---|
501 | Put 4, , AGQR_E(I).TexIndex |
---|
502 | End Select |
---|
503 | Next I |
---|
504 | Close |
---|
505 | |
---|
506 | Open GetPureFile(FileName) + ".txt" For Output As #4 |
---|
507 | Print #4, CStr(TXMA1.NumEntries) |
---|
508 | For I = 0 To TXMA1.NumEntries - 1 |
---|
509 | Print #4, CStr(GetPureFile(TexNames(I))) |
---|
510 | Next I |
---|
511 | Close |
---|
512 | |
---|
513 | If Form1.mnuB3DLight.Checked = True Then |
---|
514 | Open GetPureFile(FileName) + ".ltcs" For Binary As #4 |
---|
515 | For I = 0 To AGQR1.NumEntries - 1 |
---|
516 | Select Case GetPureFile(TexNames(AGQR_E(I).TexIndex)) |
---|
517 | Case "BLUEGRID02", "_DOOR_FRAME", "", "COLLISION" |
---|
518 | 'nothing |
---|
519 | Case Else |
---|
520 | Put 4, , AGQGEntry(I).LData_1 |
---|
521 | Put 4, , AGQGEntry(I).LData_2 |
---|
522 | Put 4, , AGQGEntry(I).LData_3 |
---|
523 | Put 4, , AGQGEntry(I).LData_4 |
---|
524 | End Select |
---|
525 | Next I |
---|
526 | Close |
---|
527 | End If |
---|
528 | End Select |
---|
529 | |
---|
530 | Form1.ProgressBar1.Value = 0 |
---|
531 | Form1.ProgressBar1.Max = UBound(OniEntry) |
---|
532 | |
---|
533 | Form1.StatusBar1.SimpleText = "OK" |
---|
534 | 'Dispose |
---|
535 | I = Empty |
---|
536 | NP = Empty |
---|
537 | Erase LwoP |
---|
538 | Erase PNTAentry |
---|
539 | Erase OniPol2 |
---|
540 | Erase AGQGEntry |
---|
541 | Erase AGQR_E |
---|
542 | Erase TXMA_E |
---|
543 | Erase TXCA_E |
---|
544 | Erase TexNames |
---|
545 | End Sub |
---|