XeNTaX

Code: Select all

if (heapSize < 20000000) then
	heapSize = 200000000 -- allow ~ 40 MB instead of just 7.5 MB. Prevents "Runtime Error: Out of scripter memory"

fname = GetOpenFileName caption:"Open Kingdom Under Fire:Circle of Doom Model File" types:"Kingdom Under Fire:Circle of Doom Model File(*.bm)|*.bm"
f = fopen fname "rb"   --open file in read only format


fn floatSwap2 f = 
(
	i = bit.floatAsInt f
	h = bit.intashex i
	while h.count < 8 do h = "0" + h
	s = (substring h 7 2) + (substring h 5 2) + (substring h 3 2) + (substring h 1 2)
	bit.intAsFloat (bit.hexasint s)
)	
fn ReadBEfloat fstream = (
return floatSwap2(readfloat fstream)
)
fn PrintOffset Var =
(
	local Var = Var
print ("This is the offset 0x" + (bit.intAsHex Var) as string)
	Var
)
fn PrintCount Var =
(
	local Var = Var
print ("This is the Count 0x" + (bit.intAsHex Var) as string)
	Var
)

fn ReadBEword fstream = (
return (bit.swapBytes (readshort fstream #unsigned) 1 2)
)

  	fn convertTo32 input16 = (
 		inputAsInt = input16
 		sign = bit.get inputAsInt 16
 		exponent = (bit.shift (bit.and inputAsInt (bit.hexasint "7C00")) -10) as integer - 16
 		fraction = bit.and inputAsInt (bit.hexasint "03FF")
 		if sign==true then sign = 1 else sign = 0
 		exponentF = exponent + 127
 		--Ouput 32 bit integer representing a 32 bit float
 		outputAsFloat = bit.or (bit.or (bit.shift fraction 13) (bit.shift exponentF 23)) (bit.shift sign 31)
 		--Output Check	
 		return bit.intasfloat outputasfloat
 	)

fn ReadBEHalfFloat fstream = (
return convertTo32(ReadBEword fstream) * 2
)
 

fn ReadBElong fstream = (
long = readlong fstream
long = bit.swapBytes long 1 4
long = bit.swapBytes long 2 3
return long
)


fn ReadFixedString bstream fixedLen =
(
	local str = ""
	for i = 1 to fixedLen do
	(
		str += bit.intAsChar (ReadByte bstream #unsigned)
	)
	str
)



unk1 = ReadBElong f
unk2 = ReadBElong f
unk3 = ReadBElong f
MeshCount = ReadBElong f
unk5 = ReadBElong f
unk6 = ReadBElong f
for a = 1 to MeshCount Do (
	
Vert_array = #()    --define arrays for verts, normals, UV and Faces
Normal_array = #()
UV_array = #()
Face_array = #()

Offset_start = (ReadBElong f) - 24
unk8 = ReadBElong f
unk9 = ReadBElong f
FaceType = ReadBElong f
VertCount = ReadBElong f
FaceCount = ReadBElong f
fseek f Offset_start#seek_cur
Scen_Name_Size = ReadBElong f
Scene_Name = ReadString f
Material_Name_Size = ReadBElong f
Material_Name = ReadString f
Mesh_Name_Count = ReadBElong f
Mesh_Name = Readstring f
fseek f (0xFF - Mesh_Name.count)#seek_cur
fseek f 0x34#seek_cur
Used_Textures1 = ReadBElong f
Used_Textures2 = ReadBElong f
Used_Textures3 = ReadBElong f
fseek f 0x2C#seek_cur
fseek f 0xDF2#seek_cur
PrintOffset (ftell f)
byte1 = readbyte f#unsigned
byte2 = readbyte f#unsigned
byte3 = readbyte f#unsigned
byte4 = readbyte f#unsigned
byte5 = readbyte f#unsigned
byte6 = readbyte f#unsigned
byte7 = readbyte f#unsigned
byte8 = readbyte f#unsigned
byte9 = readbyte f#unsigned
byte10 = readbyte f#unsigned
byte11 = readbyte f#unsigned
byte12 = readbyte f#unsigned
byte13 = readbyte f#unsigned
byte14 = readbyte f#unsigned
fseek f 0x3C#seek_cur
type = ReadBElong f
type1 = ReadBElong f
type2 = ReadBElong f
if type == 0x7 and type2 == 40 do (
fseek f 0x18#seek_cur
)
if type == 0x7 and type2 == 30 do (
fseek f 0x18#seek_cur
)
if type == 0x6 and type2 == 20 do (
fseek f 0x18#seek_cur
)
if type == 0x6 and type2 == 10 do (
fseek f 0xC#seek_cur
)
if type == 17 and type2 == 1 do (
fseek f 0x18#seek_cur
)
if type == 18 do (

)
PrintOffset (ftell f)
for c = 1 to VertCount Do (
if type == 18 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
)
if type == 17 and type2 == 1 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
fseek f 0x10#seek_cur
)
if type == 0x7 and type2 == 40 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
fseek f 0x18#seek_cur
)
if type == 0x7 and type2 == 30 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
fseek f 0x14#seek_cur
)
if type == 0x6 and type2 == 10 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
fseek f 0x4#seek_cur
)
if type == 0x6 and type2 == 20 do (
vx = ReadBEfloat f  --read xyz coordinates
vy = ReadBEfloat f
vz = ReadBEfloat f
nx = ReadBEfloat f 
ny = ReadBEfloat f
nz = ReadBEfloat f
tu = ReadBEHalfFloat f
tv = ReadBEHalfFloat f * -1
fseek f 0xC#seek_cur
)
append Vert_array [vx,vy,vz] --save verts to Vert_array
 --append Normal_array [nx,ny,nz]
