Thread: [Scripts]WarBane Rising of Darkness Unpacker TBL2

Hello guys, well after a lot hours I finish download this really cool game, ok the format of files is .tbl2 like Argo,etc, ok with script of chrox for ARGO ONLINE we can unpack this files, so well here I upload some shots.

Web: Warbane Online
Client: Warbane Online Client Download

Quickbms Script for Unpack TBL2

PHP Code:

#quickbms script
#WarBane Rising of Darkness
#from chrrox

open FDDE tbl2 1
set arcnum 0


goto 0x10001C 1

for i = 0
    get offset long 1
    get zsize long 1
    get null3 long 1
    get size long 1
    get arcnum long 1
    print "%arcnum%"
        set NAME1 string "file0"
    set MYEXT string arcnum
    strlen MYEXTSZ MYEXT
    if MYEXTSZ == 1
        string NAME1 += "00"
    endif
    if MYEXTSZ == 2
        string name1 - 1
        string NAME1 += "0"
    endif
    if MYEXTSZ == 3
        string name1 - 1
        string NAME1 += ""
    endif
    string NAME1 += MYEXT
    string NAME1 += .data2
    open FDSE NAME1 0


    get null1 long 1
    get null2 long 1

    get name string 1
    Padding 4 1

    get null long 1
if zsize == size
        log name offset zsize
else
clog name offset zsize size
endif
next i 


3D Max Importer

PHP Code:

if (heapSize < 20000000) then
    heapSize = 200000000

fname = getOpenFileName \
caption:"Argo Online Model File" \
types:"Argo Online Model File(*.xac)|*.xac" \
historyCategory:"Argo Online Object Presets"
f = fopen fname "rb"

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 Readword fstream = (
return readshort fstream #unsigned
)

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

struct Mesh_Info_Struct
(
    Mesh_Name,vertstart,vertend,vertcount,facecount
)
struct Offset_Info_Struct
(
    Section_Start,Vert_Start,Face_Start,vertsize
)
struct weight_data
(
    boneids,weights
)
struct weight_data2
(
    weightid,wcount
)
total_size = getFileSize fname
print total_size
idstring = readlong f
id1 = readbyte f#unsigned
id2 = readbyte f#unsigned
id3 = readbyte f#unsigned
id4 = readbyte f#unsigned
Type_0_offset_array =#()
Type_1_offset_array =#()
Type_2_offset_array =#()
Type_3_offset_array =#()
Type_3_2_offset_array =#()
Type_4_offset_array =#()
Type_5_offset_array =#()
Type_6_offset_array =#()
Type_7_offset_array =#()
Mesh_Name_array =#()
while (ftell f) != total_size do (
type = readlong f
size = readlong f
type2 = readlong f
if type == 0 do (

append Type_0_offset_array (ftell f)

)
if type == 1 do (
append Type_1_offset_array (ftell f)
)
if type == 2 do (
append Type_2_offset_array (ftell f)
)
if type == 3 do (
if type2 == 2 do (
append Type_3_offset_array (ftell f)
)
if type2 == 10000 do (
append Type_3_offset_array (ftell f)
)
)
if type == 4 do (
append Type_4_offset_array (ftell f)
)
if type == 5 do (
append Type_6_offset_array (ftell f)
)
if type == 6 do (
append Type_6_offset_array (ftell f)
)
if type == 7 do (
append Type_7_offset_array (ftell f)
)
fseek f size #seek_cur
)
printoffset Type_0_offset_array.count
printoffset Type_1_offset_array.count
printoffset Type_2_offset_array.count
printoffset Type_3_offset_array.count
printoffset Type_4_offset_array.count
printoffset Type_5_offset_array.count
printoffset Type_6_offset_array.count
printoffset Type_7_offset_array.count


BNArr = #()

