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

fname = getOpenFileName \
caption:"Open .mod from Mesh folder" \
types:"Monster Hunter 4 (*.mod)|*.mod" \
historyCategory:"MH4ObjectPresets"
f = fopen fname "rb"

clearlistener()

fn readHalfFloat fstream = (
    hf=readshort fstream #unsigned
    sign = bit.get hf 16
    exponent = (bit.shift (bit.and hf (bit.hexasint "7C00")) -10) as integer - 16
    fraction = bit.and hf (bit.hexasint "03FF")
    if sign==true then sign = 1 else sign = 0
    exponentF = exponent + 127
    outputAsFloat = bit.or (bit.or (bit.shift fraction 13) \
    (bit.shift exponentF 23)) (bit.shift sign 31)
    return bit.intasfloat outputasfloat*2
    )

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

fn hexAsSting hx = (
num = (bit.intashex hx) as string
str=""
pos=num.count;for i = 1 to (num.count/2) do (
str+=bit.intaschar (execute ("0x"+(num[(pos-1)]+num[(pos)])))
pos-=2
)
str
)

struct weight_data
(
	boneids,weights
)
struct Mesh_Info_Struct
(
VertCount, VSize,VType, FacePos, FaceCount,VStart,MeshId
)
clearlistener()

fseek f 0x6 #seek_set
BoneCount = ReadShort f
meshcount = ReadShort f
fseek f 0xc #seek_set
VertexCount = ReadLong f
fseek f 0x18 #seek_set
VertSize = ReadLong f
Long05 = ReadLong f
Long06 = ReadLong f
UsedBoneCount = ReadLong f
BoneOff = ReadLong f
Print ("Bone Offset @ 0x"+((bit.intAsHex(ftell f))as string))
print (meshcount as string)
matcount2 = ReadShort f
fseek f 0x30 #seek_set
MatOff = ReadLong f
itemoff = ReadLong f
print (itemoff as string)
vertOffset = ReadLong f
print (vertOffset as string)
faceOffset = ReadLong f
print (faceOffset as string)
Print ("Item Offset @ 0x"+((bit.intAsHex(ftell f))as string))

fseek f BoneOff  #seek_set

Print ("Bone Start @ 0x"+((bit.intAsHex(ftell f))as string))