append UV_array [tu,tv,0]
)
FaceCount2 = ReadBElong f
facestart = (ftell f)
print FaceType
if FaceType == 3 do (
for b = 1 to FaceCount2 do (
f1 = ReadBEword f + 1
f2 = ReadBEword f + 1
f3 = ReadBEword f + 1
append Face_array [f1,f2,f3]
)
)
if FaceType == 4 do (
StartDirection = -1
f1 = (ReadBEword f) + 1
f2 = (ReadBEword f) + 1  
FaceDirection = StartDirection
Do (
f3 = (ReadBEword f)
if (f3==0xFFFF) then (
f1 = (ReadBEword f) + 1
f2 = (ReadBEword f) + 1
FaceDirection = StartDirection   
) else (
f3 += 1
FaceDirection *= -1
if (f1!=f2)AND(f2!=f3)AND(f3!=f1) then (
if FaceDirection > 0 then append Face_array [f1,f2,f3]
else append Face_array [f1,f3,f2]
)
f1 = f2
f2 = f3
)  
)while (ftell f) != (facestart + (FaceCount2 * 2))
)
PrintOffset (ftell f)
fseek f 0x18#seek_cur
if type == 0x7 do (
bonecount = ReadBElong f
for i = 1 to bonecount Do (
Bone_Name_Size = ReadBElong f	
Bone_Name = readstring f
)
)
if type == 0x6 do (
bonecount = ReadBElong f
for i = 1 to bonecount Do (
Bone_Name_Size = ReadBElong f	
Bone_Name = readstring f
)
)
msh = mesh vertices:Vert_array faces:Face_array   --build mesh
msh.numTVerts = UV_array.count
buildTVFaces msh
msh.name = Mesh_Name
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]
for j = 1 to Normal_array.count do setNormal msh j Normal_array[j]


)

fclose f

Code: Select all

--===========================================================================
/*
　　　　　　　　　　　　　　 　 ／　　　　　｀y　´　　　 　 　 　 　 　 　 　 　 　 |
　　　　　 　 　 　 　 　 　 ／　　　 　 　 , '　　　　　　　　　　 　 　 　 　 　 　 |
　　　　　　　　　 　 　 ／　　＿＿＿__/ _　　-―――――＝＝== ､＿_　　:!
　　　　 ＿＿＿__　,_.′_'"￣　 　 　 / _　　　　　　　　 　 ヾ＞'￣￣￣`ヾ、 |
　　　 ！r､――.､〉∠´　　_　　 ￣｀,'"　　　　　　　　　　／　　　　　 ／7ヘに)､
　　　　 ＼＼ イ/1｢二￣ _　　　＿__ 　 　 　 　 　 　 ／　　　　　　　| ./ .//./｢｀＼
　　　　　_｣＞`7　{｢ ﾌ￣,. -　　 ;´:i￣:: : .: . . .　　 ／　　　　 　 　 　 |∧// .| |＿〉_〉
.　 　 ／ 1「ﾌ/　　∨ ／　　　　:::::i::::::::::::::::::: : :.／　　　　　　　　　 　 >ァ'　 ヽヽ￣
　 ／ ′／ｲ′　　∨=__　　 　 ::::i!::::::::::::::: :: ,."　　　　　　　　　　 ／／ 　 　 |＼＼
. / /　 / /.′　　　 ヽ⌒　.: :. .. ::::i!:::::::::::::::〃　　　　　　　　　　／ /　　 　 　 !　 〉 〉
〈._」 　 ! :! !　　　　　　＼:: .: .:: :: :::ヽ::::::::::〃　　　　　　　　　　/　./　　　　 　 |／／
　　 　 |_｣ ! 　 　 　 　 　 ヽ:. :: ::.,:::::::＼::ｲ′　　　　　　　　　　`ｰ′　　 　 　 i／
.　　　　　 i　　　 　 　 　 　 ＼'"::::::ヽ:＼{　　　　　　　　　　　　　　　　　　　　|
　　　　　　!　　　　　　　　　 　 `.＜':;:::::::ﾍ 　 　 　 ,...　　　　　　　　　　 　 　 !
.　 　 　 　 ',　　　　　　　 　 　 　 　 ヽ::ヾ:::ヽ　,　'´　　　　　　　　　　　 　 　 l
.　　　 　 　 '　　　　　　　　　　　　　, '´` ｰ→　　　　　　　　　　　　　　　　　!
　　　　　　　 ' ,　　　　　　　　　　　　　　　y′　　　　　　　 　 　 　 　 　 　 l
　 　 　 　 　 　 ' ,　 　 　 　 　 　 　 　 　 /　　　　　　　　　　　　　　　　　　l
　　　　　 　 　 　 ＼　　　　　　　　　　　,′　　　　　　　　　　　　　　 　 　 l
　　　　　　　　 　 　 ヽ　　　　　　　　　 ,　　　　　　　　　　　　　　　　　　　! 
*/
--===========================================================================
-- fsource="N:\\_3DMODELS\\Ripped\\Circle of Doom\\mainres\\Data\\char\\PC_CL\\test\\test2\\LOD_PC_CL_0_body.36t"

