Wut do i do with:
Code: Select all
IndexHeader = Load4Hex(16, True)
IndexMagic = Load4Hex(IndexHeader, True) - (Load4Hex(16, True) + 32)
MapMagic = Load4Hex((Load4Hex(IndexHeader + 8, True) - IndexMagic) + 8, True) - (IndexHeader + Load4Hex(20, True))
Code: Select all
Dim TagID() As Double
Dim TagOffset() As Double
Dim TagMetaSize() As Double
Dim TagTag() As String
TagCount = Load4Hex(IndexHeader + 4, True)
RealTagOff = IndexHeader + 32 + TagCount * 12
RealTagCount = Load4Hex(indexheader + 24, True)
EndTagOff = RealTagOff + RealTagCount * 16
ReDim TagTag(0 To rtagcount + 1)
ReDim TagID(0 To rtagcount + 1)
ReDim TagOffset(0 To rtagcount + 1)
ReDim TagMetaSize(0 To rtagcount + 1)
j = 0
For i = RealTagOff To EndTagOff Step 16
j = j + 1
TagTag(j) = Load4String(i + 0, True)
TagID(j) = Load4Hex(i + 4, True)
TagOffset(j) = Load4Hex(i + 8, True) - MapMagic
TagMetaSize(j) = Load4Hex(i + 12, True)
Next i
"Poop Stinks!"