for a = 1 to Type_0_offset_array.count do (
fseek f Type_0_offset_array[a]#seek_set
float11 = readfloat f
float12 = readfloat f 
float13 = readfloat f 
float14 = readfloat f * -1
float21 = readfloat f
float22 = readfloat f
float23 = readfloat f
float24 = readfloat f
float31 = readfloat f
float32 = readfloat f
float33 = readfloat f
float34 = readfloat f
float41 = readfloat f
float42 = readfloat f
float43 = readfloat f
float44 = readfloat f
long1 = readlong f
long2 = readlong f
BoneParent = readlong f
long4 = readlong f
BoneNameSize = readlong f
BoneName = ReadFixedString f BoneNameSize
tfm = (quat float11 float12 float13 float14) as matrix3
tfm.row4 = [float31,float32,float33]
print (getNodeByName BoneName)
if (getNodeByName BoneName) != undefined do (
append BNArr (getNodeByName BoneName)
)
if (getNodeByName BoneName) == undefined do (
 if (BoneParent != -1) do (
tfm = tfm * BNArr[(BoneParent + 1)].objecttransform
 )

newBone = bonesys.createbone    \
                  tfm.row4    \
                  (tfm.row4 + 0.01 * (normalize tfm.row1)) \
                  (normalize tfm.row3)
            newBone.name = BoneName
            newBone.width  = 0.01
            newBone.height = 0.01
            newBone.transform = tfm
            newBone.setBoneEnable false 0
            newBone.wirecolor = yellow
            newbone.showlinks = true
            newBone.pos.controller      = TCB_position ()
            newBone.rotation.controller = TCB_rotation ()
 if (BoneParent != -1) then
 newBone.parent = BNArr[(BoneParent + 1)]
append BNArr newBone
                  )                      

)

