XeNTaX

Code: Select all

-- .CM converter v0.5


fname = getOpenFileName \ 
caption:"Quazar Studio's Model File" \
types:"Quazar Studio's Model File(*.cm)|*.cm" \
f = fopen fname "rb"

clearlistener()

Face_array=#()
Vert_array=#()
UV_array=#()

ukn1=readlong f #unsigned
ukn2=readlong f #unsigned
ukn3=readlong f #unsigned
ukn4=readlong f #unsigned

fseek f 196 #seek_cur -- skips over stuff I don't know yet


count=1 --sets loop to only execute once
for y = 1 to count do( -- master loop, will build for each new set of verts.. but wont be able to loop yet due to too many ukns
ukn5=readlong f #unsigned
ukn6=readlong f #unsigned
ukn7=readlong f #unsigned
sectionID=readlong f #unsigned --?? ID's which Section the cursor is at?
pad=readlong f #unsigned -- always 0 ??
sectionCount=readlong f #unsigned
sectionSize=readlong f #unsigned --??

for x = 1 to sectionCount do( -- vertex loop
vx=readfloat f
vy=readfloat f
vz=readfloat f
nx=readfloat f
ny=readfloat f
nz=readfloat f
tv=readfloat f
tu=readfloat f
        
append Vert_array[vx,vy,vz]
append UV_array[tv,tu,0]
)

fseek f (288*2) #seek_cur -- skips random section?? repeats twice between verts and faces


ukn8=readlong f #unsigned
ukn9=readlong f #unsigned
ukn10=readlong f #unsigned
sectionID=readlong f #unsigned --?? ID's which Section the cursor is at?
pad=readlong f #unsigned -- always 0 ??
sectionCount=readlong f #unsigned
sectionSize=readlong f #unsigned --??

for x = 1 to sectionCount/3 do( -- vertex loop. divide by 3 because we are reading 3 values each time wee loop
fa=readlong f #unsigned +1
fb=readlong f #unsigned +1
fc=readlong f #unsigned +1
append Face_array[fa,fb,fc]
)       
        
        

msh = mesh vertices:Vert_array faces:Face_array
msh.numTVerts = UV_array.count
buildTVFaces msh
for j = 1 to UV_array.count     do setTVert  msh j UV_array[j]
for j = 1 to Face_Array.count   do setTVFace msh j Face_Array[j]
) --end of master loop

Print ("Last Read @ 0x"+((bit.intAsHex(ftell f))as string))
gc()
fclose f