Crash...

[dh-g]

cho tớ hỏi hàm này bị sai gì sao open file 2-5MB là crash thế

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 Heroes of Newerth Model File" \
types:"Heroes of Newerth Model File(*.model)|*.model" \
historyCategory:"Heroes of NewerthObjectPresets"
f = fopen fname "rb"

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

SMDLhead = ReadFixedString f 8
unk01 = readlong f
version = readlong f
num_meshes = readlong f
num_sprites = readlong f
num_surfs = readlong f
BoneCount = readlong f
fseek f 0x18#seek_cur
bone1 = ReadFixedString f 4
bonesize = readlong f

BNArr = #()
for i = 1 to BoneCount Do (
BoneParentID = readlong f
BoneParentID = (BoneParentID + 1)
m11 = readfloat f; m12 = readfloat f; m13 = readfloat f
m21 = readfloat f; m22 = readfloat f; m23 = readfloat f
m31 = readfloat f; m32 = readfloat f; m33 = readfloat f
m41 = readfloat f; m42 = readfloat f; m43 = readfloat f
tfm = matrix3 [m11,m12,m13] [m21,m22,m23] [m31,m32,m33] [m41,m42,m43]
tfm = inverse tfm
m11 = readfloat f; m12 = readfloat f; m13 = readfloat f
m21 = readfloat f; m22 = readfloat f; m23 = readfloat f
m31 = readfloat f; m32 = readfloat f; m33 = readfloat f
m41 = readfloat f; m42 = readfloat f; m43 = readfloat f
tfm2 = matrix3 [m11,m12,m13] [m21,m22,m23] [m31,m32,m33] [m41,m42,m43]
bnamesize = readbyte f#unsigned
BoneName = readstring f    

    newBone = bonesys.createbone    \
                  tfm.row4    \
                  (tfm.row4 + 0.01 * (normalize tfm.row1)) \
                  (normalize tfm.row3)
            newBone.name   = BoneName
            newBone.width  = 0.3
            newBone.height = 0.3
            newBone.wirecolor = yellow
            newbone.showlinks = true
            newBone.setBoneEnable false 0
            newBone.pos.controller      = TCB_position ()
            newBone.rotation.controller = TCB_rotation ()

append BNArr newBone
 if i != 1 then
 newBone.parent = BNArr[BoneParentID]
)



--fseek f bonesize#seek_cur -- skip bones
mesh1 = ReadFixedString f 4
unk07 = readlong f
unk08 = readlong f
unk09 = readlong f
VertexCount = readlong f
fseek f 0x1C#seek_cur
nsize1 = readbyte f#unsigned
nsize2 = readbyte f#unsigned
nname1 = readstring f
nname2 = readstring f

Vert_array = #()
Normal_array = #()
UV_array = #()
Face_array = #()

vrts = ReadFixedString f 4
vrts_size = readlong f
null = readlong f
for a = 1 to VertexCount Do (
vx = readfloat f     --read xyz coordinates
vy = readfloat f 
vz = readfloat f
append Vert_array [vx,vy,vz] --save verts to Vert_array    
)
lnk1 = ReadFixedString f 4
lnk1_size = readlong f
null1 = readlong f
weightc1 = readlong f
struct weight_data
(
    boneids,weights
)
Weight_array = #()
used_id_array = #()
for a = 1 to weightc1 Do (
w = (weight_data boneids:#() weights:#())
maxweight = 0
WeightCount = readlong f

if WeightCount == 1 do (
weight1 = readfloat f
weight2 = 0
weight3 = 0
weight4 = 0
weight5 = 0
weight6 = 0
weight7 = 0
bone1 = readlong f
)
if WeightCount == 2 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = 0
weight4 = 0
weight5 = 0
weight6 = 0
weight7 = 0
bone1 = readlong f
bone2 = readlong f
)
if WeightCount == 3 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = readfloat f
weight4 = 0
weight5 = 0
weight6 = 0
weight7 = 0
bone1 = readlong f
bone2 = readlong f
bone3 = readlong f
)
if WeightCount == 4 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = readfloat f
weight4 = readfloat f
weight5 = 0
weight6 = 0
weight7 = 0
bone1 = readlong f
bone2 = readlong f
bone3 = readlong f
bone4 = readlong f
)
if WeightCount == 5 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = readfloat f
weight4 = readfloat f
weight5 = readfloat f
weight6 = 0
weight7 = 0
bone1 = readlong f
bone2 = readlong f
bone3 = readlong f
bone4 = readlong f
bone5 = readlong f
)
if WeightCount == 6 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = readfloat f
weight4 = readfloat f
weight5 = readfloat f
weight6 = readfloat f
weight7 = 0
bone1 = readlong f
bone2 = readlong f
bone3 = readlong f
bone4 = readlong f
bone5 = readlong f
bone6 = readlong f
)
if WeightCount == 7 do (
weight1 = readfloat f
weight2 = readfloat f
weight3 = readfloat f
weight4 = readfloat f
weight5 = readfloat f
weight6 = readfloat f
weight7 = readfloat f
bone1 = readlong f
bone2 = readlong f
bone3 = readlong f
bone4 = readlong f
bone5 = readlong f
bone6 = readlong f
bone7 = readlong f
)
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(weight5 != 0) then
    maxweight = maxweight + weight5