BNArr = #()
BoneParent = #()
for a = 1 to BoneCount Do (
boneid = readbyte f#unsigned
append BoneParent (readbyte f#unsigned)
childid = readbyte f#unsigned
unkid = readbyte f#unsigned
floata = ReadFloat f
floatb = ReadFloat f
bonex  = ReadFloat f
boney  = ReadFloat f
bonez  = ReadFloat f
)

Print ("Bone End @ 0x"+((bit.intAsHex(ftell f))as string))

for a = 1 to BoneCount do (
getPos = ftell f + 64
fseek f getPos #seek_set
)

for a = 1 to BoneCount do (

c11 = ReadFloat f; c12 = ReadFloat f; c13 = ReadFloat f; c14 = ReadFloat f
c21 = ReadFloat f; c22 = ReadFloat f; c23 = ReadFloat f; c24 = ReadFloat f
c31 = ReadFloat f; c32 = ReadFloat f; c33 = ReadFloat f; c34 = ReadFloat f
c41 = ReadFloat f; c42 = ReadFloat f; c43 = ReadFloat f; c44 = ReadFloat f

tfm = matrix3 [c11,c12,c13] [c21,c22,c23] [c31,c32,c33] ([c41,c42,c43]*100)

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

rootRT = dummy name:"Main_Root" boxsize:[.1,.1,.1]
for b in BNArr where b.parent==undefined do b.parent = rootRT
rootRT.transform = (matrix3 [1,0,0] [0,0,1] [0,-1,0] [0,0,0])

fseek f 0x100 #seek_cur

Print ("Bone Section End @ 0x"+((bit.intAsHex(ftell f))as string))

Pos=ftell f

BoneMapArray00=#()
BoneMapArray01=#()
BoneMapArray02=#()
BoneMapArray03=#()
BoneMapArray04=#()
BoneMapArray05=#()

fseek f Pos #seek_set
if UsedBoneCount==1 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
)
)
if UsedBoneCount==2 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
BoneMapCount01=readlong f
for i = 1 to BoneMapCount01 do (
BMap01=(readbyte f#unsigned +1)
append BoneMapArray01 BMap01
)
Stride01=(24-BoneMapCount01)
fseek f Stride01 #seek_cur
)
)
if UsedBoneCount==3 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
BoneMapCount01=readlong f
for i = 1 to BoneMapCount01 do (
BMap01=(readbyte f#unsigned +1)
append BoneMapArray01 BMap01
)
Stride01=(24-BoneMapCount01)
fseek f Stride01 #seek_cur
BoneMapCount02=readlong f
for i = 1 to BoneMapCount02 do (
BMap02=(readbyte f#unsigned +1)
append BoneMapArray02 BMap02
)
Stride02=(24-BoneMapCount02)
fseek f Stride02 #seek_cur
)
)
if UsedBoneCount==4 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
BoneMapCount01=readlong f
for i = 1 to BoneMapCount01 do (
BMap01=(readbyte f#unsigned +1)
append BoneMapArray01 BMap01
)
Stride01=(24-BoneMapCount01)
fseek f Stride01 #seek_cur
BoneMapCount02=readlong f
for i = 1 to BoneMapCount02 do (
BMap02=(readbyte f#unsigned +1)
append BoneMapArray02 BMap02
)
Stride02=(24-BoneMapCount02)
fseek f Stride02 #seek_cur
BoneMapCount03=readlong f
for i = 1 to BoneMapCount03 do (
BMap03=(readbyte f#unsigned +1)
append BoneMapArray03 BMap03
)
Stride03=(24-BoneMapCount03)
fseek f Stride03 #seek_cur
)
)
if UsedBoneCount==5 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
BoneMapCount01=readlong f
for i = 1 to BoneMapCount01 do (
BMap01=(readbyte f#unsigned +1)
append BoneMapArray01 BMap01
)
Stride01=(24-BoneMapCount01)
fseek f Stride01 #seek_cur
BoneMapCount02=readlong f
for i = 1 to BoneMapCount02 do (
BMap02=(readbyte f#unsigned +1)
append BoneMapArray02 BMap02
)
Stride02=(24-BoneMapCount02)
fseek f Stride02 #seek_cur
BoneMapCount03=readlong f
for i = 1 to BoneMapCount03 do (
BMap03=(readbyte f#unsigned +1)
append BoneMapArray03 BMap03
)
Stride03=(24-BoneMapCount03)
fseek f Stride03 #seek_cur
BoneMapCount04=readlong f
for i = 1 to BoneMapCount04 do (
BMap04=(readbyte f#unsigned +1)
append BoneMapArray04 BMap04
)
Stride04=(24-BoneMapCount04)
fseek f Stride04 #seek_cur
)
)
if UsedBoneCount==6 then
(
UBoneCount=1
for i = 1 to UBoneCount do (
BoneMapCount00=readlong f
for i = 1 to BoneMapCount00 do (
BMap00=(readbyte f#unsigned +1)
append BoneMapArray00 BMap00
)
Stride00=(24-BoneMapCount00)
fseek f Stride00 #seek_cur
BoneMapCount01=readlong f
for i = 1 to BoneMapCount01 do (
BMap01=(readbyte f#unsigned +1)
append BoneMapArray01 BMap01
)
Stride01=(24-BoneMapCount01)
fseek f Stride01 #seek_cur
BoneMapCount02=readlong f
for i = 1 to BoneMapCount02 do (
BMap02=(readbyte f#unsigned +1)
append BoneMapArray02 BMap02
)
Stride02=(24-BoneMapCount02)
fseek f Stride02 #seek_cur
BoneMapCount03=readlong f
for i = 1 to BoneMapCount03 do (
BMap03=(readbyte f#unsigned +1)
append BoneMapArray03 BMap03
)
Stride03=(24-BoneMapCount03)
fseek f Stride03 #seek_cur
BoneMapCount04=readlong f
for i = 1 to BoneMapCount04 do (
BMap04=(readbyte f#unsigned +1)
append BoneMapArray04 BMap04
)
Stride04=(24-BoneMapCount04)
fseek f Stride04 #seek_cur
BoneMapCount05=readlong f
for i = 1 to BoneMapCount05 do (
BMap05=(readbyte f#unsigned +1)
append BoneMapArray05 BMap05
)
Stride05=(24-BoneMapCount05)
fseek f Stride05 #seek_cur
)
)

Print ("Bone Map End @ 0x"+((bit.intAsHex(ftell f))as string))

Mesh_Info=#()

fseek f itemoff #seek_set

Print ("Item Start @ 0x"+((bit.intAsHex(ftell f))as string))

for i = 1 to meshcount do (
getPos = ftell f + 48
unk1 = ReadShort f
VertCount = ReadShort f
unk2 = ReadLong f
unk3 = ReadShort f
VSize = readbyte f
VType = readbyte f
VStart=readlong f
unk5 = ReadLong f
unk6 = ReadLong f
FacePos = ReadLong f
FaceCount = Readlong f
Null=ReadLong f
NullB=readbyte f#unsigned
MeshId=readbyte f#unsigned+1
UBN=readbyte f#unsigned
append Mesh_Info (Mesh_Info_Struct VertCount:VertCount VSize:VSize VType:VType FacePos:FacePos FaceCount:FaceCount VStart:VStart MeshId:MeshId)
fseek f getPos #seek_set
)

Print ("Item End@ 0x"+((bit.intAsHex(ftell f))as string))

print Mesh_Info

for i = 1 to meshcount do (

vertArray=#()
faceArray=#()
UV_array=#()
Weight_array=#()

fseek f vertOffset #seek_set

Print ("Vertex Start @ 0x"+((bit.intAsHex(ftell f))as string))

if  (Mesh_Info[i].VSize)==24 do
for x = 1 to Mesh_Info[i].VertCount do (

getPos = ftell f + 24

vx = Readfloat f
vy = Readfloat f
vz = Readfloat f

p1 = Readfloat f

tu= Readfloat f
tv= Readfloat f*-1

fseek f getPos #seek_set

append vertArray ([vx,-vz,vy]*100)
append UV_array [tu,tv,0]
)

if  (Mesh_Info[i].VSize)==28 do
for x = 1 to Mesh_Info[i].VertCount do (

getPos = ftell f + 28

vx = Readfloat f
vy = Readfloat f
vz = Readfloat f

p1 = Readfloat f

tu= Readfloat f
tv= Readfloat f*-1

bone1 = readbyte f #unsigned
bone2 = readbyte f #unsigned
weight1 = readbyte f #unsigned/255.0
weight2 = readbyte f #unsigned/255.0

if weight1==1 then
weight2 = 0

fseek f getPos #seek_set

w = (weight_data boneids:#() weights:#())
maxweight = 0
if(weight1 != 0) then
   maxweight = maxweight + weight1
if(weight2 != 0) then
   maxweight = maxweight + weight2

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
		 append w.weights (w1)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
		 append w.weights (w2)
      )
   )
append Weight_array w
append vertArray ([vx,-vz,vy]*100)
append UV_array [tu,tv,0]
)

if  (Mesh_Info[i].VSize)==32 do
for x = 1 to Mesh_Info[i].VertCount do (

getPos = ftell f + 32

vx = Readfloat f
vy = Readfloat f
vz = Readfloat f

p1 = Readfloat f

tu= Readfloat f
tv= Readfloat f*-1

bone1 = readbyte f #unsigned
bone2 = readbyte f #unsigned
weight1 = readbyte f #unsigned/255.0
weight2 = readbyte f #unsigned/255.0

p2 = Readfloat f

if weight1==1 then
weight2 = 0

fseek f getPos #seek_set

w = (weight_data boneids:#() weights:#())
maxweight = 0
if(weight1 != 0) then
   maxweight = maxweight + weight1
if(weight2 != 0) then
   maxweight = maxweight + weight2

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
		 append w.weights (w1)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
		 append w.weights (w2)
      )
   )
append Weight_array w
append vertArray ([vx,-vz,vy]*100)
append UV_array [tu,tv,0]
)

if  (Mesh_Info[i].VSize)==36 do
for x = 1 to Mesh_Info[i].VertCount do (

vx = Readfloat f
vy = Readfloat f
vz = Readfloat f

unk1 = (ReadShort f/32767.00)
unk2 = (ReadShort f/32767.00)

tu= Readfloat f
tv= Readfloat f*-1

bone1 = readbyte f #unsigned
bone2 = readbyte f #unsigned
weight1 = readbyte f #unsigned/255.0
weight2 = readbyte f #unsigned/255.0

p1=readlong f

bone3 = readbyte f #unsigned
weight3 = readbyte f #unsigned/255.0
bone4 = readbyte f #unsigned
weight4 = readbyte f #unsigned/255.0

if weight1==1 then
weight2 = 0
weight3 = 0
weight4 = 0

w = (weight_data boneids:#() weights:#())
maxweight = 0
if(weight1 != 0) then
   maxweight = maxweight + weight1
if(weight2 != 0) then
   maxweight = maxweight + weight2
if(weight3 != 0) then
   maxweight = maxweight + weight3
if(weight4 != 0) then
   maxweight = maxweight + weight4

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
		 append w.weights (w1)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
		 append w.weights (w2)
      )
      if(weight3 != 0) then (
         w3 = weight3 as float
         append w.boneids (bone3 + 1)
		 append w.weights (w3)
      )
      if(weight4 != 0) then (
         w4 = weight4 as float
         append w.boneids (bone4 + 1)
		 append w.weights (w4)
      )
   )
append Weight_array w
append vertArray ([vx,-vz,vy]*100)
append UV_array [tu,tv,0]
)

if  (Mesh_Info[i].VSize)==44 do
for x = 1 to Mesh_Info[i].VertCount do (

vx = Readfloat f
vy = Readfloat f
vz = Readfloat f

unk1 = (ReadShort f/32767.00)
unk2 = (ReadShort f/32767.00)

tu= Readfloat f
tv= Readfloat f*-1

bone1 = readbyte f #unsigned
bone2 = readbyte f #unsigned
weight1 = readbyte f #unsigned/255.0
weight2 = readbyte f #unsigned/255.0

p1=readlong f

bone3 = readbyte f #unsigned
weight3 = readbyte f #unsigned/255.0
bone4 = readbyte f #unsigned
weight4 = readbyte f #unsigned/255.0

p2=readlong f
p3=readlong f

if weight1==1.00 then
weight2 = 0
weight3 = 0
weight4 = 0

w = (weight_data boneids:#() weights:#())
maxweight = 0
if(weight1 != 0) then
   maxweight = maxweight + weight1
if(weight2 != 0) then
   maxweight = maxweight + weight2
if(weight3 != 0) then
   maxweight = maxweight + weight3
if(weight4 != 0) then
   maxweight = maxweight + weight4

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
		 append w.weights (w1)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
		 append w.weights (w2)
      )
      if(weight3 != 0) then (
         w3 = weight3 as float
         append w.boneids (bone3 + 1)
		 append w.weights (w3)
      )
      if(weight4 != 0) then (
         w4 = weight4 as float
         append w.boneids (bone4 + 1)
		 append w.weights (w4)
      )
   )
append Weight_array w
append vertArray ([vx,-vz,vy]*100)
append UV_array [tu,tv,0]
)

vertOffset+=(Mesh_Info[i].VertCount*Mesh_Info[i].VSize)

fseek f faceOffset #seek_set
FaceBuffStart=ftell f
faceStart=(FaceBuffStart+(Mesh_Info[i].FacePos*2))

fseek f (FaceBuffStart+(Mesh_Info[i].FacePos*2)) #seek_set

StartDirection = -1
f1 = (ReadShort f+1)- Mesh_Info[i].VStart
f2 = (ReadShort f+1)- Mesh_Info[i].VStart
FaceDirection = StartDirection
while (ftell f) < (faceStart + ((Mesh_Info[i].FaceCount)*2)) Do (
f3 = (ReadShort f)
if (f3==0xFFFF) then (
f1 = (ReadShort f+1)- Mesh_Info[i].VStart
f2 = (ReadShort f+1)- Mesh_Info[i].VStart
FaceDirection = StartDirection
) else (
f3 += (1- Mesh_Info[i].VStart)
FaceDirection *= -1
if (f1!=f2)AND(f2!=f3)AND(f3!=f1) then (
if FaceDirection > 0 then append faceArray [(f1),(f2),(f3)]
else append faceArray [(f1),(f3),(f2)]
)
f1 = f2
f2 = f3
)
)

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

try(
msh = mesh vertices:vertArray faces:faceArray
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 faceArray.count do setTVFace msh j faceArray[j]
msh.wirecolor = (color 230 200 210)

max modify mode
select msh
skinMod = skin ()
addModifier msh skinMod
if Mesh_Info[i].MeshId==1 then
(
for i = 1 to BoneMapArray00.count do
(

	maxbone =  BNArr[(BoneMapArray00[i])]
	if i != BoneMapArray00.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
if Mesh_Info[i].MeshId==2 then
(
for i = 1 to BoneMapArray01.count do
(

	maxbone =  BNArr[(BoneMapArray01[i])]
	if i != BoneMapArray01.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
if Mesh_Info[i].MeshId==3 then
(
for i = 1 to BoneMapArray02.count do
(

	maxbone =  BNArr[(BoneMapArray02[i])]
	if i != BoneMapArray02.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
if Mesh_Info[i].MeshId==4 then
(
for i = 1 to BoneMapArray03.count do
(

	maxbone =  BNArr[(BoneMapArray03[i])]
	if i != BoneMapArray03.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
if Mesh_Info[i].MeshId==5 then
(
for i = 1 to BoneMapArray04.count do
(

	maxbone =  BNArr[(BoneMapArray04[i])]
	if i != BoneMapArray04.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
if Mesh_Info[i].MeshId==6 then
(
for i = 1 to BoneMapArray05.count do
(

	maxbone =  BNArr[(BoneMapArray05[i])]
	if i != BoneMapArray05.count then
		skinOps.addBone skinMod maxbone 0
	else
		skinOps.addBone skinMod maxbone 1
)
)
modPanel.setCurrentObject skinMod
for i = 1 to (Mesh_Info[i].VertCount) do (
   w = Weight_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.ReplaceVertexWeights skinMod i bi wv

)
)catch(format "Error!!\n")
format "Mesh %\n\tMesh Start: %\n\tFace Start: %\n\tVertex Type: %\n\n" i ("0x"+((bit.intAsHex(vertOffset))as string)) ("0x"+((bit.intAsHex(faceStart))as string)) ((((Mesh_Info[i].VType))as string))
)

fclose f