XeNTaX

Code: Select all

-- .mdg import

chunk_id = 0x6c028000
chunk_end_id = 0x14000000
chunk_size = 0xcc

verts_count = 0;
ids_count = 0;

vertex_array = #()
face_array = #()

file_name = getOpenFileName \
  caption:"Legend of Spyro Model File" \
  types:"Legend of Spyro Model File(*.mdg)|*.mdg" \
  historyCategory:"Legend of SpyroObjectPresets"

if file_name != undefined then
  f = fopen file_name "rb"

if f != undefined then (
  fseek f 0 #seek_end
  size = ftell f
  fseek f 40 #seek_set
  while size > ftell f do (
    while ReadLong f #unsigned == chunk_id do (
      verts_count = ReadLong f #unsigned
      weight = ReadFloat f
      fseek f 32 #seek_cur
      for i = 1 to verts_count do (
        x = ReadFloat f
        y = ReadFloat f
        z = ReadFloat f
        append vertex_array [x, z, y]
      )
      ids_count = ids_count + verts_count
      
      while ReadLong f #unsigned != chunk_end_id do ()
    )
    
    if ids_count != 0 do (
      for i = 1 to ids_count - 2 do
        append face_array [ i , i + 1 , i  + 2 ]
      
      new_mesh = mesh vertices:vertex_array faces:face_array
      
      ids_count = 0;
      vertex_array = #()
      face_array = #()
    )
  )
  fclose f
)