mkXPR=true --dump swizzled textures as XPR
useXDK=true --Use xbox360 SDK to unswizzle textures from generated XPRs

clearlistener()
fsource = GetOpenFileName \
caption:"COD 36t to XPR" \
types: "Xbox360 Texture(*.36t)|*.36T|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
unbundler=(fpath+"UnBundler.exe")
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 (

texType=bit.swapBytes (readshort f #unsigned) 2 1 -- 0x01 = SpecMap |  0x02 = NormalMap |  0x03 = DiffuseMap | 0x0C = CubeMap | 
ukn1=(bit.swapBytes (bit.swapBytes (readlong f #unsigned) 1 4) 2 3)
ukn2=(bit.swapBytes (readshort f #unsigned) 2 1)

if mkXPR==true do(
createFile (fpath+fname+".xpr")
s = fopen (fpath+fname+".xpr") "ab"
write=writebyte s 0x58
write=writebyte s 0x50
write=writebyte s 0x52
write=writebyte s 0x32
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x08
write=writebyte s 0x00
write=writelong s (bit.swapBytes (bit.swapBytes (fsize-4096) 1 4) 2 3)
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x01
write=writebyte s 0x54
write=writebyte s 0x58
write=writebyte s 0x32
write=writebyte s 0x44
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x40
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x34
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x18
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writebyte s 0x00
write=writestring s fname
for x = 1 to (40-(fname.count+1)) do(
write=writebyte s 0x00
)

for x = 1 to (16*4) do(
read=readbyte f #unsigned
write=writebyte s read
)
for x = 1 to 1920 do(
write=writebyte s 0x00
)
fseek f 0x1000 #seek_set
for x = 1 to (fsize-4096) do(
read=readbyte f #unsigned
write=writebyte s read
)


)
gc()
fclose s
if useXDK==true do(
if (unbundler!=undefined) AND ((doesFileExist unbundler)==true) do(
DOSCommand ("\"\""+unbundler+"\" \""+(fpath+fname+".xpr")+"\"\"")
deleteFile (fpath+fname+".xpr")
deleteFile (fpath+fname+".xpr.rdf")
deleteFile (fpath+fname+"_1.tga")
deleteFile (fpath+fname+"_2.tga")
deleteFile (fpath+fname+"_3.tga")
deleteFile (fpath+fname+"_4.tga")
deleteFile (fpath+fname+"_5.tga")
deleteFile (fpath+fname+"_6.tga")
deleteFile (fpath+fname+"_7.tga")
deleteFile (fpath+fname+"_8.tga")
deleteFile (fpath+fname+"_9.tga")
deleteFile (fpath+fname+"_10.tga")
deleteFile (fpath+fname+"_11.tga")
deleteFile (fpath+fname+"_12.tga")
deleteFile (fpath+fname+"_miptail.tga")
    ))

--===========================================================================
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.")

Code: Select all

format .ba files in game XBOX360 kingdom under fire

byte[12]
dword[1]  - nAnimations
dword[nAnimations] - frames of each animation ?
dword[2]

nBones x {  - nBones or do until end file
byte[255] - bonename (255 - find \x00) 
byte[255] - parentname (255 - find \x00)
float[16] - matrix
float[16] - bone matrix
float[14] - ?
nAnimations x {
dword[1] - ?
dword[1] - nLocFrames
nLocFrames x {
dword[1] - time
float[3] - position bone
} - end locframes
dword[1] - nRotFrames 
nRotFrames x {
dword[1] - time
float[4] - rotation (quaternion qx,qy,qz,qw)
} - end rotframes
dword[1] - ?
} - end animation
} - end bones