cho tớ hỏi hàm này bị sai gì sao open file 2-5MB là crash thế Mã: 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