Weight_array = #()
for a = 1 to Type_2_offset_array.count do (
count_array = #()
fseek f Type_2_offset_array[a]#seek_set
fseek f -8#seek_cur
chunksize = readlong f
fseek f Type_2_offset_array[a]#seek_set
unk01 = readlong f
WeightCount = readlong f
unk03 = readlong f
weight1start = (ftell f)
fseek f (8 * WeightCount)#seek_cur
weight2start = (ftell f)
numvert = ((chunksize - 12) - (8 * WeightCount)) / 8
for b = 1 to numvert do (
weightid = readlong f
wcount = readlong f
append count_array (weight_data2 weightid:weightid wcount:wcount) 
)
fseek f weight1start#seek_set
printoffset (count_array.count)
for b = 1 to count_array.count do (
Bone1 = -1
Bone2 = -1
Bone3 = -1
Bone4 = -1
weight1 = 0
weight2 = 0
weight3 = 0
weight4 = 0
if count_array[b].wcount == 1 do (
weight1 = readfloat f
Bone1 = readshort f
pad = readshort f
)
if count_array[b].wcount == 2 do (
weight1 = readfloat f
Bone1 = readshort f#unsigned
pad = readshort f
weight2 = readfloat f
Bone2 = readshort f#unsigned
pad2 = readshort f
)
if count_array[b].wcount == 3 do (
weight1 = readfloat f
Bone1 = readshort f#unsigned
pad = readshort f
weight2 = readfloat f
Bone2 = readshort f#unsigned
pad2 = readshort f
weight3 = readfloat f
Bone3 = readshort f#unsigned
pad3 = readshort f
)
if count_array[b].wcount == 4 do (
weight1 = readfloat f
Bone1 = readshort f#unsigned
pad = readshort f
weight2 = readfloat f
Bone2 = readshort f#unsigned
pad2 = readshort f
weight3 = readfloat f
Bone3 = readshort f#unsigned
pad3 = readshort f
weight4 = readfloat f
Bone4 = readshort f#unsigned
pad4 = readshort f
)
w = (weight_data boneids:#() weights:#())
maxweight = 0
if(Bone1 != -1) then
    maxweight = maxweight + weight1
if(Bone2 != -1) then
    maxweight = maxweight + weight2
if(Bone3 != -1) then
    maxweight = maxweight + weight3
if(Bone4 != -1) then
    maxweight = maxweight + weight4

if(maxweight != 0) then (
        if(Bone1 != -1) then (
            w1 = weight1 as float
            append w.boneids (bone1 + 1)
            append w.weights w1
        )
        if(Bone2 != -1) then (
            w2 = weight2 as float
            append w.boneids (bone2 + 1)
            append w.weights w2
        )
        if(Bone3 != -1) then (
            w3 = weight3 as float
            append w.boneids (bone3 + 1)
            append w.weights w3
        )
        if(Bone4 != -1) then (
            w4 = weight4 as float
            append w.boneids (bone4 + 1)
            append w.weights w4
        )        
    )
append Weight_array w
)
)
for a = 1 to Type_1_offset_array.count do (
fseek f Type_1_offset_array[a]#seek_set
Count1 = readlong f
Count2 = readlong f
Count3 = readlong f
Count4 = readlong f
FaceSections = readlong f
Count5 = readlong f
Count6 = readlong f
Count7 = readlong f
Count9 = readlong f
Count10 = readlong f
vertstart_array = #()
normalstart_array = #()
wertstart_array = #()
uvstart_array = #()
Facestart_array = #()
VertIDStart_array = #()

append VertIDStart_array (ftell f)
for b = 1 to Count3 do (
fseek f 4#seek_cur
)
for b = 1 to (Count5 - 1) do (
type = readlong f
size = readlong f
unk01 = readlong f
if type == 0 do (
append vertstart_array (ftell f)
for c = 1 to Count3 do (
fseek f 0xC#seek_cur
)
)
if type == 1 do (
append normalstart_array (ftell f)
for c = 1 to Count3 do (
fseek f 0xC#seek_cur
)
)
if type == 2 do (
append wertstart_array (ftell f)
for c = 1 to Count3 do (
fseek f 0x10#seek_cur
)
)
if type == 3 do (
append uvstart_array (ftell f)
for c = 1 to Count3 do (
fseek f 0x8#seek_cur
)
)
)
append Facestart_array (ftell f)
for c = 1 to FaceSections do (
Vert_array = #()
UV_array = #()
Normal_array = #()
Face_array = #()
Used_Bone_array = #()
vertid_array = #()
weightid_array = #()
Used_Bone_Name_array = #()
fseek f Facestart_array[c]#seek_set
facecount = readlong f
vertcount = readlong f
unk02 = readlong f
UsedBoneID = readlong f
for b = 1 to facecount / 3 do (
f1 = (readlong f) + 1
f2 = (readlong f) + 1
f3 = (readlong f) + 1
append Face_array [f1,f2,f3]
)
for b = 1 to UsedBoneID do (
boneid = readlong f + 1
append Used_Bone_array boneid
append Used_Bone_Name_array BNArr[boneid].name
)
append Facestart_array (ftell f)

if VertIDStart_array.count != 0 do (
fseek f VertIDStart_array[c]#seek_set
for d = 1 to vertcount do (
vertid = readlong f + 1
append vertid_array vertid
)
append VertIDStart_array (ftell f)
)
if vertstart_array.count != 0 do (
fseek f vertstart_array[c]#seek_set
for d = 1 to vertcount do (
vx = readfloat f
vy = readfloat f
vz = readfloat f
append Vert_array [vx,vy,vz]
)
append vertstart_array (ftell f)
)

if normalstart_array.count != 0 do (
fseek f normalstart_array[c]#seek_set
for d = 1 to vertcount do (
nx = readfloat f
ny = readfloat f
nz = readfloat f
append Normal_array [nx,ny,nz]
)
append normalstart_array (ftell f)
)

if wertstart_array.count != 0 do (
fseek f wertstart_array[c]#seek_set
for d = 1 to vertcount do (
wx = readfloat f
wy = readfloat f
wz = readfloat f
ww = readfloat f
)
append wertstart_array (ftell f)
)

if uvstart_array.count != 0 do (
fseek f uvstart_array[c]#seek_set
for d = 1 to vertcount do (
tu = readfloat f
tv = readfloat f * -1
append UV_array [tu,tv,0]
)
append uvstart_array (ftell f)
)
if UV_array.count == 0 do (
for d = 1 to vertcount do (
tu = 0
tv = 0
append UV_array [tu,tv,0]
)    
)
print Used_Bone_Name_array

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]
--for j = 1 to Normal_array.count do setNormal msh j Normal_array[j]
print weightid_array
max modify mode
select msh
skinMod = skin ()
addModifier msh skinMod

for i = 1 to BNArr.count do
(
    maxbone = BNArr[i]
    if i != Used_Bone_array.count then
        skinOps.addBone skinMod maxbone 0
    else
        skinOps.addBone skinMod maxbone 1
)
modPanel.setCurrentObject skinMod

for i = 1 to vertcount do
(
    w = Weight_array[(vertid_array[i])]
    bi = #()
    wv = #()
    for j = 1 to w.boneids.count do
    (
        boneid = w.boneids[j]
        weight = w.weights[j]
        append bi boneid
        append wv weight
    )    
    skinOps.setVertexWeights skinMod i bi wv
)


max create mode


)
printoffset (ftell f)
printoffset Facestart_array[Facestart_array.count]
)


fclose f