My Assistant
Loading. Please Wait...
Posts: 152
Game: 
Posts: 152
Game:
Posts: 221
Game:
Posts: 221
Game:
so I can't really accomplish all that much, and I have some modding for another game, and bleh... Any way this thread is mostly for results and harvesting info, and wordpad does the latter effectlivly for the visuals. Posts: 152
Game:
so I can't really accomplish all that much, and I have some modding for another game, and bleh... Any way this thread is mostly for results and harvesting info, and wordpad does the latter effectlivly for the visuals. Posts: 221
Game:
Posts: 717
Game:
Posts: 221
Game:
Posts: 717
Game:
Posts: 717
Game:
Posts: 221
Game:
Posts: 221
Game:
Posts: 221
Game:
(ReadString without a given length always reads a null-terminated string.)
function LoadWaveTexture
ScaleX = ReadFloat
ScaleY = ReadFloat
TexturePath = ReadString
end function
function LoadWaterShaderProperties
Unknown1 = ReadArray(Of float)(20)
TexPathWaterCubemap = ReadString
TexPathWaterRamp = ReadString
Unknown2 = ReadArray(Of float)(4)
For i = 0 To 3
LoadWaveTexture
Next
end function
function LoadWaveGenerator
TextureName = ReadString
RampName = ReadString
Position = ReadVector3
Rotation = ReadFloat
Velocity = ReadVector3
LifetimeFirst = ReadFloat
LifetimeSecond = ReadFloat
PeriodFirst = ReadFloat
PeriodSecond = ReadFloat
ScaleFirst = ReadFloat
ScaleSecond = ReadFloat
FrameCount = ReadFloat
FrameRateFirst = ReadFloat
FrameRateSecond = ReadFloat
StripCount = ReadFloat
end function
function LoadLayer
PathTexture = ReadString
PathNormalmap = ReadString
ScaleTexture = ReadFloat
ScaleNormalmap = ReadFloat
end function
function LoadDecal
ID = ReadInt32
Type = ReadInt32
TextureCount = ReadInt32 ' usually 1
For i = 0 To TextureCount - 1
Length = ReadInt32
TexturePath(i) = ReadString(Length)
Next
Scale = ReadVector3
Position = ReadVector3
Rotation = ReadVector3
CutOffLOD = ReadFloat
NearCutOffLOD = ReadFloat
OwnerArmy = ReadInt32
end function
function LoadDecalGroup
ID = ReadInt32
Name = ReadString
Length = ReadInt32
Data = ReadArray(Of Int32)(Length)
end function
function LoadProp
BlueprintPath = ReadString
Position = ReadVector3
Rotation.vX = ReadVector3
Rotation.vY = ReadVector3
Rotation.vZ = ReadVector3
ReadVector3 ' unused scale
end function
function LoadMap
If (ReadInt32 <> MAP_MAGIC) Then return
FileVersionMajor = ReadInt32 ' usually 2
Unknown3 = ReadInt32 ' always EDFE EFBE
Unknown4 = ReadInt32 ' always 2
ReadFloat ' Map Width (in float)
ReadFloat ' Map Height (in float)
Unknown5 = ReadInt32 ' always 0
Unknown6 = ReadInt16 ' always 0
Length = ReadInt32
PreviewImageData = ReadBytes(Length)
FileVersionMinor = ReadInt32
Width = ReadInt32
Height = ReadInt32
HeightScale = ReadFloat 'Height Scale, usually 1/128
HeightmapData = ReadArray(of Int16)((Height + 1) * (Width + 1))
TerrainShader = ReadString 'Terrain Shader, usually "TTerrain"
TexPathBackground = ReadString
TexPathSkyCubemap = ReadString
TexPathEnvCubemap = ReadString
LightingMultiplier = ReadFloat
SunDirection = ReadVector3
SunAmbience = ReadVector3
SunColor = ReadVector3
ShadowFillColor = ReadVector3
SpecularColor = ReadVector4
Bloom = ReadFloat
FogColor = ReadVector3
FogStart = ReadFloat
FogEnd = ReadFloat
HasWater = ReadByte
WaterElevation = ReadFloat
WaterElevationDeep = ReadFloat
WaterElevationAbyss = ReadFloat
LoadWaterShaderProperties
Count = ReadInt32
For i = 1 To Count
LoadWaveGenerator
Next
ReadString ' always "No Tileset"
Count = ReadInt32 ' usually 6
For i = 1 To Count
LoadLayer
Next
Unknown7 = ReadInt32
Unknown8 = ReadInt32
Count = ReadInt32
For i = 1 To Count
LoadDecal
Next
Count = ReadInt32
For i = 1 To Count
LoadDecalGroup
Next
ReadInt32 'Width again
ReadInt32 'Height again
Dim Length As Int32
Count = ReadInt32 ' should always be 1
For i = 1 To Count
Length = ReadInt32
If (i = 1) Then
NormalmapData = ReadBytes(Length)
Else
CurrentOffset += Length
End If
Next
ReadInt32 'always 1
Length = ReadInt32
TexturemapData = ReadBytes(Length)
ReadInt32 'always 1
Length = .ReadInt32()
WatermapData = ReadBytes(Length)
Length = (Width / 2) * (Height / 2)
WaterFoamMap = ReadBytes(Length) 'Obviously not used.. each byte is 00
WaterFlatnessMap = ReadBytes(Length) 'Obviously not used.. each byte is FF
WaterDepthBiasMap = ReadBytes(Length) 'Obviously not used.. each byte is 7F
TerrainTypeData = ReadBytes(Width * Height)
If (FileVersionMinor <= 52) Then ReadInt16 'always 0
Count = ReadInt32
For i = 1 To Count
LoadProp
Next
end fucntion
This post has been edited by HazardX: Feb 21 2007, 21:41 PM
Posts: 221
Game: