Important information: this site is currently scheduled to go offline indefinitely by December 1st 2023.
If you wish to donate to attempt the preservation of tools and software somewhere else before it goes down, check the GoFundMe

Neden böyle oldu, anlaşılmayan işler [Pc]

The Original Forum. Game archives, full of resources. How to open them? Get help here.
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Code: Select all

getPos = ftell f + 40	
Null= readlong f
VertexCount = readlong f
UnkOff01 = readlong f
UnkOff02 = readlong f	
FaceCount = readlong f	
MShdId= readlong f
UsedBones=readlong f	
UsedBonesStart=readlong f	
VertexId = readlong f	
VertexEnd = readlong f	
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Code: Select all

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
         append w.weights (w1/255.0)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
         append w.weights (w2/255.0)
      )
      if(weight3 != 0) then (
         w3 = weight3 as float
         append w.boneids (bone3 + 1)
         append w.weights (w3/255.0)
      )
      if(weight4 != 0) then (
         w4 = weight4 as float
         append w.boneids (bone4 + 1)
        append w.weights (w4/255.0)
      )      
   )
   

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
         append w.weights (w1/255.0)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
         append w.weights (w2/255.0)
append Weight_array w	
fseek f getPos #seek_set
append vertArray [-vx,-vz,vy]
append UV_array [tu,tv,0]	
)		
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Code: Select all

weight3 = readbyte f #unsigned	
weight2 = readbyte f #unsigned	
weight1 = readbyte f #unsigned	
weight4 = readbyte f #unsigned			
	
bone1 = readbyte f #unsigned	
bone2 = readbyte f #unsigned	
bone3 = readbyte f #unsigned	
bone4 = readbyte f #unsigned
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Ynalış mı var burda

Code: Select all

if(maxweight != 0) then (
      if(weight1 != 0) then (
         w1 = weight1 as float
         append w.boneids (bone1 + 1)
         append w.weights (w1/255.0)
      )
      if(weight2 != 0) then (
         w2 = weight2 as float
         append w.boneids (bone2 + 1)
         append w.weights (w2/255.0)
      )
      if(weight3 != 0) then (
         w3 = weight3 as float
         append w.boneids (bone3 + 1)
         append w.weights (w3/255.0)
      )
      if(weight4 != 0) then (
         w4 = weight4 as float
         append w.boneids (bone4 + 1)
        append w.weights (w4/255.0)
      )      
   )
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Code: Select all

VEndPos00=ftell f
LongCheck00=readlong f
if LongCheck00!=0 then fseek f VEndPos00 #seek_set
if LongCheck00==0 then (
VEndPos01=ftell f
LongCheck01=readlong f
if LongCheck01!=0 then fseek f VEndPos01 #seek_set
if LongCheck01==0 then (
fseek f 0x8 #seek_cur	
VEndPos02=ftell f
LongCheck02=readlong f
if LongCheck02==0 then fseek f 0x0 #seek_cur
if LongCheck02!=0 then fseek f VEndPos02 #seek_set
)
if LongCheck01!=0 then fseek f VEndPos01 #seek_set	
)
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

KOOOOOOOt
nedne böyle oluyor ki

Code: Select all

for x=1 to 	(Mesh_Info[i].FaceCount)do (	
fa=readshort f #unsigned +1
fb=readshort f #unsigned +1
fc=readshort f #unsigned +1
append faceArray [fc,fb,fa]	
)	
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Code: Select all

msh = mesh vertices:vertArray faces:faceArray
msh.numTVerts = UV_array.count
msh.name=("LOTR_MODEL_"+i as string)	
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.displayByLayer = false
msh.backfacecull = false
msh.wirecolor = (color 230 200 210)
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

İnsan mesak ediyor.

Code: Select all

max modify mode
TSelman61X
mega-veteran
mega-veteran
Posts: 252
Joined: Mon Feb 13, 2017 9:09 am
Has thanked: 9 times
Been thanked: 19 times
Contact:

Re: Neden böyle oldu, anlaşılmayan işler [Pc]

Post by TSelman61X »

Burda bititriyorum
Fin
Locked