if(weight6 != 0) then
    maxweight = maxweight + weight6
if(weight7 != 0) then
    maxweight = maxweight + weight7
if(maxweight != 0) then
    (
        if(weight1 != 0) then
        (
            w1 = weight1 as float
            append w.boneids (bone1+1) --BoneID_array[bone1+1])
            append w.weights (w1 / 100.0)
            append used_id_array (bone1+1)
        )
        if(weight2 != 0) then
        (
            w2 = weight2 as float
            append w.boneids (bone2+1) --(BoneID_array[bone2+1])
            append w.weights (w2 / 100.0)
            append used_id_array (bone2+1)
        )
        if(weight3 != 0) then
        (
            w3 = weight3 as float
            append w.boneids (bone3+1)--(BoneID_array[bone3+1])
            append w.weights (w3 / 100.0)
            append used_id_array (bone3+1)
        )
        if(weight4 != 0) then
        (
            w4 = weight4 as float
            append w.boneids (bone4+1)--(BoneID_array[bone4+1])
            append w.weights (w4 / 100.0)
            append used_id_array (bone4+1)
        )    
        if(weight5 != 0) then
        (
            w5 = weight5 as float
            append w.boneids (bone5+1)--(BoneID_array[bone4+1])
            append w.weights (w5 / 100.0)
            append used_id_array (bone5+1)
        )        
        if(weight6 != 0) then
        (
            w6 = weight6 as float
            append w.boneids (bone6+1)--(BoneID_array[bone6+1])
            append w.weights (w6 / 100.0)
            append used_id_array (bone6+1)
        )            
                if(weight7 != 0) then
        (
            w7 = weight7 as float
            append w.boneids (bone7+1)--(BoneID_array[bone6+1])
            append w.weights (w7 / 100.0)
            append used_id_array (bone7+1)
        )        
    )
    append Weight_array w
    
    
)


--fseek f lnk1_size#seek_cur
face = ReadFixedString f 4
face_size = readlong f
null = readlong f
face_count = readlong f
facesize2 = readbyte f#unsigned
for a = 1 to face_count Do (
f1 = (readshort f) + 1   --read face indices, games are start form 0, but Max start from 1
f2 = (readshort f) + 1   --so we add 1 to each index
f3 = (readshort f) + 1
append Face_array [f1,f2,f3] --save faces to Face_array    
)
texc = ReadFixedString f 4
texc_size = readlong f
null = readlong f
null = readlong f
for a = 1 to VertexCount Do (
tu = readfloat f     --read UV float value
tv = (readfloat f) * -1 
append UV_array [tu,tv,0]  --save UVs to UV_array        
)

tang = ReadFixedString f 4
tang_size = readlong f
fseek f tang_size#seek_cur

sign = ReadFixedString f 4
sign_size = readlong f
if sign == "nrml" do (
null = readlong f
for a = 1 to VertexCount Do (
nx = readfloat f     --read xyz coordinates
ny = readfloat f 
nz = readfloat f
append Normal_array [nx,ny,nz] --save verts to Vert_array    
)
)
if sign == "sign" do (
fseek f sign_size#seek_cur
)
total_size = getFileSize fname
if total_size != (ftell f) do (
nrml = ReadFixedString f 4
nrml_size = readlong f
null = readlong f
for a = 1 to VertexCount Do (
nx = readfloat f     --read xyz coordinates
ny = readfloat f 
nz = readfloat f
append Normal_array [nx,ny,nz] --save verts to Vert_array    
)    
)
msh = mesh vertices:Vert_array faces:Face_array   --build mesh
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]
    
max modify mode
select msh
skinMod = skin ()
addModifier msh skinMod
for i = 1 to BNArr.count do
(
    maxbone = getnodebyname BNArr[i].name
    if i != BNArr.count then
        skinOps.addBone skinMod maxbone 0
    else
        skinOps.addBone skinMod maxbone 1
    
)

modPanel.setCurrentObject skinMod

for i = 1 to Weight_array.count do
(
    w = Weight_array[i]
    bi = #() --bone index array
    wv = #() --weight value array
    
    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
    
)
for i = 1 to BNArr.count do (
    j = i + 1
    if i == j do (
    if used_id_array[i] != used_id_array[j] do (
    
skinOps.removebone skinMod used_id_array[i]
    )
)
)

max create mode


fclose f