XeNTaX

Code: Select all

"Reading Verts @ 0xf20"
"Reading Faces @ 0x33068"
"Last Read @ 0x3c3c4"

Code: Select all

--===========================================================================
-- fsource="C:\\Users\\ACER_PREDATOR\\Documents\\My Received Files\\new dump.dat"

fsource = GetOpenFileName \
caption:"[PS2] Oh! My Goddess" \
types: "MemoryDump(*.dat)|*.CEM|All files (*.*)|*.*|"
if (fsource!=undefined) AND ((doesFileExist fsource)==true) then(
f = fopen fsource "rb"
fext=           getFilenameType fsource
fpath=          getFilenamePath fsource
fbatch=         getFiles (fpath+"*"+fext)
fname=  getFilenameFile fsource
fsize=          getFileSize fsource
st = timestamp() --get start time in milliseconds
clearlistener()
openLog (fpath+fname+"_log.txt") mode:"w" outputOnly:true
--===========================================================================
undo off(
with redraw off (

vertsArray = #()
facesArray = #()
uvsArray = #()
mscale=39.34



/*
Instructions!

Please manually add the offset where the header starts
the script will read 96bytes from that and try to read the header from there
*/

fseek f 0x00000000 #seek_set --Important must be set at the RIGHT location, else will return Error Message!

startPos=0
read=0
meshInfo=false
for scan = 1 to 96 do(
read=readbyte f #unsigned
if read==0x70 do(
read=(readbyte f #unsigned)-(readbyte f #unsigned)-(readbyte f #unsigned)
if read==0x00 do(
fseek f -4 #seek_cur
read=readlong f #unsigned
if read==0x70 do(
meshInfo=true
startPos=ftell f
))))
fseek f startPos #seek_set

meshArray=#()
if meshInfo==true then(
fseek f startPos #seek_set --try to scan for those headers.. using 0x0140 as an ID
do(

ukn=readlong f
ukn=readlong f
ukn=readlong f
ukn=readlong f
faceAddition=readlong f #unsigned
ukn=readlong f
ukn=readlong f
faceCount=readlong f #unsigned
ukn=readshort f
ukn=readshort f
ukn=readshort f
ukn=readshort f
ukn=readshort f
ukn=readshort f
ukn=readshort f
ukn=readshort f
fseek f 0x30 #seek_cur --Skips FF's
read=readlong f #unsigned
append meshArray[faceCount,faceAddition]
)
while read==0x70


fseek f -0x20 #seek_cur
newPos=0
for tst = 1 to 0x10 do(
read=readlong f
if read==1 do(
newPos=ftell f+4
))
fseek f newPos #seek_set


vertCount=readlong f #unsigned
ukn=readlong f #unsigned
faceCount=readlong f #unsigned
ukn=readlong f #unsigned

Print ("Reading Verts @ 0x"+((bit.intAsHex(ftell f))as string))
for x = 1 to vertCount do(
vx=readfloat f*mscale
vy=readfloat f*mscale
vz=readfloat f*mscale
ukn1=readfloat f
ukn2=readfloat f
ukn3=readfloat f
ukn4=readfloat f
nx=readfloat f
ny=readfloat f
nz=readfloat f
ukn5=readfloat f
tv=readfloat f
tu=readfloat f*-1
ukn=readlong f #unsigned
append vertsArray[vx,vz,vy]
append uvsArray[tv,tu,0]
)

Print ("Reading Faces @ 0x"+((bit.intAsHex(ftell f))as string))
for tst = 1 to 0x10 do(
read=readlong f
if read==1 then EXIT
)
fseek f -8 #seek_cur
	

for x = 1 to meshArray.count do(
fd=1+meshArray[x][2]
for z = 1 to meshArray[x][1] do (
fa=readlong f #unsigned+fd
fb=readlong f #unsigned+fd
fc=readlong f #unsigned+fd
append facesArray[fc,fb,fa]
)
msh = mesh vertices:vertsArray faces:facesArray   --build mesh
msh.numTVerts = uvsArray.count
buildTVFaces msh
meshop.deleteIsoVerts msh
for j = 1 to uvsArray.count     do setTVert  msh j uvsArray[j]
for j = 1 to facesArray.count   do setTVFace msh j facesArray[j]
facesArray = #()
)






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

Code: Select all

fseek f 0x00000144 #seek_set --Important must be set at the RIGHT location, else will return Error Message!