XeNTaX

Code: Select all

fsource = GetOpenFileName \
caption:"ToyStory3 Importer" \
types: "Vertex Binary (*.vbuf)|*.VBUF|All files (*.*)|*.*|"
if (fsource!=undefined) AND ((doesFileExist fsource)==true) then(
f = fopen fsource "rb"
fext=           getFilenameType fsource
fpath=          getFilenamePath fsource
fsize=			getFileSize fsource
fname=  		getFilenameFile fsource
if (doesFileExist (fpath+fname+".ibuf"))==true do(
g = fopen (fpath+fname+".ibuf") "rb"
gsize=getFileSize (fpath+fname+".ibuf")
st = timestamp() --get start time in milliseconds
clearlistener()
openLog (fpath+fname+"_log.txt") mode:"w" outputOnly:true
print (fname+fext+"\n"+localTime+"\n")
--===========================================================================
undo off(
with redraw off (
	Face_array=#()	
		Vert_array=#()

	UV_array=#()

while (ftell f)!=fsize AND check!=-1 do(
if keyboard.escPressed then exit





check=readlong f;fseek f -4 #seek_cur
Counter=0	
do(
tv=readfloat f
tu=(readfloat f*-1)+1
tw=readfloat f
vx=readfloat f*39.34
vy=readfloat f*39.34
vz=readfloat f*-39.34
w1=readbyte f #unsigned
w2=readbyte f #unsigned
w3=readbyte f #unsigned
w4=readbyte f #unsigned
weight=w1+w2+w3+w4
if weight==0xFF do(
Counter+=1
append Vert_array[vx,vz,vy]
append UV_array[tv,tu,0]
)) while weight==0xFF
fseek f -28 #seek_cur
Print ("Vert Read @ 0x"+((bit.intAsHex(ftell f))as string))
Print Counter
for x = 1 to Counter do(
nx=readfloat f
ny=readfloat f
nz=readfloat f
un=readfloat f
))
while (ftell g)!=gsize 
do(
fa=readshort g #unsigned+1
fb=readshort g #unsigned+1
fc=readshort g #unsigned+1
append Face_array[fa,fb,fc]
)
msh = mesh vertices:Vert_array faces:Face_array
msh.numTVerts = UV_array.count
buildTVFaces msh
msh.name=fname
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]

--===========================================================================
Print ("Last Read @ 0x"+((bit.intAsHex(ftell f))as string))
gc()
fclose f
fclose g
fclose s
flushLog()
closeLog()
enableSceneRedraw()
Print ("Done! ("+((((timestamp())-st)/60)as string)+" Seconds)") --print time to finish
)))) else (Print "Aborted.")