jackcartersmith/rerogue
2
0
Fork 0
mirror of https://github.com/dpethes/rerogue.git synced 2025-06-07 18:58:32 +02:00
Code Issues Releases Wiki Activity

hob parser: read groups without any defined faces

Browse Source
This commit is contained in:
dpethes 2014-10-14 04:53:19 +02:00
parent 650a8f8f89
commit d1a468fbfe
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hob_parser/hob_parser.pas
View File

@ -159,11 +159,12 @@ begin
//read group/meshdef0
f.Seek(16, fsFromCurrent); //unknown
fg.meshdef1_offset := f.ReadDWord - 4;
fg.meshdef1_offset := f.ReadDWord;
writeln('fg meshdef offset:', fg.meshdef1_offset);
if fg.meshdef1_offset > 0 then begin
//read meshdef1
f.Seek(fg.meshdef1_offset, fsFromBeginning);
f.Seek(fg.meshdef1_offset - 4, fsFromBeginning);
fg.face_block_end_offset := f.ReadDWord;
f.Seek(20, fsFromCurrent); //zero
fg.vertex_count := f.ReadDWord;
@ -180,6 +181,7 @@ begin
writeln('vertices at: ', fg.vertex_block_offset, hexStr(fg.vertex_block_offset, 4):6);
f.Seek(fg.vertex_block_offset, fsFromBeginning);
ReadVertices(fg, f, fg.vertex_count);
end;
f.Seek(filepos + 132, fsFromBeginning);
end;