home *** CD-ROM | disk | FTP | other *** search
/ Xentax forum attachments archive / xentax.7z / 7253 / DS_2_PC.7z / DS_2_PC.ms
Encoding:
Text File  |  2014-04-24  |  11.9 KB  |  515 lines
  1. if (heapSize < 200000) then
  2.         heapSize = 2000000 -- allow ~ 40 MB instead of just 7.5 MB. Prevents "Runtime Error: Out of scripter memory"
  3.  
  4. fname = getOpenFileName \
  5. caption:"Open .flver from Mesh folder" \
  6. types:"Dark Souls (*.flver)|*.flver" \
  7. historyCategory:"DarkSoulsObjectPresets"
  8. f = fopen fname "rb"
  9.  
  10. clearlistener()
  11.  
  12. fn readFixedString bstream fixedLen = (
  13. local str = ""
  14. for i = 1 to fixedLen do (
  15. str += bit.intAsChar (ReadByte bstream #unsigned))
  16. str
  17. )
  18.  
  19. struct weight_data
  20. (
  21.     boneids,weights
  22. )
  23. struct Vertex_Info_Struct
  24. (
  25. VertexType, VertexSize,VertexCount,VertexOffset
  26. )
  27. struct Face_Info_Struct
  28. (
  29. FaceCount, FaceOffset,FaceSecSize
  30. )
  31.  
  32.  
  33. clearlistener()
  34.  
  35. fseek f 0x6 #seek_set
  36. Endian = ReadShort f
  37. VersionMajor=Readshort f
  38. VersionMinor=Readshort f
  39. dataOffset = Readlong f    
  40. print (dataOffset as string)
  41. dataSize = Readlong f    
  42. count = Readlong f
  43. numMat = Readlong f    
  44. BoneCount = Readlong f        
  45. numParts = Readlong f    
  46. numMesh = Readlong f    
  47.  
  48. fseek f 0x54  #seek_set
  49. SkipCount1 = readlong f    
  50. SkipCount2 = readlong f    
  51.  
  52. fseek f 0x80  #seek_set
  53. for a = 1 to count  do (
  54. getPos = ftell f + 64
  55. fseek f getPos #seek_set    
  56. )        
  57. for a = 1 to numMat do (
  58. getPos = ftell f + 32
  59. fseek f getPos #seek_set    
  60. )    
  61.  
  62. Print ("Bone Start @ 0x"+((bit.intAsHex(ftell f))as string))
  63.     
  64. BNArr = #()
  65. Vertex_Info    = #()
  66. Face_Info = #()    
  67. LodCount_Array = #()    
  68. Bone_Names_Array = #()    
  69. BoneMapCount_Array = #()
  70. BoneMapOff_Array = #()    
  71. BoneNameSizeArray = #()    
  72. Trans_array = #()    
  73. Rotation_array = #()    
  74. Scale_array = #()    
  75.  
  76. BonePos=ftell f
  77.     
  78. for a = 1 to BoneCount/2 do (
  79.  
  80. fseek f 0xC #seek_cur
  81. BoneNameSize1 = Readlong f    
  82. fseek f 0x70 #seek_cur
  83. Pos2=ftell f    
  84. fseek f 0xC #seek_cur
  85. BoneNameSize2 = Readlong f    
  86. fseek f 0x70 #seek_cur        
  87.     
  88. fseek f Pos2 #seek_set    
  89.  
  90. fseek f 0xC #seek_cur
  91. BoneNameSize3 = Readlong f    
  92. fseek f 0x70 #seek_cur
  93. Pos1=ftell f            
  94. fseek f 0xC #seek_cur
  95. BoneNameSize4 = Readlong f        
  96. fseek f Pos1 #seek_set        
  97.  
  98. BoneNameSize_1=(BoneNameSize2-BoneNameSize1)
  99. BoneNameSize_2=(BoneNameSize4-BoneNameSize3)    
  100.  
  101. append BoneNameSizeArray [BoneNameSize_1, BoneNameSize_2]
  102. )
  103.  
  104. print BoneNameSizeArray
  105.  
  106. fseek f BonePos #seek_set
  107.  
  108. for a = 1 to BoneCount do (
  109.  
  110. fseek f 0xC #seek_cur
  111.  
  112. BPos=ftell f
  113. BoneNameOff = Readlong f    
  114. fseek f BoneNameOff #seek_set
  115. BoneName=readFixedString f 12
  116. fseek f BPos #seek_set
  117.     
  118. fseek f 0x74 #seek_cur
  119. append Bone_Names_Array BoneName        
  120. )
  121.  
  122. fseek f BonePos #seek_set
  123.  
  124.   for a = 1 to BoneCount do (
  125.    getPos = ftell f + 128 
  126.    px = readFloat f
  127.    py = readFloat f
  128.    pz = readFloat f
  129.    BPosition = [px,py,pz]
  130.    BoneNameOff = readlong f
  131.    rx = readFloat f 
  132.    ry = readFloat f 
  133.    rz = readFloat f 
  134.    BoneRotation = ((eulerAngles (RadToDeg (rx)) (RadToDeg (ry)) (RadToDeg (rz))) as quat)
  135.    BoneParent = readShort f
  136.    Unknown01 = readShort f
  137.    sx = readFloat f
  138.    sy = readFloat f
  139.    sz = readFloat f
  140.    BScale = [sx,sy,sz]
  141.    Unk02 = readShort f
  142.    Unk03 = readShort f
  143.    fseek f getPos #seek_set 
  144.       
  145.    bne = dummy showLinks:true showLinksOnly:true
  146.    bne.scale = BScale
  147.    bne.rotation =  conjugate BoneRotation
  148.    bne.pos = BPosition
  149.    append BNArr bne
  150.    if BoneParent!=-1 then (
  151.     bne.parent = BNArr[(BoneParent+1)]
  152.     bne.transform *= bne.parent.transform   
  153.    )
  154.   )
  155.  
  156. Print ("Bone End @ 0x"+((bit.intAsHex(ftell f))as string))
  157.     
  158. for a = 1 to numParts do (
  159. getPos = ftell f + 48    
  160. fseek f 0x14 #seek_cur    
  161. BoneMapCount= readlong f
  162. Null = readlong f    
  163. BoneMapOff = readlong f        
  164. LodCount= readlong f    
  165. fseek f 0xC #seek_cur        
  166. fseek f getPos #seek_set    
  167. append LodCount_Array LodCount
  168. append BoneMapCount_Array BoneMapCount    
  169. append BoneMapOff_Array    BoneMapOff 
  170. )        
  171.  
  172. print BoneMapCount_Array
  173.  
  174. for a = 1 to numParts do (
  175. if LodCount_Array[a]==1 then
  176. (
  177. LodId= Readlong f
  178. Unk1= readbyte f    
  179. Unk2= readbyte f
  180. Unk3= readbyte f    
  181. Unk4= readbyte f    
  182. FaceCount= Readlong f    
  183. FaceOffset= Readlong f    
  184. FaceSecSize= Readlong f        
  185. null= Readlong f    
  186. null2= Readlong f
  187. null3= Readlong f    
  188. append Face_Info (Face_Info_Struct FaceCount:FaceCount FaceOffset:FaceOffset FaceSecSize:FaceSecSize )                
  189. )
  190. if LodCount_Array[a]>1 then
  191. (
  192. LodId= Readlong f
  193. Unk1= readbyte f    
  194. Unk2= readbyte f
  195. Unk3= readbyte f    
  196. Unk4= readbyte f    
  197. FaceCount= Readlong f    
  198. FaceOffset= Readlong f    
  199. FaceSecSize= Readlong f        
  200. null= Readlong f    
  201. null2= Readlong f
  202. null3= Readlong f    
  203. append Face_Info (Face_Info_Struct FaceCount:FaceCount FaceOffset:FaceOffset FaceSecSize:FaceSecSize )                    
  204. for i = 1 to (LodCount_Array[a]-1) do (    
  205. getPos = ftell f + 32            
  206. fseek f getPos #seek_set    
  207. )    
  208. )
  209.  
  210. )    
  211.  
  212. Print ("Face Info End @ 0x"+((bit.intAsHex(ftell f))as string))
  213.  
  214. print Face_Info
  215.     
  216. for a = 1 to numParts do (
  217. LodCount= Readlong f    
  218. if LodCount==1 then fseek f 0x20 #seek_cur    
  219. if LodCount==0 then fseek f 0x0 #seek_cur        
  220. VertexType= Readlong f    
  221. VertexSize= Readlong f    
  222. VertexCount= Readlong f    
  223. Unk1= Readlong f    
  224. Unk2= Readlong f    
  225. VertexSecSize= Readlong f    
  226. VertexOffset= Readlong f    
  227. append Vertex_Info (Vertex_Info_Struct VertexType:VertexType VertexSize:VertexSize VertexCount:VertexCount VertexOffset:VertexOffset)            
  228. )    
  229.  
  230. print Vertex_Info
  231.  
  232. Print ("Vertex Info End @ 0x"+((bit.intAsHex(ftell f))as string))
  233.  
  234. for a = 1 to SkipCount1 do (
  235. getPos = ftell f + 16        
  236. fseek f getPos #seek_set    
  237. )        
  238. for a = 1 to SkipCount2 do (
  239. getPos = ftell f + 32        
  240. fseek f getPos #seek_set    
  241. )    
  242.     
  243. for i = 1 to numParts do (
  244.     
  245. vertArray = #()
  246. Facearray = #()    
  247. UV_array = #()
  248. Weight_array=#()
  249. BoneMapIdArray    = #()    
  250.  
  251. BoneMapStart = BoneMapOff_Array[i]    
  252.     
  253. fseek f BoneMapStart #seek_set 
  254.     
  255. for i = 1 to BoneMapCount_Array[i] do (
  256. BoneMapIds = readlong f    
  257. append BoneMapIdArray (BoneMapIds+1)    
  258. )
  259.  
  260. print BoneMapIdArray
  261.  
  262. FaceOffset=(dataOffset+(Face_Info[i].FaceOffset))        
  263. fseek f (dataOffset+(Face_Info[i].FaceOffset)) #seek_set    
  264.     
  265. Print ("Face Start @ 0x"+((bit.intAsHex(ftell f))as string))    
  266.  
  267. StartDirection = 1
  268. f1 = ((Readshort f) + 1) 
  269. f2 = ((Readshort f) + 1) 
  270. FaceDirection = StartDirection
  271. while ((ftell f) < (FaceOffset + (Face_Info[i].FaceSecSize))) Do (
  272. f3 = (Readshort f)
  273. if (f3==0xFFFF) then (
  274. f1 = ((Readshort f) + 1) 
  275. f2 = ((Readshort f) + 1) 
  276. FaceDirection = StartDirection 
  277. ) else (
  278. f3 += 1
  279. FaceDirection *= -1
  280. if (f1!=f2)AND(f2!=f3)AND(f3!=f1) then (
  281. if FaceDirection > 0 then append Facearray [f1,f2,f3]
  282. else append Facearray [f1,f3,f2]
  283. )
  284. f1 = f2
  285. f2 = f3
  286. ) 
  287. ) 
  288.     
  289. VertOffset=(dataOffset+(Vertex_Info[i].VertexOffset))    
  290. fseek f (dataOffset+(Vertex_Info[i].VertexOffset))     #seek_set    
  291.  
  292. Print ("Vertex Start @ 0x"+((bit.intAsHex(ftell f))as string))        
  293. if Vertex_Info[i].VertexSize==48 then
  294. for x = 1 to Vertex_Info[i].VertexCount do (
  295. vx = Readfloat f
  296. vy = Readfloat f
  297. vz = Readfloat f
  298.         
  299. bone1 = readbyte f #unsigned    
  300. bone2 = readbyte f #unsigned    
  301. bone3 = readbyte f #unsigned    
  302. bone4 = readbyte f #unsigned
  303.     
  304. weight1 = (readshort f /32767.00)     
  305. weight2 = (readshort f /32767.00) 
  306. weight3 = (readshort f /32767.00)
  307. weight4 = (readshort f /32767.00) 
  308.     
  309. fseek f 0x10 #seek_cur
  310.     
  311. tu=Readfloat f    
  312. tv=Readfloat f*-1
  313.  
  314. w = (weight_data boneids:#() weights:#())
  315. maxweight = 0
  316. if(weight1 != 0) then
  317.    maxweight = maxweight + weight1
  318. if(weight2 != 0) then
  319.    maxweight = maxweight + weight2
  320. if(weight3 != 0) then
  321.    maxweight = maxweight + weight3
  322. if(weight4 != 0) then
  323.    maxweight = maxweight + weight4
  324.  
  325.  
  326. if(maxweight != 0) then (
  327.       if(weight1 != 0) then (
  328.          w1 = weight1 as float
  329.          append w.boneids (bone1 + 1)
  330.          append w.weights (w1)
  331.       )
  332.       if(weight2 != 0) then (
  333.          w2 = weight2 as float
  334.          append w.boneids (bone2 + 1)
  335.          append w.weights (w2)
  336.       )
  337.       if(weight3 != 0) then (
  338.          w3 = weight3 as float
  339.          append w.boneids (bone3 + 1)
  340.          append w.weights (w3)
  341.       )
  342.       if(weight4 != 0) then (
  343.          w4 = weight4 as float
  344.          append w.boneids (bone4 + 1)
  345.         append w.weights (w4)
  346.       )      
  347.    )
  348. append Weight_array w    
  349. append vertArray [vx,vy,vz]
  350. append UV_array [tu,tv,0]    
  351. )    
  352. if Vertex_Info[i].VertexSize==40 then
  353. for x = 1 to Vertex_Info[i].VertexCount do (
  354.  
  355. vx = Readfloat f
  356. vy = Readfloat f
  357. vz = Readfloat f
  358.         
  359. bone1 = readbyte f #unsigned    
  360. bone2 = readbyte f #unsigned    
  361. bone3 = readbyte f #unsigned    
  362. bone4 = readbyte f #unsigned
  363.     
  364. weight1 = (readshort f /32767.00)     
  365. weight2 = (readshort f /32767.00) 
  366. weight3 = (readshort f /32767.00)
  367. weight4 = (readshort f /32767.00) 
  368.     
  369. fseek f 0xC #seek_cur
  370.     
  371. tu=Readshort f/1024.00    
  372. tv=(Readshort f/1024.00)*-1    
  373.  
  374. w = (weight_data boneids:#() weights:#())
  375. maxweight = 0
  376. if(weight1 != 0) then
  377.    maxweight = maxweight + weight1
  378. if(weight2 != 0) then
  379.    maxweight = maxweight + weight2
  380. if(weight3 != 0) then
  381.    maxweight = maxweight + weight3
  382. if(weight4 != 0) then
  383.    maxweight = maxweight + weight4
  384.  
  385.  
  386. if(maxweight != 0) then (
  387.       if(weight1 != 0) then (
  388.          w1 = weight1 as float
  389.          append w.boneids (bone1 + 1)
  390.          append w.weights (w1)
  391.       )
  392.       if(weight2 != 0) then (
  393.          w2 = weight2 as float
  394.          append w.boneids (bone2 + 1)
  395.          append w.weights (w2)
  396.       )
  397.       if(weight3 != 0) then (
  398.          w3 = weight3 as float
  399.          append w.boneids (bone3 + 1)
  400.          append w.weights (w3)
  401.       )
  402.       if(weight4 != 0) then (
  403.          w4 = weight4 as float
  404.          append w.boneids (bone4 + 1)
  405.         append w.weights (w4)
  406.       )      
  407.    )
  408. append Weight_array w    
  409. append vertArray [vx,vy,vz]
  410. append UV_array [tu,tv,0]    
  411. )    
  412. if Vertex_Info[i].VertexSize==36 then
  413. for x = 1 to Vertex_Info[i].VertexCount do (
  414.  
  415. vx = Readfloat f
  416. vy = Readfloat f
  417. vz = Readfloat f
  418.         
  419. bone1 = readbyte f #unsigned    
  420. bone2 = readbyte f #unsigned    
  421. bone3 = readbyte f #unsigned    
  422. bone4 = readbyte f #unsigned
  423.     
  424. weight1 = (readshort f /32767.00)     
  425. weight2 = (readshort f /32767.00) 
  426. weight3 = (readshort f /32767.00)
  427. weight4 = (readshort f /32767.00) 
  428.     
  429. fseek f 0x8 #seek_cur
  430.     
  431. tu=Readshort f/1024.00    
  432. tv=(Readshort f/1024.00)*-1    
  433.  
  434. w = (weight_data boneids:#() weights:#())
  435. maxweight = 0
  436. if(weight1 != 0) then
  437.    maxweight = maxweight + weight1
  438. if(weight2 != 0) then
  439.    maxweight = maxweight + weight2
  440. if(weight3 != 0) then
  441.    maxweight = maxweight + weight3
  442. if(weight4 != 0) then
  443.    maxweight = maxweight + weight4
  444.  
  445.  
  446. if(maxweight != 0) then (
  447.       if(weight1 != 0) then (
  448.          w1 = weight1 as float
  449.          append w.boneids (bone1 + 1)
  450.          append w.weights (w1)
  451.       )
  452.       if(weight2 != 0) then (
  453.          w2 = weight2 as float
  454.          append w.boneids (bone2 + 1)
  455.          append w.weights (w2)
  456.       )
  457.       if(weight3 != 0) then (
  458.          w3 = weight3 as float
  459.          append w.boneids (bone3 + 1)
  460.          append w.weights (w3)
  461.       )
  462.       if(weight4 != 0) then (
  463.          w4 = weight4 as float
  464.          append w.boneids (bone4 + 1)
  465.         append w.weights (w4)
  466.       )      
  467.    )
  468. append Weight_array w    
  469. append vertArray [vx,vy,vz]
  470. append UV_array [tu,tv,0]    
  471. )    
  472.  
  473. try(
  474. msh = mesh vertices:vertArray faces:faceArray
  475. msh.numTVerts = UV_array.count
  476. buildTVFaces msh
  477. for j = 1 to UV_array.count do setTVert msh j UV_array[j]
  478. for j = 1 to faceArray.count do setTVFace msh j faceArray[j]
  479. msh.displayByLayer = false
  480. msh.backfacecull = false
  481. msh.wirecolor = (color 230 200 210)
  482.  
  483. max modify mode
  484. select msh
  485. skinMod = skin ()
  486. addModifier msh skinMod
  487. for i = 1 to BoneMapIdArray.count do
  488. (
  489.     maxbone = BNArr[(BoneMapIdArray[i])] 
  490.     if i != BoneMapIdArray.count then 
  491.         skinOps.addBone skinMod maxbone 0
  492.     else
  493.         skinOps.addBone skinMod maxbone 1
  494. )
  495. modPanel.setCurrentObject skinMod
  496. for i = 1 to (Vertex_Info[i].VertexCount) do (
  497.    w = Weight_array[i]
  498.    bi = #() --bone index array
  499.    wv = #() --weight value array
  500.    
  501.    for j = 1 to w.boneids.count do
  502.    (
  503.       boneid = w.boneids[j]
  504.       weight = w.weights[j]
  505.       append bi boneid
  506.       append wv weight
  507.    )   
  508.    
  509.    skinOps.ReplaceVertexWeights skinMod i bi wv
  510.    
  511. )
  512. )catch(format "Error!!!\n")
  513. )
  514.  
  515. fclose f